|
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: 155052 (0x25dac)
Notes: pts_type(SC)
Names: »DRPL01.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »IMPROVE/DRPL01.SC«
IDENT DRPL01 REL 11.1 82-08-19 870105041110 =17,BLOCKING IMPROVED REL 11.1 82-08-13 =16,CHANGED BLOCKING OF OUTPUT REL 11.1 82-07-08 =15,COMPARE ADDR. CORR. REL 11.1 82-02-12 =14,SET CR CORR. REL 11.0 81-10-20 =13,ADAPTED FOR PTS8000 REL 11.0 81-10-14 =12,DIAGNOSTIC FOR RWSI REL 11.0 81-08-27 =11,CH. OF PARAMETERS REL 11.0 81-08-10 =10,CORR. OF RWSI REL 11.0 81-08-10 =9,CORR. OF INTERRUPT ENTRY REL 11.0 81-06-24 =8,OPEN LINE PARAM. CHANGED REL 11.0 81-06-23 =7,CORR. OF CWT-DISPL. REL 11.0 81-06-11 =6,LENGTH OF LONG BUFFERS CHANGED REL 11.0 81-05-27 =5,CORR. OF RWSI-CWT:S , OPEN LINE PROC. & COND. ASS. REL 11.0 81-05-22 =4,CORR. OF CWT-DISPL. REL 11.0 81-05-20 =3,CORR. OF TIMER NAME REL 11.0 81-04-29 =2,CORR. OF OPEN LINE PROCEDURE REL 11.0 81-04-21 GENERAL UPDATE FOR RWSI REL 11.0 81-01-26 =1,OPEN LINE PARAM. AREA EXPANDED PRR 11.0 80-11-19 EJECT * * * * ************************************************************ * * PHILIPS TERMINAL SYSTEM PTS * * DRPL01 = DRIVER PROCESSOR FOR LINE CONTROL, * LOCAL & REMOTE CONNECTIONS * * * ************************************************************ * * * THIS PROGRAM HANDLES I/O OPERATIONS ON THE * PROCESSOR FOR LINE CONTROL (PLC). IT IS * CALLED FROM THE TERMINAL DEVICE DRIVERS. * * INPUT AND OUTPUT OF CHARACTERS FROM/TO THE * TERMINAL DEVICE DRIVERS ARE MADE ON CHARACTER * BASIS. BLOCKING AND DEBLOCKING OF CHARACTERS * IN DATA PACKETS ARE HANDLED BY THIS DRIVER. * EJECT * * THE PROGRAM IS DIVIDED INTO A NUMBER OF SECTIONS. * SECTIONS CONTAINING PROGRAM CODE ARE DIVIDED * INTO ROUTINES. THE ROUTINES ARE LISTED AT * BEGINNING OF EACH SECTION. THE SECTIONS, IN * ORDER OF APPEARANCE IN LIST, ARE: * * NAME FUNCTION * * ENTRIES DECLARE ENTRY POINTS * EXTERNALS DECLARE EXTERNAL REFERENCES * CONDITION SET CONDITIONAL ASSEMBLY PARAMETERS * CONSTANTS SET CONSTANT VALUES * DATA DATA AREAS * * REQUEST DEVICE DRIVER REQUEST ROUTINES * INTERRUPT INTERRUPT ENTRIES * RECOVERY SYSTEM START, POWER FAIL AND RECOVERY * DISPATCH LOCAL PLC DISPATCHER * ROUTINE COMMON SERVICE ROUTINES * SUBROUTIN COMMON SERVICE SUBROUTINES * TBUFF BUFFER HANDLING SUBROUTINES * EJECT * *********** * ENTRIES * *********** * * I/O REQUESTS * ENTRY PLCHRI CHARACTER INPUT ENTRY PLSTBL DEFINE START OF OUTPUT BLOCK ENTRY PLCHRO CHARACTER OUTPUT ENTRY PLENBL DEFINE END OF OUTPUT BLOCK ENTRY PLDISP LOCAL DISPATCHER ENTRY PRCHRI CHR INP REMOTE ENTRY PRSTBL START OUTP BLOCK, REMOTE ENTRY PRCHRO CHR OUTP. REMOTE ENTRY PRENBL END OUTP BLOCK, REMOTE ENTRY PRDISP LOCAL DSIP. REMOTE ENTRY PLTEST TEST COMMANDS ENTRY CWTPLC CWT TABLE ENTRY GETDWT GET DWT SUBROUTINE ENTRY PLCLOG LOGG POINTER =11 ENTRY TIMACT INACTIVITY TIMER =11 ENTRY POLRTL POLL FREQ. & NO OF RETRANSM =11 ENTRY POLRTR POLL FR. & NO OF RETR. =11 EJECT * * * INTERRUPTS * ENTRY IHPL01 PLC NUMBER 1 ENTRY IHPL02 PLC NUMBER 2 ENTRY IHPL03 PLC NUMBER 3 ENTRY IHPL04 PLC NUMBER 4 * ENTRY IHPR01 PLC NUMBER 5,REMOTE ENTRY IHPR02 6,REMOTE ENTRY IHPR03 7,REMOTE ENTRY IHPR04 8,REMOTE * * RECOVERY AT TC POWER UP * ENTRY PLON RECOVER ALL DEFINED PLC:S * EJECT * ************* * EXTERNALS * ************* * * TOSS MONITOR * * ROUTINES EXTRN TDISP TOSS DISPATCHER EXTRN QMJOB QUEUE MONITOR JOB EXTRN MEXIT EXIT FROM MONITOR JOB EXTRN GETBLK GET MONITOR BLOCK EXTRN FREBLK RETURN MONITOR BLOCK EXTRN SAVE8 PUSH A1-A8 ON A15 STACK EXTRN SETIME SET TIMER * DATA WORDS EXTRN PFPOST POWER FAIL FLAG EXTRN INTSAV LATEST INTERRUPT SAVE AREA * * * DRND01 SERVICE ROUTINES * EXTRN NDSAV8 SAVE A3-A5, A7-A8 IN DWT EXTRN NDGET8 GET A3-A5, A7-A8 FROM DWT EXTRN NDREWS CALL RECOVERY FOR ALL DEV ON WS EXTRN NDREDW CALL RECOVERY FOR DWT EXTRN NDGEDN GET HIGEST DWT NUMBER ON WS EXTRN NDGEDW GET DWT ADDRESS * EJECT * * DRND01 ROUTINES FOR RETURN TO DEVICE DRIVER * EXTRN NDREPO POP, OK & RETURN EXTRN NDRETO OK & RETURN EXTRN NDREP POP & RETURN EXTRN NDRET RETURN * * * DWT DISPLACEMENTS * EXTRN DWTCHP CHANNEL PARAMETERS EXTRN DWTST STATUS FLAGS EXTRN DWTOR ORDER (RIGHT BYTE) EXTRN DWTADR DRIVER ADDRESS BLOCK ADDRESS EXTRN DWTOTQ QUEUE LINK EXTRN DWTCP2 SECOND CHANNEL PARAMETER WORD EXTRN DWTLD1 PLC INPUT/OUTPUT BUFFER ADDR EXTRN DWTLD2 PLC FLOW CONTROL COUNTERS EXTRN DWTTBU PLC TEST COMMANDS BUFFER ADDR EXTRN DWTTLN PLC TEST COMMANDS BUFFER LENGTH EXTRN DWTTCW PLC TEST COMMANDS SPECIAL PARAM EXTRN DWTWAT WAIT/ACT INDICATOR =16 * EJECT * * WORK STATION TABLES * EXTRN INTPL1 PLC 1 EXTRN INTPL2 PLC 2 EXTRN INTPL3 PLC 3 EXTRN INTPL4 PLC 4 * EXTRN INTPR1 REMOTE EXTRN INTPR2 REMOTE EXTRN INTPR3 REMOTE EXTRN INTPR4 REMOTE * * MISCELLANEOUS * EXTRN INTADR INTERRUPT ADDR IN DRIVER ADDR BLOCK * EJECT * ************************ * CONDITIONAL ASSEMBLY * ************************ * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 1 * * * PLCNRL DEFINES NUMBER OF LOCAL PLC:S ACTUALLY CONNECTED (0-4) * X:A EQU 1 PLCNRL EQU X:A * * PLCNRR DEFINES THE NUMBER OF REMOTE PLC:S ACTUALLY CONN. (0-4) * X:B EQU 0 PLCNRR EQU X:B * * EJECT * ************* * CONSTANTS * ************* * * SYSTEM PARAMETER DEFINITION * * LEVEL 3 FLOW CONTROL WINDOW SIZE (1-7) WINDOW EQU 2 * * MAXIMAL NUMBER OF WORK STATIONS PER PLC (1-32) MAXWS EQU 32 * * DELAY BEFORE EXECUTING "TEST CU" AT RESTART. (IN 100 MS) STADLY EQU 100 10 SECONDS * * LENGTH OF USER PART OF SHORT OUTPUT BUFFER IN WORDS (1-128) SOBUFU EQU 3 * * LENGTH OF USER PART OF GENERAL READ BUFFER IN WORDS (1-128) GRBUFU EQU 70 * * INACTIVITY TIMER (MINUTES) TIMACT EQU 3 U =8 * * POLLING FREQUENCY (L BYTE) & NUMBER OF RETRANSMISSIONS (R BYTE) =11 POLRTL EQU /1805 LOCAL =11 POLRTR EQU /0D05 REMOTE =11 * * IF PLCTST IS 1 THE PLC DIAGNOSTIC COMMANDS ARE HANDLED * BY THIS DRIVER. * PLCTST EQU 0 * * * A TEST VERSION OF THE DRIVER IS OBTAINED BY SETTING UTTEST><0 * IF UTTEST=1 THE TEST CODE IS INCLUDUD BUT TRAP IS NOT USED * IF UTTEST=2 THE TEST CODE IS INCLUDED AND TRAP IS USED * UTTEST EQU 0 * * * LOBUFN IS THE NUMBER OF LONG OUTPUT BUFFERS USED * FOR EACH PLC (1-32) * LOBUFN EQU 3 * * * LOBUFU IS THE LENGTH OF THE USER PART OF A LONG * OUTPUT BUFFER IN WORDS (1-128) * LOBUFU EQU 128 U =6,=16 * EJECT * * HARDWARE INTERRUPT LEVELS * THESE LEVELS MUST CORRESPOND TO INTERRUPT * VECTOR IN SYSTAB * INTLV0 EQU 26 PLC NUMBER 1 INTLV1 EQU 27 PLC NUMBER 2 INTLV2 EQU 24 PLC NUMBER 3 INTLV3 EQU 25 PLC NUMBER 4 INTRV0 EQU 18 PLC NUMBER 5, REMOTE INTRV1 EQU 19 6, REMOTE INTRV2 EQU 20 7, REMOTE INTRV3 EQU 21 8, REMOTE * * CHANNEL UNIT DEVICE ADDRESSES * PLCDA0 EQU /06 PLC 1 PLCDA1 EQU /07 PLC 2 PLCDA2 EQU /26 PLC 3 PLCDA3 EQU /27 PLC 4 PLCDA4 EQU /3A PLC 5 PLCDA5 EQU /3B PLC 6 PLCDA6 EQU /2A PLC 7 PLCDA7 EQU /2B PLC 8 * EJECT * * BUFFER AREA PARAMETER DEFINITION * HEADLW EQU 4 BUFFER HEADER LENGTH (WORDS) FLOWLW EQU 2 FLOW CONTROL FIELD LENGTH (WORDS) SYSTLW EQU HEADLW+FLOWLW SYSTEM PART OF BUFFER * * LONG OUTPUT BUFFERS LOBUF1 EQU SYSTLW+LOBUFU LENGTH OF ONE BUFFER (WORDS) LOBUF2 EQU LOBUF1+LOBUF1 2 BUFFERS LOBUF3 EQU LOBUF2+LOBUF1 LOBUF4 EQU LOBUF3+LOBUF1 LOBUF5 EQU LOBUF4+LOBUF1 LOBUF6 EQU LOBUF5+LOBUF1 LOBUF7 EQU LOBUF6+LOBUF1 . =17 LOBUF8 EQU LOBUF7+LOBUF1 . =17 LOBUF9 EQU LOBUF8+LOBUF1 . =17 LOBU10 EQU LOBUF9+LOBUF1 . =17 LOBU11 EQU LOBU10+LOBUF1 . =17 LOBU12 EQU LOBU11+LOBUF1 . =17 LOBU13 EQU LOBU12+LOBUF1 . =17 LOBU14 EQU LOBU13+LOBUF1 . =17 LOBU15 EQU LOBU14+LOBUF1 . =17 LOBU16 EQU LOBU15+LOBUF1 . =17 LOBU17 EQU LOBU16+LOBUF1 . =17 LOBU18 EQU LOBU17+LOBUF1 , =17 LOBU19 EQU LOBU18+LOBUF1 . =17 LOBU20 EQU LOBU19+LOBUF1 . =17 LOBU21 EQU LOBU20+LOBUF1 . =17 LOBU22 EQU LOBU21+LOBUF1 . =17 LOBU23 EQU LOBU22+LOBUF1 . =17 LOBU24 EQU LOBU23+LOBUF1 . =17 LOBU25 EQU LOBU24+LOBUF1 . =17 LOBU26 EQU LOBU25+LOBUF1 . =17 LOBU27 EQU LOBU26+LOBUF1 . =17 LOBU28 EQU LOBU27+LOBUF1 . =17 LOBU29 EQU LOBU28+LOBUF1 . =17 LOBU30 EQU LOBU29+LOBUF1 . =17 LOBU31 EQU LOBU30+LOBUF1 . =17 LOBU32 EQU LOBU31+LOBUF1 . =17 IFT LOBUFN=1 LOBUFS EQU LOBUF1 LENGTH OF BUFFER AREA (WORDS) XIF IFT LOBUFN=2 LOBUFS EQU LOBUF2 LENGTH OF BUFFER AREA (WORDS) XIF IFT LOBUFN=3 LOBUFS EQU LOBUF3 LENGTH OF BUFFER AREA (WORDS) XIF IFT LOBUFN=4 LOBUFS EQU LOBUF4 LENGTH OF BUFFER AREA (WORDS) XIF IFT LOBUFN=5 LOBUFS EQU LOBUF5 LENGTH OF BUFFER AREA (WORDS) XIF IFT LOBUFN=6 LOBUFS EQU LOBUF6 LENGTH OF BUFFER AREA (WORDS) XIF IFT LOBUFN=7 . =17 LOBUFS EQU LOBUF7 . =17 XIF IFT LOBUFN=8 . =17 LOBUFS EQU LOBUF8 . =17 XIF IFT LOBUFN=9 . =17 LOBUFS EQU LOBUF9 . =17 XIF IFT LOBUFN=10 . =17 LOBUFS EQU LOBU10 . =17 XIF IFT LOBUFN=11 . =17 LOBUFS EQU LOBU11 . =17 XIF IFT LOBUFN=12 . =17 LOBUFS EQU LOBU12 . =17 XIF IFT LOBUFN=13 . =17 LOBUFS EQU LOBU13 . =17 XIF IFT LOBUFN=14 . =17 LOBUFS EQU LOBU14 . =17 XIF IFT LOBUFN=15 . =17 LOBUFS EQU LOBU15 . =17 XIF IFT LOBUFN=16 . =17 LOBUFS EQU LOBU16 . =17 XIF IFT LOBUFN=17 . =17 LOBUFS EQU LOBU17 . =17 XIF IFT LOBUFN=18 . =17 LOBUFS EQU LOBU18 . =17 XIF IFT LOBUFN=19 . =17 LOBUFS EQU LOBU19 . =17 XIF IFT LOBUFN=20 . =17 LOBUFS EQU LOBU20 . =17 XIF IFT LOBUFN=21 . =17 LOBUFS EQU LOBU21 . =17 XIF IFT LOBUFN=22 . =17 LOBUFS EQU LOBU22 . =17 XIF IFT LOBUFN=23 .17 LOBUFS EQU LOBU23 . =17 XIF IFT LOBUFN=24 . =17 LOBUFS EQU LOBU24 . =17 XIF IFT LOBUFN=25 . =17 LOBUFS EQU LOBU25 . =17 XIF IFT LOBUFN=26 . =17 LOBUFS EQU LOBU26 . =17 XIF IFT LOBUFN=27 . =17 LOBUFS EQU LOBU27 . =17 XIF IFT LOBUFN=28 . =17 LOBUFS EQU LOBU28 . =17 XIF IFT LOBUFN=29 . =17 LOBUFS EQU LOBU29 . =17 XIF IFT LOBUFN=30 . =17 LOBUFS EQU LOBU30 . =17 XIF IFT LOBUFN=31 . =17 LOBUFS EQU LOBU31 . =17 XIF IFT LOBUFN=32 . =17 LOBUFS EQU LOBU32 . =17 XIF * EJECT * * SHORT OUTPUT BUFFERS SOBUF1 EQU SYSTLW+SOBUFU LENGTH OF ONE BUFFER (WORDS) SOBUF2 EQU SOBUF1+SOBUF1 2 BUFFERS SOBUF4 EQU SOBUF2+SOBUF2 SOBUF8 EQU SOBUF4+SOBUF4 SOBUFS EQU SOBUF8 LENGTH OF BUFFER AREA (WORDS) * * GENERAL READ BUFFERS GRBUF1 EQU SYSTLW+GRBUFU LENGTH OF ONE BUFFER (WORDS) GRBUF2 EQU GRBUF1+GRBUF1 GRBUFS EQU GRBUF2 LENGTH OF BUFFER AREA (WORDS) * * LENGTHS OF USER PART OF BUFFERS (BYTES) SOBUFL EQU SOBUFU+SOBUFU SHORT OUTPUT BUFFERS LOBUFL EQU LOBUFU+LOBUFU LONG OUTPUT BUFFERS GRBUFL EQU GRBUFU+GRBUFU GENERAL READ BUFFERS * EJECT * * CONTROLLER COMMAND RECORD (CCR) LAYOUT * CCRDLS EQU 0 DATA LINK STATION INDEX CCRCMD EQU 1 COMMAND CODE CCRSU1 EQU 2 SUBCOMMAND BYTE 1 CCRSU2 EQU 3 SUBCOMMAND BYTE 2 CCRSUB EQU 2 SUBCOMMAND WORD CCRSTA EQU 4 STATUS WORD CCRIDB EQU 7 IDENTITY, BYTE FIELD CCRIDW EQU 8 IDENTITY, WORD FIELD CCRLEN EQU 10 BUFFER LENGTH (BYTES) CCRC1B EQU 12 DATA CHAINING CTRL & MSB BUFFER ADDR CCRBUF EQU 14 BUFFER ADDRESS * * * BUFFER LAYOUT * * HEADER LENGTH BUFHLN EQU HEADLW+HEADLW LENGTH (BYTES) * HEADER LAYOUT BUFLNK EQU -8 FREE LIST LINK BUFDWT EQU -6 DWT ADDRESS BUFLEN EQU -4 LENGTH OF TEXT IN BUFFER BUFBIX EQU -2 BYTE INDEX * X25 CONTROL FIELD LAYOUT X25LGN EQU 0 LOGICAL CHANNEL GROUP NUMBER X25LCN EQU 1 LOGICAL CHANNEL NUMBER X25FLW EQU 2 FLOW CONTROL INFORMATION X25DAT EQU 3 START OF USER DATA * EJECT * * PLC COMMAND CODES * CMDTC EQU /80 TEST CHANNEL UNIT CMDOP EQU /86 OPEN LINE CMDOD EQU /85 OPEN DLS CMDPS EQU /84 GET LINE STATISTICS CMDDS EQU /83 GET DLS STATISTICS CMDRM EQU /87 READ LOCAL MEMORY CMDSW EQU /40 STANDARD WRITE CMDFW EQU /41 FAST WRITE CMDGR EQU /20 GENERAL READ * * * APPLICATION TEST COMMAND CODES * ORDPS EQU 1 GET LINE STATISTICS ORDDS EQU 2 GER DLS STATISTICS ORDRM EQU 3 READ LOCAL MEMORY * * * MESSAGE TYPES * TYERR EQU 0 ILLEGAL TYPE OR ERROR TYNFLO EQU 2 DATA PACKET WITH NO FLOW CONTROL TYSTAT EQU 4 DEVICE STATUS MESSAGE TYDATA EQU 6 NORMAL DATA PACKET TYRR EQU 8 RECIEVE READY PACKET TYRES EQU 10 RESET PACKET TYRESC EQU 12 RESET CONFIRMATION PACKET * EJECT * * DWT STATUS FLAGS (DWTST) * DWFBSY EQU /8000 DEVICE NOT BUSY DWFECH EQU /2000 ECHO MODE DWFINP EQU /0020 INPUT REQUESTED DWFRES EQU /0008 RESET SEQUENCE ACTIVE DWFAK3 EQU /0004 WAITING FOR LEVEL 3 ACK DWFPLC EQU DWFRES+DWFAK3 PLC FLAGS DWFTY1 EQU /0002 USE ONLY TYPE 1 DATA PACKETS DWFSAC EQU /0001 WAIT FOR LEVEL 3 ACK * * * PLC STATUS FLAGS (CCRSTA) * STANOC EQU /0001 NO CONNECTION STALIR EQU /0004 LINK RESET STADNO EQU /1000 DCE NOT OPERABLE STAE1 EQU STANOC+STALIR DUMMY STAERR EQU STAE1+STADNO ERROR IN COMMUNICATION * STAREQ EQU /8000 REQUEST ERROR STANOB EQU /0800 NO BUFFERS FOR CCR STAPOL EQU /0100 POLLING STOPPED STACOM EQU /0080 COMMUNICATION REESTABLISHED STASEQ EQU /0010 SEQUENCE ERROR STAILL EQU /0008 ILLEGAL LENGTH STALER EQU /0002 LINK ERROR * EJECT * * WORK STATION STATUS FLAGS * WSFERR EQU /01 COMMUNICATION ERROR * * * MASKS FOR CHANNEL PARAMETERS * MASKPL EQU /0F PLC NUMBER (0-3 USED) MASKWS EQU /3F WORK STATION NUMBER (1-32 USED) MASKLC EQU /3F LOGICAL CHANNEL (0-7 USED) * * * RETURN CODES * * AT REQUEST RETURN NOTOPR EQU /0001 NOT OPERABLE LINERR EQU /0004 LINK ERROR PLSERR EQU /0001 SOFTWARE ERROR * AT RECOVERY ENTRY RETCP EQU /0001 TC POWER UP RESECP EQU /0002 SECONDARY POWER UP RELINE EQU /0004 LINK ERROR * * * MISCELLANEOUS * PLCERR EQU /F1 SOP ERROR CODE AT TRAP CIDINT EQU 8 OFFSET TO INTERRUPT DESCRIPTOR MAXFR EQU 4 MAX OUTSTANDING FRAMES ON LEVEL 2 CHABLO EQU /80 FLAG CHANGED BLOCKING =16 * EJECT * ************** * DATA AREAS * ************** * * CWT ADDRESS TABLE * CWTPLC EQU * TABCWT EQU * IFF PLCNRL=0 DATA PL0CWT CWT FOR PLC NR 1 IFF PLCNRL=1 DATA PL1CWT CWT FOR PLC NR 2 IFF PLCNRL=2 DATA PL2CWT CWT FOR PLC NR 3 IFF PLCNRL=3 DATA PL3CWT CWT FOR PLC NR 4 XIF * IFF PLCNRL=4 DATA 0 PLC NR 4 NOT CONNECTED IFF PLCNRL=3 DATA 0 PLC NR 3 NOT CONNECTED IFF PLCNRL=2 DATA 0 PLC NR 2 NOT CONNECTED IFF PLCNRL=1 =5 DATA 0 PLC NR 1 NOT CONNECTED =5 XIF * IFF PLCNRR=0 DATA PR1CWT CWT FOR PLC NR. 5, REM. IFF PLCNRR=1 DATA PR2CWT CWT FOR PLC NR. 6, REM. IFF PLCNRR=2 DATA PR3CWT CWT FOR PLC NR. 7, REM. IFF PLCNRR=3 DATA PR4CWT CWT FOR PLC NR. 8, REM. XIF * IFF PLCNRR=4 DATA 0 PLC NR 8 NOT CONNECTED IFF PLCNRR=3 DATA 0 PLC NR 7 NOT CONNECTED IFF PLCNRR=2 DATA 0 PLC NR 6 NOT CONNECTED IFF PLCNRR=1 DATA 0 PLC NR 5 NOT CONNECTED XIF * EJECT * * OPARR1 EQU * IFF PLCNRR=0 U =5 DATA OPNR10 LINE 0 DATA OPNR11 LINE 1 DATA OPNR12 LINE 2 DATA OPNR13 LINE 3 XIF OPARR2 EQU * IFF PLCNRR=0 U =5 IFF PLCNRR=1 U =5 DATA OPNR20 LINE 0 DATA OPNR21 LINE 1 DATA OPNR22 LINE 2 DATA OPNR23 LINE 3 XIF OPARR3 EQU * IFF PLCNRR=0 U =5 IFF PLCNRR=1 U =5 IFF PLCNRR=2 U =5 DATA OPNR30 LINE 0 DATA OPNR31 LINE 1 DATA OPNR32 LINE 2 DATA OPNR33 LINE 3 XIF OPARR4 EQU * IFF PLCNRR=0 U =5 IFF PLCNRR=1 U =5 IFF PLCNRR=2 U =5 IFF PLCNRR=3 U =5 DATA OPNR40 LINE 0 DATA OPNR41 LINE 1 DATA OPNR42 LINE 2 DATA OPNR43 LINE 3 XIF * OPARL1 EQU * U =5 DATA OPNL10 LOCAL PLC 1 =5 OPARL2 EQU * U =5 DATA OPNL20 LOCAL PLC 2 =5 OPARL3 EQU * U =5 DATA OPNL30 LOCAL PLC 3 =5 OPARL4 EQU * U =5 DATA OPNL40 LOCAL PLC 4 =5 EJECT * * OPEN LINE PARAMETER AREAS, LOCAL * * STANDARD AREAS : * PRIMARY STATION * FULL DUPLEX * 96000 BITS/SEC * NO NRZI ENCODING * POLLING 24HZ U =8 * 5 RETRANSMISSIONS * 3 MIN. TIME OUT * * OPNL40 EQU * LOCAL PLC 4, LINE 0 IFF PLCNRL=0 IFF PLCNRL=1 IFF PLCNRL=2 IFF PLCNRL=3 DATA /0101,/A000,POLRTL,TIMACT,/0120,0 =8,=11 XIF OPNL30 EQU * LOCAL PLC 3, LINE 0 IFF PLCNRL=0 IFF PLCNRL=1 IFF PLCNRL=2 DATA /0101,/A000,POLRTL,TIMACT,/0120,0 =8,=11 XIF OPNL20 EQU * LOCAL PLC 2, LINE 0 IFF PLCNRL=0 IFF PLCNRL=1 DATA /0101,/A000,POLRTL,TIMACT,/0120,0 =8,=11 XIF OPNL10 EQU * LOCAL PLC 1, LINE 0 IFF PLCNRL=0 DATA /0101,/A000,POLRTL,TIMACT,/0120,0 =8,=11 XIF * * END OF LOCAL LINE PARAMETER AREAS * EJECT * * OPEN LINE PARAMETER AREAS, REMOTE * * STANDARD AREAS : * PRIMARY STATION * FULL DUPLEX * 2400 BITS/SEC * NO NRZI ENCODING * POLLING 13HZ * 5 RETRANSMISSIONS * 5 MIN. TIME OUT * * * REMOTE PLC 4 OPNR40 EQU * LINE 0 IFF PLCNRR=0 IFF PLCNRR=1 IFF PLCNRR=2 IFF PLCNRR=3 DATA /0103,/0400,POLRTR,TIMACT,/0108,0 =11 XIF OPNR41 EQU * LINE 1 IFF PLCNRR=0 IFF PLCNRR=1 IFF PLCNRR=2 IFF PLCNRR=3 DATA /0103,/0400,POLRTR,TIMACT,/0908,0 =11 XIF OPNR42 EQU * LINE 2 IFF PLCNRR=0 IFF PLCNRR=1 IFF PLCNRR=2 IFF PLCNRR=3 DATA /0103,/0400,POLRTR,TIMACT,/1108,0 =10,=11 XIF OPNR43 EQU * LINE 3 IFF PLCNRR=0 IFF PLCNRR=1 IFF PLCNRR=2 IFF PLCNRR=3 DATA /0103,/0400,POLRTR,TIMACT,/1908,0 =10,=11 XIF * REMOTE PLC 3 OPNR30 EQU * LINE 0 IFF PLCNRR=0 IFF PLCNRR=1 IFF PLCNRR=2 DATA /0103,/0400,POLRTR,TIMACT,/0108,0 =11 XIF OPNR31 EQU * LINE 1 IFF PLCNRR=0 IFF PLCNRR=1 IFF PLCNRR=2 DATA /0103,/0400,POLRTR,TIMACT,/0908,0 =11 XIF OPNR32 EQU * LINE 2 IFF PLCNRR=0 IFF PLCNRR=1 IFF PLCNRR=2 DATA /0103,/0400,POLRTR,TIMACT,/1108,0 =10,=11 XIF OPNR33 EQU * LINE 3 IFF PLCNRR=0 IFF PLCNRR=1 IFF PLCNRR=2 DATA /0103,/0400,POLRTR,TIMACT,/1908,0 =10,=11 XIF * * REMOTE PLC 2 OPNR20 EQU * LINE 0 IFF PLCNRR=0 IFF PLCNRR=1 DATA /0103,/0400,POLRTR,TIMACT,/0108,0 =11 XIF OPNR21 EQU * LINE 1 IFF PLCNRR=0 IFF PLCNRR=1 DATA /0103,/0400,POLRTR,TIMACT,/0908,0 =11 XIF OPNR22 EQU * LINE 2 IFF PLCNRR=0 IFF PLCNRR=1 DATA /0103,/0400,POLRTR,TIMACT,/1108,0 =10,=11 XIF OPNR23 EQU * LINE 3 IFF PLCNRR=0 IFF PLCNRR=1 DATA /0103,/0400,POLRTR,TIMACT,/1908,0 =10,=11 XIF * * REMOTE PLC 1 OPNR10 EQU * LINE 0 IFF PLCNRR=0 DATA /0103,/0400,POLRTR,TIMACT,/0108,0 =11 XIF OPNR11 EQU * LINE 1 IFF PLCNRR=0 DATA /0103,/0400,POLRTR,TIMACT,/0908,0 =11 XIF OPNR12 EQU * LINE 2 IFF PLCNRR=0 DATA /0103,/0400,POLRTR,TIMACT,/1108,0 =10,=11 XIF OPNR13 EQU * LINE 3 IFF PLCNRR=0 DATA /0103,/0400,POLRTR,TIMACT,/1908,0 =10,=11 XIF * END OF REMOTE LINE PARAMETER AREAS * * PLCPFP DATA 0 PLC LOCAL POWER FAIL FLAG * IFF UTTEST=0 TEST VERSION OF DRIVER * EJECT * UTTST DATA UTTEST 1 = TRAP NOT USED * * * QUEUE STATISTICS COUNTERS * EACH COUNTER HAS ONE WORD / PLC * STATAR EQU * WIQSTA RES 8 WINDOW QUEUE SBQSTA RES 8 SHORT BUFFERS QUEUE LBQSTA RES 8 LONG BUFFERS QUEUE CCQSTA RES 8 CCA QUEUE STATLN EQU *-STATAR TABLE LENGTH * XIF EJECT * * * CWT DISPLACEMENTS * CWTOPR EQU /00 CU OPERABLE CWTCCB EQU /02 CCA BUSY CWTGR EQU /04 GENERAL READ ALLOWED CWTPNR EQU /06 CU NUMBER (0-7) CWTABW EQU /08 WS TO ABORT CWTPLS EQU /0A LATEST PLC RCA STATUS CWTLNO EQU /0C LINE NO INDICATOR CWTPAR EQU /0E INDEX TO PARAMETER AREA CWTOPP EQU /10 OPEN LINE PARAMETER AREA ADDRESS =2 CWTINT EQU /12 WS TABLE ADDRESS CWTBUF EQU /14 INP. BUFFER ADDRESS CWTSBQ EQU /16 QUEUE FOR SHORT OUTP. BUFFERS CWTLBQ EQU /18 QUEUE FOR LONG OUTP. BUFFERS CWTCCQ EQU /1A QUEUE FOR CCA FREE CWTMBQ EQU /1C QUEUE OF ALLOCATED MON. BLOCKS CWTTPR EQU /1E TIMER POINTER CWTCIO EQU /20 CIO START INSTR. CWTST3 EQU /22 SST INSTR. CWTCSD EQU /24 CTRL UNIT START DESCRIPTOR CWTCID EQU /2A CTRL UNIT INTERF. DESCR. CWTCCA EQU /34 COMMAND CTRL AREA CWTRCA EQU /44 RESPONSE CTRL AREA CWTPBS EQU /54 POOLBL. SHORT OUTP. BUFFERS CWTPBL EQU /5E POOLBL. LONG OUTP. BUFFERS =2 CWTPBG EQU /68 POOLBL. GENERAL READ BUFFERS CWTWSS EQU /72 WS STATUS CWTSOB EQU MAXWS+MAXWS+/74 SH. OUTP. BUFFERS =4 CWTLB1 EQU CWTSOB+SOBUFS U =7 CWTLOB EQU CWTLB1+SOBUFS LONG OUTP. BUFFERS =7 CWTGR1 EQU CWTLOB+LOBUFS U =7 CWTGRB EQU CWTGR1+LOBUFS GEN. READ BUFFERS =7 EJECT * IFF PLCNRL=0 * CWT FOR PLC NUMBER 1 * PL0CWT EQU * * * FLAGS RES 1 PLC OPERABLE FLAG DATA 0 CCA BUSY FLAG (0=FREE) DATA 1 GENERAL READ ALLOWED (0=ALLOWED) * * DATA WORDS DATA 0 PLC NUMBER (0-3) DATA 0 WORK STATION TO ABORT (0=NO ABORT) DATA 0 LATEST PLC RCA STATUS DATA 0 LINE NO INDICATOR DATA 0 INDEX PARAMETER AREA * * POINTERS AND QUEUE HEADS DATA OPARL1 OPEN LINE PARAMETER AREA ADDR DATA INTPL1 WORK STATION TABLE ADDRESS DATA 0 INPUT BUFFER ADDRESS DATA 0 QUEUE FOR SHORT OUTPUT BUFFER DATA 0 QUEUE FOR LONG OUTPUT BUFFER DATA 0 QUEUE FOR CCA FREE DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS DATA 0 TIMER POINTER FOR RESTART DELAY * * INSTRUCTIONS CIO A3,1,PLCDA0 START I/O OPERATION SST A3,PLCDA0 RELEASE RCA AND RESET INTERRUPT * * PLC CONTROL AREAS * CONTROL UNIT START DESCRIPTOR (3 WORDS) DATA 0 DUMMY & MSB ADDRESS DATA PL0CWT+CWTCID CID ADDRESS DATA INTLV0 INTERRUPT LEVEL * CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) DATA 0 DUMMY & MSB ADDRESS DATA PL0CWT+CWTCCA CCA ADDRESS DATA 0 DUMMY & MSB ADDRESS DATA PL0CWT+CWTRCA RCA ADDRESS DATA 0 INTERRUPT SPECIFICATION RES 8 COMMAND CONTROL AREA RES 8 RESPONSE CONTROL AREA * * POOLBLOCKS DATA 'SO',0 ID & FLAGS DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH DATA SOBUFS+SOBUFS AREA LENGTH DATA 'LO',0 DATA 0,LOBUF1+LOBUF1 DATA LOBUFS+LOBUFS DATA 'GR',0 DATA 0,GRBUF1+GRBUF1 DATA GRBUFS+GRBUFS * * WORK STATION STATUS WORDS. 1 WORD / WS RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. * * BUFFER AREAS RES SOBUFS SHORT OUTPUT BUFFERS RES LOBUFS LONG OUTPUT BUFFERS RES GRBUFS GENERAL READ BUFFERS * * XIF IFF PLCNRL=1 * EJECT * * CWT FOR PLC NUMBER 2 * PL1CWT EQU * * * FLAGS RES 1 PLC OPERABLE FLAG DATA 0 CCA BUSY FLAG (0=FREE) DATA 1 GENERAL READ ALLOWED (0=ALLOWED) * * DATA WORDS DATA 1 PLC NUMBER (0-3) DATA 0 WORK STATION TO ABORT (0=NO ABORT) DATA 0 LATEST PLC RCA STATUS DATA 0 LINE NO INDICATOR DATA 0 INDEX TO PARAMETER AREA * * POINTERS AND QUEUE HEADS DATA OPARL2 OPEN LINE PARAMETER AREA ADDR DATA INTPL2 WORK STATION TABLE ADDRESS DATA 0 INPUT BUFFER ADDRESS DATA 0 QUEUE FOR SHORT OUTPUT BUFFER DATA 0 QUEUE FOR LONG OUTPUT BUFFER DATA 0 QUEUE FOR CCA FREE DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS DATA 0 TIMER POINTER FOR RESTART DELAY * * INSTRUCTIONS CIO A3,1,PLCDA1 START I/O OPERATION SST A3,PLCDA1 RELEASE RCA AND RESET INTERRUPT * * PLC CONTROL AREAS * CONTROL UNIT START DESCRIPTOR (3 WORDS) DATA 0 DUMMY & MSB ADDRESS DATA PL1CWT+CWTCID CID ADDRESS DATA INTLV1 INTERRUPT LEVEL * CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) DATA 0 DUMMY & MSB ADDRESS DATA PL1CWT+CWTCCA CCA ADDRESS DATA 0 DUMMY & MSB ADDRESS DATA PL1CWT+CWTRCA RCA ADDRESS DATA 0 INTERRUPT SPECIFICATION RES 8 COMMAND CONTROL AREA RES 8 RESPONSE CONTROL AREA * * POOLBLOCKS (5 WORDS / BLOCK) DATA 'SO',0 ID = "SHORT OUTPUT" & FLAGS DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH DATA SOBUFS+SOBUFS AREA LENGTH DATA 'LO',0 ID = "LONG OUTPUT" DATA 0,LOBUF1+LOBUF1 DATA LOBUFS+LOBUFS DATA 'GR',0 ID = "GENERAL READ" DATA 0,GRBUF1+GRBUF1 DATA GRBUFS+GRBUFS * * WORK STATION STATUS WORDS. 1 WORD / WS RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. * * BUFFER AREAS RES SOBUFS SHORT OUTPUT BUFFERS RES LOBUFS LONG OUTPUT BUFFERS RES GRBUFS GENERAL READ BUFFERS * * IFF PLCNRL=2 * EJECT * * CWT FOR PLC NUMBER 3 * PL2CWT EQU * * * FLAGS RES 1 PLC OPERABLE FLAG DATA 0 CCA BUSY FLAG (0=FREE) DATA 1 GENERAL READ ALLOWED (0=ALLOWED) * * DATA WORDS DATA 2 PLC NUMBER (0-3) DATA 0 WORK STATION TO ABORT (0=NO ABORT) DATA 0 LATEST PLC RCA STATUS DATA 0 LINE NO INDICATOR DATA 0 INDEX TO PARAMETER AREA * * POINTERS AND QUEUE HEADS DATA OPARL3 OPEN LINE PARAMETER AREA ADDR DATA INTPL3 WORK STATION TABLE ADDRESS DATA 0 INPUT BUFFER ADDRESS DATA 0 QUEUE FOR SHORT OUTPUT BUFFER DATA 0 QUEUE FOR LONG OUTPUT BUFFER DATA 0 QUEUE FOR CCA FREE DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS DATA 0 TIMER POINTER FOR RESTART DELAY * * INSTRUCTIONS CIO A3,1,PLCDA2 START I/O OPERATION SST A3,PLCDA2 RELEASE RCA AND RESET INTERRUPT * * PLC CONTROL AREAS * CONTROL UNIT START DESCRIPTOR (3 WORDS) DATA 0 DUMMY & MSB ADDRESS DATA PL2CWT+CWTCID CID ADDRESS DATA INTLV2 INTERRUPT LEVEL * CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) DATA 0 DUMMY & MSB ADDRESS DATA PL2CWT+CWTCCA CCA ADDRESS DATA 0 DUMMY & MSB ADDRESS DATA PL2CWT+CWTRCA RCA ADDRESS DATA 0 INTERRUPT SPECIFICATION RES 8 COMMAND CONTROL AREA RES 8 RESPONSE CONTROL AREA * * POOLBLOCKS (5 WORDS / BLOCK) DATA 'SO',0 ID = "SHORT OUTPUT" & FLAGS DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH DATA SOBUFS+SOBUFS AREA LENGTH DATA 'LO',0 ID = "LONG OUTPUT" DATA 0,LOBUF1+LOBUF1 DATA LOBUFS+LOBUFS DATA 'GR',0 ID = "GENERAL READ" DATA 0,GRBUF1+GRBUF1 DATA GRBUFS+GRBUFS * * WORK STATION STATUS WORDS. 1 WORD / WS RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. * * BUFFER AREAS RES SOBUFS SHORT OUTPUT BUFFERS RES LOBUFS LONG OUTPUT BUFFERS RES GRBUFS GENERAL READ BUFFERS * * IFF PLCNRL=3 * EJECT * * CWT FOR PLC NUMBER 4 * PL3CWT EQU * * * FLAGS RES 1 PLC OPERABLE FLAG DATA 0 CCA BUSY FLAG (0=FREE) DATA 1 GENERAL READ ALLOWED (0=ALLOWED) * * DATA WORDS DATA 3 PLC NUMBER (0-3) DATA 0 WORK STATION TO ABORT (0=NO ABORT) DATA 0 LATEST PLC RCA STATUS DATA 0 LINE NO INDICATOR DATA 0 INDEX TO PARAMETER AREA * * POINTERS AND QUEUE HEADS DATA OPARL4 OPEN LINE PARAMETER AREA ADDR DATA INTPL4 WORK STATION TABLE ADDRESS DATA 0 INPUT BUFFER ADDRESS DATA 0 QUEUE FOR SHORT OUTPUT BUFFER DATA 0 QUEUE FOR LONG OUTPUT BUFFER DATA 0 QUEUE FOR CCA FREE DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS DATA 0 TIMER POINTER FOR RESTART DELAY * * INSTRUCTIONS CIO A3,1,PLCDA3 START I/O OPERATION SST A3,PLCDA3 RELEASE RCA AND RESET INTERRUPT * * PLC CONTROL AREAS * CONTROL UNIT START DESCRIPTOR (3 WORDS) DATA 0 DUMMY & MSB ADDRESS DATA PL3CWT+CWTCID CID ADDRESS DATA INTLV3 INTERRUPT LEVEL * CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) DATA 0 DUMMY & MSB ADDRESS DATA PL3CWT+CWTCCA CCA ADDRESS DATA 0 DUMMY & MSB ADDRESS DATA PL3CWT+CWTRCA RCA ADDRESS DATA 0 INTERRUPT SPECIFICATION RES 8 COMMAND CONTROL AREA RES 8 RESPONSE CONTROL AREA * * POOLBLOCKS (5 WORDS / BLOCK) DATA 'SO',0 ID = "SHORT OUTPUT" & FLAGS DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH DATA SOBUFS+SOBUFS AREA LENGTH DATA 'LO',0 ID = "LONG OUTPUT" DATA 0,LOBUF1+LOBUF1 DATA LOBUFS+LOBUFS DATA 'GR',0 ID = "GENERAL READ" DATA 0,GRBUF1+GRBUF1 DATA GRBUFS+GRBUFS * * WORK STATION STATUS WORDS. 1 WORD / WS RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. * * BUFFER AREAS RES SOBUFS SHORT OUTPUT BUFFERS RES LOBUFS LONG OUTPUT BUFFERS RES GRBUFS GENERAL READ BUFFERS XIF * EJECT IFF PLCNRR=0 * * CWT FOR PLC NUMBER 5 REMOTE * PR1CWT EQU * * * FLAGS RES 1 PLC OPERABLE FLAG DATA 0 CCA BUSY FLAG (0=FREE) DATA 1 GENERAL READ ALLOWED (0=ALLOWED) * * DATA WORDS DATA 4 PLC NUMBER (4-7) =5 DATA 0 WORK STATION TO ABORT (0=NO ABORT) DATA 0 LATEST PLC RCA STATUS DATA 0 LINE NO INDICATOR DATA 0 INDEX TO PARAMETER AREAS * * POINTERS AND QUEUE HEADS DATA OPARR1 OPEN LINE PARAMETER AREA ADDRESSES DATA INTPR1 WORK STATION TABLE ADDRESS DATA 0 INPUT BUFFER ADDRESS DATA 0 QUEUE FOR SHORT OUTPUT BUFFER DATA 0 QUEUE FOR LONG OUTPUT BUFFER DATA 0 QUEUE FOR CCA FREE DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS DATA 0 TIMER POINTER FOR RESTART DELAY * * INSTRUCTIONS CIO A3,1,PLCDA4 START I/O OPERATION SST A3,PLCDA4 RELEASE RCA AND RESET INTERRUPT * * PLC CONTROL AREAS * CONTROL UNIT START DESCRIPTOR (3 WORDS) DATA 0 DUMMY & MSB ADDRESS DATA PR1CWT+CWTCID CID ADDRESS DATA INTRV0 INTERRUPT LEVEL * CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) DATA 0 DUMMY & MSB ADDRESS DATA PR1CWT+CWTCCA CCA ADDRESS DATA 0 DUMMY & MSB ADDRESS DATA PR1CWT+CWTRCA RCA ADDRESS DATA 0 INTERRUPT SPECIFICATION RES 8 COMMAND CONTROL AREA RES 8 RESPONSE CONTROL AREA * * POOLBLOCKS (5 WORDS / BLOCK) DATA 'SO',0 ID = "SHORT OUTPUT" & FLAGS DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH DATA SOBUFS+SOBUFS AREA LENGTH DATA 'LO',0 ID = "LONG OUTPUT" DATA 0,LOBUF1+LOBUF1 DATA LOBUFS+LOBUFS DATA 'GR',0 ID = "GENERAL READ" DATA 0,GRBUF1+GRBUF1 DATA GRBUFS+GRBUFS * * WORK STATION STATUS WORDS. 1 WORD / WS RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. * * BUFFER AREAS RES SOBUFS SHORT OUTPUT BUFFERS RES LOBUFS LONG OUTPUT BUFFERS RES GRBUFS GENERAL READ BUFFERS * * EJECT IFF PLCNRR=1 * * CWT FOR PLC NUMBER 6 REMOTE * PR2CWT EQU * * * FLAGS RES 1 PLC OPERABLE FLAG DATA 0 CCA BUSY FLAG (0=FREE) DATA 1 GENERAL READ ALLOWED (0=ALLOWED) * * DATA WORDS DATA 5 PLC NUMBER (4-7) =5 DATA 0 WORK STATION TO ABORT (0=NO ABORT) DATA 0 LATEST PLC RCA STATUS DATA 0 LINE NO INDICATOR =5 DATA 0 INDEX TO PARAMETER AREAS =5 * * POINTERS AND QUEUE HEADS DATA OPARR2 OPEN LINE PARAMETER AREA ADDRESSES DATA INTPR2 WORK STATION TABLE ADDRESS DATA 0 INPUT BUFFER ADDRESS DATA 0 QUEUE FOR SHORT OUTPUT BUFFER DATA 0 QUEUE FOR LONG OUTPUT BUFFER DATA 0 QUEUE FOR CCA FREE DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS DATA 0 TIMER POINTER FOR RESTART DELAY * * INSTRUCTIONS CIO A3,1,PLCDA5 START I/O OPERATION SST A3,PLCDA5 RELEASE RCA AND RESET INTERRUPT * * PLC CONTROL AREAS * CONTROL UNIT START DESCRIPTOR (3 WORDS) DATA 0 DUMMY & MSB ADDRESS DATA PR2CWT+CWTCID CID ADDRESS DATA INTRV1 INTERRUPT LEVEL * CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) DATA 0 DUMMY & MSB ADDRESS DATA PR2CWT+CWTCCA CCA ADDRESS DATA 0 DUMMY & MSB ADDRESS DATA PR2CWT+CWTRCA RCA ADDRESS DATA 0 INTERRUPT SPECIFICATION RES 8 COMMAND CONTROL AREA RES 8 RESPONSE CONTROL AREA * * POOLBLOCKS (5 WORDS / BLOCK) DATA 'SO',0 ID = "SHORT OUTPUT" & FLAGS DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH DATA SOBUFS+SOBUFS AREA LENGTH DATA 'LO',0 ID = "LONG OUTPUT" DATA 0,LOBUF1+LOBUF1 DATA LOBUFS+LOBUFS DATA 'GR',0 ID = "GENERAL READ" DATA 0,GRBUF1+GRBUF1 DATA GRBUFS+GRBUFS * * WORK STATION STATUS WORDS. 1 WORD / WS RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. * * BUFFER AREAS RES SOBUFS SHORT OUTPUT BUFFERS RES LOBUFS LONG OUTPUT BUFFERS RES GRBUFS GENERAL READ BUFFERS * * EJECT IFF PLCNRR=2 * * CWT FOR PLC NUMBER 7 REMOTE * PR3CWT EQU * * * FLAGS RES 1 PLC OPERABLE FLAG DATA 0 CCA BUSY FLAG (0=FREE) DATA 1 GENERAL READ ALLOWED (0=ALLOWED) * * DATA WORDS DATA 6 PLC NUMBER (4-7) =5 DATA 0 WORK STATION TO ABORT (0=NO ABORT) DATA 0 LATEST PLC RCA STATUS DATA 0 LINE NO INDICATOR DATA 0 INDEX TO PARAMETER AREAS * * POINTERS AND QUEUE HEADS DATA OPARR3 OPEN LINE PARAMETER AREA ADDRESSES DATA INTPR3 WORK STATION TABLE ADDRESS DATA 0 INPUT BUFFER ADDRESS DATA 0 QUEUE FOR SHORT OUTPUT BUFFER DATA 0 QUEUE FOR LONG OUTPUT BUFFER DATA 0 QUEUE FOR CCA FREE DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS DATA 0 TIMER POINTER FOR RESTART DELAY * * INSTRUCTIONS CIO A3,1,PLCDA6 START I/O OPERATION SST A3,PLCDA6 RELEASE RCA AND RESET INTERRUPT * * PLC CONTROL AREAS * CONTROL UNIT START DESCRIPTOR (3 WORDS) DATA 0 DUMMY & MSB ADDRESS DATA PR3CWT+CWTCID CID ADDRESS DATA INTRV2 INTERRUPT LEVEL * CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) DATA 0 DUMMY & MSB ADDRESS DATA PR3CWT+CWTCCA CCA ADDRESS DATA 0 DUMMY & MSB ADDRESS DATA PR3CWT+CWTRCA RCA ADDRESS DATA 0 INTERRUPT SPECIFICATION RES 8 COMMAND CONTROL AREA RES 8 RESPONSE CONTROL AREA * * POOLBLOCKS (5 WORDS / BLOCK) DATA 'SO',0 ID = "SHORT OUTPUT" & FLAGS DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH DATA SOBUFS+SOBUFS AREA LENGTH DATA 'LO',0 ID = "LONG OUTPUT" DATA 0,LOBUF1+LOBUF1 DATA LOBUFS+LOBUFS DATA 'GR',0 ID = "GENERAL READ" DATA 0,GRBUF1+GRBUF1 DATA GRBUFS+GRBUFS * * WORK STATION STATUS WORDS. 1 WORD / WS RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. * * BUFFER AREAS RES SOBUFS SHORT OUTPUT BUFFERS RES LOBUFS LONG OUTPUT BUFFERS RES GRBUFS GENERAL READ BUFFERS * * EJECT IFF PLCNRR=3 * * CWT FOR PLC NUMBER 8 REMOTE * PR4CWT EQU * * * FLAGS RES 1 PLC OPERABLE FLAG DATA 0 CCA BUSY FLAG (0=FREE) DATA 1 GENERAL READ ALLOWED (0=ALLOWED) * * DATA WORDS DATA 7 PLC NUMBER (4-7) =5 DATA 0 WORK STATION TO ABORT (0=NO ABORT) DATA 0 LATEST PLC RCA STATUS DATA 0 LINE NO INDICATOR DATA 0 INDEX TO PARAMETER AREAS * * POINTERS AND QUEUE HEADS DATA OPARR4 OPEN LINE PARAMETER AREA ADDRESSES DATA INTPR4 WORK STATION TABLE ADDRESS DATA 0 INPUT BUFFER ADDRESS DATA 0 QUEUE FOR SHORT OUTPUT BUFFER DATA 0 QUEUE FOR LONG OUTPUT BUFFER DATA 0 QUEUE FOR CCA FREE DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS DATA 0 TIMER POINTER FOR RESTART DELAY * * INSTRUCTIONS CIO A3,1,PLCDA7 START I/O OPERATION SST A3,PLCDA7 RELEASE RCA AND RESET INTERRUPT * * PLC CONTROL AREAS * CONTROL UNIT START DESCRIPTOR (3 WORDS) DATA 0 DUMMY & MSB ADDRESS DATA PR4CWT+CWTCID CID ADDRESS DATA INTRV3 INTERRUPT LEVEL * CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) DATA 0 DUMMY & MSB ADDRESS DATA PR4CWT+CWTCCA CCA ADDRESS DATA 0 DUMMY & MSB ADDRESS DATA PR4CWT+CWTRCA RCA ADDRESS DATA 0 INTERRUPT SPECIFICATION RES 8 COMMAND CONTROL AREA RES 8 RESPONSE CONTROL AREA * * POOLBLOCKS (5 WORDS / BLOCK) DATA 'SO',0 ID = "SHORT OUTPUT" & FLAGS DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH DATA SOBUFS+SOBUFS AREA LENGTH DATA 'LO',0 ID = "LONG OUTPUT" DATA 0,LOBUF1+LOBUF1 DATA LOBUFS+LOBUFS DATA 'GR',0 ID = "GENERAL READ" DATA 0,GRBUF1+GRBUF1 DATA GRBUFS+GRBUFS * * WORK STATION STATUS WORDS. 1 WORD / WS RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. * * BUFFER AREAS RES SOBUFS SHORT OUTPUT BUFFERS RES LOBUFS LONG OUTPUT BUFFERS RES GRBUFS GENERAL READ BUFFERS * * XIF EJECT * * I/O COMPLETION DISPATCH TABLE * * THE MOST FREQUENTLY USED ROUTINES ARE PLACED * AT THE END OF THE TABLE, AS IT IS SCANNED * FROM THE END. * CMDTAB EQU * DATA CMDTC COMMAND CODE "TEST CHANNEL UNIT" DATA COMPTC START OF "TEST CU" COMPLETION ROUTINE DATA 0 ALLOWED STATUS FOR "TEST CU" COMMAND CMDTB1 EQU *-CMDTAB LENGTH OF ONE ENTRY DATA CMDOP OPEN LINE DATA COMPOP DATA 0 DATA CMDOD OPEN DLS DATA COMPOD DATA STADNO+STANOC IFT PLCTST=1 DATA CMDPS GET LINE STATISTICS DATA COMPPS STAE2 EQU STAREQ+STAILL DUMMY STAE3 EQU STASEQ+STANOB DUMMY DATA STAE2+STAE3 DATA CMDDS GET DLS STATISTICS DATA COMPDS DATA STAE2+STAE3 DATA CMDRM READ LOCAL MEMORY DATA COMPRM DATA STAE2 * EJECT * XIF DATA CMDSW STANDARD WRITE DATA COMPSW DATA STAERR DATA CMDFW FAST WRITE DATA COMPFW DATA STAERR DATA CMDGR GENERAL READ DATA COMPGR DATA 0 CMDTBL EQU *-CMDTAB TABLE LENGTH * EJECT * * READ COMPLETION DISPATCH TABLE * * THIS TABLE IS INDEXED BY THE "MESSAGE TYPE" * CONSTANTS DEFINED ABOVE. REAROU EQU * DATA GRERR1 ERROR ROUTINE DATA GRERR1 DATA PACKET NO FLOW C. (NOT IMPLEM.) DATA GRSTAT DEVICE STATUS DATA PACKET DATA GRDATA NORMAL DATA PACKET DATA GRRR RECIEVE READY PACKET DATA GRRES RESET PACKET DATA GRERR1 RESET CONFIRM. PACKET (NOT IMPLEM.) * * * WRITE COMPLETION DISPATCH TABLE * * THIS TABLE IS INDEXED BY THE "MESSAGE TYPE" * CONSTANTS DEFINED ABOVE. WRIROU EQU * DATA WRERR ERROR ROUTINE DATA WRNFLO DATA PACKET WITHOUT FLOW CONTROL DATA WRERR DEVICE STATUS DATA (NOT RELEVANT) DATA WRDATA NORMAL DATA PACKET DATA WRRR RECIEVE READY PACKET DATA WRERR RESET PACKET (NOT IMPLEMENTED) DATA WRRESC RESET CONFIRMATION PACKET * EJECT * ******************** * REQUEST ROUTINES * ******************** * * THIS SECTION CONTAINS REQUEST HANDLING ROUTINES. * THE REQUEST ROUTINES ARE CALLED FROM TERMINAL * DEVICE DRIVERS. THIS IS NORMALLY DONE THROUGH * THE TERMINAL NETWORK DISTRIBUTOR DRIVER (DRND01). * THE DISTRIBUTOR DRIVER WILL SWITCH CALL TO * CONNECTED LINE DRIVER. RETURN IS MADE DIRECTLY * FROM THIS DRIVER TO TERMINAL DEVICE DRIVER. * A CALL WILL NORMALLY RESULT IN A WAIT FOR SOME * I/O ACTION AND DISPATCHING. THIS MEANS, THAT AT * TIME OF CALL THE DEVICE DRIVER MAY NOT HAVE ANY * DATA ON THE A15 STACK. * * ROUTINES IN ORDER OF APPEARANCE IN CODE: * * NAME FUNCTION * * PLCHRI INPUT OF ONE CHARACTER * PLSTBL DEFINE START OF OUTPUT BLOCK * PLCHRO OUTPUT OF ONE CHARACTER * PLENBL DEFINE END OF OUTPUT BLOCK * PLTEST PERFORM PLC TEST FUNCTION * EJECT * ************************************************************ * * ROUTINE NAME: * PLCHRI * * FUNCTION: * THIS ROUTINE FETCHES ONE CHARACTER FROM THE * INPUT BUFFER. IF NO BUFFER HAS ARRIVED, "INPUT * REQUESTED" FLAG IN DWT IS SET, AND CALLING * PROCESS IS SUSPENDED UNTIL A BUFFER ARRIVES. * * CALL: * ABI INPTAB,A1 * CF A5,PLCHRI * * INPUT: * A6 = DWT ADDRESS * * OUTPUT: * AT RETURN TO DEVICE DRIVER * A1 = BITS 0-14 CHANGED * BIT 15 1 IF MORE CHAR IN BUFFER * A2 = BITS 0-7 ZERO * BITS 8-15 CHARACTER * INTERR. ENABLED * ************************************************************ * PLCHRI EQU * PRCHRI EQU * STR A4,A15 PUSH A4 LD A4,DWTLD1,A6 INPUT TEXT WAITING? RF(Z) CI100 NO, WAIT FOR TEXT * EJECT * CF A15,PLGECH GET CHARACTER FROM BUFFER LDR A1,A1 CHECK RETURN STATUS RF(N) CI100 BUFFER EMPTY, WAIT FOR NEXT LDR* A4,A15 POP A4 RF CI110 RETURN TO DEVICE DRIVER * * CI100 EQU * LDR* A4,A15 POP A4 LDK A2,DWFINP FLAG "INPUT REQUESTED" ORS A2,DWTST,A6 SET INPUT REQUESTED IN DWT CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT ABL PLDISP LOCAL DISPATCHER * * * ENTRY IS MADE HERE WHEN A NEW BUFFER HAS ARRIVED * REGISTERS ON ENTRY: * A1 = NR OF CHARACTERS LEFT IN BUFFER * A2 = BITS 0-7 ZERO * BITS 8-15 CHARACTER * A4 = BUFFER ADDRESS * A6 = DWT ADDRESS * INPRST EQU * LDKL A3,/FFFF-DWFINP MASK FOR INPUT REQUESTED ANS A3,DWTST,A6 RESET FLAG ST A4,DWTLD1,A6 LINK BUFFER TO DWT * CF A15,NDGET8 GET A3-A5, A7-A8 FROM DWT * EJECT * CI110 EQU * * RETURN TO DEVICE DRIVER LDR A1,A1 ANY CHAR LEFT IN BUFFER? RF(Z) CI120 NO, CONTINUE LDK A1,1 INDICATE MORE CHARACTERS RF CI130 * CI120 EQU * CM DWTLD1,A6 UNLINK BUFFER CI130 EQU * ENB RTN A5 * EJECT * ************************************************************ * * ROUTINE NAME: * PLSTBL * * FUNCTION: * THIS ROUTINE DEFINES START OF AN OUTPUT BLOCK. * IT ALLOCATES AN OUTPUT BUFFER, AND LINKS IT * TO THE DWT. * * CALL: * ABI STBTAB,A1 * CF A5,PLSTBL * * INPUT: * A2 = MAXIMAL LENGTH OF TEXT IN BLOCK (BYTES) * A6 = DWT ADDRESS * * OUTPUT: * AT RETURN TO DEVICE DRIVER * A1 = RETURN CODE * 0 IF OK * NOT 0 IF ERROR * A2 = DEVICE STATUS (IF RELEVANT, IE A1=0) * CR = CONTENTS OF A1 * INTERR. ENABLED * ************************************************************ * PLSTBL EQU * PRSTBL EQU * ENB CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT CF A15,GETCWT A5 := CWT ADDRESS * EJECT * SB050 EQU * . =16 LD A1,DWTLD1,A6 BUFFER ALREADY ALLOCATED? ABL(NZ) NDREPO YES, SET OK & RETURN CF A15,GETLCS A1 := STATUS & INH RF(NZ) SBERR2 ERROR, RETURN LD A3,DWTCHP,A6 CHANNEL PARAMETERS =16 ANK A3,CHABLO CHANGED BLOCKING? =16 RF(Z) SB070 NO =16 LDKL A2,LOBUFL LOAD MAX BLOCK LENGTH =16 SB070 EQU * . =16 * * CHECK LEVEL 3 WINDOW LDR A3,A2 SAVE MAX BLOCK LENGTH LD A1,DWTST,A6 DWT STATUS ANKL A1,DWFECH+DWFTY1 ECHO OR ONLY TYPE 1? RF(NZ) SB090 YES, DON'T CHECK WINDOW CF A15,GETOFR A2 := NR OF OUTSTANDING FRAMES LDR A2,A2 ANY FRAMES OUTSTANDING? RF(Z) SB090 NO, CONTINUE LD A1,DWTST,A6 DWT STATUS ANK A1,DWFSAC ALWAYS WAIT FOR LEVEL 3 ACK? RF(NZ) SBERR YES, NO FRAMES MAY BE OUT. ERROR SUK A2,WINDOW WINDOW FULL? RF(N) SB090 NO, CONTINUE * DWT WILL HAVE TO WAIT UNTIL WINDOW IS OPEN ST A3,DWTLD1,A6 SAVE REQUESTED BUFFER LENGTH LDK A1,DWFAK3 FLAG "WAITING FOR LEVEL 3 ACK" ORS A1,DWTST,A6 SET FLAG IN DWT STATUS IFF UTTEST=0 QUEUE STATISTICS LD A1,CWTPNR,A5 PLC NUMBER SLA A1,1 MAKE INDEX IM WIQSTA,A1 INCREMENT QUEUE STATISTICS COUNTER XIF ABL PLDSP2 LOCAL DISPATCHER * * * ENTRY IS MADE HERE WHEN WINDOW IS OPEN AGAIN * (AFTER A LEVEL 3 ACK) * REGISTER CONTENTS ON ENTRY: * A1 = RETURN CODE * A5 = CWT ADDRESS * A6 = DWT ADDRESS * WINRST EQU * LD A3,DWTLD1,A6 RESTORE REQUESTED BUFFER LENGTH CM DWTLD1,A6 LDR A1,A1 RETURN CODE RF(NZ) SBERR2 ERROR, RETURN TO DEVICE DRIVER * * SB090 EQU * LDR A7,A5 CWK A3,SOBUFL SHORT BUFFER ENOUGH? RF(G) SB100 NO, TAKE LONG BUFFER * * ALLOCATE SHORT OUTPUT BUFFER ADK A7,CWTPBS POOLBLOCK FOR SHORT BUFFERS CF A15,PLGTBU ALLOCATE BUFFER RF(NZ) SB120 COMMON PART FOR SHORT/LONG LDK A7,CWTSBQ NO BUFFER LEFT. SET QUEUE HEAD IFF UTTEST=0 QUEUE STATISTICS LD A1,CWTPNR,A5 PLC NUMBER SLA A1,1 MAKE INDEX IM SBQSTA,A1 INCREMENT QUEUE STATISTICS COUNTER XIF RF SB110 COMMON PART FOR NO BUFFER * SB100 EQU * CWK A3,LOBUFL LONG BUFFER ENOUGH? RF(G) SBERR NO, ERROR * ALLOCATE LONG OUTPUT BUFFER ADK A7,CWTPBL POOLBLOCK FOR LONG BUFFERS CF A15,PLGTBU ALLOCATE BUFFER RF(NZ) SB120 COMMON PART FOR SHORT/LONG LDK A7,CWTLBQ NO BUFFER LEFT. SET QUEUE HEAD IFF UTTEST=0 QUEUE STATISTICS LD A1,CWTPNR,A5 PLC NUMBER SLA A1,1 MAKE INDEX IM LBQSTA,A1 INCREMENT QUEUE STATISTICS COUNTER XIF * SB110 EQU * * NO BUFFER WAS AVAILABLE. PUT REQUEST IN QUEUE. ADR A7,A5 A7 := QUEUE HEAD ADDRESS LDR A4,A6 DWT ADDRESS ADKL A4,DWTOTQ QUEUE LINK ADDRESS CF A15,LNKLST PUT LAST IN QUEUE ABL PLDSP2 LOCAL DISPATCHER * * * ENTRY IS MADE HERE WHEN A BUFFER IS FREE * REGISTERS ON ENTRY: * A1 = RETURN CODE * A4 = BUFFER ADDRESS (IF A1=0) * A5 = CWT ADDRESS * A6 = DWT ADDRESS * BUFRST EQU * LDR A1,A1 RETURN CODE RF(NZ) SBERR2 RETURN IF ERROR SB120 EQU * LDK A2,X25DAT LENGTH OF X25 HEADER ST A2,BUFBIX,A4 BYTE INDEX := START OF DATA ST A4,DWTLD1,A6 SAVE BUFFER ADDRESS IN DWT * ABL NDREPO RETURN TO DEVICE DRIVER * RETURN CODE := OK * * SBERR EQU * LDK A1,PLSERR RET CODE := SW ERROR SBERR2 EQU * LDK A2,0 RESET DEVICE STATUS ABL NDREP RETURN TO DEVICE DRIVER * EJECT * ************************************************************ * * ROUTINE NAME: * PLCHRO * * FUNCTION: * THIS ROUTINE WRITES ONE CHARACTER TO OUTPUT BUFFER. * * CALL: * ABI OUPTAB,A1 * CF A5,PLCHRO * * INPUT: * A2 = BITS 0-7 IRRELEVANT * BITS 8-15 CHARACTER * A6 = DWT ADDRESS * * OUTPUT: * AT RETURN TO DEVICE DRIVER * A1 = RETURN CODE * 0 IF OK * NOT 0 IF ERROR * A2 = DEVICE STATUS (IF RELEVANT, IE A1=0) * CR = CONTENTS OF A1 * INTERR. ENABLED * ************************************************************ * PLCHRO EQU * PRCHRO EQU * ENB * EJECT * STR A4,A15 PUSH A4 LD A4,DWTLD1,A6 BUFFER ADDRESS RF(Z) COERR2 ERROR IF NO BUFFER CF A15,PLPUCH PUT CHARACTER IN BUFFER LDR A1,A1 CHECK RETURN CODE RF(NZ) COERR1 ERROR IF BUFFER FULL LD A2,BUFBIX,A4 BUFFER INDEX =16 * LDR* A4,A15 POP A4 * RETURN DIRECTLY INSTEAD OF THROUGH NDRETO TO GET * FASTER PROCESSING. CWK A2,LOBUFL+3 BUFFER FULL? =16 RF(NE) OP100 NO =16 LD A2,DWTCHP,A6 CHANNEL PARAMETER =16 ANK A2,CHABLO CHANGED BLOCKING? =16 RF(NZ) EB050 YES SEND BUFFER =16 OP100 EQU * . =16 ENB ADK A5,4 ADJUST STACK LDR A2,A1 DEVICE STATUS & RET CODE := OK ABR* A5 RETURN TO DEVICE DRIVER * * COERR1 EQU * CF A15,PLRLBU RELEASE BUFFER CM DWTLD1,A6 INDICATE NO BUFFER COERR2 EQU * LDR* A4,A15 POP A4 LDK A1,PLSERR RET CODE := SW ERROR ABL NDRET RETURN TO DEVICE DRIVER * EJECT * ************************************************************ * * ROUTINE NAME: * PLENBL * * FUNCTION: * THIS ROUTINE DEFINES END OF OUTPUT BLOCK. * IT SENDS THE BLOCK TO PLC AND WAITS FOR * ACKNOWLEDGE. * * CALL: * ABI ENBTAB,A1 * CF A5,PLENBL * * INPUT: * A6 = DWT ADDRESS * * OUTPUT: * AT RETURN TO DEVICE DRIVER * A1 = RETURN CODE * 0 IF OK * NOT 0 IF ERROR * A2 = DEVICE STATUS (IF RELEVANT, IE A1=0) * CR = CONTENTS OF A1 * INTERR. ENABLED * ************************************************************ * PLENBL EQU * PRENBL EQU * LDK A1,0 SET RETURN CODE OK =16 LD A2,DWTWAT,A6 GET WAIT/ACT INDICATOR =16 SUK A2,1 . =16 RF(Z) EB040 . =16 LDKL A2,/FFFF-CHABLO RESET CHANGED BLOCKING =16 ANS A2,DWTCHP,A6 . =16 EB040 EQU * . =16 LD A2,DWTCHP,A6 CHANNEL PARAMETER =16 ANK A2,CHABLO CHANGED BLOCKING =16 RB(NZ) OP100 YES, RETURN =16 EB050 EQU * . =16 ENB CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT CF A15,GETCWT A5 := CWT ADDRESS * EJECT * LDK A1,PLSERR SET RET CODE JUST IN CASE LD A2,DWTLD1,A6 BUFFER ADDRESS ABL(Z) NDREPO ERROR IF NO BUFFER. RETURN =16 CF A15,GETLCS A1 := STATUS & INH RF(NZ) EBERR1 RETURN IF ERROR * LDR A3,A6 DWT ADDRESS ADKL A3,DWTOTQ QUEUE POINTER CF A15,PLCCCS RESERVE CCA CM DWTOTQ,A6 RESET QUEUE ELEMENT POINTER LDR A1,A1 RETURN CODE RF(NZ) EBERR1 RETURN IF ERROR * * WRITE PARAMETERS IN CCA AND X25 HEADER ENB LD A4,DWTLD1,A6 BUFFER ADDRESS ST A4,CWTCCA+CCRBUF,A5 TO CCA CM CWTCCA+CCRC1B,A5 RESET DATA CHAINING & MSB OF ADDR LDK A3,CMDFW ASSUME FAST WRITE LD A2,DWTST,A6 DEVICE STATUS LDR A7,A2 SAVE ANKL A7,DWFECH ECHO OUTPUT? RF(NZ) EB090 YES, USE TYPE 1 LDK A3,CMDSW NOT ECHO, USE STANDARD WRITE ANK A2,DWFTY1 ONLY TYPE 1 ALLOWED? RF(Z) EB100 NO, USE TYPE 2 * EJECT * EB090 EQU * * NO FLOW CONTROL CF A15,WRADR1 WRITE LINE ADDRESS. NO FLOW C LDK A2,TYNFLO MESSAGE TYPE := NO FLOW CONTROL RF EB110 CONTINUE * EB100 EQU * * FLOW CONTROL CF A15,WRADR2 WRITE LINE ADDRESS. FLOW CTRL CF A15,FWOPSR FETCH AND UPDATE FLOW CONTROL SC A2,X25FLW,A4 P(R) & P(S) TO PACKET LDK A2,TYDATA MESSAGE TYPE := NORMAL DATA * EB110 EQU * SC A2,CWTCCA+CCRIDB,A5 MESSAGE TYPE TO CCA SC A3,CWTCCA+CCRCMD,A5 COMMAND TO CCA ST A6,CWTCCA+CCRIDW,A5 DWT ADDRESS TO CCA LD A3,BUFBIX,A4 BYTE INDEX ST A3,CWTCCA+CCRLEN,A5 BUFFER LENGTH TO CCA * CF A15,GETLCS A1 := STATUS & INH RF(NZ) EBERR2 RETURN IF ERROR CF A15,PLCCIO EXECUTE CIO START RF(NZ) EBERR1 HANDLE ERROR ABL PLDSP2 LOCAL DISPATCHER * EJECT * * ENTRY TO ACKRST IS MADE WHEN I/O OPERATION * IS COMPLETED. * REGISTER CONTENTS ON ENTRY: * A1 = RETURN CODE * A5 = CWT ADDRESS * A6 = DWT ADDRESS * A7 = MESSAGE TYPE * ACKRST EQU * LDK A2,0 RESET DEVICE STATUS LDR A1,A1 ANY ERROR? RF(NZ) EB130 YES, RETURN * LD A3,DWTST,A6 DWT STATUS LDR A4,A3 ANK A4,DWFRES RESET PACKET RECIEVED? RF(Z) EB120 NO LDK A1,LINERR YES. RET CODE := LINK RESET RF EB130 RETURN * EB120 EQU * CWK A7,TYNFLO PACKET WITH NO FLOW CONTROL? RF(E) EB130 YES, RETURN ANK A3,DWFSAC WAIT FOR LEVEL 3 ACK? RF(Z) EB130 NO, RETURN * LDK A3,DWFAK3 FLAG "WAITING FOR LEVEL 3 ACK" ORS A3,DWTST,A6 SET FLAG IN DWT STATUS ABL PLDSP2 LOCAL DISPATCHER * EJECT * * ENTRY IS MADE HERE WHEN ACK ON LEVEL 3 HAVE BEEN RECIEVED * REGISTER CONTENTS ON ENTRY: * A1 = RETURN CODE * A2 = DEVICE STATUS (IF RELEVANT, IE A1=0) * A5 = CWT ADDRESS * A6 = DWT ADDRESS * AK3RST EQU * * EB130 EQU * * LD A2,DWTCHP,A6 CHANNEL PARAMETER =16 ANK A2,CHABLO CHANGED BLOCKING? =16 ABL(NZ) SB050 YES, START NEW BLOCK =16 ABL NDREP RETURN TO DEVICE DRIVER * * * EBERR2 EQU * CM CWTCCB,A5 SET CCA FREE EBERR1 EQU * LD A4,DWTLD1,A6 OUTPUT BUFFER ADDRESS CF A15,PLRLBU RELEASE BUFFER CM DWTLD1,A6 INDICATE NO BUFFER CM DWTLD2,A6 RESET FLOW CONTROL ABL NDREP RETURN TO DEVICE DRIVER * EJECT * ************************************************************ * * ROUTINE NAME: * PLTEST * * FUNCTION: * THIS ROUTINE HANDLES TEST COMMANDS FOR PLC. * THE TEST COMMANDS ARE GENERATED BY A TEST * COMMAND "DRIVER" WITH AN INTERFACE SIMILAR TO * THAT OF THE NORMAL TERMINAL DEVICE DRIVERS. * CALL IS MADE DIRECTLY TO THE PLC DRIVER, AND * NOT THROUGH THE TERMINAL NETWORK DISTRIBUTOR, * AS THIS FUNCTION IS NOT AVAILABLE FOR OTHER * LINE DRIVERS. * * CALL: * CF A5,PLTEST * * INPUT: * A6 = DWT ADDRESS * * OUTPUT: * AT RETURN TO DEVICE DRIVER * A1 = RETURN CODE * 0 IF OK * NOT 0 IF ERROR * A2 = CHANGED * CR = CONTENTS OF A1 * INTERR. ENABLED * ************************************************************ * EJECT * PLTEST EQU * IFT PLCTST=1 CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT CF A15,GETCWT A5 := CWT ADDRESS CF A15,PLCCCA RESERVE CCA * ENB ST A6,CWTCCA+CCRIDW,A5 DWT ADDRESS TO CCA CM CWTCCA+CCRC1B,A5 DATA CHAINING & MSB OF BUFFER ADDR LD A4,DWTTBU,A6 USER REQUEST BUFFER ADDRESS ST A4,CWTCCA+CCRBUF,A5 TO CCA LD A2,DWTTLN,A6 USER REQUEST BUFFER LENGTH ST A2,CWTCCA+CCRLEN,A5 LENGTH TO CCA LD A3,DWTTCW,A6 USER REQUEST CONTROL WORD * * DETERMINE TYPE OF TEST ORDER LC A1,DWTOR+1,A6 USER REQUEST ORDER CODE ANK A1,/3F CLEAN CWK A1,ORDPS GET LINE STATISTICS? RF(E) TE100 YES, HANDLE CWK A1,ORDDS GET DLS STATISTICS? RF(E) TE110 YES, HANDLE CWK A1,ORDRM READ LOCAL MEMORY? RF(NE) TEERR2 NO, COMMAND NOT DEFINED. ERROR * * READ LOCAL MEMORY ST A3,CWTCCA+CCRSUB,A5 PLC MEMORY ADDRESS TO CCA LDK A3,CMDRM PLC COMMAND READ LOCAL MEMORY RF TE120 TO COMMON PART * TE100 EQU * * GET LINE STATISTICS SC A3,CWTCCA+CCRSU1,A5 STORE LINE NUMBER (0-3) =12 LDK A3,CMDPS PLC COMMAND GET LINE STATISTICS RF TE120 TO COMMON PART * TE110 EQU * * GET DLS STATISTICS LC A3,DWTCP2,A6 CHANNEL PARAMETER ANK A3,MASKWS CLEAN WS NUMBER SLL A3,8 TO LEFT BYTE ADK A3,CMDDS PLC COMMAND GET DLS STATISTICS * TE120 EQU * ST A3,CWTCCA+CCRDLS,A5 DLS INDEX & COMMAND TO CCA * CF A15,PLCCIO EXECUTE CIO START RF(NZ) TEERR1 ERROR. HANDLE ABL PLDSP2 LOCAL DISPATCER. WAIT * * * ENTRY IS MADE TO TSTRST WHEN COMMAND IS COMPLETED. * REGISTER CONTENTS ON ENTRY: * A1 = RETURN CODE * A5 = CWT ADDRESS * A6 = DWT ADDRESS * TSTRST EQU * ABL NDREP RETURN TO DEVICE DRIVER * * TEERR2 EQU * CM CWTCCB,A5 INDICATE CCA FREE LDK A1,PLSERR RET CODE := SW ERROR TEERR1 EQU * ABL NDREP RETURN TO DEVICE DRIVER XIF * EJECT * ********************** * INTERRUPT ROUTINES * ********************** * * THIS SECTION CONTAINS INTERRUPT HANDLING ROUTINES. * IT IS ENTERED IMMEDIATELY AT A RELEASE, * ATTENTION OR I/O COMPLETION INTERRUPT. * ALL ROUTINES ARE EXECUTED * ON INTERRUPT PRIORITY. AFTER PROCESSING, EXIT IS * MADE EITHER TO SOME ROUTINE WAITING FOR THE INTERRUPT, * TO THE LOCAL PLC DISPATCHER OR TO TOSS DISPATCHER. * ON EXIT, A15 STACK CONTAINS INTERRUPT RETURN AND * A1-A8. * * * ROUTINES IN ORDER OF APPEARANCE IN CODE: * * NAME FUNCTION * * IHPL INTERRUPT ENTRY * PLIHR HANDLE RELEASE INTERRUPT * PLIHA HANDLE ATTENTION INTERRUPT * PLIHC HANDLE I/O COMPLETION INTERRUPT * COMPSTA HANDLE COMPLETION OF START COMMANDS * (TEST CU, OPEN LINE, OPEN DLS) * COMPTEST HANDLE COMPLETION OF TEST COMMANDS * (PLC STATISTICS, DLS STAT., READ LOCAL MEMORY) * COMPWRI HANDLE COMPLETION OF WRITE COMMANDS * COMPGR HANDLE COMPLETION OF GENERAL READ COMMANDS * GRERR HANDLE ERRORS AT GENERAL READ * GRSACK HANDLE STATUS AND RR MESSAGE FROM DEVICE * GRDATA HANDLE DATA INPUT FROM DEVICE * GRRES HANDLE RESET MESSAGE FROM SECONDARY * EJECT * ************************************************************ * * ROUTINE NAME: * IHPL * * FUNCTION: * THIS ROUTINE CONTAINS INTERRUPT ENTRIES FOR * ALL PLC:S INCLUDED. IT SAVES A1-A8, SETS CWT * ADDRESS AND EXITS TO RELEASE OR I/O COMPLETION * INTERRUPT HANDLER. * * CALL: * HARDWARE INTERRUPT * * INPUT: * A15 = SYSTEM STACK POINTER * INTERR. INHIBITED * MODE SYSTEM * * OUTPUT: * A5 = CWT ADDRESS * ************************************************************ * IHPL01 EQU * IFF PLCNRL=0 U =5 IFT CPU852=1 CF A15,SAVE8 PUSH A1-A8 XIF IFF PLCNRL=0 U =5 IFF CPU852=1 MSR 8,A15 PUSH A1-A8 XIF * IFF PLCNRL=0 U =5 LDKL A5,PL0CWT CWT ADDRESS, PLC 0 RF IHPL COMMON PART, ALL PLC:S XIF * EJECT * IHPL02 EQU * IFF PLCNRL=0 U =5 IFF PLCNRL=1 IFT CPU852=1 CF A15,SAVE8 PUSH A1-A8 XIF * IFF PLCNRL=0 U =5 IFF PLCNRL=1 IFF CPU852=1 MSR 8,A15 PUSH A1-A8 XIF * IFF PLCNRL=0 U =5 IFF PLCNRL=1 LDKL A5,PL1CWT CWT ADDRESS, PLC 1 RF IHPL COMMON PART, ALL PLC:S XIF * IHPL03 EQU * IFF PLCNRL=0 U =5 IFF PLCNRL=1 IFF PLCNRL=2 IFT CPU852=1 CF A15,SAVE8 PUSH A1-A8 XIF * IFF PLCNRL=0 U =5 IFF PLCNRL=1 IFF PLCNRL=2 IFF CPU852=1 MSR 8,A15 PUSH A1-A8 XIF * IFF PLCNRL=0 U =5 IFF PLCNRL=1 IFF PLCNRL=2 LDKL A5,PL2CWT CWT ADDRESS, PLC 2 RF IHPL COMMON PART, ALL PLC:S XIF * IHPL04 EQU * IFF PLCNRL=0 U =5 IFF PLCNRL=1 IFF PLCNRL=2 IFF PLCNRL=3 IFT CPU852=1 CF A15,SAVE8 PUSH A1-A8 XIF * IFF PLCNRL=0 U =5 IFF PLCNRL=1 IFF PLCNRL=2 IFF PLCNRL=3 IFF CPU852=1 MSR 8,A15 PUSH A1-A8 XIF * IFF PLCNRL=0 U =5 IFF PLCNRL=1 IFF PLCNRL=2 IFF PLCNRL=3 LDKL A5,PL3CWT CWT ADDRESS, PLC 3 RF IHPL COMMON PART, ALL PLC:S XIF * IHPR01 EQU * IFF PLCNRR=0 IFT CPU852=1 CF A15,SAVE8 PUSH A1-A8 XIF IFF PLCNRR=0 IFF CPU852=1 MSR 8,A15 PUSH A1-A8 XIF IFF PLCNRR=0 LDKL A5,PR1CWT CWTADDRESS PLC 1 REMOTE RF IHPL COMMON PART ALL CWT:S XIF IHPR02 EQU * IFF PLCNRR=0 IFF PLCNRR=1 IFT CPU852=1 CF A15,SAVE8 PUSH A1-A8 XIF IFF PLCNRR=0 IFF PLCNRR=1 IFF CPU852=1 MSR 8,A15 PUSH A1-A8 XIF IFF PLCNRR=0 IFF PLCNRR=1 LDKL A5,PR2CWT CWTADDRESS PLC 2 REMOTE RF IHPL COMMON PART ALL CWT:S XIF IHPR03 EQU * IFF PLCNRR=0 IFF PLCNRR=1 IFF PLCNRR=2 IFT CPU852=1 CF A15,SAVE8 PUSH A1-A8 XIF IFF PLCNRR=0 IFF PLCNRR=1 IFF PLCNRR=2 IFF CPU852=1 MSR 8,A15 PUSH A1-A8 XIF IFF PLCNRR=0 IFF PLCNRR=1 IFF PLCNRR=2 LDKL A5,PR3CWT CWTADDRESS PLC 3 REMOTE RF IHPL COMMON PART ALL PLC:S XIF IHPR04 EQU * IFF PLCNRR=0 IFF PLCNRR=1 IFF PLCNRR=2 IFF PLCNRR=3 IFT CPU852=1 CF A15,SAVE8 PUSH A1-A8 XIF IFF PLCNRR=0 IFF PLCNRR=1 IFF PLCNRR=2 IFF PLCNRR=3 IFF CPU852=1 MSR 8,A15 PUSH A1-A8 XIF IFF PLCNRR=0 IFF PLCNRR=1 IFF PLCNRR=2 U =9 IFF PLCNRR=3 U =9 LDKL A5,PR4CWT CWTADDRESS PLC 4 REMOTE RF IHPL COMMON PART ALL CWT:S XIF EJECT * IHPL EQU * ST P,INTSAV SAVE LATEST INTERRUPT LDK A1,0 RESET HIGH BYTE LC A1,CWTCID+CIDINT,A5 INTERRUPT SOURCE CWK A1,/40 RELEASE? RF(E) PLIHR YES, HANDLE CWK A1,/20 I/O COMPLETION? RF(E) PLIHC YES, HANDLE CWK A1,/80 ATTENTION? RF(E) PLIHA YES, HANDLE * CF A15,PLCNOP ILLEGAL CODE, SET NOT OPERABLE ABL TDISP EXIT * EJECT * ************************************************************ * * ROUTINE NAME: * PLIHR * * FUNCTION: * THIS ROUTINE HANDLES RELEASE INTERRUPTS. * IT RESETS THE INTERRUPT, AND IF ANOTHER * PROCESS IS WAITING FOR THE CCA, RETURN * IS MADE TO CCA ALLOCATION ROUTINE. * * CALL: * RF PLIHR * * INPUT: * A5 = CWT ADDRESS * * OUTPUT: * IF PROCESS WAITING * A4 = BLOCK ADDRESS OF WAITING PROCESS * A5 = CWT ADDRESS * ************************************************************ * PLIHR EQU * EX CWTST3,A5 RESET INTERRUPT LD A4,CWTCCQ,A5 PROCESS WAITING FOR CCA? ABL(NZ) CCARST YES, ACTIVATE PROCESS CM CWTCCB,A5 NO, SET CCA FREE ABL TDISP EXIT * EJECT * ************************************************************ * * ROUTINE NAME: * PLIHA * * FUNCTION: * THIS ROUTINE HANDLES ATTENTION INTERRUPTS. IF * ERROR, IT SETS AN ERROR CODE AND STARTS ABORT * OF ALL CALLS. IF COMMUNICATION REESTABLISHED, * IT STARTS RECOVERY. * * CALL: * RF PLIHA * * INPUT: * A5 = CWT ADDRESS * * OUTPUT: * A5 = CWT ADDRESS * A6 = WS NUMBER * ************************************************************ * PLIHA EQU * LD A1,CWTRCA+CCRSTA,A5 PLC STATUS ST A1,CWTPLS,A5 SAVE FOR TESTING IFF UTTEST=0 CF A15,LOGATT LOG RCA XIF LC A6,CWTRCA+CCRDLS,A5 WS NUMBER ANK A6,MASKWS CLEAN EX CWTST3,A5 RELEASE RCA * EJECT * LDKL A2,/FFFF-STACOM-STAERR * MASK FOR ALLOWED ERRORS ANR A2,A1 FATAL ERROR? RF(Z) IA100 NO, CONTINUE CF A15,PLCNOP SET PLC NOT OPERABLE ABL TDISP EXIT * IA100 EQU * LDR A2,A1 STATUS ANK A2,STACOM COMMUNICATION REESTABLISHED? ABL(NZ) PLREWS YES, START RECOVERY OF WS * LDR A2,A6 WS NUMBER CF A15,STAHAN HANDLE ERROR STATUS ABL PLDSP2 LOCAL DISPATCHER * EJECT * ************************************************************ * * ROUTINE NAME: * PLIHC * * FUNCTION: * THIS ROUTINE HANDLES I/O COMPLETION INTERRUPTS. * IT CHECKS WHICH COMMAND THAT HAS BEEN COMPLETED, * AND EXITS TO CORRESPONDING COMMAND HANDLER. * * CALL: * RF PLIHC * * INPUT: * A5 = CWT ADDRESS * * OUTPUT: * A1 = PLC STATUS * A2 = FATAL PLC STATUS * A5 = CWT ADDRESS * A6 = USER PARAMETER * ************************************************************ * PLIHC EQU * LD A1,CWTRCA+CCRSTA,A5 PLC STATUS ST A1,CWTPLS,A5 SAVE FOR TESTING IFF UTTEST=0 CF A15,LOGIOC LOG CCR XIF ANKL A1,/FFFF-STAPOL-STALER * RESET POLL STOP & LINK ERROR LD A6,CWTRCA+CCRIDW,A5 USER PARAMETER (DWT, DLS OR ...) LC A2,CWTRCA+CCRCMD,A5 COMMAND * EJECT * LDK A3,CMDTBL COMMAND TABLE LENGTH IC100 EQU * * SCAN TABLE TO FIND MATCHING COMMAND SUK A3,CMDTB1 DECREMENT INDEX RF(N) IC120 END OF TABLE. ERROR CC A2,CMDTAB+1,A3 COMMAND FOUND? RB(NE) IC100 NO, CONTINUE * C1 A2,CMDTAB+4,A3 MASK FOR ALLOWED ERRORS ANR A2,A1 FATAL ERROR? RF(Z) IC110 NO, CONTINUE CF A15,PLCNOP SET PLC NOT OPERABLE IC110 EQU * ABI CMDTAB+2,A3 CALL COMMAND HANDLING ROUTINE * IC120 EQU * EX CWTST3,A5 RELEASE RCA CF A15,PLCNOP SET PLC NOT OPERABLE ABL PLDSP2 LOCAL DISPATCHER * EJECT * ************************************************************ * * ROUTINE NAME: * COMPSTA * * FUNCTION: * THESE ROUTINES HANDLE COMPLETION OF TEST CU, * OPEN LINE AND OPEN DLS COMMANDS. * THEY CHECK THE RETURN CODE AND EXIT TO THE * ROUTINE THAT MADE THE I/O CALL. * * CALL: * ABI CMDROU,A3 * * INPUT: * A1 = PLC STATUS * A2 = FATAL PLC STATUS * A5 = CWT ADDRESS * A6 = PARAMETER (IF RELEVANT) * * OUTPUT: * A1 = PLC STATUS * A2 = FATAL PLC STATUS * A5 = CWT ADDRESS * A6 = DLS INDEX (IF EXIT TO ODLRST) * ************************************************************ * COMPTC EQU * EX CWTST3,A5 RELEASE RCA ABL TCURST RETURN TO ROUTINE MAKING I/O CALL * EJECT * * * OPEN LINE, COMPLETION * COMPOP EQU * EX CWTST3,A5 RELEASE RCA ABL OPLRST RETURN TO ROUTINE MAKING I/O CALL * * * OPEN DLS, COMPLETION * COMPOD EQU * EX CWTST3,A5 RELEASE RCA LDR A2,A2 FATAL STATUS? RF(NZ) CD100 YES, SKIP STATUS CHECK * LDR A2,A6 WS NUMBER CF A15,STAHAN HANDLE PLC STATUS LDK A2,0 CLEAR FATAL STATUS FLAGS * CD100 EQU * ABL ODLRST RETURN TO ROUTINE MAKING I/O CALL * EJECT * ************************************************************ * * ROUTINE NAME: * COMPTEST * * FUNCTION: * THIS ROUTINE HANDLES COMPLETION OF GET LINE * STATISTICS, GET DLS STATISTICS AND READ LOCAL * MEMORY COMMANDS. * IT CHECKS THE PLC STATUS, SETS EFFECTIVE * LENGTH IN DWT AND EXITS TO THE ROUTINE THAT * MADE THE I/O CALL. * * CALL: * ABI CMDROU,A3 * * INPUT: * A1 = PLC STATUS * A5 = CWT ADDRESS * A6 = DWT ADDRESS * * OUTPUT: * A1 = RETURN CODE * A5 = CWT ADDRESS * A6 = DWT ADDRESS * ************************************************************ * IFT PLCTST=1 COMPPS EQU * COMPDS EQU * COMPRM EQU * * EJECT * LDR A1,A1 PLC STATUS RF(NZ) TS100 ERROR. HANDLE * LD A2,CWTRCA+CCRLEN,A5 EFFECTIVE LENGTH ST A2,DWTTLN,A6 TO DWT RF TS110 EXIT. A1 = 0 * TS100 EQU * LDK A1,NOTOPR RETURN CODE := NOT OPERABLE CM DWTTLN,A6 EFFECTIVE LENGTH := 0 * TS110 EQU * EX CWTST3,A5 RELEASE RCA ABL TSTRST RETURN TO ROUTINE MAKING I/O CALL XIF * EJECT * ************************************************************ * * ROUTINE NAME: * COMPWRI * * FUNCTION: * THIS ROUTINE HANDLES COMPLETION OF STANDARD * WRITE AND FAST WRITE. * IT CHECKS THE PLC STATUS AND RELEASES THE OUTPUT * BUFFER, IF ANY WAS ALLOCATED. IF THE OUTPUT * OPERATION IS FINISHED, IT THEN EXITS TO THE * ROUTINE THAT MADE THE I/O CALL. * * CALL: * ABI CMDROU,A3 * * INPUT: * A1 = PLC STATUS * A2 = FATAL PLC STATUS * A5 = CWT ADDRESS * A6 = DWT ADDRESS * * OUTPUT: * WHEN RETURN TO ROUTINE MAKING OUTPUT CALL * A1 = RETURN CODE * A2 = BITS 0-7 ZERO * BITS 8-15 DEVICE STATUS * A5 = CWT ADDRESS * A6 = DWT ADDRESS * ************************************************************ * EJECT * COMPSW EQU * COMPFW EQU * LDR A2,A2 FATAL PLC STATUS? RF(NZ) WRERR1 YES, HANDLE * LC A2,DWTCP2,A6 CHANEL PARAMETER ANK A2,MASKWS CLEAN WS NUMBER CF A15,STAHAN HANDLE PLC STATUS LC A7,CWTRCA+CCRIDB,A5 TYPE OF WRITE COMMAND ANK A7,/FF CLEAN LD A4,CWTRCA+CCRBUF,A5 BUFFER ADDRESS EX CWTST3,A5 RELEASE RCA ABI WRIROU,A7 CALL CORRESPONDING ROUTINE * * * IRRECOVERABLE ERROR * WRERR1 EQU * EX CWTST3,A5 RELEASE RCA WRERR EQU * ABL PLDSP2 EXIT * * * COMPLETION OF DATA MESSAGE OUTPUT * WRNFLO EQU * WRDATA EQU * CF A15,PLRLBU RELEASE OUTPUT BUFFER CM DWTLD1,A6 INDICATE NO BUFFER ABL ACKRST RETURN TO REQUEST HANDLER * * * COMPLETION OF RECIEVE READY MESSAGE OUTPUT * WRRR EQU * SUK A4,2 START OF MONITOR BLOCK LDR A7,A5 CWT ADDRESS ADK A7,CWTMBQ MONITOR BLOCK QUEUE HEAD CF A15,LNKOUT REMOVE FROM QUEUE CF A15,FREBLK RETURN BLOCK * ABL PLDSP2 EXIT * * * COMPLETION OF RESET CONFIRMATION MESSAGE OUTPUT * WRRESC EQU * SUK A4,2 START OF MONITOR BLOCK LDR A7,A5 CWT ADDRESS ADK A7,CWTMBQ MONITOR BLOCK QUEUE HEAD CF A15,LNKOUT REMOVE FROM QUEUE CF A15,FREBLK RETURN BLOCK * LDKL A2,/FFFF-DWFRES MASK FOR RESET FLAG ANS A2,DWTST,A6 CLEAR "RESET" FLAG LDK A4,RELINE RECOVERY CAUSE := LINK RESET CF A15,NDREDW CALL RECOVERY FOR DWT ABL PLDSP2 LOCAL DISPATCHER * EJECT * ************************************************************ * * ROUTINE NAME: * COMPGR * * FUNCTION: * THIS ROUTINE HANDLES COMPLETION OF GENERAL * READ COMMANDS. * IT CHECKS TYPE OF MESSAGE AND CALLS * CORRESPONDING ROUTINE. * * CALL: * ABI CMDROU,A3 * * INPUT: * A1 = PLC STATUS * A2 = FATAL PLC STATUS * A5 = CWT ADDRESS * * OUTPUT: * A1 = PLC STATUS * A4 = BUFFER ADDRESS * A5 = CWT ADDRESS * A6 = DLS INDEX * A7 = DEVICE ADDRESS (IF RELEVANT) * ************************************************************ * COMPGR EQU * LDR A2,A2 FATAL STATUS? RF(NZ) GRERR2 YES, EXIT * EJECT * CF A15,INTYPE A3 := TYPE OF MESSAGE LD A4,CWTRCA+CCRBUF,A5 BUFFER ADDRESS LC A6,CWTRCA+CCRDLS,A5 DLS INDEX ANK A6,MASKWS CLEAN LC A7,X25LCN,A4 DEVICE ADDRESS ANK A7,MASKLC CLEAN * ABI REAROU,A3 ROUTINE FOR THIS MESSAGE TYPE * EJECT * ************************************************************ * * ROUTINE NAME: * GRERR * * FUNCTION: * THIS ROUTINE HANDLES ILLEGAL INPUT MESSAGES. * GRERR1 RETURNS BUFFER * * CALL: * ABI REAROU,A3 * RB GRERR1 * RF GRERR2 * * INPUT: * A4 = BUFFER ADDRESS (IF GRERR1) * A5 = CWT ADDRESS * * OUTPUT: * - * ************************************************************ * GRERR1 EQU * CF A15,PLRLBU RELEASE GENERAL READ BUFFER * GRERR2 EQU * EX CWTST3,A5 RELEASE RCA * ABL PLDSP2 EXIT * EJECT * ************************************************************ * * ROUTINE NAME: * GRSACK * * FUNCTION: * THIS ROUTINE HANDLES STATUS AND RECIEVE READY * MESSAGES FROM A DEVICE. * IT RELEASES THE BUFFER AND RETURNS TO ROUTINE * MAKING I/O CALL. * * CALL: * ABI REAROU,A3 * * INPUT: * A4 = BUFFER ADDRESS * A5 = CWT ADDRESS * A6 = DLS INDEX * A7 = DEVICE ADDRESS * * OUTPUT: * A1 = RETURN CODE * =0 IF OK * ><0 IF ERROR * A2 = BITS 0-7 ZERO * BITS 8-15 DEVICE STATUS * A5 = CWT ADDRESS * A6 = DWT ADDRESS * ************************************************************ * EJECT * GRSTAT EQU * CF A15,GETDWT A6 := DWT ADDRESS RB(Z) GRERR1 NO DWT DEFINED CF A15,FWIPSR UPDATE FLOW CONTROL COUNTERS LC A2,X25DAT,A4 DEVICE STATUS BYTE ANK A2,/FF CLEAN RF SR100 COMMON PART * * GRRR EQU * CF A15,GETDWT A6 := DWT ADDRESS RB(Z) GRERR1 NO DWT DEFINED CF A15,FWIPR UPDATE FLOW CONTROL COUNTERS LDK A2,0 RESET DEVICE STATUS BYTE * * SR100 EQU * * COMMON PART FOR DEVICE STATUS AND RECIEVE READY MESSAGES EX CWTST3,A5 RELEASE RCA CF A15,PLRLBU RELEASE GENERAL READ BUFFER LD A3,DWTST,A6 DWT STATUS LDR A4,A3 ANK A4,DWFAK3 ANYONE WAITING FOR THIS MESSAGE? ABL(Z) PLDSP2 NO, DISPATCH * XRS A4,DWTST,A6 RESET WAIT FLAG LDK A1,0 RETURN CODE := OK ANK A3,DWFSAC ALWAYS WAIT FOR LEVEL 3 ACK? ABL(NZ) AK3RST YES, RETURN WITH ACK 3 ABL WINRST NO, RETURN TO WINDOW QUEUE * EJECT * ************************************************************ * * ROUTINE NAME: * GRDATA * * FUNCTION: * THIS ROUTINE HANDLES DATA INPUT MESSAGES. * IT LINKS THE BUFFER TO THE CWT. * * CALL: * ABI REAROU,A3 * * INPUT: * A4 = BUFFER ADDRESS * A5 = CWT ADDRESS * A6 = DLS INDEX * A7 = DEVICE ADDRESS * * OUTPUT: * - * ************************************************************ * GRDATA EQU * CF A15,GETDWT A6 := DWT ADDRESS RB(Z) GRERR1 NO DWT DEFINED * CF A15,FWIPSR UPDATE FLOW CONTROL COUNTERS ST A4,CWTBUF,A5 SAVE INPUT DATA BUFFER ADDRESS ST A6,BUFDWT,A4 SAVE DWT ADDRESS IN BUFFER LD A2,CWTRCA+CCRLEN,A5 EFFECTIVE LENGTH ST A2,BUFLEN,A4 SAVE IN BUFFER LDK A2,X25DAT START OF USER DATA ST A2,BUFBIX,A4 TO BYTE INDEX * EJECT * EX CWTST3,A5 RELEASE RCA ABL PLDSP2 EXIT * EJECT * ************************************************************ * * ROUTINE NAME: * GRRES * * FUNCTION: * THIS ROUTINE HANDLES RESET MESSAGES FROM THE * SECONDARY. * IT RESETS THE FLOW CONTROL COUNTERS IN THE DWT, * AND SETS A RESET PACKET FLAG IN THE DWT. THEN A * RESET CONFIRMATION MESSAGE IS SENT. IF THE * PROCESS IS WAITING FOR LEVEL 3 ACK OR IN A BUFFER * QUEUE IT IS ABORTED. * * CALL: * ABI REAROU,A3 * * INPUT: * A4 = BUFFER ADDRESS * A5 = CWT ADDRESS * A6 = DLS INDEX * A7 = DEVICE ADDRESS * * OUTPUT: * - * ************************************************************ * GRRES EQU * CF A15,GETDWT A6 := DWT ADDRESS RB(Z) GRERR1 NO DWT DEFINED * EJECT * EX CWTST3,A5 RELEASE RCA CF A15,PLRLBU RELEASE GENERAL READ BUFFER CM DWTLD2,A6 RESET FLOW CONTROL COUNTERS * LD A2,DWTST,A6 DWT STATUS ANK A2,DWFRES RESET ALREADY RECIEVED? ABL(NZ) PLDSP2 YES, EXIT LDK A2,DWFRES ORS A2,DWTST,A6 INDICATE RESET RECIEVED * CF A15,PLCCCA RESERVE PLC CCA ENB * CF A15,GETBLK GET OUTPUT BUFFER LDR A7,A5 CWT ADDRESS ADK A7,CWTMBQ MONITOR BLOCK QUEUE HEAD CF A15,LNKFST PUT BLOCK IN QUEUE (FOR RECOVERY) ADK A4,2 SKIP QUEUE LINK ST A4,CWTCCA+CCRBUF,A5 BUFFER ADDR TO CCA CM CWTCCA+CCRC1B,A5 RESET DATA CHAINING & MSB OF ADDR CF A15,WRADR2 WRITE ADDRESS IN CCA (TYPE 2) LDK A2,CMDSW COMMAND CODE "STANDARD WRITE" SC A2,CWTCCA+CCRCMD,A5 TO CCA LDK A2,/1F MESSAGE TYPE FLAGS SC A2,X25FLW,A4 TO OUTPUT BUFFER LDK A2,TYRESC TYPE "RESET CONFIRMATION" SC A2,CWTCCA+CCRIDB,A5 TO CCA, COMMAND ID ST A6,CWTCCA+CCRIDW,A5 DWT ADDRESS TO CCA, COMMAND ID LDK A2,X25DAT LENGTH OF SYSTEM PART ST A2,CWTCCA+CCRLEN,A5 TO CCA LENGTH * EJECT * LD A2,DWTST,A6 DWT STATUS ANK A2,DWFRES RESET STILL WANTED? RF(Z) REERR1 NO, EXIT CF A15,GETWSS A1 := STATUS & INH RF(NZ) REERR1 EXIT IF ERROR CF A15,PLCCIO EXECUTE CIO START RF(NZ) REERR2 EXIT IF ERROR * LDK A1,LINERR RET CODE := LINK ERROR LD A2,DWTST,A6 DWT STATUS LDR A3,A2 ANK A2,DWFAK3 WAITING FOR LEVEL 3 ACK? RF(Z) RE100 NO, CONTINUE XRS A2,DWTST,A6 RESET ACK3 FLAG ANK A3,DWFSAC ALWAYS WAIT FOR LEVEL 3 ACK? ABL(NZ) AK3RST YES, RETURN WITH ACK 3 ABL WINRST NO, RETURN TO WINDOW QUEUE * RE100 EQU * CF A15,OUTBUQ REMOVE DWT FROM BUFFER QUEUE LDR A2,A2 FOUND? ABL(NZ) BUFRST YES, RETURN WITH ERROR CODE * ABL PLDSP2 LOCAL DISPATCHER * * REERR1 EQU * CM CWTCCB,A5 SET CCA FREE REERR2 EQU * * ERROR. RETURN MONITOR BLOCK IMMEDIATELY SUK A4,2 START ADDRESS OF MONITOR BLOCK CF A15,LNKOUT REMOVE FROM QUEUE. A7 ALREADY SET CF A15,FREBLK RETURN MONITOR BLOCK ABL PLDSP2 LOCAL DISPATCHER * EJECT * ********************* * RECOVERY ROUTINES * ********************* * * THESE ROUTINES ARE USED AT SYSTEM START OR TC POWER * UP. IN CASE OF POWER UP, THEY FIRST REMOVE ALL RUNNING * OUTPUT OPERATIONS. AFTER THAT, THE PLC IS STARTED, * AND LAST RECOVERY ROUTINES IN DEVICE DRIVERS ARE * CALLED FOR ALL DWT:S. * THE SECTION ALSO CONTAINS ROUTINES FOR RECOVERY * OF I/O ERRORS. * * * ROUTINES IN ORDER OF APPEARANCE IN CODE: * * NAME FUNCTION * * PLON CALL RECOVERY ONCE FOR EACH PLC CHANNEL UNIT * PLSTRT START PLC AND CALL DEVICE RECOVERY * EJECT * ************************************************************ * * ROUTINE NAME: * PLON * * FUNCTION: * THIS ROUTINE WILL ACTIVATE A MONITOR JOB * FOR THE PLC RECOVERY, IF THE JOB NOT ALREADY * IS PENDING. * THE MONITOR JOB WILL CALL THE RECOVERY ROUTINE ONCE * FOR EACH PLC DEFINED. * * CALL: * CF A15,PLON * * INPUT: * - * * OUTPUT: * AT ENTRY TO PLSTRT: * A5 = CWT ADDRESS * ************************************************************ * PLON EQU * LD A1,PLCPFP POWER UP PENDING? RF(NZ) PO100 YES, EXIT IM PLCPFP INDICATE POWER UP STARTED * LDKL A2,PO110 START ADDRESS CF A15,QMJOB ACTIVATE MONITOR JOB * PO100 EQU * RTN A15 * EJECT * PO110 EQU * CM PLCPFP NO LONGER PENDING * * IFF UTTEST=0 QUEUE STATISTICS * RESET QUEUE STATISTICS COUNTERS LDK A1,STATLN TABLE LENGTH PO113 EQU * SUK A1,2 NEXT WORD RF(N) PO116 READY WHEN ALL DONE CM STATAR,A1 RESET COUNTER RB PO113 NEXT WORD PO116 EQU * XIF * LDK A1,16 (MAX NUMBER OF PLC:S) * 2 PO120 EQU * * THIS LOOP IS EXECUTED ONCE FOR EACH PLC SUK A1,2 NEXT PLC RF(N) PO130 EXIT IF ALL DONE LD A5,TABCWT,A1 CWT ADDRESS RB(Z) PO120 TAKE NEXT IF NOT DEFINED CF A15,PLSTRT START ONE PLC RB PO120 NEXT PLC * PO130 EQU * ABL MEXIT MONITOR JOB EXIT * EJECT * ************************************************************ * * ROUTINE NAME: * PLSTRT * * FUNCTION: * THIS ROUTINE FIRST CLEARS ALL WORK AREAS AND * DWT:S, AND SETS THE DWT:S BUSY. IT THEN STARTS * THE PLC, AND CALLS RECOVERY ROUTINES IN ALL * DEVICE DRIVERS. * * CALL: * CF A15,PLSTRT * * INPUT: * A5 = CWT ADDRESS * * OUTPUT: * - * ************************************************************ * PLSTRT EQU * IFT CPU852=1 CF A15,SAVE8 PUSH A1-A8 XIF IFF CPU852=1 MSR 8,A15 PUSH A1-A8 XIF * ENB IM CWTGR,A5 INDICATE GENERAL READ NOT ALLOWED CM CWTABW,A5 STOP ABORT OF WS CM CWTSBQ,A5 RESET SHORT BUFFER QUEUE CM CWTLBQ,A5 RESET LONG BUFFER QUEUE * EJECT * ST100 EQU * * RETURN MONITOR BLOCKS USED AS BUFFERS LDR A7,A5 ADK A7,CWTMBQ MONITOR BLOCK QUEUE HEAD LDR* A4,A7 FIRST BLOCK RF(Z) ST105 CONTINUE IF NO LEFT CF A15,LNKOUT REMOVE FROM QUEUE CF A15,FREBLK RETURN BLOCK RB ST100 TAKE NEXT ST105 EQU * * RETURN MONITOR BLOCKS FROM CCA QUEUE LDR A7,A5 ADK A7,CWTCCQ CCA QUEUE HEAD LDR* A4,A7 FIRST BLOCK RF(Z) ST110 CONTINUE IF NO LEFT CF A15,LNKOUT REMOVE FROM QUEUE CF A15,FREBLK RETURN BLOCK RB ST105 TAKE NEXT * ST110 EQU * * INITIATE BUFFER AREAS LDR A4,A5 CWT ADDRESS ADKL A4,CWTSOB AREA FOR SHORT OUTPUT BUFFERS LDR A7,A5 ADK A7,CWTPBS POOLBLOCK, SHORT OUTPUT BUFFERS CF A15,INIBUF INITIATE BUFFER AREA LDR A4,A5 CWT ADDRESS ADKL A4,CWTLOB AREA FOR LONG OUTPUT BUFFERS LDR A7,A5 ADK A7,CWTPBL POOLBLOCK, LONG OUTPUT BUFFERS CF A15,INIBUF INITIATE BUFFER AREA LDR A4,A5 CWT ADDRESS ADKL A4,CWTGRB AREA FOR GENERAL READ BUFFERS LDR A7,A5 ADK A7,CWTPBG POOLBLOCK, GENERAL READ BUFFERS CF A15,INIBUF INITIATE BUFFER AREA * * RESET ALL DWT:S AND WORK STATION STATUS LDK A3,MAXWS+1 NUMBER OF WORK STATIONS + 1 ST120 EQU * SUK A3,1 NEXT WORK STATION RF(N) ST150 END IF NO MORE LEFT LDR A2,A3 WORK STATION NUMBER SLA A2,1 MAKE INDEX ADR A2,A5 ADD CWT ADDRESS ADK A2,CWTWSS WORK STATION STATUS WORD CMR A2 CLEAR STATUS LDK A1,NOTOPR SCR A1,A2 WS := NOT OPERABLE LD* A1,CWTINT,A5 WORK STATION TABLE ADDRESS LDR A6,A3 WORK STATION NUMBER CF A15,NDGEDN A7 := HIGEST DWT NUMBER ON WS ADK A7,1 ST130 EQU * SUK A7,1 NEXT DWT RF(N) ST140 NEXT WS IF NO DWT LEFT LDR A6,A3 WS NUMBER CF A15,GETDWT A6 := DWT ADDRESS RB(Z) ST130 NOT DEFINED CM DWTLD2,A6 RESET FLOW CONTROL LDKL A2,/FFFF-DWFBSY-DWFPLC * MASK FOR BUSY AND PLC FLAGS ANS A2,DWTST,A6 RESET FLAGS CM DWTLD1,A6 RELEASE BUFFER, IF ANY CM DWTOTQ,A6 REMOVE DWT FROM QUEUE, IF ANY RB ST130 NEXT DWT ST140 EQU * RB ST120 NEXT WORK STATION * ST150 EQU * * DELAY UNTIL PLC IS READY FOR START LD A4,CWTTPR,A5 TIMER ALREADY STARTED? RF(Z) ST152 NO, START TIMER LDKL A1,-STADLY-1 DELAY TIME STR A1,A4 RESTART TIMER RF ST154 EXIT * ST152 EQU * LDR A1,A5 SAVE CWT ADDRESS CF A15,SETIME START TIMER DATA ST156,STADLY RESTART ADDRESS & DELAY TIME ST A4,CWTTPR,A5 SAVE TIMER POINTER ST154 EQU * ABL TDISP WAIT UNTIL TIMER EXPIRES * ST156 EQU * LDR A5,A1 RESTORE CWT ADDRESS CM CWTTPR,A5 INDICATE NO TIMER RUNNING * * START "TEST CHANNEL UNIT" OPERATION IM CWTCCB,A5 SET CCA BUSY CM CWTOPR,A5 SET PLC OPERABLE LDK A2,CMDTC COMMAND CODE TEST CU ST A2,CWTCCA+CCRDLS,A5 COMMAND AND DLS INDEX TO CCA CM CWTCCA+CCRC1B,A5 RESET DATA CHAINING LDR A3,A5 CWT ADDRESS ADK A3,CWTCSD CONTROL UNIT START DESCRIPTOR ADDR INH CF A15,PLCCIO CIO START RF(NZ) STERR2 EXIT IF ERROR IM CWTOPR,A5 SET NOT OPERABLE UNTIL TEST CU READY ABL TDISP WAIT FOR COMPLETION * * * ENTRY IS MADE HERE WHEN TEST CU IS COMPLETED. * REGISTER CONTENTS ON ENTRY: * A1 = PLC STATUS * A5 = CWT ADDRESS * TCURST EQU * LDR A1,A1 OPERATION OK? RF(NZ) STERR2 NO, EXIT * * PERFORM "OPEN LINE" OPERATION U =5 LDK A2,0 INITIATE LINE COUNTER ST A2,CWTLNO,A5 ST157 EQU * CF A15,PLCCCA RESERVE CCA * LD A2,CWTLNO,A5 GET LINE NO SC A2,CWTCCA+CCRSU1,A5 SET UP LINE IN CCA =5 SLL A2,1 MAKE OPEN LINE PARA- ST A2,CWTPAR,A5 METER AREA ST158 EQU * LD A2,CWTOPP,A5 MAKE ADDRESS TO AD A2,CWTPAR,A5 OPEN LINE PARAMETER AREA LDR* A2,A2 U =5 ST A2,CWTCCA+CCRBUF,A5 SET UP IN CCA LDK A2,CMDOP COMMAND OPEN LINE ST A2,CWTCCA+CCRDLS,A5 COMMAND AND DLS INDEX TO CCA CM CWTCCA+CCRC1B,A5 RESET DATA CHAINING & MSB OF ADDR LDK A2,12 PARAMETER AREA LENGTH =1 ST A2,CWTCCA+CCRLEN,A5 TO CCA * CM CWTOPR,A5 SET PLC OPERABLE CF A15,PLCCIO CIO START RF(NZ) STERR2 EXIT IF ERROR ABL PLDSP2 LOCAL DISPATCHER * * * ENTRY TO OPLRST WILL BE MADE WHEN THE OPEN LINE * OPERATION IS COMPLETED. * REGISTER CONTENTS ON ENTRY: * A1 = PLC STATUS * A5 = CWT ADDRESS * OPLRST EQU * LDR A1,A1 OPERATION OK? RF(NZ) STERR2 NO, EXIT * LD A2,CWTPNR,A5 GET PLC NR SUK A2,3 CHECK IF LOCAL RF(NP) ST159 YES IM CWTLNO,A5 INCREMENT LINE NUMBER LD A2,CWTLNO,A5 GET LINE NO SUK A2,4 ALL LINES OPENED ? RB(NZ) ST157 NO, TAKE NEXT CM CWTLNO,A5 ST159 EQU * * CM CWTGR,A5 INDICATE GENERAL READ ALLOWED * * PERFORM OPEN DATA LINK FOR ALL CONNECTED SECONDARIES * LDK A6,MAXWS+1 (MAX NR OF DLS) + 1 ST160 EQU * SUK A6,1 NEXT WORK STATION (DLS) RF(N) ST180 EXIT IF ALL DONE LD* A1,CWTINT,A5 WORK STATION TABLE CF A15,NDGEDN A7 := HIGEST DWT NUMBER ON WS LDR A7,A7 ANY DWT:S? RB(N) ST160 NO, TAKE NEXT WS * CF A15,PLCCCA RESERVE CCA LDR A3,A6 WORK STATION NUMBER SLA A3,1 MAKE INDEX ADR A3,A5 ADD CWT ADDRESS CM CWTWSS,A3 CLEAR WS STATUS SC A6,CWTCCA+CCRDLS,A5 DLS INDEX (WS NUMBER) TO CCA ST A6,CWTCCA+CCRIDW,A5 SAVE DLS INDEX LDK A2,CMDOD COMMAND OPEN DLS SC A2,CWTCCA+CCRCMD,A5 TO CCA LDK A2,MAXFR MAX OUTSTANDING FRAMES SC A2,CWTCCA+CCRSU1,A5 TO SUBCOMMAND 1 CM CWTCCA+CCRC1B,A5 RESET DATA CHAINING CF A15,PLCCIO CIO START RF(NZ) STERR2 EXIT IF ERROR ABL PLDSP2 EXIT. WAIT FOR COMPLETION * * * ENTRY TO ODLRST IS MADE WHEN OPERATION IS COMPLETED. * REGISTER CONTENTS ON ENTRY: * A2 = FATAL PLC STATUS * A5 = CWT ADDRESS * A6 = WORK STATION NUMBER (DLS INDEX) * ODLRST EQU * LDR A2,A2 FATAL ERROR? RF(NZ) STERR2 YES, EXIT LD* A3,CWTINT,A5 WORK STATION TABLE ADDRESS LDK A4,RETCP FLAG "TC POWER UP" CF A15,NDREWS RECOVERY OF ALL DWT:S ON WS RB ST160 TAKE NEXT WORK STATION * * ST180 EQU * * ALL DATA LINKS ARE STARTED. EXIT. ABL PLDSP2 LOCAL DISPATCHER * * STERR2 EQU * * ERROR DURING STARTUP. EXIT. * ABL TDISP EXIT * EJECT * ******************** * LOCAL DISPATCHER * ******************** * * THIS SECTION CONTAINS A DISPATCHER FOR THE PLC DRIVER. * IT CAN BE CALLED EITHER FROM ANOTHER ROUTINE IN THE * PLC DRIVER, OR FROM A TERMINAL DEVICE DRIVER (THROUGH * THE NETWORK DISTRIBUTOR). * SOME INTERRUPTS OR DEVICE DRIVER CALLS SET SEVERAL * RESOURCES FREE. THIS MEANS THAT SEVERAL WAITING * PROCERSSES MAY BECOME READY FOR ACTIVATION. ONLY ONE * OF THESE PROCESSES CAN BE ACTIVATED DIRECTLY. THE * OTHER PROCESSES WILL BE ACTIVATED IN TURN, WHEN FIRST * PROCESS EXITS TO THIS DISPATCHER. * * * ROUTINES IN ORDER OF APPEARANCE IN CODE: * * NAME FUNCTION * * PLDISP ACTIVATE PROCESS OR PERFORM COMMON FUNCTION * EJECT * ************************************************************ * * ROUTINE NAME: * PLDISP * * FUNCTION: * THIS ROUTINE LOOKS FOR WAITING PROCESSES THAT ARE * READY FOR DISPATCHING. IF ANY IS FOUND, IT IS * ACTIVATED. THE ROUTINE ALSO PERFORMS ACTIONS THAT * ARE NOT EXPLICITLY REQUESTED BY USER PROCESSES, EG * GENERAL READ. WHEN NOTHING IS LEFT TO DO, THE ROUTINE * EXITS TO TOSS DISPATCHER. * TWO ENTRIES ARE PROVIDED. ONE IS USED WHEN CALLER * KNOWS OWN DWT ADDRESS, ONE WHEN CALLER KNOWS OWN * CWT ADDRESS. * * CALL: * ABL PLDISP * ABL PLDSP2 * * INPUT: * A5 = CWT ADDRESS (IF PLDSP2) * A6 = DWT ADDRESS (IF PLDISP) * A1-A8 ON A15 STACK * * OUTPUT: * - * ************************************************************ * PLDISP EQU * PRDISP EQU * CF A15,GETCWT A5 := CWT ADDRESS LDR A5,A5 ABL(Z) TDISP NOT DEFINED. EXIT * * PLDSP2 EQU * * * DP100 EQU * ENB * HANDLE CHARACTER INPUT LD A4,CWTBUF,A5 INPUT BUFFER WAITING? RF(Z) DP200 NO, CONTINUE LD A6,BUFDWT,A4 DWT ADDRESS * CF A15,PLGECH A2 := CHARACTER LDR A1,A1 CHECK RETURN CODE RF(N) DP110 BUFFER EMPTY LD A3,DWTST,A6 DEVICE STATUS ANK A3,DWFINP INPUT REQUESTED? ABL(NZ) INPRST YES, RETURN TO DEVICE DRIVER * LD A1,DWTADR,A6 ADDRESS BLOCK LD A1,INTADR,A1 INTERRUPT ENTRY DEFINED? ABR(NZ) A1 YES, GO TO INTERRUPT HANDLER * DP110 EQU * CW A4,DWTLD1,A6 BUFFER CHAINED TO THIS DWT? RF(NE) DP120 NO, CONTINUE CM DWTLD1,A6 REMOVE LINK DP120 EQU * CM CWTBUF,A5 NO BUFFER WAITING CF A15,PLRLBU RELEASE BUFFER * * CHECK IF LEVEL 3 RECIEVE READY SHOULD BE SENT CF A15,GETIFR A2 := NR OF FRAMES NOT ACK:ED SUK A2,6 TIME TO SEND RR? ABL(NN) SENDRR YES * * DP200 EQU * ENB * HANDLE POWER UP FOR TC LD A1,PFPOST POWER UP TASK PENDING? OR A1,PLCPFP PLC POWER UP PENDING? ABL(NZ) TDISP YES, EXIT * * DP300 EQU * * HANDLE ABORT OF ONE WORK STATION LD A6,CWTABW,A5 WS TO ABORT, IF ANY ABL(NZ) ABTHAN DO ABORT, IF REQUESTED * * DP400 EQU * * CHECK IF ANYONE WAITING FOR CCA LD A4,CWTCCQ,A5 ANYONE IN CCA QUEUE? RF(Z) DP500 NO, CONTINUE LD A1,CWTCCB,A5 CCA FREE? RF(NZ) DP500 NO, CONTINUE IM CWTCCB,A5 SET CCA BUSY ABL CCARST ACTIVATE WAITING PROCESS * * DP500 EQU * * CHECK BUFFER QUEUES LD A6,CWTSBQ,A5 ANYONE IN SHORT BUFFERS QUEUE? RF(Z) DP510 NO, CHECK LONG LDR A7,A5 CWT ADDRESS ADK A7,CWTPBS POOLBLOCK FOR SHORT BUFFERS CF A15,PLGTBU A4 := BUFFER ADDRESS RF(Z) DP510 NO BUFFER AVAILABLE LDK A7,CWTSBQ OFFSET TO CWT QUEUE HEAD RF DP520 COMMON PART FOR SHORT/LONG * DP510 EQU * LD A6,CWTLBQ,A5 ANYONE IN LONG BUFFERS QUEUE? RF(Z) DP600 NO, CONTINUE LDR A7,A5 CWT ADDRESS ADK A7,CWTPBL POOLBLOCK FOR LONG BUFFERS CF A15,PLGTBU A4 := BUFFER ADDRESS RF(Z) DP600 CONTINUE IF NO BUFFER AVAILABLE LDK A7,CWTLBQ OFFSET TO LONG BUFFERS QUEUE HEAD * DP520 EQU * * SHORT OR LONG BUFFER FOUND LDR A2,A4 SAVE BUFFER ADDRESS LDR A4,A6 DWT QUEUE LINK ADR A7,A5 BUFFER QUEUE HEAD CF A15,LNKOUT REMOVE FROM QUEUE SUKL A6,DWTOTQ A6 := DWT ADDRESS LDR A4,A2 RESTORE BUFFER ADDRESS LDK A1,0 RET CODE := OK ABL BUFRST RETURN TO ROUTINE WAITING * * DP600 EQU * * CHECK IF GENERAL READ SHOULD BE PERFORMED LD A1,CWTGR,A5 GENERAL READ ALLOWED? RF(NZ) DP800 NO, EXIT * LDR A7,A5 CWT ADDRESS ADK A7,CWTPBG POOLBLOCK FOR GENERAL READ BUFFERS CF A15,PLGTBU A4 := BUFFER ADDRESS ABL(NZ) GREAD PERFORM GR IF BUFFER FOUND * * DP800 EQU * * NOTHING MORE TO DO. EXIT TO DISPATCHER ABL TDISP TOSS DISPATCHER * EJECT * ************ * ROUTINES * ************ * * THIS SECTION CONTAINS MISCELLANEOUS SERVICE ROUTINES. * ALL ROUTINES ARE CALLED BY AN ABL "NAME" INSTRUCTION. * REGISTER INTERFACE IS DESCRIBED FOR EACH ROUTINE. * WHEN A ROUTINE HAS PERFORMED THE REQUESTED FUNCTION, * IT WILL EXIT TO THE LOCAL DISPATCHER. * * ROUTINES IN ORDER OF APPEARANCE IN CODE: * * NAME FUNCTION * * ABTHAN ABORT ALL WAITING DWT:S ON A WORK STATION * PLREWS HANDLE RECOVERY OF ONE WORK STATION * SENDRR SEND LEVEL 3 RECIEVE READY MESSAGE * GREAD PERFORM GENERAL READ * EJECT * ************************************************************ * * ROUTINE NAME: * ABTHAN * * FUNCTION: * THIS ROUTINE WILL HANDLE ABORTS FOR ONE WORK * STATION. ALL REQUESTS OF DWT:S WAITING FOR * LEVEL 3 ACK OR WAITING IN CCA OR BUFFER QUEUES * WILL BE ABORTED. ONE CALL IS NEEDED FOR EACH * REQUEST TO BE ABORTED. * * CALL: * ABL ABTHAN * * INPUT: * A5 = CWT ADDRESS * A6 = WORK STATION NUMBER * * OUTPUT: * AT RETURN TO REQUEST: * A1 = RETURN CODE * A5 = CWT ADDRESS * A6 = DWT ADDRESS * ************************************************************ * ABTHAN EQU * LDR A3,A6 WORK STATION NUMBER SLA A3,1 MAKE INDEX ADR A3,A5 ADD CWT ADDRESS ADK A3,CWTWSS A3 := ADDRESS OF STATUS FOR WS * EJECT * LDR A8,A6 SAVE WS NUMBER LD* A1,CWTINT,A5 WORK STATION TABLE CF A15,NDGEDN A7 := HIGEST DWT NR ON WS LDK A1,0 LCR A1,A3 WORK STATION STATUS * ADK A7,1 PREPARE FOR SUK AH100 EQU * SUK A7,1 NEXT DWT RF(N) AH110 EXIT IF ALL DONE LDR A6,A8 WS NUMBER CF A15,GETDWT A6 := DWT ADDRESS RB(Z) AH100 NOT DEFINED * CM DWTLD2,A6 RESET FLOW CONTROL LD A2,DWTST,A6 DWT STATUS LDR A3,A2 LDKL A4,/FFFF-DWFPLC MASK FOR PLC FLAGS ANS A4,DWTST,A6 RESET FLAGS ANK A2,DWFAK3 IS DWT WAITING FOR LEVEL 3 ACK? RF(Z) AH105 NO, CONTINUE ANK A3,DWFSAC ALWAYS WAIT FOR LEVEL 3 ACK? ABL(NZ) AK3RST YES, RETURN WITH ACK 3 ABL WINRST NO, RETURN TO WINDOW QUEUE * AH105 EQU * LD A4,DWTOTQ,A6 CCA QUEUE ELEMENT POINTER LDR A2,A7 SAVE DEVICE ADDRESS LDR A3,A1 SAVE RETURN CODE LDR A7,A5 CWT ADDRESS ADK A7,CWTCCQ CCA QUEUE HEAD CF A15,LNKOUT LINK MONITOR BLOCK OUT OF QUEUE LDR A7,A7 FOUND? ABL(NZ) CCAABT YES, ABORT REQUEST LDR A7,A2 RESTORE DEVICE ADDRESS LDR A1,A3 RESTORE RETURN CODE * CF A15,OUTBUQ REMOVE FROM BUFFER QUEUE LDR A2,A2 FOUND IN QUEUE? ABL(NZ) BUFRST YES, TERMINATE REQUEST RB AH100 NEXT DWT * AH110 EQU * * ALL PROCESSES WAITING FOR ACK 3 OR IN QUEUES ARE ABORTED CM CWTABW,A5 NO MORE ABORT ABL PLDSP2 LOCAL DISPATCHER * EJECT * ************************************************************ * * ROUTINE NAME: * PLREWS * * FUNCTION: * THIS ROUTINE WILL HANDLE RECOVERY OF ONE WORK * STATION. ACTUAL CALL TO TERMINAL DEVICE DRIVER * RECOVERY ROUTINES ARE MADE THROUGH NDREWS. * * CALL: * ABL PLREWS * * INPUT: * A5 = CWT ADDRESS * A6 = WORK STATION NUMBER * * OUTPUT: * AT ENTRY TO DEVICE RECOVERY: * SEE NDREWS * ************************************************************ * PLREWS EQU * LDR A3,A6 WORK STATION NUMBER SLA A3,1 MAKE INDEX ADR A3,A5 ADD CWT ADDRESS ADK A3,CWTWSS A3 := ADDRESS OF STATUS FOR WS * LDKL A2,/FFFF-WSFERR MASK FOR ERROR FLAG ANRS A2,A3 INDICATE WS WORKING AFTER ERROR LCR A1,A3 WS STATUS LDK A2,0 SCR A2,A3 RESET STATUS LDK A4,RESECP ASSUME SECONDARY POWER UP ANK A1,NOTOPR WAS IT? RF(NZ) PR110 YES LDK A4,RELINE NO, LINK ERROR PR110 EQU * LD* A3,CWTINT,A5 WORK STATION TABLE CF A15,NDREWS CALL RECOVERY FOR ALL DWT:S ON WS * ABL PLDSP2 LOCAL DISPATCHER * EJECT * ************************************************************ * * ROUTINE NAME: * SENDRR * * FUNCTION: * THIS ROUTINE WILL SEND ONE LEVEL 3 RECIEVE READY * MESSAGE TO A SECONDARY STATION. * * CALL: * ABL SENDRR * * INPUT: * A5 = CWT ADDRESS * A6 = DWT ADDRESS * * OUTPUT: * - * ************************************************************ * SENDRR EQU * CF A15,PLCCCA RESERVE CCA CF A15,GETBLK GET MONITOR BLOCK AS BUFFER ENB LDR A7,A5 CWT ADDRESS ADK A7,CWTMBQ QUEUE FOR KEEPING TRACK OF MB:S CF A15,LNKFST PUT MONITOR BLOCK IN QUEUE ADK A4,2 A4 := START OF USER PART CF A15,WRADR2 WRITE LINE ADDRESS IN CCA & BUFFER LDK A2,CMDSW COMMAND := STANDARD WRITE SC A2,CWTCCA+CCRCMD,A5 TO CCA LDK A2,TYRR MESSAGE TYPE := RECIEVE READY SC A2,CWTCCA+CCRIDB,A5 TO CCA, IDENTITY LDK A2,X25DAT LENGTH OF X25 HEADER ST A2,CWTCCA+CCRLEN,A5 BUFFER LENGTH TO CCA CM CWTCCA+CCRC1B,A5 RESET DATA CHAIN & MSB BUFFER ADDR ST A4,CWTCCA+CCRBUF,A5 BUFFER ADDRESS TO CCA * CF A15,GETLCS A1 := STATUS & INH RF(Z) RR100 CONTINUE IF OK CM CWTCCB,A5 SET CCA FREE RF RR110 SKIP RR RR100 EQU * CF A15,FWOPR A2 := P(R). UPDATE FLOW CTRL ORK A2,/01 MESSAGE TYPE := RR SC A2,X25FLW,A4 TO BUFFER CF A15,PLCCIO EXECUTE CIO START RF(Z) RR120 EXIT IF OK RR110 EQU * SUK A4,2 START ADDRESS OF MONITOR BLOCK CF A15,LNKOUT REMOVE FROM QUEUE. A7 ALREADY SET CF A15,FREBLK RETURN MONITOR BLOCK * RR120 EQU * ABL PLDSP2 LOCAL DISPATCHER * EJECT * ************************************************************ * * ROUTINE NAME: * GREAD * * FUNCTION: * THIS ROUTINE WILL PERFORM ONE GENERAL READ * OPERATION TO THE PLC. * * CALL: * ABL GREAD * * INPUT: * A4 = BUFFER ADDRESS * A5 = CWT ADDRESS * * OUTPUT: * - * ************************************************************ * GREAD EQU * LDR A6,A4 PARAMETER := BUFFER ADDRESS CF A15,PLCCCA RESERVE PLC CCA * SET CCA PARAMETERS CM CWTCCA+CCRC1B,A5 CLEAR DATA CHAINING & MSB ADDR ST A6,CWTCCA+CCRBUF,A5 BUFFER ADDRESS LD A2,BUFLEN,A6 BUFFER LENGTH ST A2,CWTCCA+CCRLEN,A5 LDK A2,CMDGR COMMAND GENERAL READ ST A2,CWTCCA+CCRDLS,A5 DLS INDEX & COMMAND CF A15,PLCCIO EXECUTE CIO START ABL PLDSP2 CHECK WHAT TO DO NEXT * EJECT * *************** * SUBROUTINES * *************** * * THIS SECTION CONTAINS MISCELLANEOUS SERVICE SUBROUTINES. * ALL ROUTINES ARE CALLED BY A CF A15,"NAME" * INSTRUCTION. REGISTER INTERFACE IS DESCRIBED FOR EACH * ROUTINE. ONLY REGISTERS A1-A8 & PSW ARE CONSIDERED. * REGISTERS NOT MENTIONED UNDER "OUTPUT" ARE UNCHANGED * FROM CALL. * THE ROUTINES ARE OF TWO TYPES, ASYNCHRONOUS ROUTINES * AND COMPUTATION ROUTINES. ASYNCHRONOUS ROUTINES MAY, * IF THE REQUESTED FUNCTION IS OCCUPIED OR NOT USEABLE, * EXIT TO THE LOCAL DISPATCHER AND/OR TOSS DISPATCHER. * THIS MEANS THAT THE A15 STACK AT CALL MUST CONTAIN * INTERRUPT RETURN, A1-A8 AND NOTHING ELSE. COMPUTATION * ROUTINES HAVE NO SUCH LIMITATIONS, AS THEY WILL RETURN * IMMEDIATELY WHEN THEY HAVE PERFORMED THE PROCESSING. * EJECT * * ROUTINES IN ORDER OF APPEARANCE IN CODE: * * NAME FUNCTION * * ASYNCHRONOUS ROUTINES * PLCCCA RESERVE CCA FOR PROCESS * PLCCIO EXECUTE CIO START * * COMPUTATION ROUTINES * PLCNOP SET FLAG INDICATING PLC NOT OPERABLE * GETDWT CALCULATE DWT ADDRESS * GETCWT CALCULATE CWT ADDRESS * GETFR GET NUMBER OF OUTSTANDING FRAMES * FLWINP HANDLE FLOW CONTROL FOR INPUT * FLWOUT HANDLE FLOW CONTROL FOR OUTPUT * WRADDR WRITE LINE ADDRESS IN CCA AND BUFFER * STAHAN PLC RETURN STATUS HANDLER * GETSTA GET STATUS FOR I/O CONNECTION * PLGTBU ALLOCATE BUFFER AND SET TO PLC FORMAT * PLRLBU RELEASE BUFFER OF PLC FORMAT * PLCHAR GET/PUT CHARACTER FROM/IN PLC FORMAT BUFFER * INTYPE DECIDE TYPE OF INPUT MESSAGE * OUTBUQ REMOVE ELEMENT FROM BUFFER QUEUE * LNKFST LINK ELEMENT FIRST IN QUEUE * LNKLST LINK ELEMENT LAST IN QUEUE * LNKOUT LINK ELEMENT OUT OF QUEUE * EJECT * ************************************************************ * * ROUTINE NAME: * PLCCCA * * FUNCTION: * THIS ROUTINE IS CALLED WHEN A PROCESS WANTS TO * USE THE PLC COMMAND COMMUNICATION AREA (CCA). * IF THE AREA IS FREE, THE ROUTINE SETS IT BUSY * AND RETURNS. IF THE AREA IS BUSY, THE CALLING * PROCESS IS PUT IN A QUEUE, AND EXIT IS MADE TO * THE LOCAL DISPATCHER. * PLCCCA ONLY RESERVES THE AREA. * PLCCCS ALSO SAVES THE QUEUE ELEMENT ADDRESS. * * CALL: * CF A15,PLCCCA * CF A15,PLCCCS * * INPUT: * A3 = QUEUE ELEMENT ADDRESS SAVE AREA (IF PLCCCS) * A5 = CWT ADDRESS * A6 = PARAMETER * A1-A8 ON A15 STACK * * OUTPUT: * A1 = RETURN CODE (IF PLCCCS, ELSE CHANGED) * A2-A4 CHANGED * A7-A8 CHANGED * CR = CHANGED * INTERR. INHIBITED * ************************************************************ * EJECT * PLCCCA EQU * LDK A3,0 DON'T SAVE QUEUE ELEMENT ADDRESS * PLCCCS EQU * INH LD A1,CWTCCQ,A5 ANYONE WAITING FOR CCA? RF(NZ) CA100 YES, PUT IN QUEUE LD A4,CWTCCB,A5 PLC BUSY? RF(NZ) CA100 YES, PUT IN QUEUE * * PLC FREE IM CWTCCB,A5 SET PLC BUSY ADKL A15,4 ADJUST STACK FOR RETURN LDK A1,0 RETURN CODE := OK ABR* A15 RETURN IN INHIBIT MODE * * CA100 EQU * * PLC BUSY. PUT REQUEST IN QUEUE. LDR A1,A6 SAVE PARAMETER LDR* A2,A15 SKIP PSW LDR* A2,A15 SAVE RETURN ADDRESS CF A15,GETBLK GET MONITOR BLOCK AND SAVE A1-A2 LDR A3,A3 SAVE POINTER? RF(Z) CA110 NO, CONTINUE STR A4,A3 SAVE QUEUE ELEMENT ADDRESS CA110 EQU * LDR A7,A5 CWT ADDRESS ADK A7,CWTCCQ PLC BUSY QUEUE HEAD CF A15,LNKLST PUT BLOCK LAST IN QUEUE IFF UTTEST=0 QUEUE STATISTICS LD A1,CWTPNR,A5 PLC NUMBER SLA A1,1 MAKE INDEX IM CCQSTA,A1 INCREMENT QUEUE STATISTICS COUNTER XIF ABL PLDSP2 LOCAL DISPATCHER * * * RETURN IS MADE HERE WHEN THE CCA IS FREE. * (AT A RELEASE INTERRUPT OR FROM DISPATCHER.) * REGISTERS ON ENTRY: * A4 = MONITOR BLOCK ADDRESS * A5 = CWT ADDRESS * CCARST EQU * INH LDR A7,A5 CWT ADDRESS ADK A7,CWTCCQ CCA QUEUE HEAD CF A15,LNKOUT REMOVE PROCESS FROM QUEUE LDK A3,0 RETURN CODE := OK * * * ENTRY IS MADE HERE WHEN A REQUEST SHOULD BE ABORTED * DUE TO I/O ERROR. * REGISTERS ON ENTRY: * A3 = RETURN CODE * A4 = MONITOR BLOCK ADDRESS * A5 = CWT ADDRESS * CCAABT EQU * INH LDR A7,A3 SAVE RETURN CODE CF A15,FREBLK RETURN MONITOR BLOCK. LOAD A1-A2 LDR A6,A1 PARAMETER LDR A1,A7 A1 := RETURN CODE ABR A2 RETURN * EJECT * ************************************************************ * * ROUTINE NAME: * PLCCIO * * FUNCTION: * THIS ROUTINE CHECKS IF THE PLC CAN BE USED. IF IT CAN, * THE ROUTINE EXECUTES A CIO START INSTRUCTION. * IF THE PLC IS NOT OPERABLE DUE TO TC POWER UP, * THE ROUTINE WILL EXIT TO TOSS DISPATCHER. IN ALL OTHER * CASES, IT WILL RETURN TO CALLING PROGRAM WITH A RETURN * CODE. * * CALL: * CF A15,PLCCIO * * INPUT: * A5 = CWT ADDRESS * A1-A8 ON A15 STACK * * OUTPUT: * A1 = RETURN CODE * 0 IF OK * NOT 0 ELSE * A2 = CHANGED * CR = CONTENTS OF A1 * INTERR. INHIBITED * ************************************************************ * PLCCIO EQU * INH LDR* A2,A15 SKIP PSW LDR* A2,A15 GET RETURN ADDRESS * EJECT * LD A1,PFPOST POWER UP TASK PENDING? OR A1,PLCPFP PLC POWER UP PENDING? ABL(NZ) TDISP YES, GO TO TOSS DISPATCHER LD A1,CWTOPR,A5 PLC OPERABLE? RF(NZ) CS100 NO, HANDLE IFF UTTEST=0 CF A15,LOGCOM LOG CCR XIF EX CWTCIO,A5 EXECUTE CIO START RF(U) CS090 UNDEFINED, NOT OK =13 LDKL A1,0 SET CR, OK =14 ABR A2 CS090 EQU * * CF A15,PLCNOP ERROR. SET NOT OPERABLE CS100 EQU * LDK A1,NOTOPR RETURN CODE := NOT OPERABLE CM CWTCCB,A5 SET CCA FREE LDR A1,A1 SET CR ABR A2 RETURN * EJECT * ************************************************************ * * ROUTINE NAME: * PLCNOP * * FUNCTION: * THIS ROUTINE SETS A FLAG TO INDICATE THAT THE PLC * IS "NOT OPERABLE". * * CALL: * CF A15,PLCNOP * * INPUT: * A5 = CWT ADDRESS * * OUTPUT: * - * ************************************************************ * PLCNOP EQU * STR A1,A15 PUSH A1 LD A1,CWTPLS,A5 GET PLC STATUS RF(NZ) PN100 LDKL A1,-1 SET DUMMY ERROR CODE PN100 EQU * ST A1,CWTOPR,A5 SET PLC NOT OPERABLE * IFF UTTEST=0 * EJECT * LD A1,UTTST TRAP CONTROL SUK A1,1 TRAP USED? RF(NG) PN120 NO, SKIP LDK A1,PLCERR ERROR CODE OTR A1,0,/2E TO SOP LAMPS DATA /6300 TRAP TO BUGGER PN120 EQU * * XIF * LDR* A1,A15 POP A1 RTN A15 EJECT * ************************************************************ * * ROUTINE NAME: * GETDWT * * FUNCTION: * THIS ROUTINE CALCULATES THE DWT ADDRESS FOR A * DEVICE CONNECTED TO A PLC. * * CALL: * CF A15,GETDWT * * INPUT: * A5 = CWT ADDRESS * A6 = DLS INDEX * A7 = DEVICE ADDRESS * * OUTPUT: * A6 = DWT ADDRESS IF FOUND, * ELSE 0 * CR = CONTENTS OF A6 * INTERR. INHIBITED * ************************************************************ * GETDWT EQU * INH STR A1,A15 PUSH A1 LD* A1,CWTINT,A5 WORK STATION TABLE CF A15,NDGEDW A6 := DWT ADDRESS LDR* A1,A15 POP A1 ADKL A15,4 ADJUST STACK FOR RETURN ANKL A6,/FFFE SET CR & SKIP ODD ADDRESS ABR* A15 RETURN * EJECT * ************************************************************ * * ROUTINE NAME: * GETCWT * * FUNCTION: * THIS ROUTINE CALCULATES THE CWT ADDRESS FOR * THE PLC CONTROLLING CALLING DEVICE. * * CALL: * CF A15,GETCWT * * INPUT: * A6 = DWT ADDRESS * * OUTPUT: * A5 = CWT ADDRESS IF FOUND, * ELSE 0 * A7 = 0 IF LOCAL CONNECTION * CR = CHANGED * ************************************************************ * GETCWT EQU * LD A5,DWTCHP,A6 CHANNEL PARAMETERS ANK A5,MASKPL CLEAN CHANNEL UNIT INDEX SLL A5,1 MAKE INDEX IFF PLCNRR=0 IFF PLCNRL=0 LDR* A7,A6 CHANNEL PARAMETER ANKL A7,/0500 MASK =10 SUKL A7,/0500 REMOTE ? RF(Z) GET010 NO ADK A5,8 ADJUST INDEX FOR REMOTE XIF GET010 LD A5,TABCWT,A5 A5 := CWT ADDRESS * IFT CPU852=1 ADKL A15,2 SKIP PSW LDR* P,A15 RETURN XIF IFF CPU852=1 RTN A15 XIF * EJECT * ************************************************************ * * ROUTINE NAME: * GETFR * * FUNCTION: * THIS ROUTINE CALCULATES THE NUMBER OF OUTSTANDING * FRAMES, IE FRAMES THAT HAVE BEEN TRANSFERRED BUT * NOT ACKNOWLEDGED ON LEVEL 3, FOR A LOGICAL * CHANNEL. * GETIFR GETS NUMBER OF FRAMES RECIEVED BY PLC. * GETOFR GETS NUMBER OF FRAMES SENT BY PLC. * * CALL: * CF A15,GETIFR * CF A15,GETOFR * * INPUT: * A6 = DWT ADDRESS * * OUTPUT: * A1 = CHANGED * A2 = NUMBER OF OUTSTANDING FRAMES * CR = CHANGED * ************************************************************ * GETIFR EQU * LD A2,DWTLD2,A6 FLOW CONTROL COUNTERS LDR A1,A2 SRL A2,9 BITS 13-15 := NEXT EXPECTED P(S) SRL A1,5 BITS 13-15 := LAST SENT P(R) RF GF100 TO COMMON PART * EJECT * GETOFR EQU * LD A2,DWTLD2,A6 FLOW CONTROL COUNTERS LDR A1,A2 SRL A2,1 BITS 13-15 := NEXT P(S) TO SEND SLC A1,3 BITS 13-15 := LAST RECIEVED P(R) * * GF100 EQU * SUR A2,A1 A2 := OUTSTANDING FRAMES ANK A2,/07 CLEAN & MODULO 8 * IFT CPU852=1 ADKL A15,2 SKIP PSW LDR* P,A15 RETURN XIF * IFF CPU852=1 RTN A15 XIF * EJECT * ************************************************************ * * ROUTINE NAME: * FLWINP * * FUNCTION: * THIS ROUTINE HANDLES FLOW CONTROL FOR INPUT. IT FETCHES * FLOW CONTROL INFORMATION FROM MESSAGE AND UPDATES * COUNTERS IN DWT. * FWIPR IS FOR MESSAGES ONLY CONTAINING P(R). * FWIPSR IS FOR MESSAGES CONTAINING P(S) AND P(R). * NO ERROR CHECK IS MADE. * * CALL: * CF A15,FWIPR * CF A15,FWIPSR * * INPUT: * A4 = BUFFER ADDRESS * A6 = DWT ADDRESS * * OUTPUT: * A1 = CHANGED * CR = CHANGED * ************************************************************ * FWIPR EQU * STR A2,A15 PUSH A2 LC A1,X25FLW,A4 FLOW CONTROL FROM INPUT ANK A1,/E0 BITS 8-10 = P(R) IN LC A2,DWTLD2,A6 OLD FLOW CONTROL ANK A2,/0E BITS 12-14 = OLD P(S) IN ORR A1,A2 KEEP OLD P(S) LDR* A2,A15 POP A2 RF FI100 COMMON ENDING * * FWIPSR EQU * LC A1,X25FLW,A4 FLOW CONTROL FROM INPUT ANK A1,/EE CLEAN ADK A1,/02 BITS 12-14 := NEXT EXPECTED P(S) IN ANK A1,/EE MODULO 8 * * FI100 EQU * SC A1,DWTLD2,A6 SAVE NEW FLOW CONTROL * IFT CPU852=1 ADKL A15,2 SKIP PSW LDR* P,A15 RETURN XIF * IFF CPU852=1 RTN A15 XIF * EJECT * ************************************************************ * * ROUTINE NAME: * FLWOUT * * FUNCTION: * THIS ROUTINE HANDLES FLOW CONTROL FOR OUTPUT. FLOW * CONTROL INFORMATION IS FETCHED FROM DWT, AND COUNTERS * IN DWT ARE UPDATED. * FWOPR IS FOR MESSAGES CONTAINING ONLY P(R). * FWOPSR IS FOR MESSAGES CONTAINING P(S) AND P(R). * * CALL: * CF A15,FWOPR * CF A15,FWOPSR * * INPUT: * A6 = DWT ADDRESS * * OUTPUT: * A1 = CHANGED * A2 = BITS 0-7 ZERO * BITS 8-10 P(R) TO SEND * BIT 11 ZERO * BITS 12-14 P(S) TO SEND IF FWOPSR * ELSE ZERO * BIT 15 ZERO * CR = CHANGED * ************************************************************ * FWOPR EQU * LD A2,DWTLD2,A6 FLOW CONTROL COUNTERS LDR A1,A2 SRL A2,4 BITS 8-10 := NEXT EXPECTED P(S) IN * (= P(R) TO SEND) ANK A2,/E0 CLEAN ANK A1,/0E BITS 12-14 = NEXT P(S) TO SEND ORR A1,A2 P(S) := SAME AS BEFORE RF FO100 COMMON ENDING * * FWOPSR EQU * LD A2,DWTLD2,A6 FLOW CONTROL COUNTERS LDR A1,A2 SRL A2,4 BITS 8-10 := NEXT EXPECTED P(S) IN * (= P(R) TO SEND) ANK A2,/E0 CLEAN ANK A1,/0E BITS 12-14 = NEXT P(S) TO SEND ORR A2,A1 COUNTERS FOR MESSAGE LDR A1,A2 ADK A1,/02 INCREMENT P(S) TO SEND ANK A1,/EE MODULO 8 * * FO100 EQU * SC A1,DWTLD2+1,A6 SAVE FLOW CONTROL COUNTERS * IFT CPU852=1 ADKL A15,2 SKIP PSW LDR* P,A15 RETURN XIF * IFF CPU852=1 RTN A15 XIF EJECT * ************************************************************ * * ROUTINE NAME: * WRADDR * * FUNCTION: * THIS ROUTINE WRITES THE LINE ADDRESS IN A * MESSAGE. THE ADDRESS CONSISTS OF: DROP ADDRESS, * GROUP NUMBER AND DEVICE ADDRESS. WRADR1 SETS * GROUP=1 INDICATING NO FLOW CONTROL, WRADR2 SETS * GROUP=0 INDICATING FLOW CONTROL. * * CALL: * CF A15,WRADR1 * CF A15,WRADR2 * * INPUT: * A4 = BUFFER ADDRESS * A5 = CWT ADDRESS * A6 = DWT ADDRESS * * OUTPUT: * A2 = CHANGED * CR = CHANGED * ************************************************************ * WRADR1 EQU * LDK A2,/11 GROUP NUMBER 1 RF WA100 TO COMMON PART * EJECT * WRADR2 EQU * LDK A2,/10 GROUP NUMBER 0 * * WA100 EQU * SC A2,X25LGN,A4 GROUP NUMBER TO BUFFER LC A2,DWTCP2,A6 CHANNEL PARAMETERS ANK A2,MASKWS CLEAN WS NUMBER SC A2,CWTCCA+CCRDLS,A5 TO CCA LC A2,DWTCP2+1,A6 ANK A2,MASKLC CLEAN DEVICE ADDRESS SC A2,X25LCN,A4 TO BUFFER * IFT CPU852=1 ADKL A15,2 SKIP PSW LDR* P,A15 RETURN XIF * IFF CPU852=1 RTN A15 XIF * EJECT * ************************************************************ * * ROUTINE NAME: * STAHAN * * FUNCTION: * THIS ROUTINE HANDLES PLC STATUS WORD FOR ONE * WORK STATION. IF "NO CONNECTION", "LINK RESET" * OR "DCE NOT OPERABLE" IS INDICATED, AN ERROR * CODE WILL BE * SET IN THE WORK STATION STATUS WORD (CWTWSS). * OTHER STATUS BITS ARE NOT ALLOWED. * * CALL: * CF A15,STAHAN * * INPUT: * A1 = PLC STATUS * A2 = WORK STATION NUMBER * A5 = CWT ADDRESS * * OUTPUT: * A1 = DEVICE RETURN CODE * CR = CHANGED * ************************************************************ * STAHAN EQU * STR A3,A15 PUSH A3 LDR A3,A1 ANY ERROR? RF(Z) SH120 NO, RETURN STR A4,A15 PUSH A4 * EJECT * LDK A1,NOTOPR ASSUME NO CONNECTION ANKL A3,STADNO+STANOC IS IT? RF(NZ) SH100 YES, CONTINUE LDK A1,LINERR NO, LINK ERROR SH100 EQU * LDR A3,A2 WORK STATION NUMBER SLA A3,1 MAKE INDEX ADR A3,A5 ADD CWT ADDRESS ADK A3,CWTWSS A3 := ADDRESS OF STATUS FOR WS SCR A1,A3 SAVE ERROR CODE LDK A4,WSFERR WORK STATION ERROR ANR* A4,A3 ALREADY DETECTED? RF(NZ) SH110 YES, RETURN LDK A4,WSFERR ORRS A4,A3 SET ERROR DETECTED ST A2,CWTABW,A5 INDICATE ABORT DWT:S FOR WS * SH110 EQU * LDR* A4,A15 POP A4 SH120 EQU * LDR* A3,A15 POP A3 * IFT CPU852=1 ADKL A15,2 SKIP PSW LDR* P,A15 RETURN XIF IFF CPU852=1 RTN A15 XIF * EJECT * ************************************************************ * * ROUTINE NAME: * GETSTA * * FUNCTION: * THIS ROUTINE WILL CHECK THE I/O STATUS FOR * A DEVICE. * GETWSS WILL ONLY CHECK THE STATUS FOR THE * WORK STATION CONNECTION. * GETLCS WILL CHECK BOTH LOGICAL CHANNEL AND * WORK STATION STATUS. * * CALL: * CF A15,GETLCS * CF A15,GETWSS * * INPUT: * A5 = CWT ADDRESS * A6 = DWT ADDRESS * * OUTPUT: * A1 = RETURN CODE * CR = CONTENTS OF A1 * INTERR. INHIBITED * ************************************************************ * GETLCS EQU * INH STR A3,A15 PUSH A3 * LDK A1,LINERR SET RETURN CODE IN CASE LD A3,DWTST,A6 DWT STATUS ANK A3,DWFRES RESET PACKET RECIEVED? RF(NZ) LS110 YES, RETURN. RET CODE = LINERR RF LS100 NOT RESET. CHECK WSS * * GETWSS EQU * INH STR A3,A15 PUSH A3 * * LS100 EQU * LC A3,DWTCP2,A6 WS NUMBER ANK A3,MASKWS CLEAN SLA A3,1 MAKE INDEX ADR A3,A5 CWT ADDRESS LC A1,CWTWSS,A3 WS STATUS * * LS110 EQU * LDR* A3,A15 POP A3 ADKL A15,4 ADJUST STACK ANK A1,/FF CLEAN RETURN CODE & SET CR ABR* A15 RETURN * EJECT * ************************************************************ * * ROUTINE NAME: * PLGTBU * * FUNCTION: * THIS ROUTINE WILL ALLOCATE A BUFFER AND FORMAT IT * ACCORDING TO THE FORMAT USED BY THIS DRIVER. * * CALL: * CF A15,PLGTBU * * INPUT: * A7 = POOLBLOCK ADDRESS * * OUTPUT: * A2 = LENGTH OF USER PART OF BUFFER * A4 = START OF USER PART OF BUFFER (IF ANY) * CR = NOT 0 IF BUFFER ALLOCATED * 0 IF NO BUFFER ALLOCATED * INTERR. INHIBITED * ************************************************************ * PLGTBU EQU * LDR* A2,A15 SKIP PSW LDR* A2,A15 GET RETURN ADDRESS CF A15,GETBUF A4 := BUFFER. INH ABR(Z) A2 RETURN IF NO BUFFER * ST A2,0,A15 SAVE RETURN ADDRESS ADK A4,BUFHLN START OF USER PART ST A7,BUFLNK,A4 SAVE POOLBLOCK ADDRESS LD A2,POBBUS,A7 BUFFER SIZE SUK A2,BUFHLN A2 := LENGTH OF USER PART RF(P) GU100 CONTINUE IF OK ANK A2,0 TOO SHORT. BUFFER LENGTH & CR := 0 GU100 EQU * ST A2,BUFLEN,A4 USER BUFFER LENGTH ABR* A15 RETURN * EJECT * ************************************************************ * * ROUTINE NAME: * PLRLBU * * FUNCTION: * THIS ROUTINE RELEASES AN I/O BUFFER OF THE * FORMAT USED BY THIS DRIVER. * * CALL: * CF A15,PLRLBU * * INPUT: * A4 = BUFFER ADDRESS * * OUTPUT: * A4 = CHANGED * CR = CHANGED * INTERR. INHIBITED IF CPU 852 * ************************************************************ * PLRLBU EQU * STR A7,A15 PUSH A7 LD A7,BUFLNK,A4 POOLBLOCK ADDRESS SUK A4,BUFHLN A4 :- PHYSICAL START OF BUFFER CF A15,RELBUF RELEASE BUFFER & INH LDR* A7,A15 POP A7 * IFT CPU852=1 ADKL A15,2 SKIP PSW LDR* P,A15 RETURN XIF IFF CPU852=1 RTN A15 XIF EJECT * ************************************************************ * * ROUTINE NAME: * PLCHAR * * FUNCTION: * THESE ROUTINES ARE USED TO GET A CHARACTER * FROM A BUFFER OR PUT A CHARACTER IN A BUFFER. * THE BUFFER SHOULD HAVE A HEADER OF THE NORMAL * PLC FORMAT (SE "BUFFER LAYOUT" CONSTANT * DEFINITION). * * CALL: * CF A15,PLGECH * CF A15,PLPUCH * * INPUT: * A2 = IF PUT CHAR * BITS 0-7 IRRELEVANT * BITS 8-15 CHARACTER * A4 = BUFFER ADDRESS * * OUTPUT: * A1 = RETURN CODE * -1 IF OVERFLOW/UNDERFLOW, ELSE * AT PLPUCH: 0 * AT PLGECH: NR OF CHAR LEFT IN BUFFER * A2 = IF PLGECH & A1>=0 : * BITS 0-7 ZERO * BITS 8-15 CHARACTER * INTERR. INHIBITED * ************************************************************ * EJECT * PLGECH EQU * INH * LD A1,BUFLEN,A4 LENGTH OF TEXT IN BUFFER LD A2,BUFBIX,A4 BYTE INDEX SUR A1,A2 SUK A1,1 A1 := NR OF CHAR LEFT RF(N) CH100 EXIT IF UNDERFLOW IM BUFBIX,A4 INCREMENT INDEX ADR A2,A4 ABSOLUTE ADDRESS OF CHARACTER LCR A2,A2 GET CHARACTER ANK A2,/FF CLEAN * RF CH110 NORMAL EXIT * * PLPUCH EQU * INH * LD A1,BUFBIX,A4 BYTE INDEX CW A1,BUFLEN,A4 OUTSIDE BUFFER? RF(NL) CH100 YES, ERROR IM BUFBIX,A4 INCREMENT INDEX ADR A1,A4 FREE PLACE IN BUFFER SCR A2,A1 PUT CHARACTER IN BUFFER LDK A1,0 RETURN CODE := OK RF CH110 NORMAL EXIT * * CH100 EQU * LDKL A1,-1 RETURN CODE := ERROR CH110 EQU * ADKL A15,4 ADJUST STACK ABR* A15 RETURN * EJECT * ************************************************************ * * ROUTINE NAME: * INTYPE * * FUNCTION: * THIS ROUTINE CHECKS A GENERAL READ ANSWER FROM * THE PLC TO DETERMINE TYPE OF MESSAGE. * * CALL: * CF A15,INTYPE * * INPUT: * A5 = CWT ADDRESS * * OUTPUT: * A2 = CHANGED * A3 = TYPE * A4 = CHANGED * CR = CHANGED * ************************************************************ * INTYPE EQU * LDK A2,X25DAT MINIMUM INPUT LENGTH CW A2,CWTRCA+CCRLEN,A5 LENGTH >= MINIMUM? RF(G) ITERR NO, ERROR * EJECT * LD A3,CWTRCA+CCRBUF,A5 BUFFER ADDRESS LC A2,X25LGN,A3 GROUP NUMBER LDR A4,A2 SAVE ANK A4,/0F CLEAN RF(NZ) IT120 NOT GROUP ZERO * * CHANNEL GROUP ZERO. NORMAL MESSAGES. LC A3,X25FLW,A3 FLOW CONTROL BYTE LDR A4,A3 SAVE ANK A4,/01 FLAG RF(NZ) IT100 NOT DATA PACKET LDK A3,TYDATA ASSUME NORMAL DATA ANK A2,/80 QUALIFY BIT SET? RF(Z) ITEXIT NO, NORMAL DATA. EXIT LDK A3,TYSTAT YES, STATUS MESSAGE RF ITEXIT EXIT * IT100 EQU * LDR A4,A3 SAVE FLOW CONTROL BYTE ANK A3,/02 RECIEVE READY? RF(NZ) IT110 NO LDK A3,TYRR TYPE := RECIEVE READY RF ITEXIT EXIT * IT110 EQU * LDK A3,TYRES ASSUME TYPE = RESET ANK A4,/04 IS IT RESET? RF(Z) ITEXIT YES, EXIT LDK A3,TYRESC NO, TYPE := RESET CONFIRMATION RF ITEXIT EXIT * EJECT * IT120 EQU * * NOT NORMAL MESSAGE LDK A3,TYNFLO ASSUME TYPE = NO FLOW CONTROL SUK A4,1 IS IT NO FLOW CONTROL? RF(Z) ITEXIT YES, EXIT * ITERR EQU * LDK A3,TYERR IRRECOVERABLE ERROR * ITEXIT EQU * IFT CPU852=1 ADKL A15,2 SKIP PSW LDR* P,A15 RETURN XIF IFF CPU852=1 RTN A15 XIF * EJECT * ************************************************************ * * ROUTINE NAME: * OUTBUQ * * FUNCTION: * THIS ROUTINE WILL REMOVE A DWT FROM THE QUEUES FOR * SHORT OR LONG OUTPUT BUFFERS, IF IT IS IN ANY * OF THE QUEUES. * * CALL: * CF A15,OUTBUQ * * INPUT: * A5 = CWT ADDRESS * A6 = DWT ADDRESS * * OUTPUT: * A2 = NOT 0 IF DWT FOUND * 0 IF DWT NOT FOUND * A4 = CHANGED * CR = CHANGED * ************************************************************ * OUTBUQ EQU * STR A1,A15 PUSH A1 STR A7,A15 PUSH A7 LDR A4,A6 DWT ADDRESS ADKL A4,DWTOTQ QUEUE LINK * LDR A7,A5 CWT ADDRESS ADK A7,CWTSBQ SHORT BUFFERS QUEUE CF A15,LNKOUT REMOVE DWT FROM QUEUE LDR A7,A7 FOUND? RF(NZ) OB100 YES, RETURN * LDR A7,A5 ADKL A7,CWTLBQ LONG BUFFERS QUEUE CF A15,LNKOUT REMOVE FROM QUEUE * OB100 EQU * LDR A2,A7 A2 := FOUND / NOT FOUND * LDR* A7,A15 POP A7 LDR* A1,A15 POP A1 IFT CPU852=1 ADKL A15,2 SKIP PSW LDR* P,A15 RETURN XIF IFF CPU852=1 RTN A15 XIF * EJECT * ************************************************************ * * ROUTINE NAME: * LNKFST * * FUNCTION: * THIS ROUTINE LINKS A QUEUE ELEMENT FIRST IN * A QUEUE (CLOSEST TO QUEUE HEAD). * ONE WORD IN EACH ELEMENT IS USED AS A LINK. * END OF QUEUE IS INDICATED BY LINK=0 IN LAST * ELEMENT. * * CALL: * CF A15,LNKFST * * INPUT: * A4 = QUEUE ELEMENT LINK ADDRESS * A7 = QUEUE HEAD LINK ADDRESS * * OUTPUT: * A1 = CHANGED * CR = CHANGED * ************************************************************ * LNKFST EQU * LDR* A1,A7 FIRST QUEUE ELEMENT STR A1,A4 SET LINK FROM NEW ELEMENT STR A4,A7 SET NEW ELEMENT FIRST IFT CPU852=1 RF LNKRET RETURN XIF IFF CPU852=1 RTN A15 XIF * EJECT * ************************************************************ * * ROUTINE NAME: * LNKLST * * FUNCTION: * THIS ROUTINE LINKS A QUEUE ELEMENT LAST IN * A QUEUE (OPOSITE END TO QUEUE HEAD). * ONE WORD IN EACH ELEMENT IS USED AS A LINK. * END OF QUEUE IS INDICATED BY LINK=0 IN LAST * ELEMENT. * * CALL: * CF A15,LNKLST * * INPUT: * A4 = QUEUE ELEMENT LINK ADDRESS * A7 = QUEUE HEAD LINK ADDRESS * * OUTPUT: * A1 = CHANGED * A7 = CHANGED * CR = CHANGED * ************************************************************ * LNKLST EQU * LDR A1,A7 SAVE PRESENT ELEMENT LDR* A7,A7 NEXT ELEMENT RB(NZ) LNKLST CONTINUE IF NOT LAST ELEMENT STR A4,A1 LINK NEW ELEMENT AFTER LAST CMR A4 SET END MARKER IN LAST ELEMENT * EJECT * IFT CPU852=1 RF LNKRET RETURN XIF IFF CPU852=1 RTN A15 XIF * EJECT * ************************************************************ * * ROUTINE NAME: * LNKOUT * * FUNCTION: * THIS ROUTINE REMOVES AN ELEMENT FROM A QUEUE. * ONE WORD IN EACH ELEMENT IS USED AS A LINK. * END OF QUEUE IS INDICATED BY LINK=0 IN LAST * ELEMENT. * * CALL: * CF A15,LNKOUT * * INPUT: * A4 = QUEUE ELEMENT LINK ADDRESS * A7 = QUEUE HEAD LINK ADDRESS * * OUTPUT: * A1 = CHANGED * A7 = =0 IF ELEMENT NOT FOUND * ><0 IF ELEMENT FOUND * CR = CHANGED * ************************************************************ * LNKOUT EQU * LDR A1,A7 SAVE PRESENT ELEMENT LDR* A7,A7 NEXT ELEMENT RF(Z) LO100 EXIT IF END OF QUEUE CWR A4,A7 ELEMENT FOUND? RB(NE) LNKOUT NO, CHECK NEXT * EJECT * LDR* A7,A7 ELEMENT AFTER WANTED ELEMENT STR A7,A1 SET LINK FROM PREVIOUS TO NEXT LDK A7,1 INDICATE ELEMENT FOUND LO100 EQU * * * IFT CPU852=1 LNKRET EQU * * COMMON EXIT FOR QUEUE ROUTINES * RETURN WITHOUT CHANGING INTERRUPT ENABLE FLAG ADKL A15,2 SKIP PSW LDR* P,A15 RETURN XIF * IFF CPU852=1 RTN A15 XIF * EJECT * * * * ************************************************************ * * PHILIPS TERMINAL SYSTEM PTS * * TBUFF = TOSS BUFFER HANDLING SUBROUTINES * * * ************************************************************ * * THIS PROGRAM CONTAINS A SET OF BUFFER HANDLING * SUBROUTINES. THEY OPERATE ON BUFFERS ORGANIZED * IN BUFFER POOLS. A BUFFER POOL CONSISTS OF A * POOLBLOCK FOR CONTROL INFORMATION, AND ONE OR * MORE BUFFER AREAS. THE POOLBLOCK AND BUFFER * AREA(S) SHOULD BE SUPPLIED BY THE USER. * * ROUTINES IN ORDER OF APPEARANCE IN CODE: * * NAME FUNCTION * * GETBUF GET BUFFER FROM POOL * RELBUF RETURN BUFFER TO POOL * AREBUF DIVIDE AREA INTO BUFFERS * EJECT * ************* * CONSTANTS * ************* * * * POOLBLOCK LAYOUT DEFINITION * * POOLBLOCK WORD OFFSETS POBID EQU 0 POOL IDENTITY POBFLG EQU 2 BINARY FLAGS POBFRE EQU 4 FREE LIST LINK HEAD POBBUS EQU 6 BUFFER SIZE (BYTES) POBARS EQU 8 AREA SIZE (BYTES) * * POOLBLOCK LENGTH POBLEN EQU 10 LENGTH (BYTES) * EJECT * ************************************************************ * * ROUTINE NAME: * GETBUF * * FUNCTION: * THIS ROUTINE FETCHES ONE BUFFER FROM A BUFFER * POOL AND GIVES IT TO THE CALLER. * * CALL: * CF A15,GETBUF * * INPUT: * A7 = POOLBLOCK ADDRESS * * OUTPUT: * A4 = BUFFER ADDRESS IF BUFFER ALLOCATED * ELSE ZERO * CR = CONTENTS OF A4 * INTERR.= INHIBITED * ************************************************************ * GETBUF EQU * INH LD A4,POBFRE,A7 FREE LIST START RF(Z) GB100 NO BUFFER LEFT. EXIT * EJECT * STR A1,A15 PUSH A1 LDR* A1,A4 NEW START OF FREE LIST ST A1,POBFRE,A7 TO POOLBLOCK LDR* A1,A15 POP A1 * GB100 EQU * ADKL A15,4 ADJUST STACK LDR A4,A4 CR := CONTENTS OF A4 ABR* A15 RETURN * EJECT * ************************************************************ * * ROUTINE NAME: * RELBUF * * FUNCTION: * THIS ROUTINE RELEASES ONE BUFFER AND RETURNS * IT TO A BUFFER POOL. * * CALL: * CF A15,RELBUF * * INPUT: * A4 = BUFFER ADDRESS * A7 = POOLBLOCK ADDRESS * * OUTPUT: * CR = CHANGED * INTERR.= INHIBITED * ************************************************************ * RELBUF EQU * INH STR A1,A15 PUSH A1 * LD A1,POBFRE,A7 OLD FREE LIST START STR A1,A4 LINK AFTER NEW BUFFER ST A4,POBFRE,A7 SET NEW FREE LIST START * LDR* A1,A15 POP A1 ADKL A15,4 ADJUST STACK ABR* A15 RETURN * EJECT * ************************************************************ * * ROUTINE NAME: * AREBUF * * FUNCTION: * THIS ROUTINE ALLOCATES A SPECIFIED DATA AREA TO * A BUFFER POOL. THIS CAN BE DONE IN TWO WAYS. * "INIBUF" IS USED WHEN A NEW BUFFER POOL IS * INITIATED. IT DIVIDES THE AREA INTO BUFFERS, * LINKS THE BUFFERS IN A CHAIN FROM THE FREE LIST * HEAD IN POOLBLOCK, AND PUTS AN END MARKER (-1) * IN THE LAST BUFFER. "LNKBUF" IS USED WHEN A NEW * AREA IS ADDED TO AN EXISTING BUFFER POOL. IT * DIVIDES THE AREA INTO BUFFERS, AND LINKS THE * BUFFERS FIRST IN THE FREE LIST. * * CALL: * CF A15,INIBUF * CF A15,LNKBUF * * INPUT: * A4 = AREA ADDRESS * A7 = POOLBLOCK ADDRESS * * OUTPUT: * CR = CHANGED IF CPU852 * ************************************************************ * EJECT * INIBUF EQU * IFT CPU852=1 STR A1,A15 PUSH A1 XIF * IFF CPU852=1 MSR 4,A15 PUSH A1-A4 XIF * LDK A1,0 MARKER FOR LAST BUFFER RF IL100 GO TO COMMON PART * * LNKBUF EQU * IFT CPU852=1 STR A1,A15 PUSH A1 XIF * IFF CPU852=1 MSR 4,A15 PUSH A1-A4 XIF * LD A1,POBFRE,A7 LINK TO OLD BUFFERS * * IL100 EQU * * * COMMON PART FOR INIBUF AND LNKBUF * IFT CPU852=1 STR A2,A15 PUSH A2-A4 STR A3,A15 STR A4,A15 XIF * EJECT * LDR A2,A7 ADK A2,POBFRE FREE LIST START LDR A3,A4 AD A3,POBARS,A7 END OF AREA SU A3,POBBUS,A7 HIGEST BUFFER START IN AREA * IL110 EQU * * BUFFER LINKING LOOP SRL A3,1 SHIFT ADDRESS =15 SRL A4,1 . =15 CWR A4,A3 ROOM LEFT? RF(G) IL120 NO, FINISH * SLL A3,1 . =15 SLL A4,1 . =15 STR A4,A2 SET LINK FROM PREVIOUS TO PRESENT LDR A2,A4 NEW PREVIOUS AD A4,POBBUS,A7 NEW PRESENT RB IL110 TAKE NEXT BUFFER * IL120 EQU * SLL A3,1 . =15 SLL A4,1 . =15 STR A1,A2 SET LINK OR END IN LAST BUFFER * IFT CPU852=1 LDR* A4,A15 POP A1-A4 LDR* A3,A15 LDR* A2,A15 LDR* A1,A15 ADKL A15,2 ADJUST STACK LDR* P,A15 RETURN XIF * IFF CPU852=1 MLR 4,A15 POP A1-A4 RTN A15 XIF * IFF UTTEST=0 EJECT * ****************************************** * * ROUTINE NAMES: LOGCOM * LOGIOC * LOGATT * FUNCTION: LOG MSG TYPE AND CCR+BUFFER * DLSSEL SPECIFIES DLS TO BE SELECTED * 0 MEANS LOG ALL * * RECORD FORMAT: BYTE 1-2 MSG TYPE (CO,RE,AT) * BYTE 3 DLS INDEX * BYTE 4 COMMAND CODE * BYTE 5-6 STATUS-1 * BYTE 7 BUFFER LENGTH * BYTE 8 PACKET HEADER -1 * BYTE 9 PACKET HEADER -2 (LOGICAL CHANNEL) * BYTE 10 PACKET HEADER -3 (FLOW CONTOL) * BYTE 11-16 6 FIRST DATA BYTES *********************************************** * DLSSEL DATA 0 0=LOG ALL * ELSE DLS TO BE LOGGED XIF PLCLOG EQU * IFF UTTEST=0 LOGPTR DATA LOGARE RECORD POINTER IN LOG AREA LOGARE RES 960 LOG AREA LOGEND EQU * DATA 'ENDLOG' MARK END OF LOG AREA *-------------------------------------------- LOGCOM EQU * SUBROUTINE ENTRY IFT CPU852=1 STR A1,A15 STR A2,A15 STR A3,A15 XIF IFF UTTEST=0 IFF CPU852=1 MSR 3,A15 PUSH A1-A3 XIF IFF UTTEST=0 LDKL A1,'CO' MSG TYPE LDK A2,CWTCCA CCA OFFSET RF LOG:10 LOGIOC EQU * SUBROUTINE ENTRY IFT CPU852=1 STR A1,A15 STR A2,A15 STR A3,A15 XIF IFF UTTEST=0 IFF CPU852=1 MSR 3,A15 PUSH A1-A3 XIF IFF UTTEST=0 LDKL A1,'RE' MSG TYPE LDK A2,CWTRCA RCA OFFSET RF LOG:10 LOGATT EQU * SUBROUTINE ENTRY IFT CPU852=1 STR A1,A15 STR A2,A15 STR A3,A15 XIF IFF UTTEST=0 IFF CPU852=1 MSR 3,A15 PUSH A1-A3 XIF IFF UTTEST=0 LDKL A1,'AT' MSG TYPE LDK A2,CWTRCA RCA OFFSET *------------------------------------------ LOG:10 EQU * COMMON PART LD A3,LOGPTR STR A1,A3 LOG MSG TYPE ADR A2,A5 CCR PTR LD A1,DLSSEL SELECTED DLS RF(Z) LOG:15 LOG ALL CC A1,CCRDLS,A2 RF(NE) LOG:20 NOT SELECTED,SKIP LOG:15 EQU * LD A1,CCRDLS,A2 DLS INDEX ST A1,2,A3 +COMMAND INTO LOG LD A1,CCRSTA,A2 STATUS-1 ST A1,4,A3 LOG STATUS-1 LD A1,CCRLEN,A2 BUFFER LENGTH SC A1,6,A3 INTO LOG LD A2,CCRBUF,A2 BUFFER ADDRESS LDR* A1,A2 BYTE 0-1 SC A1,8,A3 PACKET HEADER 2 SRL A1,8 SC A1,7,A3 PACKET HEADER 1 LD A1,2,A2 PACKET HEADER 3+ BYTE 1 SC A1,10,A3 SRL A1,8 SC A1,9,A3 LD A1,4,A2 BYTE 2-3 SC A1,12,A3 SRL A1,8 SC A1,11,A3 LD A1,6,A2 BYTE 4-5 SC A1,14,A3 SRL A1,8 SC A1,13,A3 LD A1,8,A2 SRL A1,8 SC A1,15,A3 ADK A3,16 ST A3,LOGPTR NEXT RECORD IN LOG AREA CWK A3,LOGEND END OF LOG AREA? RF(NE) LOG:20 NO! LDKL A1,LOGARE RESET PTR ST A1,LOGPTR LOG:20 EQU * IFT CPU852=1 LDR* A3,A15 RESTORE LDR* A2,A15 LDR* A1,A15 ADKL A15,4 ABR* A15 RETURN XIF IFF UTTEST=0 IFF CPU852=1 MLR 3,A15 RTN A15 XIF * * END
0x00000…00036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DRPL01 REL 11.1 82-08-19 870105041110 «, t00=0x0000, t01=0x0004}
0x00036…0003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x0003e…0005e Head {h00=0x001c, h01=0x0050, text=» =17,BLOCKING IMPROVED«, t00=0x0000, t01=0x0042}
0x0005e…0007a Head {h00=0x0018, h01=0x0050, text=» REL 11.1 82-08-13«, t00=0x0000, t01=0x0062}
0x0007a…000a4 Head {h00=0x0026, h01=0x0050, text=» =16,CHANGED BLOCKING OF OUTPUT «, t00=0x0000, t01=0x007e}
0x000a4…000c0 Head {h00=0x0018, h01=0x0050, text=» REL 11.1 82-07-08«, t00=0x0000, t01=0x00a8}
0x000c0…000e2 Head {h00=0x001e, h01=0x0050, text=» =15,COMPARE ADDR. CORR.«, t00=0x0000, t01=0x00c4}
0x000e2…000fe Head {h00=0x0018, h01=0x0050, text=» REL 11.1 82-02-12«, t00=0x0000, t01=0x00e6}
0x000fe…0011a Head {h00=0x0018, h01=0x0050, text=» =14,SET CR CORR. «, t00=0x0000, t01=0x0102}
0x0011a…00136 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-10-20«, t00=0x0000, t01=0x011e}
0x00136…00158 Head {h00=0x001e, h01=0x0050, text=» =13,ADAPTED FOR PTS8000«, t00=0x0000, t01=0x013a}
0x00158…00174 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-10-14«, t00=0x0000, t01=0x015c}
0x00174…00196 Head {h00=0x001e, h01=0x0050, text=» =12,DIAGNOSTIC FOR RWSI«, t00=0x0000, t01=0x0178}
0x00196…001b2 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-08-27«, t00=0x0001, t01=0x000a}
0x001b2…001d2 Head {h00=0x001c, h01=0x0050, text=» =11,CH. OF PARAMETERS«, t00=0x0001, t01=0x0026}
0x001d2…001ee Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-08-10«, t00=0x0001, t01=0x0046}
0x001ee…0020a Head {h00=0x0018, h01=0x0050, text=» =10,CORR. OF RWSI«, t00=0x0001, t01=0x0062}
0x0020a…00226 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-08-10«, t00=0x0001, t01=0x007e}
0x00226…0024c Head {h00=0x0022, h01=0x0050, text=» =9,CORR. OF INTERRUPT ENTRY«, t00=0x0001, t01=0x009a}
0x0024c…00268 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-06-24«, t00=0x0001, t01=0x00c0}
0x00268…0028e Head {h00=0x0022, h01=0x0050, text=» =8,OPEN LINE PARAM. CHANGED«, t00=0x0001, t01=0x00dc}
0x0028e…002aa Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-06-23«, t00=0x0001, t01=0x0102}
0x002aa…002cc Head {h00=0x001e, h01=0x0050, text=» =7,CORR. OF CWT-DISPL. «, t00=0x0001, t01=0x011e}
0x002cc…002e8 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-06-11«, t00=0x0001, t01=0x0140}
0x002e8…00314 Head {h00=0x0028, h01=0x0050, text=» =6,LENGTH OF LONG BUFFERS CHANGED«, t00=0x0001, t01=0x015c}
0x00314…00330 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-05-27«, t00=0x0001, t01=0x0188}
0x00330…00354 Head {h00=0x0020, h01=0x0050, text=» =5,CORR. OF RWSI-CWT:S , «, t00=0x0002, t01=0x0014}
0x00354…0037c Head {h00=0x0024, h01=0x0050, text=» OPEN LINE PROC. & COND. ASS. «, t00=0x0002, t01=0x0038}
0x0037c…00398 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-05-22«, t00=0x0002, t01=0x0060}
0x00398…003ba Head {h00=0x001e, h01=0x0050, text=» =4,CORR. OF CWT-DISPL. «, t00=0x0002, t01=0x007c}
0x003ba…003d6 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-05-20«, t00=0x0002, t01=0x009e}
0x003d6…003f8 Head {h00=0x001e, h01=0x0050, text=» =3,CORR. OF TIMER NAME «, t00=0x0002, t01=0x00ba}
0x003f8…00414 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-04-29«, t00=0x0002, t01=0x00dc}
0x00414…0043e Head {h00=0x0026, h01=0x0050, text=» =2,CORR. OF OPEN LINE PROCEDURE«, t00=0x0002, t01=0x00f8}
0x0043e…0045a Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-04-21«, t00=0x0002, t01=0x0122}
0x0045a…0047c Head {h00=0x001e, h01=0x0050, text=» GENERAL UPDATE FOR RWSI«, t00=0x0002, t01=0x013e}
0x0047c…00498 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-01-26«, t00=0x0002, t01=0x0160}
0x00498…004c4 Head {h00=0x0028, h01=0x0050, text=» =1,OPEN LINE PARAM. AREA EXPANDED«, t00=0x0002, t01=0x017c}
0x004c4…004e0 Head {h00=0x0018, h01=0x0050, text=» PRR 11.0 80-11-19«, t00=0x0003, t01=0x0018}
0x004e0…004ee Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0034}
0x004ee…004f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0042}
0x004f8…00502 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x004c}
0x00502…0050c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0056}
0x0050c…00516 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0060}
0x00516…0055a Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0003, t01=0x006a}
0x0055a…00564 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ae}
0x00564…0058c Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0003, t01=0x00b8}
0x0058c…00596 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00e0}
0x00596…005d0 Head {h00=0x0036, h01=0x0050, text=»* DRPL01 = DRIVER PROCESSOR FOR LINE CONTROL, «, t00=0x0003, t01=0x00ea}
0x005d0…00602 Head {h00=0x002e, h01=0x0050, text=»* LOCAL & REMOTE CONNECTIONS«, t00=0x0003, t01=0x0124}
0x00602…0060c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0156}
0x0060c…00616 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0160}
0x00616…00620 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x016a}
0x00620…00664 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0003, t01=0x0174}
0x00664…0066e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0028}
0x0066e…00678 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0032}
0x00678…006ae Head {h00=0x0032, h01=0x0050, text=»* THIS PROGRAM HANDLES I/O OPERATIONS ON THE«, t00=0x0004, t01=0x003c}
0x006ae…006e2 Head {h00=0x0030, h01=0x0050, text=»* PROCESSOR FOR LINE CONTROL (PLC). IT IS «, t00=0x0004, t01=0x0072}
0x006e2…00716 Head {h00=0x0030, h01=0x0050, text=»* CALLED FROM THE TERMINAL DEVICE DRIVERS.«, t00=0x0004, t01=0x00a6}
0x00716…00720 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00da}
0x00720…00756 Head {h00=0x0032, h01=0x0050, text=»* INPUT AND OUTPUT OF CHARACTERS FROM/TO THE«, t00=0x0004, t01=0x00e4}
0x00756…00790 Head {h00=0x0036, h01=0x0050, text=»* TERMINAL DEVICE DRIVERS ARE MADE ON CHARACTER «, t00=0x0004, t01=0x011a}
0x00790…007c8 Head {h00=0x0034, h01=0x0050, text=»* BASIS. BLOCKING AND DEBLOCKING OF CHARACTERS«, t00=0x0004, t01=0x0154}
0x007c8…00800 Head {h00=0x0034, h01=0x0050, text=»* IN DATA PACKETS ARE HANDLED BY THIS DRIVER. «, t00=0x0004, t01=0x018c}
0x00800…0080a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0034}
0x0080a…00818 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x003e}
0x00818…00822 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x004c}
0x00822…00860 Head {h00=0x003a, h01=0x0050, text=»* THE PROGRAM IS DIVIDED INTO A NUMBER OF SECTIONS. «, t00=0x0005, t01=0x0056}
0x00860…00898 Head {h00=0x0034, h01=0x0050, text=»* SECTIONS CONTAINING PROGRAM CODE ARE DIVIDED«, t00=0x0005, t01=0x0094}
0x00898…008ce Head {h00=0x0032, h01=0x0050, text=»* INTO ROUTINES. THE ROUTINES ARE LISTED AT «, t00=0x0005, t01=0x00cc}
0x008ce…00906 Head {h00=0x0034, h01=0x0050, text=»* BEGINNING OF EACH SECTION. THE SECTIONS, IN «, t00=0x0005, t01=0x0102}
0x00906…00934 Head {h00=0x002a, h01=0x0050, text=»* ORDER OF APPEARANCE IN LIST, ARE: «, t00=0x0005, t01=0x013a}
0x00934…0093e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0168}
0x0093e…00958 Head {h00=0x0016, h01=0x0050, text=»* NAME FUNCTION«, t00=0x0005, t01=0x0172}
0x00958…00962 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x018c}
0x00962…0098c Head {h00=0x0026, h01=0x0050, text=»* ENTRIES DECLARE ENTRY POINTS «, t00=0x0006, t01=0x0008}
0x0098c…009be Head {h00=0x002e, h01=0x0050, text=»* EXTERNALS DECLARE EXTERNAL REFERENCES «, t00=0x0006, t01=0x0032}
0x009be…009f8 Head {h00=0x0036, h01=0x0050, text=»* CONDITION SET CONDITIONAL ASSEMBLY PARAMETERS «, t00=0x0006, t01=0x0064}
0x009f8…00a22 Head {h00=0x0026, h01=0x0050, text=»* CONSTANTS SET CONSTANT VALUES «, t00=0x0006, t01=0x009e}
0x00a22…00a3e Head {h00=0x0018, h01=0x0050, text=»* DATA DATA AREAS«, t00=0x0006, t01=0x00c8}
0x00a3e…00a48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00e4}
0x00a48…00a7c Head {h00=0x0030, h01=0x0050, text=»* REQUEST DEVICE DRIVER REQUEST ROUTINES «, t00=0x0006, t01=0x00ee}
0x00a7c…00aa4 Head {h00=0x0024, h01=0x0050, text=»* INTERRUPT INTERRUPT ENTRIES «, t00=0x0006, t01=0x0122}
0x00aa4…00ae0 Head {h00=0x0038, h01=0x0050, text=»* RECOVERY SYSTEM START, POWER FAIL AND RECOVERY «, t00=0x0006, t01=0x014a}
0x00ae0…00b0a Head {h00=0x0026, h01=0x0050, text=»* DISPATCH LOCAL PLC DISPATCHER«, t00=0x0006, t01=0x0186}
0x00b0a…00b36 Head {h00=0x0028, h01=0x0050, text=»* ROUTINE COMMON SERVICE ROUTINES«, t00=0x0007, t01=0x0020}
0x00b36…00b66 Head {h00=0x002c, h01=0x0050, text=»* SUBROUTIN COMMON SERVICE SUBROUTINES«, t00=0x0007, t01=0x004c}
0x00b66…00b94 Head {h00=0x002a, h01=0x0050, text=»* TBUFF BUFFER HANDLING SUBROUTINES«, t00=0x0007, t01=0x007c}
0x00b94…00b9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00aa}
0x00b9e…00bac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00b4}
0x00bac…00bb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c2}
0x00bb6…00bca Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0007, t01=0x00cc}
0x00bca…00bde Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0007, t01=0x00e0}
0x00bde…00bf2 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0007, t01=0x00f4}
0x00bf2…00bfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0108}
0x00bfc…00c16 Head {h00=0x0016, h01=0x0050, text=»* I/O REQUESTS «, t00=0x0007, t01=0x0112}
0x00c16…00c20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x012c}
0x00c20…00c46 Head {h00=0x0022, h01=0x0050, text=» ENTRY PLCHRI CHARACTER INPUT «, t00=0x0007, t01=0x0136}
0x00c46…00c78 Head {h00=0x002e, h01=0x0050, text=» ENTRY PLSTBL DEFINE START OF OUTPUT BLOCK«, t00=0x0007, t01=0x015c}
0x00c78…00c9e Head {h00=0x0022, h01=0x0050, text=» ENTRY PLCHRO CHARACTER OUTPUT«, t00=0x0007, t01=0x018e}
0x00c9e…00cce Head {h00=0x002c, h01=0x0050, text=» ENTRY PLENBL DEFINE END OF OUTPUT BLOCK«, t00=0x0008, t01=0x0024}
0x00cce…00cf4 Head {h00=0x0022, h01=0x0050, text=» ENTRY PLDISP LOCAL DISPATCHER«, t00=0x0008, t01=0x0054}
0x00cf4…00d1a Head {h00=0x0022, h01=0x0050, text=» ENTRY PRCHRI CHR INP REMOTE «, t00=0x0008, t01=0x007a}
0x00d1a…00d4a Head {h00=0x002c, h01=0x0050, text=» ENTRY PRSTBL START OUTP BLOCK, REMOTE «, t00=0x0008, t01=0x00a0}
0x00d4a…00d72 Head {h00=0x0024, h01=0x0050, text=» ENTRY PRCHRO CHR OUTP. REMOTE «, t00=0x0008, t01=0x00d0}
0x00d72…00da0 Head {h00=0x002a, h01=0x0050, text=» ENTRY PRENBL END OUTP BLOCK, REMOTE «, t00=0x0008, t01=0x00f8}
0x00da0…00dca Head {h00=0x0026, h01=0x0050, text=» ENTRY PRDISP LOCAL DSIP. REMOTE «, t00=0x0008, t01=0x0126}
0x00dca…00dee Head {h00=0x0020, h01=0x0050, text=» ENTRY PLTEST TEST COMMANDS «, t00=0x0008, t01=0x0150}
0x00dee…00e0e Head {h00=0x001c, h01=0x0050, text=» ENTRY CWTPLC CWT TABLE «, t00=0x0008, t01=0x0174}
0x00e0e…00e36 (9, 0, 400) Head {h00=0x0024, h01=0x0050, text=» ENTRY GETDWT GET DWT SUBROUTINE«, t00=0x0009, t01=0x0004}
0x00e36…00e5c Head {h00=0x0022, h01=0x0050, text=» ENTRY PLCLOG LOGG POINTER =11«, t00=0x0009, t01=0x002c}
0x00e5c…00e86 Head {h00=0x0026, h01=0x0050, text=» ENTRY TIMACT INACTIVITY TIMER =11«, t00=0x0009, t01=0x0052}
0x00e86…00ebc Head {h00=0x0032, h01=0x0050, text=» ENTRY POLRTL POLL FREQ. & NO OF RETRANSM =11 «, t00=0x0009, t01=0x007c}
0x00ebc…00eec Head {h00=0x002c, h01=0x0050, text=» ENTRY POLRTR POLL FR. & NO OF RETR. =11«, t00=0x0009, t01=0x00b2}
0x00eec…00efa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x00e2}
0x00efa…00f04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00f0}
0x00f04…00f0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00fa}
0x00f0e…00f26 Head {h00=0x0014, h01=0x0050, text=»* INTERRUPTS «, t00=0x0009, t01=0x0104}
0x00f26…00f30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x011c}
0x00f30…00f52 Head {h00=0x001e, h01=0x0050, text=» ENTRY IHPL01 PLC NUMBER 1«, t00=0x0009, t01=0x0126}
0x00f52…00f74 Head {h00=0x001e, h01=0x0050, text=» ENTRY IHPL02 PLC NUMBER 2«, t00=0x0009, t01=0x0148}
0x00f74…00f96 Head {h00=0x001e, h01=0x0050, text=» ENTRY IHPL03 PLC NUMBER 3«, t00=0x0009, t01=0x016a}
0x00f96…00fb8 Head {h00=0x001e, h01=0x0050, text=» ENTRY IHPL04 PLC NUMBER 4«, t00=0x0009, t01=0x018c}
0x00fb8…00fc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x001e}
0x00fc2…00fec Head {h00=0x0026, h01=0x0050, text=» ENTRY IHPR01 PLC NUMBER 5,REMOTE «, t00=0x000a, t01=0x0028}
0x00fec…01016 Head {h00=0x0026, h01=0x0050, text=» ENTRY IHPR02 6,REMOTE «, t00=0x000a, t01=0x0052}
0x01016…01040 Head {h00=0x0026, h01=0x0050, text=» ENTRY IHPR03 7,REMOTE «, t00=0x000a, t01=0x007c}
0x01040…0106a Head {h00=0x0026, h01=0x0050, text=» ENTRY IHPR04 8,REMOTE «, t00=0x000a, t01=0x00a6}
0x0106a…01074 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00d0}
0x01074…01098 Head {h00=0x0020, h01=0x0050, text=»* RECOVERY AT TC POWER UP«, t00=0x000a, t01=0x00da}
0x01098…010a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00fe}
0x010a2…010d0 Head {h00=0x002a, h01=0x0050, text=» ENTRY PLON RECOVER ALL DEFINED PLC:S «, t00=0x000a, t01=0x0108}
0x010d0…010da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0136}
0x010da…010e8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0140}
0x010e8…010f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x014e}
0x010f2…01108 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000a, t01=0x0158}
0x01108…0111e Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x000a, t01=0x016e}
0x0111e…01134 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000a, t01=0x0184}
0x01134…0113e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x000a}
0x0113e…01158 Head {h00=0x0016, h01=0x0050, text=»* TOSS MONITOR «, t00=0x000b, t01=0x0014}
0x01158…01162 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x002e}
0x01162…0117a Head {h00=0x0014, h01=0x0050, text=»* ROUTINES «, t00=0x000b, t01=0x0038}
0x0117a…0119e Head {h00=0x0020, h01=0x0050, text=» EXTRN TDISP TOSS DISPATCHER«, t00=0x000b, t01=0x0050}
0x0119e…011c4 Head {h00=0x0022, h01=0x0050, text=» EXTRN QMJOB QUEUE MONITOR JOB«, t00=0x000b, t01=0x0074}
0x011c4…011ee Head {h00=0x0026, h01=0x0050, text=» EXTRN MEXIT EXIT FROM MONITOR JOB«, t00=0x000b, t01=0x009a}
0x011ee…01216 Head {h00=0x0024, h01=0x0050, text=» EXTRN GETBLK GET MONITOR BLOCK «, t00=0x000b, t01=0x00c4}
0x01216…01240 Head {h00=0x0026, h01=0x0050, text=» EXTRN FREBLK RETURN MONITOR BLOCK«, t00=0x000b, t01=0x00ec}
0x01240…0126c Head {h00=0x0028, h01=0x0050, text=» EXTRN SAVE8 PUSH A1-A8 ON A15 STACK«, t00=0x000b, t01=0x0116}
0x0126c…0128c Head {h00=0x001c, h01=0x0050, text=» EXTRN SETIME SET TIMER «, t00=0x000b, t01=0x0142}
0x0128c…012a6 Head {h00=0x0016, h01=0x0050, text=»* DATA WORDS «, t00=0x000b, t01=0x0162}
0x012a6…012cc Head {h00=0x0022, h01=0x0050, text=» EXTRN PFPOST POWER FAIL FLAG «, t00=0x000b, t01=0x017c}
0x012cc…012fc Head {h00=0x002c, h01=0x0050, text=» EXTRN INTSAV LATEST INTERRUPT SAVE AREA«, t00=0x000c, t01=0x0012}
0x012fc…01306 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0042}
0x01306…01310 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x004c}
0x01310…01334 Head {h00=0x0020, h01=0x0050, text=»* DRND01 SERVICE ROUTINES«, t00=0x000c, t01=0x0056}
0x01334…0133e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x007a}
0x0133e…0136c Head {h00=0x002a, h01=0x0050, text=» EXTRN NDSAV8 SAVE A3-A5, A7-A8 IN DWT«, t00=0x000c, t01=0x0084}
0x0136c…0139c Head {h00=0x002c, h01=0x0050, text=» EXTRN NDGET8 GET A3-A5, A7-A8 FROM DWT «, t00=0x000c, t01=0x00b2}
0x0139c…013d2 Head {h00=0x0032, h01=0x0050, text=» EXTRN NDREWS CALL RECOVERY FOR ALL DEV ON WS «, t00=0x000c, t01=0x00e2}
0x013d2…013fe Head {h00=0x0028, h01=0x0050, text=» EXTRN NDREDW CALL RECOVERY FOR DWT «, t00=0x000c, t01=0x0118}
0x013fe…01430 Head {h00=0x002e, h01=0x0050, text=» EXTRN NDGEDN GET HIGEST DWT NUMBER ON WS «, t00=0x000c, t01=0x0144}
0x01430…01456 Head {h00=0x0022, h01=0x0050, text=» EXTRN NDGEDW GET DWT ADDRESS «, t00=0x000c, t01=0x0176}
0x01456…01460 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x000c}
0x01460…0146e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0016}
0x0146e…01478 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0024}
0x01478…014b0 Head {h00=0x0034, h01=0x0050, text=»* DRND01 ROUTINES FOR RETURN TO DEVICE DRIVER«, t00=0x000d, t01=0x002e}
0x014b0…014ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0066}
0x014ba…014e0 Head {h00=0x0022, h01=0x0050, text=» EXTRN NDREPO POP, OK & RETURN«, t00=0x000d, t01=0x0070}
0x014e0…01502 Head {h00=0x001e, h01=0x0050, text=» EXTRN NDRETO OK & RETURN «, t00=0x000d, t01=0x0096}
0x01502…01524 Head {h00=0x001e, h01=0x0050, text=» EXTRN NDREP POP & RETURN «, t00=0x000d, t01=0x00b8}
0x01524…01540 Head {h00=0x0018, h01=0x0050, text=» EXTRN NDRET RETURN «, t00=0x000d, t01=0x00da}
0x01540…0154a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00f6}
0x0154a…01554 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0100}
0x01554…01572 Head {h00=0x001a, h01=0x0050, text=»* DWT DISPLACEMENTS«, t00=0x000d, t01=0x010a}
0x01572…0157c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0128}
0x0157c…015a4 Head {h00=0x0024, h01=0x0050, text=» EXTRN DWTCHP CHANNEL PARAMETERS«, t00=0x000d, t01=0x0132}
0x015a4…015c6 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTST STATUS FLAGS «, t00=0x000d, t01=0x015a}
0x015c6…015ee Head {h00=0x0024, h01=0x0050, text=» EXTRN DWTOR ORDER (RIGHT BYTE) «, t00=0x000d, t01=0x017c}
0x015ee…01620 Head {h00=0x002e, h01=0x0050, text=» EXTRN DWTADR DRIVER ADDRESS BLOCK ADDRESS«, t00=0x000e, t01=0x0014}
0x01620…01640 Head {h00=0x001c, h01=0x0050, text=» EXTRN DWTOTQ QUEUE LINK«, t00=0x000e, t01=0x0046}
0x01640…01674 Head {h00=0x0030, h01=0x0050, text=» EXTRN DWTCP2 SECOND CHANNEL PARAMETER WORD «, t00=0x000e, t01=0x0066}
0x01674…016a6 Head {h00=0x002e, h01=0x0050, text=» EXTRN DWTLD1 PLC INPUT/OUTPUT BUFFER ADDR«, t00=0x000e, t01=0x009a}
0x016a6…016d6 Head {h00=0x002c, h01=0x0050, text=» EXTRN DWTLD2 PLC FLOW CONTROL COUNTERS «, t00=0x000e, t01=0x00cc}
0x016d6…0170a Head {h00=0x0030, h01=0x0050, text=» EXTRN DWTTBU PLC TEST COMMANDS BUFFER ADDR «, t00=0x000e, t01=0x00fc}
0x0170a…01740 Head {h00=0x0032, h01=0x0050, text=» EXTRN DWTTLN PLC TEST COMMANDS BUFFER LENGTH «, t00=0x000e, t01=0x0130}
0x01740…01776 Head {h00=0x0032, h01=0x0050, text=» EXTRN DWTTCW PLC TEST COMMANDS SPECIAL PARAM «, t00=0x000e, t01=0x0166}
0x01776…017a2 Head {h00=0x0028, h01=0x0050, text=» EXTRN DWTWAT WAIT/ACT INDICATOR =16«, t00=0x000f, t01=0x000c}
0x017a2…017ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0038}
0x017ac…017ba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0042}
0x017ba…017c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0050}
0x017c4…017e4 Head {h00=0x001c, h01=0x0050, text=»* WORK STATION TABLES«, t00=0x000f, t01=0x005a}
0x017e4…017ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x007a}
0x017ee…0180a Head {h00=0x0018, h01=0x0050, text=» EXTRN INTPL1 PLC 1 «, t00=0x000f, t01=0x0084}
0x0180a…01826 Head {h00=0x0018, h01=0x0050, text=» EXTRN INTPL2 PLC 2 «, t00=0x000f, t01=0x00a0}
0x01826…01842 Head {h00=0x0018, h01=0x0050, text=» EXTRN INTPL3 PLC 3 «, t00=0x000f, t01=0x00bc}
0x01842…0185e Head {h00=0x0018, h01=0x0050, text=» EXTRN INTPL4 PLC 4 «, t00=0x000f, t01=0x00d8}
0x0185e…01868 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f4}
0x01868…01884 Head {h00=0x0018, h01=0x0050, text=» EXTRN INTPR1 REMOTE«, t00=0x000f, t01=0x00fe}
0x01884…018a0 Head {h00=0x0018, h01=0x0050, text=» EXTRN INTPR2 REMOTE«, t00=0x000f, t01=0x011a}
0x018a0…018bc Head {h00=0x0018, h01=0x0050, text=» EXTRN INTPR3 REMOTE«, t00=0x000f, t01=0x0136}
0x018bc…018d8 Head {h00=0x0018, h01=0x0050, text=» EXTRN INTPR4 REMOTE«, t00=0x000f, t01=0x0152}
0x018d8…018e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x016e}
0x018e2…018fc Head {h00=0x0016, h01=0x0050, text=»* MISCELLANEOUS«, t00=0x000f, t01=0x0178}
0x018fc…01906 (16, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0004}
0x01906…01940 Head {h00=0x0036, h01=0x0050, text=» EXTRN INTADR INTERRUPT ADDR IN DRIVER ADDR BLOCK «, t00=0x0010, t01=0x000e}
0x01940…0194a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0048}
0x0194a…01958 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0052}
0x01958…01962 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0060}
0x01962…01982 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0010, t01=0x006a}
0x01982…019a2 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0010, t01=0x008a}
0x019a2…019c2 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0010, t01=0x00aa}
0x019c2…019cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ca}
0x019cc…019d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00d4}
0x019d6…01a10 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0010, t01=0x00de}
0x01a10…01a42 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0010, t01=0x0118}
0x01a42…01a4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x014a}
0x01a4c…01a60 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0010, t01=0x0154}
0x01a60…01a6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0168}
0x01a6a…01a74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0172}
0x01a74…01abc Head {h00=0x0044, h01=0x0050, text=»* PLCNRL DEFINES NUMBER OF LOCAL PLC:S ACTUALLY CONNECTED (0-4) «, t00=0x0010, t01=0x017c}
0x01abc…01ac6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0034}
0x01ac6…01ad8 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0011, t01=0x003e}
0x01ad8…01aee Head {h00=0x0012, h01=0x0050, text=»PLCNRL EQU X:A«, t00=0x0011, t01=0x0050}
0x01aee…01af8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0066}
0x01af8…01b40 Head {h00=0x0044, h01=0x0050, text=»* PLCNRR DEFINES THE NUMBER OF REMOTE PLC:S ACTUALLY CONN. (0-4)«, t00=0x0011, t01=0x0070}
0x01b40…01b4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b8}
0x01b4a…01b5c Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0011, t01=0x00c2}
0x01b5c…01b72 Head {h00=0x0012, h01=0x0050, text=»PLCNRR EQU X:B«, t00=0x0011, t01=0x00d4}
0x01b72…01b7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ea}
0x01b7c…01b86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00f4}
0x01b86…01b94 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x00fe}
0x01b94…01b9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x010c}
0x01b9e…01bb4 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0011, t01=0x0116}
0x01bb4…01bca Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x0011, t01=0x012c}
0x01bca…01be0 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0011, t01=0x0142}
0x01be0…01bea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0158}
0x01bea…01c12 Head {h00=0x0024, h01=0x0050, text=»* SYSTEM PARAMETER DEFINITION«, t00=0x0011, t01=0x0162}
0x01c12…01c1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x018a}
0x01c1c…01c4c (18, 0, 400) Head {h00=0x002c, h01=0x0050, text=»* LEVEL 3 FLOW CONTROL WINDOW SIZE (1-7)«, t00=0x0012, t01=0x0004}
0x01c4c…01c60 Head {h00=0x0010, h01=0x0050, text=»WINDOW EQU 2«, t00=0x0012, t01=0x0034}
0x01c60…01c6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0048}
0x01c6a…01ca2 Head {h00=0x0034, h01=0x0050, text=»* MAXIMAL NUMBER OF WORK STATIONS PER PLC (1-32)«, t00=0x0012, t01=0x0052}
0x01ca2…01cb6 Head {h00=0x0010, h01=0x0050, text=»MAXWS EQU 32«, t00=0x0012, t01=0x008a}
0x01cb6…01cc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x009e}
0x01cc0…01d02 Head {h00=0x003e, h01=0x0050, text=»* DELAY BEFORE EXECUTING "TEST CU" AT RESTART. (IN 100 MS)«, t00=0x0012, t01=0x00a8}
0x01d02…01d24 Head {h00=0x001e, h01=0x0050, text=»STADLY EQU 100 10 SECONDS «, t00=0x0012, t01=0x00ea}
0x01d24…01d2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x010c}
0x01d2e…01d74 Head {h00=0x0042, h01=0x0050, text=»* LENGTH OF USER PART OF SHORT OUTPUT BUFFER IN WORDS (1-128) «, t00=0x0012, t01=0x0116}
0x01d74…01d88 Head {h00=0x0010, h01=0x0050, text=»SOBUFU EQU 3«, t00=0x0012, t01=0x015c}
0x01d88…01d92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0170}
0x01d92…01dd8 Head {h00=0x0042, h01=0x0050, text=»* LENGTH OF USER PART OF GENERAL READ BUFFER IN WORDS (1-128) «, t00=0x0012, t01=0x017a}
0x01dd8…01dee Head {h00=0x0012, h01=0x0050, text=»GRBUFU EQU 70 «, t00=0x0013, t01=0x0030}
0x01dee…01df8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0046}
0x01df8…01e24 Head {h00=0x0028, h01=0x0050, text=»* INACTIVITY TIMER (MINUTES) «, t00=0x0013, t01=0x0050}
0x01e24…01e3e Head {h00=0x0016, h01=0x0050, text=»TIMACT EQU 3 U =8 «, t00=0x0013, t01=0x007c}
0x01e3e…01e48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0096}
0x01e48…01e96 Head {h00=0x004a, h01=0x0050, text=»* POLLING FREQUENCY (L BYTE) & NUMBER OF RETRANSMISSIONS (R BYTE) =11 «, t00=0x0013, t01=0x00a0}
0x01e96…01eb8 Head {h00=0x001e, h01=0x0050, text=»POLRTL EQU /1805 LOCAL =11«, t00=0x0013, t01=0x00ee}
0x01eb8…01edc Head {h00=0x0020, h01=0x0050, text=»POLRTR EQU /0D05 REMOTE =11 «, t00=0x0013, t01=0x0110}
0x01edc…01ee6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0134}
0x01ee6…01f26 Head {h00=0x003c, h01=0x0050, text=»* IF PLCTST IS 1 THE PLC DIAGNOSTIC COMMANDS ARE HANDLED«, t00=0x0013, t01=0x013e}
0x01f26…01f40 Head {h00=0x0016, h01=0x0050, text=»* BY THIS DRIVER. «, t00=0x0013, t01=0x017e}
0x01f40…01f4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0008}
0x01f4a…01f5e Head {h00=0x0010, h01=0x0050, text=»PLCTST EQU 0«, t00=0x0014, t01=0x0012}
0x01f5e…01f68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0026}
0x01f68…01f72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0030}
0x01f72…01fba Head {h00=0x0044, h01=0x0050, text=»* A TEST VERSION OF THE DRIVER IS OBTAINED BY SETTING UTTEST><0 «, t00=0x0014, t01=0x003a}
0x01fba…01ffe Head {h00=0x0040, h01=0x0050, text=»* IF UTTEST=1 THE TEST CODE IS INCLUDUD BUT TRAP IS NOT USED«, t00=0x0014, t01=0x0082}
0x01ffe…0203e Head {h00=0x003c, h01=0x0050, text=»* IF UTTEST=2 THE TEST CODE IS INCLUDED AND TRAP IS USED«, t00=0x0014, t01=0x00c6}
0x0203e…02048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0106}
0x02048…0205c Head {h00=0x0010, h01=0x0050, text=»UTTEST EQU 0«, t00=0x0014, t01=0x0110}
0x0205c…02066 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0124}
0x02066…02070 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x012e}
0x02070…020aa Head {h00=0x0036, h01=0x0050, text=»* LOBUFN IS THE NUMBER OF LONG OUTPUT BUFFERS USED«, t00=0x0014, t01=0x0138}
0x020aa…020c8 Head {h00=0x001a, h01=0x0050, text=»* FOR EACH PLC (1-32) «, t00=0x0014, t01=0x0172}
0x020c8…020d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0190}
0x020d2…020e6 Head {h00=0x0010, h01=0x0050, text=»LOBUFN EQU 3«, t00=0x0015, t01=0x000a}
0x020e6…020f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x001e}
0x020f0…020fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0028}
0x020fa…02134 Head {h00=0x0036, h01=0x0050, text=»* LOBUFU IS THE LENGTH OF THE USER PART OF A LONG «, t00=0x0015, t01=0x0032}
0x02134…0215c Head {h00=0x0024, h01=0x0050, text=»* OUTPUT BUFFER IN WORDS (1-128)«, t00=0x0015, t01=0x006c}
0x0215c…02166 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0094}
0x02166…02186 Head {h00=0x001c, h01=0x0050, text=»LOBUFU EQU 128 U =6,=16 «, t00=0x0015, t01=0x009e}
0x02186…02190 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00be}
0x02190…0219e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x00c8}
0x0219e…021a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00d6}
0x021a8…021ce Head {h00=0x0022, h01=0x0050, text=»* HARDWARE INTERRUPT LEVELS«, t00=0x0015, t01=0x00e0}
0x021ce…02202 Head {h00=0x0030, h01=0x0050, text=»* THESE LEVELS MUST CORRESPOND TO INTERRUPT «, t00=0x0015, t01=0x0106}
0x02202…0221c Head {h00=0x0016, h01=0x0050, text=»* VECTOR IN SYSTAB«, t00=0x0015, t01=0x013a}
0x0221c…02226 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0154}
0x02226…02248 Head {h00=0x001e, h01=0x0050, text=»INTLV0 EQU 26 PLC NUMBER 1«, t00=0x0015, t01=0x015e}
0x02248…0226a Head {h00=0x001e, h01=0x0050, text=»INTLV1 EQU 27 PLC NUMBER 2«, t00=0x0015, t01=0x0180}
0x0226a…0228c Head {h00=0x001e, h01=0x0050, text=»INTLV2 EQU 24 PLC NUMBER 3«, t00=0x0016, t01=0x0012}
0x0228c…022ae Head {h00=0x001e, h01=0x0050, text=»INTLV3 EQU 25 PLC NUMBER 4«, t00=0x0016, t01=0x0034}
0x022ae…022d8 Head {h00=0x0026, h01=0x0050, text=»INTRV0 EQU 18 PLC NUMBER 5, REMOTE«, t00=0x0016, t01=0x0056}
0x022d8…02302 Head {h00=0x0026, h01=0x0050, text=»INTRV1 EQU 19 6, REMOTE«, t00=0x0016, t01=0x0080}
0x02302…0232c Head {h00=0x0026, h01=0x0050, text=»INTRV2 EQU 20 7, REMOTE«, t00=0x0016, t01=0x00aa}
0x0232c…02356 Head {h00=0x0026, h01=0x0050, text=»INTRV3 EQU 21 8, REMOTE«, t00=0x0016, t01=0x00d4}
0x02356…02360 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00fe}
0x02360…0238a Head {h00=0x0026, h01=0x0050, text=»* CHANNEL UNIT DEVICE ADDRESSES«, t00=0x0016, t01=0x0108}
0x0238a…02394 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0132}
0x02394…023b0 Head {h00=0x0018, h01=0x0050, text=»PLCDA0 EQU /06 PLC 1«, t00=0x0016, t01=0x013c}
0x023b0…023cc Head {h00=0x0018, h01=0x0050, text=»PLCDA1 EQU /07 PLC 2«, t00=0x0016, t01=0x0158}
0x023cc…023e8 Head {h00=0x0018, h01=0x0050, text=»PLCDA2 EQU /26 PLC 3«, t00=0x0016, t01=0x0174}
0x023e8…02404 Head {h00=0x0018, h01=0x0050, text=»PLCDA3 EQU /27 PLC 4«, t00=0x0016, t01=0x0190}
0x02404…02420 Head {h00=0x0018, h01=0x0050, text=»PLCDA4 EQU /3A PLC 5«, t00=0x0017, t01=0x001c}
0x02420…0243c Head {h00=0x0018, h01=0x0050, text=»PLCDA5 EQU /3B PLC 6«, t00=0x0017, t01=0x0038}
0x0243c…02458 Head {h00=0x0018, h01=0x0050, text=»PLCDA6 EQU /2A PLC 7«, t00=0x0017, t01=0x0054}
0x02458…02474 Head {h00=0x0018, h01=0x0050, text=»PLCDA7 EQU /2B PLC 8«, t00=0x0017, t01=0x0070}
0x02474…0247e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x008c}
0x0247e…0248c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0096}
0x0248c…02496 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00a4}
0x02496…024c4 Head {h00=0x002a, h01=0x0050, text=»* BUFFER AREA PARAMETER DEFINITION «, t00=0x0017, t01=0x00ae}
0x024c4…024ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00dc}
0x024ce…02500 Head {h00=0x002e, h01=0x0050, text=»HEADLW EQU 4 BUFFER HEADER LENGTH (WORDS) «, t00=0x0017, t01=0x00e6}
0x02500…02536 Head {h00=0x0032, h01=0x0050, text=»FLOWLW EQU 2 FLOW CONTROL FIELD LENGTH (WORDS)«, t00=0x0017, t01=0x0118}
0x02536…0256c Head {h00=0x0032, h01=0x0050, text=»SYSTLW EQU HEADLW+FLOWLW SYSTEM PART OF BUFFER«, t00=0x0017, t01=0x014e}
0x0256c…02576 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0184}
0x02576…02598 Head {h00=0x001e, h01=0x0050, text=»* LONG OUTPUT BUFFERS«, t00=0x0017, t01=0x018e}
0x02598…025d6 Head {h00=0x003a, h01=0x0050, text=»LOBUF1 EQU SYSTLW+LOBUFU LENGTH OF ONE BUFFER (WORDS) «, t00=0x0018, t01=0x0020}
0x025d6…02600 Head {h00=0x0026, h01=0x0050, text=»LOBUF2 EQU LOBUF1+LOBUF1 2 BUFFERS«, t00=0x0018, t01=0x005e}
0x02600…02620 Head {h00=0x001c, h01=0x0050, text=»LOBUF3 EQU LOBUF2+LOBUF1«, t00=0x0018, t01=0x0088}
0x02620…02640 Head {h00=0x001c, h01=0x0050, text=»LOBUF4 EQU LOBUF3+LOBUF1«, t00=0x0018, t01=0x00a8}
0x02640…02660 Head {h00=0x001c, h01=0x0050, text=»LOBUF5 EQU LOBUF4+LOBUF1«, t00=0x0018, t01=0x00c8}
0x02660…02680 Head {h00=0x001c, h01=0x0050, text=»LOBUF6 EQU LOBUF5+LOBUF1«, t00=0x0018, t01=0x00e8}
0x02680…026a6 Head {h00=0x0022, h01=0x0050, text=»LOBUF7 EQU LOBUF6+LOBUF1 . =17«, t00=0x0018, t01=0x0108}
0x026a6…026cc Head {h00=0x0022, h01=0x0050, text=»LOBUF8 EQU LOBUF7+LOBUF1 . =17«, t00=0x0018, t01=0x012e}
0x026cc…026f2 Head {h00=0x0022, h01=0x0050, text=»LOBUF9 EQU LOBUF8+LOBUF1 . =17«, t00=0x0018, t01=0x0154}
0x026f2…02718 Head {h00=0x0022, h01=0x0050, text=»LOBU10 EQU LOBUF9+LOBUF1 . =17«, t00=0x0018, t01=0x017a}
0x02718…0273e Head {h00=0x0022, h01=0x0050, text=»LOBU11 EQU LOBU10+LOBUF1 . =17«, t00=0x0019, t01=0x0010}
0x0273e…02764 Head {h00=0x0022, h01=0x0050, text=»LOBU12 EQU LOBU11+LOBUF1 . =17«, t00=0x0019, t01=0x0036}
0x02764…0278a Head {h00=0x0022, h01=0x0050, text=»LOBU13 EQU LOBU12+LOBUF1 . =17«, t00=0x0019, t01=0x005c}
0x0278a…027b0 Head {h00=0x0022, h01=0x0050, text=»LOBU14 EQU LOBU13+LOBUF1 . =17«, t00=0x0019, t01=0x0082}
0x027b0…027d6 Head {h00=0x0022, h01=0x0050, text=»LOBU15 EQU LOBU14+LOBUF1 . =17«, t00=0x0019, t01=0x00a8}
0x027d6…027fc Head {h00=0x0022, h01=0x0050, text=»LOBU16 EQU LOBU15+LOBUF1 . =17«, t00=0x0019, t01=0x00ce}
0x027fc…02822 Head {h00=0x0022, h01=0x0050, text=»LOBU17 EQU LOBU16+LOBUF1 . =17«, t00=0x0019, t01=0x00f4}
0x02822…02848 Head {h00=0x0022, h01=0x0050, text=»LOBU18 EQU LOBU17+LOBUF1 , =17«, t00=0x0019, t01=0x011a}
0x02848…0286e Head {h00=0x0022, h01=0x0050, text=»LOBU19 EQU LOBU18+LOBUF1 . =17«, t00=0x0019, t01=0x0140}
0x0286e…02894 Head {h00=0x0022, h01=0x0050, text=»LOBU20 EQU LOBU19+LOBUF1 . =17«, t00=0x0019, t01=0x0166}
0x02894…028ba Head {h00=0x0022, h01=0x0050, text=»LOBU21 EQU LOBU20+LOBUF1 . =17«, t00=0x0019, t01=0x018c}
0x028ba…028e0 Head {h00=0x0022, h01=0x0050, text=»LOBU22 EQU LOBU21+LOBUF1 . =17«, t00=0x001a, t01=0x0022}
0x028e0…02906 Head {h00=0x0022, h01=0x0050, text=»LOBU23 EQU LOBU22+LOBUF1 . =17«, t00=0x001a, t01=0x0048}
0x02906…0292c Head {h00=0x0022, h01=0x0050, text=»LOBU24 EQU LOBU23+LOBUF1 . =17«, t00=0x001a, t01=0x006e}
0x0292c…02952 Head {h00=0x0022, h01=0x0050, text=»LOBU25 EQU LOBU24+LOBUF1 . =17«, t00=0x001a, t01=0x0094}
0x02952…02978 Head {h00=0x0022, h01=0x0050, text=»LOBU26 EQU LOBU25+LOBUF1 . =17«, t00=0x001a, t01=0x00ba}
0x02978…0299e Head {h00=0x0022, h01=0x0050, text=»LOBU27 EQU LOBU26+LOBUF1 . =17«, t00=0x001a, t01=0x00e0}
0x0299e…029c4 Head {h00=0x0022, h01=0x0050, text=»LOBU28 EQU LOBU27+LOBUF1 . =17«, t00=0x001a, t01=0x0106}
0x029c4…029ea Head {h00=0x0022, h01=0x0050, text=»LOBU29 EQU LOBU28+LOBUF1 . =17«, t00=0x001a, t01=0x012c}
0x029ea…02a10 Head {h00=0x0022, h01=0x0050, text=»LOBU30 EQU LOBU29+LOBUF1 . =17«, t00=0x001a, t01=0x0152}
0x02a10…02a36 Head {h00=0x0022, h01=0x0050, text=»LOBU31 EQU LOBU30+LOBUF1 . =17«, t00=0x001a, t01=0x0178}
0x02a36…02a5c Head {h00=0x0022, h01=0x0050, text=»LOBU32 EQU LOBU31+LOBUF1 . =17«, t00=0x001b, t01=0x000e}
0x02a5c…02a72 Head {h00=0x0012, h01=0x0050, text=» IFT LOBUFN=1 «, t00=0x001b, t01=0x0034}
0x02a72…02aaa Head {h00=0x0034, h01=0x0050, text=»LOBUFS EQU LOBUF1 LENGTH OF BUFFER AREA (WORDS) «, t00=0x001b, t01=0x004a}
0x02aaa…02ab6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0082}
0x02ab6…02acc Head {h00=0x0012, h01=0x0050, text=» IFT LOBUFN=2 «, t00=0x001b, t01=0x008e}
0x02acc…02b04 Head {h00=0x0034, h01=0x0050, text=»LOBUFS EQU LOBUF2 LENGTH OF BUFFER AREA (WORDS) «, t00=0x001b, t01=0x00a4}
0x02b04…02b10 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x00dc}
0x02b10…02b26 Head {h00=0x0012, h01=0x0050, text=» IFT LOBUFN=3 «, t00=0x001b, t01=0x00e8}
0x02b26…02b5e Head {h00=0x0034, h01=0x0050, text=»LOBUFS EQU LOBUF3 LENGTH OF BUFFER AREA (WORDS) «, t00=0x001b, t01=0x00fe}
0x02b5e…02b6a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0136}
0x02b6a…02b80 Head {h00=0x0012, h01=0x0050, text=» IFT LOBUFN=4 «, t00=0x001b, t01=0x0142}
0x02b80…02bb8 Head {h00=0x0034, h01=0x0050, text=»LOBUFS EQU LOBUF4 LENGTH OF BUFFER AREA (WORDS) «, t00=0x001b, t01=0x0158}
0x02bb8…02bc4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0190}
0x02bc4…02bda Head {h00=0x0012, h01=0x0050, text=» IFT LOBUFN=5 «, t00=0x001c, t01=0x000c}
0x02bda…02c12 Head {h00=0x0034, h01=0x0050, text=»LOBUFS EQU LOBUF5 LENGTH OF BUFFER AREA (WORDS) «, t00=0x001c, t01=0x0022}
0x02c12…02c1e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x005a}
0x02c1e…02c34 Head {h00=0x0012, h01=0x0050, text=» IFT LOBUFN=6 «, t00=0x001c, t01=0x0066}
0x02c34…02c6c Head {h00=0x0034, h01=0x0050, text=»LOBUFS EQU LOBUF6 LENGTH OF BUFFER AREA (WORDS) «, t00=0x001c, t01=0x007c}
0x02c6c…02c78 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x00b4}
0x02c78…02c94 Head {h00=0x0018, h01=0x0050, text=» IFT LOBUFN=7 . =17 «, t00=0x001c, t01=0x00c0}
0x02c94…02cb4 Head {h00=0x001c, h01=0x0050, text=»LOBUFS EQU LOBUF7 . =17 «, t00=0x001c, t01=0x00dc}
0x02cb4…02cc0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x00fc}
0x02cc0…02cdc Head {h00=0x0018, h01=0x0050, text=» IFT LOBUFN=8 . =17 «, t00=0x001c, t01=0x0108}
0x02cdc…02cfc Head {h00=0x001c, h01=0x0050, text=»LOBUFS EQU LOBUF8 . =17 «, t00=0x001c, t01=0x0124}
0x02cfc…02d08 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x0144}
0x02d08…02d24 Head {h00=0x0018, h01=0x0050, text=» IFT LOBUFN=9 . =17 «, t00=0x001c, t01=0x0150}
0x02d24…02d44 Head {h00=0x001c, h01=0x0050, text=»LOBUFS EQU LOBUF9 . =17 «, t00=0x001c, t01=0x016c}
0x02d44…02d50 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x018c}
0x02d50…02d6c Head {h00=0x0018, h01=0x0050, text=» IFT LOBUFN=10 . =17«, t00=0x001d, t01=0x0008}
0x02d6c…02d8c Head {h00=0x001c, h01=0x0050, text=»LOBUFS EQU LOBU10 . =17 «, t00=0x001d, t01=0x0024}
0x02d8c…02d98 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0044}
0x02d98…02db4 Head {h00=0x0018, h01=0x0050, text=» IFT LOBUFN=11 . =17«, t00=0x001d, t01=0x0050}
0x02db4…02dd4 Head {h00=0x001c, h01=0x0050, text=»LOBUFS EQU LOBU11 . =17 «, t00=0x001d, t01=0x006c}
0x02dd4…02de0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x008c}
0x02de0…02dfc Head {h00=0x0018, h01=0x0050, text=» IFT LOBUFN=12 . =17«, t00=0x001d, t01=0x0098}
0x02dfc…02e1c Head {h00=0x001c, h01=0x0050, text=»LOBUFS EQU LOBU12 . =17 «, t00=0x001d, t01=0x00b4}
0x02e1c…02e28 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x00d4}
0x02e28…02e44 Head {h00=0x0018, h01=0x0050, text=» IFT LOBUFN=13 . =17«, t00=0x001d, t01=0x00e0}
0x02e44…02e64 Head {h00=0x001c, h01=0x0050, text=»LOBUFS EQU LOBU13 . =17 «, t00=0x001d, t01=0x00fc}
0x02e64…02e70 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x011c}
0x02e70…02e8c Head {h00=0x0018, h01=0x0050, text=» IFT LOBUFN=14 . =17«, t00=0x001d, t01=0x0128}
0x02e8c…02eac Head {h00=0x001c, h01=0x0050, text=»LOBUFS EQU LOBU14 . =17 «, t00=0x001d, t01=0x0144}
0x02eac…02eb8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0164}
0x02eb8…02ed4 Head {h00=0x0018, h01=0x0050, text=» IFT LOBUFN=15 . =17«, t00=0x001d, t01=0x0170}
0x02ed4…02ef4 Head {h00=0x001c, h01=0x0050, text=»LOBUFS EQU LOBU15 . =17 «, t00=0x001d, t01=0x018c}
0x02ef4…02f00 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x001c}
0x02f00…02f1c Head {h00=0x0018, h01=0x0050, text=» IFT LOBUFN=16 . =17«, t00=0x001e, t01=0x0028}
0x02f1c…02f3c Head {h00=0x001c, h01=0x0050, text=»LOBUFS EQU LOBU16 . =17 «, t00=0x001e, t01=0x0044}
0x02f3c…02f48 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0064}
0x02f48…02f64 Head {h00=0x0018, h01=0x0050, text=» IFT LOBUFN=17 . =17«, t00=0x001e, t01=0x0070}
0x02f64…02f84 Head {h00=0x001c, h01=0x0050, text=»LOBUFS EQU LOBU17 . =17 «, t00=0x001e, t01=0x008c}
0x02f84…02f90 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x00ac}
0x02f90…02fac Head {h00=0x0018, h01=0x0050, text=» IFT LOBUFN=18 . =17«, t00=0x001e, t01=0x00b8}
0x02fac…02fcc Head {h00=0x001c, h01=0x0050, text=»LOBUFS EQU LOBU18 . =17 «, t00=0x001e, t01=0x00d4}
0x02fcc…02fd8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x00f4}
0x02fd8…02ff4 Head {h00=0x0018, h01=0x0050, text=» IFT LOBUFN=19 . =17«, t00=0x001e, t01=0x0100}
0x02ff4…03014 Head {h00=0x001c, h01=0x0050, text=»LOBUFS EQU LOBU19 . =17 «, t00=0x001e, t01=0x011c}
0x03014…03020 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x013c}
0x03020…0303c Head {h00=0x0018, h01=0x0050, text=» IFT LOBUFN=20 . =17«, t00=0x001e, t01=0x0148}
0x0303c…0305c Head {h00=0x001c, h01=0x0050, text=»LOBUFS EQU LOBU20 . =17 «, t00=0x001e, t01=0x0164}
0x0305c…03068 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0184}
0x03068…03084 Head {h00=0x0018, h01=0x0050, text=» IFT LOBUFN=21 . =17«, t00=0x001e, t01=0x0190}
0x03084…030a4 Head {h00=0x001c, h01=0x0050, text=»LOBUFS EQU LOBU21 . =17 «, t00=0x001f, t01=0x001c}
0x030a4…030b0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x003c}
0x030b0…030cc Head {h00=0x0018, h01=0x0050, text=» IFT LOBUFN=22 . =17«, t00=0x001f, t01=0x0048}
0x030cc…030ec Head {h00=0x001c, h01=0x0050, text=»LOBUFS EQU LOBU22 . =17 «, t00=0x001f, t01=0x0064}
0x030ec…030f8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0084}
0x030f8…03112 Head {h00=0x0016, h01=0x0050, text=» IFT LOBUFN=23 .17«, t00=0x001f, t01=0x0090}
0x03112…03132 Head {h00=0x001c, h01=0x0050, text=»LOBUFS EQU LOBU23 . =17 «, t00=0x001f, t01=0x00aa}
0x03132…0313e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x00ca}
0x0313e…0315a Head {h00=0x0018, h01=0x0050, text=» IFT LOBUFN=24 . =17«, t00=0x001f, t01=0x00d6}
0x0315a…0317a Head {h00=0x001c, h01=0x0050, text=»LOBUFS EQU LOBU24 . =17 «, t00=0x001f, t01=0x00f2}
0x0317a…03186 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0112}
0x03186…031a2 Head {h00=0x0018, h01=0x0050, text=» IFT LOBUFN=25 . =17«, t00=0x001f, t01=0x011e}
0x031a2…031c2 Head {h00=0x001c, h01=0x0050, text=»LOBUFS EQU LOBU25 . =17 «, t00=0x001f, t01=0x013a}
0x031c2…031ce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x015a}
0x031ce…031ea Head {h00=0x0018, h01=0x0050, text=» IFT LOBUFN=26 . =17«, t00=0x001f, t01=0x0166}
0x031ea…0320a Head {h00=0x001c, h01=0x0050, text=»LOBUFS EQU LOBU26 . =17 «, t00=0x001f, t01=0x0182}
0x0320a…03216 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0012}
0x03216…03232 Head {h00=0x0018, h01=0x0050, text=» IFT LOBUFN=27 . =17«, t00=0x0020, t01=0x001e}
0x03232…03252 Head {h00=0x001c, h01=0x0050, text=»LOBUFS EQU LOBU27 . =17 «, t00=0x0020, t01=0x003a}
0x03252…0325e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x005a}
0x0325e…0327a Head {h00=0x0018, h01=0x0050, text=» IFT LOBUFN=28 . =17«, t00=0x0020, t01=0x0066}
0x0327a…0329a Head {h00=0x001c, h01=0x0050, text=»LOBUFS EQU LOBU28 . =17 «, t00=0x0020, t01=0x0082}
0x0329a…032a6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x00a2}
0x032a6…032c2 Head {h00=0x0018, h01=0x0050, text=» IFT LOBUFN=29 . =17«, t00=0x0020, t01=0x00ae}
0x032c2…032e2 Head {h00=0x001c, h01=0x0050, text=»LOBUFS EQU LOBU29 . =17 «, t00=0x0020, t01=0x00ca}
0x032e2…032ee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x00ea}
0x032ee…0330a Head {h00=0x0018, h01=0x0050, text=» IFT LOBUFN=30 . =17«, t00=0x0020, t01=0x00f6}
0x0330a…0332a Head {h00=0x001c, h01=0x0050, text=»LOBUFS EQU LOBU30 . =17 «, t00=0x0020, t01=0x0112}
0x0332a…03336 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0132}
0x03336…03352 Head {h00=0x0018, h01=0x0050, text=» IFT LOBUFN=31 . =17«, t00=0x0020, t01=0x013e}
0x03352…03372 Head {h00=0x001c, h01=0x0050, text=»LOBUFS EQU LOBU31 . =17 «, t00=0x0020, t01=0x015a}
0x03372…0337e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x017a}
0x0337e…0339a Head {h00=0x0018, h01=0x0050, text=» IFT LOBUFN=32 . =17«, t00=0x0020, t01=0x0186}
0x0339a…033ba Head {h00=0x001c, h01=0x0050, text=»LOBUFS EQU LOBU32 . =17 «, t00=0x0021, t01=0x0012}
0x033ba…033c6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0032}
0x033c6…033d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x003e}
0x033d0…033de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0048}
0x033de…033e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0056}
0x033e8…0340c Head {h00=0x0020, h01=0x0050, text=»* SHORT OUTPUT BUFFERS «, t00=0x0021, t01=0x0060}
0x0340c…0344a Head {h00=0x003a, h01=0x0050, text=»SOBUF1 EQU SYSTLW+SOBUFU LENGTH OF ONE BUFFER (WORDS) «, t00=0x0021, t01=0x0084}
0x0344a…03474 Head {h00=0x0026, h01=0x0050, text=»SOBUF2 EQU SOBUF1+SOBUF1 2 BUFFERS«, t00=0x0021, t01=0x00c2}
0x03474…03494 Head {h00=0x001c, h01=0x0050, text=»SOBUF4 EQU SOBUF2+SOBUF2«, t00=0x0021, t01=0x00ec}
0x03494…034b4 Head {h00=0x001c, h01=0x0050, text=»SOBUF8 EQU SOBUF4+SOBUF4«, t00=0x0021, t01=0x010c}
0x034b4…034ec Head {h00=0x0034, h01=0x0050, text=»SOBUFS EQU SOBUF8 LENGTH OF BUFFER AREA (WORDS) «, t00=0x0021, t01=0x012c}
0x034ec…034f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0164}
0x034f6…0351a Head {h00=0x0020, h01=0x0050, text=»* GENERAL READ BUFFERS «, t00=0x0021, t01=0x016e}
0x0351a…03558 (34, 0, 398) Head {h00=0x003a, h01=0x0050, text=»GRBUF1 EQU SYSTLW+GRBUFU LENGTH OF ONE BUFFER (WORDS) «, t00=0x0022, t01=0x0004}
0x03558…03578 Head {h00=0x001c, h01=0x0050, text=»GRBUF2 EQU GRBUF1+GRBUF1«, t00=0x0022, t01=0x0042}
0x03578…035b0 Head {h00=0x0034, h01=0x0050, text=»GRBUFS EQU GRBUF2 LENGTH OF BUFFER AREA (WORDS) «, t00=0x0022, t01=0x0062}
0x035b0…035ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x009a}
0x035ba…035f0 Head {h00=0x0032, h01=0x0050, text=»* LENGTHS OF USER PART OF BUFFERS (BYTES)«, t00=0x0022, t01=0x00a4}
0x035f0…03626 Head {h00=0x0032, h01=0x0050, text=»SOBUFL EQU SOBUFU+SOBUFU SHORT OUTPUT BUFFERS «, t00=0x0022, t01=0x00da}
0x03626…0365a Head {h00=0x0030, h01=0x0050, text=»LOBUFL EQU LOBUFU+LOBUFU LONG OUTPUT BUFFERS«, t00=0x0022, t01=0x0110}
0x0365a…03690 Head {h00=0x0032, h01=0x0050, text=»GRBUFL EQU GRBUFU+GRBUFU GENERAL READ BUFFERS «, t00=0x0022, t01=0x0144}
0x03690…0369a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x017a}
0x0369a…036a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0184}
0x036a8…036b2 (35, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0004}
0x036b2…036e6 Head {h00=0x0030, h01=0x0050, text=»* CONTROLLER COMMAND RECORD (CCR) LAYOUT «, t00=0x0023, t01=0x000e}
0x036e6…036f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0042}
0x036f0…0371c Head {h00=0x0028, h01=0x0050, text=»CCRDLS EQU 0 DATA LINK STATION INDEX«, t00=0x0023, t01=0x004c}
0x0371c…0373e Head {h00=0x001e, h01=0x0050, text=»CCRCMD EQU 1 COMMAND CODE «, t00=0x0023, t01=0x0078}
0x0373e…03764 Head {h00=0x0022, h01=0x0050, text=»CCRSU1 EQU 2 SUBCOMMAND BYTE 1«, t00=0x0023, t01=0x009a}
0x03764…0378a Head {h00=0x0022, h01=0x0050, text=»CCRSU2 EQU 3 SUBCOMMAND BYTE 2«, t00=0x0023, t01=0x00c0}
0x0378a…037ae Head {h00=0x0020, h01=0x0050, text=»CCRSUB EQU 2 SUBCOMMAND WORD«, t00=0x0023, t01=0x00e6}
0x037ae…037ce Head {h00=0x001c, h01=0x0050, text=»CCRSTA EQU 4 STATUS WORD«, t00=0x0023, t01=0x010a}
0x037ce…037f8 Head {h00=0x0026, h01=0x0050, text=»CCRIDB EQU 7 IDENTITY, BYTE FIELD «, t00=0x0023, t01=0x012a}
0x037f8…03822 Head {h00=0x0026, h01=0x0050, text=»CCRIDW EQU 8 IDENTITY, WORD FIELD «, t00=0x0023, t01=0x0154}
0x03822…0384e Head {h00=0x0028, h01=0x0050, text=»CCRLEN EQU 10 BUFFER LENGTH (BYTES) «, t00=0x0023, t01=0x017e}
0x0384e…03888 Head {h00=0x0036, h01=0x0050, text=»CCRC1B EQU 12 DATA CHAINING CTRL & MSB BUFFER ADDR«, t00=0x0024, t01=0x001a}
0x03888…038ac Head {h00=0x0020, h01=0x0050, text=»CCRBUF EQU 14 BUFFER ADDRESS«, t00=0x0024, t01=0x0054}
0x038ac…038b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0078}
0x038b6…038c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0082}
0x038c0…038da Head {h00=0x0016, h01=0x0050, text=»* BUFFER LAYOUT«, t00=0x0024, t01=0x008c}
0x038da…038e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00a6}
0x038e4…03900 Head {h00=0x0018, h01=0x0050, text=»* HEADER LENGTH«, t00=0x0024, t01=0x00b0}
0x03900…03930 Head {h00=0x002c, h01=0x0050, text=»BUFHLN EQU HEADLW+HEADLW LENGTH (BYTES) «, t00=0x0024, t01=0x00cc}
0x03930…0394c Head {h00=0x0018, h01=0x0050, text=»* HEADER LAYOUT«, t00=0x0024, t01=0x00fc}
0x0394c…03970 Head {h00=0x0020, h01=0x0050, text=»BUFLNK EQU -8 FREE LIST LINK«, t00=0x0024, t01=0x0118}
0x03970…03992 Head {h00=0x001e, h01=0x0050, text=»BUFDWT EQU -6 DWT ADDRESS «, t00=0x0024, t01=0x013c}
0x03992…039c0 Head {h00=0x002a, h01=0x0050, text=»BUFLEN EQU -4 LENGTH OF TEXT IN BUFFER«, t00=0x0024, t01=0x015e}
0x039c0…039e0 Head {h00=0x001c, h01=0x0050, text=»BUFBIX EQU -2 BYTE INDEX«, t00=0x0024, t01=0x018c}
0x039e0…03a08 Head {h00=0x0024, h01=0x0050, text=»* X25 CONTROL FIELD LAYOUT «, t00=0x0025, t01=0x001c}
0x03a08…03a3a Head {h00=0x002e, h01=0x0050, text=»X25LGN EQU 0 LOGICAL CHANNEL GROUP NUMBER «, t00=0x0025, t01=0x0044}
0x03a3a…03a66 Head {h00=0x0028, h01=0x0050, text=»X25LCN EQU 1 LOGICAL CHANNEL NUMBER «, t00=0x0025, t01=0x0076}
0x03a66…03a94 Head {h00=0x002a, h01=0x0050, text=»X25FLW EQU 2 FLOW CONTROL INFORMATION «, t00=0x0025, t01=0x00a2}
0x03a94…03abc Head {h00=0x0024, h01=0x0050, text=»X25DAT EQU 3 START OF USER DATA «, t00=0x0025, t01=0x00d0}
0x03abc…03ac6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00f8}
0x03ac6…03ad4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0102}
0x03ad4…03ade Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0110}
0x03ade…03afc Head {h00=0x001a, h01=0x0050, text=»* PLC COMMAND CODES«, t00=0x0025, t01=0x011a}
0x03afc…03b06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0138}
0x03b06…03b2e Head {h00=0x0024, h01=0x0050, text=»CMDTC EQU /80 TEST CHANNEL UNIT «, t00=0x0025, t01=0x0142}
0x03b2e…03b4e Head {h00=0x001c, h01=0x0050, text=»CMDOP EQU /86 OPEN LINE «, t00=0x0025, t01=0x016a}
0x03b4e…03b6c Head {h00=0x001a, h01=0x0050, text=»CMDOD EQU /85 OPEN DLS«, t00=0x0025, t01=0x018a}
0x03b6c…03b96 Head {h00=0x0026, h01=0x0050, text=»CMDPS EQU /84 GET LINE STATISTICS «, t00=0x0026, t01=0x0018}
0x03b96…03bbe Head {h00=0x0024, h01=0x0050, text=»CMDDS EQU /83 GET DLS STATISTICS«, t00=0x0026, t01=0x0042}
0x03bbe…03be6 Head {h00=0x0024, h01=0x0050, text=»CMDRM EQU /87 READ LOCAL MEMORY «, t00=0x0026, t01=0x006a}
0x03be6…03c0a Head {h00=0x0020, h01=0x0050, text=»CMDSW EQU /40 STANDARD WRITE«, t00=0x0026, t01=0x0092}
0x03c0a…03c2a Head {h00=0x001c, h01=0x0050, text=»CMDFW EQU /41 FAST WRITE«, t00=0x0026, t01=0x00b6}
0x03c2a…03c4c Head {h00=0x001e, h01=0x0050, text=»CMDGR EQU /20 GENERAL READ«, t00=0x0026, t01=0x00d6}
0x03c4c…03c56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00f8}
0x03c56…03c60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0102}
0x03c60…03c8c Head {h00=0x0028, h01=0x0050, text=»* APPLICATION TEST COMMAND CODES «, t00=0x0026, t01=0x010c}
0x03c8c…03c96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0138}
0x03c96…03cbe Head {h00=0x0024, h01=0x0050, text=»ORDPS EQU 1 GET LINE STATISTICS «, t00=0x0026, t01=0x0142}
0x03cbe…03ce4 Head {h00=0x0022, h01=0x0050, text=»ORDDS EQU 2 GER DLS STATISTICS«, t00=0x0026, t01=0x016a}
0x03ce4…03d0a Head {h00=0x0022, h01=0x0050, text=»ORDRM EQU 3 READ LOCAL MEMORY «, t00=0x0026, t01=0x0190}
0x03d0a…03d14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0026}
0x03d14…03d1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0030}
0x03d1e…03d38 Head {h00=0x0016, h01=0x0050, text=»* MESSAGE TYPES«, t00=0x0027, t01=0x003a}
0x03d38…03d42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0054}
0x03d42…03d6c Head {h00=0x0026, h01=0x0050, text=»TYERR EQU 0 ILLEGAL TYPE OR ERROR «, t00=0x0027, t01=0x005e}
0x03d6c…03da2 Head {h00=0x0032, h01=0x0050, text=»TYNFLO EQU 2 DATA PACKET WITH NO FLOW CONTROL «, t00=0x0027, t01=0x0088}
0x03da2…03dcc Head {h00=0x0026, h01=0x0050, text=»TYSTAT EQU 4 DEVICE STATUS MESSAGE«, t00=0x0027, t01=0x00be}
0x03dcc…03df4 Head {h00=0x0024, h01=0x0050, text=»TYDATA EQU 6 NORMAL DATA PACKET «, t00=0x0027, t01=0x00e8}
0x03df4…03e1c Head {h00=0x0024, h01=0x0050, text=»TYRR EQU 8 RECIEVE READY PACKET «, t00=0x0027, t01=0x0110}
0x03e1c…03e3e Head {h00=0x001e, h01=0x0050, text=»TYRES EQU 10 RESET PACKET «, t00=0x0027, t01=0x0138}
0x03e3e…03e6e Head {h00=0x002c, h01=0x0050, text=»TYRESC EQU 12 RESET CONFIRMATION PACKET «, t00=0x0027, t01=0x015a}
0x03e6e…03e78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x018a}
0x03e78…03e86 (40, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0004}
0x03e86…03e90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0012}
0x03e90…03eb6 Head {h00=0x0022, h01=0x0050, text=»* DWT STATUS FLAGS (DWTST) «, t00=0x0028, t01=0x001c}
0x03eb6…03ec0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0042}
0x03ec0…03ee8 Head {h00=0x0024, h01=0x0050, text=»DWFBSY EQU /8000 DEVICE NOT BUSY«, t00=0x0028, t01=0x004c}
0x03ee8…03f0a Head {h00=0x001e, h01=0x0050, text=»DWFECH EQU /2000 ECHO MODE«, t00=0x0028, t01=0x0074}
0x03f0a…03f32 Head {h00=0x0024, h01=0x0050, text=»DWFINP EQU /0020 INPUT REQUESTED«, t00=0x0028, t01=0x0096}
0x03f32…03f60 Head {h00=0x002a, h01=0x0050, text=»DWFRES EQU /0008 RESET SEQUENCE ACTIVE«, t00=0x0028, t01=0x00be}
0x03f60…03f90 Head {h00=0x002c, h01=0x0050, text=»DWFAK3 EQU /0004 WAITING FOR LEVEL 3 ACK«, t00=0x0028, t01=0x00ec}
0x03f90…03fba Head {h00=0x0026, h01=0x0050, text=»DWFPLC EQU DWFRES+DWFAK3 PLC FLAGS«, t00=0x0028, t01=0x011c}
0x03fba…03ff0 Head {h00=0x0032, h01=0x0050, text=»DWFTY1 EQU /0002 USE ONLY TYPE 1 DATA PACKETS «, t00=0x0028, t01=0x0146}
0x03ff0…0401e Head {h00=0x002a, h01=0x0050, text=»DWFSAC EQU /0001 WAIT FOR LEVEL 3 ACK «, t00=0x0028, t01=0x017c}
0x0401e…04028 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x001a}
0x04028…04032 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0024}
0x04032…04058 Head {h00=0x0022, h01=0x0050, text=»* PLC STATUS FLAGS (CCRSTA)«, t00=0x0029, t01=0x002e}
0x04058…04062 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0054}
0x04062…04088 Head {h00=0x0022, h01=0x0050, text=»STANOC EQU /0001 NO CONNECTION«, t00=0x0029, t01=0x005e}
0x04088…040ac Head {h00=0x0020, h01=0x0050, text=»STALIR EQU /0004 LINK RESET «, t00=0x0029, t01=0x0084}
0x040ac…040d6 Head {h00=0x0026, h01=0x0050, text=»STADNO EQU /1000 DCE NOT OPERABLE «, t00=0x0029, t01=0x00a8}
0x040d6…040fc Head {h00=0x0022, h01=0x0050, text=»STAE1 EQU STANOC+STALIR DUMMY «, t00=0x0029, t01=0x00d2}
0x040fc…04132 Head {h00=0x0032, h01=0x0050, text=»STAERR EQU STAE1+STADNO ERROR IN COMMUNICATION«, t00=0x0029, t01=0x00f8}
0x04132…0413c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x012e}
0x0413c…04162 Head {h00=0x0022, h01=0x0050, text=»STAREQ EQU /8000 REQUEST ERROR«, t00=0x0029, t01=0x0138}
0x04162…0418e Head {h00=0x0028, h01=0x0050, text=»STANOB EQU /0800 NO BUFFERS FOR CCR «, t00=0x0029, t01=0x015e}
0x0418e…041b6 Head {h00=0x0024, h01=0x0050, text=»STAPOL EQU /0100 POLLING STOPPED«, t00=0x0029, t01=0x018a}
0x041b6…041ea Head {h00=0x0030, h01=0x0050, text=»STACOM EQU /0080 COMMUNICATION REESTABLISHED«, t00=0x002a, t01=0x0022}
0x041ea…04212 Head {h00=0x0024, h01=0x0050, text=»STASEQ EQU /0010 SEQUENCE ERROR «, t00=0x002a, t01=0x0056}
0x04212…0423a Head {h00=0x0024, h01=0x0050, text=»STAILL EQU /0008 ILLEGAL LENGTH «, t00=0x002a, t01=0x007e}
0x0423a…0425e Head {h00=0x0020, h01=0x0050, text=»STALER EQU /0002 LINK ERROR «, t00=0x002a, t01=0x00a6}
0x0425e…04268 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00ca}
0x04268…04276 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x00d4}
0x04276…04280 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00e2}
0x04280…042a6 Head {h00=0x0022, h01=0x0050, text=»* WORK STATION STATUS FLAGS«, t00=0x002a, t01=0x00ec}
0x042a6…042b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0112}
0x042b0…042da Head {h00=0x0026, h01=0x0050, text=»WSFERR EQU /01 COMMUNICATION ERROR«, t00=0x002a, t01=0x011c}
0x042da…042e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0146}
0x042e4…042ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0150}
0x042ee…04318 Head {h00=0x0026, h01=0x0050, text=»* MASKS FOR CHANNEL PARAMETERS «, t00=0x002a, t01=0x015a}
0x04318…04322 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0184}
0x04322…0434e Head {h00=0x0028, h01=0x0050, text=»MASKPL EQU /0F PLC NUMBER (0-3 USED)«, t00=0x002a, t01=0x018e}
0x0434e…04384 Head {h00=0x0032, h01=0x0050, text=»MASKWS EQU /3F WORK STATION NUMBER (1-32 USED)«, t00=0x002b, t01=0x002a}
0x04384…043b6 Head {h00=0x002e, h01=0x0050, text=»MASKLC EQU /3F LOGICAL CHANNEL (0-7 USED) «, t00=0x002b, t01=0x0060}
0x043b6…043c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0092}
0x043c0…043ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x009c}
0x043ca…043e4 Head {h00=0x0016, h01=0x0050, text=»* RETURN CODES «, t00=0x002b, t01=0x00a6}
0x043e4…043ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00c0}
0x043ee…0440e Head {h00=0x001c, h01=0x0050, text=»* AT REQUEST RETURN«, t00=0x002b, t01=0x00ca}
0x0440e…04434 Head {h00=0x0022, h01=0x0050, text=»NOTOPR EQU /0001 NOT OPERABLE «, t00=0x002b, t01=0x00ea}
0x04434…04458 Head {h00=0x0020, h01=0x0050, text=»LINERR EQU /0004 LINK ERROR «, t00=0x002b, t01=0x0110}
0x04458…04480 Head {h00=0x0024, h01=0x0050, text=»PLSERR EQU /0001 SOFTWARE ERROR «, t00=0x002b, t01=0x0134}
0x04480…044a0 Head {h00=0x001c, h01=0x0050, text=»* AT RECOVERY ENTRY«, t00=0x002b, t01=0x015c}
0x044a0…044c4 Head {h00=0x0020, h01=0x0050, text=»RETCP EQU /0001 TC POWER UP «, t00=0x002b, t01=0x017c}
0x044c4…044f0 Head {h00=0x0028, h01=0x0050, text=»RESECP EQU /0002 SECONDARY POWER UP «, t00=0x002c, t01=0x0010}
0x044f0…04514 Head {h00=0x0020, h01=0x0050, text=»RELINE EQU /0004 LINK ERROR «, t00=0x002c, t01=0x003c}
0x04514…0451e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0060}
0x0451e…04528 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x006a}
0x04528…04542 Head {h00=0x0016, h01=0x0050, text=»* MISCELLANEOUS«, t00=0x002c, t01=0x0074}
0x04542…0454c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x008e}
0x0454c…0457a Head {h00=0x002a, h01=0x0050, text=»PLCERR EQU /F1 SOP ERROR CODE AT TRAP «, t00=0x002c, t01=0x0098}
0x0457a…045ae Head {h00=0x0030, h01=0x0050, text=»CIDINT EQU 8 OFFSET TO INTERRUPT DESCRIPTOR «, t00=0x002c, t01=0x00c6}
0x045ae…045e4 Head {h00=0x0032, h01=0x0050, text=»MAXFR EQU 4 MAX OUTSTANDING FRAMES ON LEVEL 2 «, t00=0x002c, t01=0x00fa}
0x045e4…04614 Head {h00=0x002c, h01=0x0050, text=»CHABLO EQU /80 FLAG CHANGED BLOCKING =16«, t00=0x002c, t01=0x0130}
0x04614…0461e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0160}
0x0461e…0462c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x016a}
0x0462c…04636 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0178}
0x04636…0464c Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x002c, t01=0x0182}
0x0464c…04662 Head {h00=0x0012, h01=0x0050, text=»* DATA AREAS *«, t00=0x002d, t01=0x0008}
0x04662…04678 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x002d, t01=0x001e}
0x04678…04682 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0034}
0x04682…046a0 Head {h00=0x001a, h01=0x0050, text=»* CWT ADDRESS TABLE«, t00=0x002d, t01=0x003e}
0x046a0…046aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x005c}
0x046aa…046be Head {h00=0x0010, h01=0x0050, text=»CWTPLC EQU *«, t00=0x002d, t01=0x0066}
0x046be…046d2 Head {h00=0x0010, h01=0x0050, text=»TABCWT EQU *«, t00=0x002d, t01=0x007a}
0x046d2…046e8 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=0 «, t00=0x002d, t01=0x008e}
0x046e8…0470e Head {h00=0x0022, h01=0x0050, text=» DATA PL0CWT CWT FOR PLC NR 1 «, t00=0x002d, t01=0x00a4}
0x0470e…04724 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=1 «, t00=0x002d, t01=0x00ca}
0x04724…0474a Head {h00=0x0022, h01=0x0050, text=» DATA PL1CWT CWT FOR PLC NR 2 «, t00=0x002d, t01=0x00e0}
0x0474a…04760 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=2 «, t00=0x002d, t01=0x0106}
0x04760…04786 Head {h00=0x0022, h01=0x0050, text=» DATA PL2CWT CWT FOR PLC NR 3 «, t00=0x002d, t01=0x011c}
0x04786…0479c Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=3 «, t00=0x002d, t01=0x0142}
0x0479c…047c2 Head {h00=0x0022, h01=0x0050, text=» DATA PL3CWT CWT FOR PLC NR 4 «, t00=0x002d, t01=0x0158}
0x047c2…047ce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x017e}
0x047ce…047d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x018a}
0x047d8…047ee (46, 0, 398) Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=4 «, t00=0x002e, t01=0x0004}
0x047ee…04814 Head {h00=0x0022, h01=0x0050, text=» DATA 0 PLC NR 4 NOT CONNECTED«, t00=0x002e, t01=0x001a}
0x04814…0482a Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=3 «, t00=0x002e, t01=0x0040}
0x0482a…04850 Head {h00=0x0022, h01=0x0050, text=» DATA 0 PLC NR 3 NOT CONNECTED«, t00=0x002e, t01=0x0056}
0x04850…04866 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=2 «, t00=0x002e, t01=0x007c}
0x04866…0488c Head {h00=0x0022, h01=0x0050, text=» DATA 0 PLC NR 2 NOT CONNECTED«, t00=0x002e, t01=0x0092}
0x0488c…048a6 Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRL=1 =5 «, t00=0x002e, t01=0x00b8}
0x048a6…048d0 Head {h00=0x0026, h01=0x0050, text=» DATA 0 PLC NR 1 NOT CONNECTED =5 «, t00=0x002e, t01=0x00d2}
0x048d0…048dc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x00fc}
0x048dc…048e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0108}
0x048e6…048fc Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x002e, t01=0x0112}
0x048fc…04928 Head {h00=0x0028, h01=0x0050, text=» DATA PR1CWT CWT FOR PLC NR. 5, REM.«, t00=0x002e, t01=0x0128}
0x04928…0493e Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x002e, t01=0x0154}
0x0493e…0496a Head {h00=0x0028, h01=0x0050, text=» DATA PR2CWT CWT FOR PLC NR. 6, REM.«, t00=0x002e, t01=0x016a}
0x0496a…04980 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=2 «, t00=0x002f, t01=0x0008}
0x04980…049ac Head {h00=0x0028, h01=0x0050, text=» DATA PR3CWT CWT FOR PLC NR. 7, REM.«, t00=0x002f, t01=0x001e}
0x049ac…049c2 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=3 «, t00=0x002f, t01=0x004a}
0x049c2…049ee Head {h00=0x0028, h01=0x0050, text=» DATA PR4CWT CWT FOR PLC NR. 8, REM.«, t00=0x002f, t01=0x0060}
0x049ee…049fa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x008c}
0x049fa…04a04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0098}
0x04a04…04a1a Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=4 «, t00=0x002f, t01=0x00a2}
0x04a1a…04a40 Head {h00=0x0022, h01=0x0050, text=» DATA 0 PLC NR 8 NOT CONNECTED«, t00=0x002f, t01=0x00b8}
0x04a40…04a56 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=3 «, t00=0x002f, t01=0x00de}
0x04a56…04a7c Head {h00=0x0022, h01=0x0050, text=» DATA 0 PLC NR 7 NOT CONNECTED«, t00=0x002f, t01=0x00f4}
0x04a7c…04a92 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=2 «, t00=0x002f, t01=0x011a}
0x04a92…04ab8 Head {h00=0x0022, h01=0x0050, text=» DATA 0 PLC NR 6 NOT CONNECTED«, t00=0x002f, t01=0x0130}
0x04ab8…04ace Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x002f, t01=0x0156}
0x04ace…04af4 Head {h00=0x0022, h01=0x0050, text=» DATA 0 PLC NR 5 NOT CONNECTED«, t00=0x002f, t01=0x016c}
0x04af4…04b00 (48, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0004}
0x04b00…04b0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0010}
0x04b0a…04b18 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x001a}
0x04b18…04b22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0028}
0x04b22…04b2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0032}
0x04b2c…04b40 Head {h00=0x0010, h01=0x0050, text=»OPARR1 EQU *«, t00=0x0030, t01=0x003c}
0x04b40…04b5a Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRR=0 U =5«, t00=0x0030, t01=0x0050}
0x04b5a…04b76 Head {h00=0x0018, h01=0x0050, text=» DATA OPNR10 LINE 0 «, t00=0x0030, t01=0x006a}
0x04b76…04b92 Head {h00=0x0018, h01=0x0050, text=» DATA OPNR11 LINE 1 «, t00=0x0030, t01=0x0086}
0x04b92…04bae Head {h00=0x0018, h01=0x0050, text=» DATA OPNR12 LINE 2 «, t00=0x0030, t01=0x00a2}
0x04bae…04bca Head {h00=0x0018, h01=0x0050, text=» DATA OPNR13 LINE 3 «, t00=0x0030, t01=0x00be}
0x04bca…04bd6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x00da}
0x04bd6…04bea Head {h00=0x0010, h01=0x0050, text=»OPARR2 EQU *«, t00=0x0030, t01=0x00e6}
0x04bea…04c04 Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRR=0 U =5«, t00=0x0030, t01=0x00fa}
0x04c04…04c1e Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRR=1 U =5«, t00=0x0030, t01=0x0114}
0x04c1e…04c3a Head {h00=0x0018, h01=0x0050, text=» DATA OPNR20 LINE 0 «, t00=0x0030, t01=0x012e}
0x04c3a…04c56 Head {h00=0x0018, h01=0x0050, text=» DATA OPNR21 LINE 1 «, t00=0x0030, t01=0x014a}
0x04c56…04c72 Head {h00=0x0018, h01=0x0050, text=» DATA OPNR22 LINE 2 «, t00=0x0030, t01=0x0166}
0x04c72…04c8e Head {h00=0x0018, h01=0x0050, text=» DATA OPNR23 LINE 3 «, t00=0x0030, t01=0x0182}
0x04c8e…04c9a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x000e}
0x04c9a…04cae Head {h00=0x0010, h01=0x0050, text=»OPARR3 EQU *«, t00=0x0031, t01=0x001a}
0x04cae…04cc8 Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRR=0 U =5«, t00=0x0031, t01=0x002e}
0x04cc8…04ce2 Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRR=1 U =5«, t00=0x0031, t01=0x0048}
0x04ce2…04cfc Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRR=2 U =5«, t00=0x0031, t01=0x0062}
0x04cfc…04d18 Head {h00=0x0018, h01=0x0050, text=» DATA OPNR30 LINE 0 «, t00=0x0031, t01=0x007c}
0x04d18…04d34 Head {h00=0x0018, h01=0x0050, text=» DATA OPNR31 LINE 1 «, t00=0x0031, t01=0x0098}
0x04d34…04d50 Head {h00=0x0018, h01=0x0050, text=» DATA OPNR32 LINE 2 «, t00=0x0031, t01=0x00b4}
0x04d50…04d6c Head {h00=0x0018, h01=0x0050, text=» DATA OPNR33 LINE 3 «, t00=0x0031, t01=0x00d0}
0x04d6c…04d78 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x00ec}
0x04d78…04d8c Head {h00=0x0010, h01=0x0050, text=»OPARR4 EQU *«, t00=0x0031, t01=0x00f8}
0x04d8c…04da6 Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRR=0 U =5«, t00=0x0031, t01=0x010c}
0x04da6…04dc0 Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRR=1 U =5«, t00=0x0031, t01=0x0126}
0x04dc0…04dda Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRR=2 U =5«, t00=0x0031, t01=0x0140}
0x04dda…04df4 Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRR=3 U =5«, t00=0x0031, t01=0x015a}
0x04df4…04e10 Head {h00=0x0018, h01=0x0050, text=» DATA OPNR40 LINE 0 «, t00=0x0031, t01=0x0174}
0x04e10…04e2c Head {h00=0x0018, h01=0x0050, text=» DATA OPNR41 LINE 1 «, t00=0x0031, t01=0x0190}
0x04e2c…04e48 Head {h00=0x0018, h01=0x0050, text=» DATA OPNR42 LINE 2 «, t00=0x0032, t01=0x001c}
0x04e48…04e64 Head {h00=0x0018, h01=0x0050, text=» DATA OPNR43 LINE 3 «, t00=0x0032, t01=0x0038}
0x04e64…04e70 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x0054}
0x04e70…04e7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0060}
0x04e7a…04e94 Head {h00=0x0016, h01=0x0050, text=»OPARL1 EQU * U =5 «, t00=0x0032, t01=0x006a}
0x04e94…04eb8 Head {h00=0x0020, h01=0x0050, text=» DATA OPNL10 LOCAL PLC 1 =5 «, t00=0x0032, t01=0x0084}
0x04eb8…04ed2 Head {h00=0x0016, h01=0x0050, text=»OPARL2 EQU * U =5 «, t00=0x0032, t01=0x00a8}
0x04ed2…04ef6 Head {h00=0x0020, h01=0x0050, text=» DATA OPNL20 LOCAL PLC 2 =5 «, t00=0x0032, t01=0x00c2}
0x04ef6…04f10 Head {h00=0x0016, h01=0x0050, text=»OPARL3 EQU * U =5 «, t00=0x0032, t01=0x00e6}
0x04f10…04f34 Head {h00=0x0020, h01=0x0050, text=» DATA OPNL30 LOCAL PLC 3 =5 «, t00=0x0032, t01=0x0100}
0x04f34…04f4e Head {h00=0x0016, h01=0x0050, text=»OPARL4 EQU * U =5 «, t00=0x0032, t01=0x0124}
0x04f4e…04f72 Head {h00=0x0020, h01=0x0050, text=» DATA OPNL40 LOCAL PLC 4 =5 «, t00=0x0032, t01=0x013e}
0x04f72…04f80 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x0162}
0x04f80…04f8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0170}
0x04f8a…04fb4 Head {h00=0x0026, h01=0x0050, text=»* OPEN LINE PARAMETER AREAS, LOCAL«, t00=0x0032, t01=0x017a}
0x04fb4…04fbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0014}
0x04fbe…04fda Head {h00=0x0018, h01=0x0050, text=»* STANDARD AREAS :«, t00=0x0033, t01=0x001e}
0x04fda…04ff4 Head {h00=0x0016, h01=0x0050, text=»* PRIMARY STATION «, t00=0x0033, t01=0x003a}
0x04ff4…0500a Head {h00=0x0012, h01=0x0050, text=»* FULL DUPLEX «, t00=0x0033, t01=0x0054}
0x0500a…05022 Head {h00=0x0014, h01=0x0050, text=»* 96000 BITS/SEC«, t00=0x0033, t01=0x006a}
0x05022…0503c Head {h00=0x0016, h01=0x0050, text=»* NO NRZI ENCODING«, t00=0x0033, t01=0x0082}
0x0503c…05058 Head {h00=0x0018, h01=0x0050, text=»* POLLING 24HZ U =8 «, t00=0x0033, t01=0x009c}
0x05058…05074 Head {h00=0x0018, h01=0x0050, text=»* 5 RETRANSMISSIONS «, t00=0x0033, t01=0x00b8}
0x05074…0508e Head {h00=0x0016, h01=0x0050, text=»* 3 MIN. TIME OUT «, t00=0x0033, t01=0x00d4}
0x0508e…05098 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00ee}
0x05098…050a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00f8}
0x050a2…050ca Head {h00=0x0024, h01=0x0050, text=»OPNL40 EQU * LOCAL PLC 4, LINE 0«, t00=0x0033, t01=0x0102}
0x050ca…050e0 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=0 «, t00=0x0033, t01=0x012a}
0x050e0…050f6 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=1 «, t00=0x0033, t01=0x0140}
0x050f6…0510c Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=2 «, t00=0x0033, t01=0x0156}
0x0510c…05122 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=3 «, t00=0x0033, t01=0x016c}
0x05122…05158 Head {h00=0x0032, h01=0x0050, text=» DATA /0101,/A000,POLRTL,TIMACT,/0120,0 =8,=11«, t00=0x0033, t01=0x0182}
0x05158…05164 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x0028}
0x05164…0518c Head {h00=0x0024, h01=0x0050, text=»OPNL30 EQU * LOCAL PLC 3, LINE 0«, t00=0x0034, t01=0x0034}
0x0518c…051a2 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=0 «, t00=0x0034, t01=0x005c}
0x051a2…051b8 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=1 «, t00=0x0034, t01=0x0072}
0x051b8…051ce Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=2 «, t00=0x0034, t01=0x0088}
0x051ce…05204 Head {h00=0x0032, h01=0x0050, text=» DATA /0101,/A000,POLRTL,TIMACT,/0120,0 =8,=11«, t00=0x0034, t01=0x009e}
0x05204…05210 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x00d4}
0x05210…05238 Head {h00=0x0024, h01=0x0050, text=»OPNL20 EQU * LOCAL PLC 2, LINE 0«, t00=0x0034, t01=0x00e0}
0x05238…0524e Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=0 «, t00=0x0034, t01=0x0108}
0x0524e…05264 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=1 «, t00=0x0034, t01=0x011e}
0x05264…0529a Head {h00=0x0032, h01=0x0050, text=» DATA /0101,/A000,POLRTL,TIMACT,/0120,0 =8,=11«, t00=0x0034, t01=0x0134}
0x0529a…052a6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x016a}
0x052a6…052ce Head {h00=0x0024, h01=0x0050, text=»OPNL10 EQU * LOCAL PLC 1, LINE 0«, t00=0x0034, t01=0x0176}
0x052ce…052e4 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=0 «, t00=0x0035, t01=0x000e}
0x052e4…0531a Head {h00=0x0032, h01=0x0050, text=» DATA /0101,/A000,POLRTL,TIMACT,/0120,0 =8,=11«, t00=0x0035, t01=0x0024}
0x0531a…05326 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x005a}
0x05326…05330 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0066}
0x05330…0535c Head {h00=0x0028, h01=0x0050, text=»* END OF LOCAL LINE PARAMETER AREAS «, t00=0x0035, t01=0x0070}
0x0535c…05366 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x009c}
0x05366…05374 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x00a6}
0x05374…0537e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00b4}
0x0537e…053aa Head {h00=0x0028, h01=0x0050, text=»* OPEN LINE PARAMETER AREAS, REMOTE «, t00=0x0035, t01=0x00be}
0x053aa…053b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00ea}
0x053b4…053d0 Head {h00=0x0018, h01=0x0050, text=»* STANDARD AREAS :«, t00=0x0035, t01=0x00f4}
0x053d0…053ea Head {h00=0x0016, h01=0x0050, text=»* PRIMARY STATION «, t00=0x0035, t01=0x0110}
0x053ea…05400 Head {h00=0x0012, h01=0x0050, text=»* FULL DUPLEX «, t00=0x0035, t01=0x012a}
0x05400…05418 Head {h00=0x0014, h01=0x0050, text=»* 2400 BITS/SEC «, t00=0x0035, t01=0x0140}
0x05418…05432 Head {h00=0x0016, h01=0x0050, text=»* NO NRZI ENCODING«, t00=0x0035, t01=0x0158}
0x05432…05448 Head {h00=0x0012, h01=0x0050, text=»* POLLING 13HZ«, t00=0x0035, t01=0x0172}
0x05448…05464 Head {h00=0x0018, h01=0x0050, text=»* 5 RETRANSMISSIONS «, t00=0x0035, t01=0x0188}
0x05464…0547e Head {h00=0x0016, h01=0x0050, text=»* 5 MIN. TIME OUT «, t00=0x0036, t01=0x0014}
0x0547e…05488 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x002e}
0x05488…05492 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0038}
0x05492…054a8 Head {h00=0x0012, h01=0x0050, text=»* REMOTE PLC 4«, t00=0x0036, t01=0x0042}
0x054a8…054c4 Head {h00=0x0018, h01=0x0050, text=»OPNR40 EQU * LINE 0 «, t00=0x0036, t01=0x0058}
0x054c4…054da Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x0036, t01=0x0074}
0x054da…054f0 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x0036, t01=0x008a}
0x054f0…05506 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=2 «, t00=0x0036, t01=0x00a0}
0x05506…0551c Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=3 «, t00=0x0036, t01=0x00b6}
0x0551c…05550 Head {h00=0x0030, h01=0x0050, text=» DATA /0103,/0400,POLRTR,TIMACT,/0108,0 =11 «, t00=0x0036, t01=0x00cc}
0x05550…0555c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x0100}
0x0555c…05578 Head {h00=0x0018, h01=0x0050, text=»OPNR41 EQU * LINE 1 «, t00=0x0036, t01=0x010c}
0x05578…0558e Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x0036, t01=0x0128}
0x0558e…055a4 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x0036, t01=0x013e}
0x055a4…055ba Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=2 «, t00=0x0036, t01=0x0154}
0x055ba…055d0 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=3 «, t00=0x0036, t01=0x016a}
0x055d0…05604 Head {h00=0x0030, h01=0x0050, text=» DATA /0103,/0400,POLRTR,TIMACT,/0908,0 =11 «, t00=0x0036, t01=0x0180}
0x05604…05610 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x0024}
0x05610…0562c Head {h00=0x0018, h01=0x0050, text=»OPNR42 EQU * LINE 2 «, t00=0x0037, t01=0x0030}
0x0562c…05642 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x0037, t01=0x004c}
0x05642…05658 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x0037, t01=0x0062}
0x05658…0566e Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=2 «, t00=0x0037, t01=0x0078}
0x0566e…05684 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=3 «, t00=0x0037, t01=0x008e}
0x05684…056bc Head {h00=0x0034, h01=0x0050, text=» DATA /0103,/0400,POLRTR,TIMACT,/1108,0 =10,=11 «, t00=0x0037, t01=0x00a4}
0x056bc…056c8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x00dc}
0x056c8…056e4 Head {h00=0x0018, h01=0x0050, text=»OPNR43 EQU * LINE 3 «, t00=0x0037, t01=0x00e8}
0x056e4…056fa Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x0037, t01=0x0104}
0x056fa…05710 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x0037, t01=0x011a}
0x05710…05726 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=2 «, t00=0x0037, t01=0x0130}
0x05726…0573c Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=3 «, t00=0x0037, t01=0x0146}
0x0573c…05774 Head {h00=0x0034, h01=0x0050, text=» DATA /0103,/0400,POLRTR,TIMACT,/1908,0 =10,=11 «, t00=0x0037, t01=0x015c}
0x05774…05780 (56, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x0004}
0x05780…05796 Head {h00=0x0012, h01=0x0050, text=»* REMOTE PLC 3«, t00=0x0038, t01=0x0010}
0x05796…057b2 Head {h00=0x0018, h01=0x0050, text=»OPNR30 EQU * LINE 0 «, t00=0x0038, t01=0x0026}
0x057b2…057c8 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x0038, t01=0x0042}
0x057c8…057de Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x0038, t01=0x0058}
0x057de…057f4 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=2 «, t00=0x0038, t01=0x006e}
0x057f4…05828 Head {h00=0x0030, h01=0x0050, text=» DATA /0103,/0400,POLRTR,TIMACT,/0108,0 =11 «, t00=0x0038, t01=0x0084}
0x05828…05834 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x00b8}
0x05834…05850 Head {h00=0x0018, h01=0x0050, text=»OPNR31 EQU * LINE 1 «, t00=0x0038, t01=0x00c4}
0x05850…05866 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x0038, t01=0x00e0}
0x05866…0587c Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x0038, t01=0x00f6}
0x0587c…05892 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=2 «, t00=0x0038, t01=0x010c}
0x05892…058c6 Head {h00=0x0030, h01=0x0050, text=» DATA /0103,/0400,POLRTR,TIMACT,/0908,0 =11 «, t00=0x0038, t01=0x0122}
0x058c6…058d2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x0156}
0x058d2…058ee Head {h00=0x0018, h01=0x0050, text=»OPNR32 EQU * LINE 2 «, t00=0x0038, t01=0x0162}
0x058ee…05904 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x0038, t01=0x017e}
0x05904…0591a (57, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x0039, t01=0x0004}
0x0591a…05930 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=2 «, t00=0x0039, t01=0x001a}
0x05930…05968 Head {h00=0x0034, h01=0x0050, text=» DATA /0103,/0400,POLRTR,TIMACT,/1108,0 =10,=11 «, t00=0x0039, t01=0x0030}
0x05968…05974 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x0068}
0x05974…05990 Head {h00=0x0018, h01=0x0050, text=»OPNR33 EQU * LINE 3 «, t00=0x0039, t01=0x0074}
0x05990…059a6 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x0039, t01=0x0090}
0x059a6…059bc Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x0039, t01=0x00a6}
0x059bc…059d2 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=2 «, t00=0x0039, t01=0x00bc}
0x059d2…05a0a Head {h00=0x0034, h01=0x0050, text=» DATA /0103,/0400,POLRTR,TIMACT,/1908,0 =10,=11 «, t00=0x0039, t01=0x00d2}
0x05a0a…05a16 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x010a}
0x05a16…05a20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0116}
0x05a20…05a36 Head {h00=0x0012, h01=0x0050, text=»* REMOTE PLC 2«, t00=0x0039, t01=0x0120}
0x05a36…05a52 Head {h00=0x0018, h01=0x0050, text=»OPNR20 EQU * LINE 0 «, t00=0x0039, t01=0x0136}
0x05a52…05a68 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x0039, t01=0x0152}
0x05a68…05a7e Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x0039, t01=0x0168}
0x05a7e…05ab2 Head {h00=0x0030, h01=0x0050, text=» DATA /0103,/0400,POLRTR,TIMACT,/0108,0 =11 «, t00=0x0039, t01=0x017e}
0x05ab2…05abe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x0022}
0x05abe…05ada Head {h00=0x0018, h01=0x0050, text=»OPNR21 EQU * LINE 1 «, t00=0x003a, t01=0x002e}
0x05ada…05af0 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x003a, t01=0x004a}
0x05af0…05b06 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x003a, t01=0x0060}
0x05b06…05b3a Head {h00=0x0030, h01=0x0050, text=» DATA /0103,/0400,POLRTR,TIMACT,/0908,0 =11 «, t00=0x003a, t01=0x0076}
0x05b3a…05b46 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x00aa}
0x05b46…05b62 Head {h00=0x0018, h01=0x0050, text=»OPNR22 EQU * LINE 2 «, t00=0x003a, t01=0x00b6}
0x05b62…05b78 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x003a, t01=0x00d2}
0x05b78…05b8e Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x003a, t01=0x00e8}
0x05b8e…05bc6 Head {h00=0x0034, h01=0x0050, text=» DATA /0103,/0400,POLRTR,TIMACT,/1108,0 =10,=11 «, t00=0x003a, t01=0x00fe}
0x05bc6…05bd2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x0136}
0x05bd2…05bee Head {h00=0x0018, h01=0x0050, text=»OPNR23 EQU * LINE 3 «, t00=0x003a, t01=0x0142}
0x05bee…05c04 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x003a, t01=0x015e}
0x05c04…05c1a Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x003a, t01=0x0174}
0x05c1a…05c52 Head {h00=0x0034, h01=0x0050, text=» DATA /0103,/0400,POLRTR,TIMACT,/1908,0 =10,=11 «, t00=0x003a, t01=0x018a}
0x05c52…05c5e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x0032}
0x05c5e…05c68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x003e}
0x05c68…05c7e Head {h00=0x0012, h01=0x0050, text=»* REMOTE PLC 1«, t00=0x003b, t01=0x0048}
0x05c7e…05c9a Head {h00=0x0018, h01=0x0050, text=»OPNR10 EQU * LINE 0 «, t00=0x003b, t01=0x005e}
0x05c9a…05cb0 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x003b, t01=0x007a}
0x05cb0…05ce4 Head {h00=0x0030, h01=0x0050, text=» DATA /0103,/0400,POLRTR,TIMACT,/0108,0 =11 «, t00=0x003b, t01=0x0090}
0x05ce4…05cf0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x00c4}
0x05cf0…05d0c Head {h00=0x0018, h01=0x0050, text=»OPNR11 EQU * LINE 1 «, t00=0x003b, t01=0x00d0}
0x05d0c…05d22 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x003b, t01=0x00ec}
0x05d22…05d56 Head {h00=0x0030, h01=0x0050, text=» DATA /0103,/0400,POLRTR,TIMACT,/0908,0 =11 «, t00=0x003b, t01=0x0102}
0x05d56…05d62 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x0136}
0x05d62…05d7e Head {h00=0x0018, h01=0x0050, text=»OPNR12 EQU * LINE 2 «, t00=0x003b, t01=0x0142}
0x05d7e…05d94 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x003b, t01=0x015e}
0x05d94…05dcc Head {h00=0x0034, h01=0x0050, text=» DATA /0103,/0400,POLRTR,TIMACT,/1108,0 =10,=11 «, t00=0x003b, t01=0x0174}
0x05dcc…05dd8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x001c}
0x05dd8…05df4 Head {h00=0x0018, h01=0x0050, text=»OPNR13 EQU * LINE 3 «, t00=0x003c, t01=0x0028}
0x05df4…05e0a Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x003c, t01=0x0044}
0x05e0a…05e42 Head {h00=0x0034, h01=0x0050, text=» DATA /0103,/0400,POLRTR,TIMACT,/1908,0 =10,=11 «, t00=0x003c, t01=0x005a}
0x05e42…05e4e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x0092}
0x05e4e…05e7a Head {h00=0x0028, h01=0x0050, text=»* END OF REMOTE LINE PARAMETER AREAS«, t00=0x003c, t01=0x009e}
0x05e7a…05e84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00ca}
0x05e84…05e8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00d4}
0x05e8e…05ebe Head {h00=0x002c, h01=0x0050, text=»PLCPFP DATA 0 PLC LOCAL POWER FAIL FLAG «, t00=0x003c, t01=0x00de}
0x05ebe…05ec8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x010e}
0x05ec8…05ef4 Head {h00=0x0028, h01=0x0050, text=» IFF UTTEST=0 TEST VERSION OF DRIVER«, t00=0x003c, t01=0x0118}
0x05ef4…05efe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0144}
0x05efe…05f0c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x014e}
0x05f0c…05f16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x015c}
0x05f16…05f42 Head {h00=0x0028, h01=0x0050, text=»UTTST DATA UTTEST 1 = TRAP NOT USED «, t00=0x003c, t01=0x0166}
0x05f42…05f4c (61, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0004}
0x05f4c…05f56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x000e}
0x05f56…05f7c Head {h00=0x0022, h01=0x0050, text=»* QUEUE STATISTICS COUNTERS«, t00=0x003d, t01=0x0018}
0x05f7c…05fa6 Head {h00=0x0026, h01=0x0050, text=»* EACH COUNTER HAS ONE WORD / PLC «, t00=0x003d, t01=0x003e}
0x05fa6…05fb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0068}
0x05fb0…05fc4 Head {h00=0x0010, h01=0x0050, text=»STATAR EQU *«, t00=0x003d, t01=0x0072}
0x05fc4…05fe6 Head {h00=0x001e, h01=0x0050, text=»WIQSTA RES 8 WINDOW QUEUE «, t00=0x003d, t01=0x0086}
0x05fe6…0600e Head {h00=0x0024, h01=0x0050, text=»SBQSTA RES 8 SHORT BUFFERS QUEUE«, t00=0x003d, t01=0x00a8}
0x0600e…06036 Head {h00=0x0024, h01=0x0050, text=»LBQSTA RES 8 LONG BUFFERS QUEUE «, t00=0x003d, t01=0x00d0}
0x06036…06054 Head {h00=0x001a, h01=0x0050, text=»CCQSTA RES 8 CCA QUEUE«, t00=0x003d, t01=0x00f8}
0x06054…0607c Head {h00=0x0024, h01=0x0050, text=»STATLN EQU *-STATAR TABLE LENGTH«, t00=0x003d, t01=0x0116}
0x0607c…06086 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x013e}
0x06086…06092 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x0148}
0x06092…060a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x0154}
0x060a0…060aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0162}
0x060aa…060b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x016c}
0x060b4…060d2 Head {h00=0x001a, h01=0x0050, text=»* CWT DISPLACEMENTS «, t00=0x003d, t01=0x0176}
0x060d2…060dc (62, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0004}
0x060dc…060fe Head {h00=0x001e, h01=0x0050, text=»CWTOPR EQU /00 CU OPERABLE«, t00=0x003e, t01=0x000e}
0x060fe…0611e Head {h00=0x001c, h01=0x0050, text=»CWTCCB EQU /02 CCA BUSY «, t00=0x003e, t01=0x0030}
0x0611e…0614a Head {h00=0x0028, h01=0x0050, text=»CWTGR EQU /04 GENERAL READ ALLOWED «, t00=0x003e, t01=0x0050}
0x0614a…06170 Head {h00=0x0022, h01=0x0050, text=»CWTPNR EQU /06 CU NUMBER (0-7)«, t00=0x003e, t01=0x007c}
0x06170…06192 Head {h00=0x001e, h01=0x0050, text=»CWTABW EQU /08 WS TO ABORT«, t00=0x003e, t01=0x00a2}
0x06192…061be Head {h00=0x0028, h01=0x0050, text=»CWTPLS EQU /0A LATEST PLC RCA STATUS«, t00=0x003e, t01=0x00c4}
0x061be…061e6 Head {h00=0x0024, h01=0x0050, text=»CWTLNO EQU /0C LINE NO INDICATOR«, t00=0x003e, t01=0x00f0}
0x061e6…06216 Head {h00=0x002c, h01=0x0050, text=»CWTPAR EQU /0E INDEX TO PARAMETER AREA «, t00=0x003e, t01=0x0118}
0x06216…06250 Head {h00=0x0036, h01=0x0050, text=»CWTOPP EQU /10 OPEN LINE PARAMETER AREA ADDRESS =2«, t00=0x003e, t01=0x0148}
0x06250…06278 Head {h00=0x0024, h01=0x0050, text=»CWTINT EQU /12 WS TABLE ADDRESS «, t00=0x003e, t01=0x0182}
0x06278…062a4 Head {h00=0x0028, h01=0x0050, text=»CWTBUF EQU /14 INP. BUFFER ADDRESS «, t00=0x003f, t01=0x001a}
0x062a4…062da Head {h00=0x0032, h01=0x0050, text=»CWTSBQ EQU /16 QUEUE FOR SHORT OUTP. BUFFERS «, t00=0x003f, t01=0x0046}
0x062da…0630e Head {h00=0x0030, h01=0x0050, text=»CWTLBQ EQU /18 QUEUE FOR LONG OUTP. BUFFERS «, t00=0x003f, t01=0x007c}
0x0630e…06338 Head {h00=0x0026, h01=0x0050, text=»CWTCCQ EQU /1A QUEUE FOR CCA FREE «, t00=0x003f, t01=0x00b0}
0x06338…0636e Head {h00=0x0032, h01=0x0050, text=»CWTMBQ EQU /1C QUEUE OF ALLOCATED MON. BLOCKS «, t00=0x003f, t01=0x00da}
0x0636e…06394 Head {h00=0x0022, h01=0x0050, text=»CWTTPR EQU /1E TIMER POINTER «, t00=0x003f, t01=0x0110}
0x06394…063bc Head {h00=0x0024, h01=0x0050, text=»CWTCIO EQU /20 CIO START INSTR. «, t00=0x003f, t01=0x0136}
0x063bc…063de Head {h00=0x001e, h01=0x0050, text=»CWTST3 EQU /22 SST INSTR. «, t00=0x003f, t01=0x015e}
0x063de…06410 Head {h00=0x002e, h01=0x0050, text=»CWTCSD EQU /24 CTRL UNIT START DESCRIPTOR «, t00=0x003f, t01=0x0180}
0x06410…06440 Head {h00=0x002c, h01=0x0050, text=»CWTCID EQU /2A CTRL UNIT INTERF. DESCR. «, t00=0x0040, t01=0x0022}
0x06440…0646a Head {h00=0x0026, h01=0x0050, text=»CWTCCA EQU /34 COMMAND CTRL AREA «, t00=0x0040, t01=0x0052}
0x0646a…06494 Head {h00=0x0026, h01=0x0050, text=»CWTRCA EQU /44 RESPONSE CTRL AREA «, t00=0x0040, t01=0x007c}
0x06494…064c8 Head {h00=0x0030, h01=0x0050, text=»CWTPBS EQU /54 POOLBL. SHORT OUTP. BUFFERS «, t00=0x0040, t01=0x00a6}
0x064c8…064fc Head {h00=0x0030, h01=0x0050, text=»CWTPBL EQU /5E POOLBL. LONG OUTP. BUFFERS =2«, t00=0x0040, t01=0x00da}
0x064fc…06530 Head {h00=0x0030, h01=0x0050, text=»CWTPBG EQU /68 POOLBL. GENERAL READ BUFFERS «, t00=0x0040, t01=0x010e}
0x06530…06552 Head {h00=0x001e, h01=0x0050, text=»CWTWSS EQU /72 WS STATUS «, t00=0x0040, t01=0x0142}
0x06552…0658a Head {h00=0x0034, h01=0x0050, text=»CWTSOB EQU MAXWS+MAXWS+/74 SH. OUTP. BUFFERS =4 «, t00=0x0040, t01=0x0164}
0x0658a…065b0 Head {h00=0x0022, h01=0x0050, text=»CWTLB1 EQU CWTSOB+SOBUFS U =7 «, t00=0x0041, t01=0x000c}
0x065b0…065e6 Head {h00=0x0032, h01=0x0050, text=»CWTLOB EQU CWTLB1+SOBUFS LONG OUTP. BUFFERS =7«, t00=0x0041, t01=0x0032}
0x065e6…0660c Head {h00=0x0022, h01=0x0050, text=»CWTGR1 EQU CWTLOB+LOBUFS U =7 «, t00=0x0041, t01=0x0068}
0x0660c…06642 Head {h00=0x0032, h01=0x0050, text=»CWTGRB EQU CWTGR1+LOBUFS GEN. READ BUFFERS =7 «, t00=0x0041, t01=0x008e}
0x06642…06650 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0041, t01=0x00c4}
0x06650…0665a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00d2}
0x0665a…06672 Head {h00=0x0014, h01=0x0050, text=» IFF PLCNRL=0 «, t00=0x0041, t01=0x00dc}
0x06672…06694 Head {h00=0x001e, h01=0x0050, text=»* CWT FOR PLC NUMBER 1 «, t00=0x0041, t01=0x00f4}
0x06694…0669e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0116}
0x0669e…066b2 Head {h00=0x0010, h01=0x0050, text=»PL0CWT EQU *«, t00=0x0041, t01=0x0120}
0x066b2…066bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0134}
0x066bc…066d0 Head {h00=0x0010, h01=0x0050, text=»* FLAGS«, t00=0x0041, t01=0x013e}
0x066d0…066f0 Head {h00=0x001c, h01=0x0050, text=» RES 1 PLC OPERABLE FLAG«, t00=0x0041, t01=0x0152}
0x066f0…06716 Head {h00=0x0022, h01=0x0050, text=» DATA 0 CCA BUSY FLAG (0=FREE)«, t00=0x0041, t01=0x0172}
0x06716…06746 Head {h00=0x002c, h01=0x0050, text=» DATA 1 GENERAL READ ALLOWED (0=ALLOWED)«, t00=0x0042, t01=0x0008}
0x06746…06750 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0038}
0x06750…0676a Head {h00=0x0016, h01=0x0050, text=»* DATA WORDS «, t00=0x0042, t01=0x0042}
0x0676a…0678a Head {h00=0x001c, h01=0x0050, text=» DATA 0 PLC NUMBER (0-3)«, t00=0x0042, t01=0x005c}
0x0678a…067bc Head {h00=0x002e, h01=0x0050, text=» DATA 0 WORK STATION TO ABORT (0=NO ABORT)«, t00=0x0042, t01=0x007c}
0x067bc…067e2 Head {h00=0x0022, h01=0x0050, text=» DATA 0 LATEST PLC RCA STATUS «, t00=0x0042, t01=0x00ae}
0x067e2…06804 Head {h00=0x001e, h01=0x0050, text=» DATA 0 LINE NO INDICATOR «, t00=0x0042, t01=0x00d4}
0x06804…06828 Head {h00=0x0020, h01=0x0050, text=» DATA 0 INDEX PARAMETER AREA«, t00=0x0042, t01=0x00f6}
0x06828…06832 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x011a}
0x06832…0685a Head {h00=0x0024, h01=0x0050, text=»* POINTERS AND QUEUE HEADS «, t00=0x0042, t01=0x0124}
0x0685a…0688c Head {h00=0x002e, h01=0x0050, text=» DATA OPARL1 OPEN LINE PARAMETER AREA ADDR«, t00=0x0042, t01=0x014c}
0x0688c…068bc Head {h00=0x002c, h01=0x0050, text=» DATA INTPL1 WORK STATION TABLE ADDRESS «, t00=0x0042, t01=0x017e}
0x068bc…068e0 Head {h00=0x0020, h01=0x0050, text=» DATA 0 INPUT BUFFER ADDRESS«, t00=0x0043, t01=0x001e}
0x068e0…0690e Head {h00=0x002a, h01=0x0050, text=» DATA 0 QUEUE FOR SHORT OUTPUT BUFFER «, t00=0x0043, t01=0x0042}
0x0690e…0693a Head {h00=0x0028, h01=0x0050, text=» DATA 0 QUEUE FOR LONG OUTPUT BUFFER«, t00=0x0043, t01=0x0070}
0x0693a…0695c Head {h00=0x001e, h01=0x0050, text=» DATA 0 QUEUE FOR CCA FREE«, t00=0x0043, t01=0x009c}
0x0695c…0698e Head {h00=0x002e, h01=0x0050, text=» DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS «, t00=0x0043, t01=0x00be}
0x0698e…069be Head {h00=0x002c, h01=0x0050, text=» DATA 0 TIMER POINTER FOR RESTART DELAY «, t00=0x0043, t01=0x00f0}
0x069be…069c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0120}
0x069c8…069e4 Head {h00=0x0018, h01=0x0050, text=»* INSTRUCTIONS «, t00=0x0043, t01=0x012a}
0x069e4…06a10 Head {h00=0x0028, h01=0x0050, text=» CIO A3,1,PLCDA0 START I/O OPERATION«, t00=0x0043, t01=0x0146}
0x06a10…06a46 Head {h00=0x0032, h01=0x0050, text=» SST A3,PLCDA0 RELEASE RCA AND RESET INTERRUPT«, t00=0x0043, t01=0x0172}
0x06a46…06a50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0018}
0x06a50…06a70 Head {h00=0x001c, h01=0x0050, text=»* PLC CONTROL AREAS«, t00=0x0044, t01=0x0022}
0x06a70…06aa2 Head {h00=0x002e, h01=0x0050, text=»* CONTROL UNIT START DESCRIPTOR (3 WORDS) «, t00=0x0044, t01=0x0042}
0x06aa2…06ac6 Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x0044, t01=0x0074}
0x06ac6…06aee Head {h00=0x0024, h01=0x0050, text=» DATA PL0CWT+CWTCID CID ADDRESS «, t00=0x0044, t01=0x0098}
0x06aee…06b12 Head {h00=0x0020, h01=0x0050, text=» DATA INTLV0 INTERRUPT LEVEL«, t00=0x0044, t01=0x00c0}
0x06b12…06b48 Head {h00=0x0032, h01=0x0050, text=»* CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) «, t00=0x0044, t01=0x00e4}
0x06b48…06b6c Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x0044, t01=0x011a}
0x06b6c…06b94 Head {h00=0x0024, h01=0x0050, text=» DATA PL0CWT+CWTCCA CCA ADDRESS «, t00=0x0044, t01=0x013e}
0x06b94…06bb8 Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x0044, t01=0x0166}
0x06bb8…06be0 Head {h00=0x0024, h01=0x0050, text=» DATA PL0CWT+CWTRCA RCA ADDRESS «, t00=0x0044, t01=0x018a}
0x06be0…06c08 Head {h00=0x0024, h01=0x0050, text=» DATA 0 INTERRUPT SPECIFICATION «, t00=0x0045, t01=0x0022}
0x06c08…06c2c Head {h00=0x0020, h01=0x0050, text=» RES 8 COMMAND CONTROL AREA «, t00=0x0045, t01=0x004a}
0x06c2c…06c50 Head {h00=0x0020, h01=0x0050, text=» RES 8 RESPONSE CONTROL AREA«, t00=0x0045, t01=0x006e}
0x06c50…06c5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0092}
0x06c5a…06c74 Head {h00=0x0016, h01=0x0050, text=»* POOLBLOCKS «, t00=0x0045, t01=0x009c}
0x06c74…06c94 Head {h00=0x001c, h01=0x0050, text=» DATA 'SO',0 ID & FLAGS «, t00=0x0045, t01=0x00b6}
0x06c94…06ccc Head {h00=0x0034, h01=0x0050, text=» DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH«, t00=0x0045, t01=0x00d6}
0x06ccc…06cf4 Head {h00=0x0024, h01=0x0050, text=» DATA SOBUFS+SOBUFS AREA LENGTH «, t00=0x0045, t01=0x010e}
0x06cf4…06d08 Head {h00=0x0010, h01=0x0050, text=» DATA 'LO',0«, t00=0x0045, t01=0x0136}
0x06d08…06d26 Head {h00=0x001a, h01=0x0050, text=» DATA 0,LOBUF1+LOBUF1 «, t00=0x0045, t01=0x014a}
0x06d26…06d42 Head {h00=0x0018, h01=0x0050, text=» DATA LOBUFS+LOBUFS «, t00=0x0045, t01=0x0168}
0x06d42…06d56 Head {h00=0x0010, h01=0x0050, text=» DATA 'GR',0«, t00=0x0045, t01=0x0184}
0x06d56…06d74 Head {h00=0x001a, h01=0x0050, text=» DATA 0,GRBUF1+GRBUF1 «, t00=0x0046, t01=0x0008}
0x06d74…06d90 Head {h00=0x0018, h01=0x0050, text=» DATA GRBUFS+GRBUFS «, t00=0x0046, t01=0x0026}
0x06d90…06d9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0042}
0x06d9a…06dd0 Head {h00=0x0032, h01=0x0050, text=»* WORK STATION STATUS WORDS. 1 WORD / WS «, t00=0x0046, t01=0x004c}
0x06dd0…06e06 Head {h00=0x0032, h01=0x0050, text=» RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. «, t00=0x0046, t01=0x0082}
0x06e06…06e10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00b8}
0x06e10…06e2c Head {h00=0x0018, h01=0x0050, text=»* BUFFER AREAS «, t00=0x0046, t01=0x00c2}
0x06e2c…06e54 Head {h00=0x0024, h01=0x0050, text=» RES SOBUFS SHORT OUTPUT BUFFERS«, t00=0x0046, t01=0x00de}
0x06e54…06e7c Head {h00=0x0024, h01=0x0050, text=» RES LOBUFS LONG OUTPUT BUFFERS «, t00=0x0046, t01=0x0106}
0x06e7c…06ea4 Head {h00=0x0024, h01=0x0050, text=» RES GRBUFS GENERAL READ BUFFERS«, t00=0x0046, t01=0x012e}
0x06ea4…06eae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0156}
0x06eae…06eb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0160}
0x06eb8…06ec4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0046, t01=0x016a}
0x06ec4…06eda Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=1 «, t00=0x0046, t01=0x0176}
0x06eda…06ee4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x018c}
0x06ee4…06ef2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x0008}
0x06ef2…06efc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0016}
0x06efc…06f1e Head {h00=0x001e, h01=0x0050, text=»* CWT FOR PLC NUMBER 2 «, t00=0x0047, t01=0x0020}
0x06f1e…06f28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0042}
0x06f28…06f3c Head {h00=0x0010, h01=0x0050, text=»PL1CWT EQU *«, t00=0x0047, t01=0x004c}
0x06f3c…06f46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0060}
0x06f46…06f5a Head {h00=0x0010, h01=0x0050, text=»* FLAGS«, t00=0x0047, t01=0x006a}
0x06f5a…06f7a Head {h00=0x001c, h01=0x0050, text=» RES 1 PLC OPERABLE FLAG«, t00=0x0047, t01=0x007e}
0x06f7a…06fa0 Head {h00=0x0022, h01=0x0050, text=» DATA 0 CCA BUSY FLAG (0=FREE)«, t00=0x0047, t01=0x009e}
0x06fa0…06fd0 Head {h00=0x002c, h01=0x0050, text=» DATA 1 GENERAL READ ALLOWED (0=ALLOWED)«, t00=0x0047, t01=0x00c4}
0x06fd0…06fda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00f4}
0x06fda…06ff4 Head {h00=0x0016, h01=0x0050, text=»* DATA WORDS «, t00=0x0047, t01=0x00fe}
0x06ff4…07014 Head {h00=0x001c, h01=0x0050, text=» DATA 1 PLC NUMBER (0-3)«, t00=0x0047, t01=0x0118}
0x07014…07046 Head {h00=0x002e, h01=0x0050, text=» DATA 0 WORK STATION TO ABORT (0=NO ABORT)«, t00=0x0047, t01=0x0138}
0x07046…0706c Head {h00=0x0022, h01=0x0050, text=» DATA 0 LATEST PLC RCA STATUS «, t00=0x0047, t01=0x016a}
0x0706c…0708e Head {h00=0x001e, h01=0x0050, text=» DATA 0 LINE NO INDICATOR «, t00=0x0047, t01=0x0190}
0x0708e…070b6 Head {h00=0x0024, h01=0x0050, text=» DATA 0 INDEX TO PARAMETER AREA «, t00=0x0048, t01=0x0022}
0x070b6…070c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x004a}
0x070c0…070e8 Head {h00=0x0024, h01=0x0050, text=»* POINTERS AND QUEUE HEADS «, t00=0x0048, t01=0x0054}
0x070e8…0711a Head {h00=0x002e, h01=0x0050, text=» DATA OPARL2 OPEN LINE PARAMETER AREA ADDR«, t00=0x0048, t01=0x007c}
0x0711a…0714a Head {h00=0x002c, h01=0x0050, text=» DATA INTPL2 WORK STATION TABLE ADDRESS «, t00=0x0048, t01=0x00ae}
0x0714a…0716e Head {h00=0x0020, h01=0x0050, text=» DATA 0 INPUT BUFFER ADDRESS«, t00=0x0048, t01=0x00de}
0x0716e…0719c Head {h00=0x002a, h01=0x0050, text=» DATA 0 QUEUE FOR SHORT OUTPUT BUFFER «, t00=0x0048, t01=0x0102}
0x0719c…071c8 Head {h00=0x0028, h01=0x0050, text=» DATA 0 QUEUE FOR LONG OUTPUT BUFFER«, t00=0x0048, t01=0x0130}
0x071c8…071ea Head {h00=0x001e, h01=0x0050, text=» DATA 0 QUEUE FOR CCA FREE«, t00=0x0048, t01=0x015c}
0x071ea…0721c Head {h00=0x002e, h01=0x0050, text=» DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS «, t00=0x0048, t01=0x017e}
0x0721c…0724c Head {h00=0x002c, h01=0x0050, text=» DATA 0 TIMER POINTER FOR RESTART DELAY «, t00=0x0049, t01=0x0020}
0x0724c…07256 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0050}
0x07256…07272 Head {h00=0x0018, h01=0x0050, text=»* INSTRUCTIONS «, t00=0x0049, t01=0x005a}
0x07272…0729e Head {h00=0x0028, h01=0x0050, text=» CIO A3,1,PLCDA1 START I/O OPERATION«, t00=0x0049, t01=0x0076}
0x0729e…072d4 Head {h00=0x0032, h01=0x0050, text=» SST A3,PLCDA1 RELEASE RCA AND RESET INTERRUPT«, t00=0x0049, t01=0x00a2}
0x072d4…072de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00d8}
0x072de…072fe Head {h00=0x001c, h01=0x0050, text=»* PLC CONTROL AREAS«, t00=0x0049, t01=0x00e2}
0x072fe…07330 Head {h00=0x002e, h01=0x0050, text=»* CONTROL UNIT START DESCRIPTOR (3 WORDS) «, t00=0x0049, t01=0x0102}
0x07330…07354 Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x0049, t01=0x0134}
0x07354…0737c Head {h00=0x0024, h01=0x0050, text=» DATA PL1CWT+CWTCID CID ADDRESS «, t00=0x0049, t01=0x0158}
0x0737c…073a0 Head {h00=0x0020, h01=0x0050, text=» DATA INTLV1 INTERRUPT LEVEL«, t00=0x0049, t01=0x0180}
0x073a0…073d6 Head {h00=0x0032, h01=0x0050, text=»* CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) «, t00=0x004a, t01=0x0014}
0x073d6…073fa Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x004a, t01=0x004a}
0x073fa…07422 Head {h00=0x0024, h01=0x0050, text=» DATA PL1CWT+CWTCCA CCA ADDRESS «, t00=0x004a, t01=0x006e}
0x07422…07446 Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x004a, t01=0x0096}
0x07446…0746e Head {h00=0x0024, h01=0x0050, text=» DATA PL1CWT+CWTRCA RCA ADDRESS «, t00=0x004a, t01=0x00ba}
0x0746e…07496 Head {h00=0x0024, h01=0x0050, text=» DATA 0 INTERRUPT SPECIFICATION «, t00=0x004a, t01=0x00e2}
0x07496…074ba Head {h00=0x0020, h01=0x0050, text=» RES 8 COMMAND CONTROL AREA «, t00=0x004a, t01=0x010a}
0x074ba…074de Head {h00=0x0020, h01=0x0050, text=» RES 8 RESPONSE CONTROL AREA«, t00=0x004a, t01=0x012e}
0x074de…074e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0152}
0x074e8…07514 Head {h00=0x0028, h01=0x0050, text=»* POOLBLOCKS (5 WORDS / BLOCK) «, t00=0x004a, t01=0x015c}
0x07514…07544 Head {h00=0x002c, h01=0x0050, text=» DATA 'SO',0 ID = "SHORT OUTPUT" & FLAGS«, t00=0x004a, t01=0x0188}
0x07544…0757c Head {h00=0x0034, h01=0x0050, text=» DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH«, t00=0x004b, t01=0x0028}
0x0757c…075a4 Head {h00=0x0024, h01=0x0050, text=» DATA SOBUFS+SOBUFS AREA LENGTH «, t00=0x004b, t01=0x0060}
0x075a4…075cc Head {h00=0x0024, h01=0x0050, text=» DATA 'LO',0 ID = "LONG OUTPUT" «, t00=0x004b, t01=0x0088}
0x075cc…075ea Head {h00=0x001a, h01=0x0050, text=» DATA 0,LOBUF1+LOBUF1 «, t00=0x004b, t01=0x00b0}
0x075ea…07606 Head {h00=0x0018, h01=0x0050, text=» DATA LOBUFS+LOBUFS «, t00=0x004b, t01=0x00ce}
0x07606…0762e Head {h00=0x0024, h01=0x0050, text=» DATA 'GR',0 ID = "GENERAL READ"«, t00=0x004b, t01=0x00ea}
0x0762e…0764c Head {h00=0x001a, h01=0x0050, text=» DATA 0,GRBUF1+GRBUF1 «, t00=0x004b, t01=0x0112}
0x0764c…07668 Head {h00=0x0018, h01=0x0050, text=» DATA GRBUFS+GRBUFS «, t00=0x004b, t01=0x0130}
0x07668…07672 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x014c}
0x07672…076a8 Head {h00=0x0032, h01=0x0050, text=»* WORK STATION STATUS WORDS. 1 WORD / WS «, t00=0x004b, t01=0x0156}
0x076a8…076de Head {h00=0x0032, h01=0x0050, text=» RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. «, t00=0x004b, t01=0x018c}
0x076de…076e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0032}
0x076e8…07704 Head {h00=0x0018, h01=0x0050, text=»* BUFFER AREAS «, t00=0x004c, t01=0x003c}
0x07704…0772c Head {h00=0x0024, h01=0x0050, text=» RES SOBUFS SHORT OUTPUT BUFFERS«, t00=0x004c, t01=0x0058}
0x0772c…07754 Head {h00=0x0024, h01=0x0050, text=» RES LOBUFS LONG OUTPUT BUFFERS «, t00=0x004c, t01=0x0080}
0x07754…0777c Head {h00=0x0024, h01=0x0050, text=» RES GRBUFS GENERAL READ BUFFERS«, t00=0x004c, t01=0x00a8}
0x0777c…07786 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00d0}
0x07786…07790 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00da}
0x07790…077a6 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=2 «, t00=0x004c, t01=0x00e4}
0x077a6…077b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00fa}
0x077b0…077be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004c, t01=0x0104}
0x077be…077c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0112}
0x077c8…077ea Head {h00=0x001e, h01=0x0050, text=»* CWT FOR PLC NUMBER 3 «, t00=0x004c, t01=0x011c}
0x077ea…077f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x013e}
0x077f4…07808 Head {h00=0x0010, h01=0x0050, text=»PL2CWT EQU *«, t00=0x004c, t01=0x0148}
0x07808…07812 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x015c}
0x07812…07826 Head {h00=0x0010, h01=0x0050, text=»* FLAGS«, t00=0x004c, t01=0x0166}
0x07826…07846 Head {h00=0x001c, h01=0x0050, text=» RES 1 PLC OPERABLE FLAG«, t00=0x004c, t01=0x017a}
0x07846…0786c Head {h00=0x0022, h01=0x0050, text=» DATA 0 CCA BUSY FLAG (0=FREE)«, t00=0x004d, t01=0x000a}
0x0786c…0789c Head {h00=0x002c, h01=0x0050, text=» DATA 1 GENERAL READ ALLOWED (0=ALLOWED)«, t00=0x004d, t01=0x0030}
0x0789c…078a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0060}
0x078a6…078c0 Head {h00=0x0016, h01=0x0050, text=»* DATA WORDS «, t00=0x004d, t01=0x006a}
0x078c0…078e0 Head {h00=0x001c, h01=0x0050, text=» DATA 2 PLC NUMBER (0-3)«, t00=0x004d, t01=0x0084}
0x078e0…07912 Head {h00=0x002e, h01=0x0050, text=» DATA 0 WORK STATION TO ABORT (0=NO ABORT)«, t00=0x004d, t01=0x00a4}
0x07912…07938 Head {h00=0x0022, h01=0x0050, text=» DATA 0 LATEST PLC RCA STATUS «, t00=0x004d, t01=0x00d6}
0x07938…0795a Head {h00=0x001e, h01=0x0050, text=» DATA 0 LINE NO INDICATOR «, t00=0x004d, t01=0x00fc}
0x0795a…07982 Head {h00=0x0024, h01=0x0050, text=» DATA 0 INDEX TO PARAMETER AREA «, t00=0x004d, t01=0x011e}
0x07982…0798c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0146}
0x0798c…079b4 Head {h00=0x0024, h01=0x0050, text=»* POINTERS AND QUEUE HEADS «, t00=0x004d, t01=0x0150}
0x079b4…079e6 Head {h00=0x002e, h01=0x0050, text=» DATA OPARL3 OPEN LINE PARAMETER AREA ADDR«, t00=0x004d, t01=0x0178}
0x079e6…07a16 Head {h00=0x002c, h01=0x0050, text=» DATA INTPL3 WORK STATION TABLE ADDRESS «, t00=0x004e, t01=0x001a}
0x07a16…07a3a Head {h00=0x0020, h01=0x0050, text=» DATA 0 INPUT BUFFER ADDRESS«, t00=0x004e, t01=0x004a}
0x07a3a…07a68 Head {h00=0x002a, h01=0x0050, text=» DATA 0 QUEUE FOR SHORT OUTPUT BUFFER «, t00=0x004e, t01=0x006e}
0x07a68…07a94 Head {h00=0x0028, h01=0x0050, text=» DATA 0 QUEUE FOR LONG OUTPUT BUFFER«, t00=0x004e, t01=0x009c}
0x07a94…07ab6 Head {h00=0x001e, h01=0x0050, text=» DATA 0 QUEUE FOR CCA FREE«, t00=0x004e, t01=0x00c8}
0x07ab6…07ae8 Head {h00=0x002e, h01=0x0050, text=» DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS «, t00=0x004e, t01=0x00ea}
0x07ae8…07b18 Head {h00=0x002c, h01=0x0050, text=» DATA 0 TIMER POINTER FOR RESTART DELAY «, t00=0x004e, t01=0x011c}
0x07b18…07b22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x014c}
0x07b22…07b3e Head {h00=0x0018, h01=0x0050, text=»* INSTRUCTIONS «, t00=0x004e, t01=0x0156}
0x07b3e…07b6a Head {h00=0x0028, h01=0x0050, text=» CIO A3,1,PLCDA2 START I/O OPERATION«, t00=0x004e, t01=0x0172}
0x07b6a…07ba0 Head {h00=0x0032, h01=0x0050, text=» SST A3,PLCDA2 RELEASE RCA AND RESET INTERRUPT«, t00=0x004f, t01=0x000e}
0x07ba0…07baa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0044}
0x07baa…07bca Head {h00=0x001c, h01=0x0050, text=»* PLC CONTROL AREAS«, t00=0x004f, t01=0x004e}
0x07bca…07bfc Head {h00=0x002e, h01=0x0050, text=»* CONTROL UNIT START DESCRIPTOR (3 WORDS) «, t00=0x004f, t01=0x006e}
0x07bfc…07c20 Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x004f, t01=0x00a0}
0x07c20…07c48 Head {h00=0x0024, h01=0x0050, text=» DATA PL2CWT+CWTCID CID ADDRESS «, t00=0x004f, t01=0x00c4}
0x07c48…07c6c Head {h00=0x0020, h01=0x0050, text=» DATA INTLV2 INTERRUPT LEVEL«, t00=0x004f, t01=0x00ec}
0x07c6c…07ca2 Head {h00=0x0032, h01=0x0050, text=»* CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) «, t00=0x004f, t01=0x0110}
0x07ca2…07cc6 Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x004f, t01=0x0146}
0x07cc6…07cee Head {h00=0x0024, h01=0x0050, text=» DATA PL2CWT+CWTCCA CCA ADDRESS «, t00=0x004f, t01=0x016a}
0x07cee…07d12 (80, 0, 400) Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x0050, t01=0x0004}
0x07d12…07d3a Head {h00=0x0024, h01=0x0050, text=» DATA PL2CWT+CWTRCA RCA ADDRESS «, t00=0x0050, t01=0x0028}
0x07d3a…07d62 Head {h00=0x0024, h01=0x0050, text=» DATA 0 INTERRUPT SPECIFICATION «, t00=0x0050, t01=0x0050}
0x07d62…07d86 Head {h00=0x0020, h01=0x0050, text=» RES 8 COMMAND CONTROL AREA «, t00=0x0050, t01=0x0078}
0x07d86…07daa Head {h00=0x0020, h01=0x0050, text=» RES 8 RESPONSE CONTROL AREA«, t00=0x0050, t01=0x009c}
0x07daa…07db4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00c0}
0x07db4…07de0 Head {h00=0x0028, h01=0x0050, text=»* POOLBLOCKS (5 WORDS / BLOCK) «, t00=0x0050, t01=0x00ca}
0x07de0…07e10 Head {h00=0x002c, h01=0x0050, text=» DATA 'SO',0 ID = "SHORT OUTPUT" & FLAGS«, t00=0x0050, t01=0x00f6}
0x07e10…07e48 Head {h00=0x0034, h01=0x0050, text=» DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH«, t00=0x0050, t01=0x0126}
0x07e48…07e70 Head {h00=0x0024, h01=0x0050, text=» DATA SOBUFS+SOBUFS AREA LENGTH «, t00=0x0050, t01=0x015e}
0x07e70…07e98 Head {h00=0x0024, h01=0x0050, text=» DATA 'LO',0 ID = "LONG OUTPUT" «, t00=0x0050, t01=0x0186}
0x07e98…07eb6 Head {h00=0x001a, h01=0x0050, text=» DATA 0,LOBUF1+LOBUF1 «, t00=0x0051, t01=0x001e}
0x07eb6…07ed2 Head {h00=0x0018, h01=0x0050, text=» DATA LOBUFS+LOBUFS «, t00=0x0051, t01=0x003c}
0x07ed2…07efa Head {h00=0x0024, h01=0x0050, text=» DATA 'GR',0 ID = "GENERAL READ"«, t00=0x0051, t01=0x0058}
0x07efa…07f18 Head {h00=0x001a, h01=0x0050, text=» DATA 0,GRBUF1+GRBUF1 «, t00=0x0051, t01=0x0080}
0x07f18…07f34 Head {h00=0x0018, h01=0x0050, text=» DATA GRBUFS+GRBUFS «, t00=0x0051, t01=0x009e}
0x07f34…07f3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00ba}
0x07f3e…07f74 Head {h00=0x0032, h01=0x0050, text=»* WORK STATION STATUS WORDS. 1 WORD / WS «, t00=0x0051, t01=0x00c4}
0x07f74…07faa Head {h00=0x0032, h01=0x0050, text=» RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. «, t00=0x0051, t01=0x00fa}
0x07faa…07fb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0130}
0x07fb4…07fd0 Head {h00=0x0018, h01=0x0050, text=»* BUFFER AREAS «, t00=0x0051, t01=0x013a}
0x07fd0…07ff8 Head {h00=0x0024, h01=0x0050, text=» RES SOBUFS SHORT OUTPUT BUFFERS«, t00=0x0051, t01=0x0156}
0x07ff8…08020 Head {h00=0x0024, h01=0x0050, text=» RES LOBUFS LONG OUTPUT BUFFERS «, t00=0x0051, t01=0x017e}
0x08020…08048 Head {h00=0x0024, h01=0x0050, text=» RES GRBUFS GENERAL READ BUFFERS«, t00=0x0052, t01=0x0016}
0x08048…08052 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x003e}
0x08052…0805c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0048}
0x0805c…08072 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=3 «, t00=0x0052, t01=0x0052}
0x08072…0807c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0068}
0x0807c…0808a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x0072}
0x0808a…08094 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0080}
0x08094…080b6 Head {h00=0x001e, h01=0x0050, text=»* CWT FOR PLC NUMBER 4 «, t00=0x0052, t01=0x008a}
0x080b6…080c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00ac}
0x080c0…080d4 Head {h00=0x0010, h01=0x0050, text=»PL3CWT EQU *«, t00=0x0052, t01=0x00b6}
0x080d4…080de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00ca}
0x080de…080f2 Head {h00=0x0010, h01=0x0050, text=»* FLAGS«, t00=0x0052, t01=0x00d4}
0x080f2…08112 Head {h00=0x001c, h01=0x0050, text=» RES 1 PLC OPERABLE FLAG«, t00=0x0052, t01=0x00e8}
0x08112…08138 Head {h00=0x0022, h01=0x0050, text=» DATA 0 CCA BUSY FLAG (0=FREE)«, t00=0x0052, t01=0x0108}
0x08138…08168 Head {h00=0x002c, h01=0x0050, text=» DATA 1 GENERAL READ ALLOWED (0=ALLOWED)«, t00=0x0052, t01=0x012e}
0x08168…08172 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x015e}
0x08172…0818c Head {h00=0x0016, h01=0x0050, text=»* DATA WORDS «, t00=0x0052, t01=0x0168}
0x0818c…081ac Head {h00=0x001c, h01=0x0050, text=» DATA 3 PLC NUMBER (0-3)«, t00=0x0052, t01=0x0182}
0x081ac…081de Head {h00=0x002e, h01=0x0050, text=» DATA 0 WORK STATION TO ABORT (0=NO ABORT)«, t00=0x0053, t01=0x0012}
0x081de…08204 Head {h00=0x0022, h01=0x0050, text=» DATA 0 LATEST PLC RCA STATUS «, t00=0x0053, t01=0x0044}
0x08204…08226 Head {h00=0x001e, h01=0x0050, text=» DATA 0 LINE NO INDICATOR «, t00=0x0053, t01=0x006a}
0x08226…0824e Head {h00=0x0024, h01=0x0050, text=» DATA 0 INDEX TO PARAMETER AREA «, t00=0x0053, t01=0x008c}
0x0824e…08258 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00b4}
0x08258…08280 Head {h00=0x0024, h01=0x0050, text=»* POINTERS AND QUEUE HEADS «, t00=0x0053, t01=0x00be}
0x08280…082b2 Head {h00=0x002e, h01=0x0050, text=» DATA OPARL4 OPEN LINE PARAMETER AREA ADDR«, t00=0x0053, t01=0x00e6}
0x082b2…082e2 Head {h00=0x002c, h01=0x0050, text=» DATA INTPL4 WORK STATION TABLE ADDRESS «, t00=0x0053, t01=0x0118}
0x082e2…08306 Head {h00=0x0020, h01=0x0050, text=» DATA 0 INPUT BUFFER ADDRESS«, t00=0x0053, t01=0x0148}
0x08306…08334 Head {h00=0x002a, h01=0x0050, text=» DATA 0 QUEUE FOR SHORT OUTPUT BUFFER «, t00=0x0053, t01=0x016c}
0x08334…08360 Head {h00=0x0028, h01=0x0050, text=» DATA 0 QUEUE FOR LONG OUTPUT BUFFER«, t00=0x0054, t01=0x000a}
0x08360…08382 Head {h00=0x001e, h01=0x0050, text=» DATA 0 QUEUE FOR CCA FREE«, t00=0x0054, t01=0x0036}
0x08382…083b4 Head {h00=0x002e, h01=0x0050, text=» DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS «, t00=0x0054, t01=0x0058}
0x083b4…083e4 Head {h00=0x002c, h01=0x0050, text=» DATA 0 TIMER POINTER FOR RESTART DELAY «, t00=0x0054, t01=0x008a}
0x083e4…083ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00ba}
0x083ee…0840a Head {h00=0x0018, h01=0x0050, text=»* INSTRUCTIONS «, t00=0x0054, t01=0x00c4}
0x0840a…08436 Head {h00=0x0028, h01=0x0050, text=» CIO A3,1,PLCDA3 START I/O OPERATION«, t00=0x0054, t01=0x00e0}
0x08436…0846c Head {h00=0x0032, h01=0x0050, text=» SST A3,PLCDA3 RELEASE RCA AND RESET INTERRUPT«, t00=0x0054, t01=0x010c}
0x0846c…08476 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0142}
0x08476…08496 Head {h00=0x001c, h01=0x0050, text=»* PLC CONTROL AREAS«, t00=0x0054, t01=0x014c}
0x08496…084c8 Head {h00=0x002e, h01=0x0050, text=»* CONTROL UNIT START DESCRIPTOR (3 WORDS) «, t00=0x0054, t01=0x016c}
0x084c8…084ec Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x0055, t01=0x000e}
0x084ec…08514 Head {h00=0x0024, h01=0x0050, text=» DATA PL3CWT+CWTCID CID ADDRESS «, t00=0x0055, t01=0x0032}
0x08514…08538 Head {h00=0x0020, h01=0x0050, text=» DATA INTLV3 INTERRUPT LEVEL«, t00=0x0055, t01=0x005a}
0x08538…0856e Head {h00=0x0032, h01=0x0050, text=»* CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) «, t00=0x0055, t01=0x007e}
0x0856e…08592 Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x0055, t01=0x00b4}
0x08592…085ba Head {h00=0x0024, h01=0x0050, text=» DATA PL3CWT+CWTCCA CCA ADDRESS «, t00=0x0055, t01=0x00d8}
0x085ba…085de Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x0055, t01=0x0100}
0x085de…08606 Head {h00=0x0024, h01=0x0050, text=» DATA PL3CWT+CWTRCA RCA ADDRESS «, t00=0x0055, t01=0x0124}
0x08606…0862e Head {h00=0x0024, h01=0x0050, text=» DATA 0 INTERRUPT SPECIFICATION «, t00=0x0055, t01=0x014c}
0x0862e…08652 Head {h00=0x0020, h01=0x0050, text=» RES 8 COMMAND CONTROL AREA «, t00=0x0055, t01=0x0174}
0x08652…08676 Head {h00=0x0020, h01=0x0050, text=» RES 8 RESPONSE CONTROL AREA«, t00=0x0056, t01=0x0008}
0x08676…08680 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x002c}
0x08680…086ac Head {h00=0x0028, h01=0x0050, text=»* POOLBLOCKS (5 WORDS / BLOCK) «, t00=0x0056, t01=0x0036}
0x086ac…086dc Head {h00=0x002c, h01=0x0050, text=» DATA 'SO',0 ID = "SHORT OUTPUT" & FLAGS«, t00=0x0056, t01=0x0062}
0x086dc…08714 Head {h00=0x0034, h01=0x0050, text=» DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH«, t00=0x0056, t01=0x0092}
0x08714…0873c Head {h00=0x0024, h01=0x0050, text=» DATA SOBUFS+SOBUFS AREA LENGTH «, t00=0x0056, t01=0x00ca}
0x0873c…08764 Head {h00=0x0024, h01=0x0050, text=» DATA 'LO',0 ID = "LONG OUTPUT" «, t00=0x0056, t01=0x00f2}
0x08764…08782 Head {h00=0x001a, h01=0x0050, text=» DATA 0,LOBUF1+LOBUF1 «, t00=0x0056, t01=0x011a}
0x08782…0879e Head {h00=0x0018, h01=0x0050, text=» DATA LOBUFS+LOBUFS «, t00=0x0056, t01=0x0138}
0x0879e…087c6 Head {h00=0x0024, h01=0x0050, text=» DATA 'GR',0 ID = "GENERAL READ"«, t00=0x0056, t01=0x0154}
0x087c6…087e4 Head {h00=0x001a, h01=0x0050, text=» DATA 0,GRBUF1+GRBUF1 «, t00=0x0056, t01=0x017c}
0x087e4…08800 Head {h00=0x0018, h01=0x0050, text=» DATA GRBUFS+GRBUFS «, t00=0x0057, t01=0x000a}
0x08800…0880a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0026}
0x0880a…08840 Head {h00=0x0032, h01=0x0050, text=»* WORK STATION STATUS WORDS. 1 WORD / WS «, t00=0x0057, t01=0x0030}
0x08840…08876 Head {h00=0x0032, h01=0x0050, text=» RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. «, t00=0x0057, t01=0x0066}
0x08876…08880 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x009c}
0x08880…0889c Head {h00=0x0018, h01=0x0050, text=»* BUFFER AREAS «, t00=0x0057, t01=0x00a6}
0x0889c…088c4 Head {h00=0x0024, h01=0x0050, text=» RES SOBUFS SHORT OUTPUT BUFFERS«, t00=0x0057, t01=0x00c2}
0x088c4…088ec Head {h00=0x0024, h01=0x0050, text=» RES LOBUFS LONG OUTPUT BUFFERS «, t00=0x0057, t01=0x00ea}
0x088ec…08914 Head {h00=0x0024, h01=0x0050, text=» RES GRBUFS GENERAL READ BUFFERS«, t00=0x0057, t01=0x0112}
0x08914…08920 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x013a}
0x08920…0892a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0146}
0x0892a…08938 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0057, t01=0x0150}
0x08938…0894e Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x0057, t01=0x015e}
0x0894e…08958 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0174}
0x08958…08980 Head {h00=0x0024, h01=0x0050, text=»* CWT FOR PLC NUMBER 5 REMOTE«, t00=0x0057, t01=0x017e}
0x08980…0898a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0016}
0x0898a…0899e Head {h00=0x0010, h01=0x0050, text=»PR1CWT EQU *«, t00=0x0058, t01=0x0020}
0x0899e…089a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0034}
0x089a8…089bc Head {h00=0x0010, h01=0x0050, text=»* FLAGS«, t00=0x0058, t01=0x003e}
0x089bc…089dc Head {h00=0x001c, h01=0x0050, text=» RES 1 PLC OPERABLE FLAG«, t00=0x0058, t01=0x0052}
0x089dc…08a02 Head {h00=0x0022, h01=0x0050, text=» DATA 0 CCA BUSY FLAG (0=FREE)«, t00=0x0058, t01=0x0072}
0x08a02…08a32 Head {h00=0x002c, h01=0x0050, text=» DATA 1 GENERAL READ ALLOWED (0=ALLOWED)«, t00=0x0058, t01=0x0098}
0x08a32…08a3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00c8}
0x08a3c…08a56 Head {h00=0x0016, h01=0x0050, text=»* DATA WORDS «, t00=0x0058, t01=0x00d2}
0x08a56…08a7a Head {h00=0x0020, h01=0x0050, text=» DATA 4 PLC NUMBER (4-7) =5 «, t00=0x0058, t01=0x00ec}
0x08a7a…08aac Head {h00=0x002e, h01=0x0050, text=» DATA 0 WORK STATION TO ABORT (0=NO ABORT)«, t00=0x0058, t01=0x0110}
0x08aac…08ad2 Head {h00=0x0022, h01=0x0050, text=» DATA 0 LATEST PLC RCA STATUS «, t00=0x0058, t01=0x0142}
0x08ad2…08af4 Head {h00=0x001e, h01=0x0050, text=» DATA 0 LINE NO INDICATOR «, t00=0x0058, t01=0x0168}
0x08af4…08b1c Head {h00=0x0024, h01=0x0050, text=» DATA 0 INDEX TO PARAMETER AREAS«, t00=0x0058, t01=0x018a}
0x08b1c…08b26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0022}
0x08b26…08b4e Head {h00=0x0024, h01=0x0050, text=»* POINTERS AND QUEUE HEADS «, t00=0x0059, t01=0x002c}
0x08b4e…08b86 Head {h00=0x0034, h01=0x0050, text=» DATA OPARR1 OPEN LINE PARAMETER AREA ADDRESSES «, t00=0x0059, t01=0x0054}
0x08b86…08bb6 Head {h00=0x002c, h01=0x0050, text=» DATA INTPR1 WORK STATION TABLE ADDRESS «, t00=0x0059, t01=0x008c}
0x08bb6…08bda Head {h00=0x0020, h01=0x0050, text=» DATA 0 INPUT BUFFER ADDRESS«, t00=0x0059, t01=0x00bc}
0x08bda…08c08 Head {h00=0x002a, h01=0x0050, text=» DATA 0 QUEUE FOR SHORT OUTPUT BUFFER «, t00=0x0059, t01=0x00e0}
0x08c08…08c34 Head {h00=0x0028, h01=0x0050, text=» DATA 0 QUEUE FOR LONG OUTPUT BUFFER«, t00=0x0059, t01=0x010e}
0x08c34…08c56 Head {h00=0x001e, h01=0x0050, text=» DATA 0 QUEUE FOR CCA FREE«, t00=0x0059, t01=0x013a}
0x08c56…08c88 Head {h00=0x002e, h01=0x0050, text=» DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS «, t00=0x0059, t01=0x015c}
0x08c88…08cb8 Head {h00=0x002c, h01=0x0050, text=» DATA 0 TIMER POINTER FOR RESTART DELAY «, t00=0x0059, t01=0x018e}
0x08cb8…08cc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x002e}
0x08cc2…08cde Head {h00=0x0018, h01=0x0050, text=»* INSTRUCTIONS «, t00=0x005a, t01=0x0038}
0x08cde…08d0a Head {h00=0x0028, h01=0x0050, text=» CIO A3,1,PLCDA4 START I/O OPERATION«, t00=0x005a, t01=0x0054}
0x08d0a…08d40 Head {h00=0x0032, h01=0x0050, text=» SST A3,PLCDA4 RELEASE RCA AND RESET INTERRUPT«, t00=0x005a, t01=0x0080}
0x08d40…08d4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00b6}
0x08d4a…08d6a Head {h00=0x001c, h01=0x0050, text=»* PLC CONTROL AREAS«, t00=0x005a, t01=0x00c0}
0x08d6a…08d9c Head {h00=0x002e, h01=0x0050, text=»* CONTROL UNIT START DESCRIPTOR (3 WORDS) «, t00=0x005a, t01=0x00e0}
0x08d9c…08dc0 Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x005a, t01=0x0112}
0x08dc0…08de8 Head {h00=0x0024, h01=0x0050, text=» DATA PR1CWT+CWTCID CID ADDRESS «, t00=0x005a, t01=0x0136}
0x08de8…08e0c Head {h00=0x0020, h01=0x0050, text=» DATA INTRV0 INTERRUPT LEVEL«, t00=0x005a, t01=0x015e}
0x08e0c…08e42 Head {h00=0x0032, h01=0x0050, text=»* CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) «, t00=0x005a, t01=0x0182}
0x08e42…08e66 Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x005b, t01=0x0028}
0x08e66…08e8e Head {h00=0x0024, h01=0x0050, text=» DATA PR1CWT+CWTCCA CCA ADDRESS «, t00=0x005b, t01=0x004c}
0x08e8e…08eb2 Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x005b, t01=0x0074}
0x08eb2…08eda Head {h00=0x0024, h01=0x0050, text=» DATA PR1CWT+CWTRCA RCA ADDRESS «, t00=0x005b, t01=0x0098}
0x08eda…08f02 Head {h00=0x0024, h01=0x0050, text=» DATA 0 INTERRUPT SPECIFICATION «, t00=0x005b, t01=0x00c0}
0x08f02…08f26 Head {h00=0x0020, h01=0x0050, text=» RES 8 COMMAND CONTROL AREA «, t00=0x005b, t01=0x00e8}
0x08f26…08f4a Head {h00=0x0020, h01=0x0050, text=» RES 8 RESPONSE CONTROL AREA«, t00=0x005b, t01=0x010c}
0x08f4a…08f54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0130}
0x08f54…08f80 Head {h00=0x0028, h01=0x0050, text=»* POOLBLOCKS (5 WORDS / BLOCK) «, t00=0x005b, t01=0x013a}
0x08f80…08fb0 Head {h00=0x002c, h01=0x0050, text=» DATA 'SO',0 ID = "SHORT OUTPUT" & FLAGS«, t00=0x005b, t01=0x0166}
0x08fb0…08fe8 Head {h00=0x0034, h01=0x0050, text=» DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH«, t00=0x005c, t01=0x0008}
0x08fe8…09010 Head {h00=0x0024, h01=0x0050, text=» DATA SOBUFS+SOBUFS AREA LENGTH «, t00=0x005c, t01=0x0040}
0x09010…09038 Head {h00=0x0024, h01=0x0050, text=» DATA 'LO',0 ID = "LONG OUTPUT" «, t00=0x005c, t01=0x0068}
0x09038…09056 Head {h00=0x001a, h01=0x0050, text=» DATA 0,LOBUF1+LOBUF1 «, t00=0x005c, t01=0x0090}
0x09056…09072 Head {h00=0x0018, h01=0x0050, text=» DATA LOBUFS+LOBUFS «, t00=0x005c, t01=0x00ae}
0x09072…0909a Head {h00=0x0024, h01=0x0050, text=» DATA 'GR',0 ID = "GENERAL READ"«, t00=0x005c, t01=0x00ca}
0x0909a…090b8 Head {h00=0x001a, h01=0x0050, text=» DATA 0,GRBUF1+GRBUF1 «, t00=0x005c, t01=0x00f2}
0x090b8…090d4 Head {h00=0x0018, h01=0x0050, text=» DATA GRBUFS+GRBUFS «, t00=0x005c, t01=0x0110}
0x090d4…090de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x012c}
0x090de…09114 Head {h00=0x0032, h01=0x0050, text=»* WORK STATION STATUS WORDS. 1 WORD / WS «, t00=0x005c, t01=0x0136}
0x09114…0914a Head {h00=0x0032, h01=0x0050, text=» RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. «, t00=0x005c, t01=0x016c}
0x0914a…09154 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0012}
0x09154…09170 Head {h00=0x0018, h01=0x0050, text=»* BUFFER AREAS «, t00=0x005d, t01=0x001c}
0x09170…09198 Head {h00=0x0024, h01=0x0050, text=» RES SOBUFS SHORT OUTPUT BUFFERS«, t00=0x005d, t01=0x0038}
0x09198…091c0 Head {h00=0x0024, h01=0x0050, text=» RES LOBUFS LONG OUTPUT BUFFERS «, t00=0x005d, t01=0x0060}
0x091c0…091e8 Head {h00=0x0024, h01=0x0050, text=» RES GRBUFS GENERAL READ BUFFERS«, t00=0x005d, t01=0x0088}
0x091e8…091f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x00b0}
0x091f2…091fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x00ba}
0x091fc…0920a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005d, t01=0x00c4}
0x0920a…09220 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x005d, t01=0x00d2}
0x09220…0922a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x00e8}
0x0922a…09252 Head {h00=0x0024, h01=0x0050, text=»* CWT FOR PLC NUMBER 6 REMOTE«, t00=0x005d, t01=0x00f2}
0x09252…0925c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x011a}
0x0925c…09270 Head {h00=0x0010, h01=0x0050, text=»PR2CWT EQU *«, t00=0x005d, t01=0x0124}
0x09270…0927a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0138}
0x0927a…0928e Head {h00=0x0010, h01=0x0050, text=»* FLAGS«, t00=0x005d, t01=0x0142}
0x0928e…092ae Head {h00=0x001c, h01=0x0050, text=» RES 1 PLC OPERABLE FLAG«, t00=0x005d, t01=0x0156}
0x092ae…092d4 Head {h00=0x0022, h01=0x0050, text=» DATA 0 CCA BUSY FLAG (0=FREE)«, t00=0x005d, t01=0x0176}
0x092d4…09304 Head {h00=0x002c, h01=0x0050, text=» DATA 1 GENERAL READ ALLOWED (0=ALLOWED)«, t00=0x005e, t01=0x000c}
0x09304…0930e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x003c}
0x0930e…09328 Head {h00=0x0016, h01=0x0050, text=»* DATA WORDS «, t00=0x005e, t01=0x0046}
0x09328…0934c Head {h00=0x0020, h01=0x0050, text=» DATA 5 PLC NUMBER (4-7) =5 «, t00=0x005e, t01=0x0060}
0x0934c…0937e Head {h00=0x002e, h01=0x0050, text=» DATA 0 WORK STATION TO ABORT (0=NO ABORT)«, t00=0x005e, t01=0x0084}
0x0937e…093a4 Head {h00=0x0022, h01=0x0050, text=» DATA 0 LATEST PLC RCA STATUS «, t00=0x005e, t01=0x00b6}
0x093a4…093c8 Head {h00=0x0020, h01=0x0050, text=» DATA 0 LINE NO INDICATOR =5«, t00=0x005e, t01=0x00dc}
0x093c8…093f4 Head {h00=0x0028, h01=0x0050, text=» DATA 0 INDEX TO PARAMETER AREAS =5 «, t00=0x005e, t01=0x0100}
0x093f4…093fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x012c}
0x093fe…09426 Head {h00=0x0024, h01=0x0050, text=»* POINTERS AND QUEUE HEADS «, t00=0x005e, t01=0x0136}
0x09426…0945e Head {h00=0x0034, h01=0x0050, text=» DATA OPARR2 OPEN LINE PARAMETER AREA ADDRESSES «, t00=0x005e, t01=0x015e}
0x0945e…0948e Head {h00=0x002c, h01=0x0050, text=» DATA INTPR2 WORK STATION TABLE ADDRESS «, t00=0x005f, t01=0x0008}
0x0948e…094b2 Head {h00=0x0020, h01=0x0050, text=» DATA 0 INPUT BUFFER ADDRESS«, t00=0x005f, t01=0x0038}
0x094b2…094e0 Head {h00=0x002a, h01=0x0050, text=» DATA 0 QUEUE FOR SHORT OUTPUT BUFFER «, t00=0x005f, t01=0x005c}
0x094e0…0950c Head {h00=0x0028, h01=0x0050, text=» DATA 0 QUEUE FOR LONG OUTPUT BUFFER«, t00=0x005f, t01=0x008a}
0x0950c…0952e Head {h00=0x001e, h01=0x0050, text=» DATA 0 QUEUE FOR CCA FREE«, t00=0x005f, t01=0x00b6}
0x0952e…09560 Head {h00=0x002e, h01=0x0050, text=» DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS «, t00=0x005f, t01=0x00d8}
0x09560…09590 Head {h00=0x002c, h01=0x0050, text=» DATA 0 TIMER POINTER FOR RESTART DELAY «, t00=0x005f, t01=0x010a}
0x09590…0959a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x013a}
0x0959a…095b6 Head {h00=0x0018, h01=0x0050, text=»* INSTRUCTIONS «, t00=0x005f, t01=0x0144}
0x095b6…095e2 Head {h00=0x0028, h01=0x0050, text=» CIO A3,1,PLCDA5 START I/O OPERATION«, t00=0x005f, t01=0x0160}
0x095e2…09618 Head {h00=0x0032, h01=0x0050, text=» SST A3,PLCDA5 RELEASE RCA AND RESET INTERRUPT«, t00=0x005f, t01=0x018c}
0x09618…09622 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0032}
0x09622…09642 Head {h00=0x001c, h01=0x0050, text=»* PLC CONTROL AREAS«, t00=0x0060, t01=0x003c}
0x09642…09674 Head {h00=0x002e, h01=0x0050, text=»* CONTROL UNIT START DESCRIPTOR (3 WORDS) «, t00=0x0060, t01=0x005c}
0x09674…09698 Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x0060, t01=0x008e}
0x09698…096c0 Head {h00=0x0024, h01=0x0050, text=» DATA PR2CWT+CWTCID CID ADDRESS «, t00=0x0060, t01=0x00b2}
0x096c0…096e4 Head {h00=0x0020, h01=0x0050, text=» DATA INTRV1 INTERRUPT LEVEL«, t00=0x0060, t01=0x00da}
0x096e4…0971a Head {h00=0x0032, h01=0x0050, text=»* CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) «, t00=0x0060, t01=0x00fe}
0x0971a…0973e Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x0060, t01=0x0134}
0x0973e…09766 Head {h00=0x0024, h01=0x0050, text=» DATA PR2CWT+CWTCCA CCA ADDRESS «, t00=0x0060, t01=0x0158}
0x09766…0978a Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x0060, t01=0x0180}
0x0978a…097b2 Head {h00=0x0024, h01=0x0050, text=» DATA PR2CWT+CWTRCA RCA ADDRESS «, t00=0x0061, t01=0x0014}
0x097b2…097da Head {h00=0x0024, h01=0x0050, text=» DATA 0 INTERRUPT SPECIFICATION «, t00=0x0061, t01=0x003c}
0x097da…097fe Head {h00=0x0020, h01=0x0050, text=» RES 8 COMMAND CONTROL AREA «, t00=0x0061, t01=0x0064}
0x097fe…09822 Head {h00=0x0020, h01=0x0050, text=» RES 8 RESPONSE CONTROL AREA«, t00=0x0061, t01=0x0088}
0x09822…0982c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x00ac}
0x0982c…09858 Head {h00=0x0028, h01=0x0050, text=»* POOLBLOCKS (5 WORDS / BLOCK) «, t00=0x0061, t01=0x00b6}
0x09858…09888 Head {h00=0x002c, h01=0x0050, text=» DATA 'SO',0 ID = "SHORT OUTPUT" & FLAGS«, t00=0x0061, t01=0x00e2}
0x09888…098c0 Head {h00=0x0034, h01=0x0050, text=» DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH«, t00=0x0061, t01=0x0112}
0x098c0…098e8 Head {h00=0x0024, h01=0x0050, text=» DATA SOBUFS+SOBUFS AREA LENGTH «, t00=0x0061, t01=0x014a}
0x098e8…09910 Head {h00=0x0024, h01=0x0050, text=» DATA 'LO',0 ID = "LONG OUTPUT" «, t00=0x0061, t01=0x0172}
0x09910…0992e Head {h00=0x001a, h01=0x0050, text=» DATA 0,LOBUF1+LOBUF1 «, t00=0x0062, t01=0x000a}
0x0992e…0994a Head {h00=0x0018, h01=0x0050, text=» DATA LOBUFS+LOBUFS «, t00=0x0062, t01=0x0028}
0x0994a…09972 Head {h00=0x0024, h01=0x0050, text=» DATA 'GR',0 ID = "GENERAL READ"«, t00=0x0062, t01=0x0044}
0x09972…09990 Head {h00=0x001a, h01=0x0050, text=» DATA 0,GRBUF1+GRBUF1 «, t00=0x0062, t01=0x006c}
0x09990…099ac Head {h00=0x0018, h01=0x0050, text=» DATA GRBUFS+GRBUFS «, t00=0x0062, t01=0x008a}
0x099ac…099b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00a6}
0x099b6…099ec Head {h00=0x0032, h01=0x0050, text=»* WORK STATION STATUS WORDS. 1 WORD / WS «, t00=0x0062, t01=0x00b0}
0x099ec…09a22 Head {h00=0x0032, h01=0x0050, text=» RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. «, t00=0x0062, t01=0x00e6}
0x09a22…09a2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x011c}
0x09a2c…09a48 Head {h00=0x0018, h01=0x0050, text=»* BUFFER AREAS «, t00=0x0062, t01=0x0126}
0x09a48…09a70 Head {h00=0x0024, h01=0x0050, text=» RES SOBUFS SHORT OUTPUT BUFFERS«, t00=0x0062, t01=0x0142}
0x09a70…09a98 Head {h00=0x0024, h01=0x0050, text=» RES LOBUFS LONG OUTPUT BUFFERS «, t00=0x0062, t01=0x016a}
0x09a98…09ac0 (99, 0, 400) Head {h00=0x0024, h01=0x0050, text=» RES GRBUFS GENERAL READ BUFFERS«, t00=0x0063, t01=0x0004}
0x09ac0…09aca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x002c}
0x09aca…09ad4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0036}
0x09ad4…09ae2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0063, t01=0x0040}
0x09ae2…09af8 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=2 «, t00=0x0063, t01=0x004e}
0x09af8…09b02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0064}
0x09b02…09b2a Head {h00=0x0024, h01=0x0050, text=»* CWT FOR PLC NUMBER 7 REMOTE«, t00=0x0063, t01=0x006e}
0x09b2a…09b34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0096}
0x09b34…09b48 Head {h00=0x0010, h01=0x0050, text=»PR3CWT EQU *«, t00=0x0063, t01=0x00a0}
0x09b48…09b52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00b4}
0x09b52…09b66 Head {h00=0x0010, h01=0x0050, text=»* FLAGS«, t00=0x0063, t01=0x00be}
0x09b66…09b86 Head {h00=0x001c, h01=0x0050, text=» RES 1 PLC OPERABLE FLAG«, t00=0x0063, t01=0x00d2}
0x09b86…09bac Head {h00=0x0022, h01=0x0050, text=» DATA 0 CCA BUSY FLAG (0=FREE)«, t00=0x0063, t01=0x00f2}
0x09bac…09bdc Head {h00=0x002c, h01=0x0050, text=» DATA 1 GENERAL READ ALLOWED (0=ALLOWED)«, t00=0x0063, t01=0x0118}
0x09bdc…09be6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0148}
0x09be6…09c00 Head {h00=0x0016, h01=0x0050, text=»* DATA WORDS «, t00=0x0063, t01=0x0152}
0x09c00…09c24 Head {h00=0x0020, h01=0x0050, text=» DATA 6 PLC NUMBER (4-7) =5 «, t00=0x0063, t01=0x016c}
0x09c24…09c56 Head {h00=0x002e, h01=0x0050, text=» DATA 0 WORK STATION TO ABORT (0=NO ABORT)«, t00=0x0063, t01=0x0190}
0x09c56…09c7c Head {h00=0x0022, h01=0x0050, text=» DATA 0 LATEST PLC RCA STATUS «, t00=0x0064, t01=0x0032}
0x09c7c…09c9e Head {h00=0x001e, h01=0x0050, text=» DATA 0 LINE NO INDICATOR «, t00=0x0064, t01=0x0058}
0x09c9e…09cc6 Head {h00=0x0024, h01=0x0050, text=» DATA 0 INDEX TO PARAMETER AREAS«, t00=0x0064, t01=0x007a}
0x09cc6…09cd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x00a2}
0x09cd0…09cf8 Head {h00=0x0024, h01=0x0050, text=»* POINTERS AND QUEUE HEADS «, t00=0x0064, t01=0x00ac}
0x09cf8…09d30 Head {h00=0x0034, h01=0x0050, text=» DATA OPARR3 OPEN LINE PARAMETER AREA ADDRESSES «, t00=0x0064, t01=0x00d4}
0x09d30…09d60 Head {h00=0x002c, h01=0x0050, text=» DATA INTPR3 WORK STATION TABLE ADDRESS «, t00=0x0064, t01=0x010c}
0x09d60…09d84 Head {h00=0x0020, h01=0x0050, text=» DATA 0 INPUT BUFFER ADDRESS«, t00=0x0064, t01=0x013c}
0x09d84…09db2 Head {h00=0x002a, h01=0x0050, text=» DATA 0 QUEUE FOR SHORT OUTPUT BUFFER «, t00=0x0064, t01=0x0160}
0x09db2…09dde Head {h00=0x0028, h01=0x0050, text=» DATA 0 QUEUE FOR LONG OUTPUT BUFFER«, t00=0x0064, t01=0x018e}
0x09dde…09e00 Head {h00=0x001e, h01=0x0050, text=» DATA 0 QUEUE FOR CCA FREE«, t00=0x0065, t01=0x002a}
0x09e00…09e32 Head {h00=0x002e, h01=0x0050, text=» DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS «, t00=0x0065, t01=0x004c}
0x09e32…09e62 Head {h00=0x002c, h01=0x0050, text=» DATA 0 TIMER POINTER FOR RESTART DELAY «, t00=0x0065, t01=0x007e}
0x09e62…09e6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00ae}
0x09e6c…09e88 Head {h00=0x0018, h01=0x0050, text=»* INSTRUCTIONS «, t00=0x0065, t01=0x00b8}
0x09e88…09eb4 Head {h00=0x0028, h01=0x0050, text=» CIO A3,1,PLCDA6 START I/O OPERATION«, t00=0x0065, t01=0x00d4}
0x09eb4…09eea Head {h00=0x0032, h01=0x0050, text=» SST A3,PLCDA6 RELEASE RCA AND RESET INTERRUPT«, t00=0x0065, t01=0x0100}
0x09eea…09ef4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0136}
0x09ef4…09f14 Head {h00=0x001c, h01=0x0050, text=»* PLC CONTROL AREAS«, t00=0x0065, t01=0x0140}
0x09f14…09f46 Head {h00=0x002e, h01=0x0050, text=»* CONTROL UNIT START DESCRIPTOR (3 WORDS) «, t00=0x0065, t01=0x0160}
0x09f46…09f6a (102, 0, 400) Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x0066, t01=0x0004}
0x09f6a…09f92 Head {h00=0x0024, h01=0x0050, text=» DATA PR3CWT+CWTCID CID ADDRESS «, t00=0x0066, t01=0x0028}
0x09f92…09fb6 Head {h00=0x0020, h01=0x0050, text=» DATA INTRV2 INTERRUPT LEVEL«, t00=0x0066, t01=0x0050}
0x09fb6…09fec Head {h00=0x0032, h01=0x0050, text=»* CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) «, t00=0x0066, t01=0x0074}
0x09fec…0a010 Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x0066, t01=0x00aa}
0x0a010…0a038 Head {h00=0x0024, h01=0x0050, text=» DATA PR3CWT+CWTCCA CCA ADDRESS «, t00=0x0066, t01=0x00ce}
0x0a038…0a05c Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x0066, t01=0x00f6}
0x0a05c…0a084 Head {h00=0x0024, h01=0x0050, text=» DATA PR3CWT+CWTRCA RCA ADDRESS «, t00=0x0066, t01=0x011a}
0x0a084…0a0ac Head {h00=0x0024, h01=0x0050, text=» DATA 0 INTERRUPT SPECIFICATION «, t00=0x0066, t01=0x0142}
0x0a0ac…0a0d0 Head {h00=0x0020, h01=0x0050, text=» RES 8 COMMAND CONTROL AREA «, t00=0x0066, t01=0x016a}
0x0a0d0…0a0f4 Head {h00=0x0020, h01=0x0050, text=» RES 8 RESPONSE CONTROL AREA«, t00=0x0066, t01=0x018e}
0x0a0f4…0a0fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0022}
0x0a0fe…0a12a Head {h00=0x0028, h01=0x0050, text=»* POOLBLOCKS (5 WORDS / BLOCK) «, t00=0x0067, t01=0x002c}
0x0a12a…0a15a Head {h00=0x002c, h01=0x0050, text=» DATA 'SO',0 ID = "SHORT OUTPUT" & FLAGS«, t00=0x0067, t01=0x0058}
0x0a15a…0a192 Head {h00=0x0034, h01=0x0050, text=» DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH«, t00=0x0067, t01=0x0088}
0x0a192…0a1ba Head {h00=0x0024, h01=0x0050, text=» DATA SOBUFS+SOBUFS AREA LENGTH «, t00=0x0067, t01=0x00c0}
0x0a1ba…0a1e2 Head {h00=0x0024, h01=0x0050, text=» DATA 'LO',0 ID = "LONG OUTPUT" «, t00=0x0067, t01=0x00e8}
0x0a1e2…0a200 Head {h00=0x001a, h01=0x0050, text=» DATA 0,LOBUF1+LOBUF1 «, t00=0x0067, t01=0x0110}
0x0a200…0a21c Head {h00=0x0018, h01=0x0050, text=» DATA LOBUFS+LOBUFS «, t00=0x0067, t01=0x012e}
0x0a21c…0a244 Head {h00=0x0024, h01=0x0050, text=» DATA 'GR',0 ID = "GENERAL READ"«, t00=0x0067, t01=0x014a}
0x0a244…0a262 Head {h00=0x001a, h01=0x0050, text=» DATA 0,GRBUF1+GRBUF1 «, t00=0x0067, t01=0x0172}
0x0a262…0a27e Head {h00=0x0018, h01=0x0050, text=» DATA GRBUFS+GRBUFS «, t00=0x0067, t01=0x0190}
0x0a27e…0a288 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x001c}
0x0a288…0a2be Head {h00=0x0032, h01=0x0050, text=»* WORK STATION STATUS WORDS. 1 WORD / WS «, t00=0x0068, t01=0x0026}
0x0a2be…0a2f4 Head {h00=0x0032, h01=0x0050, text=» RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. «, t00=0x0068, t01=0x005c}
0x0a2f4…0a2fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0092}
0x0a2fe…0a31a Head {h00=0x0018, h01=0x0050, text=»* BUFFER AREAS «, t00=0x0068, t01=0x009c}
0x0a31a…0a342 Head {h00=0x0024, h01=0x0050, text=» RES SOBUFS SHORT OUTPUT BUFFERS«, t00=0x0068, t01=0x00b8}
0x0a342…0a36a Head {h00=0x0024, h01=0x0050, text=» RES LOBUFS LONG OUTPUT BUFFERS «, t00=0x0068, t01=0x00e0}
0x0a36a…0a392 Head {h00=0x0024, h01=0x0050, text=» RES GRBUFS GENERAL READ BUFFERS«, t00=0x0068, t01=0x0108}
0x0a392…0a39c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0130}
0x0a39c…0a3a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x013a}
0x0a3a6…0a3b4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0068, t01=0x0144}
0x0a3b4…0a3ca Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=3 «, t00=0x0068, t01=0x0152}
0x0a3ca…0a3d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0168}
0x0a3d4…0a3fc Head {h00=0x0024, h01=0x0050, text=»* CWT FOR PLC NUMBER 8 REMOTE«, t00=0x0068, t01=0x0172}
0x0a3fc…0a406 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x000a}
0x0a406…0a41a Head {h00=0x0010, h01=0x0050, text=»PR4CWT EQU *«, t00=0x0069, t01=0x0014}
0x0a41a…0a424 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0028}
0x0a424…0a438 Head {h00=0x0010, h01=0x0050, text=»* FLAGS«, t00=0x0069, t01=0x0032}
0x0a438…0a458 Head {h00=0x001c, h01=0x0050, text=» RES 1 PLC OPERABLE FLAG«, t00=0x0069, t01=0x0046}
0x0a458…0a47e Head {h00=0x0022, h01=0x0050, text=» DATA 0 CCA BUSY FLAG (0=FREE)«, t00=0x0069, t01=0x0066}
0x0a47e…0a4ae Head {h00=0x002c, h01=0x0050, text=» DATA 1 GENERAL READ ALLOWED (0=ALLOWED)«, t00=0x0069, t01=0x008c}
0x0a4ae…0a4b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00bc}
0x0a4b8…0a4d2 Head {h00=0x0016, h01=0x0050, text=»* DATA WORDS «, t00=0x0069, t01=0x00c6}
0x0a4d2…0a4f6 Head {h00=0x0020, h01=0x0050, text=» DATA 7 PLC NUMBER (4-7) =5 «, t00=0x0069, t01=0x00e0}
0x0a4f6…0a528 Head {h00=0x002e, h01=0x0050, text=» DATA 0 WORK STATION TO ABORT (0=NO ABORT)«, t00=0x0069, t01=0x0104}
0x0a528…0a54e Head {h00=0x0022, h01=0x0050, text=» DATA 0 LATEST PLC RCA STATUS «, t00=0x0069, t01=0x0136}
0x0a54e…0a570 Head {h00=0x001e, h01=0x0050, text=» DATA 0 LINE NO INDICATOR «, t00=0x0069, t01=0x015c}
0x0a570…0a598 Head {h00=0x0024, h01=0x0050, text=» DATA 0 INDEX TO PARAMETER AREAS«, t00=0x0069, t01=0x017e}
0x0a598…0a5a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0016}
0x0a5a2…0a5ca Head {h00=0x0024, h01=0x0050, text=»* POINTERS AND QUEUE HEADS «, t00=0x006a, t01=0x0020}
0x0a5ca…0a602 Head {h00=0x0034, h01=0x0050, text=» DATA OPARR4 OPEN LINE PARAMETER AREA ADDRESSES «, t00=0x006a, t01=0x0048}
0x0a602…0a632 Head {h00=0x002c, h01=0x0050, text=» DATA INTPR4 WORK STATION TABLE ADDRESS «, t00=0x006a, t01=0x0080}
0x0a632…0a656 Head {h00=0x0020, h01=0x0050, text=» DATA 0 INPUT BUFFER ADDRESS«, t00=0x006a, t01=0x00b0}
0x0a656…0a684 Head {h00=0x002a, h01=0x0050, text=» DATA 0 QUEUE FOR SHORT OUTPUT BUFFER «, t00=0x006a, t01=0x00d4}
0x0a684…0a6b0 Head {h00=0x0028, h01=0x0050, text=» DATA 0 QUEUE FOR LONG OUTPUT BUFFER«, t00=0x006a, t01=0x0102}
0x0a6b0…0a6d2 Head {h00=0x001e, h01=0x0050, text=» DATA 0 QUEUE FOR CCA FREE«, t00=0x006a, t01=0x012e}
0x0a6d2…0a704 Head {h00=0x002e, h01=0x0050, text=» DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS «, t00=0x006a, t01=0x0150}
0x0a704…0a734 Head {h00=0x002c, h01=0x0050, text=» DATA 0 TIMER POINTER FOR RESTART DELAY «, t00=0x006a, t01=0x0182}
0x0a734…0a73e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0022}
0x0a73e…0a75a Head {h00=0x0018, h01=0x0050, text=»* INSTRUCTIONS «, t00=0x006b, t01=0x002c}
0x0a75a…0a786 Head {h00=0x0028, h01=0x0050, text=» CIO A3,1,PLCDA7 START I/O OPERATION«, t00=0x006b, t01=0x0048}
0x0a786…0a7bc Head {h00=0x0032, h01=0x0050, text=» SST A3,PLCDA7 RELEASE RCA AND RESET INTERRUPT«, t00=0x006b, t01=0x0074}
0x0a7bc…0a7c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x00aa}
0x0a7c6…0a7e6 Head {h00=0x001c, h01=0x0050, text=»* PLC CONTROL AREAS«, t00=0x006b, t01=0x00b4}
0x0a7e6…0a818 Head {h00=0x002e, h01=0x0050, text=»* CONTROL UNIT START DESCRIPTOR (3 WORDS) «, t00=0x006b, t01=0x00d4}
0x0a818…0a83c Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x006b, t01=0x0106}
0x0a83c…0a864 Head {h00=0x0024, h01=0x0050, text=» DATA PR4CWT+CWTCID CID ADDRESS «, t00=0x006b, t01=0x012a}
0x0a864…0a888 Head {h00=0x0020, h01=0x0050, text=» DATA INTRV3 INTERRUPT LEVEL«, t00=0x006b, t01=0x0152}
0x0a888…0a8be Head {h00=0x0032, h01=0x0050, text=»* CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) «, t00=0x006b, t01=0x0176}
0x0a8be…0a8e2 Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x006c, t01=0x001c}
0x0a8e2…0a90a Head {h00=0x0024, h01=0x0050, text=» DATA PR4CWT+CWTCCA CCA ADDRESS «, t00=0x006c, t01=0x0040}
0x0a90a…0a92e Head {h00=0x0020, h01=0x0050, text=» DATA 0 DUMMY & MSB ADDRESS «, t00=0x006c, t01=0x0068}
0x0a92e…0a956 Head {h00=0x0024, h01=0x0050, text=» DATA PR4CWT+CWTRCA RCA ADDRESS «, t00=0x006c, t01=0x008c}
0x0a956…0a97e Head {h00=0x0024, h01=0x0050, text=» DATA 0 INTERRUPT SPECIFICATION «, t00=0x006c, t01=0x00b4}
0x0a97e…0a9a2 Head {h00=0x0020, h01=0x0050, text=» RES 8 COMMAND CONTROL AREA «, t00=0x006c, t01=0x00dc}
0x0a9a2…0a9c6 Head {h00=0x0020, h01=0x0050, text=» RES 8 RESPONSE CONTROL AREA«, t00=0x006c, t01=0x0100}
0x0a9c6…0a9d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0124}
0x0a9d0…0a9fc Head {h00=0x0028, h01=0x0050, text=»* POOLBLOCKS (5 WORDS / BLOCK) «, t00=0x006c, t01=0x012e}
0x0a9fc…0aa2c Head {h00=0x002c, h01=0x0050, text=» DATA 'SO',0 ID = "SHORT OUTPUT" & FLAGS«, t00=0x006c, t01=0x015a}
0x0aa2c…0aa64 Head {h00=0x0034, h01=0x0050, text=» DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH«, t00=0x006c, t01=0x018a}
0x0aa64…0aa8c Head {h00=0x0024, h01=0x0050, text=» DATA SOBUFS+SOBUFS AREA LENGTH «, t00=0x006d, t01=0x0032}
0x0aa8c…0aab4 Head {h00=0x0024, h01=0x0050, text=» DATA 'LO',0 ID = "LONG OUTPUT" «, t00=0x006d, t01=0x005a}
0x0aab4…0aad2 Head {h00=0x001a, h01=0x0050, text=» DATA 0,LOBUF1+LOBUF1 «, t00=0x006d, t01=0x0082}
0x0aad2…0aaee Head {h00=0x0018, h01=0x0050, text=» DATA LOBUFS+LOBUFS «, t00=0x006d, t01=0x00a0}
0x0aaee…0ab16 Head {h00=0x0024, h01=0x0050, text=» DATA 'GR',0 ID = "GENERAL READ"«, t00=0x006d, t01=0x00bc}
0x0ab16…0ab34 Head {h00=0x001a, h01=0x0050, text=» DATA 0,GRBUF1+GRBUF1 «, t00=0x006d, t01=0x00e4}
0x0ab34…0ab50 Head {h00=0x0018, h01=0x0050, text=» DATA GRBUFS+GRBUFS «, t00=0x006d, t01=0x0102}
0x0ab50…0ab5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x011e}
0x0ab5a…0ab90 Head {h00=0x0032, h01=0x0050, text=»* WORK STATION STATUS WORDS. 1 WORD / WS «, t00=0x006d, t01=0x0128}
0x0ab90…0abc6 Head {h00=0x0032, h01=0x0050, text=» RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. «, t00=0x006d, t01=0x015e}
0x0abc6…0abd0 (110, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0004}
0x0abd0…0abec Head {h00=0x0018, h01=0x0050, text=»* BUFFER AREAS «, t00=0x006e, t01=0x000e}
0x0abec…0ac14 Head {h00=0x0024, h01=0x0050, text=» RES SOBUFS SHORT OUTPUT BUFFERS«, t00=0x006e, t01=0x002a}
0x0ac14…0ac3c Head {h00=0x0024, h01=0x0050, text=» RES LOBUFS LONG OUTPUT BUFFERS «, t00=0x006e, t01=0x0052}
0x0ac3c…0ac64 Head {h00=0x0024, h01=0x0050, text=» RES GRBUFS GENERAL READ BUFFERS«, t00=0x006e, t01=0x007a}
0x0ac64…0ac6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00a2}
0x0ac6e…0ac78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00ac}
0x0ac78…0ac84 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006e, t01=0x00b6}
0x0ac84…0ac92 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006e, t01=0x00c2}
0x0ac92…0ac9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00d0}
0x0ac9c…0acc6 Head {h00=0x0026, h01=0x0050, text=»* I/O COMPLETION DISPATCH TABLE«, t00=0x006e, t01=0x00da}
0x0acc6…0acd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0104}
0x0acd0…0ad06 Head {h00=0x0032, h01=0x0050, text=»* THE MOST FREQUENTLY USED ROUTINES ARE PLACED«, t00=0x006e, t01=0x010e}
0x0ad06…0ad3a Head {h00=0x0030, h01=0x0050, text=»* AT THE END OF THE TABLE, AS IT IS SCANNED «, t00=0x006e, t01=0x0144}
0x0ad3a…0ad52 Head {h00=0x0014, h01=0x0050, text=»* FROM THE END. «, t00=0x006e, t01=0x0178}
0x0ad52…0ad5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0190}
0x0ad5c…0ad70 Head {h00=0x0010, h01=0x0050, text=»CMDTAB EQU *«, t00=0x006f, t01=0x000a}
0x0ad70…0ada4 Head {h00=0x0030, h01=0x0050, text=» DATA CMDTC COMMAND CODE "TEST CHANNEL UNIT"«, t00=0x006f, t01=0x001e}
0x0ada4…0adde Head {h00=0x0036, h01=0x0050, text=» DATA COMPTC START OF "TEST CU" COMPLETION ROUTINE«, t00=0x006f, t01=0x0052}
0x0adde…0ae12 Head {h00=0x0030, h01=0x0050, text=» DATA 0 ALLOWED STATUS FOR "TEST CU" COMMAND«, t00=0x006f, t01=0x008c}
0x0ae12…0ae42 Head {h00=0x002c, h01=0x0050, text=»CMDTB1 EQU *-CMDTAB LENGTH OF ONE ENTRY «, t00=0x006f, t01=0x00c0}
0x0ae42…0ae60 Head {h00=0x001a, h01=0x0050, text=» DATA CMDOP OPEN LINE «, t00=0x006f, t01=0x00f0}
0x0ae60…0ae74 Head {h00=0x0010, h01=0x0050, text=» DATA COMPOP«, t00=0x006f, t01=0x010e}
0x0ae74…0ae84 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x006f, t01=0x0122}
0x0ae84…0aea0 Head {h00=0x0018, h01=0x0050, text=» DATA CMDOD OPEN DLS«, t00=0x006f, t01=0x0132}
0x0aea0…0aeb4 Head {h00=0x0010, h01=0x0050, text=» DATA COMPOD«, t00=0x006f, t01=0x014e}
0x0aeb4…0aed0 Head {h00=0x0018, h01=0x0050, text=» DATA STADNO+STANOC «, t00=0x006f, t01=0x0162}
0x0aed0…0aee6 Head {h00=0x0012, h01=0x0050, text=» IFT PLCTST=1 «, t00=0x006f, t01=0x017e}
0x0aee6…0af0e (112, 0, 400) Head {h00=0x0024, h01=0x0050, text=» DATA CMDPS GET LINE STATISTICS «, t00=0x0070, t01=0x0004}
0x0af0e…0af22 Head {h00=0x0010, h01=0x0050, text=» DATA COMPPS«, t00=0x0070, t01=0x002c}
0x0af22…0af48 Head {h00=0x0022, h01=0x0050, text=»STAE2 EQU STAREQ+STAILL DUMMY «, t00=0x0070, t01=0x0040}
0x0af48…0af6e Head {h00=0x0022, h01=0x0050, text=»STAE3 EQU STASEQ+STANOB DUMMY «, t00=0x0070, t01=0x0066}
0x0af6e…0af88 Head {h00=0x0016, h01=0x0050, text=» DATA STAE2+STAE3 «, t00=0x0070, t01=0x008c}
0x0af88…0afae Head {h00=0x0022, h01=0x0050, text=» DATA CMDDS GET DLS STATISTICS«, t00=0x0070, t01=0x00a6}
0x0afae…0afc2 Head {h00=0x0010, h01=0x0050, text=» DATA COMPDS«, t00=0x0070, t01=0x00cc}
0x0afc2…0afdc Head {h00=0x0016, h01=0x0050, text=» DATA STAE2+STAE3 «, t00=0x0070, t01=0x00e0}
0x0afdc…0b002 Head {h00=0x0022, h01=0x0050, text=» DATA CMDRM READ LOCAL MEMORY «, t00=0x0070, t01=0x00fa}
0x0b002…0b016 Head {h00=0x0010, h01=0x0050, text=» DATA COMPRM«, t00=0x0070, t01=0x0120}
0x0b016…0b02a Head {h00=0x0010, h01=0x0050, text=» DATA STAE2 «, t00=0x0070, t01=0x0134}
0x0b02a…0b034 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0148}
0x0b034…0b042 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0070, t01=0x0152}
0x0b042…0b04c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0160}
0x0b04c…0b058 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0070, t01=0x016a}
0x0b058…0b07a Head {h00=0x001e, h01=0x0050, text=» DATA CMDSW STANDARD WRITE«, t00=0x0070, t01=0x0176}
0x0b07a…0b08e Head {h00=0x0010, h01=0x0050, text=» DATA COMPSW«, t00=0x0071, t01=0x0008}
0x0b08e…0b0a2 Head {h00=0x0010, h01=0x0050, text=» DATA STAERR«, t00=0x0071, t01=0x001c}
0x0b0a2…0b0c0 Head {h00=0x001a, h01=0x0050, text=» DATA CMDFW FAST WRITE«, t00=0x0071, t01=0x0030}
0x0b0c0…0b0d4 Head {h00=0x0010, h01=0x0050, text=» DATA COMPFW«, t00=0x0071, t01=0x004e}
0x0b0d4…0b0e8 Head {h00=0x0010, h01=0x0050, text=» DATA STAERR«, t00=0x0071, t01=0x0062}
0x0b0e8…0b108 Head {h00=0x001c, h01=0x0050, text=» DATA CMDGR GENERAL READ«, t00=0x0071, t01=0x0076}
0x0b108…0b11c Head {h00=0x0010, h01=0x0050, text=» DATA COMPGR«, t00=0x0071, t01=0x0096}
0x0b11c…0b12c Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0071, t01=0x00aa}
0x0b12c…0b154 Head {h00=0x0024, h01=0x0050, text=»CMDTBL EQU *-CMDTAB TABLE LENGTH«, t00=0x0071, t01=0x00ba}
0x0b154…0b15e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00e2}
0x0b15e…0b16c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0071, t01=0x00ec}
0x0b16c…0b176 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00fa}
0x0b176…0b1a2 Head {h00=0x0028, h01=0x0050, text=»* READ COMPLETION DISPATCH TABLE «, t00=0x0071, t01=0x0104}
0x0b1a2…0b1ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0130}
0x0b1ac…0b1e2 Head {h00=0x0032, h01=0x0050, text=»* THIS TABLE IS INDEXED BY THE "MESSAGE TYPE" «, t00=0x0071, t01=0x013a}
0x0b1e2…0b204 Head {h00=0x001e, h01=0x0050, text=»* CONSTANTS DEFINED ABOVE.«, t00=0x0071, t01=0x0170}
0x0b204…0b218 (114, 0, 400) Head {h00=0x0010, h01=0x0050, text=»REAROU EQU *«, t00=0x0072, t01=0x0004}
0x0b218…0b23a Head {h00=0x001e, h01=0x0050, text=» DATA GRERR1 ERROR ROUTINE«, t00=0x0072, t01=0x0018}
0x0b23a…0b274 Head {h00=0x0036, h01=0x0050, text=» DATA GRERR1 DATA PACKET NO FLOW C. (NOT IMPLEM.) «, t00=0x0072, t01=0x003a}
0x0b274…0b2a2 Head {h00=0x002a, h01=0x0050, text=» DATA GRSTAT DEVICE STATUS DATA PACKET«, t00=0x0072, t01=0x0074}
0x0b2a2…0b2ca Head {h00=0x0024, h01=0x0050, text=» DATA GRDATA NORMAL DATA PACKET «, t00=0x0072, t01=0x00a2}
0x0b2ca…0b2f2 Head {h00=0x0024, h01=0x0050, text=» DATA GRRR RECIEVE READY PACKET «, t00=0x0072, t01=0x00ca}
0x0b2f2…0b312 Head {h00=0x001c, h01=0x0050, text=» DATA GRRES RESET PACKET«, t00=0x0072, t01=0x00f2}
0x0b312…0b34a Head {h00=0x0034, h01=0x0050, text=» DATA GRERR1 RESET CONFIRM. PACKET (NOT IMPLEM.)«, t00=0x0072, t01=0x0112}
0x0b34a…0b354 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x014a}
0x0b354…0b35e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0154}
0x0b35e…0b38a Head {h00=0x0028, h01=0x0050, text=»* WRITE COMPLETION DISPATCH TABLE«, t00=0x0072, t01=0x015e}
0x0b38a…0b394 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x018a}
0x0b394…0b3ca (115, 0, 400) Head {h00=0x0032, h01=0x0050, text=»* THIS TABLE IS INDEXED BY THE "MESSAGE TYPE" «, t00=0x0073, t01=0x0004}
0x0b3ca…0b3ec Head {h00=0x001e, h01=0x0050, text=»* CONSTANTS DEFINED ABOVE.«, t00=0x0073, t01=0x003a}
0x0b3ec…0b400 Head {h00=0x0010, h01=0x0050, text=»WRIROU EQU *«, t00=0x0073, t01=0x005c}
0x0b400…0b422 Head {h00=0x001e, h01=0x0050, text=» DATA WRERR ERROR ROUTINE «, t00=0x0073, t01=0x0070}
0x0b422…0b458 Head {h00=0x0032, h01=0x0050, text=» DATA WRNFLO DATA PACKET WITHOUT FLOW CONTROL «, t00=0x0073, t01=0x0092}
0x0b458…0b48e Head {h00=0x0032, h01=0x0050, text=» DATA WRERR DEVICE STATUS DATA (NOT RELEVANT) «, t00=0x0073, t01=0x00c8}
0x0b48e…0b4b6 Head {h00=0x0024, h01=0x0050, text=» DATA WRDATA NORMAL DATA PACKET «, t00=0x0073, t01=0x00fe}
0x0b4b6…0b4de Head {h00=0x0024, h01=0x0050, text=» DATA WRRR RECIEVE READY PACKET «, t00=0x0073, t01=0x0126}
0x0b4de…0b510 Head {h00=0x002e, h01=0x0050, text=» DATA WRERR RESET PACKET (NOT IMPLEMENTED)«, t00=0x0073, t01=0x014e}
0x0b510…0b53e Head {h00=0x002a, h01=0x0050, text=» DATA WRRESC RESET CONFIRMATION PACKET«, t00=0x0073, t01=0x0180}
0x0b53e…0b548 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x001e}
0x0b548…0b556 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0074, t01=0x0028}
0x0b556…0b560 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0036}
0x0b560…0b57c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0074, t01=0x0040}
0x0b57c…0b598 Head {h00=0x0018, h01=0x0050, text=»* REQUEST ROUTINES *«, t00=0x0074, t01=0x005c}
0x0b598…0b5b4 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0074, t01=0x0078}
0x0b5b4…0b5be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0094}
0x0b5be…0b5fa Head {h00=0x0038, h01=0x0050, text=»* THIS SECTION CONTAINS REQUEST HANDLING ROUTINES.«, t00=0x0074, t01=0x009e}
0x0b5fa…0b634 Head {h00=0x0036, h01=0x0050, text=»* THE REQUEST ROUTINES ARE CALLED FROM TERMINAL «, t00=0x0074, t01=0x00da}
0x0b634…0b66e Head {h00=0x0036, h01=0x0050, text=»* DEVICE DRIVERS. THIS IS NORMALLY DONE THROUGH «, t00=0x0074, t01=0x0114}
0x0b66e…0b6ac Head {h00=0x003a, h01=0x0050, text=»* THE TERMINAL NETWORK DISTRIBUTOR DRIVER (DRND01). «, t00=0x0074, t01=0x014e}
0x0b6ac…0b6e2 Head {h00=0x0032, h01=0x0050, text=»* THE DISTRIBUTOR DRIVER WILL SWITCH CALL TO«, t00=0x0074, t01=0x018c}
0x0b6e2…0b71c Head {h00=0x0036, h01=0x0050, text=»* CONNECTED LINE DRIVER. RETURN IS MADE DIRECTLY«, t00=0x0075, t01=0x0032}
0x0b71c…0b754 Head {h00=0x0034, h01=0x0050, text=»* FROM THIS DRIVER TO TERMINAL DEVICE DRIVER. «, t00=0x0075, t01=0x006c}
0x0b754…0b78e Head {h00=0x0036, h01=0x0050, text=»* A CALL WILL NORMALLY RESULT IN A WAIT FOR SOME«, t00=0x0075, t01=0x00a4}
0x0b78e…0b7ca Head {h00=0x0038, h01=0x0050, text=»* I/O ACTION AND DISPATCHING. THIS MEANS, THAT AT «, t00=0x0075, t01=0x00de}
0x0b7ca…0b806 Head {h00=0x0038, h01=0x0050, text=»* TIME OF CALL THE DEVICE DRIVER MAY NOT HAVE ANY «, t00=0x0075, t01=0x011a}
0x0b806…0b828 Head {h00=0x001e, h01=0x0050, text=»* DATA ON THE A15 STACK.«, t00=0x0075, t01=0x0156}
0x0b828…0b832 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0178}
0x0b832…0b866 Head {h00=0x0030, h01=0x0050, text=»* ROUTINES IN ORDER OF APPEARANCE IN CODE:«, t00=0x0075, t01=0x0182}
0x0b866…0b870 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0026}
0x0b870…0b888 Head {h00=0x0014, h01=0x0050, text=»* NAME FUNCTION «, t00=0x0076, t01=0x0030}
0x0b888…0b892 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0048}
0x0b892…0b8ba Head {h00=0x0024, h01=0x0050, text=»* PLCHRI INPUT OF ONE CHARACTER «, t00=0x0076, t01=0x0052}
0x0b8ba…0b8e8 Head {h00=0x002a, h01=0x0050, text=»* PLSTBL DEFINE START OF OUTPUT BLOCK «, t00=0x0076, t01=0x007a}
0x0b8e8…0b910 Head {h00=0x0024, h01=0x0050, text=»* PLCHRO OUTPUT OF ONE CHARACTER«, t00=0x0076, t01=0x00a8}
0x0b910…0b93c Head {h00=0x0028, h01=0x0050, text=»* PLENBL DEFINE END OF OUTPUT BLOCK «, t00=0x0076, t01=0x00d0}
0x0b93c…0b966 Head {h00=0x0026, h01=0x0050, text=»* PLTEST PERFORM PLC TEST FUNCTION«, t00=0x0076, t01=0x00fc}
0x0b966…0b970 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0126}
0x0b970…0b97e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0076, t01=0x0130}
0x0b97e…0b988 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x013e}
0x0b988…0b9cc Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0076, t01=0x0148}
0x0b9cc…0b9d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x018c}
0x0b9d6…0b9ee Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0077, t01=0x0008}
0x0b9ee…0b9fe Head {h00=0x000c, h01=0x0050, text=»* PLCHRI«, t00=0x0077, t01=0x0020}
0x0b9fe…0ba08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0030}
0x0ba08…0ba1c Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0077, t01=0x003a}
0x0ba1c…0ba52 Head {h00=0x0032, h01=0x0050, text=»* THIS ROUTINE FETCHES ONE CHARACTER FROM THE «, t00=0x0077, t01=0x004e}
0x0ba52…0ba8a Head {h00=0x0034, h01=0x0050, text=»* INPUT BUFFER. IF NO BUFFER HAS ARRIVED, "INPUT«, t00=0x0077, t01=0x0084}
0x0ba8a…0babe Head {h00=0x0030, h01=0x0050, text=»* REQUESTED" FLAG IN DWT IS SET, AND CALLING«, t00=0x0077, t01=0x00bc}
0x0babe…0baf4 Head {h00=0x0032, h01=0x0050, text=»* PROCESS IS SUSPENDED UNTIL A BUFFER ARRIVES.«, t00=0x0077, t01=0x00f0}
0x0baf4…0bafe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0126}
0x0bafe…0bb0e Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0077, t01=0x0130}
0x0bb0e…0bb26 Head {h00=0x0014, h01=0x0050, text=»* ABI INPTAB,A1 «, t00=0x0077, t01=0x0140}
0x0bb26…0bb3c Head {h00=0x0012, h01=0x0050, text=»* CF A5,PLCHRI«, t00=0x0077, t01=0x0158}
0x0bb3c…0bb46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x016e}
0x0bb46…0bb56 Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0077, t01=0x0178}
0x0bb56…0bb72 Head {h00=0x0018, h01=0x0050, text=»* A6 = DWT ADDRESS «, t00=0x0077, t01=0x0188}
0x0bb72…0bb7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0014}
0x0bb7c…0bb8e Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0078, t01=0x001e}
0x0bb8e…0bbb2 Head {h00=0x0020, h01=0x0050, text=»* AT RETURN TO DEVICE DRIVER«, t00=0x0078, t01=0x0030}
0x0bbb2…0bbd4 Head {h00=0x001e, h01=0x0050, text=»* A1 = BITS 0-14 CHANGED«, t00=0x0078, t01=0x0054}
0x0bbd4…0bc00 Head {h00=0x0028, h01=0x0050, text=»* BIT 15 1 IF MORE CHAR IN BUFFER «, t00=0x0078, t01=0x0076}
0x0bc00…0bc1e Head {h00=0x001a, h01=0x0050, text=»* A2 = BITS 0-7 ZERO«, t00=0x0078, t01=0x00a2}
0x0bc1e…0bc3e Head {h00=0x001c, h01=0x0050, text=»* BITS 8-15 CHARACTER «, t00=0x0078, t01=0x00c0}
0x0bc3e…0bc58 Head {h00=0x0016, h01=0x0050, text=»* INTERR. ENABLED «, t00=0x0078, t01=0x00e0}
0x0bc58…0bc62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x00fa}
0x0bc62…0bca6 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0078, t01=0x0104}
0x0bca6…0bcb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0148}
0x0bcb0…0bcc4 Head {h00=0x0010, h01=0x0050, text=»PLCHRI EQU *«, t00=0x0078, t01=0x0152}
0x0bcc4…0bcd8 Head {h00=0x0010, h01=0x0050, text=»PRCHRI EQU *«, t00=0x0078, t01=0x0166}
0x0bcd8…0bcf4 Head {h00=0x0018, h01=0x0050, text=» STR A4,A15 PUSH A4 «, t00=0x0078, t01=0x017a}
0x0bcf4…0bd20 Head {h00=0x0028, h01=0x0050, text=» LD A4,DWTLD1,A6 INPUT TEXT WAITING?«, t00=0x0079, t01=0x0008}
0x0bd20…0bd46 Head {h00=0x0022, h01=0x0050, text=» RF(Z) CI100 NO, WAIT FOR TEXT«, t00=0x0079, t01=0x0034}
0x0bd46…0bd50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x005a}
0x0bd50…0bd5e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0079, t01=0x0064}
0x0bd5e…0bd68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0072}
0x0bd68…0bd98 Head {h00=0x002c, h01=0x0050, text=» CF A15,PLGECH GET CHARACTER FROM BUFFER«, t00=0x0079, t01=0x007c}
0x0bd98…0bdbe Head {h00=0x0022, h01=0x0050, text=» LDR A1,A1 CHECK RETURN STATUS«, t00=0x0079, t01=0x00ac}
0x0bdbe…0bdee Head {h00=0x002c, h01=0x0050, text=» RF(N) CI100 BUFFER EMPTY, WAIT FOR NEXT«, t00=0x0079, t01=0x00d2}
0x0bdee…0be0a Head {h00=0x0018, h01=0x0050, text=» LDR* A4,A15 POP A4 «, t00=0x0079, t01=0x0102}
0x0be0a…0be34 Head {h00=0x0026, h01=0x0050, text=» RF CI110 RETURN TO DEVICE DRIVER «, t00=0x0079, t01=0x011e}
0x0be34…0be3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0148}
0x0be3e…0be48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0152}
0x0be48…0be5c Head {h00=0x0010, h01=0x0050, text=»CI100 EQU * «, t00=0x0079, t01=0x015c}
0x0be5c…0be78 Head {h00=0x0018, h01=0x0050, text=» LDR* A4,A15 POP A4 «, t00=0x0079, t01=0x0170}
0x0be78…0bea6 Head {h00=0x002a, h01=0x0050, text=» LDK A2,DWFINP FLAG "INPUT REQUESTED" «, t00=0x0079, t01=0x018c}
0x0bea6…0beda Head {h00=0x0030, h01=0x0050, text=» ORS A2,DWTST,A6 SET INPUT REQUESTED IN DWT «, t00=0x007a, t01=0x002a}
0x0beda…0bf0a Head {h00=0x002c, h01=0x0050, text=» CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT «, t00=0x007a, t01=0x005e}
0x0bf0a…0bf2e Head {h00=0x0020, h01=0x0050, text=» ABL PLDISP LOCAL DISPATCHER«, t00=0x007a, t01=0x008e}
0x0bf2e…0bf38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x00b2}
0x0bf38…0bf42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x00bc}
0x0bf42…0bf80 Head {h00=0x003a, h01=0x0050, text=»* ENTRY IS MADE HERE WHEN A NEW BUFFER HAS ARRIVED «, t00=0x007a, t01=0x00c6}
0x0bf80…0bfa2 Head {h00=0x001e, h01=0x0050, text=»* REGISTERS ON ENTRY:«, t00=0x007a, t01=0x0104}
0x0bfa2…0bfd2 Head {h00=0x002c, h01=0x0050, text=»* A1 = NR OF CHARACTERS LEFT IN BUFFER «, t00=0x007a, t01=0x0126}
0x0bfd2…0bff0 Head {h00=0x001a, h01=0x0050, text=»* A2 = BITS 0-7 ZERO«, t00=0x007a, t01=0x0156}
0x0bff0…0c010 Head {h00=0x001c, h01=0x0050, text=»* BITS 8-15 CHARACTER «, t00=0x007a, t01=0x0174}
0x0c010…0c02e (123, 0, 400) Head {h00=0x001a, h01=0x0050, text=»* A4 = BUFFER ADDRESS«, t00=0x007b, t01=0x0004}
0x0c02e…0c04a Head {h00=0x0018, h01=0x0050, text=»* A6 = DWT ADDRESS «, t00=0x007b, t01=0x0022}
0x0c04a…0c054 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x003e}
0x0c054…0c068 Head {h00=0x0010, h01=0x0050, text=»INPRST EQU *«, t00=0x007b, t01=0x0048}
0x0c068…0c09e Head {h00=0x0032, h01=0x0050, text=» LDKL A3,/FFFF-DWFINP MASK FOR INPUT REQUESTED«, t00=0x007b, t01=0x005c}
0x0c09e…0c0c2 Head {h00=0x0020, h01=0x0050, text=» ANS A3,DWTST,A6 RESET FLAG «, t00=0x007b, t01=0x0092}
0x0c0c2…0c0ee Head {h00=0x0028, h01=0x0050, text=» ST A4,DWTLD1,A6 LINK BUFFER TO DWT «, t00=0x007b, t01=0x00b6}
0x0c0ee…0c0f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00e2}
0x0c0f8…0c128 Head {h00=0x002c, h01=0x0050, text=» CF A15,NDGET8 GET A3-A5, A7-A8 FROM DWT«, t00=0x007b, t01=0x00ec}
0x0c128…0c132 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x011c}
0x0c132…0c140 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007b, t01=0x0126}
0x0c140…0c14a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0134}
0x0c14a…0c15e Head {h00=0x0010, h01=0x0050, text=»CI110 EQU * «, t00=0x007b, t01=0x013e}
0x0c15e…0c182 Head {h00=0x0020, h01=0x0050, text=»* RETURN TO DEVICE DRIVER«, t00=0x007b, t01=0x0152}
0x0c182…0c1ae Head {h00=0x0028, h01=0x0050, text=» LDR A1,A1 ANY CHAR LEFT IN BUFFER? «, t00=0x007b, t01=0x0176}
0x0c1ae…0c1d0 Head {h00=0x001e, h01=0x0050, text=» RF(Z) CI120 NO, CONTINUE «, t00=0x007c, t01=0x0012}
0x0c1d0…0c1fa Head {h00=0x0026, h01=0x0050, text=» LDK A1,1 INDICATE MORE CHARACTERS«, t00=0x007c, t01=0x0034}
0x0c1fa…0c20c Head {h00=0x000e, h01=0x0050, text=» RF CI130 «, t00=0x007c, t01=0x005e}
0x0c20c…0c216 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0070}
0x0c216…0c22a Head {h00=0x0010, h01=0x0050, text=»CI120 EQU * «, t00=0x007c, t01=0x007a}
0x0c22a…0c24e Head {h00=0x0020, h01=0x0050, text=» CM DWTLD1,A6 UNLINK BUFFER «, t00=0x007c, t01=0x008e}
0x0c24e…0c262 Head {h00=0x0010, h01=0x0050, text=»CI130 EQU * «, t00=0x007c, t01=0x00b2}
0x0c262…0c26e Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x007c, t01=0x00c6}
0x0c26e…0c27e Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x007c, t01=0x00d2}
0x0c27e…0c288 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x00e2}
0x0c288…0c296 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007c, t01=0x00ec}
0x0c296…0c2a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x00fa}
0x0c2a0…0c2e4 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x007c, t01=0x0104}
0x0c2e4…0c2ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0148}
0x0c2ee…0c306 Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x007c, t01=0x0152}
0x0c306…0c316 Head {h00=0x000c, h01=0x0050, text=»* PLSTBL«, t00=0x007c, t01=0x016a}
0x0c316…0c320 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x017a}
0x0c320…0c334 Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x007c, t01=0x0184}
0x0c334…0c36c Head {h00=0x0034, h01=0x0050, text=»* THIS ROUTINE DEFINES START OF AN OUTPUT BLOCK.«, t00=0x007d, t01=0x0008}
0x0c36c…0c3a2 Head {h00=0x0032, h01=0x0050, text=»* IT ALLOCATES AN OUTPUT BUFFER, AND LINKS IT «, t00=0x007d, t01=0x0040}
0x0c3a2…0c3b8 Head {h00=0x0012, h01=0x0050, text=»* TO THE DWT. «, t00=0x007d, t01=0x0076}
0x0c3b8…0c3c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x008c}
0x0c3c2…0c3d2 Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x007d, t01=0x0096}
0x0c3d2…0c3ea Head {h00=0x0014, h01=0x0050, text=»* ABI STBTAB,A1 «, t00=0x007d, t01=0x00a6}
0x0c3ea…0c400 Head {h00=0x0012, h01=0x0050, text=»* CF A5,PLSTBL«, t00=0x007d, t01=0x00be}
0x0c400…0c40a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x00d4}
0x0c40a…0c41a Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x007d, t01=0x00de}
0x0c41a…0c452 Head {h00=0x0034, h01=0x0050, text=»* A2 = MAXIMAL LENGTH OF TEXT IN BLOCK (BYTES) «, t00=0x007d, t01=0x00ee}
0x0c452…0c46e Head {h00=0x0018, h01=0x0050, text=»* A6 = DWT ADDRESS «, t00=0x007d, t01=0x0126}
0x0c46e…0c478 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0142}
0x0c478…0c48a Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x007d, t01=0x014c}
0x0c48a…0c4ae Head {h00=0x0020, h01=0x0050, text=»* AT RETURN TO DEVICE DRIVER«, t00=0x007d, t01=0x015e}
0x0c4ae…0c4ca Head {h00=0x0018, h01=0x0050, text=»* A1 = RETURN CODE «, t00=0x007d, t01=0x0182}
0x0c4ca…0c4dc Head {h00=0x000e, h01=0x0050, text=»* 0 IF OK«, t00=0x007e, t01=0x000e}
0x0c4dc…0c4f6 Head {h00=0x0016, h01=0x0050, text=»* NOT 0 IF ERROR «, t00=0x007e, t01=0x0020}
0x0c4f6…0c52a Head {h00=0x0030, h01=0x0050, text=»* A2 = DEVICE STATUS (IF RELEVANT, IE A1=0)«, t00=0x007e, t01=0x003a}
0x0c52a…0c548 Head {h00=0x001a, h01=0x0050, text=»* CR = CONTENTS OF A1«, t00=0x007e, t01=0x006e}
0x0c548…0c562 Head {h00=0x0016, h01=0x0050, text=»* INTERR. ENABLED «, t00=0x007e, t01=0x008c}
0x0c562…0c56c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x00a6}
0x0c56c…0c5b0 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x007e, t01=0x00b0}
0x0c5b0…0c5ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x00f4}
0x0c5ba…0c5ce Head {h00=0x0010, h01=0x0050, text=»PLSTBL EQU *«, t00=0x007e, t01=0x00fe}
0x0c5ce…0c5e2 Head {h00=0x0010, h01=0x0050, text=»PRSTBL EQU *«, t00=0x007e, t01=0x0112}
0x0c5e2…0c5ee Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x007e, t01=0x0126}
0x0c5ee…0c61e Head {h00=0x002c, h01=0x0050, text=» CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT «, t00=0x007e, t01=0x0132}
0x0c61e…0c646 Head {h00=0x0024, h01=0x0050, text=» CF A15,GETCWT A5 := CWT ADDRESS«, t00=0x007e, t01=0x0162}
0x0c646…0c650 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x018a}
0x0c650…0c65e (127, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007f, t01=0x0004}
0x0c65e…0c668 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0012}
0x0c668…0c682 Head {h00=0x0016, h01=0x0050, text=»SB050 EQU * . =16 «, t00=0x007f, t01=0x001c}
0x0c682…0c6b4 Head {h00=0x002e, h01=0x0050, text=» LD A1,DWTLD1,A6 BUFFER ALREADY ALLOCATED?«, t00=0x007f, t01=0x0036}
0x0c6b4…0c6e0 Head {h00=0x0028, h01=0x0050, text=» ABL(NZ) NDREPO YES, SET OK & RETURN«, t00=0x007f, t01=0x0068}
0x0c6e0…0c70a Head {h00=0x0026, h01=0x0050, text=» CF A15,GETLCS A1 := STATUS & INH «, t00=0x007f, t01=0x0094}
0x0c70a…0c72e Head {h00=0x0020, h01=0x0050, text=» RF(NZ) SBERR2 ERROR, RETURN«, t00=0x007f, t01=0x00be}
0x0c72e…0c75e Head {h00=0x002c, h01=0x0050, text=» LD A3,DWTCHP,A6 CHANNEL PARAMETERS =16 «, t00=0x007f, t01=0x00e2}
0x0c75e…0c78a Head {h00=0x0028, h01=0x0050, text=» ANK A3,CHABLO CHANGED BLOCKING? =16«, t00=0x007f, t01=0x0112}
0x0c78a…0c7a6 Head {h00=0x0018, h01=0x0050, text=» RF(Z) SB070 NO =16 «, t00=0x007f, t01=0x013e}
0x0c7a6…0c7d8 Head {h00=0x002e, h01=0x0050, text=» LDKL A2,LOBUFL LOAD MAX BLOCK LENGTH =16 «, t00=0x007f, t01=0x015a}
0x0c7d8…0c7f2 Head {h00=0x0016, h01=0x0050, text=»SB070 EQU * . =16 «, t00=0x007f, t01=0x018c}
0x0c7f2…0c7fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0016}
0x0c7fc…0c81e Head {h00=0x001e, h01=0x0050, text=»* CHECK LEVEL 3 WINDOW «, t00=0x0080, t01=0x0020}
0x0c81e…0c846 Head {h00=0x0024, h01=0x0050, text=» LDR A3,A2 SAVE MAX BLOCK LENGTH«, t00=0x0080, t01=0x0042}
0x0c846…0c868 Head {h00=0x001e, h01=0x0050, text=» LD A1,DWTST,A6 DWT STATUS«, t00=0x0080, t01=0x006a}
0x0c868…0c89c Head {h00=0x0030, h01=0x0050, text=» ANKL A1,DWFECH+DWFTY1 ECHO OR ONLY TYPE 1? «, t00=0x0080, t01=0x008c}
0x0c89c…0c8ca Head {h00=0x002a, h01=0x0050, text=» RF(NZ) SB090 YES, DON'T CHECK WINDOW «, t00=0x0080, t01=0x00c0}
0x0c8ca…0c900 Head {h00=0x0032, h01=0x0050, text=» CF A15,GETOFR A2 := NR OF OUTSTANDING FRAMES «, t00=0x0080, t01=0x00ee}
0x0c900…0c92a Head {h00=0x0026, h01=0x0050, text=» LDR A2,A2 ANY FRAMES OUTSTANDING?«, t00=0x0080, t01=0x0124}
0x0c92a…0c94c Head {h00=0x001e, h01=0x0050, text=» RF(Z) SB090 NO, CONTINUE «, t00=0x0080, t01=0x014e}
0x0c94c…0c96e Head {h00=0x001e, h01=0x0050, text=» LD A1,DWTST,A6 DWT STATUS«, t00=0x0080, t01=0x0170}
0x0c96e…0c9a2 (129, 0, 400) Head {h00=0x0030, h01=0x0050, text=» ANK A1,DWFSAC ALWAYS WAIT FOR LEVEL 3 ACK? «, t00=0x0081, t01=0x0004}
0x0c9a2…0c9d8 Head {h00=0x0032, h01=0x0050, text=» RF(NZ) SBERR YES, NO FRAMES MAY BE OUT. ERROR«, t00=0x0081, t01=0x0038}
0x0c9d8…0c9fc Head {h00=0x0020, h01=0x0050, text=» SUK A2,WINDOW WINDOW FULL? «, t00=0x0081, t01=0x006e}
0x0c9fc…0ca1e Head {h00=0x001e, h01=0x0050, text=» RF(N) SB090 NO, CONTINUE «, t00=0x0081, t01=0x0092}
0x0ca1e…0ca52 Head {h00=0x0030, h01=0x0050, text=»* DWT WILL HAVE TO WAIT UNTIL WINDOW IS OPEN«, t00=0x0081, t01=0x00b4}
0x0ca52…0ca88 Head {h00=0x0032, h01=0x0050, text=» ST A3,DWTLD1,A6 SAVE REQUESTED BUFFER LENGTH «, t00=0x0081, t01=0x00e8}
0x0ca88…0cabe Head {h00=0x0032, h01=0x0050, text=» LDK A1,DWFAK3 FLAG "WAITING FOR LEVEL 3 ACK" «, t00=0x0081, t01=0x011e}
0x0cabe…0caee Head {h00=0x002c, h01=0x0050, text=» ORS A1,DWTST,A6 SET FLAG IN DWT STATUS «, t00=0x0081, t01=0x0154}
0x0caee…0cb14 Head {h00=0x0022, h01=0x0050, text=» IFF UTTEST=0 QUEUE STATISTICS«, t00=0x0081, t01=0x0184}
0x0cb14…0cb38 Head {h00=0x0020, h01=0x0050, text=» LD A1,CWTPNR,A5 PLC NUMBER «, t00=0x0082, t01=0x001a}
0x0cb38…0cb54 Head {h00=0x0018, h01=0x0050, text=» SLA A1,1 MAKE INDEX«, t00=0x0082, t01=0x003e}
0x0cb54…0cb8c Head {h00=0x0034, h01=0x0050, text=» IM WIQSTA,A1 INCREMENT QUEUE STATISTICS COUNTER«, t00=0x0082, t01=0x005a}
0x0cb8c…0cb98 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0082, t01=0x0092}
0x0cb98…0cbbc Head {h00=0x0020, h01=0x0050, text=» ABL PLDSP2 LOCAL DISPATCHER«, t00=0x0082, t01=0x009e}
0x0cbbc…0cbc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x00c2}
0x0cbc6…0cbd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x00cc}
0x0cbd0…0cc0a Head {h00=0x0036, h01=0x0050, text=»* ENTRY IS MADE HERE WHEN WINDOW IS OPEN AGAIN «, t00=0x0082, t01=0x00d6}
0x0cc0a…0cc2e Head {h00=0x0020, h01=0x0050, text=»* (AFTER A LEVEL 3 ACK) «, t00=0x0082, t01=0x0110}
0x0cc2e…0cc58 Head {h00=0x0026, h01=0x0050, text=»* REGISTER CONTENTS ON ENTRY:«, t00=0x0082, t01=0x0134}
0x0cc58…0cc74 Head {h00=0x0018, h01=0x0050, text=»* A1 = RETURN CODE «, t00=0x0082, t01=0x015e}
0x0cc74…0cc90 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x0082, t01=0x017a}
0x0cc90…0ccac Head {h00=0x0018, h01=0x0050, text=»* A6 = DWT ADDRESS «, t00=0x0083, t01=0x0008}
0x0ccac…0ccb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0024}
0x0ccb6…0ccca Head {h00=0x0010, h01=0x0050, text=»WINRST EQU *«, t00=0x0083, t01=0x002e}
0x0ccca…0cd02 Head {h00=0x0034, h01=0x0050, text=» LD A3,DWTLD1,A6 RESTORE REQUESTED BUFFER LENGTH«, t00=0x0083, t01=0x0042}
0x0cd02…0cd18 Head {h00=0x0012, h01=0x0050, text=» CM DWTLD1,A6 «, t00=0x0083, t01=0x007a}
0x0cd18…0cd36 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A1 RETURN CODE«, t00=0x0083, t01=0x0090}
0x0cd36…0cd6c Head {h00=0x0032, h01=0x0050, text=» RF(NZ) SBERR2 ERROR, RETURN TO DEVICE DRIVER «, t00=0x0083, t01=0x00ae}
0x0cd6c…0cd76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x00e4}
0x0cd76…0cd80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x00ee}
0x0cd80…0cd94 Head {h00=0x0010, h01=0x0050, text=»SB090 EQU * «, t00=0x0083, t01=0x00f8}
0x0cd94…0cda6 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A5«, t00=0x0083, t01=0x010c}
0x0cda6…0cdd2 Head {h00=0x0028, h01=0x0050, text=» CWK A3,SOBUFL SHORT BUFFER ENOUGH? «, t00=0x0083, t01=0x011e}
0x0cdd2…0cdfc Head {h00=0x0026, h01=0x0050, text=» RF(G) SB100 NO, TAKE LONG BUFFER «, t00=0x0083, t01=0x014a}
0x0cdfc…0ce06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0174}
0x0ce06…0ce30 Head {h00=0x0026, h01=0x0050, text=»* ALLOCATE SHORT OUTPUT BUFFER «, t00=0x0083, t01=0x017e}
0x0ce30…0ce62 Head {h00=0x002e, h01=0x0050, text=» ADK A7,CWTPBS POOLBLOCK FOR SHORT BUFFERS«, t00=0x0084, t01=0x0018}
0x0ce62…0ce88 Head {h00=0x0022, h01=0x0050, text=» CF A15,PLGTBU ALLOCATE BUFFER«, t00=0x0084, t01=0x004a}
0x0ce88…0ceb8 Head {h00=0x002c, h01=0x0050, text=» RF(NZ) SB120 COMMON PART FOR SHORT/LONG«, t00=0x0084, t01=0x0070}
0x0ceb8…0ceee Head {h00=0x0032, h01=0x0050, text=» LDK A7,CWTSBQ NO BUFFER LEFT. SET QUEUE HEAD «, t00=0x0084, t01=0x00a0}
0x0ceee…0cf14 Head {h00=0x0022, h01=0x0050, text=» IFF UTTEST=0 QUEUE STATISTICS«, t00=0x0084, t01=0x00d6}
0x0cf14…0cf38 Head {h00=0x0020, h01=0x0050, text=» LD A1,CWTPNR,A5 PLC NUMBER «, t00=0x0084, t01=0x00fc}
0x0cf38…0cf54 Head {h00=0x0018, h01=0x0050, text=» SLA A1,1 MAKE INDEX«, t00=0x0084, t01=0x0120}
0x0cf54…0cf8c Head {h00=0x0034, h01=0x0050, text=» IM SBQSTA,A1 INCREMENT QUEUE STATISTICS COUNTER«, t00=0x0084, t01=0x013c}
0x0cf8c…0cf98 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0084, t01=0x0174}
0x0cf98…0cfc4 Head {h00=0x0028, h01=0x0050, text=» RF SB110 COMMON PART FOR NO BUFFER «, t00=0x0084, t01=0x0180}
0x0cfc4…0cfce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x001c}
0x0cfce…0cfe2 Head {h00=0x0010, h01=0x0050, text=»SB100 EQU * «, t00=0x0085, t01=0x0026}
0x0cfe2…0d00c Head {h00=0x0026, h01=0x0050, text=» CWK A3,LOBUFL LONG BUFFER ENOUGH?«, t00=0x0085, t01=0x003a}
0x0d00c…0d02a Head {h00=0x001a, h01=0x0050, text=» RF(G) SBERR NO, ERROR«, t00=0x0085, t01=0x0064}
0x0d02a…0d052 Head {h00=0x0024, h01=0x0050, text=»* ALLOCATE LONG OUTPUT BUFFER«, t00=0x0085, t01=0x0082}
0x0d052…0d084 Head {h00=0x002e, h01=0x0050, text=» ADK A7,CWTPBL POOLBLOCK FOR LONG BUFFERS «, t00=0x0085, t01=0x00aa}
0x0d084…0d0aa Head {h00=0x0022, h01=0x0050, text=» CF A15,PLGTBU ALLOCATE BUFFER«, t00=0x0085, t01=0x00dc}
0x0d0aa…0d0da Head {h00=0x002c, h01=0x0050, text=» RF(NZ) SB120 COMMON PART FOR SHORT/LONG«, t00=0x0085, t01=0x0102}
0x0d0da…0d110 Head {h00=0x0032, h01=0x0050, text=» LDK A7,CWTLBQ NO BUFFER LEFT. SET QUEUE HEAD «, t00=0x0085, t01=0x0132}
0x0d110…0d136 Head {h00=0x0022, h01=0x0050, text=» IFF UTTEST=0 QUEUE STATISTICS«, t00=0x0085, t01=0x0168}
0x0d136…0d15a Head {h00=0x0020, h01=0x0050, text=» LD A1,CWTPNR,A5 PLC NUMBER «, t00=0x0085, t01=0x018e}
0x0d15a…0d176 Head {h00=0x0018, h01=0x0050, text=» SLA A1,1 MAKE INDEX«, t00=0x0086, t01=0x0022}
0x0d176…0d1ae Head {h00=0x0034, h01=0x0050, text=» IM LBQSTA,A1 INCREMENT QUEUE STATISTICS COUNTER«, t00=0x0086, t01=0x003e}
0x0d1ae…0d1ba Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0086, t01=0x0076}
0x0d1ba…0d1c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x0082}
0x0d1c4…0d1d8 Head {h00=0x0010, h01=0x0050, text=»SB110 EQU * «, t00=0x0086, t01=0x008c}
0x0d1d8…0d214 Head {h00=0x0038, h01=0x0050, text=»* NO BUFFER WAS AVAILABLE. PUT REQUEST IN QUEUE. «, t00=0x0086, t01=0x00a0}
0x0d214…0d240 Head {h00=0x0028, h01=0x0050, text=» ADR A7,A5 A7 := QUEUE HEAD ADDRESS «, t00=0x0086, t01=0x00dc}
0x0d240…0d25e Head {h00=0x001a, h01=0x0050, text=» LDR A4,A6 DWT ADDRESS«, t00=0x0086, t01=0x0108}
0x0d25e…0d288 Head {h00=0x0026, h01=0x0050, text=» ADKL A4,DWTOTQ QUEUE LINK ADDRESS«, t00=0x0086, t01=0x0126}
0x0d288…0d2b0 Head {h00=0x0024, h01=0x0050, text=» CF A15,LNKLST PUT LAST IN QUEUE«, t00=0x0086, t01=0x0150}
0x0d2b0…0d2d4 Head {h00=0x0020, h01=0x0050, text=» ABL PLDSP2 LOCAL DISPATCHER«, t00=0x0086, t01=0x0178}
0x0d2d4…0d2de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x000c}
0x0d2de…0d2e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x0016}
0x0d2e8…0d31e Head {h00=0x0032, h01=0x0050, text=»* ENTRY IS MADE HERE WHEN A BUFFER IS FREE «, t00=0x0087, t01=0x0020}
0x0d31e…0d33e Head {h00=0x001c, h01=0x0050, text=»* REGISTERS ON ENTRY:«, t00=0x0087, t01=0x0056}
0x0d33e…0d35a Head {h00=0x0018, h01=0x0050, text=»* A1 = RETURN CODE «, t00=0x0087, t01=0x0076}
0x0d35a…0d382 Head {h00=0x0024, h01=0x0050, text=»* A4 = BUFFER ADDRESS (IF A1=0)«, t00=0x0087, t01=0x0092}
0x0d382…0d39e Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x0087, t01=0x00ba}
0x0d39e…0d3ba Head {h00=0x0018, h01=0x0050, text=»* A6 = DWT ADDRESS «, t00=0x0087, t01=0x00d6}
0x0d3ba…0d3c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x00f2}
0x0d3c4…0d3d8 Head {h00=0x0010, h01=0x0050, text=»BUFRST EQU *«, t00=0x0087, t01=0x00fc}
0x0d3d8…0d3f6 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A1 RETURN CODE«, t00=0x0087, t01=0x0110}
0x0d3f6…0d41c Head {h00=0x0022, h01=0x0050, text=» RF(NZ) SBERR2 RETURN IF ERROR«, t00=0x0087, t01=0x012e}
0x0d41c…0d430 Head {h00=0x0010, h01=0x0050, text=»SB120 EQU * «, t00=0x0087, t01=0x0154}
0x0d430…0d45c Head {h00=0x0028, h01=0x0050, text=» LDK A2,X25DAT LENGTH OF X25 HEADER «, t00=0x0087, t01=0x0168}
0x0d45c…0d490 (136, 0, 400) Head {h00=0x0030, h01=0x0050, text=» ST A2,BUFBIX,A4 BYTE INDEX := START OF DATA«, t00=0x0088, t01=0x0004}
0x0d490…0d4c4 Head {h00=0x0030, h01=0x0050, text=» ST A4,DWTLD1,A6 SAVE BUFFER ADDRESS IN DWT «, t00=0x0088, t01=0x0038}
0x0d4c4…0d4ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x006c}
0x0d4ce…0d4fa Head {h00=0x0028, h01=0x0050, text=» ABL NDREPO RETURN TO DEVICE DRIVER «, t00=0x0088, t01=0x0076}
0x0d4fa…0d518 Head {h00=0x001a, h01=0x0050, text=»* RETURN CODE := OK«, t00=0x0088, t01=0x00a2}
0x0d518…0d522 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x00c0}
0x0d522…0d52c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x00ca}
0x0d52c…0d540 Head {h00=0x0010, h01=0x0050, text=»SBERR EQU * «, t00=0x0088, t01=0x00d4}
0x0d540…0d56c Head {h00=0x0028, h01=0x0050, text=» LDK A1,PLSERR RET CODE := SW ERROR «, t00=0x0088, t01=0x00e8}
0x0d56c…0d580 Head {h00=0x0010, h01=0x0050, text=»SBERR2 EQU *«, t00=0x0088, t01=0x0114}
0x0d580…0d5a6 Head {h00=0x0022, h01=0x0050, text=» LDK A2,0 RESET DEVICE STATUS «, t00=0x0088, t01=0x0128}
0x0d5a6…0d5d0 Head {h00=0x0026, h01=0x0050, text=» ABL NDREP RETURN TO DEVICE DRIVER«, t00=0x0088, t01=0x014e}
0x0d5d0…0d5da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x0178}
0x0d5da…0d5e8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0088, t01=0x0182}
0x0d5e8…0d5f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x0190}
0x0d5f2…0d636 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0089, t01=0x000a}
0x0d636…0d640 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x004e}
0x0d640…0d658 Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0089, t01=0x0058}
0x0d658…0d668 Head {h00=0x000c, h01=0x0050, text=»* PLCHRO«, t00=0x0089, t01=0x0070}
0x0d668…0d672 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x0080}
0x0d672…0d686 Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0089, t01=0x008a}
0x0d686…0d6c4 Head {h00=0x003a, h01=0x0050, text=»* THIS ROUTINE WRITES ONE CHARACTER TO OUTPUT BUFFER. «, t00=0x0089, t01=0x009e}
0x0d6c4…0d6ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x00dc}
0x0d6ce…0d6de Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0089, t01=0x00e6}
0x0d6de…0d6f6 Head {h00=0x0014, h01=0x0050, text=»* ABI OUPTAB,A1 «, t00=0x0089, t01=0x00f6}
0x0d6f6…0d70c Head {h00=0x0012, h01=0x0050, text=»* CF A5,PLCHRO«, t00=0x0089, t01=0x010e}
0x0d70c…0d716 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x0124}
0x0d716…0d726 Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0089, t01=0x012e}
0x0d726…0d74a Head {h00=0x0020, h01=0x0050, text=»* A2 = BITS 0-7 IRRELEVANT«, t00=0x0089, t01=0x013e}
0x0d74a…0d76a Head {h00=0x001c, h01=0x0050, text=»* BITS 8-15 CHARACTER «, t00=0x0089, t01=0x0162}
0x0d76a…0d786 Head {h00=0x0018, h01=0x0050, text=»* A6 = DWT ADDRESS «, t00=0x0089, t01=0x0182}
0x0d786…0d790 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x000e}
0x0d790…0d7a2 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x008a, t01=0x0018}
0x0d7a2…0d7c6 Head {h00=0x0020, h01=0x0050, text=»* AT RETURN TO DEVICE DRIVER«, t00=0x008a, t01=0x002a}
0x0d7c6…0d7e2 Head {h00=0x0018, h01=0x0050, text=»* A1 = RETURN CODE «, t00=0x008a, t01=0x004e}
0x0d7e2…0d7f4 Head {h00=0x000e, h01=0x0050, text=»* 0 IF OK«, t00=0x008a, t01=0x006a}
0x0d7f4…0d80e Head {h00=0x0016, h01=0x0050, text=»* NOT 0 IF ERROR «, t00=0x008a, t01=0x007c}
0x0d80e…0d842 Head {h00=0x0030, h01=0x0050, text=»* A2 = DEVICE STATUS (IF RELEVANT, IE A1=0)«, t00=0x008a, t01=0x0096}
0x0d842…0d860 Head {h00=0x001a, h01=0x0050, text=»* CR = CONTENTS OF A1«, t00=0x008a, t01=0x00ca}
0x0d860…0d87a Head {h00=0x0016, h01=0x0050, text=»* INTERR. ENABLED «, t00=0x008a, t01=0x00e8}
0x0d87a…0d884 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x0102}
0x0d884…0d8c8 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x008a, t01=0x010c}
0x0d8c8…0d8d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x0150}
0x0d8d2…0d8e6 Head {h00=0x0010, h01=0x0050, text=»PLCHRO EQU *«, t00=0x008a, t01=0x015a}
0x0d8e6…0d8fa Head {h00=0x0010, h01=0x0050, text=»PRCHRO EQU *«, t00=0x008a, t01=0x016e}
0x0d8fa…0d906 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x008a, t01=0x0182}
0x0d906…0d910 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x018e}
0x0d910…0d91e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008b, t01=0x0008}
0x0d91e…0d928 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x0016}
0x0d928…0d944 Head {h00=0x0018, h01=0x0050, text=» STR A4,A15 PUSH A4 «, t00=0x008b, t01=0x0020}
0x0d944…0d96c Head {h00=0x0024, h01=0x0050, text=» LD A4,DWTLD1,A6 BUFFER ADDRESS «, t00=0x008b, t01=0x003c}
0x0d96c…0d994 Head {h00=0x0024, h01=0x0050, text=» RF(Z) COERR2 ERROR IF NO BUFFER«, t00=0x008b, t01=0x0064}
0x0d994…0d9c2 Head {h00=0x002a, h01=0x0050, text=» CF A15,PLPUCH PUT CHARACTER IN BUFFER«, t00=0x008b, t01=0x008c}
0x0d9c2…0d9e6 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 CHECK RETURN CODE«, t00=0x008b, t01=0x00ba}
0x0d9e6…0da12 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) COERR1 ERROR IF BUFFER FULL «, t00=0x008b, t01=0x00de}
0x0da12…0da3c Head {h00=0x0026, h01=0x0050, text=» LD A2,BUFBIX,A4 BUFFER INDEX =16 «, t00=0x008b, t01=0x010a}
0x0da3c…0da46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x0134}
0x0da46…0da62 Head {h00=0x0018, h01=0x0050, text=» LDR* A4,A15 POP A4 «, t00=0x008b, t01=0x013e}
0x0da62…0da9c Head {h00=0x0036, h01=0x0050, text=»* RETURN DIRECTLY INSTEAD OF THROUGH NDRETO TO GET«, t00=0x008b, t01=0x015a}
0x0da9c…0dab8 (140, 0, 398) Head {h00=0x0018, h01=0x0050, text=»* FASTER PROCESSING.«, t00=0x008c, t01=0x0004}
0x0dab8…0dae2 Head {h00=0x0026, h01=0x0050, text=» CWK A2,LOBUFL+3 BUFFER FULL? =16 «, t00=0x008c, t01=0x0020}
0x0dae2…0dafe Head {h00=0x0018, h01=0x0050, text=» RF(NE) OP100 NO =16«, t00=0x008c, t01=0x004a}
0x0dafe…0db2c Head {h00=0x002a, h01=0x0050, text=» LD A2,DWTCHP,A6 CHANNEL PARAMETER =16«, t00=0x008c, t01=0x0066}
0x0db2c…0db58 Head {h00=0x0028, h01=0x0050, text=» ANK A2,CHABLO CHANGED BLOCKING? =16«, t00=0x008c, t01=0x0094}
0x0db58…0db82 Head {h00=0x0026, h01=0x0050, text=» RF(NZ) EB050 YES SEND BUFFER =16 «, t00=0x008c, t01=0x00c0}
0x0db82…0db9c Head {h00=0x0016, h01=0x0050, text=»OP100 EQU * . =16 «, t00=0x008c, t01=0x00ea}
0x0db9c…0dba8 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x008c, t01=0x0104}
0x0dba8…0dbc6 Head {h00=0x001a, h01=0x0050, text=» ADK A5,4 ADJUST STACK«, t00=0x008c, t01=0x0110}
0x0dbc6…0dbf8 Head {h00=0x002e, h01=0x0050, text=» LDR A2,A1 DEVICE STATUS & RET CODE := OK «, t00=0x008c, t01=0x012e}
0x0dbf8…0dc20 Head {h00=0x0024, h01=0x0050, text=» ABR* A5 RETURN TO DEVICE DRIVER«, t00=0x008c, t01=0x0160}
0x0dc20…0dc2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x0188}
0x0dc2a…0dc34 (141, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x0004}
0x0dc34…0dc48 Head {h00=0x0010, h01=0x0050, text=»COERR1 EQU *«, t00=0x008d, t01=0x000e}
0x0dc48…0dc6e Head {h00=0x0022, h01=0x0050, text=» CF A15,PLRLBU RELEASE BUFFER «, t00=0x008d, t01=0x0022}
0x0dc6e…0dc96 Head {h00=0x0024, h01=0x0050, text=» CM DWTLD1,A6 INDICATE NO BUFFER«, t00=0x008d, t01=0x0048}
0x0dc96…0dcaa Head {h00=0x0010, h01=0x0050, text=»COERR2 EQU *«, t00=0x008d, t01=0x0070}
0x0dcaa…0dcc6 Head {h00=0x0018, h01=0x0050, text=» LDR* A4,A15 POP A4 «, t00=0x008d, t01=0x0084}
0x0dcc6…0dcf2 Head {h00=0x0028, h01=0x0050, text=» LDK A1,PLSERR RET CODE := SW ERROR «, t00=0x008d, t01=0x00a0}
0x0dcf2…0dd1c Head {h00=0x0026, h01=0x0050, text=» ABL NDRET RETURN TO DEVICE DRIVER«, t00=0x008d, t01=0x00cc}
0x0dd1c…0dd26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x00f6}
0x0dd26…0dd34 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008d, t01=0x0100}
0x0dd34…0dd3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x010e}
0x0dd3e…0dd82 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x008d, t01=0x0118}
0x0dd82…0dd8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x015c}
0x0dd8c…0dda4 Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x008d, t01=0x0166}
0x0dda4…0ddb4 Head {h00=0x000c, h01=0x0050, text=»* PLENBL«, t00=0x008d, t01=0x017e}
0x0ddb4…0ddbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x018e}
0x0ddbe…0ddd2 Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x008e, t01=0x0008}
0x0ddd2…0de06 Head {h00=0x0030, h01=0x0050, text=»* THIS ROUTINE DEFINES END OF OUTPUT BLOCK. «, t00=0x008e, t01=0x001c}
0x0de06…0de38 Head {h00=0x002e, h01=0x0050, text=»* IT SENDS THE BLOCK TO PLC AND WAITS FOR «, t00=0x008e, t01=0x0050}
0x0de38…0de4e Head {h00=0x0012, h01=0x0050, text=»* ACKNOWLEDGE.«, t00=0x008e, t01=0x0082}
0x0de4e…0de58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x0098}
0x0de58…0de68 Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x008e, t01=0x00a2}
0x0de68…0de80 Head {h00=0x0014, h01=0x0050, text=»* ABI ENBTAB,A1 «, t00=0x008e, t01=0x00b2}
0x0de80…0de96 Head {h00=0x0012, h01=0x0050, text=»* CF A5,PLENBL«, t00=0x008e, t01=0x00ca}
0x0de96…0dea0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x00e0}
0x0dea0…0deb0 Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x008e, t01=0x00ea}
0x0deb0…0decc Head {h00=0x0018, h01=0x0050, text=»* A6 = DWT ADDRESS «, t00=0x008e, t01=0x00fa}
0x0decc…0ded6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x0116}
0x0ded6…0dee8 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x008e, t01=0x0120}
0x0dee8…0df0c Head {h00=0x0020, h01=0x0050, text=»* AT RETURN TO DEVICE DRIVER«, t00=0x008e, t01=0x0132}
0x0df0c…0df28 Head {h00=0x0018, h01=0x0050, text=»* A1 = RETURN CODE «, t00=0x008e, t01=0x0156}
0x0df28…0df3a Head {h00=0x000e, h01=0x0050, text=»* 0 IF OK«, t00=0x008e, t01=0x0172}
0x0df3a…0df54 Head {h00=0x0016, h01=0x0050, text=»* NOT 0 IF ERROR «, t00=0x008e, t01=0x0184}
0x0df54…0df88 Head {h00=0x0030, h01=0x0050, text=»* A2 = DEVICE STATUS (IF RELEVANT, IE A1=0)«, t00=0x008f, t01=0x000e}
0x0df88…0dfa6 Head {h00=0x001a, h01=0x0050, text=»* CR = CONTENTS OF A1«, t00=0x008f, t01=0x0042}
0x0dfa6…0dfc0 Head {h00=0x0016, h01=0x0050, text=»* INTERR. ENABLED «, t00=0x008f, t01=0x0060}
0x0dfc0…0dfca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x007a}
0x0dfca…0e00e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x008f, t01=0x0084}
0x0e00e…0e018 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x00c8}
0x0e018…0e02c Head {h00=0x0010, h01=0x0050, text=»PLENBL EQU *«, t00=0x008f, t01=0x00d2}
0x0e02c…0e040 Head {h00=0x0010, h01=0x0050, text=»PRENBL EQU *«, t00=0x008f, t01=0x00e6}
0x0e040…0e068 Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 SET RETURN CODE OK =16«, t00=0x008f, t01=0x00fa}
0x0e068…0e09c Head {h00=0x0030, h01=0x0050, text=» LD A2,DWTWAT,A6 GET WAIT/ACT INDICATOR =16 «, t00=0x008f, t01=0x0122}
0x0e09c…0e0b4 Head {h00=0x0014, h01=0x0050, text=» SUK A2,1 . =16 «, t00=0x008f, t01=0x0156}
0x0e0b4…0e0ce Head {h00=0x0016, h01=0x0050, text=» RF(Z) EB040 . =16«, t00=0x008f, t01=0x016e}
0x0e0ce…0e106 Head {h00=0x0034, h01=0x0050, text=» LDKL A2,/FFFF-CHABLO RESET CHANGED BLOCKING =16«, t00=0x008f, t01=0x0188}
0x0e106…0e126 Head {h00=0x001c, h01=0x0050, text=» ANS A2,DWTCHP,A6 . =16 «, t00=0x0090, t01=0x0030}
0x0e126…0e140 Head {h00=0x0016, h01=0x0050, text=»EB040 EQU * . =16 «, t00=0x0090, t01=0x0050}
0x0e140…0e16e Head {h00=0x002a, h01=0x0050, text=» LD A2,DWTCHP,A6 CHANNEL PARAMETER =16«, t00=0x0090, t01=0x006a}
0x0e16e…0e19a Head {h00=0x0028, h01=0x0050, text=» ANK A2,CHABLO CHANGED BLOCKING =16 «, t00=0x0090, t01=0x0098}
0x0e19a…0e1c0 Head {h00=0x0022, h01=0x0050, text=» RB(NZ) OP100 YES, RETURN =16 «, t00=0x0090, t01=0x00c4}
0x0e1c0…0e1da Head {h00=0x0016, h01=0x0050, text=»EB050 EQU * . =16 «, t00=0x0090, t01=0x00ea}
0x0e1da…0e1e6 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0090, t01=0x0104}
0x0e1e6…0e216 Head {h00=0x002c, h01=0x0050, text=» CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT «, t00=0x0090, t01=0x0110}
0x0e216…0e23e Head {h00=0x0024, h01=0x0050, text=» CF A15,GETCWT A5 := CWT ADDRESS«, t00=0x0090, t01=0x0140}
0x0e23e…0e248 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x0168}
0x0e248…0e256 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0090, t01=0x0172}
0x0e256…0e260 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x0180}
0x0e260…0e290 Head {h00=0x002c, h01=0x0050, text=» LDK A1,PLSERR SET RET CODE JUST IN CASE«, t00=0x0090, t01=0x018a}
0x0e290…0e2b8 Head {h00=0x0024, h01=0x0050, text=» LD A2,DWTLD1,A6 BUFFER ADDRESS «, t00=0x0091, t01=0x002a}
0x0e2b8…0e2ee Head {h00=0x0032, h01=0x0050, text=» ABL(Z) NDREPO ERROR IF NO BUFFER. RETURN =16 «, t00=0x0091, t01=0x0052}
0x0e2ee…0e318 Head {h00=0x0026, h01=0x0050, text=» CF A15,GETLCS A1 := STATUS & INH «, t00=0x0091, t01=0x0088}
0x0e318…0e33e Head {h00=0x0022, h01=0x0050, text=» RF(NZ) EBERR1 RETURN IF ERROR«, t00=0x0091, t01=0x00b2}
0x0e33e…0e348 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x00d8}
0x0e348…0e366 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A6 DWT ADDRESS«, t00=0x0091, t01=0x00e2}
0x0e366…0e38c Head {h00=0x0022, h01=0x0050, text=» ADKL A3,DWTOTQ QUEUE POINTER «, t00=0x0091, t01=0x0100}
0x0e38c…0e3ae Head {h00=0x001e, h01=0x0050, text=» CF A15,PLCCCS RESERVE CCA«, t00=0x0091, t01=0x0126}
0x0e3ae…0e3e0 Head {h00=0x002e, h01=0x0050, text=» CM DWTOTQ,A6 RESET QUEUE ELEMENT POINTER «, t00=0x0091, t01=0x0148}
0x0e3e0…0e3fe Head {h00=0x001a, h01=0x0050, text=» LDR A1,A1 RETURN CODE«, t00=0x0091, t01=0x017a}
0x0e3fe…0e424 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) EBERR1 RETURN IF ERROR«, t00=0x0092, t01=0x0008}
0x0e424…0e42e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x002e}
0x0e42e…0e462 Head {h00=0x0030, h01=0x0050, text=»* WRITE PARAMETERS IN CCA AND X25 HEADER «, t00=0x0092, t01=0x0038}
0x0e462…0e46e Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0092, t01=0x006c}
0x0e46e…0e496 Head {h00=0x0024, h01=0x0050, text=» LD A4,DWTLD1,A6 BUFFER ADDRESS «, t00=0x0092, t01=0x0078}
0x0e496…0e4bc Head {h00=0x0022, h01=0x0050, text=» ST A4,CWTCCA+CCRBUF,A5 TO CCA«, t00=0x0092, t01=0x00a0}
0x0e4bc…0e4fa Head {h00=0x003a, h01=0x0050, text=» CM CWTCCA+CCRC1B,A5 RESET DATA CHAINING & MSB OF ADDR«, t00=0x0092, t01=0x00c6}
0x0e4fa…0e522 Head {h00=0x0024, h01=0x0050, text=» LDK A3,CMDFW ASSUME FAST WRITE «, t00=0x0092, t01=0x0104}
0x0e522…0e548 Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTST,A6 DEVICE STATUS «, t00=0x0092, t01=0x012c}
0x0e548…0e560 Head {h00=0x0014, h01=0x0050, text=» LDR A7,A2 SAVE «, t00=0x0092, t01=0x0152}
0x0e560…0e584 Head {h00=0x0020, h01=0x0050, text=» ANKL A7,DWFECH ECHO OUTPUT?«, t00=0x0092, t01=0x016a}
0x0e584…0e5aa Head {h00=0x0022, h01=0x0050, text=» RF(NZ) EB090 YES, USE TYPE 1 «, t00=0x0092, t01=0x018e}
0x0e5aa…0e5dc Head {h00=0x002e, h01=0x0050, text=» LDK A3,CMDSW NOT ECHO, USE STANDARD WRITE«, t00=0x0093, t01=0x0024}
0x0e5dc…0e608 Head {h00=0x0028, h01=0x0050, text=» ANK A2,DWFTY1 ONLY TYPE 1 ALLOWED? «, t00=0x0093, t01=0x0056}
0x0e608…0e62c Head {h00=0x0020, h01=0x0050, text=» RF(Z) EB100 NO, USE TYPE 2 «, t00=0x0093, t01=0x0082}
0x0e62c…0e636 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0093, t01=0x00a6}
0x0e636…0e644 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0093, t01=0x00b0}
0x0e644…0e64e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0093, t01=0x00be}
0x0e64e…0e662 Head {h00=0x0010, h01=0x0050, text=»EB090 EQU * «, t00=0x0093, t01=0x00c8}
0x0e662…0e680 Head {h00=0x001a, h01=0x0050, text=»* NO FLOW CONTROL«, t00=0x0093, t01=0x00dc}
0x0e680…0e6b4 Head {h00=0x0030, h01=0x0050, text=» CF A15,WRADR1 WRITE LINE ADDRESS. NO FLOW C«, t00=0x0093, t01=0x00fa}
0x0e6b4…0e6ea Head {h00=0x0032, h01=0x0050, text=» LDK A2,TYNFLO MESSAGE TYPE := NO FLOW CONTROL«, t00=0x0093, t01=0x012e}
0x0e6ea…0e704 Head {h00=0x0016, h01=0x0050, text=» RF EB110 CONTINUE«, t00=0x0093, t01=0x0164}
0x0e704…0e70e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0093, t01=0x017e}
0x0e70e…0e722 Head {h00=0x0010, h01=0x0050, text=»EB100 EQU * «, t00=0x0093, t01=0x0188}
0x0e722…0e73e Head {h00=0x0018, h01=0x0050, text=»* FLOW CONTROL «, t00=0x0094, t01=0x000c}
0x0e73e…0e772 Head {h00=0x0030, h01=0x0050, text=» CF A15,WRADR2 WRITE LINE ADDRESS. FLOW CTRL«, t00=0x0094, t01=0x0028}
0x0e772…0e7a6 Head {h00=0x0030, h01=0x0050, text=» CF A15,FWOPSR FETCH AND UPDATE FLOW CONTROL«, t00=0x0094, t01=0x005c}
0x0e7a6…0e7d4 Head {h00=0x002a, h01=0x0050, text=» SC A2,X25FLW,A4 P(R) & P(S) TO PACKET«, t00=0x0094, t01=0x0090}
0x0e7d4…0e806 Head {h00=0x002e, h01=0x0050, text=» LDK A2,TYDATA MESSAGE TYPE := NORMAL DATA«, t00=0x0094, t01=0x00be}
0x0e806…0e810 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0094, t01=0x00f0}
0x0e810…0e824 Head {h00=0x0010, h01=0x0050, text=»EB110 EQU * «, t00=0x0094, t01=0x00fa}
0x0e824…0e858 Head {h00=0x0030, h01=0x0050, text=» SC A2,CWTCCA+CCRIDB,A5 MESSAGE TYPE TO CCA «, t00=0x0094, t01=0x010e}
0x0e858…0e886 Head {h00=0x002a, h01=0x0050, text=» SC A3,CWTCCA+CCRCMD,A5 COMMAND TO CCA«, t00=0x0094, t01=0x0142}
0x0e886…0e8b8 Head {h00=0x002e, h01=0x0050, text=» ST A6,CWTCCA+CCRIDW,A5 DWT ADDRESS TO CCA«, t00=0x0094, t01=0x0170}
0x0e8b8…0e8dc Head {h00=0x0020, h01=0x0050, text=» LD A3,BUFBIX,A4 BYTE INDEX «, t00=0x0095, t01=0x0012}
0x0e8dc…0e910 Head {h00=0x0030, h01=0x0050, text=» ST A3,CWTCCA+CCRLEN,A5 BUFFER LENGTH TO CCA«, t00=0x0095, t01=0x0036}
0x0e910…0e91a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0095, t01=0x006a}
0x0e91a…0e944 Head {h00=0x0026, h01=0x0050, text=» CF A15,GETLCS A1 := STATUS & INH «, t00=0x0095, t01=0x0074}
0x0e944…0e96a Head {h00=0x0022, h01=0x0050, text=» RF(NZ) EBERR2 RETURN IF ERROR«, t00=0x0095, t01=0x009e}
0x0e96a…0e992 Head {h00=0x0024, h01=0x0050, text=» CF A15,PLCCIO EXECUTE CIO START«, t00=0x0095, t01=0x00c4}
0x0e992…0e9b6 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) EBERR1 HANDLE ERROR «, t00=0x0095, t01=0x00ec}
0x0e9b6…0e9da Head {h00=0x0020, h01=0x0050, text=» ABL PLDSP2 LOCAL DISPATCHER«, t00=0x0095, t01=0x0110}
0x0e9da…0e9e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0095, t01=0x0134}
0x0e9e4…0e9f2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0095, t01=0x013e}
0x0e9f2…0e9fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0095, t01=0x014c}
0x0e9fc…0ea34 Head {h00=0x0034, h01=0x0050, text=»* ENTRY TO ACKRST IS MADE WHEN I/O OPERATION «, t00=0x0095, t01=0x0156}
0x0ea34…0ea4e Head {h00=0x0016, h01=0x0050, text=»* IS COMPLETED.«, t00=0x0095, t01=0x018e}
0x0ea4e…0ea78 Head {h00=0x0026, h01=0x0050, text=»* REGISTER CONTENTS ON ENTRY:«, t00=0x0096, t01=0x0018}
0x0ea78…0ea94 Head {h00=0x0018, h01=0x0050, text=»* A1 = RETURN CODE «, t00=0x0096, t01=0x0042}
0x0ea94…0eab0 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x0096, t01=0x005e}
0x0eab0…0eacc Head {h00=0x0018, h01=0x0050, text=»* A6 = DWT ADDRESS «, t00=0x0096, t01=0x007a}
0x0eacc…0eae8 Head {h00=0x0018, h01=0x0050, text=»* A7 = MESSAGE TYPE«, t00=0x0096, t01=0x0096}
0x0eae8…0eaf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0096, t01=0x00b2}
0x0eaf2…0eb06 Head {h00=0x0010, h01=0x0050, text=»ACKRST EQU *«, t00=0x0096, t01=0x00bc}
0x0eb06…0eb2c Head {h00=0x0022, h01=0x0050, text=» LDK A2,0 RESET DEVICE STATUS «, t00=0x0096, t01=0x00d0}
0x0eb2c…0eb4a Head {h00=0x001a, h01=0x0050, text=» LDR A1,A1 ANY ERROR? «, t00=0x0096, t01=0x00f6}
0x0eb4a…0eb6c Head {h00=0x001e, h01=0x0050, text=» RF(NZ) EB130 YES, RETURN «, t00=0x0096, t01=0x0114}
0x0eb6c…0eb76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0096, t01=0x0136}
0x0eb76…0eb98 Head {h00=0x001e, h01=0x0050, text=» LD A3,DWTST,A6 DWT STATUS«, t00=0x0096, t01=0x0140}
0x0eb98…0ebaa Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0096, t01=0x0162}
0x0ebaa…0ebd8 Head {h00=0x002a, h01=0x0050, text=» ANK A4,DWFRES RESET PACKET RECIEVED? «, t00=0x0096, t01=0x0174}
0x0ebd8…0ebf0 Head {h00=0x0014, h01=0x0050, text=» RF(Z) EB120 NO «, t00=0x0097, t01=0x0012}
0x0ebf0…0ec22 Head {h00=0x002e, h01=0x0050, text=» LDK A1,LINERR YES. RET CODE := LINK RESET«, t00=0x0097, t01=0x002a}
0x0ec22…0ec3a Head {h00=0x0014, h01=0x0050, text=» RF EB130 RETURN«, t00=0x0097, t01=0x005c}
0x0ec3a…0ec44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x0074}
0x0ec44…0ec58 Head {h00=0x0010, h01=0x0050, text=»EB120 EQU * «, t00=0x0097, t01=0x007e}
0x0ec58…0ec8c Head {h00=0x0030, h01=0x0050, text=» CWK A7,TYNFLO PACKET WITH NO FLOW CONTROL? «, t00=0x0097, t01=0x0092}
0x0ec8c…0ecac Head {h00=0x001c, h01=0x0050, text=» RF(E) EB130 YES, RETURN«, t00=0x0097, t01=0x00c6}
0x0ecac…0ecd8 Head {h00=0x0028, h01=0x0050, text=» ANK A3,DWFSAC WAIT FOR LEVEL 3 ACK?«, t00=0x0097, t01=0x00e6}
0x0ecd8…0ecf8 Head {h00=0x001c, h01=0x0050, text=» RF(Z) EB130 NO, RETURN «, t00=0x0097, t01=0x0112}
0x0ecf8…0ed02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x0132}
0x0ed02…0ed38 Head {h00=0x0032, h01=0x0050, text=» LDK A3,DWFAK3 FLAG "WAITING FOR LEVEL 3 ACK" «, t00=0x0097, t01=0x013c}
0x0ed38…0ed68 Head {h00=0x002c, h01=0x0050, text=» ORS A3,DWTST,A6 SET FLAG IN DWT STATUS «, t00=0x0097, t01=0x0172}
0x0ed68…0ed8c Head {h00=0x0020, h01=0x0050, text=» ABL PLDSP2 LOCAL DISPATCHER«, t00=0x0098, t01=0x0012}
0x0ed8c…0ed96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x0036}
0x0ed96…0eda4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0098, t01=0x0040}
0x0eda4…0edae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x004e}
0x0edae…0edf4 Head {h00=0x0042, h01=0x0050, text=»* ENTRY IS MADE HERE WHEN ACK ON LEVEL 3 HAVE BEEN RECIEVED«, t00=0x0098, t01=0x0058}
0x0edf4…0ee1e Head {h00=0x0026, h01=0x0050, text=»* REGISTER CONTENTS ON ENTRY:«, t00=0x0098, t01=0x009e}
0x0ee1e…0ee3a Head {h00=0x0018, h01=0x0050, text=»* A1 = RETURN CODE «, t00=0x0098, t01=0x00c8}
0x0ee3a…0ee6e Head {h00=0x0030, h01=0x0050, text=»* A2 = DEVICE STATUS (IF RELEVANT, IE A1=0)«, t00=0x0098, t01=0x00e4}
0x0ee6e…0ee8a Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x0098, t01=0x0118}
0x0ee8a…0eea6 Head {h00=0x0018, h01=0x0050, text=»* A6 = DWT ADDRESS «, t00=0x0098, t01=0x0134}
0x0eea6…0eeb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x0150}
0x0eeb0…0eec4 Head {h00=0x0010, h01=0x0050, text=»AK3RST EQU *«, t00=0x0098, t01=0x015a}
0x0eec4…0eece Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x016e}
0x0eece…0eee2 Head {h00=0x0010, h01=0x0050, text=»EB130 EQU * «, t00=0x0098, t01=0x0178}
0x0eee2…0eeec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x018c}
0x0eeec…0ef1a Head {h00=0x002a, h01=0x0050, text=» LD A2,DWTCHP,A6 CHANNEL PARAMETER =16«, t00=0x0099, t01=0x0008}
0x0ef1a…0ef46 Head {h00=0x0028, h01=0x0050, text=» ANK A2,CHABLO CHANGED BLOCKING? =16«, t00=0x0099, t01=0x0036}
0x0ef46…0ef76 Head {h00=0x002c, h01=0x0050, text=» ABL(NZ) SB050 YES, START NEW BLOCK =16 «, t00=0x0099, t01=0x0062}
0x0ef76…0efa0 Head {h00=0x0026, h01=0x0050, text=» ABL NDREP RETURN TO DEVICE DRIVER«, t00=0x0099, t01=0x0092}
0x0efa0…0efaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x00bc}
0x0efaa…0efb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x00c6}
0x0efb4…0efbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x00d0}
0x0efbe…0efd2 Head {h00=0x0010, h01=0x0050, text=»EBERR2 EQU *«, t00=0x0099, t01=0x00da}
0x0efd2…0eff4 Head {h00=0x001e, h01=0x0050, text=» CM CWTCCB,A5 SET CCA FREE«, t00=0x0099, t01=0x00ee}
0x0eff4…0f008 Head {h00=0x0010, h01=0x0050, text=»EBERR1 EQU *«, t00=0x0099, t01=0x0110}
0x0f008…0f036 Head {h00=0x002a, h01=0x0050, text=» LD A4,DWTLD1,A6 OUTPUT BUFFER ADDRESS«, t00=0x0099, t01=0x0124}
0x0f036…0f05c Head {h00=0x0022, h01=0x0050, text=» CF A15,PLRLBU RELEASE BUFFER «, t00=0x0099, t01=0x0152}
0x0f05c…0f084 Head {h00=0x0024, h01=0x0050, text=» CM DWTLD1,A6 INDICATE NO BUFFER«, t00=0x0099, t01=0x0178}
0x0f084…0f0ac Head {h00=0x0024, h01=0x0050, text=» CM DWTLD2,A6 RESET FLOW CONTROL«, t00=0x009a, t01=0x0010}
0x0f0ac…0f0d6 Head {h00=0x0026, h01=0x0050, text=» ABL NDREP RETURN TO DEVICE DRIVER«, t00=0x009a, t01=0x0038}
0x0f0d6…0f0e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x0062}
0x0f0e0…0f0ee Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009a, t01=0x006c}
0x0f0ee…0f0f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x007a}
0x0f0f8…0f13c Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x009a, t01=0x0084}
0x0f13c…0f146 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x00c8}
0x0f146…0f15e Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x009a, t01=0x00d2}
0x0f15e…0f16e Head {h00=0x000c, h01=0x0050, text=»* PLTEST«, t00=0x009a, t01=0x00ea}
0x0f16e…0f178 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x00fa}
0x0f178…0f18c Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x009a, t01=0x0104}
0x0f18c…0f1c2 Head {h00=0x0032, h01=0x0050, text=»* THIS ROUTINE HANDLES TEST COMMANDS FOR PLC. «, t00=0x009a, t01=0x0118}
0x0f1c2…0f1f6 Head {h00=0x0030, h01=0x0050, text=»* THE TEST COMMANDS ARE GENERATED BY A TEST «, t00=0x009a, t01=0x014e}
0x0f1f6…0f22e Head {h00=0x0034, h01=0x0050, text=»* COMMAND "DRIVER" WITH AN INTERFACE SIMILAR TO «, t00=0x009a, t01=0x0182}
0x0f22e…0f264 Head {h00=0x0032, h01=0x0050, text=»* THAT OF THE NORMAL TERMINAL DEVICE DRIVERS. «, t00=0x009b, t01=0x002a}
0x0f264…0f29a Head {h00=0x0032, h01=0x0050, text=»* CALL IS MADE DIRECTLY TO THE PLC DRIVER, AND«, t00=0x009b, t01=0x0060}
0x0f29a…0f2d2 Head {h00=0x0034, h01=0x0050, text=»* NOT THROUGH THE TERMINAL NETWORK DISTRIBUTOR, «, t00=0x009b, t01=0x0096}
0x0f2d2…0f308 Head {h00=0x0032, h01=0x0050, text=»* AS THIS FUNCTION IS NOT AVAILABLE FOR OTHER «, t00=0x009b, t01=0x00ce}
0x0f308…0f320 Head {h00=0x0014, h01=0x0050, text=»* LINE DRIVERS. «, t00=0x009b, t01=0x0104}
0x0f320…0f32a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x011c}
0x0f32a…0f33a Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x009b, t01=0x0126}
0x0f33a…0f350 Head {h00=0x0012, h01=0x0050, text=»* CF A5,PLTEST«, t00=0x009b, t01=0x0136}
0x0f350…0f35a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x014c}
0x0f35a…0f36a Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x009b, t01=0x0156}
0x0f36a…0f386 Head {h00=0x0018, h01=0x0050, text=»* A6 = DWT ADDRESS «, t00=0x009b, t01=0x0166}
0x0f386…0f390 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x0182}
0x0f390…0f3a2 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x009b, t01=0x018c}
0x0f3a2…0f3c6 Head {h00=0x0020, h01=0x0050, text=»* AT RETURN TO DEVICE DRIVER«, t00=0x009c, t01=0x000e}
0x0f3c6…0f3e2 Head {h00=0x0018, h01=0x0050, text=»* A1 = RETURN CODE «, t00=0x009c, t01=0x0032}
0x0f3e2…0f3f4 Head {h00=0x000e, h01=0x0050, text=»* 0 IF OK«, t00=0x009c, t01=0x004e}
0x0f3f4…0f40e Head {h00=0x0016, h01=0x0050, text=»* NOT 0 IF ERROR «, t00=0x009c, t01=0x0060}
0x0f40e…0f426 Head {h00=0x0014, h01=0x0050, text=»* A2 = CHANGED «, t00=0x009c, t01=0x007a}
0x0f426…0f444 Head {h00=0x001a, h01=0x0050, text=»* CR = CONTENTS OF A1«, t00=0x009c, t01=0x0092}
0x0f444…0f45e Head {h00=0x0016, h01=0x0050, text=»* INTERR. ENABLED «, t00=0x009c, t01=0x00b0}
0x0f45e…0f468 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x00ca}
0x0f468…0f4ac Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x009c, t01=0x00d4}
0x0f4ac…0f4b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x0118}
0x0f4b6…0f4c4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009c, t01=0x0122}
0x0f4c4…0f4ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x0130}
0x0f4ce…0f4e2 Head {h00=0x0010, h01=0x0050, text=»PLTEST EQU *«, t00=0x009c, t01=0x013a}
0x0f4e2…0f4f8 Head {h00=0x0012, h01=0x0050, text=» IFT PLCTST=1 «, t00=0x009c, t01=0x014e}
0x0f4f8…0f528 Head {h00=0x002c, h01=0x0050, text=» CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT «, t00=0x009c, t01=0x0164}
0x0f528…0f550 (157, 0, 398) Head {h00=0x0024, h01=0x0050, text=» CF A15,GETCWT A5 := CWT ADDRESS«, t00=0x009d, t01=0x0004}
0x0f550…0f572 Head {h00=0x001e, h01=0x0050, text=» CF A15,PLCCCA RESERVE CCA«, t00=0x009d, t01=0x002c}
0x0f572…0f57c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009d, t01=0x004e}
0x0f57c…0f588 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x009d, t01=0x0058}
0x0f588…0f5ba Head {h00=0x002e, h01=0x0050, text=» ST A6,CWTCCA+CCRIDW,A5 DWT ADDRESS TO CCA«, t00=0x009d, t01=0x0064}
0x0f5ba…0f5fa Head {h00=0x003c, h01=0x0050, text=» CM CWTCCA+CCRC1B,A5 DATA CHAINING & MSB OF BUFFER ADDR «, t00=0x009d, t01=0x0096}
0x0f5fa…0f62e Head {h00=0x0030, h01=0x0050, text=» LD A4,DWTTBU,A6 USER REQUEST BUFFER ADDRESS«, t00=0x009d, t01=0x00d6}
0x0f62e…0f654 Head {h00=0x0022, h01=0x0050, text=» ST A4,CWTCCA+CCRBUF,A5 TO CCA«, t00=0x009d, t01=0x010a}
0x0f654…0f688 Head {h00=0x0030, h01=0x0050, text=» LD A2,DWTTLN,A6 USER REQUEST BUFFER LENGTH «, t00=0x009d, t01=0x0130}
0x0f688…0f6b6 Head {h00=0x002a, h01=0x0050, text=» ST A2,CWTCCA+CCRLEN,A5 LENGTH TO CCA «, t00=0x009d, t01=0x0164}
0x0f6b6…0f6e8 (158, 0, 400) Head {h00=0x002e, h01=0x0050, text=» LD A3,DWTTCW,A6 USER REQUEST CONTROL WORD«, t00=0x009e, t01=0x0004}
0x0f6e8…0f6f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x0036}
0x0f6f2…0f71c Head {h00=0x0026, h01=0x0050, text=»* DETERMINE TYPE OF TEST ORDER «, t00=0x009e, t01=0x0040}
0x0f71c…0f74e Head {h00=0x002e, h01=0x0050, text=» LC A1,DWTOR+1,A6 USER REQUEST ORDER CODE «, t00=0x009e, t01=0x006a}
0x0f74e…0f768 Head {h00=0x0016, h01=0x0050, text=» ANK A1,/3F CLEAN «, t00=0x009e, t01=0x009c}
0x0f768…0f792 Head {h00=0x0026, h01=0x0050, text=» CWK A1,ORDPS GET LINE STATISTICS?«, t00=0x009e, t01=0x00b6}
0x0f792…0f7b2 Head {h00=0x001c, h01=0x0050, text=» RF(E) TE100 YES, HANDLE«, t00=0x009e, t01=0x00e0}
0x0f7b2…0f7dc Head {h00=0x0026, h01=0x0050, text=» CWK A1,ORDDS GET DLS STATISTICS? «, t00=0x009e, t01=0x0100}
0x0f7dc…0f7fc Head {h00=0x001c, h01=0x0050, text=» RF(E) TE110 YES, HANDLE«, t00=0x009e, t01=0x012a}
0x0f7fc…0f824 Head {h00=0x0024, h01=0x0050, text=» CWK A1,ORDRM READ LOCAL MEMORY?«, t00=0x009e, t01=0x014a}
0x0f824…0f85a Head {h00=0x0032, h01=0x0050, text=» RF(NE) TEERR2 NO, COMMAND NOT DEFINED. ERROR «, t00=0x009e, t01=0x0172}
0x0f85a…0f864 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009f, t01=0x0018}
0x0f864…0f882 Head {h00=0x001a, h01=0x0050, text=»* READ LOCAL MEMORY«, t00=0x009f, t01=0x0022}
0x0f882…0f8bc Head {h00=0x0036, h01=0x0050, text=» ST A3,CWTCCA+CCRSUB,A5 PLC MEMORY ADDRESS TO CCA «, t00=0x009f, t01=0x0040}
0x0f8bc…0f8f0 Head {h00=0x0030, h01=0x0050, text=» LDK A3,CMDRM PLC COMMAND READ LOCAL MEMORY «, t00=0x009f, t01=0x007a}
0x0f8f0…0f910 Head {h00=0x001c, h01=0x0050, text=» RF TE120 TO COMMON PART«, t00=0x009f, t01=0x00ae}
0x0f910…0f91a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009f, t01=0x00ce}
0x0f91a…0f92e Head {h00=0x0010, h01=0x0050, text=»TE100 EQU * «, t00=0x009f, t01=0x00d8}
0x0f92e…0f94e Head {h00=0x001c, h01=0x0050, text=»* GET LINE STATISTICS«, t00=0x009f, t01=0x00ec}
0x0f94e…0f98a Head {h00=0x0038, h01=0x0050, text=» SC A3,CWTCCA+CCRSU1,A5 STORE LINE NUMBER (0-3) =12 «, t00=0x009f, t01=0x010c}
0x0f98a…0f9c0 Head {h00=0x0032, h01=0x0050, text=» LDK A3,CMDPS PLC COMMAND GET LINE STATISTICS «, t00=0x009f, t01=0x0148}
0x0f9c0…0f9e0 Head {h00=0x001c, h01=0x0050, text=» RF TE120 TO COMMON PART«, t00=0x009f, t01=0x017e}
0x0f9e0…0f9ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a0, t01=0x000e}
0x0f9ea…0f9fe Head {h00=0x0010, h01=0x0050, text=»TE110 EQU * «, t00=0x00a0, t01=0x0018}
0x0f9fe…0fa1e Head {h00=0x001c, h01=0x0050, text=»* GET DLS STATISTICS «, t00=0x00a0, t01=0x002c}
0x0fa1e…0fa48 Head {h00=0x0026, h01=0x0050, text=» LC A3,DWTCP2,A6 CHANNEL PARAMETER«, t00=0x00a0, t01=0x004c}
0x0fa48…0fa6e Head {h00=0x0022, h01=0x0050, text=» ANK A3,MASKWS CLEAN WS NUMBER«, t00=0x00a0, t01=0x0076}
0x0fa6e…0fa8c Head {h00=0x001a, h01=0x0050, text=» SLL A3,8 TO LEFT BYTE«, t00=0x00a0, t01=0x009c}
0x0fa8c…0fac0 Head {h00=0x0030, h01=0x0050, text=» ADK A3,CMDDS PLC COMMAND GET DLS STATISTICS«, t00=0x00a0, t01=0x00ba}
0x0fac0…0faca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a0, t01=0x00ee}
0x0faca…0fade Head {h00=0x0010, h01=0x0050, text=»TE120 EQU * «, t00=0x00a0, t01=0x00f8}
0x0fade…0fb18 Head {h00=0x0036, h01=0x0050, text=» ST A3,CWTCCA+CCRDLS,A5 DLS INDEX & COMMAND TO CCA«, t00=0x00a0, t01=0x010c}
0x0fb18…0fb22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a0, t01=0x0146}
0x0fb22…0fb4a Head {h00=0x0024, h01=0x0050, text=» CF A15,PLCCIO EXECUTE CIO START«, t00=0x00a0, t01=0x0150}
0x0fb4a…0fb6e Head {h00=0x0020, h01=0x0050, text=» RF(NZ) TEERR1 ERROR. HANDLE«, t00=0x00a0, t01=0x0178}
0x0fb6e…0fb98 Head {h00=0x0026, h01=0x0050, text=» ABL PLDSP2 LOCAL DISPATCER. WAIT «, t00=0x00a1, t01=0x000c}
0x0fb98…0fba2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x0036}
0x0fba2…0fbac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x0040}
0x0fbac…0fbec Head {h00=0x003c, h01=0x0050, text=»* ENTRY IS MADE TO TSTRST WHEN COMMAND IS COMPLETED. «, t00=0x00a1, t01=0x004a}
0x0fbec…0fc16 Head {h00=0x0026, h01=0x0050, text=»* REGISTER CONTENTS ON ENTRY:«, t00=0x00a1, t01=0x008a}
0x0fc16…0fc32 Head {h00=0x0018, h01=0x0050, text=»* A1 = RETURN CODE «, t00=0x00a1, t01=0x00b4}
0x0fc32…0fc4e Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x00a1, t01=0x00d0}
0x0fc4e…0fc6a Head {h00=0x0018, h01=0x0050, text=»* A6 = DWT ADDRESS «, t00=0x00a1, t01=0x00ec}
0x0fc6a…0fc74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x0108}
0x0fc74…0fc88 Head {h00=0x0010, h01=0x0050, text=»TSTRST EQU *«, t00=0x00a1, t01=0x0112}
0x0fc88…0fcb2 Head {h00=0x0026, h01=0x0050, text=» ABL NDREP RETURN TO DEVICE DRIVER«, t00=0x00a1, t01=0x0126}
0x0fcb2…0fcbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x0150}
0x0fcbc…0fcc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x015a}
0x0fcc6…0fcda Head {h00=0x0010, h01=0x0050, text=»TEERR2 EQU *«, t00=0x00a1, t01=0x0164}
0x0fcda…0fd02 Head {h00=0x0024, h01=0x0050, text=» CM CWTCCB,A5 INDICATE CCA FREE «, t00=0x00a1, t01=0x0178}
0x0fd02…0fd2e Head {h00=0x0028, h01=0x0050, text=» LDK A1,PLSERR RET CODE := SW ERROR «, t00=0x00a2, t01=0x0010}
0x0fd2e…0fd42 Head {h00=0x0010, h01=0x0050, text=»TEERR1 EQU *«, t00=0x00a2, t01=0x003c}
0x0fd42…0fd6c Head {h00=0x0026, h01=0x0050, text=» ABL NDREP RETURN TO DEVICE DRIVER«, t00=0x00a2, t01=0x0050}
0x0fd6c…0fd78 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a2, t01=0x007a}
0x0fd78…0fd82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x0086}
0x0fd82…0fd90 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a2, t01=0x0090}
0x0fd90…0fd9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x009e}
0x0fd9a…0fdb8 Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x00a2, t01=0x00a8}
0x0fdb8…0fdd6 Head {h00=0x001a, h01=0x0050, text=»* INTERRUPT ROUTINES *«, t00=0x00a2, t01=0x00c6}
0x0fdd6…0fdf4 Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x00a2, t01=0x00e4}
0x0fdf4…0fdfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x0102}
0x0fdfe…0fe3c Head {h00=0x003a, h01=0x0050, text=»* THIS SECTION CONTAINS INTERRUPT HANDLING ROUTINES.«, t00=0x00a2, t01=0x010c}
0x0fe3c…0fe70 Head {h00=0x0030, h01=0x0050, text=»* IT IS ENTERED IMMEDIATELY AT A RELEASE, «, t00=0x00a2, t01=0x014a}
0x0fe70…0fea2 Head {h00=0x002e, h01=0x0050, text=»* ATTENTION OR I/O COMPLETION INTERRUPT.«, t00=0x00a2, t01=0x017e}
0x0fea2…0fec8 Head {h00=0x0022, h01=0x0050, text=»* ALL ROUTINES ARE EXECUTED «, t00=0x00a3, t01=0x0020}
0x0fec8…0ff04 Head {h00=0x0038, h01=0x0050, text=»* ON INTERRUPT PRIORITY. AFTER PROCESSING, EXIT IS«, t00=0x00a3, t01=0x0046}
0x0ff04…0ff46 Head {h00=0x003e, h01=0x0050, text=»* MADE EITHER TO SOME ROUTINE WAITING FOR THE INTERRUPT,«, t00=0x00a3, t01=0x0082}
0x0ff46…0ff84 Head {h00=0x003a, h01=0x0050, text=»* TO THE LOCAL PLC DISPATCHER OR TO TOSS DISPATCHER.«, t00=0x00a3, t01=0x00c4}
0x0ff84…0ffc0 Head {h00=0x0038, h01=0x0050, text=»* ON EXIT, A15 STACK CONTAINS INTERRUPT RETURN AND«, t00=0x00a3, t01=0x0102}
0x0ffc0…0ffd2 Head {h00=0x000e, h01=0x0050, text=»* A1-A8.«, t00=0x00a3, t01=0x013e}
0x0ffd2…0ffdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x0150}
0x0ffdc…0ffe6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x015a}
0x0ffe6…1001a Head {h00=0x0030, h01=0x0050, text=»* ROUTINES IN ORDER OF APPEARANCE IN CODE:«, t00=0x00a3, t01=0x0164}
0x1001a…10024 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x0008}
0x10024…1003c Head {h00=0x0014, h01=0x0050, text=»* NAME FUNCTION «, t00=0x00a4, t01=0x0012}
0x1003c…10046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x002a}
0x10046…10064 Head {h00=0x001a, h01=0x0050, text=»* IHPL INTERRUPT ENTRY«, t00=0x00a4, t01=0x0034}
0x10064…1008c Head {h00=0x0024, h01=0x0050, text=»* PLIHR HANDLE RELEASE INTERRUPT«, t00=0x00a4, t01=0x0052}
0x1008c…100b6 Head {h00=0x0026, h01=0x0050, text=»* PLIHA HANDLE ATTENTION INTERRUPT«, t00=0x00a4, t01=0x007a}
0x100b6…100e6 Head {h00=0x002c, h01=0x0050, text=»* PLIHC HANDLE I/O COMPLETION INTERRUPT «, t00=0x00a4, t01=0x00a4}
0x100e6…1011c Head {h00=0x0032, h01=0x0050, text=»* COMPSTA HANDLE COMPLETION OF START COMMANDS «, t00=0x00a4, t01=0x00d4}
0x1011c…10146 Head {h00=0x0026, h01=0x0050, text=»* (TEST CU, OPEN LINE, OPEN DLS)«, t00=0x00a4, t01=0x010a}
0x10146…1017c Head {h00=0x0032, h01=0x0050, text=»* COMPTEST HANDLE COMPLETION OF TEST COMMANDS «, t00=0x00a4, t01=0x0134}
0x1017c…101b6 Head {h00=0x0036, h01=0x0050, text=»* (PLC STATISTICS, DLS STAT., READ LOCAL MEMORY)«, t00=0x00a4, t01=0x016a}
0x101b6…101ec Head {h00=0x0032, h01=0x0050, text=»* COMPWRI HANDLE COMPLETION OF WRITE COMMANDS «, t00=0x00a5, t01=0x0014}
0x101ec…10228 Head {h00=0x0038, h01=0x0050, text=»* COMPGR HANDLE COMPLETION OF GENERAL READ COMMANDS «, t00=0x00a5, t01=0x004a}
0x10228…10256 Head {h00=0x002a, h01=0x0050, text=»* GRERR HANDLE ERRORS AT GENERAL READ «, t00=0x00a5, t01=0x0086}
0x10256…10290 Head {h00=0x0036, h01=0x0050, text=»* GRSACK HANDLE STATUS AND RR MESSAGE FROM DEVICE «, t00=0x00a5, t01=0x00b4}
0x10290…102be Head {h00=0x002a, h01=0x0050, text=»* GRDATA HANDLE DATA INPUT FROM DEVICE«, t00=0x00a5, t01=0x00ee}
0x102be…102f2 Head {h00=0x0030, h01=0x0050, text=»* GRRES HANDLE RESET MESSAGE FROM SECONDARY «, t00=0x00a5, t01=0x011c}
0x102f2…102fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a5, t01=0x0150}
0x102fc…1030a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a5, t01=0x015a}
0x1030a…10314 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a5, t01=0x0168}
0x10314…10358 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00a5, t01=0x0172}
0x10358…10362 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x0026}
0x10362…1037a Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x00a6, t01=0x0030}
0x1037a…10388 Head {h00=0x000a, h01=0x0050, text=»* IHPL«, t00=0x00a6, t01=0x0048}
0x10388…10392 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x0056}
0x10392…103a6 Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x00a6, t01=0x0060}
0x103a6…103dc Head {h00=0x0032, h01=0x0050, text=»* THIS ROUTINE CONTAINS INTERRUPT ENTRIES FOR «, t00=0x00a6, t01=0x0074}
0x103dc…10412 Head {h00=0x0032, h01=0x0050, text=»* ALL PLC:S INCLUDED. IT SAVES A1-A8, SETS CWT«, t00=0x00a6, t01=0x00aa}
0x10412…1044a Head {h00=0x0034, h01=0x0050, text=»* ADDRESS AND EXITS TO RELEASE OR I/O COMPLETION«, t00=0x00a6, t01=0x00e0}
0x1044a…10466 Head {h00=0x0018, h01=0x0050, text=»* INTERRUPT HANDLER.«, t00=0x00a6, t01=0x0118}
0x10466…10470 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x0134}
0x10470…10480 Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x00a6, t01=0x013e}
0x10480…1049c Head {h00=0x0018, h01=0x0050, text=»* HARDWARE INTERRUPT«, t00=0x00a6, t01=0x014e}
0x1049c…104a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x016a}
0x104a6…104b6 Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x00a6, t01=0x0174}
0x104b6…104da Head {h00=0x0020, h01=0x0050, text=»* A15 = SYSTEM STACK POINTER«, t00=0x00a6, t01=0x0184}
0x104da…104f6 Head {h00=0x0018, h01=0x0050, text=»* INTERR. INHIBITED «, t00=0x00a7, t01=0x0018}
0x104f6…1050c Head {h00=0x0012, h01=0x0050, text=»* MODE SYSTEM «, t00=0x00a7, t01=0x0034}
0x1050c…10516 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x004a}
0x10516…10528 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x00a7, t01=0x0054}
0x10528…10544 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x00a7, t01=0x0066}
0x10544…1054e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x0082}
0x1054e…10592 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00a7, t01=0x008c}
0x10592…1059c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x00d0}
0x1059c…105b0 Head {h00=0x0010, h01=0x0050, text=»IHPL01 EQU *«, t00=0x00a7, t01=0x00da}
0x105b0…105ca Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRL=0 U =5«, t00=0x00a7, t01=0x00ee}
0x105ca…105e0 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00a7, t01=0x0108}
0x105e0…10600 Head {h00=0x001c, h01=0x0050, text=» CF A15,SAVE8 PUSH A1-A8«, t00=0x00a7, t01=0x011e}
0x10600…1060c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a7, t01=0x013e}
0x1060c…10626 Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRL=0 U =5«, t00=0x00a7, t01=0x014a}
0x10626…1063c Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x00a7, t01=0x0164}
0x1063c…1065a Head {h00=0x001a, h01=0x0050, text=» MSR 8,A15 PUSH A1-A8 «, t00=0x00a7, t01=0x017a}
0x1065a…10666 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a8, t01=0x0008}
0x10666…10670 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a8, t01=0x0014}
0x10670…1068a Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRL=0 U =5«, t00=0x00a8, t01=0x001e}
0x1068a…106b4 Head {h00=0x0026, h01=0x0050, text=» LDKL A5,PL0CWT CWT ADDRESS, PLC 0«, t00=0x00a8, t01=0x0038}
0x106b4…106dc Head {h00=0x0024, h01=0x0050, text=» RF IHPL COMMON PART, ALL PLC:S «, t00=0x00a8, t01=0x0062}
0x106dc…106e8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a8, t01=0x008a}
0x106e8…106f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a8, t01=0x0096}
0x106f2…10700 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a8, t01=0x00a0}
0x10700…1070a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a8, t01=0x00ae}
0x1070a…1071e Head {h00=0x0010, h01=0x0050, text=»IHPL02 EQU *«, t00=0x00a8, t01=0x00b8}
0x1071e…10738 Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRL=0 U =5«, t00=0x00a8, t01=0x00cc}
0x10738…1074e Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=1 «, t00=0x00a8, t01=0x00e6}
0x1074e…10764 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00a8, t01=0x00fc}
0x10764…10784 Head {h00=0x001c, h01=0x0050, text=» CF A15,SAVE8 PUSH A1-A8«, t00=0x00a8, t01=0x0112}
0x10784…10790 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a8, t01=0x0132}
0x10790…1079a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a8, t01=0x013e}
0x1079a…107b4 Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRL=0 U =5«, t00=0x00a8, t01=0x0148}
0x107b4…107ca Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=1 «, t00=0x00a8, t01=0x0162}
0x107ca…107e0 Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x00a8, t01=0x0178}
0x107e0…107fe Head {h00=0x001a, h01=0x0050, text=» MSR 8,A15 PUSH A1-A8 «, t00=0x00a8, t01=0x018e}
0x107fe…1080a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a9, t01=0x001c}
0x1080a…10814 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a9, t01=0x0028}
0x10814…1082e Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRL=0 U =5«, t00=0x00a9, t01=0x0032}
0x1082e…10844 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=1 «, t00=0x00a9, t01=0x004c}
0x10844…1086e Head {h00=0x0026, h01=0x0050, text=» LDKL A5,PL1CWT CWT ADDRESS, PLC 1«, t00=0x00a9, t01=0x0062}
0x1086e…10896 Head {h00=0x0024, h01=0x0050, text=» RF IHPL COMMON PART, ALL PLC:S «, t00=0x00a9, t01=0x008c}
0x10896…108a2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a9, t01=0x00b4}
0x108a2…108ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a9, t01=0x00c0}
0x108ac…108c0 Head {h00=0x0010, h01=0x0050, text=»IHPL03 EQU *«, t00=0x00a9, t01=0x00ca}
0x108c0…108da Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRL=0 U =5«, t00=0x00a9, t01=0x00de}
0x108da…108f0 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=1 «, t00=0x00a9, t01=0x00f8}
0x108f0…10906 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=2 «, t00=0x00a9, t01=0x010e}
0x10906…1091c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00a9, t01=0x0124}
0x1091c…1093c Head {h00=0x001c, h01=0x0050, text=» CF A15,SAVE8 PUSH A1-A8«, t00=0x00a9, t01=0x013a}
0x1093c…10948 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a9, t01=0x015a}
0x10948…10952 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a9, t01=0x0166}
0x10952…1096c Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRL=0 U =5«, t00=0x00a9, t01=0x0170}
0x1096c…10982 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=1 «, t00=0x00a9, t01=0x018a}
0x10982…10998 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=2 «, t00=0x00aa, t01=0x0010}
0x10998…109ae Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x00aa, t01=0x0026}
0x109ae…109cc Head {h00=0x001a, h01=0x0050, text=» MSR 8,A15 PUSH A1-A8 «, t00=0x00aa, t01=0x003c}
0x109cc…109d8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00aa, t01=0x005a}
0x109d8…109e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00aa, t01=0x0066}
0x109e2…109fc Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRL=0 U =5«, t00=0x00aa, t01=0x0070}
0x109fc…10a12 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=1 «, t00=0x00aa, t01=0x008a}
0x10a12…10a28 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=2 «, t00=0x00aa, t01=0x00a0}
0x10a28…10a52 Head {h00=0x0026, h01=0x0050, text=» LDKL A5,PL2CWT CWT ADDRESS, PLC 2«, t00=0x00aa, t01=0x00b6}
0x10a52…10a7a Head {h00=0x0024, h01=0x0050, text=» RF IHPL COMMON PART, ALL PLC:S «, t00=0x00aa, t01=0x00e0}
0x10a7a…10a86 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00aa, t01=0x0108}
0x10a86…10a90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00aa, t01=0x0114}
0x10a90…10aa4 Head {h00=0x0010, h01=0x0050, text=»IHPL04 EQU *«, t00=0x00aa, t01=0x011e}
0x10aa4…10abe Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRL=0 U =5«, t00=0x00aa, t01=0x0132}
0x10abe…10ad4 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=1 «, t00=0x00aa, t01=0x014c}
0x10ad4…10aea Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=2 «, t00=0x00aa, t01=0x0162}
0x10aea…10b00 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=3 «, t00=0x00aa, t01=0x0178}
0x10b00…10b16 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00aa, t01=0x018e}
0x10b16…10b36 Head {h00=0x001c, h01=0x0050, text=» CF A15,SAVE8 PUSH A1-A8«, t00=0x00ab, t01=0x0014}
0x10b36…10b42 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ab, t01=0x0034}
0x10b42…10b4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x0040}
0x10b4c…10b66 Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRL=0 U =5«, t00=0x00ab, t01=0x004a}
0x10b66…10b7c Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=1 «, t00=0x00ab, t01=0x0064}
0x10b7c…10b92 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=2 «, t00=0x00ab, t01=0x007a}
0x10b92…10ba8 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=3 «, t00=0x00ab, t01=0x0090}
0x10ba8…10bbe Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x00ab, t01=0x00a6}
0x10bbe…10bdc Head {h00=0x001a, h01=0x0050, text=» MSR 8,A15 PUSH A1-A8 «, t00=0x00ab, t01=0x00bc}
0x10bdc…10be8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ab, t01=0x00da}
0x10be8…10bf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x00e6}
0x10bf2…10c0c Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRL=0 U =5«, t00=0x00ab, t01=0x00f0}
0x10c0c…10c22 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=1 «, t00=0x00ab, t01=0x010a}
0x10c22…10c38 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=2 «, t00=0x00ab, t01=0x0120}
0x10c38…10c4e Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=3 «, t00=0x00ab, t01=0x0136}
0x10c4e…10c78 Head {h00=0x0026, h01=0x0050, text=» LDKL A5,PL3CWT CWT ADDRESS, PLC 3«, t00=0x00ab, t01=0x014c}
0x10c78…10ca0 Head {h00=0x0024, h01=0x0050, text=» RF IHPL COMMON PART, ALL PLC:S «, t00=0x00ab, t01=0x0176}
0x10ca0…10cac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ac, t01=0x000e}
0x10cac…10cb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ac, t01=0x001a}
0x10cb6…10cca Head {h00=0x0010, h01=0x0050, text=»IHPR01 EQU *«, t00=0x00ac, t01=0x0024}
0x10cca…10ce0 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x00ac, t01=0x0038}
0x10ce0…10cf6 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00ac, t01=0x004e}
0x10cf6…10d16 Head {h00=0x001c, h01=0x0050, text=» CF A15,SAVE8 PUSH A1-A8«, t00=0x00ac, t01=0x0064}
0x10d16…10d22 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ac, t01=0x0084}
0x10d22…10d38 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x00ac, t01=0x0090}
0x10d38…10d4e Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x00ac, t01=0x00a6}
0x10d4e…10d6c Head {h00=0x001a, h01=0x0050, text=» MSR 8,A15 PUSH A1-A8 «, t00=0x00ac, t01=0x00bc}
0x10d6c…10d78 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ac, t01=0x00da}
0x10d78…10d8e Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x00ac, t01=0x00e6}
0x10d8e…10dbe Head {h00=0x002c, h01=0x0050, text=» LDKL A5,PR1CWT CWTADDRESS PLC 1 REMOTE «, t00=0x00ac, t01=0x00fc}
0x10dbe…10de4 Head {h00=0x0022, h01=0x0050, text=» RF IHPL COMMON PART ALL CWT:S«, t00=0x00ac, t01=0x012c}
0x10de4…10df0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ac, t01=0x0152}
0x10df0…10e04 Head {h00=0x0010, h01=0x0050, text=»IHPR02 EQU *«, t00=0x00ac, t01=0x015e}
0x10e04…10e1a Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x00ac, t01=0x0172}
0x10e1a…10e30 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x00ac, t01=0x0188}
0x10e30…10e46 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00ad, t01=0x000e}
0x10e46…10e66 Head {h00=0x001c, h01=0x0050, text=» CF A15,SAVE8 PUSH A1-A8«, t00=0x00ad, t01=0x0024}
0x10e66…10e72 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ad, t01=0x0044}
0x10e72…10e88 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x00ad, t01=0x0050}
0x10e88…10e9e Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x00ad, t01=0x0066}
0x10e9e…10eb4 Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x00ad, t01=0x007c}
0x10eb4…10ed2 Head {h00=0x001a, h01=0x0050, text=» MSR 8,A15 PUSH A1-A8 «, t00=0x00ad, t01=0x0092}
0x10ed2…10ede Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ad, t01=0x00b0}
0x10ede…10ef4 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x00ad, t01=0x00bc}
0x10ef4…10f0a Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x00ad, t01=0x00d2}
0x10f0a…10f3a Head {h00=0x002c, h01=0x0050, text=» LDKL A5,PR2CWT CWTADDRESS PLC 2 REMOTE «, t00=0x00ad, t01=0x00e8}
0x10f3a…10f60 Head {h00=0x0022, h01=0x0050, text=» RF IHPL COMMON PART ALL CWT:S«, t00=0x00ad, t01=0x0118}
0x10f60…10f6c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ad, t01=0x013e}
0x10f6c…10f80 Head {h00=0x0010, h01=0x0050, text=»IHPR03 EQU *«, t00=0x00ad, t01=0x014a}
0x10f80…10f96 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x00ad, t01=0x015e}
0x10f96…10fac Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x00ad, t01=0x0174}
0x10fac…10fc2 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=2 «, t00=0x00ad, t01=0x018a}
0x10fc2…10fd8 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00ae, t01=0x0010}
0x10fd8…10ff8 Head {h00=0x001c, h01=0x0050, text=» CF A15,SAVE8 PUSH A1-A8«, t00=0x00ae, t01=0x0026}
0x10ff8…11004 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ae, t01=0x0046}
0x11004…1101a Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x00ae, t01=0x0052}
0x1101a…11030 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x00ae, t01=0x0068}
0x11030…11046 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=2 «, t00=0x00ae, t01=0x007e}
0x11046…1105c Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x00ae, t01=0x0094}
0x1105c…1107a Head {h00=0x001a, h01=0x0050, text=» MSR 8,A15 PUSH A1-A8 «, t00=0x00ae, t01=0x00aa}
0x1107a…11086 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ae, t01=0x00c8}
0x11086…1109c Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x00ae, t01=0x00d4}
0x1109c…110b2 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x00ae, t01=0x00ea}
0x110b2…110c8 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=2 «, t00=0x00ae, t01=0x0100}
0x110c8…110f8 Head {h00=0x002c, h01=0x0050, text=» LDKL A5,PR3CWT CWTADDRESS PLC 3 REMOTE «, t00=0x00ae, t01=0x0116}
0x110f8…1111e Head {h00=0x0022, h01=0x0050, text=» RF IHPL COMMON PART ALL PLC:S«, t00=0x00ae, t01=0x0146}
0x1111e…1112a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ae, t01=0x016c}
0x1112a…1113e Head {h00=0x0010, h01=0x0050, text=»IHPR04 EQU *«, t00=0x00ae, t01=0x0178}
0x1113e…11154 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x00ae, t01=0x018c}
0x11154…1116a Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x00af, t01=0x0012}
0x1116a…11180 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=2 «, t00=0x00af, t01=0x0028}
0x11180…11196 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=3 «, t00=0x00af, t01=0x003e}
0x11196…111ac Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00af, t01=0x0054}
0x111ac…111cc Head {h00=0x001c, h01=0x0050, text=» CF A15,SAVE8 PUSH A1-A8«, t00=0x00af, t01=0x006a}
0x111cc…111d8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00af, t01=0x008a}
0x111d8…111ee Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x00af, t01=0x0096}
0x111ee…11204 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x00af, t01=0x00ac}
0x11204…1121a Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=2 «, t00=0x00af, t01=0x00c2}
0x1121a…11230 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=3 «, t00=0x00af, t01=0x00d8}
0x11230…11246 Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x00af, t01=0x00ee}
0x11246…11264 Head {h00=0x001a, h01=0x0050, text=» MSR 8,A15 PUSH A1-A8 «, t00=0x00af, t01=0x0104}
0x11264…11270 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00af, t01=0x0122}
0x11270…11286 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x00af, t01=0x012e}
0x11286…1129c Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=1 «, t00=0x00af, t01=0x0144}
0x1129c…112b6 Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRR=2 U =9«, t00=0x00af, t01=0x015a}
0x112b6…112d0 Head {h00=0x0016, h01=0x0050, text=» IFF PLCNRR=3 U =9«, t00=0x00af, t01=0x0174}
0x112d0…11300 Head {h00=0x002c, h01=0x0050, text=» LDKL A5,PR4CWT CWTADDRESS PLC 4 REMOTE «, t00=0x00af, t01=0x018e}
0x11300…11326 Head {h00=0x0022, h01=0x0050, text=» RF IHPL COMMON PART ALL CWT:S«, t00=0x00b0, t01=0x002e}
0x11326…11332 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b0, t01=0x0054}
0x11332…11340 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b0, t01=0x0060}
0x11340…1134a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x006e}
0x1134a…1135c Head {h00=0x000e, h01=0x0050, text=»IHPL EQU *«, t00=0x00b0, t01=0x0078}
0x1135c…11386 Head {h00=0x0026, h01=0x0050, text=» ST P,INTSAV SAVE LATEST INTERRUPT«, t00=0x00b0, t01=0x008a}
0x11386…113a8 Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 RESET HIGH BYTE «, t00=0x00b0, t01=0x00b4}
0x113a8…113d8 Head {h00=0x002c, h01=0x0050, text=» LC A1,CWTCID+CIDINT,A5 INTERRUPT SOURCE«, t00=0x00b0, t01=0x00d6}
0x113d8…113f4 Head {h00=0x0018, h01=0x0050, text=» CWK A1,/40 RELEASE?«, t00=0x00b0, t01=0x0106}
0x113f4…11414 Head {h00=0x001c, h01=0x0050, text=» RF(E) PLIHR YES, HANDLE«, t00=0x00b0, t01=0x0122}
0x11414…11438 Head {h00=0x0020, h01=0x0050, text=» CWK A1,/20 I/O COMPLETION? «, t00=0x00b0, t01=0x0142}
0x11438…11458 Head {h00=0x001c, h01=0x0050, text=» RF(E) PLIHC YES, HANDLE«, t00=0x00b0, t01=0x0166}
0x11458…11476 Head {h00=0x001a, h01=0x0050, text=» CWK A1,/80 ATTENTION?«, t00=0x00b0, t01=0x0186}
0x11476…11496 Head {h00=0x001c, h01=0x0050, text=» RF(E) PLIHA YES, HANDLE«, t00=0x00b1, t01=0x0014}
0x11496…114a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b1, t01=0x0034}
0x114a0…114d6 Head {h00=0x0032, h01=0x0050, text=» CF A15,PLCNOP ILLEGAL CODE, SET NOT OPERABLE «, t00=0x00b1, t01=0x003e}
0x114d6…114ee Head {h00=0x0014, h01=0x0050, text=» ABL TDISP EXIT «, t00=0x00b1, t01=0x0074}
0x114ee…114f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b1, t01=0x008c}
0x114f8…11506 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b1, t01=0x0096}
0x11506…11510 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b1, t01=0x00a4}
0x11510…11554 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00b1, t01=0x00ae}
0x11554…1155e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b1, t01=0x00f2}
0x1155e…11576 Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x00b1, t01=0x00fc}
0x11576…11586 Head {h00=0x000c, h01=0x0050, text=»* PLIHR «, t00=0x00b1, t01=0x0114}
0x11586…11590 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b1, t01=0x0124}
0x11590…115a4 Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x00b1, t01=0x012e}
0x115a4…115d6 Head {h00=0x002e, h01=0x0050, text=»* THIS ROUTINE HANDLES RELEASE INTERRUPTS.«, t00=0x00b1, t01=0x0142}
0x115d6…11608 Head {h00=0x002e, h01=0x0050, text=»* IT RESETS THE INTERRUPT, AND IF ANOTHER «, t00=0x00b1, t01=0x0174}
0x11608…11638 Head {h00=0x002c, h01=0x0050, text=»* PROCESS IS WAITING FOR THE CCA, RETURN«, t00=0x00b2, t01=0x0016}
0x11638…11664 Head {h00=0x0028, h01=0x0050, text=»* IS MADE TO CCA ALLOCATION ROUTINE.«, t00=0x00b2, t01=0x0046}
0x11664…1166e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b2, t01=0x0072}
0x1166e…1167e Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x00b2, t01=0x007c}
0x1167e…11690 Head {h00=0x000e, h01=0x0050, text=»* RF PLIHR«, t00=0x00b2, t01=0x008c}
0x11690…1169a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b2, t01=0x009e}
0x1169a…116aa Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x00b2, t01=0x00a8}
0x116aa…116c6 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x00b2, t01=0x00b8}
0x116c6…116d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b2, t01=0x00d4}
0x116d0…116e2 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x00b2, t01=0x00de}
0x116e2…116fe Head {h00=0x0018, h01=0x0050, text=»* IF PROCESS WAITING«, t00=0x00b2, t01=0x00f0}
0x116fe…1172e Head {h00=0x002c, h01=0x0050, text=»* A4 = BLOCK ADDRESS OF WAITING PROCESS«, t00=0x00b2, t01=0x010c}
0x1172e…1174a Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x00b2, t01=0x013c}
0x1174a…11754 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b2, t01=0x0158}
0x11754…11798 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00b2, t01=0x0162}
0x11798…117a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b3, t01=0x0016}
0x117a2…117b6 Head {h00=0x0010, h01=0x0050, text=»PLIHR EQU * «, t00=0x00b3, t01=0x0020}
0x117b6…117dc Head {h00=0x0022, h01=0x0050, text=» EX CWTST3,A5 RESET INTERRUPT «, t00=0x00b3, t01=0x0034}
0x117dc…1180e Head {h00=0x002e, h01=0x0050, text=» LD A4,CWTCCQ,A5 PROCESS WAITING FOR CCA? «, t00=0x00b3, t01=0x005a}
0x1180e…1183c Head {h00=0x002a, h01=0x0050, text=» ABL(NZ) CCARST YES, ACTIVATE PROCESS «, t00=0x00b3, t01=0x008c}
0x1183c…11862 Head {h00=0x0022, h01=0x0050, text=» CM CWTCCB,A5 NO, SET CCA FREE«, t00=0x00b3, t01=0x00ba}
0x11862…1187a Head {h00=0x0014, h01=0x0050, text=» ABL TDISP EXIT «, t00=0x00b3, t01=0x00e0}
0x1187a…11884 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b3, t01=0x00f8}
0x11884…11892 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b3, t01=0x0102}
0x11892…1189c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b3, t01=0x0110}
0x1189c…118e0 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00b3, t01=0x011a}
0x118e0…118ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b3, t01=0x015e}
0x118ea…11902 Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x00b3, t01=0x0168}
0x11902…11912 Head {h00=0x000c, h01=0x0050, text=»* PLIHA «, t00=0x00b3, t01=0x0180}
0x11912…1191c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b3, t01=0x0190}
0x1191c…11930 Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x00b4, t01=0x000a}
0x11930…11968 Head {h00=0x0034, h01=0x0050, text=»* THIS ROUTINE HANDLES ATTENTION INTERRUPTS. IF «, t00=0x00b4, t01=0x001e}
0x11968…119a0 Head {h00=0x0034, h01=0x0050, text=»* ERROR, IT SETS AN ERROR CODE AND STARTS ABORT «, t00=0x00b4, t01=0x0056}
0x119a0…119d8 Head {h00=0x0034, h01=0x0050, text=»* OF ALL CALLS. IF COMMUNICATION REESTABLISHED, «, t00=0x00b4, t01=0x008e}
0x119d8…119f6 Head {h00=0x001a, h01=0x0050, text=»* IT STARTS RECOVERY. «, t00=0x00b4, t01=0x00c6}
0x119f6…11a00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b4, t01=0x00e4}
0x11a00…11a10 Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x00b4, t01=0x00ee}
0x11a10…11a22 Head {h00=0x000e, h01=0x0050, text=»* RF PLIHA«, t00=0x00b4, t01=0x00fe}
0x11a22…11a2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b4, t01=0x0110}
0x11a2c…11a3c Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x00b4, t01=0x011a}
0x11a3c…11a58 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x00b4, t01=0x012a}
0x11a58…11a62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b4, t01=0x0146}
0x11a62…11a74 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x00b4, t01=0x0150}
0x11a74…11a90 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x00b4, t01=0x0162}
0x11a90…11aaa Head {h00=0x0016, h01=0x0050, text=»* A6 = WS NUMBER «, t00=0x00b4, t01=0x017e}
0x11aaa…11ab4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b5, t01=0x0008}
0x11ab4…11af8 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00b5, t01=0x0012}
0x11af8…11b02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b5, t01=0x0056}
0x11b02…11b16 Head {h00=0x0010, h01=0x0050, text=»PLIHA EQU * «, t00=0x00b5, t01=0x0060}
0x11b16…11b40 Head {h00=0x0026, h01=0x0050, text=» LD A1,CWTRCA+CCRSTA,A5 PLC STATUS«, t00=0x00b5, t01=0x0074}
0x11b40…11b6a Head {h00=0x0026, h01=0x0050, text=» ST A1,CWTPLS,A5 SAVE FOR TESTING «, t00=0x00b5, t01=0x009e}
0x11b6a…11b80 Head {h00=0x0012, h01=0x0050, text=» IFF UTTEST=0 «, t00=0x00b5, t01=0x00c8}
0x11b80…11b9e Head {h00=0x001a, h01=0x0050, text=» CF A15,LOGATT LOG RCA«, t00=0x00b5, t01=0x00de}
0x11b9e…11baa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b5, t01=0x00fc}
0x11baa…11bd4 Head {h00=0x0026, h01=0x0050, text=» LC A6,CWTRCA+CCRDLS,A5 WS NUMBER «, t00=0x00b5, t01=0x0108}
0x11bd4…11bf0 Head {h00=0x0018, h01=0x0050, text=» ANK A6,MASKWS CLEAN«, t00=0x00b5, t01=0x0132}
0x11bf0…11c12 Head {h00=0x001e, h01=0x0050, text=» EX CWTST3,A5 RELEASE RCA «, t00=0x00b5, t01=0x014e}
0x11c12…11c1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b5, t01=0x0170}
0x11c1c…11c2a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b5, t01=0x017a}
0x11c2a…11c34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b5, t01=0x0188}
0x11c34…11c58 (182, 0, 398) Head {h00=0x0020, h01=0x0050, text=» LDKL A2,/FFFF-STACOM-STAERR«, t00=0x00b6, t01=0x0004}
0x11c58…11c7c Head {h00=0x0020, h01=0x0050, text=»* MASK FOR ALLOWED ERRORS«, t00=0x00b6, t01=0x0028}
0x11c7c…11c9c Head {h00=0x001c, h01=0x0050, text=» ANR A2,A1 FATAL ERROR? «, t00=0x00b6, t01=0x004c}
0x11c9c…11cbe Head {h00=0x001e, h01=0x0050, text=» RF(Z) IA100 NO, CONTINUE «, t00=0x00b6, t01=0x006c}
0x11cbe…11cea Head {h00=0x0028, h01=0x0050, text=» CF A15,PLCNOP SET PLC NOT OPERABLE «, t00=0x00b6, t01=0x008e}
0x11cea…11d02 Head {h00=0x0014, h01=0x0050, text=» ABL TDISP EXIT «, t00=0x00b6, t01=0x00ba}
0x11d02…11d0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x00d2}
0x11d0c…11d20 Head {h00=0x0010, h01=0x0050, text=»IA100 EQU * «, t00=0x00b6, t01=0x00dc}
0x11d20…11d3a Head {h00=0x0016, h01=0x0050, text=» LDR A2,A1 STATUS «, t00=0x00b6, t01=0x00f0}
0x11d3a…11d6e Head {h00=0x0030, h01=0x0050, text=» ANK A2,STACOM COMMUNICATION REESTABLISHED? «, t00=0x00b6, t01=0x010a}
0x11d6e…11da0 Head {h00=0x002e, h01=0x0050, text=» ABL(NZ) PLREWS YES, START RECOVERY OF WS «, t00=0x00b6, t01=0x013e}
0x11da0…11daa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x0170}
0x11daa…11dc6 Head {h00=0x0018, h01=0x0050, text=» LDR A2,A6 WS NUMBER«, t00=0x00b6, t01=0x017a}
0x11dc6…11df0 Head {h00=0x0026, h01=0x0050, text=» CF A15,STAHAN HANDLE ERROR STATUS«, t00=0x00b7, t01=0x0008}
0x11df0…11e14 Head {h00=0x0020, h01=0x0050, text=» ABL PLDSP2 LOCAL DISPATCHER«, t00=0x00b7, t01=0x0032}
0x11e14…11e1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b7, t01=0x0056}
0x11e1e…11e2c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b7, t01=0x0060}
0x11e2c…11e36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b7, t01=0x006e}
0x11e36…11e7a Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00b7, t01=0x0078}
0x11e7a…11e84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b7, t01=0x00bc}
0x11e84…11e9c Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x00b7, t01=0x00c6}
0x11e9c…11eac Head {h00=0x000c, h01=0x0050, text=»* PLIHC «, t00=0x00b7, t01=0x00de}
0x11eac…11eb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b7, t01=0x00ee}
0x11eb6…11eca Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x00b7, t01=0x00f8}
0x11eca…11f04 Head {h00=0x0036, h01=0x0050, text=»* THIS ROUTINE HANDLES I/O COMPLETION INTERRUPTS. «, t00=0x00b7, t01=0x010c}
0x11f04…11f3e Head {h00=0x0036, h01=0x0050, text=»* IT CHECKS WHICH COMMAND THAT HAS BEEN COMPLETED,«, t00=0x00b7, t01=0x0146}
0x11f3e…11f74 Head {h00=0x0032, h01=0x0050, text=»* AND EXITS TO CORRESPONDING COMMAND HANDLER. «, t00=0x00b7, t01=0x0180}
0x11f74…11f7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x0026}
0x11f7e…11f8e Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x00b8, t01=0x0030}
0x11f8e…11fa0 Head {h00=0x000e, h01=0x0050, text=»* RF PLIHC«, t00=0x00b8, t01=0x0040}
0x11fa0…11faa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x0052}
0x11faa…11fba Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x00b8, t01=0x005c}
0x11fba…11fd6 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x00b8, t01=0x006c}
0x11fd6…11fe0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x0088}
0x11fe0…11ff2 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x00b8, t01=0x0092}
0x11ff2…1200c Head {h00=0x0016, h01=0x0050, text=»* A1 = PLC STATUS«, t00=0x00b8, t01=0x00a4}
0x1200c…1202c Head {h00=0x001c, h01=0x0050, text=»* A2 = FATAL PLC STATUS«, t00=0x00b8, t01=0x00be}
0x1202c…12048 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x00b8, t01=0x00de}
0x12048…12066 Head {h00=0x001a, h01=0x0050, text=»* A6 = USER PARAMETER«, t00=0x00b8, t01=0x00fa}
0x12066…12070 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x0118}
0x12070…120b4 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00b8, t01=0x0122}
0x120b4…120be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x0166}
0x120be…120d2 Head {h00=0x0010, h01=0x0050, text=»PLIHC EQU * «, t00=0x00b8, t01=0x0170}
0x120d2…120fc Head {h00=0x0026, h01=0x0050, text=» LD A1,CWTRCA+CCRSTA,A5 PLC STATUS«, t00=0x00b8, t01=0x0184}
0x120fc…12126 Head {h00=0x0026, h01=0x0050, text=» ST A1,CWTPLS,A5 SAVE FOR TESTING «, t00=0x00b9, t01=0x001e}
0x12126…1213c Head {h00=0x0012, h01=0x0050, text=» IFF UTTEST=0 «, t00=0x00b9, t01=0x0048}
0x1213c…1215a Head {h00=0x001a, h01=0x0050, text=» CF A15,LOGIOC LOG CCR«, t00=0x00b9, t01=0x005e}
0x1215a…12166 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b9, t01=0x007c}
0x12166…1218a Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FFFF-STAPOL-STALER«, t00=0x00b9, t01=0x0088}
0x1218a…121b4 Head {h00=0x0026, h01=0x0050, text=»* RESET POLL STOP & LINK ERROR «, t00=0x00b9, t01=0x00ac}
0x121b4…121f4 Head {h00=0x003c, h01=0x0050, text=» LD A6,CWTRCA+CCRIDW,A5 USER PARAMETER (DWT, DLS OR ...)«, t00=0x00b9, t01=0x00d6}
0x121f4…1221c Head {h00=0x0024, h01=0x0050, text=» LC A2,CWTRCA+CCRCMD,A5 COMMAND «, t00=0x00b9, t01=0x0116}
0x1221c…12226 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x013e}
0x12226…12234 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b9, t01=0x0148}
0x12234…1223e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x0156}
0x1223e…1226a Head {h00=0x0028, h01=0x0050, text=» LDK A3,CMDTBL COMMAND TABLE LENGTH «, t00=0x00b9, t01=0x0160}
0x1226a…1227e Head {h00=0x0010, h01=0x0050, text=»IC100 EQU * «, t00=0x00b9, t01=0x018c}
0x1227e…122ae Head {h00=0x002c, h01=0x0050, text=»* SCAN TABLE TO FIND MATCHING COMMAND«, t00=0x00ba, t01=0x0010}
0x122ae…122d4 Head {h00=0x0022, h01=0x0050, text=» SUK A3,CMDTB1 DECREMENT INDEX«, t00=0x00ba, t01=0x0040}
0x122d4…122fc Head {h00=0x0024, h01=0x0050, text=» RF(N) IC120 END OF TABLE. ERROR«, t00=0x00ba, t01=0x0066}
0x122fc…12326 Head {h00=0x0026, h01=0x0050, text=» CC A2,CMDTAB+1,A3 COMMAND FOUND? «, t00=0x00ba, t01=0x008e}
0x12326…12348 Head {h00=0x001e, h01=0x0050, text=» RB(NE) IC100 NO, CONTINUE«, t00=0x00ba, t01=0x00b8}
0x12348…12352 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x00da}
0x12352…12384 Head {h00=0x002e, h01=0x0050, text=» C1 A2,CMDTAB+4,A3 MASK FOR ALLOWED ERRORS«, t00=0x00ba, t01=0x00e4}
0x12384…123a4 Head {h00=0x001c, h01=0x0050, text=» ANR A2,A1 FATAL ERROR? «, t00=0x00ba, t01=0x0116}
0x123a4…123c6 Head {h00=0x001e, h01=0x0050, text=» RF(Z) IC110 NO, CONTINUE «, t00=0x00ba, t01=0x0136}
0x123c6…123f2 Head {h00=0x0028, h01=0x0050, text=» CF A15,PLCNOP SET PLC NOT OPERABLE «, t00=0x00ba, t01=0x0158}
0x123f2…12406 Head {h00=0x0010, h01=0x0050, text=»IC110 EQU * «, t00=0x00ba, t01=0x0184}
0x12406…1243c Head {h00=0x0032, h01=0x0050, text=» ABI CMDTAB+2,A3 CALL COMMAND HANDLING ROUTINE«, t00=0x00bb, t01=0x0008}
0x1243c…12446 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x003e}
0x12446…1245a Head {h00=0x0010, h01=0x0050, text=»IC120 EQU * «, t00=0x00bb, t01=0x0048}
0x1245a…1247c Head {h00=0x001e, h01=0x0050, text=» EX CWTST3,A5 RELEASE RCA «, t00=0x00bb, t01=0x005c}
0x1247c…124a8 Head {h00=0x0028, h01=0x0050, text=» CF A15,PLCNOP SET PLC NOT OPERABLE «, t00=0x00bb, t01=0x007e}
0x124a8…124cc Head {h00=0x0020, h01=0x0050, text=» ABL PLDSP2 LOCAL DISPATCHER«, t00=0x00bb, t01=0x00aa}
0x124cc…124d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x00ce}
0x124d6…124e4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bb, t01=0x00d8}
0x124e4…124ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x00e6}
0x124ee…12532 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00bb, t01=0x00f0}
0x12532…1253c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x0134}
0x1253c…12554 Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x00bb, t01=0x013e}
0x12554…12566 Head {h00=0x000e, h01=0x0050, text=»* COMPSTA «, t00=0x00bb, t01=0x0156}
0x12566…12570 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x0168}
0x12570…12584 Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x00bb, t01=0x0172}
0x12584…125ba Head {h00=0x0032, h01=0x0050, text=»* THESE ROUTINES HANDLE COMPLETION OF TEST CU,«, t00=0x00bb, t01=0x0186}
0x125ba…125e4 Head {h00=0x0026, h01=0x0050, text=»* OPEN LINE AND OPEN DLS COMMANDS.«, t00=0x00bc, t01=0x002c}
0x125e4…12618 Head {h00=0x0030, h01=0x0050, text=»* THEY CHECK THE RETURN CODE AND EXIT TO THE«, t00=0x00bc, t01=0x0056}
0x12618…12642 Head {h00=0x0026, h01=0x0050, text=»* ROUTINE THAT MADE THE I/O CALL. «, t00=0x00bc, t01=0x008a}
0x12642…1264c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x00b4}
0x1264c…1265c Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x00bc, t01=0x00be}
0x1265c…12674 Head {h00=0x0014, h01=0x0050, text=»* ABI CMDROU,A3 «, t00=0x00bc, t01=0x00ce}
0x12674…1267e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x00e6}
0x1267e…1268e Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x00bc, t01=0x00f0}
0x1268e…126a8 Head {h00=0x0016, h01=0x0050, text=»* A1 = PLC STATUS«, t00=0x00bc, t01=0x0100}
0x126a8…126c8 Head {h00=0x001c, h01=0x0050, text=»* A2 = FATAL PLC STATUS«, t00=0x00bc, t01=0x011a}
0x126c8…126e4 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x00bc, t01=0x013a}
0x126e4…1270c Head {h00=0x0024, h01=0x0050, text=»* A6 = PARAMETER (IF RELEVANT) «, t00=0x00bc, t01=0x0156}
0x1270c…12716 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x017e}
0x12716…12728 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x00bc, t01=0x0188}
0x12728…12742 Head {h00=0x0016, h01=0x0050, text=»* A1 = PLC STATUS«, t00=0x00bd, t01=0x000a}
0x12742…12762 Head {h00=0x001c, h01=0x0050, text=»* A2 = FATAL PLC STATUS«, t00=0x00bd, t01=0x0024}
0x12762…1277e Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x00bd, t01=0x0044}
0x1277e…127ac Head {h00=0x002a, h01=0x0050, text=»* A6 = DLS INDEX (IF EXIT TO ODLRST) «, t00=0x00bd, t01=0x0060}
0x127ac…127b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bd, t01=0x008e}
0x127b6…127fa Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00bd, t01=0x0098}
0x127fa…12804 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bd, t01=0x00dc}
0x12804…12818 Head {h00=0x0010, h01=0x0050, text=»COMPTC EQU *«, t00=0x00bd, t01=0x00e6}
0x12818…1283a Head {h00=0x001e, h01=0x0050, text=» EX CWTST3,A5 RELEASE RCA «, t00=0x00bd, t01=0x00fa}
0x1283a…12870 Head {h00=0x0032, h01=0x0050, text=» ABL TCURST RETURN TO ROUTINE MAKING I/O CALL «, t00=0x00bd, t01=0x011c}
0x12870…1287a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bd, t01=0x0152}
0x1287a…12888 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bd, t01=0x015c}
0x12888…12892 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bd, t01=0x016a}
0x12892…1289c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bd, t01=0x0174}
0x1289c…128be Head {h00=0x001e, h01=0x0050, text=»* OPEN LINE, COMPLETION«, t00=0x00bd, t01=0x017e}
0x128be…128c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00be, t01=0x0010}
0x128c8…128dc Head {h00=0x0010, h01=0x0050, text=»COMPOP EQU *«, t00=0x00be, t01=0x001a}
0x128dc…128fe Head {h00=0x001e, h01=0x0050, text=» EX CWTST3,A5 RELEASE RCA «, t00=0x00be, t01=0x002e}
0x128fe…12934 Head {h00=0x0032, h01=0x0050, text=» ABL OPLRST RETURN TO ROUTINE MAKING I/O CALL «, t00=0x00be, t01=0x0050}
0x12934…1293e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00be, t01=0x0086}
0x1293e…12948 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00be, t01=0x0090}
0x12948…1296a Head {h00=0x001e, h01=0x0050, text=»* OPEN DLS, COMPLETION «, t00=0x00be, t01=0x009a}
0x1296a…12974 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00be, t01=0x00bc}
0x12974…12988 Head {h00=0x0010, h01=0x0050, text=»COMPOD EQU *«, t00=0x00be, t01=0x00c6}
0x12988…129aa Head {h00=0x001e, h01=0x0050, text=» EX CWTST3,A5 RELEASE RCA «, t00=0x00be, t01=0x00da}
0x129aa…129ca Head {h00=0x001c, h01=0x0050, text=» LDR A2,A2 FATAL STATUS?«, t00=0x00be, t01=0x00fc}
0x129ca…129f6 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) CD100 YES, SKIP STATUS CHECK«, t00=0x00be, t01=0x011c}
0x129f6…12a00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00be, t01=0x0148}
0x12a00…12a1c Head {h00=0x0018, h01=0x0050, text=» LDR A2,A6 WS NUMBER«, t00=0x00be, t01=0x0152}
0x12a1c…12a44 Head {h00=0x0024, h01=0x0050, text=» CF A15,STAHAN HANDLE PLC STATUS«, t00=0x00be, t01=0x016e}
0x12a44…12a6e Head {h00=0x0026, h01=0x0050, text=» LDK A2,0 CLEAR FATAL STATUS FLAGS«, t00=0x00bf, t01=0x0008}
0x12a6e…12a78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x0032}
0x12a78…12a8c Head {h00=0x0010, h01=0x0050, text=»CD100 EQU * «, t00=0x00bf, t01=0x003c}
0x12a8c…12ac2 Head {h00=0x0032, h01=0x0050, text=» ABL ODLRST RETURN TO ROUTINE MAKING I/O CALL «, t00=0x00bf, t01=0x0050}
0x12ac2…12acc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x0086}
0x12acc…12ada Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bf, t01=0x0090}
0x12ada…12ae4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x009e}
0x12ae4…12b28 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00bf, t01=0x00a8}
0x12b28…12b32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x00ec}
0x12b32…12b4a Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x00bf, t01=0x00f6}
0x12b4a…12b5c Head {h00=0x000e, h01=0x0050, text=»* COMPTEST«, t00=0x00bf, t01=0x010e}
0x12b5c…12b66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x0120}
0x12b66…12b7a Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x00bf, t01=0x012a}
0x12b7a…12bb0 Head {h00=0x0032, h01=0x0050, text=»* THIS ROUTINE HANDLES COMPLETION OF GET LINE «, t00=0x00bf, t01=0x013e}
0x12bb0…12be8 Head {h00=0x0034, h01=0x0050, text=»* STATISTICS, GET DLS STATISTICS AND READ LOCAL «, t00=0x00bf, t01=0x0174}
0x12be8…12c02 Head {h00=0x0016, h01=0x0050, text=»* MEMORY COMMANDS.«, t00=0x00c0, t01=0x001c}
0x12c02…12c34 Head {h00=0x002e, h01=0x0050, text=»* IT CHECKS THE PLC STATUS, SETS EFFECTIVE«, t00=0x00c0, t01=0x0036}
0x12c34…12c6a Head {h00=0x0032, h01=0x0050, text=»* LENGTH IN DWT AND EXITS TO THE ROUTINE THAT «, t00=0x00c0, t01=0x0068}
0x12c6a…12c86 Head {h00=0x0018, h01=0x0050, text=»* MADE THE I/O CALL.«, t00=0x00c0, t01=0x009e}
0x12c86…12c90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c0, t01=0x00ba}
0x12c90…12ca0 Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x00c0, t01=0x00c4}
0x12ca0…12cb8 Head {h00=0x0014, h01=0x0050, text=»* ABI CMDROU,A3 «, t00=0x00c0, t01=0x00d4}
0x12cb8…12cc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c0, t01=0x00ec}
0x12cc2…12cd2 Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x00c0, t01=0x00f6}
0x12cd2…12cec Head {h00=0x0016, h01=0x0050, text=»* A1 = PLC STATUS«, t00=0x00c0, t01=0x0106}
0x12cec…12d08 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x00c0, t01=0x0120}
0x12d08…12d24 Head {h00=0x0018, h01=0x0050, text=»* A6 = DWT ADDRESS «, t00=0x00c0, t01=0x013c}
0x12d24…12d2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c0, t01=0x0158}
0x12d2e…12d40 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x00c0, t01=0x0162}
0x12d40…12d5c Head {h00=0x0018, h01=0x0050, text=»* A1 = RETURN CODE «, t00=0x00c0, t01=0x0174}
0x12d5c…12d78 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x00c0, t01=0x0190}
0x12d78…12d94 Head {h00=0x0018, h01=0x0050, text=»* A6 = DWT ADDRESS «, t00=0x00c1, t01=0x001c}
0x12d94…12d9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c1, t01=0x0038}
0x12d9e…12de2 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00c1, t01=0x0042}
0x12de2…12dec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c1, t01=0x0086}
0x12dec…12e02 Head {h00=0x0012, h01=0x0050, text=» IFT PLCTST=1 «, t00=0x00c1, t01=0x0090}
0x12e02…12e16 Head {h00=0x0010, h01=0x0050, text=»COMPPS EQU *«, t00=0x00c1, t01=0x00a6}
0x12e16…12e2a Head {h00=0x0010, h01=0x0050, text=»COMPDS EQU *«, t00=0x00c1, t01=0x00ba}
0x12e2a…12e3e Head {h00=0x0010, h01=0x0050, text=»COMPRM EQU *«, t00=0x00c1, t01=0x00ce}
0x12e3e…12e48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c1, t01=0x00e2}
0x12e48…12e56 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c1, t01=0x00ec}
0x12e56…12e60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c1, t01=0x00fa}
0x12e60…12e7e Head {h00=0x001a, h01=0x0050, text=» LDR A1,A1 PLC STATUS «, t00=0x00c1, t01=0x0104}
0x12e7e…12ea2 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) TS100 ERROR. HANDLE «, t00=0x00c1, t01=0x0122}
0x12ea2…12eac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c1, t01=0x0146}
0x12eac…12edc Head {h00=0x002c, h01=0x0050, text=» LD A2,CWTRCA+CCRLEN,A5 EFFECTIVE LENGTH«, t00=0x00c1, t01=0x0150}
0x12edc…12efc Head {h00=0x001c, h01=0x0050, text=» ST A2,DWTTLN,A6 TO DWT «, t00=0x00c1, t01=0x0180}
0x12efc…12f1a Head {h00=0x001a, h01=0x0050, text=» RF TS110 EXIT. A1 = 0«, t00=0x00c2, t01=0x0010}
0x12f1a…12f24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c2, t01=0x002e}
0x12f24…12f38 Head {h00=0x0010, h01=0x0050, text=»TS100 EQU * «, t00=0x00c2, t01=0x0038}
0x12f38…12f6a Head {h00=0x002e, h01=0x0050, text=» LDK A1,NOTOPR RETURN CODE := NOT OPERABLE«, t00=0x00c2, t01=0x004c}
0x12f6a…12f96 Head {h00=0x0028, h01=0x0050, text=» CM DWTTLN,A6 EFFECTIVE LENGTH := 0 «, t00=0x00c2, t01=0x007e}
0x12f96…12fa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c2, t01=0x00aa}
0x12fa0…12fb4 Head {h00=0x0010, h01=0x0050, text=»TS110 EQU * «, t00=0x00c2, t01=0x00b4}
0x12fb4…12fd6 Head {h00=0x001e, h01=0x0050, text=» EX CWTST3,A5 RELEASE RCA «, t00=0x00c2, t01=0x00c8}
0x12fd6…1300c Head {h00=0x0032, h01=0x0050, text=» ABL TSTRST RETURN TO ROUTINE MAKING I/O CALL «, t00=0x00c2, t01=0x00ea}
0x1300c…13018 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c2, t01=0x0120}
0x13018…13022 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c2, t01=0x012c}
0x13022…13030 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c2, t01=0x0136}
0x13030…1303a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c2, t01=0x0144}
0x1303a…1307e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00c2, t01=0x014e}
0x1307e…13088 (195, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c3, t01=0x0004}
0x13088…130a0 Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x00c3, t01=0x000e}
0x130a0…130b2 Head {h00=0x000e, h01=0x0050, text=»* COMPWRI «, t00=0x00c3, t01=0x0026}
0x130b2…130bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c3, t01=0x0038}
0x130bc…130d0 Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x00c3, t01=0x0042}
0x130d0…13106 Head {h00=0x0032, h01=0x0050, text=»* THIS ROUTINE HANDLES COMPLETION OF STANDARD «, t00=0x00c3, t01=0x0056}
0x13106…13126 Head {h00=0x001c, h01=0x0050, text=»* WRITE AND FAST WRITE. «, t00=0x00c3, t01=0x008c}
0x13126…13160 Head {h00=0x0036, h01=0x0050, text=»* IT CHECKS THE PLC STATUS AND RELEASES THE OUTPUT«, t00=0x00c3, t01=0x00ac}
0x13160…13196 Head {h00=0x0032, h01=0x0050, text=»* BUFFER, IF ANY WAS ALLOCATED. IF THE OUTPUT «, t00=0x00c3, t01=0x00e6}
0x13196…131cc Head {h00=0x0032, h01=0x0050, text=»* OPERATION IS FINISHED, IT THEN EXITS TO THE «, t00=0x00c3, t01=0x011c}
0x131cc…131f6 Head {h00=0x0026, h01=0x0050, text=»* ROUTINE THAT MADE THE I/O CALL. «, t00=0x00c3, t01=0x0152}
0x131f6…13200 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c3, t01=0x017c}
0x13200…13210 Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x00c3, t01=0x0186}
0x13210…13228 Head {h00=0x0014, h01=0x0050, text=»* ABI CMDROU,A3 «, t00=0x00c4, t01=0x0008}
0x13228…13232 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c4, t01=0x0020}
0x13232…13242 Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x00c4, t01=0x002a}
0x13242…1325c Head {h00=0x0016, h01=0x0050, text=»* A1 = PLC STATUS«, t00=0x00c4, t01=0x003a}
0x1325c…1327c Head {h00=0x001c, h01=0x0050, text=»* A2 = FATAL PLC STATUS«, t00=0x00c4, t01=0x0054}
0x1327c…13298 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x00c4, t01=0x0074}
0x13298…132b4 Head {h00=0x0018, h01=0x0050, text=»* A6 = DWT ADDRESS «, t00=0x00c4, t01=0x0090}
0x132b4…132be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c4, t01=0x00ac}
0x132be…132d0 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x00c4, t01=0x00b6}
0x132d0…13304 Head {h00=0x0030, h01=0x0050, text=»* WHEN RETURN TO ROUTINE MAKING OUTPUT CALL «, t00=0x00c4, t01=0x00c8}
0x13304…13320 Head {h00=0x0018, h01=0x0050, text=»* A1 = RETURN CODE «, t00=0x00c4, t01=0x00fc}
0x13320…1333e Head {h00=0x001a, h01=0x0050, text=»* A2 = BITS 0-7 ZERO «, t00=0x00c4, t01=0x0118}
0x1333e…13360 Head {h00=0x001e, h01=0x0050, text=»* BITS 8-15 DEVICE STATUS«, t00=0x00c4, t01=0x0136}
0x13360…1337c Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x00c4, t01=0x0158}
0x1337c…13398 Head {h00=0x0018, h01=0x0050, text=»* A6 = DWT ADDRESS «, t00=0x00c4, t01=0x0174}
0x13398…133a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c4, t01=0x0190}
0x133a2…133e6 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00c5, t01=0x000a}
0x133e6…133f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c5, t01=0x004e}
0x133f0…133fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c5, t01=0x0058}
0x133fe…13408 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c5, t01=0x0066}
0x13408…1341c Head {h00=0x0010, h01=0x0050, text=»COMPSW EQU *«, t00=0x00c5, t01=0x0070}
0x1341c…13430 Head {h00=0x0010, h01=0x0050, text=»COMPFW EQU *«, t00=0x00c5, t01=0x0084}
0x13430…13454 Head {h00=0x0020, h01=0x0050, text=» LDR A2,A2 FATAL PLC STATUS?«, t00=0x00c5, t01=0x0098}
0x13454…13476 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) WRERR1 YES, HANDLE«, t00=0x00c5, t01=0x00bc}
0x13476…13480 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c5, t01=0x00de}
0x13480…134aa Head {h00=0x0026, h01=0x0050, text=» LC A2,DWTCP2,A6 CHANEL PARAMETER «, t00=0x00c5, t01=0x00e8}
0x134aa…134d0 Head {h00=0x0022, h01=0x0050, text=» ANK A2,MASKWS CLEAN WS NUMBER«, t00=0x00c5, t01=0x0112}
0x134d0…134f8 Head {h00=0x0024, h01=0x0050, text=» CF A15,STAHAN HANDLE PLC STATUS«, t00=0x00c5, t01=0x0138}
0x134f8…1352e Head {h00=0x0032, h01=0x0050, text=» LC A7,CWTRCA+CCRIDB,A5 TYPE OF WRITE COMMAND «, t00=0x00c5, t01=0x0160}
0x1352e…13548 Head {h00=0x0016, h01=0x0050, text=» ANK A7,/FF CLEAN «, t00=0x00c6, t01=0x0008}
0x13548…13576 Head {h00=0x002a, h01=0x0050, text=» LD A4,CWTRCA+CCRBUF,A5 BUFFER ADDRESS«, t00=0x00c6, t01=0x0022}
0x13576…13598 Head {h00=0x001e, h01=0x0050, text=» EX CWTST3,A5 RELEASE RCA «, t00=0x00c6, t01=0x0050}
0x13598…135ca Head {h00=0x002e, h01=0x0050, text=» ABI WRIROU,A7 CALL CORRESPONDING ROUTINE «, t00=0x00c6, t01=0x0072}
0x135ca…135d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c6, t01=0x00a4}
0x135d4…135de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c6, t01=0x00ae}
0x135de…135fe Head {h00=0x001c, h01=0x0050, text=»* IRRECOVERABLE ERROR«, t00=0x00c6, t01=0x00b8}
0x135fe…13608 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c6, t01=0x00d8}
0x13608…1361c Head {h00=0x0010, h01=0x0050, text=»WRERR1 EQU *«, t00=0x00c6, t01=0x00e2}
0x1361c…1363e Head {h00=0x001e, h01=0x0050, text=» EX CWTST3,A5 RELEASE RCA «, t00=0x00c6, t01=0x00f6}
0x1363e…13652 Head {h00=0x0010, h01=0x0050, text=»WRERR EQU * «, t00=0x00c6, t01=0x0118}
0x13652…1366a Head {h00=0x0014, h01=0x0050, text=» ABL PLDSP2 EXIT«, t00=0x00c6, t01=0x012c}
0x1366a…13674 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c6, t01=0x0144}
0x13674…1367e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c6, t01=0x014e}
0x1367e…136ac Head {h00=0x002a, h01=0x0050, text=»* COMPLETION OF DATA MESSAGE OUTPUT«, t00=0x00c6, t01=0x0158}
0x136ac…136b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c6, t01=0x0186}
0x136b6…136ca Head {h00=0x0010, h01=0x0050, text=»WRNFLO EQU *«, t00=0x00c6, t01=0x0190}
0x136ca…136de Head {h00=0x0010, h01=0x0050, text=»WRDATA EQU *«, t00=0x00c7, t01=0x0014}
0x136de…1370a Head {h00=0x0028, h01=0x0050, text=» CF A15,PLRLBU RELEASE OUTPUT BUFFER«, t00=0x00c7, t01=0x0028}
0x1370a…13732 Head {h00=0x0024, h01=0x0050, text=» CM DWTLD1,A6 INDICATE NO BUFFER«, t00=0x00c7, t01=0x0054}
0x13732…13760 Head {h00=0x002a, h01=0x0050, text=» ABL ACKRST RETURN TO REQUEST HANDLER «, t00=0x00c7, t01=0x007c}
0x13760…1376a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c7, t01=0x00aa}
0x1376a…13774 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c7, t01=0x00b4}
0x13774…137ac Head {h00=0x0034, h01=0x0050, text=»* COMPLETION OF RECIEVE READY MESSAGE OUTPUT «, t00=0x00c7, t01=0x00be}
0x137ac…137b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c7, t01=0x00f6}
0x137b6…137c8 Head {h00=0x000e, h01=0x0050, text=»WRRR EQU *«, t00=0x00c7, t01=0x0100}
0x137c8…137f0 Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 START OF MONITOR BLOCK«, t00=0x00c7, t01=0x0112}
0x137f0…1380e Head {h00=0x001a, h01=0x0050, text=» LDR A7,A5 CWT ADDRESS«, t00=0x00c7, t01=0x013a}
0x1380e…1383e Head {h00=0x002c, h01=0x0050, text=» ADK A7,CWTMBQ MONITOR BLOCK QUEUE HEAD «, t00=0x00c7, t01=0x0158}
0x1383e…13866 Head {h00=0x0024, h01=0x0050, text=» CF A15,LNKOUT REMOVE FROM QUEUE«, t00=0x00c7, t01=0x0188}
0x13866…1388a Head {h00=0x0020, h01=0x0050, text=» CF A15,FREBLK RETURN BLOCK «, t00=0x00c8, t01=0x0020}
0x1388a…13894 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c8, t01=0x0044}
0x13894…138ac Head {h00=0x0014, h01=0x0050, text=» ABL PLDSP2 EXIT«, t00=0x00c8, t01=0x004e}
0x138ac…138b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c8, t01=0x0066}
0x138b6…138c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c8, t01=0x0070}
0x138c0…138fc Head {h00=0x0038, h01=0x0050, text=»* COMPLETION OF RESET CONFIRMATION MESSAGE OUTPUT«, t00=0x00c8, t01=0x007a}
0x138fc…13906 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c8, t01=0x00b6}
0x13906…1391a Head {h00=0x0010, h01=0x0050, text=»WRRESC EQU *«, t00=0x00c8, t01=0x00c0}
0x1391a…13942 Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 START OF MONITOR BLOCK«, t00=0x00c8, t01=0x00d4}
0x13942…13960 Head {h00=0x001a, h01=0x0050, text=» LDR A7,A5 CWT ADDRESS«, t00=0x00c8, t01=0x00fc}
0x13960…13990 Head {h00=0x002c, h01=0x0050, text=» ADK A7,CWTMBQ MONITOR BLOCK QUEUE HEAD «, t00=0x00c8, t01=0x011a}
0x13990…139b8 Head {h00=0x0024, h01=0x0050, text=» CF A15,LNKOUT REMOVE FROM QUEUE«, t00=0x00c8, t01=0x014a}
0x139b8…139dc Head {h00=0x0020, h01=0x0050, text=» CF A15,FREBLK RETURN BLOCK «, t00=0x00c8, t01=0x0172}
0x139dc…139e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c9, t01=0x0008}
0x139e6…13a18 Head {h00=0x002e, h01=0x0050, text=» LDKL A2,/FFFF-DWFRES MASK FOR RESET FLAG «, t00=0x00c9, t01=0x0012}
0x13a18…13a44 Head {h00=0x0028, h01=0x0050, text=» ANS A2,DWTST,A6 CLEAR "RESET" FLAG «, t00=0x00c9, t01=0x0044}
0x13a44…13a78 Head {h00=0x0030, h01=0x0050, text=» LDK A4,RELINE RECOVERY CAUSE := LINK RESET «, t00=0x00c9, t01=0x0070}
0x13a78…13aa4 Head {h00=0x0028, h01=0x0050, text=» CF A15,NDREDW CALL RECOVERY FOR DWT«, t00=0x00c9, t01=0x00a4}
0x13aa4…13ac8 Head {h00=0x0020, h01=0x0050, text=» ABL PLDSP2 LOCAL DISPATCHER«, t00=0x00c9, t01=0x00d0}
0x13ac8…13ad2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c9, t01=0x00f4}
0x13ad2…13ae0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c9, t01=0x00fe}
0x13ae0…13aea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c9, t01=0x010c}
0x13aea…13b2e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00c9, t01=0x0116}
0x13b2e…13b38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c9, t01=0x015a}
0x13b38…13b50 Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x00c9, t01=0x0164}
0x13b50…13b60 Head {h00=0x000c, h01=0x0050, text=»* COMPGR«, t00=0x00c9, t01=0x017c}
0x13b60…13b6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c9, t01=0x018c}
0x13b6a…13b7e Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x00ca, t01=0x0008}
0x13b7e…13bb2 Head {h00=0x0030, h01=0x0050, text=»* THIS ROUTINE HANDLES COMPLETION OF GENERAL«, t00=0x00ca, t01=0x001c}
0x13bb2…13bca Head {h00=0x0014, h01=0x0050, text=»* READ COMMANDS.«, t00=0x00ca, t01=0x0050}
0x13bca…13bf8 Head {h00=0x002a, h01=0x0050, text=»* IT CHECKS TYPE OF MESSAGE AND CALLS «, t00=0x00ca, t01=0x0068}
0x13bf8…13c18 Head {h00=0x001c, h01=0x0050, text=»* CORRESPONDING ROUTINE.«, t00=0x00ca, t01=0x0096}
0x13c18…13c22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ca, t01=0x00b6}
0x13c22…13c32 Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x00ca, t01=0x00c0}
0x13c32…13c4a Head {h00=0x0014, h01=0x0050, text=»* ABI CMDROU,A3 «, t00=0x00ca, t01=0x00d0}
0x13c4a…13c54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ca, t01=0x00e8}
0x13c54…13c64 Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x00ca, t01=0x00f2}
0x13c64…13c7e Head {h00=0x0016, h01=0x0050, text=»* A1 = PLC STATUS«, t00=0x00ca, t01=0x0102}
0x13c7e…13c9e Head {h00=0x001c, h01=0x0050, text=»* A2 = FATAL PLC STATUS«, t00=0x00ca, t01=0x011c}
0x13c9e…13cba Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x00ca, t01=0x013c}
0x13cba…13cc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ca, t01=0x0158}
0x13cc4…13cd6 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x00ca, t01=0x0162}
0x13cd6…13cf0 Head {h00=0x0016, h01=0x0050, text=»* A1 = PLC STATUS«, t00=0x00ca, t01=0x0174}
0x13cf0…13d0e Head {h00=0x001a, h01=0x0050, text=»* A4 = BUFFER ADDRESS«, t00=0x00ca, t01=0x018e}
0x13d0e…13d2a Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x00cb, t01=0x001c}
0x13d2a…13d44 Head {h00=0x0016, h01=0x0050, text=»* A6 = DLS INDEX «, t00=0x00cb, t01=0x0038}
0x13d44…13d70 Head {h00=0x0028, h01=0x0050, text=»* A7 = DEVICE ADDRESS (IF RELEVANT)«, t00=0x00cb, t01=0x0052}
0x13d70…13d7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cb, t01=0x007e}
0x13d7a…13dbe Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00cb, t01=0x0088}
0x13dbe…13dc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cb, t01=0x00cc}
0x13dc8…13ddc Head {h00=0x0010, h01=0x0050, text=»COMPGR EQU *«, t00=0x00cb, t01=0x00d6}
0x13ddc…13dfc Head {h00=0x001c, h01=0x0050, text=» LDR A2,A2 FATAL STATUS?«, t00=0x00cb, t01=0x00ea}
0x13dfc…13e1c Head {h00=0x001c, h01=0x0050, text=» RF(NZ) GRERR2 YES, EXIT«, t00=0x00cb, t01=0x010a}
0x13e1c…13e26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cb, t01=0x012a}
0x13e26…13e34 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00cb, t01=0x0134}
0x13e34…13e3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cb, t01=0x0142}
0x13e3e…13e6a Head {h00=0x0028, h01=0x0050, text=» CF A15,INTYPE A3 := TYPE OF MESSAGE«, t00=0x00cb, t01=0x014c}
0x13e6a…13e98 Head {h00=0x002a, h01=0x0050, text=» LD A4,CWTRCA+CCRBUF,A5 BUFFER ADDRESS«, t00=0x00cb, t01=0x0178}
0x13e98…13ec2 Head {h00=0x0026, h01=0x0050, text=» LC A6,CWTRCA+CCRDLS,A5 DLS INDEX «, t00=0x00cc, t01=0x0016}
0x13ec2…13ede Head {h00=0x0018, h01=0x0050, text=» ANK A6,MASKWS CLEAN«, t00=0x00cc, t01=0x0040}
0x13ede…13f06 Head {h00=0x0024, h01=0x0050, text=» LC A7,X25LCN,A4 DEVICE ADDRESS «, t00=0x00cc, t01=0x005c}
0x13f06…13f22 Head {h00=0x0018, h01=0x0050, text=» ANK A7,MASKLC CLEAN«, t00=0x00cc, t01=0x0084}
0x13f22…13f2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cc, t01=0x00a0}
0x13f2c…13f60 Head {h00=0x0030, h01=0x0050, text=» ABI REAROU,A3 ROUTINE FOR THIS MESSAGE TYPE«, t00=0x00cc, t01=0x00aa}
0x13f60…13f6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cc, t01=0x00de}
0x13f6a…13f78 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00cc, t01=0x00e8}
0x13f78…13f82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cc, t01=0x00f6}
0x13f82…13fc6 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00cc, t01=0x0100}
0x13fc6…13fd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cc, t01=0x0144}
0x13fd0…13fe8 Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x00cc, t01=0x014e}
0x13fe8…13ff8 Head {h00=0x000c, h01=0x0050, text=»* GRERR «, t00=0x00cc, t01=0x0166}
0x13ff8…14002 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cc, t01=0x0176}
0x14002…14016 Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x00cc, t01=0x0180}
0x14016…1404c (205, 0, 400) Head {h00=0x0032, h01=0x0050, text=»* THIS ROUTINE HANDLES ILLEGAL INPUT MESSAGES.«, t00=0x00cd, t01=0x0004}
0x1404c…1406c Head {h00=0x001c, h01=0x0050, text=»* GRERR1 RETURNS BUFFER «, t00=0x00cd, t01=0x003a}
0x1406c…14076 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cd, t01=0x005a}
0x14076…14086 Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x00cd, t01=0x0064}
0x14086…1409e Head {h00=0x0014, h01=0x0050, text=»* ABI REAROU,A3 «, t00=0x00cd, t01=0x0074}
0x1409e…140b2 Head {h00=0x0010, h01=0x0050, text=»* RB GRERR1 «, t00=0x00cd, t01=0x008c}
0x140b2…140c6 Head {h00=0x0010, h01=0x0050, text=»* RF GRERR2 «, t00=0x00cd, t01=0x00a0}
0x140c6…140d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cd, t01=0x00b4}
0x140d0…140e0 Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x00cd, t01=0x00be}
0x140e0…1410a Head {h00=0x0026, h01=0x0050, text=»* A4 = BUFFER ADDRESS (IF GRERR1)«, t00=0x00cd, t01=0x00ce}
0x1410a…14126 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x00cd, t01=0x00f8}
0x14126…14130 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cd, t01=0x0114}
0x14130…14142 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x00cd, t01=0x011e}
0x14142…1414e Head {h00=0x0008, h01=0x0050, text=»* - «, t00=0x00cd, t01=0x0130}
0x1414e…14158 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cd, t01=0x013c}
0x14158…1419c Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00cd, t01=0x0146}
0x1419c…141a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cd, t01=0x018a}
0x141a6…141ba (206, 0, 400) Head {h00=0x0010, h01=0x0050, text=»GRERR1 EQU *«, t00=0x00ce, t01=0x0004}
0x141ba…141ec Head {h00=0x002e, h01=0x0050, text=» CF A15,PLRLBU RELEASE GENERAL READ BUFFER«, t00=0x00ce, t01=0x0018}
0x141ec…141f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ce, t01=0x004a}
0x141f6…1420a Head {h00=0x0010, h01=0x0050, text=»GRERR2 EQU *«, t00=0x00ce, t01=0x0054}
0x1420a…1422c Head {h00=0x001e, h01=0x0050, text=» EX CWTST3,A5 RELEASE RCA «, t00=0x00ce, t01=0x0068}
0x1422c…14236 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ce, t01=0x008a}
0x14236…1424e Head {h00=0x0014, h01=0x0050, text=» ABL PLDSP2 EXIT«, t00=0x00ce, t01=0x0094}
0x1424e…14258 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ce, t01=0x00ac}
0x14258…14266 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ce, t01=0x00b6}
0x14266…14270 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ce, t01=0x00c4}
0x14270…142b4 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00ce, t01=0x00ce}
0x142b4…142be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ce, t01=0x0112}
0x142be…142d6 Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x00ce, t01=0x011c}
0x142d6…142e6 Head {h00=0x000c, h01=0x0050, text=»* GRSACK«, t00=0x00ce, t01=0x0134}
0x142e6…142f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ce, t01=0x0144}
0x142f0…14304 Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x00ce, t01=0x014e}
0x14304…1433c Head {h00=0x0034, h01=0x0050, text=»* THIS ROUTINE HANDLES STATUS AND RECIEVE READY «, t00=0x00ce, t01=0x0162}
0x1433c…1435e Head {h00=0x001e, h01=0x0050, text=»* MESSAGES FROM A DEVICE. «, t00=0x00cf, t01=0x000a}
0x1435e…14396 Head {h00=0x0034, h01=0x0050, text=»* IT RELEASES THE BUFFER AND RETURNS TO ROUTINE «, t00=0x00cf, t01=0x002c}
0x14396…143b0 Head {h00=0x0016, h01=0x0050, text=»* MAKING I/O CALL.«, t00=0x00cf, t01=0x0064}
0x143b0…143ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cf, t01=0x007e}
0x143ba…143ca Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x00cf, t01=0x0088}
0x143ca…143e2 Head {h00=0x0014, h01=0x0050, text=»* ABI REAROU,A3 «, t00=0x00cf, t01=0x0098}
0x143e2…143ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cf, t01=0x00b0}
0x143ec…143fc Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x00cf, t01=0x00ba}
0x143fc…1441a Head {h00=0x001a, h01=0x0050, text=»* A4 = BUFFER ADDRESS«, t00=0x00cf, t01=0x00ca}
0x1441a…14436 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x00cf, t01=0x00e8}
0x14436…14450 Head {h00=0x0016, h01=0x0050, text=»* A6 = DLS INDEX «, t00=0x00cf, t01=0x0104}
0x14450…1446e Head {h00=0x001a, h01=0x0050, text=»* A7 = DEVICE ADDRESS«, t00=0x00cf, t01=0x011e}
0x1446e…14478 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cf, t01=0x013c}
0x14478…1448a Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x00cf, t01=0x0146}
0x1448a…144a6 Head {h00=0x0018, h01=0x0050, text=»* A1 = RETURN CODE «, t00=0x00cf, t01=0x0158}
0x144a6…144ba Head {h00=0x0010, h01=0x0050, text=»* =0 IF OK «, t00=0x00cf, t01=0x0174}
0x144ba…144d2 Head {h00=0x0014, h01=0x0050, text=»* ><0 IF ERROR «, t00=0x00cf, t01=0x0188}
0x144d2…144f0 Head {h00=0x001a, h01=0x0050, text=»* A2 = BITS 0-7 ZERO«, t00=0x00d0, t01=0x0010}
0x144f0…14514 Head {h00=0x0020, h01=0x0050, text=»* BITS 8-15 DEVICE STATUS «, t00=0x00d0, t01=0x002e}
0x14514…14530 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x00d0, t01=0x0052}
0x14530…1454c Head {h00=0x0018, h01=0x0050, text=»* A6 = DWT ADDRESS «, t00=0x00d0, t01=0x006e}
0x1454c…14556 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d0, t01=0x008a}
0x14556…1459a Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00d0, t01=0x0094}
0x1459a…145a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d0, t01=0x00d8}
0x145a4…145b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d0, t01=0x00e2}
0x145b2…145bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d0, t01=0x00f0}
0x145bc…145d0 Head {h00=0x0010, h01=0x0050, text=»GRSTAT EQU *«, t00=0x00d0, t01=0x00fa}
0x145d0…145f8 Head {h00=0x0024, h01=0x0050, text=» CF A15,GETDWT A6 := DWT ADDRESS«, t00=0x00d0, t01=0x010e}
0x145f8…1461c Head {h00=0x0020, h01=0x0050, text=» RB(Z) GRERR1 NO DWT DEFINED«, t00=0x00d0, t01=0x0136}
0x1461c…14650 Head {h00=0x0030, h01=0x0050, text=» CF A15,FWIPSR UPDATE FLOW CONTROL COUNTERS «, t00=0x00d0, t01=0x015a}
0x14650…1467c Head {h00=0x0028, h01=0x0050, text=» LC A2,X25DAT,A4 DEVICE STATUS BYTE «, t00=0x00d0, t01=0x018e}
0x1467c…14696 Head {h00=0x0016, h01=0x0050, text=» ANK A2,/FF CLEAN «, t00=0x00d1, t01=0x002a}
0x14696…146b4 Head {h00=0x001a, h01=0x0050, text=» RF SR100 COMMON PART «, t00=0x00d1, t01=0x0044}
0x146b4…146be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x0062}
0x146be…146c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x006c}
0x146c8…146da Head {h00=0x000e, h01=0x0050, text=»GRRR EQU *«, t00=0x00d1, t01=0x0076}
0x146da…14702 Head {h00=0x0024, h01=0x0050, text=» CF A15,GETDWT A6 := DWT ADDRESS«, t00=0x00d1, t01=0x0088}
0x14702…14726 Head {h00=0x0020, h01=0x0050, text=» RB(Z) GRERR1 NO DWT DEFINED«, t00=0x00d1, t01=0x00b0}
0x14726…14758 Head {h00=0x002e, h01=0x0050, text=» CF A15,FWIPR UPDATE FLOW CONTROL COUNTERS«, t00=0x00d1, t01=0x00d4}
0x14758…14782 Head {h00=0x0026, h01=0x0050, text=» LDK A2,0 RESET DEVICE STATUS BYTE«, t00=0x00d1, t01=0x0106}
0x14782…1478c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x0130}
0x1478c…14796 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x013a}
0x14796…147aa Head {h00=0x0010, h01=0x0050, text=»SR100 EQU * «, t00=0x00d1, t01=0x0144}
0x147aa…147f0 Head {h00=0x0042, h01=0x0050, text=»* COMMON PART FOR DEVICE STATUS AND RECIEVE READY MESSAGES «, t00=0x00d1, t01=0x0158}
0x147f0…14812 Head {h00=0x001e, h01=0x0050, text=» EX CWTST3,A5 RELEASE RCA «, t00=0x00d2, t01=0x000e}
0x14812…14844 Head {h00=0x002e, h01=0x0050, text=» CF A15,PLRLBU RELEASE GENERAL READ BUFFER«, t00=0x00d2, t01=0x0030}
0x14844…14866 Head {h00=0x001e, h01=0x0050, text=» LD A3,DWTST,A6 DWT STATUS«, t00=0x00d2, t01=0x0062}
0x14866…14878 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x00d2, t01=0x0084}
0x14878…148b0 Head {h00=0x0034, h01=0x0050, text=» ANK A4,DWFAK3 ANYONE WAITING FOR THIS MESSAGE? «, t00=0x00d2, t01=0x0096}
0x148b0…148d4 Head {h00=0x0020, h01=0x0050, text=» ABL(Z) PLDSP2 NO, DISPATCH «, t00=0x00d2, t01=0x00ce}
0x148d4…148de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d2, t01=0x00f2}
0x148de…14906 Head {h00=0x0024, h01=0x0050, text=» XRS A4,DWTST,A6 RESET WAIT FLAG«, t00=0x00d2, t01=0x00fc}
0x14906…1492a Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RETURN CODE := OK «, t00=0x00d2, t01=0x0124}
0x1492a…1495e Head {h00=0x0030, h01=0x0050, text=» ANK A3,DWFSAC ALWAYS WAIT FOR LEVEL 3 ACK? «, t00=0x00d2, t01=0x0148}
0x1495e…1498c Head {h00=0x002a, h01=0x0050, text=» ABL(NZ) AK3RST YES, RETURN WITH ACK 3«, t00=0x00d2, t01=0x017c}
0x1498c…149ba Head {h00=0x002a, h01=0x0050, text=» ABL WINRST NO, RETURN TO WINDOW QUEUE«, t00=0x00d3, t01=0x001a}
0x149ba…149c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x0048}
0x149c4…149d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d3, t01=0x0052}
0x149d2…149dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x0060}
0x149dc…14a20 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00d3, t01=0x006a}
0x14a20…14a2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x00ae}
0x14a2a…14a42 Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x00d3, t01=0x00b8}
0x14a42…14a52 Head {h00=0x000c, h01=0x0050, text=»* GRDATA«, t00=0x00d3, t01=0x00d0}
0x14a52…14a5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x00e0}
0x14a5c…14a70 Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x00d3, t01=0x00ea}
0x14a70…14aa4 Head {h00=0x0030, h01=0x0050, text=»* THIS ROUTINE HANDLES DATA INPUT MESSAGES. «, t00=0x00d3, t01=0x00fe}
0x14aa4…14ace Head {h00=0x0026, h01=0x0050, text=»* IT LINKS THE BUFFER TO THE CWT. «, t00=0x00d3, t01=0x0132}
0x14ace…14ad8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x015c}
0x14ad8…14ae8 Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x00d3, t01=0x0166}
0x14ae8…14b00 Head {h00=0x0014, h01=0x0050, text=»* ABI REAROU,A3 «, t00=0x00d3, t01=0x0176}
0x14b00…14b0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x018e}
0x14b0a…14b1a Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x00d4, t01=0x0008}
0x14b1a…14b38 Head {h00=0x001a, h01=0x0050, text=»* A4 = BUFFER ADDRESS«, t00=0x00d4, t01=0x0018}
0x14b38…14b54 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x00d4, t01=0x0036}
0x14b54…14b6e Head {h00=0x0016, h01=0x0050, text=»* A6 = DLS INDEX «, t00=0x00d4, t01=0x0052}
0x14b6e…14b8c Head {h00=0x001a, h01=0x0050, text=»* A7 = DEVICE ADDRESS«, t00=0x00d4, t01=0x006c}
0x14b8c…14b96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d4, t01=0x008a}
0x14b96…14ba8 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x00d4, t01=0x0094}
0x14ba8…14bb4 Head {h00=0x0008, h01=0x0050, text=»* - «, t00=0x00d4, t01=0x00a6}
0x14bb4…14bbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d4, t01=0x00b2}
0x14bbe…14c02 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00d4, t01=0x00bc}
0x14c02…14c0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d4, t01=0x0100}
0x14c0c…14c20 Head {h00=0x0010, h01=0x0050, text=»GRDATA EQU *«, t00=0x00d4, t01=0x010a}
0x14c20…14c48 Head {h00=0x0024, h01=0x0050, text=» CF A15,GETDWT A6 := DWT ADDRESS«, t00=0x00d4, t01=0x011e}
0x14c48…14c6c Head {h00=0x0020, h01=0x0050, text=» RB(Z) GRERR1 NO DWT DEFINED«, t00=0x00d4, t01=0x0146}
0x14c6c…14c76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d4, t01=0x016a}
0x14c76…14caa Head {h00=0x0030, h01=0x0050, text=» CF A15,FWIPSR UPDATE FLOW CONTROL COUNTERS «, t00=0x00d4, t01=0x0174}
0x14caa…14ce2 Head {h00=0x0034, h01=0x0050, text=» ST A4,CWTBUF,A5 SAVE INPUT DATA BUFFER ADDRESS «, t00=0x00d5, t01=0x0018}
0x14ce2…14d16 Head {h00=0x0030, h01=0x0050, text=» ST A6,BUFDWT,A4 SAVE DWT ADDRESS IN BUFFER «, t00=0x00d5, t01=0x0050}
0x14d16…14d46 Head {h00=0x002c, h01=0x0050, text=» LD A2,CWTRCA+CCRLEN,A5 EFFECTIVE LENGTH«, t00=0x00d5, t01=0x0084}
0x14d46…14d6e Head {h00=0x0024, h01=0x0050, text=» ST A2,BUFLEN,A4 SAVE IN BUFFER «, t00=0x00d5, t01=0x00b4}
0x14d6e…14d98 Head {h00=0x0026, h01=0x0050, text=» LDK A2,X25DAT START OF USER DATA «, t00=0x00d5, t01=0x00dc}
0x14d98…14dbe Head {h00=0x0022, h01=0x0050, text=» ST A2,BUFBIX,A4 TO BYTE INDEX«, t00=0x00d5, t01=0x0106}
0x14dbe…14dc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d5, t01=0x012c}
0x14dc8…14dd6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d5, t01=0x0136}
0x14dd6…14de0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d5, t01=0x0144}
0x14de0…14e02 Head {h00=0x001e, h01=0x0050, text=» EX CWTST3,A5 RELEASE RCA «, t00=0x00d5, t01=0x014e}
0x14e02…14e1a Head {h00=0x0014, h01=0x0050, text=» ABL PLDSP2 EXIT«, t00=0x00d5, t01=0x0170}
0x14e1a…14e24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d5, t01=0x0188}
0x14e24…14e32 (214, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d6, t01=0x0004}
0x14e32…14e3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x0012}
0x14e3c…14e80 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00d6, t01=0x001c}
0x14e80…14e8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x0060}
0x14e8a…14ea2 Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x00d6, t01=0x006a}
0x14ea2…14eb2 Head {h00=0x000c, h01=0x0050, text=»* GRRES «, t00=0x00d6, t01=0x0082}
0x14eb2…14ebc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x0092}
0x14ebc…14ed0 Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x00d6, t01=0x009c}
0x14ed0…14f06 Head {h00=0x0032, h01=0x0050, text=»* THIS ROUTINE HANDLES RESET MESSAGES FROM THE«, t00=0x00d6, t01=0x00b0}
0x14f06…14f1a Head {h00=0x0010, h01=0x0050, text=»* SECONDARY.«, t00=0x00d6, t01=0x00e6}
0x14f1a…14f54 Head {h00=0x0036, h01=0x0050, text=»* IT RESETS THE FLOW CONTROL COUNTERS IN THE DWT, «, t00=0x00d6, t01=0x00fa}
0x14f54…14f8e Head {h00=0x0036, h01=0x0050, text=»* AND SETS A RESET PACKET FLAG IN THE DWT. THEN A «, t00=0x00d6, t01=0x0134}
0x14f8e…14fc2 Head {h00=0x0030, h01=0x0050, text=»* RESET CONFIRMATION MESSAGE IS SENT. IF THE«, t00=0x00d6, t01=0x016e}
0x14fc2…14ffe Head {h00=0x0038, h01=0x0050, text=»* PROCESS IS WAITING FOR LEVEL 3 ACK OR IN A BUFFER «, t00=0x00d7, t01=0x0012}
0x14ffe…1501c Head {h00=0x001a, h01=0x0050, text=»* QUEUE IT IS ABORTED.«, t00=0x00d7, t01=0x004e}
0x1501c…15026 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d7, t01=0x006c}
0x15026…15036 Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x00d7, t01=0x0076}
0x15036…1504e Head {h00=0x0014, h01=0x0050, text=»* ABI REAROU,A3 «, t00=0x00d7, t01=0x0086}
0x1504e…15058 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d7, t01=0x009e}
0x15058…15068 Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x00d7, t01=0x00a8}
0x15068…15086 Head {h00=0x001a, h01=0x0050, text=»* A4 = BUFFER ADDRESS«, t00=0x00d7, t01=0x00b8}
0x15086…150a2 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x00d7, t01=0x00d6}
0x150a2…150bc Head {h00=0x0016, h01=0x0050, text=»* A6 = DLS INDEX «, t00=0x00d7, t01=0x00f2}
0x150bc…150da Head {h00=0x001a, h01=0x0050, text=»* A7 = DEVICE ADDRESS«, t00=0x00d7, t01=0x010c}
0x150da…150e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d7, t01=0x012a}
0x150e4…150f6 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x00d7, t01=0x0134}
0x150f6…15102 Head {h00=0x0008, h01=0x0050, text=»* - «, t00=0x00d7, t01=0x0146}
0x15102…1510c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d7, t01=0x0152}
0x1510c…15150 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00d7, t01=0x015c}
0x15150…1515a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d8, t01=0x0010}
0x1515a…1516e Head {h00=0x0010, h01=0x0050, text=»GRRES EQU * «, t00=0x00d8, t01=0x001a}
0x1516e…15196 Head {h00=0x0024, h01=0x0050, text=» CF A15,GETDWT A6 := DWT ADDRESS«, t00=0x00d8, t01=0x002e}
0x15196…151ba Head {h00=0x0020, h01=0x0050, text=» RB(Z) GRERR1 NO DWT DEFINED«, t00=0x00d8, t01=0x0056}
0x151ba…151c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d8, t01=0x007a}
0x151c4…151d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d8, t01=0x0084}
0x151d2…151dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d8, t01=0x0092}
0x151dc…151fe Head {h00=0x001e, h01=0x0050, text=» EX CWTST3,A5 RELEASE RCA «, t00=0x00d8, t01=0x009c}
0x151fe…15230 Head {h00=0x002e, h01=0x0050, text=» CF A15,PLRLBU RELEASE GENERAL READ BUFFER«, t00=0x00d8, t01=0x00be}
0x15230…15262 Head {h00=0x002e, h01=0x0050, text=» CM DWTLD2,A6 RESET FLOW CONTROL COUNTERS «, t00=0x00d8, t01=0x00f0}
0x15262…1526c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d8, t01=0x0122}
0x1526c…1528e Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTST,A6 DWT STATUS«, t00=0x00d8, t01=0x012c}
0x1528e…152bc Head {h00=0x002a, h01=0x0050, text=» ANK A2,DWFRES RESET ALREADY RECIEVED?«, t00=0x00d8, t01=0x014e}
0x152bc…152de Head {h00=0x001e, h01=0x0050, text=» ABL(NZ) PLDSP2 YES, EXIT «, t00=0x00d8, t01=0x017c}
0x152de…152f4 Head {h00=0x0012, h01=0x0050, text=» LDK A2,DWFRES«, t00=0x00d9, t01=0x000e}
0x152f4…15324 Head {h00=0x002c, h01=0x0050, text=» ORS A2,DWTST,A6 INDICATE RESET RECIEVED«, t00=0x00d9, t01=0x0024}
0x15324…1532e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d9, t01=0x0054}
0x1532e…15354 Head {h00=0x0022, h01=0x0050, text=» CF A15,PLCCCA RESERVE PLC CCA«, t00=0x00d9, t01=0x005e}
0x15354…15360 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x00d9, t01=0x0084}
0x15360…1536a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d9, t01=0x0090}
0x1536a…15392 Head {h00=0x0024, h01=0x0050, text=» CF A15,GETBLK GET OUTPUT BUFFER«, t00=0x00d9, t01=0x009a}
0x15392…153b0 Head {h00=0x001a, h01=0x0050, text=» LDR A7,A5 CWT ADDRESS«, t00=0x00d9, t01=0x00c2}
0x153b0…153e0 Head {h00=0x002c, h01=0x0050, text=» ADK A7,CWTMBQ MONITOR BLOCK QUEUE HEAD «, t00=0x00d9, t01=0x00e0}
0x153e0…15418 Head {h00=0x0034, h01=0x0050, text=» CF A15,LNKFST PUT BLOCK IN QUEUE (FOR RECOVERY)«, t00=0x00d9, t01=0x0110}
0x15418…1543a Head {h00=0x001e, h01=0x0050, text=» ADK A4,2 SKIP QUEUE LINK «, t00=0x00d9, t01=0x0148}
0x1543a…1546c Head {h00=0x002e, h01=0x0050, text=» ST A4,CWTCCA+CCRBUF,A5 BUFFER ADDR TO CCA«, t00=0x00d9, t01=0x016a}
0x1546c…154aa Head {h00=0x003a, h01=0x0050, text=» CM CWTCCA+CCRC1B,A5 RESET DATA CHAINING & MSB OF ADDR«, t00=0x00da, t01=0x000c}
0x154aa…154de Head {h00=0x0030, h01=0x0050, text=» CF A15,WRADR2 WRITE ADDRESS IN CCA (TYPE 2)«, t00=0x00da, t01=0x004a}
0x154de…15512 Head {h00=0x0030, h01=0x0050, text=» LDK A2,CMDSW COMMAND CODE "STANDARD WRITE" «, t00=0x00da, t01=0x007e}
0x15512…15538 Head {h00=0x0022, h01=0x0050, text=» SC A2,CWTCCA+CCRCMD,A5 TO CCA«, t00=0x00da, t01=0x00b2}
0x15538…1555e Head {h00=0x0022, h01=0x0050, text=» LDK A2,/1F MESSAGE TYPE FLAGS«, t00=0x00da, t01=0x00d8}
0x1555e…15588 Head {h00=0x0026, h01=0x0050, text=» SC A2,X25FLW,A4 TO OUTPUT BUFFER «, t00=0x00da, t01=0x00fe}
0x15588…155b8 Head {h00=0x002c, h01=0x0050, text=» LDK A2,TYRESC TYPE "RESET CONFIRMATION"«, t00=0x00da, t01=0x0128}
0x155b8…155ea Head {h00=0x002e, h01=0x0050, text=» SC A2,CWTCCA+CCRIDB,A5 TO CCA, COMMAND ID«, t00=0x00da, t01=0x0158}
0x155ea…15628 Head {h00=0x003a, h01=0x0050, text=» ST A6,CWTCCA+CCRIDW,A5 DWT ADDRESS TO CCA, COMMAND ID«, t00=0x00da, t01=0x018a}
0x15628…15654 Head {h00=0x0028, h01=0x0050, text=» LDK A2,X25DAT LENGTH OF SYSTEM PART«, t00=0x00db, t01=0x0038}
0x15654…15682 Head {h00=0x002a, h01=0x0050, text=» ST A2,CWTCCA+CCRLEN,A5 TO CCA LENGTH «, t00=0x00db, t01=0x0064}
0x15682…1568c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x0092}
0x1568c…1569a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00db, t01=0x009c}
0x1569a…156a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x00aa}
0x156a4…156c6 Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTST,A6 DWT STATUS«, t00=0x00db, t01=0x00b4}
0x156c6…156f0 Head {h00=0x0026, h01=0x0050, text=» ANK A2,DWFRES RESET STILL WANTED?«, t00=0x00db, t01=0x00d6}
0x156f0…1570e Head {h00=0x001a, h01=0x0050, text=» RF(Z) REERR1 NO, EXIT«, t00=0x00db, t01=0x0100}
0x1570e…15738 Head {h00=0x0026, h01=0x0050, text=» CF A15,GETWSS A1 := STATUS & INH «, t00=0x00db, t01=0x011e}
0x15738…1575c Head {h00=0x0020, h01=0x0050, text=» RF(NZ) REERR1 EXIT IF ERROR«, t00=0x00db, t01=0x0148}
0x1575c…15784 Head {h00=0x0024, h01=0x0050, text=» CF A15,PLCCIO EXECUTE CIO START«, t00=0x00db, t01=0x016c}
0x15784…157a8 (220, 0, 400) Head {h00=0x0020, h01=0x0050, text=» RF(NZ) REERR2 EXIT IF ERROR«, t00=0x00dc, t01=0x0004}
0x157a8…157b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dc, t01=0x0028}
0x157b2…157e0 Head {h00=0x002a, h01=0x0050, text=» LDK A1,LINERR RET CODE := LINK ERROR «, t00=0x00dc, t01=0x0032}
0x157e0…15802 Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTST,A6 DWT STATUS«, t00=0x00dc, t01=0x0060}
0x15802…15814 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x00dc, t01=0x0082}
0x15814…15844 Head {h00=0x002c, h01=0x0050, text=» ANK A2,DWFAK3 WAITING FOR LEVEL 3 ACK? «, t00=0x00dc, t01=0x0094}
0x15844…15866 Head {h00=0x001e, h01=0x0050, text=» RF(Z) RE100 NO, CONTINUE «, t00=0x00dc, t01=0x00c4}
0x15866…1588e Head {h00=0x0024, h01=0x0050, text=» XRS A2,DWTST,A6 RESET ACK3 FLAG«, t00=0x00dc, t01=0x00e6}
0x1588e…158c2 Head {h00=0x0030, h01=0x0050, text=» ANK A3,DWFSAC ALWAYS WAIT FOR LEVEL 3 ACK? «, t00=0x00dc, t01=0x010e}
0x158c2…158f0 Head {h00=0x002a, h01=0x0050, text=» ABL(NZ) AK3RST YES, RETURN WITH ACK 3«, t00=0x00dc, t01=0x0142}
0x158f0…1591e Head {h00=0x002a, h01=0x0050, text=» ABL WINRST NO, RETURN TO WINDOW QUEUE«, t00=0x00dc, t01=0x0170}
0x1591e…15928 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dd, t01=0x000e}
0x15928…1593c Head {h00=0x0010, h01=0x0050, text=»RE100 EQU * «, t00=0x00dd, t01=0x0018}
0x1593c…15970 Head {h00=0x0030, h01=0x0050, text=» CF A15,OUTBUQ REMOVE DWT FROM BUFFER QUEUE «, t00=0x00dd, t01=0x002c}
0x15970…1598a Head {h00=0x0016, h01=0x0050, text=» LDR A2,A2 FOUND? «, t00=0x00dd, t01=0x0060}
0x1598a…159be Head {h00=0x0030, h01=0x0050, text=» ABL(NZ) BUFRST YES, RETURN WITH ERROR CODE «, t00=0x00dd, t01=0x007a}
0x159be…159c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dd, t01=0x00ae}
0x159c8…159ec Head {h00=0x0020, h01=0x0050, text=» ABL PLDSP2 LOCAL DISPATCHER«, t00=0x00dd, t01=0x00b8}
0x159ec…159f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dd, t01=0x00dc}
0x159f6…15a00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dd, t01=0x00e6}
0x15a00…15a14 Head {h00=0x0010, h01=0x0050, text=»REERR1 EQU *«, t00=0x00dd, t01=0x00f0}
0x15a14…15a36 Head {h00=0x001e, h01=0x0050, text=» CM CWTCCB,A5 SET CCA FREE«, t00=0x00dd, t01=0x0104}
0x15a36…15a4a Head {h00=0x0010, h01=0x0050, text=»REERR2 EQU *«, t00=0x00dd, t01=0x0126}
0x15a4a…15a80 Head {h00=0x0032, h01=0x0050, text=»* ERROR. RETURN MONITOR BLOCK IMMEDIATELY«, t00=0x00dd, t01=0x013a}
0x15a80…15ab0 Head {h00=0x002c, h01=0x0050, text=» SUK A4,2 START ADDRESS OF MONITOR BLOCK«, t00=0x00dd, t01=0x0170}
0x15ab0…15ae8 Head {h00=0x0034, h01=0x0050, text=» CF A15,LNKOUT REMOVE FROM QUEUE. A7 ALREADY SET«, t00=0x00de, t01=0x0010}
0x15ae8…15b14 Head {h00=0x0028, h01=0x0050, text=» CF A15,FREBLK RETURN MONITOR BLOCK «, t00=0x00de, t01=0x0048}
0x15b14…15b38 Head {h00=0x0020, h01=0x0050, text=» ABL PLDSP2 LOCAL DISPATCHER«, t00=0x00de, t01=0x0074}
0x15b38…15b42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00de, t01=0x0098}
0x15b42…15b50 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00de, t01=0x00a2}
0x15b50…15b5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00de, t01=0x00b0}
0x15b5a…15b78 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x00de, t01=0x00ba}
0x15b78…15b96 Head {h00=0x001a, h01=0x0050, text=»* RECOVERY ROUTINES * «, t00=0x00de, t01=0x00d8}
0x15b96…15bb4 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x00de, t01=0x00f6}
0x15bb4…15bbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00de, t01=0x0114}
0x15bbe…15bfe Head {h00=0x003c, h01=0x0050, text=»* THESE ROUTINES ARE USED AT SYSTEM START OR TC POWER «, t00=0x00de, t01=0x011e}
0x15bfe…15c40 Head {h00=0x003e, h01=0x0050, text=»* UP. IN CASE OF POWER UP, THEY FIRST REMOVE ALL RUNNING«, t00=0x00de, t01=0x015e}
0x15c40…15c7e Head {h00=0x003a, h01=0x0050, text=»* OUTPUT OPERATIONS. AFTER THAT, THE PLC IS STARTED,«, t00=0x00df, t01=0x0010}
0x15c7e…15cba Head {h00=0x0038, h01=0x0050, text=»* AND LAST RECOVERY ROUTINES IN DEVICE DRIVERS ARE«, t00=0x00df, t01=0x004e}
0x15cba…15cdc Head {h00=0x001e, h01=0x0050, text=»* CALLED FOR ALL DWT:S. «, t00=0x00df, t01=0x008a}
0x15cdc…15d18 Head {h00=0x0038, h01=0x0050, text=»* THE SECTION ALSO CONTAINS ROUTINES FOR RECOVERY «, t00=0x00df, t01=0x00ac}
0x15d18…15d32 Head {h00=0x0016, h01=0x0050, text=»* OF I/O ERRORS.«, t00=0x00df, t01=0x00e8}
0x15d32…15d3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x0102}
0x15d3c…15d46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x010c}
0x15d46…15d7a Head {h00=0x0030, h01=0x0050, text=»* ROUTINES IN ORDER OF APPEARANCE IN CODE:«, t00=0x00df, t01=0x0116}
0x15d7a…15d84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x014a}
0x15d84…15d9c Head {h00=0x0014, h01=0x0050, text=»* NAME FUNCTION «, t00=0x00df, t01=0x0154}
0x15d9c…15da6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x016c}
0x15da6…15de2 Head {h00=0x0038, h01=0x0050, text=»* PLON CALL RECOVERY ONCE FOR EACH PLC CHANNEL UNIT «, t00=0x00df, t01=0x0176}
0x15de2…15e16 Head {h00=0x0030, h01=0x0050, text=»* PLSTRT START PLC AND CALL DEVICE RECOVERY «, t00=0x00e0, t01=0x0022}
0x15e16…15e20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x0056}
0x15e20…15e2e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e0, t01=0x0060}
0x15e2e…15e38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x006e}
0x15e38…15e7c Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00e0, t01=0x0078}
0x15e7c…15e86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x00bc}
0x15e86…15e9e Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x00e0, t01=0x00c6}
0x15e9e…15eac Head {h00=0x000a, h01=0x0050, text=»* PLON«, t00=0x00e0, t01=0x00de}
0x15eac…15eb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x00ec}
0x15eb6…15eca Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x00e0, t01=0x00f6}
0x15eca…15efc Head {h00=0x002e, h01=0x0050, text=»* THIS ROUTINE WILL ACTIVATE A MONITOR JOB«, t00=0x00e0, t01=0x010a}
0x15efc…15f32 Head {h00=0x0032, h01=0x0050, text=»* FOR THE PLC RECOVERY, IF THE JOB NOT ALREADY«, t00=0x00e0, t01=0x013c}
0x15f32…15f48 Head {h00=0x0012, h01=0x0050, text=»* IS PENDING. «, t00=0x00e0, t01=0x0172}
0x15f48…15f86 Head {h00=0x003a, h01=0x0050, text=»* THE MONITOR JOB WILL CALL THE RECOVERY ROUTINE ONCE «, t00=0x00e0, t01=0x0188}
0x15f86…15fa6 Head {h00=0x001c, h01=0x0050, text=»* FOR EACH PLC DEFINED. «, t00=0x00e1, t01=0x0036}
0x15fa6…15fb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e1, t01=0x0056}
0x15fb0…15fc0 Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x00e1, t01=0x0060}
0x15fc0…15fd6 Head {h00=0x0012, h01=0x0050, text=»* CF A15,PLON «, t00=0x00e1, t01=0x0070}
0x15fd6…15fe0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e1, t01=0x0086}
0x15fe0…15ff0 Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x00e1, t01=0x0090}
0x15ff0…15ffc Head {h00=0x0008, h01=0x0050, text=»* - «, t00=0x00e1, t01=0x00a0}
0x15ffc…16006 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e1, t01=0x00ac}
0x16006…16018 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x00e1, t01=0x00b6}
0x16018…1603a Head {h00=0x001e, h01=0x0050, text=»* AT ENTRY TO PLSTRT:«, t00=0x00e1, t01=0x00c8}
0x1603a…16056 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x00e1, t01=0x00ea}
0x16056…16060 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e1, t01=0x0106}
0x16060…160a4 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00e1, t01=0x0110}
0x160a4…160ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e1, t01=0x0154}
0x160ae…160c0 Head {h00=0x000e, h01=0x0050, text=»PLON EQU *«, t00=0x00e1, t01=0x015e}
0x160c0…160e8 Head {h00=0x0024, h01=0x0050, text=» LD A1,PLCPFP POWER UP PENDING? «, t00=0x00e1, t01=0x0170}
0x160e8…16108 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) PO100 YES, EXIT «, t00=0x00e2, t01=0x0008}
0x16108…16134 Head {h00=0x0028, h01=0x0050, text=» IM PLCPFP INDICATE POWER UP STARTED«, t00=0x00e2, t01=0x0028}
0x16134…1613e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x0054}
0x1613e…16162 Head {h00=0x0020, h01=0x0050, text=» LDKL A2,PO110 START ADDRESS«, t00=0x00e2, t01=0x005e}
0x16162…1618c Head {h00=0x0026, h01=0x0050, text=» CF A15,QMJOB ACTIVATE MONITOR JOB«, t00=0x00e2, t01=0x0082}
0x1618c…16196 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x00ac}
0x16196…161aa Head {h00=0x0010, h01=0x0050, text=»PO100 EQU * «, t00=0x00e2, t01=0x00b6}
0x161aa…161ba Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x00e2, t01=0x00ca}
0x161ba…161c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x00da}
0x161c4…161d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e2, t01=0x00e4}
0x161d2…161dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x00f2}
0x161dc…161f0 Head {h00=0x0010, h01=0x0050, text=»PO110 EQU * «, t00=0x00e2, t01=0x00fc}
0x161f0…16214 Head {h00=0x0020, h01=0x0050, text=» CM PLCPFP NO LONGER PENDING«, t00=0x00e2, t01=0x0110}
0x16214…1621e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x0134}
0x1621e…16228 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x013e}
0x16228…1624e Head {h00=0x0022, h01=0x0050, text=» IFF UTTEST=0 QUEUE STATISTICS«, t00=0x00e2, t01=0x0148}
0x1624e…1627a Head {h00=0x0028, h01=0x0050, text=»* RESET QUEUE STATISTICS COUNTERS«, t00=0x00e2, t01=0x016e}
0x1627a…1629e Head {h00=0x0020, h01=0x0050, text=» LDK A1,STATLN TABLE LENGTH «, t00=0x00e3, t01=0x000a}
0x1629e…162b2 Head {h00=0x0010, h01=0x0050, text=»PO113 EQU * «, t00=0x00e3, t01=0x002e}
0x162b2…162ce Head {h00=0x0018, h01=0x0050, text=» SUK A1,2 NEXT WORD «, t00=0x00e3, t01=0x0042}
0x162ce…162f6 Head {h00=0x0024, h01=0x0050, text=» RF(N) PO116 READY WHEN ALL DONE«, t00=0x00e3, t01=0x005e}
0x162f6…1631a Head {h00=0x0020, h01=0x0050, text=» CM STATAR,A1 RESET COUNTER «, t00=0x00e3, t01=0x0086}
0x1631a…16336 Head {h00=0x0018, h01=0x0050, text=» RB PO113 NEXT WORD «, t00=0x00e3, t01=0x00aa}
0x16336…1634a Head {h00=0x0010, h01=0x0050, text=»PO116 EQU * «, t00=0x00e3, t01=0x00c6}
0x1634a…16356 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e3, t01=0x00da}
0x16356…16360 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e3, t01=0x00e6}
0x16360…1638c Head {h00=0x0028, h01=0x0050, text=» LDK A1,16 (MAX NUMBER OF PLC:S) * 2«, t00=0x00e3, t01=0x00f0}
0x1638c…163a0 Head {h00=0x0010, h01=0x0050, text=»PO120 EQU * «, t00=0x00e3, t01=0x011c}
0x163a0…163d4 Head {h00=0x0030, h01=0x0050, text=»* THIS LOOP IS EXECUTED ONCE FOR EACH PLC«, t00=0x00e3, t01=0x0130}
0x163d4…163ee Head {h00=0x0016, h01=0x0050, text=» SUK A1,2 NEXT PLC«, t00=0x00e3, t01=0x0164}
0x163ee…16414 Head {h00=0x0022, h01=0x0050, text=» RF(N) PO130 EXIT IF ALL DONE «, t00=0x00e3, t01=0x017e}
0x16414…16438 Head {h00=0x0020, h01=0x0050, text=» LD A5,TABCWT,A1 CWT ADDRESS«, t00=0x00e4, t01=0x0014}
0x16438…16466 Head {h00=0x002a, h01=0x0050, text=» RB(Z) PO120 TAKE NEXT IF NOT DEFINED «, t00=0x00e4, t01=0x0038}
0x16466…1648a Head {h00=0x0020, h01=0x0050, text=» CF A15,PLSTRT START ONE PLC«, t00=0x00e4, t01=0x0066}
0x1648a…164a4 Head {h00=0x0016, h01=0x0050, text=» RB PO120 NEXT PLC«, t00=0x00e4, t01=0x008a}
0x164a4…164ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e4, t01=0x00a4}
0x164ae…164c2 Head {h00=0x0010, h01=0x0050, text=»PO130 EQU * «, t00=0x00e4, t01=0x00ae}
0x164c2…164e6 Head {h00=0x0020, h01=0x0050, text=» ABL MEXIT MONITOR JOB EXIT «, t00=0x00e4, t01=0x00c2}
0x164e6…164f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e4, t01=0x00e6}
0x164f0…164fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e4, t01=0x00f0}
0x164fe…16508 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e4, t01=0x00fe}
0x16508…1654c Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00e4, t01=0x0108}
0x1654c…16556 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e4, t01=0x014c}
0x16556…1656e Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x00e4, t01=0x0156}
0x1656e…1657e Head {h00=0x000c, h01=0x0050, text=»* PLSTRT«, t00=0x00e4, t01=0x016e}
0x1657e…16588 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e4, t01=0x017e}
0x16588…1659c Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x00e4, t01=0x0188}
0x1659c…165d2 Head {h00=0x0032, h01=0x0050, text=»* THIS ROUTINE FIRST CLEARS ALL WORK AREAS AND«, t00=0x00e5, t01=0x000c}
0x165d2…1660a Head {h00=0x0034, h01=0x0050, text=»* DWT:S, AND SETS THE DWT:S BUSY. IT THEN STARTS«, t00=0x00e5, t01=0x0042}
0x1660a…16640 Head {h00=0x0032, h01=0x0050, text=»* THE PLC, AND CALLS RECOVERY ROUTINES IN ALL «, t00=0x00e5, t01=0x007a}
0x16640…1665a Head {h00=0x0016, h01=0x0050, text=»* DEVICE DRIVERS. «, t00=0x00e5, t01=0x00b0}
0x1665a…16664 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e5, t01=0x00ca}
0x16664…16674 Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x00e5, t01=0x00d4}
0x16674…1668c Head {h00=0x0014, h01=0x0050, text=»* CF A15,PLSTRT «, t00=0x00e5, t01=0x00e4}
0x1668c…16696 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e5, t01=0x00fc}
0x16696…166a6 Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x00e5, t01=0x0106}
0x166a6…166c2 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x00e5, t01=0x0116}
0x166c2…166cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e5, t01=0x0132}
0x166cc…166de Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x00e5, t01=0x013c}
0x166de…166ea Head {h00=0x0008, h01=0x0050, text=»* - «, t00=0x00e5, t01=0x014e}
0x166ea…166f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e5, t01=0x015a}
0x166f4…16738 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00e5, t01=0x0164}
0x16738…16742 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e6, t01=0x0018}
0x16742…16756 Head {h00=0x0010, h01=0x0050, text=»PLSTRT EQU *«, t00=0x00e6, t01=0x0022}
0x16756…1676c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x00e6, t01=0x0036}
0x1676c…1678c Head {h00=0x001c, h01=0x0050, text=» CF A15,SAVE8 PUSH A1-A8«, t00=0x00e6, t01=0x004c}
0x1678c…16798 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e6, t01=0x006c}
0x16798…167ae Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x00e6, t01=0x0078}
0x167ae…167cc Head {h00=0x001a, h01=0x0050, text=» MSR 8,A15 PUSH A1-A8 «, t00=0x00e6, t01=0x008e}
0x167cc…167d8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e6, t01=0x00ac}
0x167d8…167e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e6, t01=0x00b8}
0x167e2…167ee Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x00e6, t01=0x00c2}
0x167ee…16824 Head {h00=0x0032, h01=0x0050, text=» IM CWTGR,A5 INDICATE GENERAL READ NOT ALLOWED«, t00=0x00e6, t01=0x00ce}
0x16824…1684a Head {h00=0x0022, h01=0x0050, text=» CM CWTABW,A5 STOP ABORT OF WS«, t00=0x00e6, t01=0x0104}
0x1684a…16878 Head {h00=0x002a, h01=0x0050, text=» CM CWTSBQ,A5 RESET SHORT BUFFER QUEUE«, t00=0x00e6, t01=0x012a}
0x16878…168a6 Head {h00=0x002a, h01=0x0050, text=» CM CWTLBQ,A5 RESET LONG BUFFER QUEUE «, t00=0x00e6, t01=0x0158}
0x168a6…168b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e6, t01=0x0186}
0x168b0…168be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e6, t01=0x0190}
0x168be…168c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x000e}
0x168c8…168dc Head {h00=0x0010, h01=0x0050, text=»ST100 EQU * «, t00=0x00e7, t01=0x0018}
0x168dc…1690e Head {h00=0x002e, h01=0x0050, text=»* RETURN MONITOR BLOCKS USED AS BUFFERS«, t00=0x00e7, t01=0x002c}
0x1690e…16920 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A5«, t00=0x00e7, t01=0x005e}
0x16920…16950 Head {h00=0x002c, h01=0x0050, text=» ADK A7,CWTMBQ MONITOR BLOCK QUEUE HEAD «, t00=0x00e7, t01=0x0070}
0x16950…16970 Head {h00=0x001c, h01=0x0050, text=» LDR* A4,A7 FIRST BLOCK «, t00=0x00e7, t01=0x00a0}
0x16970…16998 Head {h00=0x0024, h01=0x0050, text=» RF(Z) ST105 CONTINUE IF NO LEFT«, t00=0x00e7, t01=0x00c0}
0x16998…169c0 Head {h00=0x0024, h01=0x0050, text=» CF A15,LNKOUT REMOVE FROM QUEUE«, t00=0x00e7, t01=0x00e8}
0x169c0…169e4 Head {h00=0x0020, h01=0x0050, text=» CF A15,FREBLK RETURN BLOCK «, t00=0x00e7, t01=0x0110}
0x169e4…16a00 Head {h00=0x0018, h01=0x0050, text=» RB ST100 TAKE NEXT «, t00=0x00e7, t01=0x0134}
0x16a00…16a14 Head {h00=0x0010, h01=0x0050, text=»ST105 EQU * «, t00=0x00e7, t01=0x0150}
0x16a14…16a46 Head {h00=0x002e, h01=0x0050, text=»* RETURN MONITOR BLOCKS FROM CCA QUEUE «, t00=0x00e7, t01=0x0164}
0x16a46…16a58 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A5«, t00=0x00e8, t01=0x0008}
0x16a58…16a7e Head {h00=0x0022, h01=0x0050, text=» ADK A7,CWTCCQ CCA QUEUE HEAD «, t00=0x00e8, t01=0x001a}
0x16a7e…16a9e Head {h00=0x001c, h01=0x0050, text=» LDR* A4,A7 FIRST BLOCK «, t00=0x00e8, t01=0x0040}
0x16a9e…16ac6 Head {h00=0x0024, h01=0x0050, text=» RF(Z) ST110 CONTINUE IF NO LEFT«, t00=0x00e8, t01=0x0060}
0x16ac6…16aee Head {h00=0x0024, h01=0x0050, text=» CF A15,LNKOUT REMOVE FROM QUEUE«, t00=0x00e8, t01=0x0088}
0x16aee…16b12 Head {h00=0x0020, h01=0x0050, text=» CF A15,FREBLK RETURN BLOCK «, t00=0x00e8, t01=0x00b0}
0x16b12…16b2e Head {h00=0x0018, h01=0x0050, text=» RB ST105 TAKE NEXT «, t00=0x00e8, t01=0x00d4}
0x16b2e…16b38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x00f0}
0x16b38…16b4c Head {h00=0x0010, h01=0x0050, text=»ST110 EQU * «, t00=0x00e8, t01=0x00fa}
0x16b4c…16b6e Head {h00=0x001e, h01=0x0050, text=»* INITIATE BUFFER AREAS«, t00=0x00e8, t01=0x010e}
0x16b6e…16b8c Head {h00=0x001a, h01=0x0050, text=» LDR A4,A5 CWT ADDRESS«, t00=0x00e8, t01=0x0130}
0x16b8c…16bc2 Head {h00=0x0032, h01=0x0050, text=» ADKL A4,CWTSOB AREA FOR SHORT OUTPUT BUFFERS «, t00=0x00e8, t01=0x014e}
0x16bc2…16bd4 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A5«, t00=0x00e8, t01=0x0184}
0x16bd4…16c0a Head {h00=0x0032, h01=0x0050, text=» ADK A7,CWTPBS POOLBLOCK, SHORT OUTPUT BUFFERS«, t00=0x00e9, t01=0x0008}
0x16c0a…16c36 Head {h00=0x0028, h01=0x0050, text=» CF A15,INIBUF INITIATE BUFFER AREA «, t00=0x00e9, t01=0x003e}
0x16c36…16c54 Head {h00=0x001a, h01=0x0050, text=» LDR A4,A5 CWT ADDRESS«, t00=0x00e9, t01=0x006a}
0x16c54…16c88 Head {h00=0x0030, h01=0x0050, text=» ADKL A4,CWTLOB AREA FOR LONG OUTPUT BUFFERS«, t00=0x00e9, t01=0x0088}
0x16c88…16c9a Head {h00=0x000e, h01=0x0050, text=» LDR A7,A5«, t00=0x00e9, t01=0x00bc}
0x16c9a…16cd0 Head {h00=0x0032, h01=0x0050, text=» ADK A7,CWTPBL POOLBLOCK, LONG OUTPUT BUFFERS «, t00=0x00e9, t01=0x00ce}
0x16cd0…16cfc Head {h00=0x0028, h01=0x0050, text=» CF A15,INIBUF INITIATE BUFFER AREA «, t00=0x00e9, t01=0x0104}
0x16cfc…16d1a Head {h00=0x001a, h01=0x0050, text=» LDR A4,A5 CWT ADDRESS«, t00=0x00e9, t01=0x0130}
0x16d1a…16d50 Head {h00=0x0032, h01=0x0050, text=» ADKL A4,CWTGRB AREA FOR GENERAL READ BUFFERS «, t00=0x00e9, t01=0x014e}
0x16d50…16d62 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A5«, t00=0x00e9, t01=0x0184}
0x16d62…16d98 Head {h00=0x0032, h01=0x0050, text=» ADK A7,CWTPBG POOLBLOCK, GENERAL READ BUFFERS«, t00=0x00ea, t01=0x0008}
0x16d98…16dc4 Head {h00=0x0028, h01=0x0050, text=» CF A15,INIBUF INITIATE BUFFER AREA «, t00=0x00ea, t01=0x003e}
0x16dc4…16dce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x006a}
0x16dce…16e02 Head {h00=0x0030, h01=0x0050, text=»* RESET ALL DWT:S AND WORK STATION STATUS«, t00=0x00ea, t01=0x0074}
0x16e02…16e36 Head {h00=0x0030, h01=0x0050, text=» LDK A3,MAXWS+1 NUMBER OF WORK STATIONS + 1 «, t00=0x00ea, t01=0x00a8}
0x16e36…16e4a Head {h00=0x0010, h01=0x0050, text=»ST120 EQU * «, t00=0x00ea, t01=0x00dc}
0x16e4a…16e6e Head {h00=0x0020, h01=0x0050, text=» SUK A3,1 NEXT WORK STATION «, t00=0x00ea, t01=0x00f0}
0x16e6e…16e96 Head {h00=0x0024, h01=0x0050, text=» RF(N) ST150 END IF NO MORE LEFT«, t00=0x00ea, t01=0x0114}
0x16e96…16ebc Head {h00=0x0022, h01=0x0050, text=» LDR A2,A3 WORK STATION NUMBER«, t00=0x00ea, t01=0x013c}
0x16ebc…16ed8 Head {h00=0x0018, h01=0x0050, text=» SLA A2,1 MAKE INDEX«, t00=0x00ea, t01=0x0162}
0x16ed8…16efa Head {h00=0x001e, h01=0x0050, text=» ADR A2,A5 ADD CWT ADDRESS«, t00=0x00ea, t01=0x017e}
0x16efa…16f2a Head {h00=0x002c, h01=0x0050, text=» ADK A2,CWTWSS WORK STATION STATUS WORD «, t00=0x00eb, t01=0x0010}
0x16f2a…16f46 Head {h00=0x0018, h01=0x0050, text=» CMR A2 CLEAR STATUS«, t00=0x00eb, t01=0x0040}
0x16f46…16f5c Head {h00=0x0012, h01=0x0050, text=» LDK A1,NOTOPR«, t00=0x00eb, t01=0x005c}
0x16f5c…16f82 Head {h00=0x0022, h01=0x0050, text=» SCR A1,A2 WS := NOT OPERABLE «, t00=0x00eb, t01=0x0072}
0x16f82…16fb6 Head {h00=0x0030, h01=0x0050, text=» LD* A1,CWTINT,A5 WORK STATION TABLE ADDRESS«, t00=0x00eb, t01=0x0098}
0x16fb6…16fdc Head {h00=0x0022, h01=0x0050, text=» LDR A6,A3 WORK STATION NUMBER«, t00=0x00eb, t01=0x00cc}
0x16fdc…17010 Head {h00=0x0030, h01=0x0050, text=» CF A15,NDGEDN A7 := HIGEST DWT NUMBER ON WS«, t00=0x00eb, t01=0x00f2}
0x17010…17022 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x00eb, t01=0x0126}
0x17022…17036 Head {h00=0x0010, h01=0x0050, text=»ST130 EQU * «, t00=0x00eb, t01=0x0138}
0x17036…17050 Head {h00=0x0016, h01=0x0050, text=» SUK A7,1 NEXT DWT«, t00=0x00eb, t01=0x014c}
0x17050…1707c Head {h00=0x0028, h01=0x0050, text=» RF(N) ST140 NEXT WS IF NO DWT LEFT «, t00=0x00eb, t01=0x0166}
0x1707c…17098 (236, 0, 400) Head {h00=0x0018, h01=0x0050, text=» LDR A6,A3 WS NUMBER«, t00=0x00ec, t01=0x0004}
0x17098…170c0 Head {h00=0x0024, h01=0x0050, text=» CF A15,GETDWT A6 := DWT ADDRESS«, t00=0x00ec, t01=0x0020}
0x170c0…170e0 Head {h00=0x001c, h01=0x0050, text=» RB(Z) ST130 NOT DEFINED«, t00=0x00ec, t01=0x0048}
0x170e0…17108 Head {h00=0x0024, h01=0x0050, text=» CM DWTLD2,A6 RESET FLOW CONTROL«, t00=0x00ec, t01=0x0068}
0x17108…1712c Head {h00=0x0020, h01=0x0050, text=» LDKL A2,/FFFF-DWFBSY-DWFPLC«, t00=0x00ec, t01=0x0090}
0x1712c…17154 Head {h00=0x0024, h01=0x0050, text=»* MASK FOR BUSY AND PLC FLAGS«, t00=0x00ec, t01=0x00b4}
0x17154…17178 Head {h00=0x0020, h01=0x0050, text=» ANS A2,DWTST,A6 RESET FLAGS«, t00=0x00ec, t01=0x00dc}
0x17178…171a4 Head {h00=0x0028, h01=0x0050, text=» CM DWTLD1,A6 RELEASE BUFFER, IF ANY«, t00=0x00ec, t01=0x0100}
0x171a4…171d8 Head {h00=0x0030, h01=0x0050, text=» CM DWTOTQ,A6 REMOVE DWT FROM QUEUE, IF ANY «, t00=0x00ec, t01=0x012c}
0x171d8…171f2 Head {h00=0x0016, h01=0x0050, text=» RB ST130 NEXT DWT«, t00=0x00ec, t01=0x0160}
0x171f2…17206 Head {h00=0x0010, h01=0x0050, text=»ST140 EQU * «, t00=0x00ec, t01=0x017a}
0x17206…1722a Head {h00=0x0020, h01=0x0050, text=» RB ST120 NEXT WORK STATION «, t00=0x00ec, t01=0x018e}
0x1722a…17234 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ed, t01=0x0022}
0x17234…17248 Head {h00=0x0010, h01=0x0050, text=»ST150 EQU * «, t00=0x00ed, t01=0x002c}
0x17248…17278 Head {h00=0x002c, h01=0x0050, text=»* DELAY UNTIL PLC IS READY FOR START «, t00=0x00ed, t01=0x0040}
0x17278…172a8 Head {h00=0x002c, h01=0x0050, text=» LD A4,CWTTPR,A5 TIMER ALREADY STARTED? «, t00=0x00ed, t01=0x0070}
0x172a8…172cc Head {h00=0x0020, h01=0x0050, text=» RF(Z) ST152 NO, START TIMER«, t00=0x00ed, t01=0x00a0}
0x172cc…172f2 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,-STADLY-1 DELAY TIME «, t00=0x00ed, t01=0x00c4}
0x172f2…17312 Head {h00=0x001c, h01=0x0050, text=» STR A1,A4 RESTART TIMER«, t00=0x00ed, t01=0x00ea}
0x17312…17328 Head {h00=0x0012, h01=0x0050, text=» RF ST154 EXIT«, t00=0x00ed, t01=0x010a}
0x17328…17332 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ed, t01=0x0120}
0x17332…17346 Head {h00=0x0010, h01=0x0050, text=»ST152 EQU * «, t00=0x00ed, t01=0x012a}
0x17346…1736a Head {h00=0x0020, h01=0x0050, text=» LDR A1,A5 SAVE CWT ADDRESS «, t00=0x00ed, t01=0x013e}
0x1736a…1738c Head {h00=0x001e, h01=0x0050, text=» CF A15,SETIME START TIMER«, t00=0x00ed, t01=0x0162}
0x1738c…173c4 Head {h00=0x0034, h01=0x0050, text=» DATA ST156,STADLY RESTART ADDRESS & DELAY TIME «, t00=0x00ed, t01=0x0184}
0x173c4…173f0 Head {h00=0x0028, h01=0x0050, text=» ST A4,CWTTPR,A5 SAVE TIMER POINTER «, t00=0x00ee, t01=0x002c}
0x173f0…17404 Head {h00=0x0010, h01=0x0050, text=»ST154 EQU * «, t00=0x00ee, t01=0x0058}
0x17404…17430 Head {h00=0x0028, h01=0x0050, text=» ABL TDISP WAIT UNTIL TIMER EXPIRES «, t00=0x00ee, t01=0x006c}
0x17430…1743a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ee, t01=0x0098}
0x1743a…1744e Head {h00=0x0010, h01=0x0050, text=»ST156 EQU * «, t00=0x00ee, t01=0x00a2}
0x1744e…17474 Head {h00=0x0022, h01=0x0050, text=» LDR A5,A1 RESTORE CWT ADDRESS«, t00=0x00ee, t01=0x00b6}
0x17474…174a4 Head {h00=0x002c, h01=0x0050, text=» CM CWTTPR,A5 INDICATE NO TIMER RUNNING «, t00=0x00ee, t01=0x00dc}
0x174a4…174ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ee, t01=0x010c}
0x174ae…174de Head {h00=0x002c, h01=0x0050, text=»* START "TEST CHANNEL UNIT" OPERATION«, t00=0x00ee, t01=0x0116}
0x174de…17500 Head {h00=0x001e, h01=0x0050, text=» IM CWTCCB,A5 SET CCA BUSY«, t00=0x00ee, t01=0x0146}
0x17500…17526 Head {h00=0x0022, h01=0x0050, text=» CM CWTOPR,A5 SET PLC OPERABLE«, t00=0x00ee, t01=0x0168}
0x17526…17550 Head {h00=0x0026, h01=0x0050, text=» LDK A2,CMDTC COMMAND CODE TEST CU«, t00=0x00ee, t01=0x018e}
0x17550…1758c Head {h00=0x0038, h01=0x0050, text=» ST A2,CWTCCA+CCRDLS,A5 COMMAND AND DLS INDEX TO CCA«, t00=0x00ef, t01=0x0028}
0x1758c…175bc Head {h00=0x002c, h01=0x0050, text=» CM CWTCCA+CCRC1B,A5 RESET DATA CHAINING«, t00=0x00ef, t01=0x0064}
0x175bc…175da Head {h00=0x001a, h01=0x0050, text=» LDR A3,A5 CWT ADDRESS«, t00=0x00ef, t01=0x0094}
0x175da…17614 Head {h00=0x0036, h01=0x0050, text=» ADK A3,CWTCSD CONTROL UNIT START DESCRIPTOR ADDR «, t00=0x00ef, t01=0x00b2}
0x17614…17620 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x00ef, t01=0x00ec}
0x17620…17640 Head {h00=0x001c, h01=0x0050, text=» CF A15,PLCCIO CIO START«, t00=0x00ef, t01=0x00f8}
0x17640…17664 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) STERR2 EXIT IF ERROR«, t00=0x00ef, t01=0x0118}
0x17664…1769e Head {h00=0x0036, h01=0x0050, text=» IM CWTOPR,A5 SET NOT OPERABLE UNTIL TEST CU READY«, t00=0x00ef, t01=0x013c}
0x1769e…176c4 Head {h00=0x0022, h01=0x0050, text=» ABL TDISP WAIT FOR COMPLETION«, t00=0x00ef, t01=0x0176}
0x176c4…176ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f0, t01=0x000c}
0x176ce…176d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f0, t01=0x0016}
0x176d8…17712 Head {h00=0x0036, h01=0x0050, text=»* ENTRY IS MADE HERE WHEN TEST CU IS COMPLETED.«, t00=0x00f0, t01=0x0020}
0x17712…1773c Head {h00=0x0026, h01=0x0050, text=»* REGISTER CONTENTS ON ENTRY:«, t00=0x00f0, t01=0x005a}
0x1773c…17756 Head {h00=0x0016, h01=0x0050, text=»* A1 = PLC STATUS«, t00=0x00f0, t01=0x0084}
0x17756…17772 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x00f0, t01=0x009e}
0x17772…1777c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f0, t01=0x00ba}
0x1777c…17790 Head {h00=0x0010, h01=0x0050, text=»TCURST EQU *«, t00=0x00f0, t01=0x00c4}
0x17790…177b0 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 OPERATION OK?«, t00=0x00f0, t01=0x00d8}
0x177b0…177d0 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) STERR2 NO, EXIT «, t00=0x00f0, t01=0x00f8}
0x177d0…177da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f0, t01=0x0118}
0x177da…17804 Head {h00=0x0026, h01=0x0050, text=»* PERFORM "OPEN LINE" OPERATION«, t00=0x00f0, t01=0x0122}
0x17804…17814 Head {h00=0x000c, h01=0x0050, text=» U =5 «, t00=0x00f0, t01=0x014c}
0x17814…1783c Head {h00=0x0024, h01=0x0050, text=» LDK A2,0 INITIATE LINE COUNTER «, t00=0x00f0, t01=0x015c}
0x1783c…17854 Head {h00=0x0014, h01=0x0050, text=» ST A2,CWTLNO,A5«, t00=0x00f0, t01=0x0184}
0x17854…17868 Head {h00=0x0010, h01=0x0050, text=»ST157 EQU * «, t00=0x00f1, t01=0x000c}
0x17868…1788a Head {h00=0x001e, h01=0x0050, text=» CF A15,PLCCCA RESERVE CCA«, t00=0x00f1, t01=0x0020}
0x1788a…17894 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f1, t01=0x0042}
0x17894…178b8 Head {h00=0x0020, h01=0x0050, text=» LD A2,CWTLNO,A5 GET LINE NO«, t00=0x00f1, t01=0x004c}
0x178b8…178ee Head {h00=0x0032, h01=0x0050, text=» SC A2,CWTCCA+CCRSU1,A5 SET UP LINE IN CCA =5 «, t00=0x00f1, t01=0x0070}
0x178ee…17914 Head {h00=0x0022, h01=0x0050, text=» SLL A2,1 MAKE OPEN LINE PARA-«, t00=0x00f1, t01=0x00a6}
0x17914…17938 Head {h00=0x0020, h01=0x0050, text=» ST A2,CWTPAR,A5 METER AREA «, t00=0x00f1, t01=0x00cc}
0x17938…1794c Head {h00=0x0010, h01=0x0050, text=»ST158 EQU * «, t00=0x00f1, t01=0x00f0}
0x1794c…17974 Head {h00=0x0024, h01=0x0050, text=» LD A2,CWTOPP,A5 MAKE ADDRESS TO«, t00=0x00f1, t01=0x0104}
0x17974…179a6 Head {h00=0x002e, h01=0x0050, text=» AD A2,CWTPAR,A5 OPEN LINE PARAMETER AREA «, t00=0x00f1, t01=0x012c}
0x179a6…179be Head {h00=0x0014, h01=0x0050, text=» LDR* A2,A2 U =5«, t00=0x00f1, t01=0x015e}
0x179be…179ec Head {h00=0x002a, h01=0x0050, text=» ST A2,CWTCCA+CCRBUF,A5 SET UP IN CCA «, t00=0x00f1, t01=0x0176}
0x179ec…17a14 Head {h00=0x0024, h01=0x0050, text=» LDK A2,CMDOP COMMAND OPEN LINE «, t00=0x00f2, t01=0x0014}
0x17a14…17a50 Head {h00=0x0038, h01=0x0050, text=» ST A2,CWTCCA+CCRDLS,A5 COMMAND AND DLS INDEX TO CCA«, t00=0x00f2, t01=0x003c}
0x17a50…17a8e Head {h00=0x003a, h01=0x0050, text=» CM CWTCCA+CCRC1B,A5 RESET DATA CHAINING & MSB OF ADDR«, t00=0x00f2, t01=0x0078}
0x17a8e…17aba Head {h00=0x0028, h01=0x0050, text=» LDK A2,12 PARAMETER AREA LENGTH =1 «, t00=0x00f2, t01=0x00b6}
0x17aba…17ae0 Head {h00=0x0022, h01=0x0050, text=» ST A2,CWTCCA+CCRLEN,A5 TO CCA«, t00=0x00f2, t01=0x00e2}
0x17ae0…17aea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f2, t01=0x0108}
0x17aea…17b10 Head {h00=0x0022, h01=0x0050, text=» CM CWTOPR,A5 SET PLC OPERABLE«, t00=0x00f2, t01=0x0112}
0x17b10…17b30 Head {h00=0x001c, h01=0x0050, text=» CF A15,PLCCIO CIO START«, t00=0x00f2, t01=0x0138}
0x17b30…17b54 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) STERR2 EXIT IF ERROR«, t00=0x00f2, t01=0x0158}
0x17b54…17b78 Head {h00=0x0020, h01=0x0050, text=» ABL PLDSP2 LOCAL DISPATCHER«, t00=0x00f2, t01=0x017c}
0x17b78…17b82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f3, t01=0x0010}
0x17b82…17b8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f3, t01=0x001a}
0x17b8c…17bc8 Head {h00=0x0038, h01=0x0050, text=»* ENTRY TO OPLRST WILL BE MADE WHEN THE OPEN LINE«, t00=0x00f3, t01=0x0024}
0x17bc8…17bec Head {h00=0x0020, h01=0x0050, text=»* OPERATION IS COMPLETED.«, t00=0x00f3, t01=0x0060}
0x17bec…17c16 Head {h00=0x0026, h01=0x0050, text=»* REGISTER CONTENTS ON ENTRY:«, t00=0x00f3, t01=0x0084}
0x17c16…17c30 Head {h00=0x0016, h01=0x0050, text=»* A1 = PLC STATUS«, t00=0x00f3, t01=0x00ae}
0x17c30…17c4c Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x00f3, t01=0x00c8}
0x17c4c…17c56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f3, t01=0x00e4}
0x17c56…17c6a Head {h00=0x0010, h01=0x0050, text=»OPLRST EQU *«, t00=0x00f3, t01=0x00ee}
0x17c6a…17c8a Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 OPERATION OK?«, t00=0x00f3, t01=0x0102}
0x17c8a…17caa Head {h00=0x001c, h01=0x0050, text=» RF(NZ) STERR2 NO, EXIT «, t00=0x00f3, t01=0x0122}
0x17caa…17cb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f3, t01=0x0142}
0x17cb4…17cd8 Head {h00=0x0020, h01=0x0050, text=» LD A2,CWTPNR,A5 GET PLC NR «, t00=0x00f3, t01=0x014c}
0x17cd8…17cf8 Head {h00=0x001c, h01=0x0050, text=» SUK A2,3 CHECK IF LOCAL«, t00=0x00f3, t01=0x0170}
0x17cf8…17d12 Head {h00=0x0016, h01=0x0050, text=» RF(NP) ST159 YES «, t00=0x00f3, t01=0x0190}
0x17d12…17d3e Head {h00=0x0028, h01=0x0050, text=» IM CWTLNO,A5 INCREMENT LINE NUMBER «, t00=0x00f4, t01=0x001a}
0x17d3e…17d62 Head {h00=0x0020, h01=0x0050, text=» LD A2,CWTLNO,A5 GET LINE NO«, t00=0x00f4, t01=0x0046}
0x17d62…17d86 Head {h00=0x0020, h01=0x0050, text=» SUK A2,4 ALL LINES OPENED ?«, t00=0x00f4, t01=0x006a}
0x17d86…17daa Head {h00=0x0020, h01=0x0050, text=» RB(NZ) ST157 NO, TAKE NEXT «, t00=0x00f4, t01=0x008e}
0x17daa…17dc0 Head {h00=0x0012, h01=0x0050, text=» CM CWTLNO,A5 «, t00=0x00f4, t01=0x00b2}
0x17dc0…17dd4 Head {h00=0x0010, h01=0x0050, text=»ST159 EQU * «, t00=0x00f4, t01=0x00c8}
0x17dd4…17dde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f4, t01=0x00dc}
0x17dde…17e10 Head {h00=0x002e, h01=0x0050, text=» CM CWTGR,A5 INDICATE GENERAL READ ALLOWED«, t00=0x00f4, t01=0x00e6}
0x17e10…17e1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f4, t01=0x0118}
0x17e1a…17e5c Head {h00=0x003e, h01=0x0050, text=»* PERFORM OPEN DATA LINK FOR ALL CONNECTED SECONDARIES «, t00=0x00f4, t01=0x0122}
0x17e5c…17e66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f4, t01=0x0164}
0x17e66…17e92 Head {h00=0x0028, h01=0x0050, text=» LDK A6,MAXWS+1 (MAX NR OF DLS) + 1 «, t00=0x00f4, t01=0x016e}
0x17e92…17ea6 Head {h00=0x0010, h01=0x0050, text=»ST160 EQU * «, t00=0x00f5, t01=0x000a}
0x17ea6…17ed0 Head {h00=0x0026, h01=0x0050, text=» SUK A6,1 NEXT WORK STATION (DLS) «, t00=0x00f5, t01=0x001e}
0x17ed0…17ef6 Head {h00=0x0022, h01=0x0050, text=» RF(N) ST180 EXIT IF ALL DONE «, t00=0x00f5, t01=0x0048}
0x17ef6…17f22 Head {h00=0x0028, h01=0x0050, text=» LD* A1,CWTINT,A5 WORK STATION TABLE«, t00=0x00f5, t01=0x006e}
0x17f22…17f56 Head {h00=0x0030, h01=0x0050, text=» CF A15,NDGEDN A7 := HIGEST DWT NUMBER ON WS«, t00=0x00f5, t01=0x009a}
0x17f56…17f74 Head {h00=0x001a, h01=0x0050, text=» LDR A7,A7 ANY DWT:S? «, t00=0x00f5, t01=0x00ce}
0x17f74…17f9a Head {h00=0x0022, h01=0x0050, text=» RB(N) ST160 NO, TAKE NEXT WS «, t00=0x00f5, t01=0x00ec}
0x17f9a…17fa4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f5, t01=0x0112}
0x17fa4…17fc6 Head {h00=0x001e, h01=0x0050, text=» CF A15,PLCCCA RESERVE CCA«, t00=0x00f5, t01=0x011c}
0x17fc6…17fec Head {h00=0x0022, h01=0x0050, text=» LDR A3,A6 WORK STATION NUMBER«, t00=0x00f5, t01=0x013e}
0x17fec…18008 Head {h00=0x0018, h01=0x0050, text=» SLA A3,1 MAKE INDEX«, t00=0x00f5, t01=0x0164}
0x18008…1802a Head {h00=0x001e, h01=0x0050, text=» ADR A3,A5 ADD CWT ADDRESS«, t00=0x00f5, t01=0x0180}
0x1802a…18050 Head {h00=0x0022, h01=0x0050, text=» CM CWTWSS,A3 CLEAR WS STATUS «, t00=0x00f6, t01=0x0012}
0x18050…1808c Head {h00=0x0038, h01=0x0050, text=» SC A6,CWTCCA+CCRDLS,A5 DLS INDEX (WS NUMBER) TO CCA«, t00=0x00f6, t01=0x0038}
0x1808c…180ba Head {h00=0x002a, h01=0x0050, text=» ST A6,CWTCCA+CCRIDW,A5 SAVE DLS INDEX«, t00=0x00f6, t01=0x0074}
0x180ba…180e0 Head {h00=0x0022, h01=0x0050, text=» LDK A2,CMDOD COMMAND OPEN DLS«, t00=0x00f6, t01=0x00a2}
0x180e0…18106 Head {h00=0x0022, h01=0x0050, text=» SC A2,CWTCCA+CCRCMD,A5 TO CCA«, t00=0x00f6, t01=0x00c8}
0x18106…18132 Head {h00=0x0028, h01=0x0050, text=» LDK A2,MAXFR MAX OUTSTANDING FRAMES«, t00=0x00f6, t01=0x00ee}
0x18132…18162 Head {h00=0x002c, h01=0x0050, text=» SC A2,CWTCCA+CCRSU1,A5 TO SUBCOMMAND 1 «, t00=0x00f6, t01=0x011a}
0x18162…18192 Head {h00=0x002c, h01=0x0050, text=» CM CWTCCA+CCRC1B,A5 RESET DATA CHAINING«, t00=0x00f6, t01=0x014a}
0x18192…181b2 Head {h00=0x001c, h01=0x0050, text=» CF A15,PLCCIO CIO START«, t00=0x00f6, t01=0x017a}
0x181b2…181d6 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) STERR2 EXIT IF ERROR«, t00=0x00f7, t01=0x000a}
0x181d6…18204 Head {h00=0x002a, h01=0x0050, text=» ABL PLDSP2 EXIT. WAIT FOR COMPLETION «, t00=0x00f7, t01=0x002e}
0x18204…1820e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f7, t01=0x005c}
0x1820e…18218 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f7, t01=0x0066}
0x18218…1825a Head {h00=0x003e, h01=0x0050, text=»* ENTRY TO ODLRST IS MADE WHEN OPERATION IS COMPLETED. «, t00=0x00f7, t01=0x0070}
0x1825a…18284 Head {h00=0x0026, h01=0x0050, text=»* REGISTER CONTENTS ON ENTRY:«, t00=0x00f7, t01=0x00b2}
0x18284…182a4 Head {h00=0x001c, h01=0x0050, text=»* A2 = FATAL PLC STATUS«, t00=0x00f7, t01=0x00dc}
0x182a4…182c0 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x00f7, t01=0x00fc}
0x182c0…182f0 Head {h00=0x002c, h01=0x0050, text=»* A6 = WORK STATION NUMBER (DLS INDEX) «, t00=0x00f7, t01=0x0118}
0x182f0…182fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f7, t01=0x0148}
0x182fa…1830e Head {h00=0x0010, h01=0x0050, text=»ODLRST EQU *«, t00=0x00f7, t01=0x0152}
0x1830e…1832e Head {h00=0x001c, h01=0x0050, text=» LDR A2,A2 FATAL ERROR? «, t00=0x00f7, t01=0x0166}
0x1832e…1834e Head {h00=0x001c, h01=0x0050, text=» RF(NZ) STERR2 YES, EXIT«, t00=0x00f7, t01=0x0186}
0x1834e…18382 Head {h00=0x0030, h01=0x0050, text=» LD* A3,CWTINT,A5 WORK STATION TABLE ADDRESS«, t00=0x00f8, t01=0x0016}
0x18382…183aa Head {h00=0x0024, h01=0x0050, text=» LDK A4,RETCP FLAG "TC POWER UP"«, t00=0x00f8, t01=0x004a}
0x183aa…183dc Head {h00=0x002e, h01=0x0050, text=» CF A15,NDREWS RECOVERY OF ALL DWT:S ON WS«, t00=0x00f8, t01=0x0072}
0x183dc…18404 Head {h00=0x0024, h01=0x0050, text=» RB ST160 TAKE NEXT WORK STATION«, t00=0x00f8, t01=0x00a4}
0x18404…1840e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f8, t01=0x00cc}
0x1840e…18418 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f8, t01=0x00d6}
0x18418…1842c Head {h00=0x0010, h01=0x0050, text=»ST180 EQU * «, t00=0x00f8, t01=0x00e0}
0x1842c…1845a Head {h00=0x002a, h01=0x0050, text=»* ALL DATA LINKS ARE STARTED. EXIT.«, t00=0x00f8, t01=0x00f4}
0x1845a…1847e Head {h00=0x0020, h01=0x0050, text=» ABL PLDSP2 LOCAL DISPATCHER«, t00=0x00f8, t01=0x0122}
0x1847e…18488 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f8, t01=0x0146}
0x18488…18492 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f8, t01=0x0150}
0x18492…184a6 Head {h00=0x0010, h01=0x0050, text=»STERR2 EQU *«, t00=0x00f8, t01=0x015a}
0x184a6…184ce Head {h00=0x0024, h01=0x0050, text=»* ERROR DURING STARTUP. EXIT.«, t00=0x00f8, t01=0x016e}
0x184ce…184d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x0008}
0x184d8…184f0 Head {h00=0x0014, h01=0x0050, text=» ABL TDISP EXIT «, t00=0x00f9, t01=0x0012}
0x184f0…184fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x002a}
0x184fa…18508 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f9, t01=0x0034}
0x18508…18512 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x0042}
0x18512…1852e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x00f9, t01=0x004c}
0x1852e…1854a Head {h00=0x0018, h01=0x0050, text=»* LOCAL DISPATCHER *«, t00=0x00f9, t01=0x0068}
0x1854a…18566 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x00f9, t01=0x0084}
0x18566…18570 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x00a0}
0x18570…185b2 Head {h00=0x003e, h01=0x0050, text=»* THIS SECTION CONTAINS A DISPATCHER FOR THE PLC DRIVER.«, t00=0x00f9, t01=0x00aa}
0x185b2…185f2 Head {h00=0x003c, h01=0x0050, text=»* IT CAN BE CALLED EITHER FROM ANOTHER ROUTINE IN THE «, t00=0x00f9, t01=0x00ec}
0x185f2…18634 Head {h00=0x003e, h01=0x0050, text=»* PLC DRIVER, OR FROM A TERMINAL DEVICE DRIVER (THROUGH «, t00=0x00f9, t01=0x012c}
0x18634…1865a Head {h00=0x0022, h01=0x0050, text=»* THE NETWORK DISTRIBUTOR). «, t00=0x00f9, t01=0x016e}
0x1865a…18698 (250, 0, 400) Head {h00=0x003a, h01=0x0050, text=»* SOME INTERRUPTS OR DEVICE DRIVER CALLS SET SEVERAL«, t00=0x00fa, t01=0x0004}
0x18698…186d4 Head {h00=0x0038, h01=0x0050, text=»* RESOURCES FREE. THIS MEANS THAT SEVERAL WAITING «, t00=0x00fa, t01=0x0042}
0x186d4…18714 Head {h00=0x003c, h01=0x0050, text=»* PROCERSSES MAY BECOME READY FOR ACTIVATION. ONLY ONE«, t00=0x00fa, t01=0x007e}
0x18714…18752 Head {h00=0x003a, h01=0x0050, text=»* OF THESE PROCESSES CAN BE ACTIVATED DIRECTLY. THE «, t00=0x00fa, t01=0x00be}
0x18752…18794 Head {h00=0x003e, h01=0x0050, text=»* OTHER PROCESSES WILL BE ACTIVATED IN TURN, WHEN FIRST «, t00=0x00fa, t01=0x00fc}
0x18794…187c2 Head {h00=0x002a, h01=0x0050, text=»* PROCESS EXITS TO THIS DISPATCHER. «, t00=0x00fa, t01=0x013e}
0x187c2…187cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fa, t01=0x016c}
0x187cc…187d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fa, t01=0x0176}
0x187d6…1880a Head {h00=0x0030, h01=0x0050, text=»* ROUTINES IN ORDER OF APPEARANCE IN CODE:«, t00=0x00fa, t01=0x0180}
0x1880a…18814 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fb, t01=0x0024}
0x18814…1882c Head {h00=0x0014, h01=0x0050, text=»* NAME FUNCTION «, t00=0x00fb, t01=0x002e}
0x1882c…18836 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fb, t01=0x0046}
0x18836…18872 Head {h00=0x0038, h01=0x0050, text=»* PLDISP ACTIVATE PROCESS OR PERFORM COMMON FUNCTION«, t00=0x00fb, t01=0x0050}
0x18872…1887c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fb, t01=0x008c}
0x1887c…1888a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fb, t01=0x0096}
0x1888a…18894 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fb, t01=0x00a4}
0x18894…188d8 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00fb, t01=0x00ae}
0x188d8…188e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fb, t01=0x00f2}
0x188e2…188fa Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x00fb, t01=0x00fc}
0x188fa…1890a Head {h00=0x000c, h01=0x0050, text=»* PLDISP«, t00=0x00fb, t01=0x0114}
0x1890a…18914 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fb, t01=0x0124}
0x18914…18928 Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x00fb, t01=0x012e}
0x18928…18964 Head {h00=0x0038, h01=0x0050, text=»* THIS ROUTINE LOOKS FOR WAITING PROCESSES THAT ARE «, t00=0x00fb, t01=0x0142}
0x18964…1899c Head {h00=0x0034, h01=0x0050, text=»* READY FOR DISPATCHING. IF ANY IS FOUND, IT IS «, t00=0x00fb, t01=0x017e}
0x1899c…189d8 Head {h00=0x0038, h01=0x0050, text=»* ACTIVATED. THE ROUTINE ALSO PERFORMS ACTIONS THAT «, t00=0x00fc, t01=0x0026}
0x189d8…18a14 Head {h00=0x0038, h01=0x0050, text=»* ARE NOT EXPLICITLY REQUESTED BY USER PROCESSES, EG«, t00=0x00fc, t01=0x0062}
0x18a14…18a54 Head {h00=0x003c, h01=0x0050, text=»* GENERAL READ. WHEN NOTHING IS LEFT TO DO, THE ROUTINE «, t00=0x00fc, t01=0x009e}
0x18a54…18a78 Head {h00=0x0020, h01=0x0050, text=»* EXITS TO TOSS DISPATCHER. «, t00=0x00fc, t01=0x00de}
0x18a78…18ab4 Head {h00=0x0038, h01=0x0050, text=»* TWO ENTRIES ARE PROVIDED. ONE IS USED WHEN CALLER «, t00=0x00fc, t01=0x0102}
0x18ab4…18aee Head {h00=0x0036, h01=0x0050, text=»* KNOWS OWN DWT ADDRESS, ONE WHEN CALLER KNOWS OWN«, t00=0x00fc, t01=0x013e}
0x18aee…18b04 Head {h00=0x0012, h01=0x0050, text=»* CWT ADDRESS.«, t00=0x00fc, t01=0x0178}
0x18b04…18b0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fc, t01=0x018e}
0x18b0e…18b1e Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x00fd, t01=0x0008}
0x18b1e…18b32 Head {h00=0x0010, h01=0x0050, text=»* ABL PLDISP«, t00=0x00fd, t01=0x0018}
0x18b32…18b46 Head {h00=0x0010, h01=0x0050, text=»* ABL PLDSP2«, t00=0x00fd, t01=0x002c}
0x18b46…18b50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fd, t01=0x0040}
0x18b50…18b60 Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x00fd, t01=0x004a}
0x18b60…18b88 Head {h00=0x0024, h01=0x0050, text=»* A5 = CWT ADDRESS (IF PLDSP2) «, t00=0x00fd, t01=0x005a}
0x18b88…18bb0 Head {h00=0x0024, h01=0x0050, text=»* A6 = DWT ADDRESS (IF PLDISP) «, t00=0x00fd, t01=0x0082}
0x18bb0…18bcc Head {h00=0x0018, h01=0x0050, text=»* A1-A8 ON A15 STACK«, t00=0x00fd, t01=0x00aa}
0x18bcc…18bd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fd, t01=0x00c6}
0x18bd6…18be8 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x00fd, t01=0x00d0}
0x18be8…18bf4 Head {h00=0x0008, h01=0x0050, text=»* - «, t00=0x00fd, t01=0x00e2}
0x18bf4…18bfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fd, t01=0x00ee}
0x18bfe…18c42 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x00fd, t01=0x00f8}
0x18c42…18c4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fd, t01=0x013c}
0x18c4c…18c60 Head {h00=0x0010, h01=0x0050, text=»PLDISP EQU *«, t00=0x00fd, t01=0x0146}
0x18c60…18c74 Head {h00=0x0010, h01=0x0050, text=»PRDISP EQU *«, t00=0x00fd, t01=0x015a}
0x18c74…18c9c Head {h00=0x0024, h01=0x0050, text=» CF A15,GETCWT A5 := CWT ADDRESS«, t00=0x00fd, t01=0x016e}
0x18c9c…18cae Head {h00=0x000e, h01=0x0050, text=» LDR A5,A5«, t00=0x00fe, t01=0x0008}
0x18cae…18cd6 Head {h00=0x0024, h01=0x0050, text=» ABL(Z) TDISP NOT DEFINED. EXIT «, t00=0x00fe, t01=0x001a}
0x18cd6…18ce0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x0042}
0x18ce0…18cea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x004c}
0x18cea…18cfe Head {h00=0x0010, h01=0x0050, text=»PLDSP2 EQU *«, t00=0x00fe, t01=0x0056}
0x18cfe…18d08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x006a}
0x18d08…18d12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x0074}
0x18d12…18d26 Head {h00=0x0010, h01=0x0050, text=»DP100 EQU * «, t00=0x00fe, t01=0x007e}
0x18d26…18d32 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x00fe, t01=0x0092}
0x18d32…18d56 Head {h00=0x0020, h01=0x0050, text=»* HANDLE CHARACTER INPUT «, t00=0x00fe, t01=0x009e}
0x18d56…18d84 Head {h00=0x002a, h01=0x0050, text=» LD A4,CWTBUF,A5 INPUT BUFFER WAITING?«, t00=0x00fe, t01=0x00c2}
0x18d84…18da6 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DP200 NO, CONTINUE «, t00=0x00fe, t01=0x00f0}
0x18da6…18dca Head {h00=0x0020, h01=0x0050, text=» LD A6,BUFDWT,A4 DWT ADDRESS«, t00=0x00fe, t01=0x0112}
0x18dca…18dd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x0136}
0x18dd4…18dfa Head {h00=0x0022, h01=0x0050, text=» CF A15,PLGECH A2 := CHARACTER«, t00=0x00fe, t01=0x0140}
0x18dfa…18e1e Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 CHECK RETURN CODE«, t00=0x00fe, t01=0x0166}
0x18e1e…18e40 Head {h00=0x001e, h01=0x0050, text=» RF(N) DP110 BUFFER EMPTY «, t00=0x00fe, t01=0x018a}
0x18e40…18e66 Head {h00=0x0022, h01=0x0050, text=» LD A3,DWTST,A6 DEVICE STATUS «, t00=0x00ff, t01=0x001c}
0x18e66…18e8e Head {h00=0x0024, h01=0x0050, text=» ANK A3,DWFINP INPUT REQUESTED? «, t00=0x00ff, t01=0x0042}
0x18e8e…18ec2 Head {h00=0x0030, h01=0x0050, text=» ABL(NZ) INPRST YES, RETURN TO DEVICE DRIVER«, t00=0x00ff, t01=0x006a}
0x18ec2…18ecc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ff, t01=0x009e}
0x18ecc…18ef2 Head {h00=0x0022, h01=0x0050, text=» LD A1,DWTADR,A6 ADDRESS BLOCK«, t00=0x00ff, t01=0x00a8}
0x18ef2…18f24 Head {h00=0x002e, h01=0x0050, text=» LD A1,INTADR,A1 INTERRUPT ENTRY DEFINED? «, t00=0x00ff, t01=0x00ce}
0x18f24…18f54 Head {h00=0x002c, h01=0x0050, text=» ABR(NZ) A1 YES, GO TO INTERRUPT HANDLER«, t00=0x00ff, t01=0x0100}
0x18f54…18f5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ff, t01=0x0130}
0x18f5e…18f72 Head {h00=0x0010, h01=0x0050, text=»DP110 EQU * «, t00=0x00ff, t01=0x013a}
0x18f72…18fa6 Head {h00=0x0030, h01=0x0050, text=» CW A4,DWTLD1,A6 BUFFER CHAINED TO THIS DWT?«, t00=0x00ff, t01=0x014e}
0x18fa6…18fc8 Head {h00=0x001e, h01=0x0050, text=» RF(NE) DP120 NO, CONTINUE«, t00=0x00ff, t01=0x0182}
0x18fc8…18fea Head {h00=0x001e, h01=0x0050, text=» CM DWTLD1,A6 REMOVE LINK «, t00=0x0100, t01=0x0014}
0x18fea…18ffe Head {h00=0x0010, h01=0x0050, text=»DP120 EQU * «, t00=0x0100, t01=0x0036}
0x18ffe…19026 Head {h00=0x0024, h01=0x0050, text=» CM CWTBUF,A5 NO BUFFER WAITING «, t00=0x0100, t01=0x004a}
0x19026…1904c Head {h00=0x0022, h01=0x0050, text=» CF A15,PLRLBU RELEASE BUFFER «, t00=0x0100, t01=0x0072}
0x1904c…19056 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0100, t01=0x0098}
0x19056…19092 Head {h00=0x0038, h01=0x0050, text=»* CHECK IF LEVEL 3 RECIEVE READY SHOULD BE SENT«, t00=0x0100, t01=0x00a2}
0x19092…190c6 Head {h00=0x0030, h01=0x0050, text=» CF A15,GETIFR A2 := NR OF FRAMES NOT ACK:ED«, t00=0x0100, t01=0x00de}
0x190c6…190e8 Head {h00=0x001e, h01=0x0050, text=» SUK A2,6 TIME TO SEND RR?«, t00=0x0100, t01=0x0112}
0x190e8…19104 Head {h00=0x0018, h01=0x0050, text=» ABL(NN) SENDRR YES «, t00=0x0100, t01=0x0134}
0x19104…1910e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0100, t01=0x0150}
0x1910e…19118 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0100, t01=0x015a}
0x19118…1912c Head {h00=0x0010, h01=0x0050, text=»DP200 EQU * «, t00=0x0100, t01=0x0164}
0x1912c…19138 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0100, t01=0x0178}
0x19138…1915c Head {h00=0x0020, h01=0x0050, text=»* HANDLE POWER UP FOR TC «, t00=0x0100, t01=0x0184}
0x1915c…19188 Head {h00=0x0028, h01=0x0050, text=» LD A1,PFPOST POWER UP TASK PENDING?«, t00=0x0101, t01=0x0018}
0x19188…191b4 Head {h00=0x0028, h01=0x0050, text=» OR A1,PLCPFP PLC POWER UP PENDING? «, t00=0x0101, t01=0x0044}
0x191b4…191d4 Head {h00=0x001c, h01=0x0050, text=» ABL(NZ) TDISP YES, EXIT«, t00=0x0101, t01=0x0070}
0x191d4…191de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0101, t01=0x0090}
0x191de…191e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0101, t01=0x009a}
0x191e8…191fc Head {h00=0x0010, h01=0x0050, text=»DP300 EQU * «, t00=0x0101, t01=0x00a4}
0x191fc…1922a Head {h00=0x002a, h01=0x0050, text=»* HANDLE ABORT OF ONE WORK STATION «, t00=0x0101, t01=0x00b8}
0x1922a…19256 Head {h00=0x0028, h01=0x0050, text=» LD A6,CWTABW,A5 WS TO ABORT, IF ANY«, t00=0x0101, t01=0x00e6}
0x19256…19284 Head {h00=0x002a, h01=0x0050, text=» ABL(NZ) ABTHAN DO ABORT, IF REQUESTED«, t00=0x0101, t01=0x0112}
0x19284…1928e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0101, t01=0x0140}
0x1928e…19298 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0101, t01=0x014a}
0x19298…192ac Head {h00=0x0010, h01=0x0050, text=»DP400 EQU * «, t00=0x0101, t01=0x0154}
0x192ac…192d8 Head {h00=0x0028, h01=0x0050, text=»* CHECK IF ANYONE WAITING FOR CCA«, t00=0x0101, t01=0x0168}
0x192d8…19306 (258, 0, 400) Head {h00=0x002a, h01=0x0050, text=» LD A4,CWTCCQ,A5 ANYONE IN CCA QUEUE? «, t00=0x0102, t01=0x0004}
0x19306…19328 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DP500 NO, CONTINUE «, t00=0x0102, t01=0x0032}
0x19328…1934a Head {h00=0x001e, h01=0x0050, text=» LD A1,CWTCCB,A5 CCA FREE?«, t00=0x0102, t01=0x0054}
0x1934a…1936c Head {h00=0x001e, h01=0x0050, text=» RF(NZ) DP500 NO, CONTINUE«, t00=0x0102, t01=0x0076}
0x1936c…1938e Head {h00=0x001e, h01=0x0050, text=» IM CWTCCB,A5 SET CCA BUSY«, t00=0x0102, t01=0x0098}
0x1938e…193ba Head {h00=0x0028, h01=0x0050, text=» ABL CCARST ACTIVATE WAITING PROCESS«, t00=0x0102, t01=0x00ba}
0x193ba…193c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x00e6}
0x193c4…193ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x00f0}
0x193ce…193e2 Head {h00=0x0010, h01=0x0050, text=»DP500 EQU * «, t00=0x0102, t01=0x00fa}
0x193e2…19402 Head {h00=0x001c, h01=0x0050, text=»* CHECK BUFFER QUEUES«, t00=0x0102, t01=0x010e}
0x19402…1943a Head {h00=0x0034, h01=0x0050, text=» LD A6,CWTSBQ,A5 ANYONE IN SHORT BUFFERS QUEUE? «, t00=0x0102, t01=0x012e}
0x1943a…1945e Head {h00=0x0020, h01=0x0050, text=» RF(Z) DP510 NO, CHECK LONG «, t00=0x0102, t01=0x0166}
0x1945e…1947c Head {h00=0x001a, h01=0x0050, text=» LDR A7,A5 CWT ADDRESS«, t00=0x0102, t01=0x018a}
0x1947c…194ae Head {h00=0x002e, h01=0x0050, text=» ADK A7,CWTPBS POOLBLOCK FOR SHORT BUFFERS«, t00=0x0103, t01=0x0018}
0x194ae…194da Head {h00=0x0028, h01=0x0050, text=» CF A15,PLGTBU A4 := BUFFER ADDRESS «, t00=0x0103, t01=0x004a}
0x194da…19502 Head {h00=0x0024, h01=0x0050, text=» RF(Z) DP510 NO BUFFER AVAILABLE«, t00=0x0103, t01=0x0076}
0x19502…19532 Head {h00=0x002c, h01=0x0050, text=» LDK A7,CWTSBQ OFFSET TO CWT QUEUE HEAD «, t00=0x0103, t01=0x009e}
0x19532…1955e Head {h00=0x0028, h01=0x0050, text=» RF DP520 COMMON PART FOR SHORT/LONG«, t00=0x0103, t01=0x00ce}
0x1955e…19568 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0103, t01=0x00fa}
0x19568…1957c Head {h00=0x0010, h01=0x0050, text=»DP510 EQU * «, t00=0x0103, t01=0x0104}
0x1957c…195b2 Head {h00=0x0032, h01=0x0050, text=» LD A6,CWTLBQ,A5 ANYONE IN LONG BUFFERS QUEUE?«, t00=0x0103, t01=0x0118}
0x195b2…195d4 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DP600 NO, CONTINUE «, t00=0x0103, t01=0x014e}
0x195d4…195f2 Head {h00=0x001a, h01=0x0050, text=» LDR A7,A5 CWT ADDRESS«, t00=0x0103, t01=0x0170}
0x195f2…19624 Head {h00=0x002e, h01=0x0050, text=» ADK A7,CWTPBL POOLBLOCK FOR LONG BUFFERS «, t00=0x0103, t01=0x018e}
0x19624…19650 Head {h00=0x0028, h01=0x0050, text=» CF A15,PLGTBU A4 := BUFFER ADDRESS «, t00=0x0104, t01=0x0030}
0x19650…19684 Head {h00=0x0030, h01=0x0050, text=» RF(Z) DP600 CONTINUE IF NO BUFFER AVAILABLE«, t00=0x0104, t01=0x005c}
0x19684…196bc Head {h00=0x0034, h01=0x0050, text=» LDK A7,CWTLBQ OFFSET TO LONG BUFFERS QUEUE HEAD«, t00=0x0104, t01=0x0090}
0x196bc…196c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0104, t01=0x00c8}
0x196c6…196da Head {h00=0x0010, h01=0x0050, text=»DP520 EQU * «, t00=0x0104, t01=0x00d2}
0x196da…19704 Head {h00=0x0026, h01=0x0050, text=»* SHORT OR LONG BUFFER FOUND «, t00=0x0104, t01=0x00e6}
0x19704…1972a Head {h00=0x0022, h01=0x0050, text=» LDR A2,A4 SAVE BUFFER ADDRESS«, t00=0x0104, t01=0x0110}
0x1972a…1974c Head {h00=0x001e, h01=0x0050, text=» LDR A4,A6 DWT QUEUE LINK «, t00=0x0104, t01=0x0136}
0x1974c…19770 Head {h00=0x0020, h01=0x0050, text=» ADR A7,A5 BUFFER QUEUE HEAD«, t00=0x0104, t01=0x0158}
0x19770…19798 Head {h00=0x0024, h01=0x0050, text=» CF A15,LNKOUT REMOVE FROM QUEUE«, t00=0x0104, t01=0x017c}
0x19798…197c2 Head {h00=0x0026, h01=0x0050, text=» SUKL A6,DWTOTQ A6 := DWT ADDRESS «, t00=0x0105, t01=0x0014}
0x197c2…197ec Head {h00=0x0026, h01=0x0050, text=» LDR A4,A2 RESTORE BUFFER ADDRESS «, t00=0x0105, t01=0x003e}
0x197ec…1980c Head {h00=0x001c, h01=0x0050, text=» LDK A1,0 RET CODE := OK«, t00=0x0105, t01=0x0068}
0x1980c…1983a Head {h00=0x002a, h01=0x0050, text=» ABL BUFRST RETURN TO ROUTINE WAITING «, t00=0x0105, t01=0x0088}
0x1983a…19844 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0105, t01=0x00b6}
0x19844…1984e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0105, t01=0x00c0}
0x1984e…19862 Head {h00=0x0010, h01=0x0050, text=»DP600 EQU * «, t00=0x0105, t01=0x00ca}
0x19862…19898 Head {h00=0x0032, h01=0x0050, text=»* CHECK IF GENERAL READ SHOULD BE PERFORMED«, t00=0x0105, t01=0x00de}
0x19898…198c6 Head {h00=0x002a, h01=0x0050, text=» LD A1,CWTGR,A5 GENERAL READ ALLOWED? «, t00=0x0105, t01=0x0114}
0x198c6…198e4 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) DP800 NO, EXIT«, t00=0x0105, t01=0x0142}
0x198e4…198ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0105, t01=0x0160}
0x198ee…1990c Head {h00=0x001a, h01=0x0050, text=» LDR A7,A5 CWT ADDRESS«, t00=0x0105, t01=0x016a}
0x1990c…19946 Head {h00=0x0036, h01=0x0050, text=» ADK A7,CWTPBG POOLBLOCK FOR GENERAL READ BUFFERS «, t00=0x0105, t01=0x0188}
0x19946…19972 Head {h00=0x0028, h01=0x0050, text=» CF A15,PLGTBU A4 := BUFFER ADDRESS «, t00=0x0106, t01=0x0032}
0x19972…199a4 Head {h00=0x002e, h01=0x0050, text=» ABL(NZ) GREAD PERFORM GR IF BUFFER FOUND «, t00=0x0106, t01=0x005e}
0x199a4…199ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x0090}
0x199ae…199b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x009a}
0x199b8…199cc Head {h00=0x0010, h01=0x0050, text=»DP800 EQU * «, t00=0x0106, t01=0x00a4}
0x199cc…19a00 Head {h00=0x0030, h01=0x0050, text=»* NOTHING MORE TO DO. EXIT TO DISPATCHER «, t00=0x0106, t01=0x00b8}
0x19a00…19a22 Head {h00=0x001e, h01=0x0050, text=» ABL TDISP TOSS DISPATCHER«, t00=0x0106, t01=0x00ec}
0x19a22…19a2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x010e}
0x19a2c…19a3a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0106, t01=0x0118}
0x19a3a…19a44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x0126}
0x19a44…19a58 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0106, t01=0x0130}
0x19a58…19a6c Head {h00=0x0010, h01=0x0050, text=»* ROUTINES *«, t00=0x0106, t01=0x0144}
0x19a6c…19a80 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0106, t01=0x0158}
0x19a80…19a8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x016c}
0x19a8a…19acc Head {h00=0x003e, h01=0x0050, text=»* THIS SECTION CONTAINS MISCELLANEOUS SERVICE ROUTINES. «, t00=0x0106, t01=0x0176}
0x19acc…19b12 Head {h00=0x0042, h01=0x0050, text=»* ALL ROUTINES ARE CALLED BY AN ABL "NAME" INSTRUCTION. «, t00=0x0107, t01=0x0028}
0x19b12…19b50 Head {h00=0x003a, h01=0x0050, text=»* REGISTER INTERFACE IS DESCRIBED FOR EACH ROUTINE. «, t00=0x0107, t01=0x006e}
0x19b50…19b90 Head {h00=0x003c, h01=0x0050, text=»* WHEN A ROUTINE HAS PERFORMED THE REQUESTED FUNCTION,«, t00=0x0107, t01=0x00ac}
0x19b90…19bc2 Head {h00=0x002e, h01=0x0050, text=»* IT WILL EXIT TO THE LOCAL DISPATCHER. «, t00=0x0107, t01=0x00ec}
0x19bc2…19bcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x011e}
0x19bcc…19c00 Head {h00=0x0030, h01=0x0050, text=»* ROUTINES IN ORDER OF APPEARANCE IN CODE:«, t00=0x0107, t01=0x0128}
0x19c00…19c0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x015c}
0x19c0a…19c22 Head {h00=0x0014, h01=0x0050, text=»* NAME FUNCTION «, t00=0x0107, t01=0x0166}
0x19c22…19c2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x017e}
0x19c2c…19c66 Head {h00=0x0036, h01=0x0050, text=»* ABTHAN ABORT ALL WAITING DWT:S ON A WORK STATION«, t00=0x0107, t01=0x0188}
0x19c66…19c9a Head {h00=0x0030, h01=0x0050, text=»* PLREWS HANDLE RECOVERY OF ONE WORK STATION«, t00=0x0108, t01=0x0032}
0x19c9a…19cce Head {h00=0x0030, h01=0x0050, text=»* SENDRR SEND LEVEL 3 RECIEVE READY MESSAGE «, t00=0x0108, t01=0x0066}
0x19cce…19cf2 Head {h00=0x0020, h01=0x0050, text=»* GREAD PERFORM GENERAL READ«, t00=0x0108, t01=0x009a}
0x19cf2…19cfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0108, t01=0x00be}
0x19cfc…19d0a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0108, t01=0x00c8}
0x19d0a…19d14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0108, t01=0x00d6}
0x19d14…19d58 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0108, t01=0x00e0}
0x19d58…19d62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0108, t01=0x0124}
0x19d62…19d7a Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0108, t01=0x012e}
0x19d7a…19d8a Head {h00=0x000c, h01=0x0050, text=»* ABTHAN«, t00=0x0108, t01=0x0146}
0x19d8a…19d94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0108, t01=0x0156}
0x19d94…19da8 Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0108, t01=0x0160}
0x19da8…19dde Head {h00=0x0032, h01=0x0050, text=»* THIS ROUTINE WILL HANDLE ABORTS FOR ONE WORK«, t00=0x0108, t01=0x0174}
0x19dde…19e12 Head {h00=0x0030, h01=0x0050, text=»* STATION. ALL REQUESTS OF DWT:S WAITING FOR«, t00=0x0109, t01=0x001a}
0x19e12…19e4a Head {h00=0x0034, h01=0x0050, text=»* LEVEL 3 ACK OR WAITING IN CCA OR BUFFER QUEUES«, t00=0x0109, t01=0x004e}
0x19e4a…19e80 Head {h00=0x0032, h01=0x0050, text=»* WILL BE ABORTED. ONE CALL IS NEEDED FOR EACH«, t00=0x0109, t01=0x0086}
0x19e80…19ea0 Head {h00=0x001c, h01=0x0050, text=»* REQUEST TO BE ABORTED.«, t00=0x0109, t01=0x00bc}
0x19ea0…19eaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0109, t01=0x00dc}
0x19eaa…19eba Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0109, t01=0x00e6}
0x19eba…19ece Head {h00=0x0010, h01=0x0050, text=»* ABL ABTHAN«, t00=0x0109, t01=0x00f6}
0x19ece…19ed8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0109, t01=0x010a}
0x19ed8…19ee8 Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0109, t01=0x0114}
0x19ee8…19f04 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x0109, t01=0x0124}
0x19f04…19f28 Head {h00=0x0020, h01=0x0050, text=»* A6 = WORK STATION NUMBER «, t00=0x0109, t01=0x0140}
0x19f28…19f32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0109, t01=0x0164}
0x19f32…19f44 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0109, t01=0x016e}
0x19f44…19f68 Head {h00=0x0020, h01=0x0050, text=»* AT RETURN TO REQUEST:«, t00=0x0109, t01=0x0180}
0x19f68…19f84 Head {h00=0x0018, h01=0x0050, text=»* A1 = RETURN CODE «, t00=0x010a, t01=0x0014}
0x19f84…19fa0 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x010a, t01=0x0030}
0x19fa0…19fbc Head {h00=0x0018, h01=0x0050, text=»* A6 = DWT ADDRESS «, t00=0x010a, t01=0x004c}
0x19fbc…19fc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x0068}
0x19fc6…1a00a Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x010a, t01=0x0072}
0x1a00a…1a014 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x00b6}
0x1a014…1a028 Head {h00=0x0010, h01=0x0050, text=»ABTHAN EQU *«, t00=0x010a, t01=0x00c0}
0x1a028…1a04e Head {h00=0x0022, h01=0x0050, text=» LDR A3,A6 WORK STATION NUMBER«, t00=0x010a, t01=0x00d4}
0x1a04e…1a06a Head {h00=0x0018, h01=0x0050, text=» SLA A3,1 MAKE INDEX«, t00=0x010a, t01=0x00fa}
0x1a06a…1a08c Head {h00=0x001e, h01=0x0050, text=» ADR A3,A5 ADD CWT ADDRESS«, t00=0x010a, t01=0x0116}
0x1a08c…1a0c2 Head {h00=0x0032, h01=0x0050, text=» ADK A3,CWTWSS A3 := ADDRESS OF STATUS FOR WS «, t00=0x010a, t01=0x0138}
0x1a0c2…1a0cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x016e}
0x1a0cc…1a0da Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010a, t01=0x0178}
0x1a0da…1a0e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x0186}
0x1a0e4…1a106 Head {h00=0x001e, h01=0x0050, text=» LDR A8,A6 SAVE WS NUMBER «, t00=0x010a, t01=0x0190}
0x1a106…1a132 Head {h00=0x0028, h01=0x0050, text=» LD* A1,CWTINT,A5 WORK STATION TABLE«, t00=0x010b, t01=0x0022}
0x1a132…1a162 Head {h00=0x002c, h01=0x0050, text=» CF A15,NDGEDN A7 := HIGEST DWT NR ON WS«, t00=0x010b, t01=0x004e}
0x1a162…1a174 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x010b, t01=0x007e}
0x1a174…1a19a Head {h00=0x0022, h01=0x0050, text=» LCR A1,A3 WORK STATION STATUS«, t00=0x010b, t01=0x0090}
0x1a19a…1a1a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010b, t01=0x00b6}
0x1a1a4…1a1c6 Head {h00=0x001e, h01=0x0050, text=» ADK A7,1 PREPARE FOR SUK «, t00=0x010b, t01=0x00c0}
0x1a1c6…1a1da Head {h00=0x0010, h01=0x0050, text=»AH100 EQU * «, t00=0x010b, t01=0x00e2}
0x1a1da…1a1f4 Head {h00=0x0016, h01=0x0050, text=» SUK A7,1 NEXT DWT«, t00=0x010b, t01=0x00f6}
0x1a1f4…1a21a Head {h00=0x0022, h01=0x0050, text=» RF(N) AH110 EXIT IF ALL DONE «, t00=0x010b, t01=0x0110}
0x1a21a…1a236 Head {h00=0x0018, h01=0x0050, text=» LDR A6,A8 WS NUMBER«, t00=0x010b, t01=0x0136}
0x1a236…1a25e Head {h00=0x0024, h01=0x0050, text=» CF A15,GETDWT A6 := DWT ADDRESS«, t00=0x010b, t01=0x0152}
0x1a25e…1a27e Head {h00=0x001c, h01=0x0050, text=» RB(Z) AH100 NOT DEFINED«, t00=0x010b, t01=0x017a}
0x1a27e…1a288 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010c, t01=0x000a}
0x1a288…1a2b0 Head {h00=0x0024, h01=0x0050, text=» CM DWTLD2,A6 RESET FLOW CONTROL«, t00=0x010c, t01=0x0014}
0x1a2b0…1a2d2 Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTST,A6 DWT STATUS«, t00=0x010c, t01=0x003c}
0x1a2d2…1a2e4 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x010c, t01=0x005e}
0x1a2e4…1a314 Head {h00=0x002c, h01=0x0050, text=» LDKL A4,/FFFF-DWFPLC MASK FOR PLC FLAGS«, t00=0x010c, t01=0x0070}
0x1a314…1a338 Head {h00=0x0020, h01=0x0050, text=» ANS A4,DWTST,A6 RESET FLAGS«, t00=0x010c, t01=0x00a0}
0x1a338…1a36e Head {h00=0x0032, h01=0x0050, text=» ANK A2,DWFAK3 IS DWT WAITING FOR LEVEL 3 ACK?«, t00=0x010c, t01=0x00c4}
0x1a36e…1a390 Head {h00=0x001e, h01=0x0050, text=» RF(Z) AH105 NO, CONTINUE «, t00=0x010c, t01=0x00fa}
0x1a390…1a3c4 Head {h00=0x0030, h01=0x0050, text=» ANK A3,DWFSAC ALWAYS WAIT FOR LEVEL 3 ACK? «, t00=0x010c, t01=0x011c}
0x1a3c4…1a3f2 Head {h00=0x002a, h01=0x0050, text=» ABL(NZ) AK3RST YES, RETURN WITH ACK 3«, t00=0x010c, t01=0x0150}
0x1a3f2…1a420 Head {h00=0x002a, h01=0x0050, text=» ABL WINRST NO, RETURN TO WINDOW QUEUE«, t00=0x010c, t01=0x017e}
0x1a420…1a42a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x001c}
0x1a42a…1a43e Head {h00=0x0010, h01=0x0050, text=»AH105 EQU * «, t00=0x010d, t01=0x0026}
0x1a43e…1a470 Head {h00=0x002e, h01=0x0050, text=» LD A4,DWTOTQ,A6 CCA QUEUE ELEMENT POINTER«, t00=0x010d, t01=0x003a}
0x1a470…1a496 Head {h00=0x0022, h01=0x0050, text=» LDR A2,A7 SAVE DEVICE ADDRESS«, t00=0x010d, t01=0x006c}
0x1a496…1a4ba Head {h00=0x0020, h01=0x0050, text=» LDR A3,A1 SAVE RETURN CODE «, t00=0x010d, t01=0x0092}
0x1a4ba…1a4d8 Head {h00=0x001a, h01=0x0050, text=» LDR A7,A5 CWT ADDRESS«, t00=0x010d, t01=0x00b6}
0x1a4d8…1a4fe Head {h00=0x0022, h01=0x0050, text=» ADK A7,CWTCCQ CCA QUEUE HEAD «, t00=0x010d, t01=0x00d4}
0x1a4fe…1a534 Head {h00=0x0032, h01=0x0050, text=» CF A15,LNKOUT LINK MONITOR BLOCK OUT OF QUEUE«, t00=0x010d, t01=0x00fa}
0x1a534…1a54e Head {h00=0x0016, h01=0x0050, text=» LDR A7,A7 FOUND? «, t00=0x010d, t01=0x0130}
0x1a54e…1a578 Head {h00=0x0026, h01=0x0050, text=» ABL(NZ) CCAABT YES, ABORT REQUEST«, t00=0x010d, t01=0x014a}
0x1a578…1a5a2 Head {h00=0x0026, h01=0x0050, text=» LDR A7,A2 RESTORE DEVICE ADDRESS «, t00=0x010d, t01=0x0174}
0x1a5a2…1a5c8 Head {h00=0x0022, h01=0x0050, text=» LDR A1,A3 RESTORE RETURN CODE«, t00=0x010e, t01=0x000e}
0x1a5c8…1a5d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010e, t01=0x0034}
0x1a5d2…1a602 Head {h00=0x002c, h01=0x0050, text=» CF A15,OUTBUQ REMOVE FROM BUFFER QUEUE «, t00=0x010e, t01=0x003e}
0x1a602…1a624 Head {h00=0x001e, h01=0x0050, text=» LDR A2,A2 FOUND IN QUEUE?«, t00=0x010e, t01=0x006e}
0x1a624…1a652 Head {h00=0x002a, h01=0x0050, text=» ABL(NZ) BUFRST YES, TERMINATE REQUEST«, t00=0x010e, t01=0x0090}
0x1a652…1a66c Head {h00=0x0016, h01=0x0050, text=» RB AH100 NEXT DWT«, t00=0x010e, t01=0x00be}
0x1a66c…1a676 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010e, t01=0x00d8}
0x1a676…1a68a Head {h00=0x0010, h01=0x0050, text=»AH110 EQU * «, t00=0x010e, t01=0x00e2}
0x1a68a…1a6d0 Head {h00=0x0042, h01=0x0050, text=»* ALL PROCESSES WAITING FOR ACK 3 OR IN QUEUES ARE ABORTED «, t00=0x010e, t01=0x00f6}
0x1a6d0…1a6f4 Head {h00=0x0020, h01=0x0050, text=» CM CWTABW,A5 NO MORE ABORT «, t00=0x010e, t01=0x013c}
0x1a6f4…1a718 Head {h00=0x0020, h01=0x0050, text=» ABL PLDSP2 LOCAL DISPATCHER«, t00=0x010e, t01=0x0160}
0x1a718…1a722 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010e, t01=0x0184}
0x1a722…1a730 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010e, t01=0x018e}
0x1a730…1a73a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010f, t01=0x000c}
0x1a73a…1a77e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x010f, t01=0x0016}
0x1a77e…1a788 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010f, t01=0x005a}
0x1a788…1a7a0 Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x010f, t01=0x0064}
0x1a7a0…1a7b0 Head {h00=0x000c, h01=0x0050, text=»* PLREWS«, t00=0x010f, t01=0x007c}
0x1a7b0…1a7ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010f, t01=0x008c}
0x1a7ba…1a7ce Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x010f, t01=0x0096}
0x1a7ce…1a806 Head {h00=0x0034, h01=0x0050, text=»* THIS ROUTINE WILL HANDLE RECOVERY OF ONE WORK «, t00=0x010f, t01=0x00aa}
0x1a806…1a83e Head {h00=0x0034, h01=0x0050, text=»* STATION. ACTUAL CALL TO TERMINAL DEVICE DRIVER«, t00=0x010f, t01=0x00e2}
0x1a83e…1a872 Head {h00=0x0030, h01=0x0050, text=»* RECOVERY ROUTINES ARE MADE THROUGH NDREWS.«, t00=0x010f, t01=0x011a}
0x1a872…1a87c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010f, t01=0x014e}
0x1a87c…1a88c Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x010f, t01=0x0158}
0x1a88c…1a8a0 Head {h00=0x0010, h01=0x0050, text=»* ABL PLREWS«, t00=0x010f, t01=0x0168}
0x1a8a0…1a8aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010f, t01=0x017c}
0x1a8aa…1a8ba Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x010f, t01=0x0186}
0x1a8ba…1a8d6 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x0110, t01=0x0008}
0x1a8d6…1a8fa Head {h00=0x0020, h01=0x0050, text=»* A6 = WORK STATION NUMBER «, t00=0x0110, t01=0x0024}
0x1a8fa…1a904 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0110, t01=0x0048}
0x1a904…1a916 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0110, t01=0x0052}
0x1a916…1a942 Head {h00=0x0028, h01=0x0050, text=»* AT ENTRY TO DEVICE RECOVERY: «, t00=0x0110, t01=0x0064}
0x1a942…1a956 Head {h00=0x0010, h01=0x0050, text=»* SEE NDREWS«, t00=0x0110, t01=0x0090}
0x1a956…1a960 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0110, t01=0x00a4}
0x1a960…1a9a4 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0110, t01=0x00ae}
0x1a9a4…1a9ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0110, t01=0x00f2}
0x1a9ae…1a9c2 Head {h00=0x0010, h01=0x0050, text=»PLREWS EQU *«, t00=0x0110, t01=0x00fc}
0x1a9c2…1a9e8 Head {h00=0x0022, h01=0x0050, text=» LDR A3,A6 WORK STATION NUMBER«, t00=0x0110, t01=0x0110}
0x1a9e8…1aa04 Head {h00=0x0018, h01=0x0050, text=» SLA A3,1 MAKE INDEX«, t00=0x0110, t01=0x0136}
0x1aa04…1aa26 Head {h00=0x001e, h01=0x0050, text=» ADR A3,A5 ADD CWT ADDRESS«, t00=0x0110, t01=0x0152}
0x1aa26…1aa5c Head {h00=0x0032, h01=0x0050, text=» ADK A3,CWTWSS A3 := ADDRESS OF STATUS FOR WS «, t00=0x0110, t01=0x0174}
0x1aa5c…1aa66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0111, t01=0x001a}
0x1aa66…1aa98 Head {h00=0x002e, h01=0x0050, text=» LDKL A2,/FFFF-WSFERR MASK FOR ERROR FLAG «, t00=0x0111, t01=0x0024}
0x1aa98…1aacc Head {h00=0x0030, h01=0x0050, text=» ANRS A2,A3 INDICATE WS WORKING AFTER ERROR «, t00=0x0111, t01=0x0056}
0x1aacc…1aae8 Head {h00=0x0018, h01=0x0050, text=» LCR A1,A3 WS STATUS«, t00=0x0111, t01=0x008a}
0x1aae8…1aafa Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0111, t01=0x00a6}
0x1aafa…1ab1a Head {h00=0x001c, h01=0x0050, text=» SCR A2,A3 RESET STATUS «, t00=0x0111, t01=0x00b8}
0x1ab1a…1ab4a Head {h00=0x002c, h01=0x0050, text=» LDK A4,RESECP ASSUME SECONDARY POWER UP«, t00=0x0111, t01=0x00d8}
0x1ab4a…1ab68 Head {h00=0x001a, h01=0x0050, text=» ANK A1,NOTOPR WAS IT?«, t00=0x0111, t01=0x0108}
0x1ab68…1ab82 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PR110 YES «, t00=0x0111, t01=0x0126}
0x1ab82…1aba8 Head {h00=0x0022, h01=0x0050, text=» LDK A4,RELINE NO, LINK ERROR «, t00=0x0111, t01=0x0140}
0x1aba8…1abbc Head {h00=0x0010, h01=0x0050, text=»PR110 EQU * «, t00=0x0111, t01=0x0166}
0x1abbc…1abe8 Head {h00=0x0028, h01=0x0050, text=» LD* A3,CWTINT,A5 WORK STATION TABLE«, t00=0x0111, t01=0x017a}
0x1abe8…1ac20 Head {h00=0x0034, h01=0x0050, text=» CF A15,NDREWS CALL RECOVERY FOR ALL DWT:S ON WS«, t00=0x0112, t01=0x0016}
0x1ac20…1ac2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0112, t01=0x004e}
0x1ac2a…1ac4e Head {h00=0x0020, h01=0x0050, text=» ABL PLDSP2 LOCAL DISPATCHER«, t00=0x0112, t01=0x0058}
0x1ac4e…1ac58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0112, t01=0x007c}
0x1ac58…1ac66 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0112, t01=0x0086}
0x1ac66…1ac70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0112, t01=0x0094}
0x1ac70…1acb4 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0112, t01=0x009e}
0x1acb4…1acbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0112, t01=0x00e2}
0x1acbe…1acd6 Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0112, t01=0x00ec}
0x1acd6…1ace6 Head {h00=0x000c, h01=0x0050, text=»* SENDRR«, t00=0x0112, t01=0x0104}
0x1ace6…1acf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0112, t01=0x0114}
0x1acf0…1ad04 Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0112, t01=0x011e}
0x1ad04…1ad3e Head {h00=0x0036, h01=0x0050, text=»* THIS ROUTINE WILL SEND ONE LEVEL 3 RECIEVE READY«, t00=0x0112, t01=0x0132}
0x1ad3e…1ad68 Head {h00=0x0026, h01=0x0050, text=»* MESSAGE TO A SECONDARY STATION. «, t00=0x0112, t01=0x016c}
0x1ad68…1ad72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0113, t01=0x0008}
0x1ad72…1ad82 Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0113, t01=0x0012}
0x1ad82…1ad96 Head {h00=0x0010, h01=0x0050, text=»* ABL SENDRR«, t00=0x0113, t01=0x0022}
0x1ad96…1ada0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0113, t01=0x0036}
0x1ada0…1adb0 Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0113, t01=0x0040}
0x1adb0…1adcc Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x0113, t01=0x0050}
0x1adcc…1ade8 Head {h00=0x0018, h01=0x0050, text=»* A6 = DWT ADDRESS «, t00=0x0113, t01=0x006c}
0x1ade8…1adf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0113, t01=0x0088}
0x1adf2…1ae04 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0113, t01=0x0092}
0x1ae04…1ae10 Head {h00=0x0008, h01=0x0050, text=»* - «, t00=0x0113, t01=0x00a4}
0x1ae10…1ae1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0113, t01=0x00b0}
0x1ae1a…1ae5e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0113, t01=0x00ba}
0x1ae5e…1ae68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0113, t01=0x00fe}
0x1ae68…1ae7c Head {h00=0x0010, h01=0x0050, text=»SENDRR EQU *«, t00=0x0113, t01=0x0108}
0x1ae7c…1ae9e Head {h00=0x001e, h01=0x0050, text=» CF A15,PLCCCA RESERVE CCA«, t00=0x0113, t01=0x011c}
0x1ae9e…1aed0 Head {h00=0x002e, h01=0x0050, text=» CF A15,GETBLK GET MONITOR BLOCK AS BUFFER«, t00=0x0113, t01=0x013e}
0x1aed0…1aedc Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0113, t01=0x0170}
0x1aedc…1aefa Head {h00=0x001a, h01=0x0050, text=» LDR A7,A5 CWT ADDRESS«, t00=0x0113, t01=0x017c}
0x1aefa…1af30 Head {h00=0x0032, h01=0x0050, text=» ADK A7,CWTMBQ QUEUE FOR KEEPING TRACK OF MB:S«, t00=0x0114, t01=0x000a}
0x1af30…1af62 Head {h00=0x002e, h01=0x0050, text=» CF A15,LNKFST PUT MONITOR BLOCK IN QUEUE «, t00=0x0114, t01=0x0040}
0x1af62…1af8c Head {h00=0x0026, h01=0x0050, text=» ADK A4,2 A4 := START OF USER PART«, t00=0x0114, t01=0x0072}
0x1af8c…1afc6 Head {h00=0x0036, h01=0x0050, text=» CF A15,WRADR2 WRITE LINE ADDRESS IN CCA & BUFFER «, t00=0x0114, t01=0x009c}
0x1afc6…1aff6 Head {h00=0x002c, h01=0x0050, text=» LDK A2,CMDSW COMMAND := STANDARD WRITE «, t00=0x0114, t01=0x00d6}
0x1aff6…1b01c Head {h00=0x0022, h01=0x0050, text=» SC A2,CWTCCA+CCRCMD,A5 TO CCA«, t00=0x0114, t01=0x0106}
0x1b01c…1b04e Head {h00=0x002e, h01=0x0050, text=» LDK A2,TYRR MESSAGE TYPE := RECIEVE READY«, t00=0x0114, t01=0x012c}
0x1b04e…1b07e Head {h00=0x002c, h01=0x0050, text=» SC A2,CWTCCA+CCRIDB,A5 TO CCA, IDENTITY«, t00=0x0114, t01=0x015e}
0x1b07e…1b0aa Head {h00=0x0028, h01=0x0050, text=» LDK A2,X25DAT LENGTH OF X25 HEADER «, t00=0x0114, t01=0x018e}
0x1b0aa…1b0de Head {h00=0x0030, h01=0x0050, text=» ST A2,CWTCCA+CCRLEN,A5 BUFFER LENGTH TO CCA«, t00=0x0115, t01=0x002a}
0x1b0de…1b11e Head {h00=0x003c, h01=0x0050, text=» CM CWTCCA+CCRC1B,A5 RESET DATA CHAIN & MSB BUFFER ADDR «, t00=0x0115, t01=0x005e}
0x1b11e…1b154 Head {h00=0x0032, h01=0x0050, text=» ST A4,CWTCCA+CCRBUF,A5 BUFFER ADDRESS TO CCA «, t00=0x0115, t01=0x009e}
0x1b154…1b15e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0115, t01=0x00d4}
0x1b15e…1b188 Head {h00=0x0026, h01=0x0050, text=» CF A15,GETLCS A1 := STATUS & INH «, t00=0x0115, t01=0x00de}
0x1b188…1b1ac Head {h00=0x0020, h01=0x0050, text=» RF(Z) RR100 CONTINUE IF OK «, t00=0x0115, t01=0x0108}
0x1b1ac…1b1ce Head {h00=0x001e, h01=0x0050, text=» CM CWTCCB,A5 SET CCA FREE«, t00=0x0115, t01=0x012c}
0x1b1ce…1b1e8 Head {h00=0x0016, h01=0x0050, text=» RF RR110 SKIP RR «, t00=0x0115, t01=0x014e}
0x1b1e8…1b1fc Head {h00=0x0010, h01=0x0050, text=»RR100 EQU * «, t00=0x0115, t01=0x0168}
0x1b1fc…1b22e Head {h00=0x002e, h01=0x0050, text=» CF A15,FWOPR A2 := P(R). UPDATE FLOW CTRL«, t00=0x0115, t01=0x017c}
0x1b22e…1b254 Head {h00=0x0022, h01=0x0050, text=» ORK A2,/01 MESSAGE TYPE := RR«, t00=0x0116, t01=0x001e}
0x1b254…1b276 Head {h00=0x001e, h01=0x0050, text=» SC A2,X25FLW,A4 TO BUFFER«, t00=0x0116, t01=0x0044}
0x1b276…1b29e Head {h00=0x0024, h01=0x0050, text=» CF A15,PLCCIO EXECUTE CIO START«, t00=0x0116, t01=0x0066}
0x1b29e…1b2be Head {h00=0x001c, h01=0x0050, text=» RF(Z) RR120 EXIT IF OK «, t00=0x0116, t01=0x008e}
0x1b2be…1b2d2 Head {h00=0x0010, h01=0x0050, text=»RR110 EQU * «, t00=0x0116, t01=0x00ae}
0x1b2d2…1b302 Head {h00=0x002c, h01=0x0050, text=» SUK A4,2 START ADDRESS OF MONITOR BLOCK«, t00=0x0116, t01=0x00c2}
0x1b302…1b33a Head {h00=0x0034, h01=0x0050, text=» CF A15,LNKOUT REMOVE FROM QUEUE. A7 ALREADY SET«, t00=0x0116, t01=0x00f2}
0x1b33a…1b366 Head {h00=0x0028, h01=0x0050, text=» CF A15,FREBLK RETURN MONITOR BLOCK «, t00=0x0116, t01=0x012a}
0x1b366…1b370 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0116, t01=0x0156}
0x1b370…1b384 Head {h00=0x0010, h01=0x0050, text=»RR120 EQU * «, t00=0x0116, t01=0x0160}
0x1b384…1b3a8 Head {h00=0x0020, h01=0x0050, text=» ABL PLDSP2 LOCAL DISPATCHER«, t00=0x0116, t01=0x0174}
0x1b3a8…1b3b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x0008}
0x1b3b2…1b3c0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0117, t01=0x0012}
0x1b3c0…1b3ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x0020}
0x1b3ca…1b40e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0117, t01=0x002a}
0x1b40e…1b418 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x006e}
0x1b418…1b430 Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0117, t01=0x0078}
0x1b430…1b440 Head {h00=0x000c, h01=0x0050, text=»* GREAD «, t00=0x0117, t01=0x0090}
0x1b440…1b44a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x00a0}
0x1b44a…1b45e Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0117, t01=0x00aa}
0x1b45e…1b492 Head {h00=0x0030, h01=0x0050, text=»* THIS ROUTINE WILL PERFORM ONE GENERAL READ«, t00=0x0117, t01=0x00be}
0x1b492…1b4b2 Head {h00=0x001c, h01=0x0050, text=»* OPERATION TO THE PLC. «, t00=0x0117, t01=0x00f2}
0x1b4b2…1b4bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x0112}
0x1b4bc…1b4cc Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0117, t01=0x011c}
0x1b4cc…1b4e0 Head {h00=0x0010, h01=0x0050, text=»* ABL GREAD «, t00=0x0117, t01=0x012c}
0x1b4e0…1b4ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x0140}
0x1b4ea…1b4fa Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0117, t01=0x014a}
0x1b4fa…1b518 Head {h00=0x001a, h01=0x0050, text=»* A4 = BUFFER ADDRESS«, t00=0x0117, t01=0x015a}
0x1b518…1b534 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x0117, t01=0x0178}
0x1b534…1b53e (280, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0118, t01=0x0004}
0x1b53e…1b550 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0118, t01=0x000e}
0x1b550…1b55c Head {h00=0x0008, h01=0x0050, text=»* - «, t00=0x0118, t01=0x0020}
0x1b55c…1b566 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0118, t01=0x002c}
0x1b566…1b5aa Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0118, t01=0x0036}
0x1b5aa…1b5b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0118, t01=0x007a}
0x1b5b4…1b5c8 Head {h00=0x0010, h01=0x0050, text=»GREAD EQU * «, t00=0x0118, t01=0x0084}
0x1b5c8…1b5f6 Head {h00=0x002a, h01=0x0050, text=» LDR A6,A4 PARAMETER := BUFFER ADDRESS«, t00=0x0118, t01=0x0098}
0x1b5f6…1b61c Head {h00=0x0022, h01=0x0050, text=» CF A15,PLCCCA RESERVE PLC CCA«, t00=0x0118, t01=0x00c6}
0x1b61c…1b63e Head {h00=0x001e, h01=0x0050, text=»* SET CCA PARAMETERS «, t00=0x0118, t01=0x00ec}
0x1b63e…1b67a Head {h00=0x0038, h01=0x0050, text=» CM CWTCCA+CCRC1B,A5 CLEAR DATA CHAINING & MSB ADDR «, t00=0x0118, t01=0x010e}
0x1b67a…1b6a8 Head {h00=0x002a, h01=0x0050, text=» ST A6,CWTCCA+CCRBUF,A5 BUFFER ADDRESS«, t00=0x0118, t01=0x014a}
0x1b6a8…1b6ce Head {h00=0x0022, h01=0x0050, text=» LD A2,BUFLEN,A6 BUFFER LENGTH«, t00=0x0118, t01=0x0178}
0x1b6ce…1b6ee Head {h00=0x001c, h01=0x0050, text=» ST A2,CWTCCA+CCRLEN,A5 «, t00=0x0119, t01=0x000e}
0x1b6ee…1b718 Head {h00=0x0026, h01=0x0050, text=» LDK A2,CMDGR COMMAND GENERAL READ«, t00=0x0119, t01=0x002e}
0x1b718…1b74c Head {h00=0x0030, h01=0x0050, text=» ST A2,CWTCCA+CCRDLS,A5 DLS INDEX & COMMAND «, t00=0x0119, t01=0x0058}
0x1b74c…1b774 Head {h00=0x0024, h01=0x0050, text=» CF A15,PLCCIO EXECUTE CIO START«, t00=0x0119, t01=0x008c}
0x1b774…1b79e Head {h00=0x0026, h01=0x0050, text=» ABL PLDSP2 CHECK WHAT TO DO NEXT «, t00=0x0119, t01=0x00b4}
0x1b79e…1b7a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0119, t01=0x00de}
0x1b7a8…1b7b6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0119, t01=0x00e8}
0x1b7b6…1b7c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0119, t01=0x00f6}
0x1b7c0…1b7d8 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0119, t01=0x0100}
0x1b7d8…1b7f0 Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES * «, t00=0x0119, t01=0x0118}
0x1b7f0…1b808 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0119, t01=0x0130}
0x1b808…1b812 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0119, t01=0x0148}
0x1b812…1b856 Head {h00=0x0040, h01=0x0050, text=»* THIS SECTION CONTAINS MISCELLANEOUS SERVICE SUBROUTINES.«, t00=0x0119, t01=0x0152}
0x1b856…1b890 Head {h00=0x0036, h01=0x0050, text=»* ALL ROUTINES ARE CALLED BY A CF A15,"NAME" «, t00=0x011a, t01=0x0008}
0x1b890…1b8d2 Head {h00=0x003e, h01=0x0050, text=»* INSTRUCTION. REGISTER INTERFACE IS DESCRIBED FOR EACH «, t00=0x011a, t01=0x0042}
0x1b8d2…1b912 Head {h00=0x003c, h01=0x0050, text=»* ROUTINE. ONLY REGISTERS A1-A8 & PSW ARE CONSIDERED. «, t00=0x011a, t01=0x0084}
0x1b912…1b952 Head {h00=0x003c, h01=0x0050, text=»* REGISTERS NOT MENTIONED UNDER "OUTPUT" ARE UNCHANGED«, t00=0x011a, t01=0x00c4}
0x1b952…1b968 Head {h00=0x0012, h01=0x0050, text=»* FROM CALL.«, t00=0x011a, t01=0x0104}
0x1b968…1b9a8 Head {h00=0x003c, h01=0x0050, text=»* THE ROUTINES ARE OF TWO TYPES, ASYNCHRONOUS ROUTINES«, t00=0x011a, t01=0x011a}
0x1b9a8…1b9e8 Head {h00=0x003c, h01=0x0050, text=»* AND COMPUTATION ROUTINES. ASYNCHRONOUS ROUTINES MAY,«, t00=0x011a, t01=0x015a}
0x1b9e8…1ba2a Head {h00=0x003e, h01=0x0050, text=»* IF THE REQUESTED FUNCTION IS OCCUPIED OR NOT USEABLE, «, t00=0x011b, t01=0x000a}
0x1ba2a…1ba6a Head {h00=0x003c, h01=0x0050, text=»* EXIT TO THE LOCAL DISPATCHER AND/OR TOSS DISPATCHER.«, t00=0x011b, t01=0x004c}
0x1ba6a…1baa8 Head {h00=0x003a, h01=0x0050, text=»* THIS MEANS THAT THE A15 STACK AT CALL MUST CONTAIN«, t00=0x011b, t01=0x008c}
0x1baa8…1baea Head {h00=0x003e, h01=0x0050, text=»* INTERRUPT RETURN, A1-A8 AND NOTHING ELSE. COMPUTATION «, t00=0x011b, t01=0x00ca}
0x1baea…1bb2c Head {h00=0x003e, h01=0x0050, text=»* ROUTINES HAVE NO SUCH LIMITATIONS, AS THEY WILL RETURN«, t00=0x011b, t01=0x010c}
0x1bb2c…1bb6c Head {h00=0x003c, h01=0x0050, text=»* IMMEDIATELY WHEN THEY HAVE PERFORMED THE PROCESSING.«, t00=0x011b, t01=0x014e}
0x1bb6c…1bb76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011b, t01=0x018e}
0x1bb76…1bb84 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011c, t01=0x0008}
0x1bb84…1bb8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011c, t01=0x0016}
0x1bb8e…1bbc2 Head {h00=0x0030, h01=0x0050, text=»* ROUTINES IN ORDER OF APPEARANCE IN CODE:«, t00=0x011c, t01=0x0020}
0x1bbc2…1bbcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011c, t01=0x0054}
0x1bbcc…1bbe4 Head {h00=0x0014, h01=0x0050, text=»* NAME FUNCTION «, t00=0x011c, t01=0x005e}
0x1bbe4…1bbee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011c, t01=0x0076}
0x1bbee…1bc12 Head {h00=0x0020, h01=0x0050, text=»* ASYNCHRONOUS ROUTINES«, t00=0x011c, t01=0x0080}
0x1bc12…1bc3a Head {h00=0x0024, h01=0x0050, text=»* PLCCCA RESERVE CCA FOR PROCESS«, t00=0x011c, t01=0x00a4}
0x1bc3a…1bc5c Head {h00=0x001e, h01=0x0050, text=»* PLCCIO EXECUTE CIO START«, t00=0x011c, t01=0x00cc}
0x1bc5c…1bc66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011c, t01=0x00ee}
0x1bc66…1bc8a Head {h00=0x0020, h01=0x0050, text=»* COMPUTATION ROUTINES «, t00=0x011c, t01=0x00f8}
0x1bc8a…1bcc0 Head {h00=0x0032, h01=0x0050, text=»* PLCNOP SET FLAG INDICATING PLC NOT OPERABLE «, t00=0x011c, t01=0x011c}
0x1bcc0…1bce6 Head {h00=0x0022, h01=0x0050, text=»* GETDWT CALCULATE DWT ADDRESS«, t00=0x011c, t01=0x0152}
0x1bce6…1bd0c Head {h00=0x0022, h01=0x0050, text=»* GETCWT CALCULATE CWT ADDRESS«, t00=0x011c, t01=0x0178}
0x1bd0c…1bd3c Head {h00=0x002c, h01=0x0050, text=»* GETFR GET NUMBER OF OUTSTANDING FRAMES«, t00=0x011d, t01=0x000e}
0x1bd3c…1bd6a Head {h00=0x002a, h01=0x0050, text=»* FLWINP HANDLE FLOW CONTROL FOR INPUT«, t00=0x011d, t01=0x003e}
0x1bd6a…1bd9a Head {h00=0x002c, h01=0x0050, text=»* FLWOUT HANDLE FLOW CONTROL FOR OUTPUT «, t00=0x011d, t01=0x006c}
0x1bd9a…1bdd0 Head {h00=0x0032, h01=0x0050, text=»* WRADDR WRITE LINE ADDRESS IN CCA AND BUFFER «, t00=0x011d, t01=0x009c}
0x1bdd0…1bdfa Head {h00=0x0026, h01=0x0050, text=»* STAHAN PLC RETURN STATUS HANDLER«, t00=0x011d, t01=0x00d2}
0x1bdfa…1be28 Head {h00=0x002a, h01=0x0050, text=»* GETSTA GET STATUS FOR I/O CONNECTION«, t00=0x011d, t01=0x00fc}
0x1be28…1be5e Head {h00=0x0032, h01=0x0050, text=»* PLGTBU ALLOCATE BUFFER AND SET TO PLC FORMAT«, t00=0x011d, t01=0x012a}
0x1be5e…1be8c Head {h00=0x002a, h01=0x0050, text=»* PLRLBU RELEASE BUFFER OF PLC FORMAT «, t00=0x011d, t01=0x0160}
0x1be8c…1bec8 Head {h00=0x0038, h01=0x0050, text=»* PLCHAR GET/PUT CHARACTER FROM/IN PLC FORMAT BUFFER«, t00=0x011d, t01=0x018e}
0x1bec8…1bef6 Head {h00=0x002a, h01=0x0050, text=»* INTYPE DECIDE TYPE OF INPUT MESSAGE «, t00=0x011e, t01=0x003a}
0x1bef6…1bf28 Head {h00=0x002e, h01=0x0050, text=»* OUTBUQ REMOVE ELEMENT FROM BUFFER QUEUE «, t00=0x011e, t01=0x0068}
0x1bf28…1bf54 Head {h00=0x0028, h01=0x0050, text=»* LNKFST LINK ELEMENT FIRST IN QUEUE«, t00=0x011e, t01=0x009a}
0x1bf54…1bf80 Head {h00=0x0028, h01=0x0050, text=»* LNKLST LINK ELEMENT LAST IN QUEUE «, t00=0x011e, t01=0x00c6}
0x1bf80…1bfaa Head {h00=0x0026, h01=0x0050, text=»* LNKOUT LINK ELEMENT OUT OF QUEUE«, t00=0x011e, t01=0x00f2}
0x1bfaa…1bfb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011e, t01=0x011c}
0x1bfb4…1bfc2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011e, t01=0x0126}
0x1bfc2…1bfcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011e, t01=0x0134}
0x1bfcc…1c010 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x011e, t01=0x013e}
0x1c010…1c01a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011e, t01=0x0182}
0x1c01a…1c032 Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x011e, t01=0x018c}
0x1c032…1c042 Head {h00=0x000c, h01=0x0050, text=»* PLCCCA«, t00=0x011f, t01=0x0014}
0x1c042…1c04c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011f, t01=0x0024}
0x1c04c…1c060 Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x011f, t01=0x002e}
0x1c060…1c098 Head {h00=0x0034, h01=0x0050, text=»* THIS ROUTINE IS CALLED WHEN A PROCESS WANTS TO«, t00=0x011f, t01=0x0042}
0x1c098…1c0d0 Head {h00=0x0034, h01=0x0050, text=»* USE THE PLC COMMAND COMMUNICATION AREA (CCA). «, t00=0x011f, t01=0x007a}
0x1c0d0…1c108 Head {h00=0x0034, h01=0x0050, text=»* IF THE AREA IS FREE, THE ROUTINE SETS IT BUSY «, t00=0x011f, t01=0x00b2}
0x1c108…1c140 Head {h00=0x0034, h01=0x0050, text=»* AND RETURNS. IF THE AREA IS BUSY, THE CALLING «, t00=0x011f, t01=0x00ea}
0x1c140…1c178 Head {h00=0x0034, h01=0x0050, text=»* PROCESS IS PUT IN A QUEUE, AND EXIT IS MADE TO«, t00=0x011f, t01=0x0122}
0x1c178…1c198 Head {h00=0x001c, h01=0x0050, text=»* THE LOCAL DISPATCHER. «, t00=0x011f, t01=0x015a}
0x1c198…1c1c0 Head {h00=0x0024, h01=0x0050, text=»* PLCCCA ONLY RESERVES THE AREA.«, t00=0x011f, t01=0x017a}
0x1c1c0…1c1f6 Head {h00=0x0032, h01=0x0050, text=»* PLCCCS ALSO SAVES THE QUEUE ELEMENT ADDRESS.«, t00=0x0120, t01=0x0012}
0x1c1f6…1c200 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0120, t01=0x0048}
0x1c200…1c210 Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0120, t01=0x0052}
0x1c210…1c228 Head {h00=0x0014, h01=0x0050, text=»* CF A15,PLCCCA «, t00=0x0120, t01=0x0062}
0x1c228…1c240 Head {h00=0x0014, h01=0x0050, text=»* CF A15,PLCCCS «, t00=0x0120, t01=0x007a}
0x1c240…1c24a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0120, t01=0x0092}
0x1c24a…1c25a Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0120, t01=0x009c}
0x1c25a…1c296 Head {h00=0x0038, h01=0x0050, text=»* A3 = QUEUE ELEMENT ADDRESS SAVE AREA (IF PLCCCS) «, t00=0x0120, t01=0x00ac}
0x1c296…1c2b2 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x0120, t01=0x00e8}
0x1c2b2…1c2cc Head {h00=0x0016, h01=0x0050, text=»* A6 = PARAMETER «, t00=0x0120, t01=0x0104}
0x1c2cc…1c2e8 Head {h00=0x0018, h01=0x0050, text=»* A1-A8 ON A15 STACK«, t00=0x0120, t01=0x011e}
0x1c2e8…1c2f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0120, t01=0x013a}
0x1c2f2…1c304 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0120, t01=0x0144}
0x1c304…1c33a Head {h00=0x0032, h01=0x0050, text=»* A1 = RETURN CODE (IF PLCCCS, ELSE CHANGED) «, t00=0x0120, t01=0x0156}
0x1c33a…1c352 Head {h00=0x0014, h01=0x0050, text=»* A2-A4 CHANGED «, t00=0x0120, t01=0x018c}
0x1c352…1c36a Head {h00=0x0014, h01=0x0050, text=»* A7-A8 CHANGED «, t00=0x0121, t01=0x0014}
0x1c36a…1c382 Head {h00=0x0014, h01=0x0050, text=»* CR = CHANGED «, t00=0x0121, t01=0x002c}
0x1c382…1c39e Head {h00=0x0018, h01=0x0050, text=»* INTERR. INHIBITED «, t00=0x0121, t01=0x0044}
0x1c39e…1c3a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x0060}
0x1c3a8…1c3ec Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0121, t01=0x006a}
0x1c3ec…1c3f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x00ae}
0x1c3f6…1c404 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0121, t01=0x00b8}
0x1c404…1c40e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x00c6}
0x1c40e…1c422 Head {h00=0x0010, h01=0x0050, text=»PLCCCA EQU *«, t00=0x0121, t01=0x00d0}
0x1c422…1c454 Head {h00=0x002e, h01=0x0050, text=» LDK A3,0 DON'T SAVE QUEUE ELEMENT ADDRESS«, t00=0x0121, t01=0x00e4}
0x1c454…1c45e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x0116}
0x1c45e…1c472 Head {h00=0x0010, h01=0x0050, text=»PLCCCS EQU *«, t00=0x0121, t01=0x0120}
0x1c472…1c47e Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0121, t01=0x0134}
0x1c47e…1c4ae Head {h00=0x002c, h01=0x0050, text=» LD A1,CWTCCQ,A5 ANYONE WAITING FOR CCA?«, t00=0x0121, t01=0x0140}
0x1c4ae…1c4d6 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) CA100 YES, PUT IN QUEUE «, t00=0x0121, t01=0x0170}
0x1c4d6…1c4f8 Head {h00=0x001e, h01=0x0050, text=» LD A4,CWTCCB,A5 PLC BUSY?«, t00=0x0122, t01=0x0008}
0x1c4f8…1c520 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) CA100 YES, PUT IN QUEUE «, t00=0x0122, t01=0x002a}
0x1c520…1c52a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0122, t01=0x0052}
0x1c52a…1c540 Head {h00=0x0012, h01=0x0050, text=»* PLC FREE «, t00=0x0122, t01=0x005c}
0x1c540…1c562 Head {h00=0x001e, h01=0x0050, text=» IM CWTCCB,A5 SET PLC BUSY«, t00=0x0122, t01=0x0072}
0x1c562…1c58e Head {h00=0x0028, h01=0x0050, text=» ADKL A15,4 ADJUST STACK FOR RETURN «, t00=0x0122, t01=0x0094}
0x1c58e…1c5b2 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RETURN CODE := OK «, t00=0x0122, t01=0x00c0}
0x1c5b2…1c5da Head {h00=0x0024, h01=0x0050, text=» ABR* A15 RETURN IN INHIBIT MODE«, t00=0x0122, t01=0x00e4}
0x1c5da…1c5e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0122, t01=0x010c}
0x1c5e4…1c5ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0122, t01=0x0116}
0x1c5ee…1c602 Head {h00=0x0010, h01=0x0050, text=»CA100 EQU * «, t00=0x0122, t01=0x0120}
0x1c602…1c62e Head {h00=0x0028, h01=0x0050, text=»* PLC BUSY. PUT REQUEST IN QUEUE.«, t00=0x0122, t01=0x0134}
0x1c62e…1c650 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A6 SAVE PARAMETER «, t00=0x0122, t01=0x0160}
0x1c650…1c66e Head {h00=0x001a, h01=0x0050, text=» LDR* A2,A15 SKIP PSW «, t00=0x0122, t01=0x0182}
0x1c66e…1c696 Head {h00=0x0024, h01=0x0050, text=» LDR* A2,A15 SAVE RETURN ADDRESS«, t00=0x0123, t01=0x0010}
0x1c696…1c6ce Head {h00=0x0034, h01=0x0050, text=» CF A15,GETBLK GET MONITOR BLOCK AND SAVE A1-A2 «, t00=0x0123, t01=0x0038}
0x1c6ce…1c6ee Head {h00=0x001c, h01=0x0050, text=» LDR A3,A3 SAVE POINTER?«, t00=0x0123, t01=0x0070}
0x1c6ee…1c710 Head {h00=0x001e, h01=0x0050, text=» RF(Z) CA110 NO, CONTINUE «, t00=0x0123, t01=0x0090}
0x1c710…1c73e Head {h00=0x002a, h01=0x0050, text=» STR A4,A3 SAVE QUEUE ELEMENT ADDRESS «, t00=0x0123, t01=0x00b2}
0x1c73e…1c752 Head {h00=0x0010, h01=0x0050, text=»CA110 EQU * «, t00=0x0123, t01=0x00e0}
0x1c752…1c770 Head {h00=0x001a, h01=0x0050, text=» LDR A7,A5 CWT ADDRESS«, t00=0x0123, t01=0x00f4}
0x1c770…1c79a Head {h00=0x0026, h01=0x0050, text=» ADK A7,CWTCCQ PLC BUSY QUEUE HEAD«, t00=0x0123, t01=0x0112}
0x1c79a…1c7c8 Head {h00=0x002a, h01=0x0050, text=» CF A15,LNKLST PUT BLOCK LAST IN QUEUE«, t00=0x0123, t01=0x013c}
0x1c7c8…1c7ee Head {h00=0x0022, h01=0x0050, text=» IFF UTTEST=0 QUEUE STATISTICS«, t00=0x0123, t01=0x016a}
0x1c7ee…1c812 Head {h00=0x0020, h01=0x0050, text=» LD A1,CWTPNR,A5 PLC NUMBER «, t00=0x0123, t01=0x0190}
0x1c812…1c82e Head {h00=0x0018, h01=0x0050, text=» SLA A1,1 MAKE INDEX«, t00=0x0124, t01=0x0024}
0x1c82e…1c866 Head {h00=0x0034, h01=0x0050, text=» IM CCQSTA,A1 INCREMENT QUEUE STATISTICS COUNTER«, t00=0x0124, t01=0x0040}
0x1c866…1c872 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0124, t01=0x0078}
0x1c872…1c896 Head {h00=0x0020, h01=0x0050, text=» ABL PLDSP2 LOCAL DISPATCHER«, t00=0x0124, t01=0x0084}
0x1c896…1c8a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0124, t01=0x00a8}
0x1c8a0…1c8aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0124, t01=0x00b2}
0x1c8aa…1c8e0 Head {h00=0x0032, h01=0x0050, text=»* RETURN IS MADE HERE WHEN THE CCA IS FREE.«, t00=0x0124, t01=0x00bc}
0x1c8e0…1c91a Head {h00=0x0036, h01=0x0050, text=»* (AT A RELEASE INTERRUPT OR FROM DISPATCHER.) «, t00=0x0124, t01=0x00f2}
0x1c91a…1c93c Head {h00=0x001e, h01=0x0050, text=»* REGISTERS ON ENTRY:«, t00=0x0124, t01=0x012c}
0x1c93c…1c962 Head {h00=0x0022, h01=0x0050, text=»* A4 = MONITOR BLOCK ADDRESS «, t00=0x0124, t01=0x014e}
0x1c962…1c97e Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x0124, t01=0x0174}
0x1c97e…1c988 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0124, t01=0x0190}
0x1c988…1c99c Head {h00=0x0010, h01=0x0050, text=»CCARST EQU *«, t00=0x0125, t01=0x000a}
0x1c99c…1c9a8 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0125, t01=0x001e}
0x1c9a8…1c9c6 Head {h00=0x001a, h01=0x0050, text=» LDR A7,A5 CWT ADDRESS«, t00=0x0125, t01=0x002a}
0x1c9c6…1c9ec Head {h00=0x0022, h01=0x0050, text=» ADK A7,CWTCCQ CCA QUEUE HEAD «, t00=0x0125, t01=0x0048}
0x1c9ec…1ca1c Head {h00=0x002c, h01=0x0050, text=» CF A15,LNKOUT REMOVE PROCESS FROM QUEUE«, t00=0x0125, t01=0x006e}
0x1ca1c…1ca40 Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 RETURN CODE := OK «, t00=0x0125, t01=0x009e}
0x1ca40…1ca4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0125, t01=0x00c2}
0x1ca4a…1ca54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0125, t01=0x00cc}
0x1ca54…1ca94 Head {h00=0x003c, h01=0x0050, text=»* ENTRY IS MADE HERE WHEN A REQUEST SHOULD BE ABORTED«, t00=0x0125, t01=0x00d6}
0x1ca94…1cab2 Head {h00=0x001a, h01=0x0050, text=»* DUE TO I/O ERROR.«, t00=0x0125, t01=0x0116}
0x1cab2…1cad4 Head {h00=0x001e, h01=0x0050, text=»* REGISTERS ON ENTRY:«, t00=0x0125, t01=0x0134}
0x1cad4…1caf0 Head {h00=0x0018, h01=0x0050, text=»* A3 = RETURN CODE «, t00=0x0125, t01=0x0156}
0x1caf0…1cb16 Head {h00=0x0022, h01=0x0050, text=»* A4 = MONITOR BLOCK ADDRESS «, t00=0x0125, t01=0x0172}
0x1cb16…1cb32 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x0126, t01=0x0008}
0x1cb32…1cb3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0126, t01=0x0024}
0x1cb3c…1cb50 Head {h00=0x0010, h01=0x0050, text=»CCAABT EQU *«, t00=0x0126, t01=0x002e}
0x1cb50…1cb5c Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0126, t01=0x0042}
0x1cb5c…1cb80 Head {h00=0x0020, h01=0x0050, text=» LDR A7,A3 SAVE RETURN CODE «, t00=0x0126, t01=0x004e}
0x1cb80…1cbb8 Head {h00=0x0034, h01=0x0050, text=» CF A15,FREBLK RETURN MONITOR BLOCK. LOAD A1-A2 «, t00=0x0126, t01=0x0072}
0x1cbb8…1cbd4 Head {h00=0x0018, h01=0x0050, text=» LDR A6,A1 PARAMETER«, t00=0x0126, t01=0x00aa}
0x1cbd4…1cbf8 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A7 A1 := RETURN CODE«, t00=0x0126, t01=0x00c6}
0x1cbf8…1cc0e Head {h00=0x0012, h01=0x0050, text=» ABR A2 RETURN«, t00=0x0126, t01=0x00ea}
0x1cc0e…1cc18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0126, t01=0x0100}
0x1cc18…1cc26 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0126, t01=0x010a}
0x1cc26…1cc30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0126, t01=0x0118}
0x1cc30…1cc74 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0126, t01=0x0122}
0x1cc74…1cc7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0126, t01=0x0166}
0x1cc7e…1cc96 Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0126, t01=0x0170}
0x1cc96…1cca6 Head {h00=0x000c, h01=0x0050, text=»* PLCCIO«, t00=0x0126, t01=0x0188}
0x1cca6…1ccb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0127, t01=0x0008}
0x1ccb0…1ccc4 Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0127, t01=0x0012}
0x1ccc4…1cd04 Head {h00=0x003c, h01=0x0050, text=»* THIS ROUTINE CHECKS IF THE PLC CAN BE USED. IF IT CAN,«, t00=0x0127, t01=0x0026}
0x1cd04…1cd3c Head {h00=0x0034, h01=0x0050, text=»* THE ROUTINE EXECUTES A CIO START INSTRUCTION. «, t00=0x0127, t01=0x0066}
0x1cd3c…1cd74 Head {h00=0x0034, h01=0x0050, text=»* IF THE PLC IS NOT OPERABLE DUE TO TC POWER UP,«, t00=0x0127, t01=0x009e}
0x1cd74…1cdb4 Head {h00=0x003c, h01=0x0050, text=»* THE ROUTINE WILL EXIT TO TOSS DISPATCHER. IN ALL OTHER«, t00=0x0127, t01=0x00d6}
0x1cdb4…1cdf4 Head {h00=0x003c, h01=0x0050, text=»* CASES, IT WILL RETURN TO CALLING PROGRAM WITH A RETURN«, t00=0x0127, t01=0x0116}
0x1cdf4…1ce04 Head {h00=0x000c, h01=0x0050, text=»* CODE. «, t00=0x0127, t01=0x0156}
0x1ce04…1ce0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0127, t01=0x0166}
0x1ce0e…1ce1e Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0127, t01=0x0170}
0x1ce1e…1ce36 Head {h00=0x0014, h01=0x0050, text=»* CF A15,PLCCIO «, t00=0x0127, t01=0x0180}
0x1ce36…1ce40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0128, t01=0x0008}
0x1ce40…1ce50 Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0128, t01=0x0012}
0x1ce50…1ce6c Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x0128, t01=0x0022}
0x1ce6c…1ce88 Head {h00=0x0018, h01=0x0050, text=»* A1-A8 ON A15 STACK«, t00=0x0128, t01=0x003e}
0x1ce88…1ce92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0128, t01=0x005a}
0x1ce92…1cea4 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0128, t01=0x0064}
0x1cea4…1cec0 Head {h00=0x0018, h01=0x0050, text=»* A1 = RETURN CODE «, t00=0x0128, t01=0x0076}
0x1cec0…1ced4 Head {h00=0x0010, h01=0x0050, text=»* 0 IF OK «, t00=0x0128, t01=0x0092}
0x1ced4…1ceea Head {h00=0x0012, h01=0x0050, text=»* NOT 0 ELSE«, t00=0x0128, t01=0x00a6}
0x1ceea…1cf02 Head {h00=0x0014, h01=0x0050, text=»* A2 = CHANGED «, t00=0x0128, t01=0x00bc}
0x1cf02…1cf20 Head {h00=0x001a, h01=0x0050, text=»* CR = CONTENTS OF A1«, t00=0x0128, t01=0x00d4}
0x1cf20…1cf3c Head {h00=0x0018, h01=0x0050, text=»* INTERR. INHIBITED «, t00=0x0128, t01=0x00f2}
0x1cf3c…1cf46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0128, t01=0x010e}
0x1cf46…1cf8a Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0128, t01=0x0118}
0x1cf8a…1cf94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0128, t01=0x015c}
0x1cf94…1cfa8 Head {h00=0x0010, h01=0x0050, text=»PLCCIO EQU *«, t00=0x0128, t01=0x0166}
0x1cfa8…1cfb4 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0128, t01=0x017a}
0x1cfb4…1cfd2 Head {h00=0x001a, h01=0x0050, text=» LDR* A2,A15 SKIP PSW «, t00=0x0128, t01=0x0186}
0x1cfd2…1cffa Head {h00=0x0024, h01=0x0050, text=» LDR* A2,A15 GET RETURN ADDRESS «, t00=0x0129, t01=0x0014}
0x1cffa…1d004 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0129, t01=0x003c}
0x1d004…1d012 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0129, t01=0x0046}
0x1d012…1d01c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0129, t01=0x0054}
0x1d01c…1d048 Head {h00=0x0028, h01=0x0050, text=» LD A1,PFPOST POWER UP TASK PENDING?«, t00=0x0129, t01=0x005e}
0x1d048…1d074 Head {h00=0x0028, h01=0x0050, text=» OR A1,PLCPFP PLC POWER UP PENDING? «, t00=0x0129, t01=0x008a}
0x1d074…1d0a6 Head {h00=0x002e, h01=0x0050, text=» ABL(NZ) TDISP YES, GO TO TOSS DISPATCHER «, t00=0x0129, t01=0x00b6}
0x1d0a6…1d0cc Head {h00=0x0022, h01=0x0050, text=» LD A1,CWTOPR,A5 PLC OPERABLE?«, t00=0x0129, t01=0x00e8}
0x1d0cc…1d0ec Head {h00=0x001c, h01=0x0050, text=» RF(NZ) CS100 NO, HANDLE«, t00=0x0129, t01=0x010e}
0x1d0ec…1d102 Head {h00=0x0012, h01=0x0050, text=» IFF UTTEST=0 «, t00=0x0129, t01=0x012e}
0x1d102…1d120 Head {h00=0x001a, h01=0x0050, text=» CF A15,LOGCOM LOG CCR«, t00=0x0129, t01=0x0144}
0x1d120…1d12c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0129, t01=0x0162}
0x1d12c…1d154 Head {h00=0x0024, h01=0x0050, text=» EX CWTCIO,A5 EXECUTE CIO START «, t00=0x0129, t01=0x016e}
0x1d154…1d17e Head {h00=0x0026, h01=0x0050, text=» RF(U) CS090 UNDEFINED, NOT OK =13«, t00=0x012a, t01=0x0008}
0x1d17e…1d1a0 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,0 SET CR, OK =14 «, t00=0x012a, t01=0x0032}
0x1d1a0…1d1b0 Head {h00=0x000c, h01=0x0050, text=» ABR A2 «, t00=0x012a, t01=0x0054}
0x1d1b0…1d1c4 Head {h00=0x0010, h01=0x0050, text=»CS090 EQU * «, t00=0x012a, t01=0x0064}
0x1d1c4…1d1ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x0078}
0x1d1ce…1d1fc Head {h00=0x002a, h01=0x0050, text=» CF A15,PLCNOP ERROR. SET NOT OPERABLE«, t00=0x012a, t01=0x0082}
0x1d1fc…1d210 Head {h00=0x0010, h01=0x0050, text=»CS100 EQU * «, t00=0x012a, t01=0x00b0}
0x1d210…1d242 Head {h00=0x002e, h01=0x0050, text=» LDK A1,NOTOPR RETURN CODE := NOT OPERABLE«, t00=0x012a, t01=0x00c4}
0x1d242…1d264 Head {h00=0x001e, h01=0x0050, text=» CM CWTCCB,A5 SET CCA FREE«, t00=0x012a, t01=0x00f6}
0x1d264…1d27e Head {h00=0x0016, h01=0x0050, text=» LDR A1,A1 SET CR «, t00=0x012a, t01=0x0118}
0x1d27e…1d294 Head {h00=0x0012, h01=0x0050, text=» ABR A2 RETURN«, t00=0x012a, t01=0x0132}
0x1d294…1d29e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x0148}
0x1d29e…1d2ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x012a, t01=0x0152}
0x1d2ac…1d2b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x0160}
0x1d2b6…1d2fa Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x012a, t01=0x016a}
0x1d2fa…1d304 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012b, t01=0x001e}
0x1d304…1d31c Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x012b, t01=0x0028}
0x1d31c…1d32c Head {h00=0x000c, h01=0x0050, text=»* PLCNOP«, t00=0x012b, t01=0x0040}
0x1d32c…1d336 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012b, t01=0x0050}
0x1d336…1d34a Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x012b, t01=0x005a}
0x1d34a…1d386 Head {h00=0x0038, h01=0x0050, text=»* THIS ROUTINE SETS A FLAG TO INDICATE THAT THE PLC «, t00=0x012b, t01=0x006e}
0x1d386…1d3a2 Head {h00=0x0018, h01=0x0050, text=»* IS "NOT OPERABLE".«, t00=0x012b, t01=0x00aa}
0x1d3a2…1d3ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012b, t01=0x00c6}
0x1d3ac…1d3bc Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x012b, t01=0x00d0}
0x1d3bc…1d3d4 Head {h00=0x0014, h01=0x0050, text=»* CF A15,PLCNOP «, t00=0x012b, t01=0x00e0}
0x1d3d4…1d3de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012b, t01=0x00f8}
0x1d3de…1d3ee Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x012b, t01=0x0102}
0x1d3ee…1d40a Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x012b, t01=0x0112}
0x1d40a…1d414 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012b, t01=0x012e}
0x1d414…1d426 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x012b, t01=0x0138}
0x1d426…1d432 Head {h00=0x0008, h01=0x0050, text=»* - «, t00=0x012b, t01=0x014a}
0x1d432…1d43c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012b, t01=0x0156}
0x1d43c…1d480 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x012b, t01=0x0160}
0x1d480…1d48a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012c, t01=0x0014}
0x1d48a…1d49e Head {h00=0x0010, h01=0x0050, text=»PLCNOP EQU *«, t00=0x012c, t01=0x001e}
0x1d49e…1d4ba Head {h00=0x0018, h01=0x0050, text=» STR A1,A15 PUSH A1 «, t00=0x012c, t01=0x0032}
0x1d4ba…1d4e2 Head {h00=0x0024, h01=0x0050, text=» LD A1,CWTPLS,A5 GET PLC STATUS «, t00=0x012c, t01=0x004e}
0x1d4e2…1d4f8 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) PN100 «, t00=0x012c, t01=0x0076}
0x1d4f8…1d520 Head {h00=0x0024, h01=0x0050, text=» LDKL A1,-1 SET DUMMY ERROR CODE«, t00=0x012c, t01=0x008c}
0x1d520…1d534 Head {h00=0x0010, h01=0x0050, text=»PN100 EQU * «, t00=0x012c, t01=0x00b4}
0x1d534…1d562 Head {h00=0x002a, h01=0x0050, text=» ST A1,CWTOPR,A5 SET PLC NOT OPERABLE «, t00=0x012c, t01=0x00c8}
0x1d562…1d56c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012c, t01=0x00f6}
0x1d56c…1d582 Head {h00=0x0012, h01=0x0050, text=» IFF UTTEST=0 «, t00=0x012c, t01=0x0100}
0x1d582…1d58c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012c, t01=0x0116}
0x1d58c…1d59a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x012c, t01=0x0120}
0x1d59a…1d5a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012c, t01=0x012e}
0x1d5a4…1d5c6 Head {h00=0x001e, h01=0x0050, text=» LD A1,UTTST TRAP CONTROL «, t00=0x012c, t01=0x0138}
0x1d5c6…1d5e2 Head {h00=0x0018, h01=0x0050, text=» SUK A1,1 TRAP USED?«, t00=0x012c, t01=0x015a}
0x1d5e2…1d600 Head {h00=0x001a, h01=0x0050, text=» RF(NG) PN120 NO, SKIP«, t00=0x012c, t01=0x0176}
0x1d600…1d622 (301, 0, 400) Head {h00=0x001e, h01=0x0050, text=» LDK A1,PLCERR ERROR CODE «, t00=0x012d, t01=0x0004}
0x1d622…1d644 Head {h00=0x001e, h01=0x0050, text=» OTR A1,0,/2E TO SOP LAMPS«, t00=0x012d, t01=0x0026}
0x1d644…1d666 Head {h00=0x001e, h01=0x0050, text=» DATA /6300 TRAP TO BUGGER«, t00=0x012d, t01=0x0048}
0x1d666…1d67a Head {h00=0x0010, h01=0x0050, text=»PN120 EQU * «, t00=0x012d, t01=0x006a}
0x1d67a…1d684 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012d, t01=0x007e}
0x1d684…1d690 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012d, t01=0x0088}
0x1d690…1d69a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012d, t01=0x0094}
0x1d69a…1d6b6 Head {h00=0x0018, h01=0x0050, text=» LDR* A1,A15 POP A1 «, t00=0x012d, t01=0x009e}
0x1d6b6…1d6c6 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x012d, t01=0x00ba}
0x1d6c6…1d6d4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x012d, t01=0x00ca}
0x1d6d4…1d6de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012d, t01=0x00d8}
0x1d6de…1d722 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x012d, t01=0x00e2}
0x1d722…1d72c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012d, t01=0x0126}
0x1d72c…1d744 Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x012d, t01=0x0130}
0x1d744…1d754 Head {h00=0x000c, h01=0x0050, text=»* GETDWT«, t00=0x012d, t01=0x0148}
0x1d754…1d75e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012d, t01=0x0158}
0x1d75e…1d772 Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x012d, t01=0x0162}
0x1d772…1d7aa Head {h00=0x0034, h01=0x0050, text=»* THIS ROUTINE CALCULATES THE DWT ADDRESS FOR A «, t00=0x012d, t01=0x0176}
0x1d7aa…1d7ce Head {h00=0x0020, h01=0x0050, text=»* DEVICE CONNECTED TO A PLC.«, t00=0x012e, t01=0x001e}
0x1d7ce…1d7d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012e, t01=0x0042}
0x1d7d8…1d7e8 Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x012e, t01=0x004c}
0x1d7e8…1d800 Head {h00=0x0014, h01=0x0050, text=»* CF A15,GETDWT «, t00=0x012e, t01=0x005c}
0x1d800…1d80a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012e, t01=0x0074}
0x1d80a…1d81a Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x012e, t01=0x007e}
0x1d81a…1d836 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x012e, t01=0x008e}
0x1d836…1d850 Head {h00=0x0016, h01=0x0050, text=»* A6 = DLS INDEX «, t00=0x012e, t01=0x00aa}
0x1d850…1d86e Head {h00=0x001a, h01=0x0050, text=»* A7 = DEVICE ADDRESS«, t00=0x012e, t01=0x00c4}
0x1d86e…1d878 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012e, t01=0x00e2}
0x1d878…1d88a Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x012e, t01=0x00ec}
0x1d88a…1d8b0 Head {h00=0x0022, h01=0x0050, text=»* A6 = DWT ADDRESS IF FOUND, «, t00=0x012e, t01=0x00fe}
0x1d8b0…1d8c2 Head {h00=0x000e, h01=0x0050, text=»* ELSE 0«, t00=0x012e, t01=0x0124}
0x1d8c2…1d8e0 Head {h00=0x001a, h01=0x0050, text=»* CR = CONTENTS OF A6«, t00=0x012e, t01=0x0136}
0x1d8e0…1d8fc Head {h00=0x0018, h01=0x0050, text=»* INTERR. INHIBITED «, t00=0x012e, t01=0x0154}
0x1d8fc…1d906 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012e, t01=0x0170}
0x1d906…1d94a Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x012e, t01=0x017a}
0x1d94a…1d954 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012f, t01=0x002e}
0x1d954…1d968 Head {h00=0x0010, h01=0x0050, text=»GETDWT EQU *«, t00=0x012f, t01=0x0038}
0x1d968…1d974 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x012f, t01=0x004c}
0x1d974…1d990 Head {h00=0x0018, h01=0x0050, text=» STR A1,A15 PUSH A1 «, t00=0x012f, t01=0x0058}
0x1d990…1d9bc Head {h00=0x0028, h01=0x0050, text=» LD* A1,CWTINT,A5 WORK STATION TABLE«, t00=0x012f, t01=0x0074}
0x1d9bc…1d9e4 Head {h00=0x0024, h01=0x0050, text=» CF A15,NDGEDW A6 := DWT ADDRESS«, t00=0x012f, t01=0x00a0}
0x1d9e4…1da00 Head {h00=0x0018, h01=0x0050, text=» LDR* A1,A15 POP A1 «, t00=0x012f, t01=0x00c8}
0x1da00…1da2c Head {h00=0x0028, h01=0x0050, text=» ADKL A15,4 ADJUST STACK FOR RETURN «, t00=0x012f, t01=0x00e4}
0x1da2c…1da5c Head {h00=0x002c, h01=0x0050, text=» ANKL A6,/FFFE SET CR & SKIP ODD ADDRESS«, t00=0x012f, t01=0x0110}
0x1da5c…1da74 Head {h00=0x0014, h01=0x0050, text=» ABR* A15 RETURN«, t00=0x012f, t01=0x0140}
0x1da74…1da7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012f, t01=0x0158}
0x1da7e…1da8c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x012f, t01=0x0162}
0x1da8c…1da96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012f, t01=0x0170}
0x1da96…1dada Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x012f, t01=0x017a}
0x1dada…1dae4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0130, t01=0x002e}
0x1dae4…1dafc Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0130, t01=0x0038}
0x1dafc…1db0c Head {h00=0x000c, h01=0x0050, text=»* GETCWT«, t00=0x0130, t01=0x0050}
0x1db0c…1db16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0130, t01=0x0060}
0x1db16…1db2a Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0130, t01=0x006a}
0x1db2a…1db60 Head {h00=0x0032, h01=0x0050, text=»* THIS ROUTINE CALCULATES THE CWT ADDRESS FOR «, t00=0x0130, t01=0x007e}
0x1db60…1db8e Head {h00=0x002a, h01=0x0050, text=»* THE PLC CONTROLLING CALLING DEVICE. «, t00=0x0130, t01=0x00b4}
0x1db8e…1db98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0130, t01=0x00e2}
0x1db98…1dba8 Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0130, t01=0x00ec}
0x1dba8…1dbc0 Head {h00=0x0014, h01=0x0050, text=»* CF A15,GETCWT «, t00=0x0130, t01=0x00fc}
0x1dbc0…1dbca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0130, t01=0x0114}
0x1dbca…1dbda Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0130, t01=0x011e}
0x1dbda…1dbf6 Head {h00=0x0018, h01=0x0050, text=»* A6 = DWT ADDRESS «, t00=0x0130, t01=0x012e}
0x1dbf6…1dc00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0130, t01=0x014a}
0x1dc00…1dc12 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0130, t01=0x0154}
0x1dc12…1dc38 Head {h00=0x0022, h01=0x0050, text=»* A5 = CWT ADDRESS IF FOUND, «, t00=0x0130, t01=0x0166}
0x1dc38…1dc4a Head {h00=0x000e, h01=0x0050, text=»* ELSE 0«, t00=0x0130, t01=0x018c}
0x1dc4a…1dc70 Head {h00=0x0022, h01=0x0050, text=»* A7 = 0 IF LOCAL CONNECTION «, t00=0x0131, t01=0x000e}
0x1dc70…1dc88 Head {h00=0x0014, h01=0x0050, text=»* CR = CHANGED «, t00=0x0131, t01=0x0034}
0x1dc88…1dc92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0131, t01=0x004c}
0x1dc92…1dcd6 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0131, t01=0x0056}
0x1dcd6…1dce0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0131, t01=0x009a}
0x1dce0…1dcf4 Head {h00=0x0010, h01=0x0050, text=»GETCWT EQU *«, t00=0x0131, t01=0x00a4}
0x1dcf4…1dd20 Head {h00=0x0028, h01=0x0050, text=» LD A5,DWTCHP,A6 CHANNEL PARAMETERS «, t00=0x0131, t01=0x00b8}
0x1dd20…1dd50 Head {h00=0x002c, h01=0x0050, text=» ANK A5,MASKPL CLEAN CHANNEL UNIT INDEX «, t00=0x0131, t01=0x00e4}
0x1dd50…1dd6c Head {h00=0x0018, h01=0x0050, text=» SLL A5,1 MAKE INDEX«, t00=0x0131, t01=0x0114}
0x1dd6c…1dd82 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRR=0 «, t00=0x0131, t01=0x0130}
0x1dd82…1dd98 Head {h00=0x0012, h01=0x0050, text=» IFF PLCNRL=0 «, t00=0x0131, t01=0x0146}
0x1dd98…1ddbe Head {h00=0x0022, h01=0x0050, text=» LDR* A7,A6 CHANNEL PARAMETER «, t00=0x0131, t01=0x015c}
0x1ddbe…1ddde Head {h00=0x001c, h01=0x0050, text=» ANKL A7,/0500 MASK =10 «, t00=0x0131, t01=0x0182}
0x1ddde…1ddfe Head {h00=0x001c, h01=0x0050, text=» SUKL A7,/0500 REMOTE ? «, t00=0x0132, t01=0x0012}
0x1ddfe…1de16 Head {h00=0x0014, h01=0x0050, text=» RF(Z) GET010 NO«, t00=0x0132, t01=0x0032}
0x1de16…1de40 Head {h00=0x0026, h01=0x0050, text=» ADK A5,8 ADJUST INDEX FOR REMOTE «, t00=0x0132, t01=0x004a}
0x1de40…1de4c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0132, t01=0x0074}
0x1de4c…1de7c Head {h00=0x002c, h01=0x0050, text=»GET010 LD A5,TABCWT,A5 A5 := CWT ADDRESS«, t00=0x0132, t01=0x0080}
0x1de7c…1de86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0132, t01=0x00b0}
0x1de86…1de9c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0132, t01=0x00ba}
0x1de9c…1deb8 Head {h00=0x0018, h01=0x0050, text=» ADKL A15,2 SKIP PSW«, t00=0x0132, t01=0x00d0}
0x1deb8…1ded2 Head {h00=0x0016, h01=0x0050, text=» LDR* P,A15 RETURN«, t00=0x0132, t01=0x00ec}
0x1ded2…1dede Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0132, t01=0x0106}
0x1dede…1def4 Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0132, t01=0x0112}
0x1def4…1df04 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0132, t01=0x0128}
0x1df04…1df10 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0132, t01=0x0138}
0x1df10…1df1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0132, t01=0x0144}
0x1df1a…1df28 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0132, t01=0x014e}
0x1df28…1df32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0132, t01=0x015c}
0x1df32…1df76 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0132, t01=0x0166}
0x1df76…1df80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0133, t01=0x001a}
0x1df80…1df98 Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0133, t01=0x0024}
0x1df98…1dfa8 Head {h00=0x000c, h01=0x0050, text=»* GETFR «, t00=0x0133, t01=0x003c}
0x1dfa8…1dfb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0133, t01=0x004c}
0x1dfb2…1dfc6 Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0133, t01=0x0056}
0x1dfc6…1e002 Head {h00=0x0038, h01=0x0050, text=»* THIS ROUTINE CALCULATES THE NUMBER OF OUTSTANDING «, t00=0x0133, t01=0x006a}
0x1e002…1e03c Head {h00=0x0036, h01=0x0050, text=»* FRAMES, IE FRAMES THAT HAVE BEEN TRANSFERRED BUT«, t00=0x0133, t01=0x00a6}
0x1e03c…1e070 Head {h00=0x0030, h01=0x0050, text=»* NOT ACKNOWLEDGED ON LEVEL 3, FOR A LOGICAL«, t00=0x0133, t01=0x00e0}
0x1e070…1e082 Head {h00=0x000e, h01=0x0050, text=»* CHANNEL.«, t00=0x0133, t01=0x0114}
0x1e082…1e0ba Head {h00=0x0034, h01=0x0050, text=»* GETIFR GETS NUMBER OF FRAMES RECIEVED BY PLC. «, t00=0x0133, t01=0x0126}
0x1e0ba…1e0ee Head {h00=0x0030, h01=0x0050, text=»* GETOFR GETS NUMBER OF FRAMES SENT BY PLC. «, t00=0x0133, t01=0x015e}
0x1e0ee…1e0f8 (308, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0134, t01=0x0004}
0x1e0f8…1e108 Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0134, t01=0x000e}
0x1e108…1e120 Head {h00=0x0014, h01=0x0050, text=»* CF A15,GETIFR «, t00=0x0134, t01=0x001e}
0x1e120…1e138 Head {h00=0x0014, h01=0x0050, text=»* CF A15,GETOFR «, t00=0x0134, t01=0x0036}
0x1e138…1e142 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0134, t01=0x004e}
0x1e142…1e152 Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0134, t01=0x0058}
0x1e152…1e16e Head {h00=0x0018, h01=0x0050, text=»* A6 = DWT ADDRESS «, t00=0x0134, t01=0x0068}
0x1e16e…1e178 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0134, t01=0x0084}
0x1e178…1e18a Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0134, t01=0x008e}
0x1e18a…1e1a2 Head {h00=0x0014, h01=0x0050, text=»* A1 = CHANGED «, t00=0x0134, t01=0x00a0}
0x1e1a2…1e1ce Head {h00=0x0028, h01=0x0050, text=»* A2 = NUMBER OF OUTSTANDING FRAMES«, t00=0x0134, t01=0x00b8}
0x1e1ce…1e1e6 Head {h00=0x0014, h01=0x0050, text=»* CR = CHANGED «, t00=0x0134, t01=0x00e4}
0x1e1e6…1e1f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0134, t01=0x00fc}
0x1e1f0…1e234 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0134, t01=0x0106}
0x1e234…1e23e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0134, t01=0x014a}
0x1e23e…1e252 Head {h00=0x0010, h01=0x0050, text=»GETIFR EQU *«, t00=0x0134, t01=0x0154}
0x1e252…1e280 Head {h00=0x002a, h01=0x0050, text=» LD A2,DWTLD2,A6 FLOW CONTROL COUNTERS«, t00=0x0134, t01=0x0168}
0x1e280…1e292 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0135, t01=0x0008}
0x1e292…1e2c4 Head {h00=0x002e, h01=0x0050, text=» SRL A2,9 BITS 13-15 := NEXT EXPECTED P(S)«, t00=0x0135, t01=0x001a}
0x1e2c4…1e2f2 Head {h00=0x002a, h01=0x0050, text=» SRL A1,5 BITS 13-15 := LAST SENT P(R)«, t00=0x0135, t01=0x004c}
0x1e2f2…1e312 Head {h00=0x001c, h01=0x0050, text=» RF GF100 TO COMMON PART«, t00=0x0135, t01=0x007a}
0x1e312…1e31c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0135, t01=0x009a}
0x1e31c…1e32a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0135, t01=0x00a4}
0x1e32a…1e334 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0135, t01=0x00b2}
0x1e334…1e348 Head {h00=0x0010, h01=0x0050, text=»GETOFR EQU *«, t00=0x0135, t01=0x00bc}
0x1e348…1e376 Head {h00=0x002a, h01=0x0050, text=» LD A2,DWTLD2,A6 FLOW CONTROL COUNTERS«, t00=0x0135, t01=0x00d0}
0x1e376…1e388 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0135, t01=0x00fe}
0x1e388…1e3ba Head {h00=0x002e, h01=0x0050, text=» SRL A2,1 BITS 13-15 := NEXT P(S) TO SEND «, t00=0x0135, t01=0x0110}
0x1e3ba…1e3ec Head {h00=0x002e, h01=0x0050, text=» SLC A1,3 BITS 13-15 := LAST RECIEVED P(R)«, t00=0x0135, t01=0x0142}
0x1e3ec…1e3f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0135, t01=0x0174}
0x1e3f6…1e400 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0135, t01=0x017e}
0x1e400…1e414 Head {h00=0x0010, h01=0x0050, text=»GF100 EQU * «, t00=0x0135, t01=0x0188}
0x1e414…1e440 Head {h00=0x0028, h01=0x0050, text=» SUR A2,A1 A2 := OUTSTANDING FRAMES «, t00=0x0136, t01=0x000c}
0x1e440…1e464 Head {h00=0x0020, h01=0x0050, text=» ANK A2,/07 CLEAN & MODULO 8«, t00=0x0136, t01=0x0038}
0x1e464…1e46e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0136, t01=0x005c}
0x1e46e…1e484 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0136, t01=0x0066}
0x1e484…1e4a0 Head {h00=0x0018, h01=0x0050, text=» ADKL A15,2 SKIP PSW«, t00=0x0136, t01=0x007c}
0x1e4a0…1e4ba Head {h00=0x0016, h01=0x0050, text=» LDR* P,A15 RETURN«, t00=0x0136, t01=0x0098}
0x1e4ba…1e4c6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0136, t01=0x00b2}
0x1e4c6…1e4d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0136, t01=0x00be}
0x1e4d0…1e4e6 Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0136, t01=0x00c8}
0x1e4e6…1e4f6 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0136, t01=0x00de}
0x1e4f6…1e502 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0136, t01=0x00ee}
0x1e502…1e50c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0136, t01=0x00fa}
0x1e50c…1e51a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0136, t01=0x0104}
0x1e51a…1e524 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0136, t01=0x0112}
0x1e524…1e568 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0136, t01=0x011c}
0x1e568…1e572 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0136, t01=0x0160}
0x1e572…1e58a Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0136, t01=0x016a}
0x1e58a…1e59a Head {h00=0x000c, h01=0x0050, text=»* FLWINP«, t00=0x0136, t01=0x0182}
0x1e59a…1e5a4 (311, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0137, t01=0x0004}
0x1e5a4…1e5b8 Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0137, t01=0x000e}
0x1e5b8…1e5fa Head {h00=0x003e, h01=0x0050, text=»* THIS ROUTINE HANDLES FLOW CONTROL FOR INPUT. IT FETCHES «, t00=0x0137, t01=0x0022}
0x1e5fa…1e636 Head {h00=0x0038, h01=0x0050, text=»* FLOW CONTROL INFORMATION FROM MESSAGE AND UPDATES «, t00=0x0137, t01=0x0064}
0x1e636…1e650 Head {h00=0x0016, h01=0x0050, text=»* COUNTERS IN DWT.«, t00=0x0137, t01=0x00a0}
0x1e650…1e686 Head {h00=0x0032, h01=0x0050, text=»* FWIPR IS FOR MESSAGES ONLY CONTAINING P(R). «, t00=0x0137, t01=0x00ba}
0x1e686…1e6c0 Head {h00=0x0036, h01=0x0050, text=»* FWIPSR IS FOR MESSAGES CONTAINING P(S) AND P(R).«, t00=0x0137, t01=0x00f0}
0x1e6c0…1e6e2 Head {h00=0x001e, h01=0x0050, text=»* NO ERROR CHECK IS MADE. «, t00=0x0137, t01=0x012a}
0x1e6e2…1e6ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0137, t01=0x014c}
0x1e6ec…1e6fc Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0137, t01=0x0156}
0x1e6fc…1e712 Head {h00=0x0012, h01=0x0050, text=»* CF A15,FWIPR«, t00=0x0137, t01=0x0166}
0x1e712…1e72a Head {h00=0x0014, h01=0x0050, text=»* CF A15,FWIPSR «, t00=0x0137, t01=0x017c}
0x1e72a…1e734 (312, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0138, t01=0x0004}
0x1e734…1e744 Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0138, t01=0x000e}
0x1e744…1e762 Head {h00=0x001a, h01=0x0050, text=»* A4 = BUFFER ADDRESS«, t00=0x0138, t01=0x001e}
0x1e762…1e77e Head {h00=0x0018, h01=0x0050, text=»* A6 = DWT ADDRESS «, t00=0x0138, t01=0x003c}
0x1e77e…1e788 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0138, t01=0x0058}
0x1e788…1e79a Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0138, t01=0x0062}
0x1e79a…1e7b2 Head {h00=0x0014, h01=0x0050, text=»* A1 = CHANGED «, t00=0x0138, t01=0x0074}
0x1e7b2…1e7ca Head {h00=0x0014, h01=0x0050, text=»* CR = CHANGED «, t00=0x0138, t01=0x008c}
0x1e7ca…1e7d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0138, t01=0x00a4}
0x1e7d4…1e818 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0138, t01=0x00ae}
0x1e818…1e822 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0138, t01=0x00f2}
0x1e822…1e836 Head {h00=0x0010, h01=0x0050, text=»FWIPR EQU * «, t00=0x0138, t01=0x00fc}
0x1e836…1e852 Head {h00=0x0018, h01=0x0050, text=» STR A2,A15 PUSH A2 «, t00=0x0138, t01=0x0110}
0x1e852…1e882 Head {h00=0x002c, h01=0x0050, text=» LC A1,X25FLW,A4 FLOW CONTROL FROM INPUT«, t00=0x0138, t01=0x012c}
0x1e882…1e8aa Head {h00=0x0024, h01=0x0050, text=» ANK A1,/E0 BITS 8-10 = P(R) IN «, t00=0x0138, t01=0x015c}
0x1e8aa…1e8d4 Head {h00=0x0026, h01=0x0050, text=» LC A2,DWTLD2,A6 OLD FLOW CONTROL «, t00=0x0138, t01=0x0184}
0x1e8d4…1e900 Head {h00=0x0028, h01=0x0050, text=» ANK A2,/0E BITS 12-14 = OLD P(S) IN«, t00=0x0139, t01=0x001e}
0x1e900…1e920 Head {h00=0x001c, h01=0x0050, text=» ORR A1,A2 KEEP OLD P(S)«, t00=0x0139, t01=0x004a}
0x1e920…1e93c Head {h00=0x0018, h01=0x0050, text=» LDR* A2,A15 POP A2 «, t00=0x0139, t01=0x006a}
0x1e93c…1e95c Head {h00=0x001c, h01=0x0050, text=» RF FI100 COMMON ENDING «, t00=0x0139, t01=0x0086}
0x1e95c…1e966 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0139, t01=0x00a6}
0x1e966…1e970 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0139, t01=0x00b0}
0x1e970…1e984 Head {h00=0x0010, h01=0x0050, text=»FWIPSR EQU *«, t00=0x0139, t01=0x00ba}
0x1e984…1e9b4 Head {h00=0x002c, h01=0x0050, text=» LC A1,X25FLW,A4 FLOW CONTROL FROM INPUT«, t00=0x0139, t01=0x00ce}
0x1e9b4…1e9ce Head {h00=0x0016, h01=0x0050, text=» ANK A1,/EE CLEAN «, t00=0x0139, t01=0x00fe}
0x1e9ce…1ea06 Head {h00=0x0034, h01=0x0050, text=» ADK A1,/02 BITS 12-14 := NEXT EXPECTED P(S) IN «, t00=0x0139, t01=0x0118}
0x1ea06…1ea22 Head {h00=0x0018, h01=0x0050, text=» ANK A1,/EE MODULO 8«, t00=0x0139, t01=0x0150}
0x1ea22…1ea2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0139, t01=0x016c}
0x1ea2c…1ea36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0139, t01=0x0176}
0x1ea36…1ea4a Head {h00=0x0010, h01=0x0050, text=»FI100 EQU * «, t00=0x0139, t01=0x0180}
0x1ea4a…1ea78 (314, 0, 400) Head {h00=0x002a, h01=0x0050, text=» SC A1,DWTLD2,A6 SAVE NEW FLOW CONTROL«, t00=0x013a, t01=0x0004}
0x1ea78…1ea82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013a, t01=0x0032}
0x1ea82…1ea98 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x013a, t01=0x003c}
0x1ea98…1eab4 Head {h00=0x0018, h01=0x0050, text=» ADKL A15,2 SKIP PSW«, t00=0x013a, t01=0x0052}
0x1eab4…1eace Head {h00=0x0016, h01=0x0050, text=» LDR* P,A15 RETURN«, t00=0x013a, t01=0x006e}
0x1eace…1eada Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013a, t01=0x0088}
0x1eada…1eae4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013a, t01=0x0094}
0x1eae4…1eafa Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x013a, t01=0x009e}
0x1eafa…1eb0a Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x013a, t01=0x00b4}
0x1eb0a…1eb16 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013a, t01=0x00c4}
0x1eb16…1eb20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013a, t01=0x00d0}
0x1eb20…1eb2e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x013a, t01=0x00da}
0x1eb2e…1eb38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013a, t01=0x00e8}
0x1eb38…1eb7c Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x013a, t01=0x00f2}
0x1eb7c…1eb86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013a, t01=0x0136}
0x1eb86…1eb9e Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x013a, t01=0x0140}
0x1eb9e…1ebae Head {h00=0x000c, h01=0x0050, text=»* FLWOUT«, t00=0x013a, t01=0x0158}
0x1ebae…1ebb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013a, t01=0x0168}
0x1ebb8…1ebcc Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x013a, t01=0x0172}
0x1ebcc…1ec08 Head {h00=0x0038, h01=0x0050, text=»* THIS ROUTINE HANDLES FLOW CONTROL FOR OUTPUT. FLOW«, t00=0x013a, t01=0x0186}
0x1ec08…1ec48 Head {h00=0x003c, h01=0x0050, text=»* CONTROL INFORMATION IS FETCHED FROM DWT, AND COUNTERS «, t00=0x013b, t01=0x0032}
0x1ec48…1ec66 Head {h00=0x001a, h01=0x0050, text=»* IN DWT ARE UPDATED. «, t00=0x013b, t01=0x0072}
0x1ec66…1ec9c Head {h00=0x0032, h01=0x0050, text=»* FWOPR IS FOR MESSAGES CONTAINING ONLY P(R). «, t00=0x013b, t01=0x0090}
0x1ec9c…1ecd6 Head {h00=0x0036, h01=0x0050, text=»* FWOPSR IS FOR MESSAGES CONTAINING P(S) AND P(R).«, t00=0x013b, t01=0x00c6}
0x1ecd6…1ece0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x0100}
0x1ece0…1ecf0 Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x013b, t01=0x010a}
0x1ecf0…1ed06 Head {h00=0x0012, h01=0x0050, text=»* CF A15,FWOPR«, t00=0x013b, t01=0x011a}
0x1ed06…1ed1e Head {h00=0x0014, h01=0x0050, text=»* CF A15,FWOPSR «, t00=0x013b, t01=0x0130}
0x1ed1e…1ed28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x0148}
0x1ed28…1ed38 Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x013b, t01=0x0152}
0x1ed38…1ed54 Head {h00=0x0018, h01=0x0050, text=»* A6 = DWT ADDRESS «, t00=0x013b, t01=0x0162}
0x1ed54…1ed5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x017e}
0x1ed5e…1ed70 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x013b, t01=0x0188}
0x1ed70…1ed88 Head {h00=0x0014, h01=0x0050, text=»* A1 = CHANGED «, t00=0x013c, t01=0x000a}
0x1ed88…1eda6 Head {h00=0x001a, h01=0x0050, text=»* A2 = BITS 0-7 ZERO«, t00=0x013c, t01=0x0022}
0x1eda6…1edc8 Head {h00=0x001e, h01=0x0050, text=»* BITS 8-10 P(R) TO SEND«, t00=0x013c, t01=0x0040}
0x1edc8…1ede0 Head {h00=0x0014, h01=0x0050, text=»* BIT 11 ZERO «, t00=0x013c, t01=0x0062}
0x1ede0…1ee0e Head {h00=0x002a, h01=0x0050, text=»* BITS 12-14 P(S) TO SEND IF FWOPSR «, t00=0x013c, t01=0x007a}
0x1ee0e…1ee30 Head {h00=0x001e, h01=0x0050, text=»* ELSE ZERO «, t00=0x013c, t01=0x00a8}
0x1ee30…1ee48 Head {h00=0x0014, h01=0x0050, text=»* BIT 15 ZERO «, t00=0x013c, t01=0x00ca}
0x1ee48…1ee60 Head {h00=0x0014, h01=0x0050, text=»* CR = CHANGED «, t00=0x013c, t01=0x00e2}
0x1ee60…1ee6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013c, t01=0x00fa}
0x1ee6a…1eeae Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x013c, t01=0x0104}
0x1eeae…1eeb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013c, t01=0x0148}
0x1eeb8…1eecc Head {h00=0x0010, h01=0x0050, text=»FWOPR EQU * «, t00=0x013c, t01=0x0152}
0x1eecc…1eefa Head {h00=0x002a, h01=0x0050, text=» LD A2,DWTLD2,A6 FLOW CONTROL COUNTERS«, t00=0x013c, t01=0x0166}
0x1eefa…1ef0c (317, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x013d, t01=0x0004}
0x1ef0c…1ef40 Head {h00=0x0030, h01=0x0050, text=» SRL A2,4 BITS 8-10 := NEXT EXPECTED P(S) IN«, t00=0x013d, t01=0x0016}
0x1ef40…1ef5e Head {h00=0x001a, h01=0x0050, text=»* (= P(R) TO SEND) «, t00=0x013d, t01=0x004a}
0x1ef5e…1ef78 Head {h00=0x0016, h01=0x0050, text=» ANK A2,/E0 CLEAN «, t00=0x013d, t01=0x0068}
0x1ef78…1efaa Head {h00=0x002e, h01=0x0050, text=» ANK A1,/0E BITS 12-14 = NEXT P(S) TO SEND«, t00=0x013d, t01=0x0082}
0x1efaa…1efd4 Head {h00=0x0026, h01=0x0050, text=» ORR A1,A2 P(S) := SAME AS BEFORE «, t00=0x013d, t01=0x00b4}
0x1efd4…1eff4 Head {h00=0x001c, h01=0x0050, text=» RF FO100 COMMON ENDING «, t00=0x013d, t01=0x00de}
0x1eff4…1effe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013d, t01=0x00fe}
0x1effe…1f008 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013d, t01=0x0108}
0x1f008…1f01c Head {h00=0x0010, h01=0x0050, text=»FWOPSR EQU *«, t00=0x013d, t01=0x0112}
0x1f01c…1f04a Head {h00=0x002a, h01=0x0050, text=» LD A2,DWTLD2,A6 FLOW CONTROL COUNTERS«, t00=0x013d, t01=0x0126}
0x1f04a…1f05c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x013d, t01=0x0154}
0x1f05c…1f090 Head {h00=0x0030, h01=0x0050, text=» SRL A2,4 BITS 8-10 := NEXT EXPECTED P(S) IN«, t00=0x013d, t01=0x0166}
0x1f090…1f0ae Head {h00=0x001a, h01=0x0050, text=»* (= P(R) TO SEND) «, t00=0x013e, t01=0x000a}
0x1f0ae…1f0c8 Head {h00=0x0016, h01=0x0050, text=» ANK A2,/E0 CLEAN «, t00=0x013e, t01=0x0028}
0x1f0c8…1f0fa Head {h00=0x002e, h01=0x0050, text=» ANK A1,/0E BITS 12-14 = NEXT P(S) TO SEND«, t00=0x013e, t01=0x0042}
0x1f0fa…1f122 Head {h00=0x0024, h01=0x0050, text=» ORR A2,A1 COUNTERS FOR MESSAGE «, t00=0x013e, t01=0x0074}
0x1f122…1f134 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x013e, t01=0x009c}
0x1f134…1f15e Head {h00=0x0026, h01=0x0050, text=» ADK A1,/02 INCREMENT P(S) TO SEND«, t00=0x013e, t01=0x00ae}
0x1f15e…1f17a Head {h00=0x0018, h01=0x0050, text=» ANK A1,/EE MODULO 8«, t00=0x013e, t01=0x00d8}
0x1f17a…1f184 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013e, t01=0x00f4}
0x1f184…1f18e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013e, t01=0x00fe}
0x1f18e…1f1a2 Head {h00=0x0010, h01=0x0050, text=»FO100 EQU * «, t00=0x013e, t01=0x0108}
0x1f1a2…1f1d8 Head {h00=0x0032, h01=0x0050, text=» SC A1,DWTLD2+1,A6 SAVE FLOW CONTROL COUNTERS «, t00=0x013e, t01=0x011c}
0x1f1d8…1f1e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013e, t01=0x0152}
0x1f1e2…1f1f8 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x013e, t01=0x015c}
0x1f1f8…1f214 Head {h00=0x0018, h01=0x0050, text=» ADKL A15,2 SKIP PSW«, t00=0x013e, t01=0x0172}
0x1f214…1f22e Head {h00=0x0016, h01=0x0050, text=» LDR* P,A15 RETURN«, t00=0x013e, t01=0x018e}
0x1f22e…1f23a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013f, t01=0x0018}
0x1f23a…1f244 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x0024}
0x1f244…1f25a Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x013f, t01=0x002e}
0x1f25a…1f26a Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x013f, t01=0x0044}
0x1f26a…1f276 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013f, t01=0x0054}
0x1f276…1f284 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x013f, t01=0x0060}
0x1f284…1f28e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x006e}
0x1f28e…1f2d2 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x013f, t01=0x0078}
0x1f2d2…1f2dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x00bc}
0x1f2dc…1f2f4 Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x013f, t01=0x00c6}
0x1f2f4…1f304 Head {h00=0x000c, h01=0x0050, text=»* WRADDR«, t00=0x013f, t01=0x00de}
0x1f304…1f30e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x00ee}
0x1f30e…1f322 Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x013f, t01=0x00f8}
0x1f322…1f356 Head {h00=0x0030, h01=0x0050, text=»* THIS ROUTINE WRITES THE LINE ADDRESS IN A «, t00=0x013f, t01=0x010c}
0x1f356…1f390 Head {h00=0x0036, h01=0x0050, text=»* MESSAGE. THE ADDRESS CONSISTS OF: DROP ADDRESS, «, t00=0x013f, t01=0x0140}
0x1f390…1f3c6 Head {h00=0x0032, h01=0x0050, text=»* GROUP NUMBER AND DEVICE ADDRESS. WRADR1 SETS«, t00=0x013f, t01=0x017a}
0x1f3c6…1f400 Head {h00=0x0036, h01=0x0050, text=»* GROUP=1 INDICATING NO FLOW CONTROL, WRADR2 SETS «, t00=0x0140, t01=0x0020}
0x1f400…1f42a Head {h00=0x0026, h01=0x0050, text=»* GROUP=0 INDICATING FLOW CONTROL.«, t00=0x0140, t01=0x005a}
0x1f42a…1f434 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0140, t01=0x0084}
0x1f434…1f444 Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0140, t01=0x008e}
0x1f444…1f45c Head {h00=0x0014, h01=0x0050, text=»* CF A15,WRADR1 «, t00=0x0140, t01=0x009e}
0x1f45c…1f474 Head {h00=0x0014, h01=0x0050, text=»* CF A15,WRADR2 «, t00=0x0140, t01=0x00b6}
0x1f474…1f47e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0140, t01=0x00ce}
0x1f47e…1f48e Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0140, t01=0x00d8}
0x1f48e…1f4ac Head {h00=0x001a, h01=0x0050, text=»* A4 = BUFFER ADDRESS«, t00=0x0140, t01=0x00e8}
0x1f4ac…1f4c8 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x0140, t01=0x0106}
0x1f4c8…1f4e4 Head {h00=0x0018, h01=0x0050, text=»* A6 = DWT ADDRESS «, t00=0x0140, t01=0x0122}
0x1f4e4…1f4ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0140, t01=0x013e}
0x1f4ee…1f500 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0140, t01=0x0148}
0x1f500…1f518 Head {h00=0x0014, h01=0x0050, text=»* A2 = CHANGED «, t00=0x0140, t01=0x015a}
0x1f518…1f530 Head {h00=0x0014, h01=0x0050, text=»* CR = CHANGED «, t00=0x0140, t01=0x0172}
0x1f530…1f53a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0140, t01=0x018a}
0x1f53a…1f57e (321, 0, 400) Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0141, t01=0x0004}
0x1f57e…1f588 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0141, t01=0x0048}
0x1f588…1f59c Head {h00=0x0010, h01=0x0050, text=»WRADR1 EQU *«, t00=0x0141, t01=0x0052}
0x1f59c…1f5be Head {h00=0x001e, h01=0x0050, text=» LDK A2,/11 GROUP NUMBER 1«, t00=0x0141, t01=0x0066}
0x1f5be…1f5de Head {h00=0x001c, h01=0x0050, text=» RF WA100 TO COMMON PART«, t00=0x0141, t01=0x0088}
0x1f5de…1f5e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0141, t01=0x00a8}
0x1f5e8…1f5f6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0141, t01=0x00b2}
0x1f5f6…1f600 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0141, t01=0x00c0}
0x1f600…1f614 Head {h00=0x0010, h01=0x0050, text=»WRADR2 EQU *«, t00=0x0141, t01=0x00ca}
0x1f614…1f636 Head {h00=0x001e, h01=0x0050, text=» LDK A2,/10 GROUP NUMBER 0«, t00=0x0141, t01=0x00de}
0x1f636…1f640 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0141, t01=0x0100}
0x1f640…1f64a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0141, t01=0x010a}
0x1f64a…1f65e Head {h00=0x0010, h01=0x0050, text=»WA100 EQU * «, t00=0x0141, t01=0x0114}
0x1f65e…1f68e Head {h00=0x002c, h01=0x0050, text=» SC A2,X25LGN,A4 GROUP NUMBER TO BUFFER «, t00=0x0141, t01=0x0128}
0x1f68e…1f6ba Head {h00=0x0028, h01=0x0050, text=» LC A2,DWTCP2,A6 CHANNEL PARAMETERS «, t00=0x0141, t01=0x0158}
0x1f6ba…1f6e0 Head {h00=0x0022, h01=0x0050, text=» ANK A2,MASKWS CLEAN WS NUMBER«, t00=0x0141, t01=0x0184}
0x1f6e0…1f706 Head {h00=0x0022, h01=0x0050, text=» SC A2,CWTCCA+CCRDLS,A5 TO CCA«, t00=0x0142, t01=0x001a}
0x1f706…1f720 Head {h00=0x0016, h01=0x0050, text=» LC A2,DWTCP2+1,A6«, t00=0x0142, t01=0x0040}
0x1f720…1f74c Head {h00=0x0028, h01=0x0050, text=» ANK A2,MASKLC CLEAN DEVICE ADDRESS «, t00=0x0142, t01=0x005a}
0x1f74c…1f76e Head {h00=0x001e, h01=0x0050, text=» SC A2,X25LCN,A4 TO BUFFER«, t00=0x0142, t01=0x0086}
0x1f76e…1f778 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0142, t01=0x00a8}
0x1f778…1f78e Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0142, t01=0x00b2}
0x1f78e…1f7aa Head {h00=0x0018, h01=0x0050, text=» ADKL A15,2 SKIP PSW«, t00=0x0142, t01=0x00c8}
0x1f7aa…1f7c4 Head {h00=0x0016, h01=0x0050, text=» LDR* P,A15 RETURN«, t00=0x0142, t01=0x00e4}
0x1f7c4…1f7d0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0142, t01=0x00fe}
0x1f7d0…1f7da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0142, t01=0x010a}
0x1f7da…1f7f0 Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0142, t01=0x0114}
0x1f7f0…1f800 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0142, t01=0x012a}
0x1f800…1f80c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0142, t01=0x013a}
0x1f80c…1f816 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0142, t01=0x0146}
0x1f816…1f824 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0142, t01=0x0150}
0x1f824…1f82e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0142, t01=0x015e}
0x1f82e…1f872 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0142, t01=0x0168}
0x1f872…1f87c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0143, t01=0x001c}
0x1f87c…1f894 Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0143, t01=0x0026}
0x1f894…1f8a4 Head {h00=0x000c, h01=0x0050, text=»* STAHAN«, t00=0x0143, t01=0x003e}
0x1f8a4…1f8ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0143, t01=0x004e}
0x1f8ae…1f8c2 Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0143, t01=0x0058}
0x1f8c2…1f8f8 Head {h00=0x0032, h01=0x0050, text=»* THIS ROUTINE HANDLES PLC STATUS WORD FOR ONE«, t00=0x0143, t01=0x006c}
0x1f8f8…1f930 Head {h00=0x0034, h01=0x0050, text=»* WORK STATION. IF "NO CONNECTION", "LINK RESET"«, t00=0x0143, t01=0x00a2}
0x1f930…1f966 Head {h00=0x0032, h01=0x0050, text=»* OR "DCE NOT OPERABLE" IS INDICATED, AN ERROR«, t00=0x0143, t01=0x00da}
0x1f966…1f97c Head {h00=0x0012, h01=0x0050, text=»* CODE WILL BE«, t00=0x0143, t01=0x0110}
0x1f97c…1f9b4 Head {h00=0x0034, h01=0x0050, text=»* SET IN THE WORK STATION STATUS WORD (CWTWSS). «, t00=0x0143, t01=0x0126}
0x1f9b4…1f9e0 Head {h00=0x0028, h01=0x0050, text=»* OTHER STATUS BITS ARE NOT ALLOWED.«, t00=0x0143, t01=0x015e}
0x1f9e0…1f9ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0143, t01=0x018a}
0x1f9ea…1f9fa (324, 0, 400) Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0144, t01=0x0004}
0x1f9fa…1fa12 Head {h00=0x0014, h01=0x0050, text=»* CF A15,STAHAN «, t00=0x0144, t01=0x0014}
0x1fa12…1fa1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0144, t01=0x002c}
0x1fa1c…1fa2c Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0144, t01=0x0036}
0x1fa2c…1fa46 Head {h00=0x0016, h01=0x0050, text=»* A1 = PLC STATUS«, t00=0x0144, t01=0x0046}
0x1fa46…1fa6a Head {h00=0x0020, h01=0x0050, text=»* A2 = WORK STATION NUMBER «, t00=0x0144, t01=0x0060}
0x1fa6a…1fa86 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x0144, t01=0x0084}
0x1fa86…1fa90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0144, t01=0x00a0}
0x1fa90…1faa2 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0144, t01=0x00aa}
0x1faa2…1fac4 Head {h00=0x001e, h01=0x0050, text=»* A1 = DEVICE RETURN CODE«, t00=0x0144, t01=0x00bc}
0x1fac4…1fadc Head {h00=0x0014, h01=0x0050, text=»* CR = CHANGED «, t00=0x0144, t01=0x00de}
0x1fadc…1fae6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0144, t01=0x00f6}
0x1fae6…1fb2a Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0144, t01=0x0100}
0x1fb2a…1fb34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0144, t01=0x0144}
0x1fb34…1fb48 Head {h00=0x0010, h01=0x0050, text=»STAHAN EQU *«, t00=0x0144, t01=0x014e}
0x1fb48…1fb64 Head {h00=0x0018, h01=0x0050, text=» STR A3,A15 PUSH A3 «, t00=0x0144, t01=0x0162}
0x1fb64…1fb82 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A1 ANY ERROR? «, t00=0x0144, t01=0x017e}
0x1fb82…1fba2 Head {h00=0x001c, h01=0x0050, text=» RF(Z) SH120 NO, RETURN «, t00=0x0145, t01=0x000c}
0x1fba2…1fbbe Head {h00=0x0018, h01=0x0050, text=» STR A4,A15 PUSH A4 «, t00=0x0145, t01=0x002c}
0x1fbbe…1fbc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0145, t01=0x0048}
0x1fbc8…1fbd6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0145, t01=0x0052}
0x1fbd6…1fbe0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0145, t01=0x0060}
0x1fbe0…1fc0c Head {h00=0x0028, h01=0x0050, text=» LDK A1,NOTOPR ASSUME NO CONNECTION «, t00=0x0145, t01=0x006a}
0x1fc0c…1fc32 Head {h00=0x0022, h01=0x0050, text=» ANKL A3,STADNO+STANOC IS IT? «, t00=0x0145, t01=0x0096}
0x1fc32…1fc56 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) SH100 YES, CONTINUE «, t00=0x0145, t01=0x00bc}
0x1fc56…1fc7c Head {h00=0x0022, h01=0x0050, text=» LDK A1,LINERR NO, LINK ERROR «, t00=0x0145, t01=0x00e0}
0x1fc7c…1fc90 Head {h00=0x0010, h01=0x0050, text=»SH100 EQU * «, t00=0x0145, t01=0x0106}
0x1fc90…1fcb6 Head {h00=0x0022, h01=0x0050, text=» LDR A3,A2 WORK STATION NUMBER«, t00=0x0145, t01=0x011a}
0x1fcb6…1fcd2 Head {h00=0x0018, h01=0x0050, text=» SLA A3,1 MAKE INDEX«, t00=0x0145, t01=0x0140}
0x1fcd2…1fcf4 Head {h00=0x001e, h01=0x0050, text=» ADR A3,A5 ADD CWT ADDRESS«, t00=0x0145, t01=0x015c}
0x1fcf4…1fd2a Head {h00=0x0032, h01=0x0050, text=» ADK A3,CWTWSS A3 := ADDRESS OF STATUS FOR WS «, t00=0x0145, t01=0x017e}
0x1fd2a…1fd4c Head {h00=0x001e, h01=0x0050, text=» SCR A1,A3 SAVE ERROR CODE«, t00=0x0146, t01=0x0024}
0x1fd4c…1fd76 Head {h00=0x0026, h01=0x0050, text=» LDK A4,WSFERR WORK STATION ERROR «, t00=0x0146, t01=0x0046}
0x1fd76…1fd9c Head {h00=0x0022, h01=0x0050, text=» ANR* A4,A3 ALREADY DETECTED? «, t00=0x0146, t01=0x0070}
0x1fd9c…1fdbe Head {h00=0x001e, h01=0x0050, text=» RF(NZ) SH110 YES, RETURN «, t00=0x0146, t01=0x0096}
0x1fdbe…1fdd4 Head {h00=0x0012, h01=0x0050, text=» LDK A4,WSFERR«, t00=0x0146, t01=0x00b8}
0x1fdd4…1fdfa Head {h00=0x0022, h01=0x0050, text=» ORRS A4,A3 SET ERROR DETECTED«, t00=0x0146, t01=0x00ce}
0x1fdfa…1fe2e Head {h00=0x0030, h01=0x0050, text=» ST A2,CWTABW,A5 INDICATE ABORT DWT:S FOR WS«, t00=0x0146, t01=0x00f4}
0x1fe2e…1fe38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0146, t01=0x0128}
0x1fe38…1fe4c Head {h00=0x0010, h01=0x0050, text=»SH110 EQU * «, t00=0x0146, t01=0x0132}
0x1fe4c…1fe68 Head {h00=0x0018, h01=0x0050, text=» LDR* A4,A15 POP A4 «, t00=0x0146, t01=0x0146}
0x1fe68…1fe7c Head {h00=0x0010, h01=0x0050, text=»SH120 EQU * «, t00=0x0146, t01=0x0162}
0x1fe7c…1fe98 Head {h00=0x0018, h01=0x0050, text=» LDR* A3,A15 POP A3 «, t00=0x0146, t01=0x0176}
0x1fe98…1fea2 (327, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0147, t01=0x0004}
0x1fea2…1feb8 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0147, t01=0x000e}
0x1feb8…1fed4 Head {h00=0x0018, h01=0x0050, text=» ADKL A15,2 SKIP PSW«, t00=0x0147, t01=0x0024}
0x1fed4…1feee Head {h00=0x0016, h01=0x0050, text=» LDR* P,A15 RETURN«, t00=0x0147, t01=0x0040}
0x1feee…1fefa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0147, t01=0x005a}
0x1fefa…1ff10 Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0147, t01=0x0066}
0x1ff10…1ff20 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0147, t01=0x007c}
0x1ff20…1ff2c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0147, t01=0x008c}
0x1ff2c…1ff36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0147, t01=0x0098}
0x1ff36…1ff44 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0147, t01=0x00a2}
0x1ff44…1ff4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0147, t01=0x00b0}
0x1ff4e…1ff92 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0147, t01=0x00ba}
0x1ff92…1ff9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0147, t01=0x00fe}
0x1ff9c…1ffb4 Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0147, t01=0x0108}
0x1ffb4…1ffc4 Head {h00=0x000c, h01=0x0050, text=»* GETSTA«, t00=0x0147, t01=0x0120}
0x1ffc4…1ffce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0147, t01=0x0130}
0x1ffce…1ffe2 Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0147, t01=0x013a}
0x1ffe2…20016 Head {h00=0x0030, h01=0x0050, text=»* THIS ROUTINE WILL CHECK THE I/O STATUS FOR«, t00=0x0147, t01=0x014e}
0x20016…2002a Head {h00=0x0010, h01=0x0050, text=»* A DEVICE. «, t00=0x0147, t01=0x0182}
0x2002a…2005e Head {h00=0x0030, h01=0x0050, text=»* GETWSS WILL ONLY CHECK THE STATUS FOR THE «, t00=0x0148, t01=0x0008}
0x2005e…20080 Head {h00=0x001e, h01=0x0050, text=»* WORK STATION CONNECTION.«, t00=0x0148, t01=0x003c}
0x20080…200b4 Head {h00=0x0030, h01=0x0050, text=»* GETLCS WILL CHECK BOTH LOGICAL CHANNEL AND«, t00=0x0148, t01=0x005e}
0x200b4…200d2 Head {h00=0x001a, h01=0x0050, text=»* WORK STATION STATUS.«, t00=0x0148, t01=0x0092}
0x200d2…200dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0148, t01=0x00b0}
0x200dc…200ec Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0148, t01=0x00ba}
0x200ec…20104 Head {h00=0x0014, h01=0x0050, text=»* CF A15,GETLCS «, t00=0x0148, t01=0x00ca}
0x20104…2011c Head {h00=0x0014, h01=0x0050, text=»* CF A15,GETWSS «, t00=0x0148, t01=0x00e2}
0x2011c…20126 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0148, t01=0x00fa}
0x20126…20136 Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0148, t01=0x0104}
0x20136…20152 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x0148, t01=0x0114}
0x20152…2016e Head {h00=0x0018, h01=0x0050, text=»* A6 = DWT ADDRESS «, t00=0x0148, t01=0x0130}
0x2016e…20178 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0148, t01=0x014c}
0x20178…2018a Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0148, t01=0x0156}
0x2018a…201a6 Head {h00=0x0018, h01=0x0050, text=»* A1 = RETURN CODE «, t00=0x0148, t01=0x0168}
0x201a6…201c4 Head {h00=0x001a, h01=0x0050, text=»* CR = CONTENTS OF A1«, t00=0x0148, t01=0x0184}
0x201c4…201e0 Head {h00=0x0018, h01=0x0050, text=»* INTERR. INHIBITED «, t00=0x0149, t01=0x0012}
0x201e0…201ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0149, t01=0x002e}
0x201ea…2022e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0149, t01=0x0038}
0x2022e…20238 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0149, t01=0x007c}
0x20238…2024c Head {h00=0x0010, h01=0x0050, text=»GETLCS EQU *«, t00=0x0149, t01=0x0086}
0x2024c…20258 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0149, t01=0x009a}
0x20258…20274 Head {h00=0x0018, h01=0x0050, text=» STR A3,A15 PUSH A3 «, t00=0x0149, t01=0x00a6}
0x20274…2027e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0149, t01=0x00c2}
0x2027e…202ac Head {h00=0x002a, h01=0x0050, text=» LDK A1,LINERR SET RETURN CODE IN CASE«, t00=0x0149, t01=0x00cc}
0x202ac…202ce Head {h00=0x001e, h01=0x0050, text=» LD A3,DWTST,A6 DWT STATUS«, t00=0x0149, t01=0x00fa}
0x202ce…202fc Head {h00=0x002a, h01=0x0050, text=» ANK A3,DWFRES RESET PACKET RECIEVED? «, t00=0x0149, t01=0x011c}
0x202fc…20330 Head {h00=0x0030, h01=0x0050, text=» RF(NZ) LS110 YES, RETURN. RET CODE = LINERR«, t00=0x0149, t01=0x014a}
0x20330…20356 Head {h00=0x0022, h01=0x0050, text=» RF LS100 NOT RESET. CHECK WSS«, t00=0x0149, t01=0x017e}
0x20356…20360 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014a, t01=0x0014}
0x20360…2036a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014a, t01=0x001e}
0x2036a…2037e Head {h00=0x0010, h01=0x0050, text=»GETWSS EQU *«, t00=0x014a, t01=0x0028}
0x2037e…2038a Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x014a, t01=0x003c}
0x2038a…203a6 Head {h00=0x0018, h01=0x0050, text=» STR A3,A15 PUSH A3 «, t00=0x014a, t01=0x0048}
0x203a6…203b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014a, t01=0x0064}
0x203b0…203ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014a, t01=0x006e}
0x203ba…203ce Head {h00=0x0010, h01=0x0050, text=»LS100 EQU * «, t00=0x014a, t01=0x0078}
0x203ce…203f0 Head {h00=0x001e, h01=0x0050, text=» LC A3,DWTCP2,A6 WS NUMBER«, t00=0x014a, t01=0x008c}
0x203f0…2040c Head {h00=0x0018, h01=0x0050, text=» ANK A3,MASKWS CLEAN«, t00=0x014a, t01=0x00ae}
0x2040c…20428 Head {h00=0x0018, h01=0x0050, text=» SLA A3,1 MAKE INDEX«, t00=0x014a, t01=0x00ca}
0x20428…20446 Head {h00=0x001a, h01=0x0050, text=» ADR A3,A5 CWT ADDRESS«, t00=0x014a, t01=0x00e6}
0x20446…20468 Head {h00=0x001e, h01=0x0050, text=» LC A1,CWTWSS,A3 WS STATUS«, t00=0x014a, t01=0x0104}
0x20468…20472 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014a, t01=0x0126}
0x20472…2047c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014a, t01=0x0130}
0x2047c…20490 Head {h00=0x0010, h01=0x0050, text=»LS110 EQU * «, t00=0x014a, t01=0x013a}
0x20490…204ac Head {h00=0x0018, h01=0x0050, text=» LDR* A3,A15 POP A3 «, t00=0x014a, t01=0x014e}
0x204ac…204cc Head {h00=0x001c, h01=0x0050, text=» ADKL A15,4 ADJUST STACK«, t00=0x014a, t01=0x016a}
0x204cc…204fa Head {h00=0x002a, h01=0x0050, text=» ANK A1,/FF CLEAN RETURN CODE & SET CR«, t00=0x014a, t01=0x018a}
0x204fa…20512 Head {h00=0x0014, h01=0x0050, text=» ABR* A15 RETURN«, t00=0x014b, t01=0x0028}
0x20512…2051c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014b, t01=0x0040}
0x2051c…2052a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x014b, t01=0x004a}
0x2052a…20534 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014b, t01=0x0058}
0x20534…20578 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x014b, t01=0x0062}
0x20578…20582 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014b, t01=0x00a6}
0x20582…2059a Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x014b, t01=0x00b0}
0x2059a…205aa Head {h00=0x000c, h01=0x0050, text=»* PLGTBU«, t00=0x014b, t01=0x00c8}
0x205aa…205b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014b, t01=0x00d8}
0x205b4…205c8 Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x014b, t01=0x00e2}
0x205c8…20604 Head {h00=0x0038, h01=0x0050, text=»* THIS ROUTINE WILL ALLOCATE A BUFFER AND FORMAT IT «, t00=0x014b, t01=0x00f6}
0x20604…2063a Head {h00=0x0032, h01=0x0050, text=»* ACCORDING TO THE FORMAT USED BY THIS DRIVER.«, t00=0x014b, t01=0x0132}
0x2063a…20644 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014b, t01=0x0168}
0x20644…20654 Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x014b, t01=0x0172}
0x20654…2066c Head {h00=0x0014, h01=0x0050, text=»* CF A15,PLGTBU «, t00=0x014b, t01=0x0182}
0x2066c…20676 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014c, t01=0x000a}
0x20676…20686 Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x014c, t01=0x0014}
0x20686…206a8 Head {h00=0x001e, h01=0x0050, text=»* A7 = POOLBLOCK ADDRESS «, t00=0x014c, t01=0x0024}
0x206a8…206b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014c, t01=0x0046}
0x206b2…206c4 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x014c, t01=0x0050}
0x206c4…206f2 Head {h00=0x002a, h01=0x0050, text=»* A2 = LENGTH OF USER PART OF BUFFER «, t00=0x014c, t01=0x0062}
0x206f2…20728 Head {h00=0x0032, h01=0x0050, text=»* A4 = START OF USER PART OF BUFFER (IF ANY) «, t00=0x014c, t01=0x0090}
0x20728…20752 Head {h00=0x0026, h01=0x0050, text=»* CR = NOT 0 IF BUFFER ALLOCATED «, t00=0x014c, t01=0x00c6}
0x20752…20776 Head {h00=0x0020, h01=0x0050, text=»* 0 IF NO BUFFER ALLOCATED «, t00=0x014c, t01=0x00f0}
0x20776…20792 Head {h00=0x0018, h01=0x0050, text=»* INTERR. INHIBITED «, t00=0x014c, t01=0x0114}
0x20792…2079c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014c, t01=0x0130}
0x2079c…207e0 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x014c, t01=0x013a}
0x207e0…207ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014c, t01=0x017e}
0x207ea…207fe Head {h00=0x0010, h01=0x0050, text=»PLGTBU EQU *«, t00=0x014c, t01=0x0188}
0x207fe…2081c Head {h00=0x001a, h01=0x0050, text=» LDR* A2,A15 SKIP PSW «, t00=0x014d, t01=0x000c}
0x2081c…20844 Head {h00=0x0024, h01=0x0050, text=» LDR* A2,A15 GET RETURN ADDRESS «, t00=0x014d, t01=0x002a}
0x20844…2086c Head {h00=0x0024, h01=0x0050, text=» CF A15,GETBUF A4 := BUFFER. INH«, t00=0x014d, t01=0x0052}
0x2086c…20892 Head {h00=0x0022, h01=0x0050, text=» ABR(Z) A2 RETURN IF NO BUFFER«, t00=0x014d, t01=0x007a}
0x20892…2089c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014d, t01=0x00a0}
0x2089c…208c4 Head {h00=0x0024, h01=0x0050, text=» ST A2,0,A15 SAVE RETURN ADDRESS«, t00=0x014d, t01=0x00aa}
0x208c4…208ee Head {h00=0x0026, h01=0x0050, text=» ADK A4,BUFHLN START OF USER PART «, t00=0x014d, t01=0x00d2}
0x208ee…2091e Head {h00=0x002c, h01=0x0050, text=» ST A7,BUFLNK,A4 SAVE POOLBLOCK ADDRESS «, t00=0x014d, t01=0x00fc}
0x2091e…20942 Head {h00=0x0020, h01=0x0050, text=» LD A2,POBBUS,A7 BUFFER SIZE«, t00=0x014d, t01=0x012c}
0x20942…20972 Head {h00=0x002c, h01=0x0050, text=» SUK A2,BUFHLN A2 := LENGTH OF USER PART«, t00=0x014d, t01=0x0150}
0x20972…20996 Head {h00=0x0020, h01=0x0050, text=» RF(P) GU100 CONTINUE IF OK «, t00=0x014d, t01=0x0180}
0x20996…209ca Head {h00=0x0030, h01=0x0050, text=» ANK A2,0 TOO SHORT. BUFFER LENGTH & CR := 0«, t00=0x014e, t01=0x0014}
0x209ca…209de Head {h00=0x0010, h01=0x0050, text=»GU100 EQU * «, t00=0x014e, t01=0x0048}
0x209de…20a0a Head {h00=0x0028, h01=0x0050, text=» ST A2,BUFLEN,A4 USER BUFFER LENGTH «, t00=0x014e, t01=0x005c}
0x20a0a…20a22 Head {h00=0x0014, h01=0x0050, text=» ABR* A15 RETURN«, t00=0x014e, t01=0x0088}
0x20a22…20a2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014e, t01=0x00a0}
0x20a2c…20a3a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x014e, t01=0x00aa}
0x20a3a…20a44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014e, t01=0x00b8}
0x20a44…20a88 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x014e, t01=0x00c2}
0x20a88…20a92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014e, t01=0x0106}
0x20a92…20aaa Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x014e, t01=0x0110}
0x20aaa…20aba Head {h00=0x000c, h01=0x0050, text=»* PLRLBU«, t00=0x014e, t01=0x0128}
0x20aba…20ac4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014e, t01=0x0138}
0x20ac4…20ad8 Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x014e, t01=0x0142}
0x20ad8…20b0c Head {h00=0x0030, h01=0x0050, text=»* THIS ROUTINE RELEASES AN I/O BUFFER OF THE«, t00=0x014e, t01=0x0156}
0x20b0c…20b32 Head {h00=0x0022, h01=0x0050, text=»* FORMAT USED BY THIS DRIVER. «, t00=0x014e, t01=0x018a}
0x20b32…20b3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x0020}
0x20b3c…20b4c Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x014f, t01=0x002a}
0x20b4c…20b64 Head {h00=0x0014, h01=0x0050, text=»* CF A15,PLRLBU «, t00=0x014f, t01=0x003a}
0x20b64…20b6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x0052}
0x20b6e…20b7e Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x014f, t01=0x005c}
0x20b7e…20b9c Head {h00=0x001a, h01=0x0050, text=»* A4 = BUFFER ADDRESS«, t00=0x014f, t01=0x006c}
0x20b9c…20ba6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x008a}
0x20ba6…20bb8 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x014f, t01=0x0094}
0x20bb8…20bd0 Head {h00=0x0014, h01=0x0050, text=»* A4 = CHANGED «, t00=0x014f, t01=0x00a6}
0x20bd0…20be8 Head {h00=0x0014, h01=0x0050, text=»* CR = CHANGED «, t00=0x014f, t01=0x00be}
0x20be8…20c0e Head {h00=0x0022, h01=0x0050, text=»* INTERR. INHIBITED IF CPU 852«, t00=0x014f, t01=0x00d6}
0x20c0e…20c18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x00fc}
0x20c18…20c5c Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x014f, t01=0x0106}
0x20c5c…20c66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x014a}
0x20c66…20c7a Head {h00=0x0010, h01=0x0050, text=»PLRLBU EQU *«, t00=0x014f, t01=0x0154}
0x20c7a…20c96 Head {h00=0x0018, h01=0x0050, text=» STR A7,A15 PUSH A7 «, t00=0x014f, t01=0x0168}
0x20c96…20cc0 Head {h00=0x0026, h01=0x0050, text=» LD A7,BUFLNK,A4 POOLBLOCK ADDRESS«, t00=0x014f, t01=0x0184}
0x20cc0…20cf6 Head {h00=0x0032, h01=0x0050, text=» SUK A4,BUFHLN A4 :- PHYSICAL START OF BUFFER «, t00=0x0150, t01=0x001e}
0x20cf6…20d22 Head {h00=0x0028, h01=0x0050, text=» CF A15,RELBUF RELEASE BUFFER & INH «, t00=0x0150, t01=0x0054}
0x20d22…20d3e Head {h00=0x0018, h01=0x0050, text=» LDR* A7,A15 POP A7 «, t00=0x0150, t01=0x0080}
0x20d3e…20d48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0150, t01=0x009c}
0x20d48…20d5e Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0150, t01=0x00a6}
0x20d5e…20d7a Head {h00=0x0018, h01=0x0050, text=» ADKL A15,2 SKIP PSW«, t00=0x0150, t01=0x00bc}
0x20d7a…20d94 Head {h00=0x0016, h01=0x0050, text=» LDR* P,A15 RETURN«, t00=0x0150, t01=0x00d8}
0x20d94…20da0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0150, t01=0x00f2}
0x20da0…20db6 Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0150, t01=0x00fe}
0x20db6…20dc6 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0150, t01=0x0114}
0x20dc6…20dd2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0150, t01=0x0124}
0x20dd2…20de0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0150, t01=0x0130}
0x20de0…20dea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0150, t01=0x013e}
0x20dea…20e2e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0150, t01=0x0148}
0x20e2e…20e38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0150, t01=0x018c}
0x20e38…20e50 Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0151, t01=0x0008}
0x20e50…20e60 Head {h00=0x000c, h01=0x0050, text=»* PLCHAR«, t00=0x0151, t01=0x0020}
0x20e60…20e6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0151, t01=0x0030}
0x20e6a…20e7e Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0151, t01=0x003a}
0x20e7e…20eb2 Head {h00=0x0030, h01=0x0050, text=»* THESE ROUTINES ARE USED TO GET A CHARACTER«, t00=0x0151, t01=0x004e}
0x20eb2…20eea Head {h00=0x0034, h01=0x0050, text=»* FROM A BUFFER OR PUT A CHARACTER IN A BUFFER. «, t00=0x0151, t01=0x0082}
0x20eea…20f22 Head {h00=0x0034, h01=0x0050, text=»* THE BUFFER SHOULD HAVE A HEADER OF THE NORMAL «, t00=0x0151, t01=0x00ba}
0x20f22…20f54 Head {h00=0x002e, h01=0x0050, text=»* PLC FORMAT (SE "BUFFER LAYOUT" CONSTANT «, t00=0x0151, t01=0x00f2}
0x20f54…20f6a Head {h00=0x0012, h01=0x0050, text=»* DEFINITION).«, t00=0x0151, t01=0x0124}
0x20f6a…20f74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0151, t01=0x013a}
0x20f74…20f84 Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0151, t01=0x0144}
0x20f84…20f9c Head {h00=0x0014, h01=0x0050, text=»* CF A15,PLGECH «, t00=0x0151, t01=0x0154}
0x20f9c…20fb4 Head {h00=0x0014, h01=0x0050, text=»* CF A15,PLPUCH «, t00=0x0151, t01=0x016c}
0x20fb4…20fbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0151, t01=0x0184}
0x20fbe…20fce Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0151, t01=0x018e}
0x20fce…20fea Head {h00=0x0018, h01=0x0050, text=»* A2 = IF PUT CHAR «, t00=0x0152, t01=0x000e}
0x20fea…21008 Head {h00=0x001a, h01=0x0050, text=»* BITS 0-7 IRRELEVANT«, t00=0x0152, t01=0x002a}
0x21008…21026 Head {h00=0x001a, h01=0x0050, text=»* BITS 8-15 CHARACTER«, t00=0x0152, t01=0x0048}
0x21026…21044 Head {h00=0x001a, h01=0x0050, text=»* A4 = BUFFER ADDRESS«, t00=0x0152, t01=0x0066}
0x21044…2104e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0152, t01=0x0084}
0x2104e…21060 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0152, t01=0x008e}
0x21060…2107c Head {h00=0x0018, h01=0x0050, text=»* A1 = RETURN CODE «, t00=0x0152, t01=0x00a0}
0x2107c…210a6 Head {h00=0x0026, h01=0x0050, text=»* -1 IF OVERFLOW/UNDERFLOW, ELSE «, t00=0x0152, t01=0x00bc}
0x210a6…210be Head {h00=0x0014, h01=0x0050, text=»* AT PLPUCH: 0«, t00=0x0152, t01=0x00e6}
0x210be…210ee Head {h00=0x002c, h01=0x0050, text=»* AT PLGECH: NR OF CHAR LEFT IN BUFFER«, t00=0x0152, t01=0x00fe}
0x210ee…21112 Head {h00=0x0020, h01=0x0050, text=»* A2 = IF PLGECH & A1>=0 : «, t00=0x0152, t01=0x012e}
0x21112…2112a Head {h00=0x0014, h01=0x0050, text=»* BITS 0-7 ZERO«, t00=0x0152, t01=0x0152}
0x2112a…21148 Head {h00=0x001a, h01=0x0050, text=»* BITS 8-15 CHARACTER«, t00=0x0152, t01=0x016a}
0x21148…21164 Head {h00=0x0018, h01=0x0050, text=»* INTERR. INHIBITED «, t00=0x0152, t01=0x0188}
0x21164…2116e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0153, t01=0x0014}
0x2116e…211b2 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0153, t01=0x001e}
0x211b2…211bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0153, t01=0x0062}
0x211bc…211ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0153, t01=0x006c}
0x211ca…211d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0153, t01=0x007a}
0x211d4…211e8 Head {h00=0x0010, h01=0x0050, text=»PLGECH EQU *«, t00=0x0153, t01=0x0084}
0x211e8…211f4 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0153, t01=0x0098}
0x211f4…211fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0153, t01=0x00a4}
0x211fe…21230 Head {h00=0x002e, h01=0x0050, text=» LD A1,BUFLEN,A4 LENGTH OF TEXT IN BUFFER «, t00=0x0153, t01=0x00ae}
0x21230…21254 Head {h00=0x0020, h01=0x0050, text=» LD A2,BUFBIX,A4 BYTE INDEX «, t00=0x0153, t01=0x00e0}
0x21254…21266 Head {h00=0x000e, h01=0x0050, text=» SUR A1,A2«, t00=0x0153, t01=0x0104}
0x21266…2128e Head {h00=0x0024, h01=0x0050, text=» SUK A1,1 A1 := NR OF CHAR LEFT «, t00=0x0153, t01=0x0116}
0x2128e…212b4 Head {h00=0x0022, h01=0x0050, text=» RF(N) CH100 EXIT IF UNDERFLOW«, t00=0x0153, t01=0x013e}
0x212b4…212da Head {h00=0x0022, h01=0x0050, text=» IM BUFBIX,A4 INCREMENT INDEX «, t00=0x0153, t01=0x0164}
0x212da…2130a Head {h00=0x002c, h01=0x0050, text=» ADR A2,A4 ABSOLUTE ADDRESS OF CHARACTER«, t00=0x0153, t01=0x018a}
0x2130a…2132a Head {h00=0x001c, h01=0x0050, text=» LCR A2,A2 GET CHARACTER«, t00=0x0154, t01=0x002a}
0x2132a…21344 Head {h00=0x0016, h01=0x0050, text=» ANK A2,/FF CLEAN «, t00=0x0154, t01=0x004a}
0x21344…2134e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0154, t01=0x0064}
0x2134e…2136c Head {h00=0x001a, h01=0x0050, text=» RF CH110 NORMAL EXIT «, t00=0x0154, t01=0x006e}
0x2136c…21376 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0154, t01=0x008c}
0x21376…21380 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0154, t01=0x0096}
0x21380…21394 Head {h00=0x0010, h01=0x0050, text=»PLPUCH EQU *«, t00=0x0154, t01=0x00a0}
0x21394…213a0 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0154, t01=0x00b4}
0x213a0…213aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0154, t01=0x00c0}
0x213aa…213ce Head {h00=0x0020, h01=0x0050, text=» LD A1,BUFBIX,A4 BYTE INDEX «, t00=0x0154, t01=0x00ca}
0x213ce…213f6 Head {h00=0x0024, h01=0x0050, text=» CW A1,BUFLEN,A4 OUTSIDE BUFFER?«, t00=0x0154, t01=0x00ee}
0x213f6…21416 Head {h00=0x001c, h01=0x0050, text=» RF(NL) CH100 YES, ERROR«, t00=0x0154, t01=0x0116}
0x21416…2143c Head {h00=0x0022, h01=0x0050, text=» IM BUFBIX,A4 INCREMENT INDEX «, t00=0x0154, t01=0x0136}
0x2143c…21464 Head {h00=0x0024, h01=0x0050, text=» ADR A1,A4 FREE PLACE IN BUFFER «, t00=0x0154, t01=0x015c}
0x21464…2148e Head {h00=0x0026, h01=0x0050, text=» SCR A2,A1 PUT CHARACTER IN BUFFER«, t00=0x0154, t01=0x0184}
0x2148e…214b2 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RETURN CODE := OK «, t00=0x0155, t01=0x001e}
0x214b2…214d0 Head {h00=0x001a, h01=0x0050, text=» RF CH110 NORMAL EXIT «, t00=0x0155, t01=0x0042}
0x214d0…214da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0155, t01=0x0060}
0x214da…214e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0155, t01=0x006a}
0x214e4…214f8 Head {h00=0x0010, h01=0x0050, text=»CH100 EQU * «, t00=0x0155, t01=0x0074}
0x214f8…21520 Head {h00=0x0024, h01=0x0050, text=» LDKL A1,-1 RETURN CODE := ERROR«, t00=0x0155, t01=0x0088}
0x21520…21534 Head {h00=0x0010, h01=0x0050, text=»CH110 EQU * «, t00=0x0155, t01=0x00b0}
0x21534…21554 Head {h00=0x001c, h01=0x0050, text=» ADKL A15,4 ADJUST STACK«, t00=0x0155, t01=0x00c4}
0x21554…2156c Head {h00=0x0014, h01=0x0050, text=» ABR* A15 RETURN«, t00=0x0155, t01=0x00e4}
0x2156c…21576 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0155, t01=0x00fc}
0x21576…21584 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0155, t01=0x0106}
0x21584…2158e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0155, t01=0x0114}
0x2158e…215d2 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0155, t01=0x011e}
0x215d2…215dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0155, t01=0x0162}
0x215dc…215f4 Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0155, t01=0x016c}
0x215f4…21604 Head {h00=0x000c, h01=0x0050, text=»* INTYPE«, t00=0x0155, t01=0x0184}
0x21604…2160e (342, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0156, t01=0x0004}
0x2160e…21622 Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0156, t01=0x000e}
0x21622…2165a Head {h00=0x0034, h01=0x0050, text=»* THIS ROUTINE CHECKS A GENERAL READ ANSWER FROM«, t00=0x0156, t01=0x0022}
0x2165a…2168a Head {h00=0x002c, h01=0x0050, text=»* THE PLC TO DETERMINE TYPE OF MESSAGE. «, t00=0x0156, t01=0x005a}
0x2168a…21694 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0156, t01=0x008a}
0x21694…216a4 Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0156, t01=0x0094}
0x216a4…216bc Head {h00=0x0014, h01=0x0050, text=»* CF A15,INTYPE «, t00=0x0156, t01=0x00a4}
0x216bc…216c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0156, t01=0x00bc}
0x216c6…216d6 Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0156, t01=0x00c6}
0x216d6…216f2 Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x0156, t01=0x00d6}
0x216f2…216fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0156, t01=0x00f2}
0x216fc…2170e Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0156, t01=0x00fc}
0x2170e…21726 Head {h00=0x0014, h01=0x0050, text=»* A2 = CHANGED «, t00=0x0156, t01=0x010e}
0x21726…2173a Head {h00=0x0010, h01=0x0050, text=»* A3 = TYPE«, t00=0x0156, t01=0x0126}
0x2173a…21752 Head {h00=0x0014, h01=0x0050, text=»* A4 = CHANGED «, t00=0x0156, t01=0x013a}
0x21752…2176a Head {h00=0x0014, h01=0x0050, text=»* CR = CHANGED «, t00=0x0156, t01=0x0152}
0x2176a…21774 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0156, t01=0x016a}
0x21774…217b8 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0156, t01=0x0174}
0x217b8…217c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0157, t01=0x0028}
0x217c2…217d6 Head {h00=0x0010, h01=0x0050, text=»INTYPE EQU *«, t00=0x0157, t01=0x0032}
0x217d6…21802 Head {h00=0x0028, h01=0x0050, text=» LDK A2,X25DAT MINIMUM INPUT LENGTH «, t00=0x0157, t01=0x0046}
0x21802…21834 Head {h00=0x002e, h01=0x0050, text=» CW A2,CWTRCA+CCRLEN,A5 LENGTH >= MINIMUM?«, t00=0x0157, t01=0x0072}
0x21834…21852 Head {h00=0x001a, h01=0x0050, text=» RF(G) ITERR NO, ERROR«, t00=0x0157, t01=0x00a4}
0x21852…2185c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0157, t01=0x00c2}
0x2185c…2186a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0157, t01=0x00cc}
0x2186a…21874 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0157, t01=0x00da}
0x21874…218a2 Head {h00=0x002a, h01=0x0050, text=» LD A3,CWTRCA+CCRBUF,A5 BUFFER ADDRESS«, t00=0x0157, t01=0x00e4}
0x218a2…218c8 Head {h00=0x0022, h01=0x0050, text=» LC A2,X25LGN,A3 GROUP NUMBER «, t00=0x0157, t01=0x0112}
0x218c8…218e0 Head {h00=0x0014, h01=0x0050, text=» LDR A4,A2 SAVE «, t00=0x0157, t01=0x0138}
0x218e0…218fa Head {h00=0x0016, h01=0x0050, text=» ANK A4,/0F CLEAN «, t00=0x0157, t01=0x0150}
0x218fa…2191e Head {h00=0x0020, h01=0x0050, text=» RF(NZ) IT120 NOT GROUP ZERO«, t00=0x0157, t01=0x016a}
0x2191e…21928 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0157, t01=0x018e}
0x21928…2195a Head {h00=0x002e, h01=0x0050, text=»* CHANNEL GROUP ZERO. NORMAL MESSAGES. «, t00=0x0158, t01=0x0008}
0x2195a…21984 Head {h00=0x0026, h01=0x0050, text=» LC A3,X25FLW,A3 FLOW CONTROL BYTE«, t00=0x0158, t01=0x003a}
0x21984…2199c Head {h00=0x0014, h01=0x0050, text=» LDR A4,A3 SAVE «, t00=0x0158, t01=0x0064}
0x2199c…219b4 Head {h00=0x0014, h01=0x0050, text=» ANK A4,/01 FLAG«, t00=0x0158, t01=0x007c}
0x219b4…219da Head {h00=0x0022, h01=0x0050, text=» RF(NZ) IT100 NOT DATA PACKET «, t00=0x0158, t01=0x0094}
0x219da…21a04 Head {h00=0x0026, h01=0x0050, text=» LDK A3,TYDATA ASSUME NORMAL DATA «, t00=0x0158, t01=0x00ba}
0x21a04…21a28 Head {h00=0x0020, h01=0x0050, text=» ANK A2,/80 QUALIFY BIT SET?«, t00=0x0158, t01=0x00e4}
0x21a28…21a54 Head {h00=0x0028, h01=0x0050, text=» RF(Z) ITEXIT NO, NORMAL DATA. EXIT «, t00=0x0158, t01=0x0108}
0x21a54…21a7e Head {h00=0x0026, h01=0x0050, text=» LDK A3,TYSTAT YES, STATUS MESSAGE«, t00=0x0158, t01=0x0134}
0x21a7e…21a96 Head {h00=0x0014, h01=0x0050, text=» RF ITEXIT EXIT «, t00=0x0158, t01=0x015e}
0x21a96…21aa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0158, t01=0x0176}
0x21aa0…21ab4 Head {h00=0x0010, h01=0x0050, text=»IT100 EQU * «, t00=0x0158, t01=0x0180}
0x21ab4…21ade (345, 0, 400) Head {h00=0x0026, h01=0x0050, text=» LDR A4,A3 SAVE FLOW CONTROL BYTE «, t00=0x0159, t01=0x0004}
0x21ade…21b00 Head {h00=0x001e, h01=0x0050, text=» ANK A3,/02 RECIEVE READY?«, t00=0x0159, t01=0x002e}
0x21b00…21b18 Head {h00=0x0014, h01=0x0050, text=» RF(NZ) IT110 NO«, t00=0x0159, t01=0x0050}
0x21b18…21b42 Head {h00=0x0026, h01=0x0050, text=» LDK A3,TYRR TYPE := RECIEVE READY«, t00=0x0159, t01=0x0068}
0x21b42…21b5a Head {h00=0x0014, h01=0x0050, text=» RF ITEXIT EXIT «, t00=0x0159, t01=0x0092}
0x21b5a…21b64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0159, t01=0x00aa}
0x21b64…21b78 Head {h00=0x0010, h01=0x0050, text=»IT110 EQU * «, t00=0x0159, t01=0x00b4}
0x21b78…21ba2 Head {h00=0x0026, h01=0x0050, text=» LDK A3,TYRES ASSUME TYPE = RESET «, t00=0x0159, t01=0x00c8}
0x21ba2…21bc2 Head {h00=0x001c, h01=0x0050, text=» ANK A4,/04 IS IT RESET?«, t00=0x0159, t01=0x00f2}
0x21bc2…21be2 Head {h00=0x001c, h01=0x0050, text=» RF(Z) ITEXIT YES, EXIT «, t00=0x0159, t01=0x0112}
0x21be2…21c18 Head {h00=0x0032, h01=0x0050, text=» LDK A3,TYRESC NO, TYPE := RESET CONFIRMATION «, t00=0x0159, t01=0x0132}
0x21c18…21c30 Head {h00=0x0014, h01=0x0050, text=» RF ITEXIT EXIT «, t00=0x0159, t01=0x0168}
0x21c30…21c3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0159, t01=0x0180}
0x21c3a…21c48 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0159, t01=0x018a}
0x21c48…21c52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015a, t01=0x0008}
0x21c52…21c66 Head {h00=0x0010, h01=0x0050, text=»IT120 EQU * «, t00=0x015a, t01=0x0012}
0x21c66…21c86 Head {h00=0x001c, h01=0x0050, text=»* NOT NORMAL MESSAGE «, t00=0x015a, t01=0x0026}
0x21c86…21cba Head {h00=0x0030, h01=0x0050, text=» LDK A3,TYNFLO ASSUME TYPE = NO FLOW CONTROL«, t00=0x015a, t01=0x0046}
0x21cba…21ce2 Head {h00=0x0024, h01=0x0050, text=» SUK A4,1 IS IT NO FLOW CONTROL?«, t00=0x015a, t01=0x007a}
0x21ce2…21d02 Head {h00=0x001c, h01=0x0050, text=» RF(Z) ITEXIT YES, EXIT «, t00=0x015a, t01=0x00a2}
0x21d02…21d0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015a, t01=0x00c2}
0x21d0c…21d20 Head {h00=0x0010, h01=0x0050, text=»ITERR EQU * «, t00=0x015a, t01=0x00cc}
0x21d20…21d4a Head {h00=0x0026, h01=0x0050, text=» LDK A3,TYERR IRRECOVERABLE ERROR «, t00=0x015a, t01=0x00e0}
0x21d4a…21d54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015a, t01=0x010a}
0x21d54…21d68 Head {h00=0x0010, h01=0x0050, text=»ITEXIT EQU *«, t00=0x015a, t01=0x0114}
0x21d68…21d7e Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x015a, t01=0x0128}
0x21d7e…21d9a Head {h00=0x0018, h01=0x0050, text=» ADKL A15,2 SKIP PSW«, t00=0x015a, t01=0x013e}
0x21d9a…21db4 Head {h00=0x0016, h01=0x0050, text=» LDR* P,A15 RETURN«, t00=0x015a, t01=0x015a}
0x21db4…21dc0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x015a, t01=0x0174}
0x21dc0…21dd6 Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x015a, t01=0x0180}
0x21dd6…21de6 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x015b, t01=0x0008}
0x21de6…21df2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x015b, t01=0x0018}
0x21df2…21dfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015b, t01=0x0024}
0x21dfc…21e0a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x015b, t01=0x002e}
0x21e0a…21e14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015b, t01=0x003c}
0x21e14…21e58 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x015b, t01=0x0046}
0x21e58…21e62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015b, t01=0x008a}
0x21e62…21e7a Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x015b, t01=0x0094}
0x21e7a…21e8a Head {h00=0x000c, h01=0x0050, text=»* OUTBUQ«, t00=0x015b, t01=0x00ac}
0x21e8a…21e94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015b, t01=0x00bc}
0x21e94…21ea8 Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x015b, t01=0x00c6}
0x21ea8…21ee4 Head {h00=0x0038, h01=0x0050, text=»* THIS ROUTINE WILL REMOVE A DWT FROM THE QUEUES FOR«, t00=0x015b, t01=0x00da}
0x21ee4…21f1c Head {h00=0x0034, h01=0x0050, text=»* SHORT OR LONG OUTPUT BUFFERS, IF IT IS IN ANY «, t00=0x015b, t01=0x0116}
0x21f1c…21f34 Head {h00=0x0014, h01=0x0050, text=»* OF THE QUEUES.«, t00=0x015b, t01=0x014e}
0x21f34…21f3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015b, t01=0x0166}
0x21f3e…21f4e Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x015b, t01=0x0170}
0x21f4e…21f66 Head {h00=0x0014, h01=0x0050, text=»* CF A15,OUTBUQ «, t00=0x015b, t01=0x0180}
0x21f66…21f70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015c, t01=0x0008}
0x21f70…21f80 Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x015c, t01=0x0012}
0x21f80…21f9c Head {h00=0x0018, h01=0x0050, text=»* A5 = CWT ADDRESS «, t00=0x015c, t01=0x0022}
0x21f9c…21fb8 Head {h00=0x0018, h01=0x0050, text=»* A6 = DWT ADDRESS «, t00=0x015c, t01=0x003e}
0x21fb8…21fc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015c, t01=0x005a}
0x21fc2…21fd4 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x015c, t01=0x0064}
0x21fd4…21ff6 Head {h00=0x001e, h01=0x0050, text=»* A2 = NOT 0 IF DWT FOUND«, t00=0x015c, t01=0x0076}
0x21ff6…22014 Head {h00=0x001a, h01=0x0050, text=»* 0 IF DWT NOT FOUND«, t00=0x015c, t01=0x0098}
0x22014…2202c Head {h00=0x0014, h01=0x0050, text=»* A4 = CHANGED «, t00=0x015c, t01=0x00b6}
0x2202c…22044 Head {h00=0x0014, h01=0x0050, text=»* CR = CHANGED «, t00=0x015c, t01=0x00ce}
0x22044…2204e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015c, t01=0x00e6}
0x2204e…22092 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x015c, t01=0x00f0}
0x22092…2209c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015c, t01=0x0134}
0x2209c…220b0 Head {h00=0x0010, h01=0x0050, text=»OUTBUQ EQU *«, t00=0x015c, t01=0x013e}
0x220b0…220cc Head {h00=0x0018, h01=0x0050, text=» STR A1,A15 PUSH A1 «, t00=0x015c, t01=0x0152}
0x220cc…220e8 Head {h00=0x0018, h01=0x0050, text=» STR A7,A15 PUSH A7 «, t00=0x015c, t01=0x016e}
0x220e8…22106 Head {h00=0x001a, h01=0x0050, text=» LDR A4,A6 DWT ADDRESS«, t00=0x015c, t01=0x018a}
0x22106…22128 Head {h00=0x001e, h01=0x0050, text=» ADKL A4,DWTOTQ QUEUE LINK«, t00=0x015d, t01=0x0018}
0x22128…22132 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015d, t01=0x003a}
0x22132…22150 Head {h00=0x001a, h01=0x0050, text=» LDR A7,A5 CWT ADDRESS«, t00=0x015d, t01=0x0044}
0x22150…2217a Head {h00=0x0026, h01=0x0050, text=» ADK A7,CWTSBQ SHORT BUFFERS QUEUE«, t00=0x015d, t01=0x0062}
0x2217a…221a6 Head {h00=0x0028, h01=0x0050, text=» CF A15,LNKOUT REMOVE DWT FROM QUEUE«, t00=0x015d, t01=0x008c}
0x221a6…221c0 Head {h00=0x0016, h01=0x0050, text=» LDR A7,A7 FOUND? «, t00=0x015d, t01=0x00b8}
0x221c0…221e2 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) OB100 YES, RETURN «, t00=0x015d, t01=0x00d2}
0x221e2…221ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015d, t01=0x00f4}
0x221ec…221fe Head {h00=0x000e, h01=0x0050, text=» LDR A7,A5«, t00=0x015d, t01=0x00fe}
0x221fe…22228 Head {h00=0x0026, h01=0x0050, text=» ADKL A7,CWTLBQ LONG BUFFERS QUEUE«, t00=0x015d, t01=0x0110}
0x22228…22250 Head {h00=0x0024, h01=0x0050, text=» CF A15,LNKOUT REMOVE FROM QUEUE«, t00=0x015d, t01=0x013a}
0x22250…2225a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015d, t01=0x0162}
0x2225a…2226e Head {h00=0x0010, h01=0x0050, text=»OB100 EQU * «, t00=0x015d, t01=0x016c}
0x2226e…22298 Head {h00=0x0026, h01=0x0050, text=» LDR A2,A7 A2 := FOUND / NOT FOUND«, t00=0x015d, t01=0x0180}
0x22298…222a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015e, t01=0x001a}
0x222a2…222be Head {h00=0x0018, h01=0x0050, text=» LDR* A7,A15 POP A7 «, t00=0x015e, t01=0x0024}
0x222be…222da Head {h00=0x0018, h01=0x0050, text=» LDR* A1,A15 POP A1 «, t00=0x015e, t01=0x0040}
0x222da…222f0 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x015e, t01=0x005c}
0x222f0…2230c Head {h00=0x0018, h01=0x0050, text=» ADKL A15,2 SKIP PSW«, t00=0x015e, t01=0x0072}
0x2230c…22326 Head {h00=0x0016, h01=0x0050, text=» LDR* P,A15 RETURN«, t00=0x015e, t01=0x008e}
0x22326…22332 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x015e, t01=0x00a8}
0x22332…22348 Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x015e, t01=0x00b4}
0x22348…22358 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x015e, t01=0x00ca}
0x22358…22364 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x015e, t01=0x00da}
0x22364…2236e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015e, t01=0x00e6}
0x2236e…2237c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x015e, t01=0x00f0}
0x2237c…22386 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015e, t01=0x00fe}
0x22386…223ca Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x015e, t01=0x0108}
0x223ca…223d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015e, t01=0x014c}
0x223d4…223ec Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x015e, t01=0x0156}
0x223ec…223fc Head {h00=0x000c, h01=0x0050, text=»* LNKFST«, t00=0x015e, t01=0x016e}
0x223fc…22406 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015e, t01=0x017e}
0x22406…2241a Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x015e, t01=0x0188}
0x2241a…22450 Head {h00=0x0032, h01=0x0050, text=»* THIS ROUTINE LINKS A QUEUE ELEMENT FIRST IN «, t00=0x015f, t01=0x000c}
0x22450…2247a Head {h00=0x0026, h01=0x0050, text=»* A QUEUE (CLOSEST TO QUEUE HEAD).«, t00=0x015f, t01=0x0042}
0x2247a…224b0 Head {h00=0x0032, h01=0x0050, text=»* ONE WORD IN EACH ELEMENT IS USED AS A LINK. «, t00=0x015f, t01=0x006c}
0x224b0…224e6 Head {h00=0x0032, h01=0x0050, text=»* END OF QUEUE IS INDICATED BY LINK=0 IN LAST «, t00=0x015f, t01=0x00a2}
0x224e6…224f8 Head {h00=0x000e, h01=0x0050, text=»* ELEMENT.«, t00=0x015f, t01=0x00d8}
0x224f8…22502 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015f, t01=0x00ea}
0x22502…22512 Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x015f, t01=0x00f4}
0x22512…2252a Head {h00=0x0014, h01=0x0050, text=»* CF A15,LNKFST «, t00=0x015f, t01=0x0104}
0x2252a…22534 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015f, t01=0x011c}
0x22534…22544 Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x015f, t01=0x0126}
0x22544…2256e Head {h00=0x0026, h01=0x0050, text=»* A4 = QUEUE ELEMENT LINK ADDRESS«, t00=0x015f, t01=0x0136}
0x2256e…22596 Head {h00=0x0024, h01=0x0050, text=»* A7 = QUEUE HEAD LINK ADDRESS «, t00=0x015f, t01=0x0160}
0x22596…225a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015f, t01=0x0188}
0x225a0…225b2 (352, 0, 400) Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0160, t01=0x0004}
0x225b2…225ca Head {h00=0x0014, h01=0x0050, text=»* A1 = CHANGED «, t00=0x0160, t01=0x0016}
0x225ca…225e2 Head {h00=0x0014, h01=0x0050, text=»* CR = CHANGED «, t00=0x0160, t01=0x002e}
0x225e2…225ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0160, t01=0x0046}
0x225ec…22630 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0160, t01=0x0050}
0x22630…2263a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0160, t01=0x0094}
0x2263a…2264e Head {h00=0x0010, h01=0x0050, text=»LNKFST EQU *«, t00=0x0160, t01=0x009e}
0x2264e…22676 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A7 FIRST QUEUE ELEMENT «, t00=0x0160, t01=0x00b2}
0x22676…226a2 Head {h00=0x0028, h01=0x0050, text=» STR A1,A4 SET LINK FROM NEW ELEMENT«, t00=0x0160, t01=0x00da}
0x226a2…226ca Head {h00=0x0024, h01=0x0050, text=» STR A4,A7 SET NEW ELEMENT FIRST«, t00=0x0160, t01=0x0106}
0x226ca…226e0 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0160, t01=0x012e}
0x226e0…226fa Head {h00=0x0016, h01=0x0050, text=» RF LNKRET RETURN «, t00=0x0160, t01=0x0144}
0x226fa…22706 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0160, t01=0x015e}
0x22706…2271c Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0160, t01=0x016a}
0x2271c…2272c Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0160, t01=0x0180}
0x2272c…22738 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0160, t01=0x0190}
0x22738…22742 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0161, t01=0x000c}
0x22742…22750 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0161, t01=0x0016}
0x22750…2275a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0161, t01=0x0024}
0x2275a…2279e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0161, t01=0x002e}
0x2279e…227a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0161, t01=0x0072}
0x227a8…227c0 Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0161, t01=0x007c}
0x227c0…227d0 Head {h00=0x000c, h01=0x0050, text=»* LNKLST«, t00=0x0161, t01=0x0094}
0x227d0…227da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0161, t01=0x00a4}
0x227da…227ee Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0161, t01=0x00ae}
0x227ee…22822 Head {h00=0x0030, h01=0x0050, text=»* THIS ROUTINE LINKS A QUEUE ELEMENT LAST IN«, t00=0x0161, t01=0x00c2}
0x22822…22850 Head {h00=0x002a, h01=0x0050, text=»* A QUEUE (OPOSITE END TO QUEUE HEAD).«, t00=0x0161, t01=0x00f6}
0x22850…22886 Head {h00=0x0032, h01=0x0050, text=»* ONE WORD IN EACH ELEMENT IS USED AS A LINK. «, t00=0x0161, t01=0x0124}
0x22886…228bc Head {h00=0x0032, h01=0x0050, text=»* END OF QUEUE IS INDICATED BY LINK=0 IN LAST «, t00=0x0161, t01=0x015a}
0x228bc…228ce Head {h00=0x000e, h01=0x0050, text=»* ELEMENT.«, t00=0x0161, t01=0x0190}
0x228ce…228d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0162, t01=0x0012}
0x228d8…228e8 Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0162, t01=0x001c}
0x228e8…22900 Head {h00=0x0014, h01=0x0050, text=»* CF A15,LNKLST «, t00=0x0162, t01=0x002c}
0x22900…2290a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0162, t01=0x0044}
0x2290a…2291a Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0162, t01=0x004e}
0x2291a…22944 Head {h00=0x0026, h01=0x0050, text=»* A4 = QUEUE ELEMENT LINK ADDRESS«, t00=0x0162, t01=0x005e}
0x22944…2296c Head {h00=0x0024, h01=0x0050, text=»* A7 = QUEUE HEAD LINK ADDRESS «, t00=0x0162, t01=0x0088}
0x2296c…22976 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0162, t01=0x00b0}
0x22976…22988 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0162, t01=0x00ba}
0x22988…229a0 Head {h00=0x0014, h01=0x0050, text=»* A1 = CHANGED «, t00=0x0162, t01=0x00cc}
0x229a0…229b8 Head {h00=0x0014, h01=0x0050, text=»* A7 = CHANGED «, t00=0x0162, t01=0x00e4}
0x229b8…229d0 Head {h00=0x0014, h01=0x0050, text=»* CR = CHANGED «, t00=0x0162, t01=0x00fc}
0x229d0…229da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0162, t01=0x0114}
0x229da…22a1e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0162, t01=0x011e}
0x22a1e…22a28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0162, t01=0x0162}
0x22a28…22a3c Head {h00=0x0010, h01=0x0050, text=»LNKLST EQU *«, t00=0x0162, t01=0x016c}
0x22a3c…22a64 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A7 SAVE PRESENT ELEMENT «, t00=0x0162, t01=0x0180}
0x22a64…22a84 Head {h00=0x001c, h01=0x0050, text=» LDR* A7,A7 NEXT ELEMENT«, t00=0x0163, t01=0x0018}
0x22a84…22ab8 Head {h00=0x0030, h01=0x0050, text=» RB(NZ) LNKLST CONTINUE IF NOT LAST ELEMENT «, t00=0x0163, t01=0x0038}
0x22ab8…22ae6 Head {h00=0x002a, h01=0x0050, text=» STR A4,A1 LINK NEW ELEMENT AFTER LAST«, t00=0x0163, t01=0x006c}
0x22ae6…22b14 Head {h00=0x002a, h01=0x0050, text=» CMR A4 SET END MARKER IN LAST ELEMENT«, t00=0x0163, t01=0x009a}
0x22b14…22b1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0163, t01=0x00c8}
0x22b1e…22b2c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0163, t01=0x00d2}
0x22b2c…22b36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0163, t01=0x00e0}
0x22b36…22b4c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0163, t01=0x00ea}
0x22b4c…22b66 Head {h00=0x0016, h01=0x0050, text=» RF LNKRET RETURN «, t00=0x0163, t01=0x0100}
0x22b66…22b72 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0163, t01=0x011a}
0x22b72…22b88 Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0163, t01=0x0126}
0x22b88…22b98 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0163, t01=0x013c}
0x22b98…22ba4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0163, t01=0x014c}
0x22ba4…22bae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0163, t01=0x0158}
0x22bae…22bbc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0163, t01=0x0162}
0x22bbc…22bc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0163, t01=0x0170}
0x22bc6…22c0a Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0163, t01=0x017a}
0x22c0a…22c14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0164, t01=0x002e}
0x22c14…22c2c Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0164, t01=0x0038}
0x22c2c…22c3c Head {h00=0x000c, h01=0x0050, text=»* LNKOUT«, t00=0x0164, t01=0x0050}
0x22c3c…22c46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0164, t01=0x0060}
0x22c46…22c5a Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0164, t01=0x006a}
0x22c5a…22c92 Head {h00=0x0034, h01=0x0050, text=»* THIS ROUTINE REMOVES AN ELEMENT FROM A QUEUE. «, t00=0x0164, t01=0x007e}
0x22c92…22cc8 Head {h00=0x0032, h01=0x0050, text=»* ONE WORD IN EACH ELEMENT IS USED AS A LINK. «, t00=0x0164, t01=0x00b6}
0x22cc8…22cfe Head {h00=0x0032, h01=0x0050, text=»* END OF QUEUE IS INDICATED BY LINK=0 IN LAST «, t00=0x0164, t01=0x00ec}
0x22cfe…22d10 Head {h00=0x000e, h01=0x0050, text=»* ELEMENT.«, t00=0x0164, t01=0x0122}
0x22d10…22d1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0164, t01=0x0134}
0x22d1a…22d2a Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0164, t01=0x013e}
0x22d2a…22d42 Head {h00=0x0014, h01=0x0050, text=»* CF A15,LNKOUT «, t00=0x0164, t01=0x014e}
0x22d42…22d4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0164, t01=0x0166}
0x22d4c…22d5c Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0164, t01=0x0170}
0x22d5c…22d86 Head {h00=0x0026, h01=0x0050, text=»* A4 = QUEUE ELEMENT LINK ADDRESS«, t00=0x0164, t01=0x0180}
0x22d86…22dae Head {h00=0x0024, h01=0x0050, text=»* A7 = QUEUE HEAD LINK ADDRESS «, t00=0x0165, t01=0x001a}
0x22dae…22db8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0165, t01=0x0042}
0x22db8…22dca Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0165, t01=0x004c}
0x22dca…22de2 Head {h00=0x0014, h01=0x0050, text=»* A1 = CHANGED «, t00=0x0165, t01=0x005e}
0x22de2…22e0a Head {h00=0x0024, h01=0x0050, text=»* A7 = =0 IF ELEMENT NOT FOUND «, t00=0x0165, t01=0x0076}
0x22e0a…22e2a Head {h00=0x001c, h01=0x0050, text=»* ><0 IF ELEMENT FOUND «, t00=0x0165, t01=0x009e}
0x22e2a…22e42 Head {h00=0x0014, h01=0x0050, text=»* CR = CHANGED «, t00=0x0165, t01=0x00be}
0x22e42…22e4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0165, t01=0x00d6}
0x22e4c…22e90 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0165, t01=0x00e0}
0x22e90…22e9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0165, t01=0x0124}
0x22e9a…22eae Head {h00=0x0010, h01=0x0050, text=»LNKOUT EQU *«, t00=0x0165, t01=0x012e}
0x22eae…22ed6 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A7 SAVE PRESENT ELEMENT «, t00=0x0165, t01=0x0142}
0x22ed6…22ef6 Head {h00=0x001c, h01=0x0050, text=» LDR* A7,A7 NEXT ELEMENT«, t00=0x0165, t01=0x016a}
0x22ef6…22f20 Head {h00=0x0026, h01=0x0050, text=» RF(Z) LO100 EXIT IF END OF QUEUE «, t00=0x0165, t01=0x018a}
0x22f20…22f42 Head {h00=0x001e, h01=0x0050, text=» CWR A4,A7 ELEMENT FOUND? «, t00=0x0166, t01=0x0024}
0x22f42…22f68 Head {h00=0x0022, h01=0x0050, text=» RB(NE) LNKOUT NO, CHECK NEXT «, t00=0x0166, t01=0x0046}
0x22f68…22f72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0166, t01=0x006c}
0x22f72…22f80 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0166, t01=0x0076}
0x22f80…22f8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0166, t01=0x0084}
0x22f8a…22fba Head {h00=0x002c, h01=0x0050, text=» LDR* A7,A7 ELEMENT AFTER WANTED ELEMENT«, t00=0x0166, t01=0x008e}
0x22fba…22fec Head {h00=0x002e, h01=0x0050, text=» STR A7,A1 SET LINK FROM PREVIOUS TO NEXT «, t00=0x0166, t01=0x00be}
0x22fec…23014 Head {h00=0x0024, h01=0x0050, text=» LDK A7,1 INDICATE ELEMENT FOUND«, t00=0x0166, t01=0x00f0}
0x23014…23028 Head {h00=0x0010, h01=0x0050, text=»LO100 EQU * «, t00=0x0166, t01=0x0118}
0x23028…23032 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0166, t01=0x012c}
0x23032…2303c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0166, t01=0x0136}
0x2303c…23052 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0166, t01=0x0140}
0x23052…23066 Head {h00=0x0010, h01=0x0050, text=»LNKRET EQU *«, t00=0x0166, t01=0x0156}
0x23066…23092 Head {h00=0x0028, h01=0x0050, text=»* COMMON EXIT FOR QUEUE ROUTINES «, t00=0x0166, t01=0x016a}
0x23092…230cc Head {h00=0x0036, h01=0x0050, text=»* RETURN WITHOUT CHANGING INTERRUPT ENABLE FLAG«, t00=0x0167, t01=0x0008}
0x230cc…230e8 Head {h00=0x0018, h01=0x0050, text=» ADKL A15,2 SKIP PSW«, t00=0x0167, t01=0x0042}
0x230e8…23102 Head {h00=0x0016, h01=0x0050, text=» LDR* P,A15 RETURN«, t00=0x0167, t01=0x005e}
0x23102…2310e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0167, t01=0x0078}
0x2310e…23118 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0167, t01=0x0084}
0x23118…2312e Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0167, t01=0x008e}
0x2312e…2313e Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0167, t01=0x00a4}
0x2313e…2314a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0167, t01=0x00b4}
0x2314a…23154 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0167, t01=0x00c0}
0x23154…23162 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0167, t01=0x00ca}
0x23162…2316c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0167, t01=0x00d8}
0x2316c…23176 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0167, t01=0x00e2}
0x23176…23180 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0167, t01=0x00ec}
0x23180…2318a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0167, t01=0x00f6}
0x2318a…231ce Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0167, t01=0x0100}
0x231ce…231d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0167, t01=0x0144}
0x231d8…23200 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0167, t01=0x014e}
0x23200…2320a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0167, t01=0x0176}
0x2320a…23240 Head {h00=0x0032, h01=0x0050, text=»* TBUFF = TOSS BUFFER HANDLING SUBROUTINES«, t00=0x0167, t01=0x0180}
0x23240…2324a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0168, t01=0x0026}
0x2324a…23254 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0168, t01=0x0030}
0x23254…2325e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0168, t01=0x003a}
0x2325e…232a2 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0168, t01=0x0044}
0x232a2…232ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0168, t01=0x0088}
0x232ac…232e6 Head {h00=0x0036, h01=0x0050, text=»* THIS PROGRAM CONTAINS A SET OF BUFFER HANDLING«, t00=0x0168, t01=0x0092}
0x232e6…23320 Head {h00=0x0036, h01=0x0050, text=»* SUBROUTINES. THEY OPERATE ON BUFFERS ORGANIZED«, t00=0x0168, t01=0x00cc}
0x23320…23358 Head {h00=0x0034, h01=0x0050, text=»* IN BUFFER POOLS. A BUFFER POOL CONSISTS OF A«, t00=0x0168, t01=0x0106}
0x23358…23392 Head {h00=0x0036, h01=0x0050, text=»* POOLBLOCK FOR CONTROL INFORMATION, AND ONE OR «, t00=0x0168, t01=0x013e}
0x23392…233ca Head {h00=0x0034, h01=0x0050, text=»* MORE BUFFER AREAS. THE POOLBLOCK AND BUFFER «, t00=0x0168, t01=0x0178}
0x233ca…233fe Head {h00=0x0030, h01=0x0050, text=»* AREA(S) SHOULD BE SUPPLIED BY THE USER. «, t00=0x0169, t01=0x0020}
0x233fe…23408 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0169, t01=0x0054}
0x23408…2343c Head {h00=0x0030, h01=0x0050, text=»* ROUTINES IN ORDER OF APPEARANCE IN CODE:«, t00=0x0169, t01=0x005e}
0x2343c…23446 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0169, t01=0x0092}
0x23446…2345e Head {h00=0x0014, h01=0x0050, text=»* NAME FUNCTION «, t00=0x0169, t01=0x009c}
0x2345e…23468 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0169, t01=0x00b4}
0x23468…2348e Head {h00=0x0022, h01=0x0050, text=»* GETBUF GET BUFFER FROM POOL «, t00=0x0169, t01=0x00be}
0x2348e…234b4 Head {h00=0x0022, h01=0x0050, text=»* RELBUF RETURN BUFFER TO POOL«, t00=0x0169, t01=0x00e4}
0x234b4…234de Head {h00=0x0026, h01=0x0050, text=»* AREBUF DIVIDE AREA INTO BUFFERS «, t00=0x0169, t01=0x010a}
0x234de…234e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0169, t01=0x0134}
0x234e8…234f6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0169, t01=0x013e}
0x234f6…23500 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0169, t01=0x014c}
0x23500…23516 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0169, t01=0x0156}
0x23516…2352c Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x0169, t01=0x016c}
0x2352c…23542 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0169, t01=0x0182}
0x23542…2354c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016a, t01=0x0008}
0x2354c…23556 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016a, t01=0x0012}
0x23556…2357e Head {h00=0x0024, h01=0x0050, text=»* POOLBLOCK LAYOUT DEFINITION«, t00=0x016a, t01=0x001c}
0x2357e…23588 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016a, t01=0x0044}
0x23588…235ae Head {h00=0x0022, h01=0x0050, text=»* POOLBLOCK WORD OFFSETS «, t00=0x016a, t01=0x004e}
0x235ae…235d0 Head {h00=0x001e, h01=0x0050, text=»POBID EQU 0 POOL IDENTITY «, t00=0x016a, t01=0x0074}
0x235d0…235f2 Head {h00=0x001e, h01=0x0050, text=»POBFLG EQU 2 BINARY FLAGS «, t00=0x016a, t01=0x0096}
0x235f2…2361a Head {h00=0x0024, h01=0x0050, text=»POBFRE EQU 4 FREE LIST LINK HEAD«, t00=0x016a, t01=0x00b8}
0x2361a…23642 Head {h00=0x0024, h01=0x0050, text=»POBBUS EQU 6 BUFFER SIZE (BYTES)«, t00=0x016a, t01=0x00e0}
0x23642…23668 Head {h00=0x0022, h01=0x0050, text=»POBARS EQU 8 AREA SIZE (BYTES)«, t00=0x016a, t01=0x0108}
0x23668…23672 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016a, t01=0x012e}
0x23672…23692 Head {h00=0x001c, h01=0x0050, text=»* POOLBLOCK LENGTH «, t00=0x016a, t01=0x0138}
0x23692…236b6 Head {h00=0x0020, h01=0x0050, text=»POBLEN EQU 10 LENGTH (BYTES)«, t00=0x016a, t01=0x0158}
0x236b6…236c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016a, t01=0x017c}
0x236c0…236ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x016a, t01=0x0186}
0x236ce…236d8 (363, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016b, t01=0x0004}
0x236d8…2371c Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x016b, t01=0x000e}
0x2371c…23726 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016b, t01=0x0052}
0x23726…2373e Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x016b, t01=0x005c}
0x2373e…2374e Head {h00=0x000c, h01=0x0050, text=»* GETBUF«, t00=0x016b, t01=0x0074}
0x2374e…23758 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016b, t01=0x0084}
0x23758…2376c Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x016b, t01=0x008e}
0x2376c…237a4 Head {h00=0x0034, h01=0x0050, text=»* THIS ROUTINE FETCHES ONE BUFFER FROM A BUFFER «, t00=0x016b, t01=0x00a2}
0x237a4…237ce Head {h00=0x0026, h01=0x0050, text=»* POOL AND GIVES IT TO THE CALLER.«, t00=0x016b, t01=0x00da}
0x237ce…237d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016b, t01=0x0104}
0x237d8…237e8 Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x016b, t01=0x010e}
0x237e8…23800 Head {h00=0x0014, h01=0x0050, text=»* CF A15,GETBUF «, t00=0x016b, t01=0x011e}
0x23800…2380a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016b, t01=0x0136}
0x2380a…2381a Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x016b, t01=0x0140}
0x2381a…2383c Head {h00=0x001e, h01=0x0050, text=»* A7 = POOLBLOCK ADDRESS «, t00=0x016b, t01=0x0150}
0x2383c…23846 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016b, t01=0x0172}
0x23846…23858 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x016b, t01=0x017c}
0x23858…2388a Head {h00=0x002e, h01=0x0050, text=»* A4 = BUFFER ADDRESS IF BUFFER ALLOCATED«, t00=0x016b, t01=0x018e}
0x2388a…238a0 Head {h00=0x0012, h01=0x0050, text=»* ELSE ZERO«, t00=0x016c, t01=0x0030}
0x238a0…238be Head {h00=0x001a, h01=0x0050, text=»* CR = CONTENTS OF A4«, t00=0x016c, t01=0x0046}
0x238be…238da Head {h00=0x0018, h01=0x0050, text=»* INTERR.= INHIBITED«, t00=0x016c, t01=0x0064}
0x238da…238e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016c, t01=0x0080}
0x238e4…23928 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x016c, t01=0x008a}
0x23928…23932 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016c, t01=0x00ce}
0x23932…23946 Head {h00=0x0010, h01=0x0050, text=»GETBUF EQU *«, t00=0x016c, t01=0x00d8}
0x23946…23952 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x016c, t01=0x00ec}
0x23952…2397a Head {h00=0x0024, h01=0x0050, text=» LD A4,POBFRE,A7 FREE LIST START«, t00=0x016c, t01=0x00f8}
0x2397a…239a4 Head {h00=0x0026, h01=0x0050, text=» RF(Z) GB100 NO BUFFER LEFT. EXIT «, t00=0x016c, t01=0x0120}
0x239a4…239ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016c, t01=0x014a}
0x239ae…239bc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x016c, t01=0x0154}
0x239bc…239c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016c, t01=0x0162}
0x239c6…239e2 Head {h00=0x0018, h01=0x0050, text=» STR A1,A15 PUSH A1 «, t00=0x016c, t01=0x016c}
0x239e2…23a0c Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A4 NEW START OF FREE LIST«, t00=0x016c, t01=0x0188}
0x23a0c…23a32 Head {h00=0x0022, h01=0x0050, text=» ST A1,POBFRE,A7 TO POOLBLOCK «, t00=0x016d, t01=0x0022}
0x23a32…23a4e Head {h00=0x0018, h01=0x0050, text=» LDR* A1,A15 POP A1 «, t00=0x016d, t01=0x0048}
0x23a4e…23a58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016d, t01=0x0064}
0x23a58…23a6c Head {h00=0x0010, h01=0x0050, text=»GB100 EQU * «, t00=0x016d, t01=0x006e}
0x23a6c…23a8c Head {h00=0x001c, h01=0x0050, text=» ADKL A15,4 ADJUST STACK«, t00=0x016d, t01=0x0082}
0x23a8c…23ab4 Head {h00=0x0024, h01=0x0050, text=» LDR A4,A4 CR := CONTENTS OF A4 «, t00=0x016d, t01=0x00a2}
0x23ab4…23acc Head {h00=0x0014, h01=0x0050, text=» ABR* A15 RETURN«, t00=0x016d, t01=0x00ca}
0x23acc…23ad6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016d, t01=0x00e2}
0x23ad6…23ae4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x016d, t01=0x00ec}
0x23ae4…23aee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016d, t01=0x00fa}
0x23aee…23b32 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x016d, t01=0x0104}
0x23b32…23b3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016d, t01=0x0148}
0x23b3c…23b54 Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x016d, t01=0x0152}
0x23b54…23b64 Head {h00=0x000c, h01=0x0050, text=»* RELBUF«, t00=0x016d, t01=0x016a}
0x23b64…23b6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016d, t01=0x017a}
0x23b6e…23b82 Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x016d, t01=0x0184}
0x23b82…23bb8 Head {h00=0x0032, h01=0x0050, text=»* THIS ROUTINE RELEASES ONE BUFFER AND RETURNS«, t00=0x016e, t01=0x0008}
0x23bb8…23bd6 Head {h00=0x001a, h01=0x0050, text=»* IT TO A BUFFER POOL.«, t00=0x016e, t01=0x003e}
0x23bd6…23be0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016e, t01=0x005c}
0x23be0…23bf0 Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x016e, t01=0x0066}
0x23bf0…23c08 Head {h00=0x0014, h01=0x0050, text=»* CF A15,RELBUF «, t00=0x016e, t01=0x0076}
0x23c08…23c12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016e, t01=0x008e}
0x23c12…23c22 Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x016e, t01=0x0098}
0x23c22…23c40 Head {h00=0x001a, h01=0x0050, text=»* A4 = BUFFER ADDRESS«, t00=0x016e, t01=0x00a8}
0x23c40…23c62 Head {h00=0x001e, h01=0x0050, text=»* A7 = POOLBLOCK ADDRESS «, t00=0x016e, t01=0x00c6}
0x23c62…23c6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016e, t01=0x00e8}
0x23c6c…23c7e Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x016e, t01=0x00f2}
0x23c7e…23c96 Head {h00=0x0014, h01=0x0050, text=»* CR = CHANGED «, t00=0x016e, t01=0x0104}
0x23c96…23cb2 Head {h00=0x0018, h01=0x0050, text=»* INTERR.= INHIBITED«, t00=0x016e, t01=0x011c}
0x23cb2…23cbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016e, t01=0x0138}
0x23cbc…23d00 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x016e, t01=0x0142}
0x23d00…23d0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016e, t01=0x0186}
0x23d0a…23d1e Head {h00=0x0010, h01=0x0050, text=»RELBUF EQU *«, t00=0x016e, t01=0x0190}
0x23d1e…23d2a Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x016f, t01=0x0014}
0x23d2a…23d46 Head {h00=0x0018, h01=0x0050, text=» STR A1,A15 PUSH A1 «, t00=0x016f, t01=0x0020}
0x23d46…23d50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016f, t01=0x003c}
0x23d50…23d7c Head {h00=0x0028, h01=0x0050, text=» LD A1,POBFRE,A7 OLD FREE LIST START«, t00=0x016f, t01=0x0046}
0x23d7c…23da4 Head {h00=0x0024, h01=0x0050, text=» STR A1,A4 LINK AFTER NEW BUFFER«, t00=0x016f, t01=0x0072}
0x23da4…23dd4 Head {h00=0x002c, h01=0x0050, text=» ST A4,POBFRE,A7 SET NEW FREE LIST START«, t00=0x016f, t01=0x009a}
0x23dd4…23dde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016f, t01=0x00ca}
0x23dde…23dfa Head {h00=0x0018, h01=0x0050, text=» LDR* A1,A15 POP A1 «, t00=0x016f, t01=0x00d4}
0x23dfa…23e1a Head {h00=0x001c, h01=0x0050, text=» ADKL A15,4 ADJUST STACK«, t00=0x016f, t01=0x00f0}
0x23e1a…23e32 Head {h00=0x0014, h01=0x0050, text=» ABR* A15 RETURN«, t00=0x016f, t01=0x0110}
0x23e32…23e3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016f, t01=0x0128}
0x23e3c…23e4a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x016f, t01=0x0132}
0x23e4a…23e54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016f, t01=0x0140}
0x23e54…23e98 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x016f, t01=0x014a}
0x23e98…23ea2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016f, t01=0x018e}
0x23ea2…23eba Head {h00=0x0014, h01=0x0050, text=»* ROUTINE NAME: «, t00=0x0170, t01=0x0008}
0x23eba…23eca Head {h00=0x000c, h01=0x0050, text=»* AREBUF«, t00=0x0170, t01=0x0020}
0x23eca…23ed4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0170, t01=0x0030}
0x23ed4…23ee8 Head {h00=0x0010, h01=0x0050, text=»* FUNCTION: «, t00=0x0170, t01=0x003a}
0x23ee8…23f22 Head {h00=0x0036, h01=0x0050, text=»* THIS ROUTINE ALLOCATES A SPECIFIED DATA AREA TO «, t00=0x0170, t01=0x004e}
0x23f22…23f58 Head {h00=0x0032, h01=0x0050, text=»* A BUFFER POOL. THIS CAN BE DONE IN TWO WAYS.«, t00=0x0170, t01=0x0088}
0x23f58…23f8c Head {h00=0x0030, h01=0x0050, text=»* "INIBUF" IS USED WHEN A NEW BUFFER POOL IS«, t00=0x0170, t01=0x00be}
0x23f8c…23fc2 Head {h00=0x0032, h01=0x0050, text=»* INITIATED. IT DIVIDES THE AREA INTO BUFFERS,«, t00=0x0170, t01=0x00f2}
0x23fc2…23ffc Head {h00=0x0036, h01=0x0050, text=»* LINKS THE BUFFERS IN A CHAIN FROM THE FREE LIST «, t00=0x0170, t01=0x0128}
0x23ffc…24034 Head {h00=0x0034, h01=0x0050, text=»* HEAD IN POOLBLOCK, AND PUTS AN END MARKER (-1)«, t00=0x0170, t01=0x0162}
0x24034…2406e Head {h00=0x0036, h01=0x0050, text=»* IN THE LAST BUFFER. "LNKBUF" IS USED WHEN A NEW «, t00=0x0171, t01=0x000a}
0x2406e…240a4 Head {h00=0x0032, h01=0x0050, text=»* AREA IS ADDED TO AN EXISTING BUFFER POOL. IT«, t00=0x0171, t01=0x0044}
0x240a4…240da Head {h00=0x0032, h01=0x0050, text=»* DIVIDES THE AREA INTO BUFFERS, AND LINKS THE«, t00=0x0171, t01=0x007a}
0x240da…24104 Head {h00=0x0026, h01=0x0050, text=»* BUFFERS FIRST IN THE FREE LIST. «, t00=0x0171, t01=0x00b0}
0x24104…2410e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0171, t01=0x00da}
0x2410e…2411e Head {h00=0x000c, h01=0x0050, text=»* CALL: «, t00=0x0171, t01=0x00e4}
0x2411e…24136 Head {h00=0x0014, h01=0x0050, text=»* CF A15,INIBUF «, t00=0x0171, t01=0x00f4}
0x24136…2414e Head {h00=0x0014, h01=0x0050, text=»* CF A15,LNKBUF «, t00=0x0171, t01=0x010c}
0x2414e…24158 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0171, t01=0x0124}
0x24158…24168 Head {h00=0x000c, h01=0x0050, text=»* INPUT:«, t00=0x0171, t01=0x012e}
0x24168…24184 Head {h00=0x0018, h01=0x0050, text=»* A4 = AREA ADDRESS«, t00=0x0171, t01=0x013e}
0x24184…241a6 Head {h00=0x001e, h01=0x0050, text=»* A7 = POOLBLOCK ADDRESS «, t00=0x0171, t01=0x015a}
0x241a6…241b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0171, t01=0x017c}
0x241b0…241c2 Head {h00=0x000e, h01=0x0050, text=»* OUTPUT: «, t00=0x0171, t01=0x0186}
0x241c2…241e4 Head {h00=0x001e, h01=0x0050, text=»* CR = CHANGED IF CPU852 «, t00=0x0172, t01=0x0008}
0x241e4…241ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0172, t01=0x002a}
0x241ee…24232 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0172, t01=0x0034}
0x24232…2423c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0172, t01=0x0078}
0x2423c…2424a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0172, t01=0x0082}
0x2424a…24254 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0172, t01=0x0090}
0x24254…24268 Head {h00=0x0010, h01=0x0050, text=»INIBUF EQU *«, t00=0x0172, t01=0x009a}
0x24268…2427e Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0172, t01=0x00ae}
0x2427e…2429a Head {h00=0x0018, h01=0x0050, text=» STR A1,A15 PUSH A1 «, t00=0x0172, t01=0x00c4}
0x2429a…242a6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0172, t01=0x00e0}
0x242a6…242b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0172, t01=0x00ec}
0x242b0…242c6 Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0172, t01=0x00f6}
0x242c6…242e4 Head {h00=0x001a, h01=0x0050, text=» MSR 4,A15 PUSH A1-A4 «, t00=0x0172, t01=0x010c}
0x242e4…242f0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0172, t01=0x012a}
0x242f0…242fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0172, t01=0x0136}
0x242fa…24322 Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 MARKER FOR LAST BUFFER«, t00=0x0172, t01=0x0140}
0x24322…24346 Head {h00=0x0020, h01=0x0050, text=» RF IL100 GO TO COMMON PART «, t00=0x0172, t01=0x0168}
0x24346…24350 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0172, t01=0x018c}
0x24350…2435a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0173, t01=0x0008}
0x2435a…2436e Head {h00=0x0010, h01=0x0050, text=»LNKBUF EQU *«, t00=0x0173, t01=0x0012}
0x2436e…24384 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0173, t01=0x0026}
0x24384…243a0 Head {h00=0x0018, h01=0x0050, text=» STR A1,A15 PUSH A1 «, t00=0x0173, t01=0x003c}
0x243a0…243ac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0173, t01=0x0058}
0x243ac…243b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0173, t01=0x0064}
0x243b6…243cc Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0173, t01=0x006e}
0x243cc…243ea Head {h00=0x001a, h01=0x0050, text=» MSR 4,A15 PUSH A1-A4 «, t00=0x0173, t01=0x0084}
0x243ea…243f6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0173, t01=0x00a2}
0x243f6…24400 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0173, t01=0x00ae}
0x24400…2442c Head {h00=0x0028, h01=0x0050, text=» LD A1,POBFRE,A7 LINK TO OLD BUFFERS«, t00=0x0173, t01=0x00b8}
0x2442c…24436 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0173, t01=0x00e4}
0x24436…24440 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0173, t01=0x00ee}
0x24440…24454 Head {h00=0x0010, h01=0x0050, text=»IL100 EQU * «, t00=0x0173, t01=0x00f8}
0x24454…2445e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0173, t01=0x010c}
0x2445e…2448c Head {h00=0x002a, h01=0x0050, text=»* COMMON PART FOR INIBUF AND LNKBUF«, t00=0x0173, t01=0x0116}
0x2448c…24496 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0173, t01=0x0144}
0x24496…244ac Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0173, t01=0x014e}
0x244ac…244ca Head {h00=0x001a, h01=0x0050, text=» STR A2,A15 PUSH A2-A4«, t00=0x0173, t01=0x0164}
0x244ca…244de Head {h00=0x0010, h01=0x0050, text=» STR A3,A15 «, t00=0x0173, t01=0x0182}
0x244de…244f2 Head {h00=0x0010, h01=0x0050, text=» STR A4,A15 «, t00=0x0174, t01=0x0008}
0x244f2…244fe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0174, t01=0x001c}
0x244fe…24508 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0174, t01=0x0028}
0x24508…24516 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0174, t01=0x0032}
0x24516…24520 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0174, t01=0x0040}
0x24520…24532 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x0174, t01=0x004a}
0x24532…24558 Head {h00=0x0022, h01=0x0050, text=» ADK A2,POBFRE FREE LIST START«, t00=0x0174, t01=0x005c}
0x24558…2456a Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x0174, t01=0x0082}
0x2456a…2458e Head {h00=0x0020, h01=0x0050, text=» AD A3,POBARS,A7 END OF AREA«, t00=0x0174, t01=0x0094}
0x2458e…245c2 Head {h00=0x0030, h01=0x0050, text=» SU A3,POBBUS,A7 HIGEST BUFFER START IN AREA«, t00=0x0174, t01=0x00b8}
0x245c2…245cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0174, t01=0x00ec}
0x245cc…245e0 Head {h00=0x0010, h01=0x0050, text=»IL110 EQU * «, t00=0x0174, t01=0x00f6}
0x245e0…24600 Head {h00=0x001c, h01=0x0050, text=»* BUFFER LINKING LOOP«, t00=0x0174, t01=0x010a}
0x24600…24624 Head {h00=0x0020, h01=0x0050, text=» SRL A3,1 SHIFT ADDRESS =15 «, t00=0x0174, t01=0x012a}
0x24624…2463c Head {h00=0x0014, h01=0x0050, text=» SRL A4,1 . =15 «, t00=0x0174, t01=0x014e}
0x2463c…2465a Head {h00=0x001a, h01=0x0050, text=» CWR A4,A3 ROOM LEFT? «, t00=0x0174, t01=0x0166}
0x2465a…2467a Head {h00=0x001c, h01=0x0050, text=» RF(G) IL120 NO, FINISH «, t00=0x0174, t01=0x0184}
0x2467a…24684 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0175, t01=0x0014}
0x24684…2469c Head {h00=0x0014, h01=0x0050, text=» SLL A3,1 . =15 «, t00=0x0175, t01=0x001e}
0x2469c…246b4 Head {h00=0x0014, h01=0x0050, text=» SLL A4,1 . =15 «, t00=0x0175, t01=0x0036}
0x246b4…246e8 Head {h00=0x0030, h01=0x0050, text=» STR A4,A2 SET LINK FROM PREVIOUS TO PRESENT«, t00=0x0175, t01=0x004e}
0x246e8…24708 Head {h00=0x001c, h01=0x0050, text=» LDR A2,A4 NEW PREVIOUS «, t00=0x0175, t01=0x0082}
0x24708…2472c Head {h00=0x0020, h01=0x0050, text=» AD A4,POBBUS,A7 NEW PRESENT«, t00=0x0175, t01=0x00a2}
0x2472c…2474e Head {h00=0x001e, h01=0x0050, text=» RB IL110 TAKE NEXT BUFFER«, t00=0x0175, t01=0x00c6}
0x2474e…24758 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0175, t01=0x00e8}
0x24758…2476c Head {h00=0x0010, h01=0x0050, text=»IL120 EQU * «, t00=0x0175, t01=0x00f2}
0x2476c…24784 Head {h00=0x0014, h01=0x0050, text=» SLL A3,1 . =15 «, t00=0x0175, t01=0x0106}
0x24784…2479c Head {h00=0x0014, h01=0x0050, text=» SLL A4,1 . =15 «, t00=0x0175, t01=0x011e}
0x2479c…247ce Head {h00=0x002e, h01=0x0050, text=» STR A1,A2 SET LINK OR END IN LAST BUFFER «, t00=0x0175, t01=0x0136}
0x247ce…247d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0175, t01=0x0168}
0x247d8…247ee Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0175, t01=0x0172}
0x247ee…2480c Head {h00=0x001a, h01=0x0050, text=» LDR* A4,A15 POP A1-A4«, t00=0x0175, t01=0x0188}
0x2480c…24820 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A15«, t00=0x0176, t01=0x0016}
0x24820…24834 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A15«, t00=0x0176, t01=0x002a}
0x24834…24848 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A15«, t00=0x0176, t01=0x003e}
0x24848…24868 Head {h00=0x001c, h01=0x0050, text=» ADKL A15,2 ADJUST STACK«, t00=0x0176, t01=0x0052}
0x24868…24882 Head {h00=0x0016, h01=0x0050, text=» LDR* P,A15 RETURN«, t00=0x0176, t01=0x0072}
0x24882…2488e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0176, t01=0x008c}
0x2488e…24898 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0176, t01=0x0098}
0x24898…248ae Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0176, t01=0x00a2}
0x248ae…248ca Head {h00=0x0018, h01=0x0050, text=» MLR 4,A15 POP A1-A4«, t00=0x0176, t01=0x00b8}
0x248ca…248da Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0176, t01=0x00d4}
0x248da…248e6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0176, t01=0x00e4}
0x248e6…248f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0176, t01=0x00f0}
0x248f0…24906 Head {h00=0x0012, h01=0x0050, text=» IFF UTTEST=0 «, t00=0x0176, t01=0x00fa}
0x24906…24914 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0176, t01=0x0110}
0x24914…2491e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0176, t01=0x011e}
0x2491e…24950 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0176, t01=0x0128}
0x24950…2495a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0176, t01=0x015a}
0x2495a…2497a Head {h00=0x001c, h01=0x0050, text=»* ROUTINE NAMES: LOGCOM «, t00=0x0176, t01=0x0164}
0x2497a…2499a Head {h00=0x001c, h01=0x0050, text=»* LOGIOC «, t00=0x0176, t01=0x0184}
0x2499a…249ba Head {h00=0x001c, h01=0x0050, text=»* LOGATT «, t00=0x0177, t01=0x0014}
0x249ba…249ee Head {h00=0x0030, h01=0x0050, text=»* FUNCTION: LOG MSG TYPE AND CCR+BUFFER«, t00=0x0177, t01=0x0034}
0x249ee…24a2c Head {h00=0x003a, h01=0x0050, text=»* DLSSEL SPECIFIES DLS TO BE SELECTED «, t00=0x0177, t01=0x0068}
0x24a2c…24a56 Head {h00=0x0026, h01=0x0050, text=»* 0 MEANS LOG ALL «, t00=0x0177, t01=0x00a6}
0x24a56…24a60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0177, t01=0x00d0}
0x24a60…24a98 Head {h00=0x0034, h01=0x0050, text=»* RECORD FORMAT: BYTE 1-2 MSG TYPE (CO,RE,AT) «, t00=0x0177, t01=0x00da}
0x24a98…24ac6 Head {h00=0x002a, h01=0x0050, text=»* BYTE 3 DLS INDEX «, t00=0x0177, t01=0x0112}
0x24ac6…24af6 Head {h00=0x002c, h01=0x0050, text=»* BYTE 4 COMMAND CODE«, t00=0x0177, t01=0x0140}
0x24af6…24b22 Head {h00=0x0028, h01=0x0050, text=»* BYTE 5-6 STATUS-1«, t00=0x0177, t01=0x0170}
0x24b22…24b54 Head {h00=0x002e, h01=0x0050, text=»* BYTE 7 BUFFER LENGTH «, t00=0x0178, t01=0x000c}
0x24b54…24b88 Head {h00=0x0030, h01=0x0050, text=»* BYTE 8 PACKET HEADER -1«, t00=0x0178, t01=0x003e}
0x24b88…24bce Head {h00=0x0042, h01=0x0050, text=»* BYTE 9 PACKET HEADER -2 (LOGICAL CHANNEL)«, t00=0x0178, t01=0x0072}
0x24bce…24c10 Head {h00=0x003e, h01=0x0050, text=»* BYTE 10 PACKET HEADER -3 (FLOW CONTOL)«, t00=0x0178, t01=0x00b8}
0x24c10…24c4a Head {h00=0x0036, h01=0x0050, text=»* BYTE 11-16 6 FIRST DATA BYTES «, t00=0x0178, t01=0x00fa}
0x24c4a…24c82 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0178, t01=0x0134}
0x24c82…24c8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0178, t01=0x016c}
0x24c8c…24cac Head {h00=0x001c, h01=0x0050, text=»DLSSEL DATA 0 0=LOG ALL «, t00=0x0178, t01=0x0176}
0x24cac…24cce Head {h00=0x001e, h01=0x0050, text=»* ELSE DLS TO BE LOGGED «, t00=0x0179, t01=0x0008}
0x24cce…24cda Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0179, t01=0x002a}
0x24cda…24cee Head {h00=0x0010, h01=0x0050, text=»PLCLOG EQU *«, t00=0x0179, t01=0x0036}
0x24cee…24d04 Head {h00=0x0012, h01=0x0050, text=» IFF UTTEST=0 «, t00=0x0179, t01=0x004a}
0x24d04…24d3a Head {h00=0x0032, h01=0x0050, text=»LOGPTR DATA LOGARE RECORD POINTER IN LOG AREA «, t00=0x0179, t01=0x0060}
0x24d3a…24d5a Head {h00=0x001c, h01=0x0050, text=»LOGARE RES 960 LOG AREA «, t00=0x0179, t01=0x0096}
0x24d5a…24d6e Head {h00=0x0010, h01=0x0050, text=»LOGEND EQU *«, t00=0x0179, t01=0x00b6}
0x24d6e…24d9a Head {h00=0x0028, h01=0x0050, text=» DATA 'ENDLOG' MARK END OF LOG AREA «, t00=0x0179, t01=0x00ca}
0x24d9a…24dd0 Head {h00=0x0032, h01=0x0050, text=»*-------------------------------------------- «, t00=0x0179, t01=0x00f6}
0x24dd0…24df6 Head {h00=0x0022, h01=0x0050, text=»LOGCOM EQU * SUBROUTINE ENTRY «, t00=0x0179, t01=0x012c}
0x24df6…24e0c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0179, t01=0x0152}
0x24e0c…24e20 Head {h00=0x0010, h01=0x0050, text=» STR A1,A15 «, t00=0x0179, t01=0x0168}
0x24e20…24e34 Head {h00=0x0010, h01=0x0050, text=» STR A2,A15 «, t00=0x0179, t01=0x017c}
0x24e34…24e48 Head {h00=0x0010, h01=0x0050, text=» STR A3,A15 «, t00=0x0179, t01=0x0190}
0x24e48…24e54 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x017a, t01=0x0014}
0x24e54…24e6a Head {h00=0x0012, h01=0x0050, text=» IFF UTTEST=0 «, t00=0x017a, t01=0x0020}
0x24e6a…24e80 Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x017a, t01=0x0036}
0x24e80…24e9e Head {h00=0x001a, h01=0x0050, text=» MSR 3,A15 PUSH A1-A3 «, t00=0x017a, t01=0x004c}
0x24e9e…24eaa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x017a, t01=0x006a}
0x24eaa…24ec0 Head {h00=0x0012, h01=0x0050, text=» IFF UTTEST=0 «, t00=0x017a, t01=0x0076}
0x24ec0…24ede Head {h00=0x001a, h01=0x0050, text=» LDKL A1,'CO' MSG TYPE«, t00=0x017a, t01=0x008c}
0x24ede…24f00 Head {h00=0x001e, h01=0x0050, text=» LDK A2,CWTCCA CCA OFFSET «, t00=0x017a, t01=0x00aa}
0x24f00…24f12 Head {h00=0x000e, h01=0x0050, text=» RF LOG:10«, t00=0x017a, t01=0x00cc}
0x24f12…24f1a Head {h00=0x0004, h01=0x0050, t00=0x017a, t01=0x00de}
0x24f1a…24f40 Head {h00=0x0022, h01=0x0050, text=»LOGIOC EQU * SUBROUTINE ENTRY «, t00=0x017a, t01=0x00e6}
0x24f40…24f56 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x017a, t01=0x010c}
0x24f56…24f6a Head {h00=0x0010, h01=0x0050, text=» STR A1,A15 «, t00=0x017a, t01=0x0122}
0x24f6a…24f7e Head {h00=0x0010, h01=0x0050, text=» STR A2,A15 «, t00=0x017a, t01=0x0136}
0x24f7e…24f92 Head {h00=0x0010, h01=0x0050, text=» STR A3,A15 «, t00=0x017a, t01=0x014a}
0x24f92…24f9e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x017a, t01=0x015e}
0x24f9e…24fb4 Head {h00=0x0012, h01=0x0050, text=» IFF UTTEST=0 «, t00=0x017a, t01=0x016a}
0x24fb4…24fca Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x017a, t01=0x0180}
0x24fca…24fe8 Head {h00=0x001a, h01=0x0050, text=» MSR 3,A15 PUSH A1-A3 «, t00=0x017b, t01=0x0008}
0x24fe8…24ff4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x017b, t01=0x0026}
0x24ff4…2500a Head {h00=0x0012, h01=0x0050, text=» IFF UTTEST=0 «, t00=0x017b, t01=0x0032}
0x2500a…25028 Head {h00=0x001a, h01=0x0050, text=» LDKL A1,'RE' MSG TYPE«, t00=0x017b, t01=0x0048}
0x25028…2504a Head {h00=0x001e, h01=0x0050, text=» LDK A2,CWTRCA RCA OFFSET «, t00=0x017b, t01=0x0066}
0x2504a…2505c Head {h00=0x000e, h01=0x0050, text=» RF LOG:10«, t00=0x017b, t01=0x0088}
0x2505c…25064 Head {h00=0x0004, h01=0x0050, t00=0x017b, t01=0x009a}
0x25064…2508a Head {h00=0x0022, h01=0x0050, text=»LOGATT EQU * SUBROUTINE ENTRY «, t00=0x017b, t01=0x00a2}
0x2508a…250a0 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x017b, t01=0x00c8}
0x250a0…250b4 Head {h00=0x0010, h01=0x0050, text=» STR A1,A15 «, t00=0x017b, t01=0x00de}
0x250b4…250c8 Head {h00=0x0010, h01=0x0050, text=» STR A2,A15 «, t00=0x017b, t01=0x00f2}
0x250c8…250dc Head {h00=0x0010, h01=0x0050, text=» STR A3,A15 «, t00=0x017b, t01=0x0106}
0x250dc…250e8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x017b, t01=0x011a}
0x250e8…250fe Head {h00=0x0012, h01=0x0050, text=» IFF UTTEST=0 «, t00=0x017b, t01=0x0126}
0x250fe…25114 Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x017b, t01=0x013c}
0x25114…25132 Head {h00=0x001a, h01=0x0050, text=» MSR 3,A15 PUSH A1-A3 «, t00=0x017b, t01=0x0152}
0x25132…2513e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x017b, t01=0x0170}
0x2513e…25154 Head {h00=0x0012, h01=0x0050, text=» IFF UTTEST=0 «, t00=0x017b, t01=0x017c}
0x25154…25172 (380, 0, 400) Head {h00=0x001a, h01=0x0050, text=» LDKL A1,'AT' MSG TYPE«, t00=0x017c, t01=0x0004}
0x25172…25194 Head {h00=0x001e, h01=0x0050, text=» LDK A2,CWTRCA RCA OFFSET «, t00=0x017c, t01=0x0022}
0x25194…251c8 Head {h00=0x0030, h01=0x0050, text=»*------------------------------------------ «, t00=0x017c, t01=0x0044}
0x251c8…251e8 Head {h00=0x001c, h01=0x0050, text=»LOG:10 EQU * COMMON PART«, t00=0x017c, t01=0x0078}
0x251e8…251fe Head {h00=0x0012, h01=0x0050, text=» LD A3,LOGPTR «, t00=0x017c, t01=0x0098}
0x251fe…2521e Head {h00=0x001c, h01=0x0050, text=» STR A1,A3 LOG MSG TYPE «, t00=0x017c, t01=0x00ae}
0x2521e…25238 Head {h00=0x0016, h01=0x0050, text=» ADR A2,A5 CCR PTR«, t00=0x017c, t01=0x00ce}
0x25238…2525a Head {h00=0x001e, h01=0x0050, text=» LD A1,DLSSEL SELECTED DLS«, t00=0x017c, t01=0x00e8}
0x2525a…25278 Head {h00=0x001a, h01=0x0050, text=» RF(Z) LOG:15 LOG ALL «, t00=0x017c, t01=0x010a}
0x25278…25290 Head {h00=0x0014, h01=0x0050, text=» CC A1,CCRDLS,A2«, t00=0x017c, t01=0x0128}
0x25290…252b8 Head {h00=0x0024, h01=0x0050, text=» RF(NE) LOG:20 NOT SELECTED,SKIP«, t00=0x017c, t01=0x0140}
0x252b8…252cc Head {h00=0x0010, h01=0x0050, text=»LOG:15 EQU *«, t00=0x017c, t01=0x0168}
0x252cc…252ee Head {h00=0x001e, h01=0x0050, text=» LD A1,CCRDLS,A2 DLS INDEX«, t00=0x017c, t01=0x017c}
0x252ee…25314 Head {h00=0x0022, h01=0x0050, text=» ST A1,2,A3 +COMMAND INTO LOG «, t00=0x017d, t01=0x000e}
0x25314…25336 Head {h00=0x001e, h01=0x0050, text=» LD A1,CCRSTA,A2 STATUS-1 «, t00=0x017d, t01=0x0034}
0x25336…25356 Head {h00=0x001c, h01=0x0050, text=» ST A1,4,A3 LOG STATUS-1«, t00=0x017d, t01=0x0056}
0x25356…2537c Head {h00=0x0022, h01=0x0050, text=» LD A1,CCRLEN,A2 BUFFER LENGTH«, t00=0x017d, t01=0x0076}
0x2537c…25398 Head {h00=0x0018, h01=0x0050, text=» SC A1,6,A3 INTO LOG«, t00=0x017d, t01=0x009c}
0x25398…253c0 Head {h00=0x0024, h01=0x0050, text=» LD A2,CCRBUF,A2 BUFFER ADDRESS «, t00=0x017d, t01=0x00b8}
0x253c0…253dc Head {h00=0x0018, h01=0x0050, text=» LDR* A1,A2 BYTE 0-1«, t00=0x017d, t01=0x00e0}
0x253dc…25400 Head {h00=0x0020, h01=0x0050, text=» SC A1,8,A3 PACKET HEADER 2 «, t00=0x017d, t01=0x00fc}
0x25400…25412 Head {h00=0x000e, h01=0x0050, text=» SRL A1,8 «, t00=0x017d, t01=0x0120}
0x25412…25436 Head {h00=0x0020, h01=0x0050, text=» SC A1,7,A3 PACKET HEADER 1 «, t00=0x017d, t01=0x0132}
0x25436…25462 Head {h00=0x0028, h01=0x0050, text=» LD A1,2,A2 PACKET HEADER 3+ BYTE 1 «, t00=0x017d, t01=0x0156}
0x25462…25476 Head {h00=0x0010, h01=0x0050, text=» SC A1,10,A3«, t00=0x017d, t01=0x0182}
0x25476…25488 Head {h00=0x000e, h01=0x0050, text=» SRL A1,8 «, t00=0x017e, t01=0x0008}
0x25488…2549c Head {h00=0x0010, h01=0x0050, text=» SC A1,9,A3 «, t00=0x017e, t01=0x001a}
0x2549c…254b8 Head {h00=0x0018, h01=0x0050, text=» LD A1,4,A2 BYTE 2-3«, t00=0x017e, t01=0x002e}
0x254b8…254cc Head {h00=0x0010, h01=0x0050, text=» SC A1,12,A3«, t00=0x017e, t01=0x004a}
0x254cc…254de Head {h00=0x000e, h01=0x0050, text=» SRL A1,8 «, t00=0x017e, t01=0x005e}
0x254de…254f2 Head {h00=0x0010, h01=0x0050, text=» SC A1,11,A3«, t00=0x017e, t01=0x0070}
0x254f2…2550e Head {h00=0x0018, h01=0x0050, text=» LD A1,6,A2 BYTE 4-5«, t00=0x017e, t01=0x0084}
0x2550e…25522 Head {h00=0x0010, h01=0x0050, text=» SC A1,14,A3«, t00=0x017e, t01=0x00a0}
0x25522…25534 Head {h00=0x000e, h01=0x0050, text=» SRL A1,8 «, t00=0x017e, t01=0x00b4}
0x25534…25548 Head {h00=0x0010, h01=0x0050, text=» SC A1,13,A3«, t00=0x017e, t01=0x00c6}
0x25548…2555c Head {h00=0x0010, h01=0x0050, text=» LD A1,8,A2 «, t00=0x017e, t01=0x00da}
0x2555c…2556e Head {h00=0x000e, h01=0x0050, text=» SRL A1,8 «, t00=0x017e, t01=0x00ee}
0x2556e…25582 Head {h00=0x0010, h01=0x0050, text=» SC A1,15,A3«, t00=0x017e, t01=0x0100}
0x25582…25594 Head {h00=0x000e, h01=0x0050, text=» ADK A3,16«, t00=0x017e, t01=0x0114}
0x25594…255c2 Head {h00=0x002a, h01=0x0050, text=» ST A3,LOGPTR NEXT RECORD IN LOG AREA «, t00=0x017e, t01=0x0126}
0x255c2…255ea Head {h00=0x0024, h01=0x0050, text=» CWK A3,LOGEND END OF LOG AREA? «, t00=0x017e, t01=0x0154}
0x255ea…25604 Head {h00=0x0016, h01=0x0050, text=» RF(NE) LOG:20 NO!«, t00=0x017e, t01=0x017c}
0x25604…25626 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,LOGARE RESET PTR «, t00=0x017f, t01=0x0008}
0x25626…2563c Head {h00=0x0012, h01=0x0050, text=» ST A1,LOGPTR «, t00=0x017f, t01=0x002a}
0x2563c…25650 Head {h00=0x0010, h01=0x0050, text=»LOG:20 EQU *«, t00=0x017f, t01=0x0040}
0x25650…25666 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x017f, t01=0x0054}
0x25666…25682 Head {h00=0x0018, h01=0x0050, text=» LDR* A3,A15 RESTORE«, t00=0x017f, t01=0x006a}
0x25682…25696 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A15«, t00=0x017f, t01=0x0086}
0x25696…256aa Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A15«, t00=0x017f, t01=0x009a}
0x256aa…256be Head {h00=0x0010, h01=0x0050, text=» ADKL A15,4 «, t00=0x017f, t01=0x00ae}
0x256be…256d6 Head {h00=0x0014, h01=0x0050, text=» ABR* A15 RETURN«, t00=0x017f, t01=0x00c2}
0x256d6…256e2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x017f, t01=0x00da}
0x256e2…256f8 Head {h00=0x0012, h01=0x0050, text=» IFF UTTEST=0 «, t00=0x017f, t01=0x00e6}
0x256f8…2570e Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x017f, t01=0x00fc}
0x2570e…25720 Head {h00=0x000e, h01=0x0050, text=» MLR 3,A15«, t00=0x017f, t01=0x0112}
0x25720…25730 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x017f, t01=0x0124}
0x25730…2573c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x017f, t01=0x0134}
0x2573c…25746 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x017f, t01=0x0140}
0x25746…25750 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x017f, t01=0x014a}
0x25750…2575c Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x017f, t01=0x0154}
0x2575c…25760 Head {h00=0x4004, h01=0x0000}
0x25760…25764 01 7f 01 60 ┆ `┆
0x25764…2576c (384, 1, 8) 20 04 00 00 01 80 00 04 ┆ ┆
0x2576c…257bc (385, 0, 400) 01 80 01 60 00 20 00 50 2a 5c 44 45 56 49 43 45 20 43 4f 4e 4e 45 43 54 45 44 20 54 4f 20 41 20 50 4c 43 2e 01 81 00 08 00 06 00 50 2a 20 01 81 00 2c 00 0c 00 50 2a 20 43 41 4c 4c 3a 20 01 81 00 36 00 14 00 50 2a 5c 43 46 5c 41 31 35 2c 47 ┆ ` P* DEVICE CONNECTED TO A PLC. P* , P* CALL: 6 P* CF A15,G┆
0x257bc…2580c 45 54 44 57 54 20 01 81 00 46 00 06 00 50 2a 20 01 81 00 5e 00 0c 00 50 2a 20 49 4e 50 55 54 3a 01 81 00 68 00 18 00 50 2a 5c 41 35 20 20 3d 5c 43 57 54 20 41 44 44 52 45 53 53 20 01 81 00 78 00 16 00 50 2a 5c 41 36 20 20 3d 5c 44 4c 53 20 ┆ETDWT F P* ^ P* INPUT: h P* A5 = CWT ADDRESS x P* A6 = DLS ┆
0x2580c…2585c 49 4e 44 45 58 20 01 81 00 94 00 1a 00 50 2a 5c 41 37 20 20 3d 5c 44 45 56 49 43 45 20 41 44 44 52 45 53 53 01 81 00 ae 00 06 00 50 2a 20 01 81 00 cc 00 0e 00 50 2a 20 4f 55 54 50 55 54 3a 20 01 81 00 d6 00 22 00 50 2a 5c 41 36 20 20 3d 5c ┆INDEX P* A7 = DEVICE ADDRESS P* P* OUTPUT: " P* A6 = ┆
0x2585c…258ac 44 57 54 20 41 44 44 52 45 53 53 20 49 46 20 46 4f 55 4e 44 2c 20 01 81 00 e8 00 0e 00 50 2a 5c 5c 20 45 4c 53 45 20 30 01 81 01 0e 00 1a 00 50 2a 5c 43 52 20 20 3d 5c 43 4f 4e 54 45 4e 54 53 20 4f 46 20 41 36 01 81 01 20 00 18 00 50 2a 5c ┆DWT ADDRESS IF FOUND, P* ELSE 0 P* CR = CONTENTS OF A6 P* ┆
0x258ac…258fc 49 4e 54 45 52 52 2e 5c 49 4e 48 49 42 49 54 45 44 20 01 81 01 3e 00 06 00 50 2a 20 01 81 01 5a 00 40 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆INTERR. INHIBITED > P* Z @ P********************************************┆
0x258fc…2594c (386, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 01 81 01 64 00 06 00 50 2a 20 01 82 00 18 00 10 00 50 47 45 54 44 57 54 5c 45 51 55 5c 2a 01 82 00 22 00 08 00 50 5c 49 4e 48 01 82 00 36 00 18 00 50 5c 53 54 52 5c 41 31 2c 41 31 35 5c 50 55 ┆**************** d P* PGETDWT EQU * " P INH 6 P STR A1,A15 PU┆
0x2594c…2599c 53 48 20 41 31 20 01 82 00 42 00 28 00 50 5c 4c 44 2a 5c 41 31 2c 43 57 54 49 4e 54 2c 41 35 5c 57 4f 52 4b 20 53 54 41 54 49 4f 4e 20 54 41 42 4c 45 01 82 00 5e 00 24 00 50 5c 43 46 5c 41 31 35 2c 4e 44 47 45 44 57 5c 41 36 20 3a 3d 20 44 ┆SH A1 B ( P LD* A1,CWTINT,A5 WORK STATION TABLE ^ $ P CF A15,NDGEDW A6 := D┆
0x2599c…259ec 57 54 20 41 44 44 52 45 53 53 01 82 00 8a 00 18 00 50 5c 4c 44 52 2a 5c 41 31 2c 41 31 35 5c 50 4f 50 20 41 31 20 01 82 00 b2 00 28 00 50 5c 41 44 4b 4c 5c 41 31 35 2c 34 5c 41 44 4a 55 53 54 20 53 54 41 43 4b 20 46 4f 52 20 52 45 54 55 52 ┆WT ADDRESS P LDR* A1,A15 POP A1 ( P ADKL A15,4 ADJUST STACK FOR RETUR┆
0x259ec…25a3c 4e 20 01 82 00 ce 00 2c 00 50 5c 41 4e 4b 4c 5c 41 36 2c 2f 46 46 46 45 5c 53 45 54 20 43 52 20 26 20 53 4b 49 50 20 4f 44 44 20 41 44 44 52 45 53 53 01 82 00 fa 00 14 00 50 5c 41 42 52 2a 5c 41 31 35 5c 52 45 54 55 52 4e 01 82 01 2a 00 06 ┆N , P ANKL A6,/FFFE SET CR & SKIP ODD ADDRESS P ABR* A15 RETURN * ┆
0x25a3c…25a8c 00 50 2a 20 01 82 01 42 00 0a 00 50 5c 45 4a 45 43 54 01 82 01 4c 00 06 00 50 2a 20 01 82 01 5a 00 40 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P* B P EJECT L P* Z @ P********************************************┆
0x25a8c…25adc (387, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 01 82 01 64 00 06 00 50 2a 20 01 83 00 18 00 14 00 50 2a 20 52 4f 55 54 49 4e 45 20 4e 41 4d 45 3a 20 01 83 00 22 00 0c 00 50 2a 5c 47 45 54 43 57 54 01 83 00 3a 00 06 00 50 2a 20 01 83 00 4a ┆**************** d P* P* ROUTINE NAME: " P* GETCWT : P* J┆
0x25adc…25b2c 00 10 00 50 2a 20 46 55 4e 43 54 49 4f 4e 3a 20 01 83 00 54 00 32 00 50 2a 5c 54 48 49 53 20 52 4f 55 54 49 4e 45 20 43 41 4c 43 55 4c 41 54 45 53 20 54 48 45 20 43 57 54 20 41 44 44 52 45 53 53 20 46 4f 52 20 01 83 00 68 00 2a 00 50 2a 5c ┆ P* FUNCTION: T 2 P* THIS ROUTINE CALCULATES THE CWT ADDRESS FOR h * P* ┆
0x25b2c…25b7c 54 48 45 20 50 4c 43 20 43 4f 4e 54 52 4f 4c 4c 49 4e 47 20 43 41 4c 4c 49 4e 47 20 44 45 56 49 43 45 2e 20 01 83 00 9e 00 06 00 50 2a 20 01 83 00 cc 00 0c 00 50 2a 20 43 41 4c 4c 3a 20 01 83 00 d6 00 14 00 50 2a 5c 43 46 5c 41 31 35 2c 47 ┆THE PLC CONTROLLING CALLING DEVICE. P* P* CALL: P* CF A15,G┆
0x25b7c…25bcc 45 54 43 57 54 20 01 83 00 e6 00 06 00 50 2a 20 01 83 00 fe 00 0c 00 50 2a 20 49 4e 50 55 54 3a 01 83 01 08 00 18 00 50 2a 5c 41 36 20 20 3d 5c 44 57 54 20 41 44 44 52 45 53 53 20 01 83 01 18 00 06 00 50 2a 20 01 83 01 34 00 0e 00 50 2a 20 ┆ETCWT P* P* INPUT: P* A6 = DWT ADDRESS P* 4 P* ┆
0x25bcc…25c1c 4f 55 54 50 55 54 3a 20 01 83 01 3e 00 22 00 50 2a 5c 41 35 20 20 3d 5c 43 57 54 20 41 44 44 52 45 53 53 20 49 46 20 46 4f 55 4e 44 2c 20 01 83 01 50 00 0e 00 50 2a 5c 5c 20 45 4c 53 45 20 30 01 83 01 76 00 14 00 50 2a 5c 43 52 20 20 3d 5c ┆OUTPUT: > " P* A5 = CWT ADDRESS IF FOUND, P P* ELSE 0 v P* CR = ┆
0x25c1c…25c6c (388, 0, 400) 43 48 41 4e 47 45 44 20 01 83 01 88 00 06 00 50 2a 20 01 84 00 10 00 40 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆CHANGED P* @ P******************************************************┆
0x25c6c…25cbc 2a 2a 2a 2a 2a 2a 01 84 00 1a 00 06 00 50 2a 20 01 84 00 5e 00 06 00 50 2a 20 01 84 00 68 00 10 00 50 47 45 54 43 57 54 5c 45 51 55 5c 2a 01 84 00 72 00 28 00 50 5c 4c 44 5c 41 35 2c 44 57 54 43 48 50 2c 41 36 5c 43 48 41 4e 4e 45 4c 20 50 ┆****** P* ^ P* h PGETCWT EQU * r ( P LD A5,DWTCHP,A6 CHANNEL P┆
0x25cbc…25d0c 41 52 41 4d 45 54 45 52 53 20 01 84 00 86 00 2c 00 50 5c 41 4e 4b 5c 41 35 2c 4d 41 53 4b 50 4c 5c 43 4c 45 41 4e 20 43 48 41 4e 4e 45 4c 20 55 4e 49 54 20 49 4e 44 45 58 20 01 84 00 b2 00 18 00 50 5c 53 4c 4c 5c 41 35 2c 31 5c 4d 41 4b 45 ┆ARAMETERS , P ANK A5,MASKPL CLEAN CHANNEL UNIT INDEX P SLL A5,1 MAKE┆
0x25d0c…25d5c 20 49 4e 44 45 58 01 84 00 e2 00 12 00 50 5c 49 46 46 5c 50 4c 43 4e 52 52 3d 30 20 01 84 00 fe 00 12 00 50 5c 49 46 46 5c 50 4c 43 4e 52 4c 3d 30 20 01 84 01 14 00 22 00 50 5c 4c 44 52 2a 5c 41 37 2c 41 36 5c 43 48 41 4e 4e 45 4c 20 50 41 ┆ INDEX P IFF PLCNRR=0 P IFF PLCNRL=0 " P LDR* A7,A6 CHANNEL PA┆
0x25d5c…25dac 52 41 4d 45 54 45 52 20 01 84 01 2a 00 18 00 50 5c 41 4e 4b 4c 5c 41 37 2c 2f 30 35 30 30 5c 4d 41 53 4b 20 01 84 01 50 00 1c 00 50 5c 53 55 4b 4c 5c 41 37 2c 2f 30 35 30 30 5c 52 45 4d 4f 54 45 20 3f 20 01 84 01 6c 00 14 00 50 5c 52 46 28 ┆RAMETER * P ANKL A7,/0500 MASK P P SUKL A7,/0500 REMOTE ? l P RF(┆