|
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: 17252 (0x4364)
Notes: pts_type(SC)
Names: »PRT.SC«
└─⟦985af0f82⟧ Bits:30009681 Philips computer tape "600231"
└─⟦this⟧ »D3270:92/PRT.SC«
IDENT PRT 2.1DK 4 800930 870150540210
=1, ODD BUFFER ADDRESS
REL 2.1 79-05-23
DK4 - SUPPRESS SPACES
DK3 - CHECK PRINTER
DK2 - DC TIMEOUT
DK1 - LP400, DEC. PRINT
*************************************************************************
*
* P R T : MODULE PRINTING MAIN FRAME MESSAGES ADDRESSED TO THE
* GENERAL PRINTER. LOCAL HARDCOPY PRINTING IS ALSO
* CARRIED OUT IN THIS MODULE
*
**********************************************************************
*
*
*
*
* ENTRY PARAMETERS
*
*
ENTRY SNBUSY
ENTRY PRINT
ENTRY ICREAD
*
*
* EXTERNAL PARAMETERS
*
*
EXTRN UPDATE UPDATE BUFFER CONTENTS
EXTRN RFMDUP REPLACE FM & DUP CHARS
EXTRN GTRBUF
EXTRN DCGETM
EXTRN RELBUF
EXTRN DC1INQ
EXTRN DC2INQ
EXTRN REQTIM
*
EXTRN I:EVA0 CREDIT EVALUATION ROUTINE
*
EXTRN EMULA START
*
*
*************************************************
*
* CONDITIONAL ASSEMBLY PARAMETERS
*
*****************************************
OFLIN EQU 1 OFFLINE HANDLING POSSIBLE IF ::= 1
DCLIN EQU 1 NUMBER OF MAIN FRAMES (1-2)
COPCMD EQU 1 COPY COMMAND IF := 1
*
* SUPPRESSION OF TRAILING SPACES DK4
* ONLY RELEVANT FOR LP100 DK4
SUSPA EQU 1 DK4
*
* EQUATES
*
*
*
TIMDC EQU 600 DC TIME OUT: 60 S DK2
ESC EQU /1B
SBA EQU /11
NULL EQU /7F NULL CHARACTER
NEWLIN EQU /7E NEW LINE CHARACTER
ENDMES EQU /7D END MESSAGE CHAR
FORMFD EQU /7C FORMFEED CHAR.
FMCH EQU /60
DUPCH EQU /7B
TRCH EQU /F0 DK1
*
*
*
* EQUATES
*
* COMMON EQU FOR ECB HANDLING
*
ECBBA EQU 2
ECBRL EQU 4
ECBEL EQU 6
ECBRC EQU 8
ECBCW EQU 10
*
*
* CREDIT USED EQU
*
*
* ECB REL. ADDRESSES
*
*
DIS EQU 20
*
ECBDC EQU -DIS-14
IFT DCLIN=2
ECBDC2 EQU ECBDC-DIS
ECBICR EQU ECBDC2-DIS
XIF
IFF DCLIN=2
ECBICR EQU ECBDC-DIS
XIF
IFT COPCMD=1
ECBICW EQU ECBICR-DIS
ECBPR EQU ECBICW-DIS
XIF
IFF COPCMD=1
ECBPR EQU ECBICR-DIS
XIF
*
*
* BASE ADDRESS FOR TCA AND ECB
*
TCABAS EQU A11
CREBAS EQU A13 ECB
*
* CONFIG DATA 'CB1' REL ADDRESSES
*
NBRKBV EQU 0 NUMBER OF KB/VDUS
NBRGTP EQU NBRKBV+2 NUMBER OF GTPS
*
MF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1
MF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1
IFT DCLIN=2
MF2KBV EQU MF1GTP+16
MF2GTP EQU MF2KBV+16
XIF
*
*
* TCA REL. ADDRESSES
*
TCT01 EQU 0
PRINTER EQU TCT01+2
BVDU EQU PRINTER+2 VDU SCREEN BUFFER
PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY
ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR
CURATT EQU ATTRIB+2
WCC EQU CURATT+2 WCC/CCC CHARACTER
KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR
LINCNT EQU KBINH+2 LINE COUNTER
DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH
ICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM
INTATT EQU ICWORK+2 INTENSITY ATTRIBUTE
OFFFLG EQU INTATT+2 OFFLINE FLAG
COPNO EQU OFFFLG+2 HARDCOPY TASK ID
CCC EQU COPNO+2 COPY COMMAND CHARACTER
MAIN EQU CCC+2 MAIN FRAME
MODE EQU MAIN+2 INSERT MODE SWITCH
KEYS EQU MODE+2 KEY LOCK STATUS
ECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC
ECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C
RDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB
*
PRBUSY EQU -2 PRINTER BUSY. OCCUPIES BOOLEAN VARAIBLE
*
*
*
LBVDU EQU 1920 1920 CHARACTER DISPLAY
LPAGE EQU 48 LINES ON ONE PAGE
GTPLIN EQU 112 LINELENGTH MAX 112 CHAR. 'NL' ORDER IN
* BUFFER DETERMINES PRINT LINE LENGTH
LPLIN EQU 132 LINELENGTH FOR LP
*
PRINT EQU *
CF A14,I:EVA0
LDR TCABAS,A9 LOAD ASSEM TCA BASE
LDR* A4,TCABAS REL TASK NO
AD A4,6,CREBAS 'CB1' ADDRESS
*************************************************
*
* TRANSFER PARAMETER FOR MAIN-FRAME #1
*
*************************************************
LC A1,MF1GTP-1,A4
ANK A1,/FF
LDKL A8,ECBDC
CF A14,EMULA
IFT DCLIN=2
*************************************************
*
* TRANSFER PARAMETER FOR MAIN-FRAME #2
*
*************************************************
LC A1,MF2GTP-1,A4
ANK A1,/FF
LDKL A8,ECBDC2
CF A14,EMULA TRANSFER PARAMETER
XIF
*
*
* RELATIVE POS IN ECBBLK
ICR EQU 2
DC1 EQU 4
DC2 EQU 6
*
IFF DCLIN=2
LDK A1,2
XIF
IFT DCLIN=2
LDK A1,3
XIF
ST A1,ECBBLK,TCABAS
PRI100 EQU *
CM ICWORK,TCABAS
LD A1,ECBBLK+DC1,TCABAS
RF(NZ) PRI110 PENDING
CF A14,DC1INQ TEST IF ANY MESSAGE, NO WAIT
PRI110 EQU *
IFT DCLIN=2
LD A1,ECBBLK+DC2,TCABAS
RF(NZ) PRI120 PENDING
CF A14,DC2INQ TEST IF ANY MESSAGE MF # 2, NO WAIT
XIF
PRI120 EQU *
LD A1,ECBBLK+ICR,TCABAS
RF(NZ) PRI150 PENDING
LDKL A6,LBVDU REQ LENGTH
LDKL A3,BVDU BUFFER
ADR A3,TCABAS ADDRESS
CF A14,ICREAD READ INTERTASK NO WAIT
ST A8,ECBBLK+ICR,TCABAS
PRI150 EQU *
LDKL A7,ECBBLK
ADR A7,TCABAS
LKM
DATA 7 MULTIPLE WAIT
CW A8,ECBBLK+ICR,TCABAS
RF(E) ICRINP INPUT FROM INTERTASK
ST A8,ECBDCC,TCABAS SAVE ECB ADDRESS FOR CURRENT READ
CF A14,DCINP INPUT FROM DC
RB PRI100
*
*
* READ INTERTASK, NOWAIT
*
* A3 = BUFFER ADDRESS
* A6 = REQ LENGTH
*
ICREAD EQU *
LDKL A8,ECBICR
ADR A8,CREBAS
LDKL A1,-1
CF A14,REQTIM
ST A6,ECBRL,A8 REQ LENGTH
ST A3,ECBBA,A8
LDK A7,2 READ NOT ADDRESSED, NO WAIT
LKM
DATA 1
RTN A14
*
****************************************************************
*
* INPUT FROM DC
*
****************************************************
*
DCINP EQU *
CF A14,ICABOR ABORT INTERTASK READ
LDR A7,A7
RF(Z) DCIN10 NOT COMPLETED
IM ICWORK,TCABAS SET FLAG
RF ICRINP TAKE CARE OF INTERTASK INPUT
OR BUFFER WILL BE DESTROYED IN 'UPDATE'
DCIN10 EQU *
CF A14,GTRBUF GET RECEIVE BUFFER
LD A8,ECBDCC,TCABAS
CF A14,DCGETM READ MESSAGE
IFF DCLIN=2
CM ECBBLK+DC1,TCABAS
XIF
IFT DCLIN=2
CW A8,ECBBLK+DC2,TCABAS
RF(E) DCIN20 MF # 2
CM ECBBLK+DC1,TCABAS
RF DCIN30
DCIN20 EQU *
CM ECBBLK+DC2,TCABAS
XIF
DCIN30 EQU *
LD A1,ECBEL,A8 EFFECTIVE LENGTH
ST A1,DCLENG,TCABAS SAVE IT IN SAVE AREA
CF A14,UPDATE MOVE FROM DC TO PRINTER BUFFER;
IFT COPCMD=1
LD A1,ICWORK,TCABAS
RF(NZ) DCIN90 COPY COMMAND
XIF
LD A1,WCC,TCABAS WRITE CONTROL CHARACTER
ST A1,CCC,TCABAS COPY IT
CF A14,COPY COPY ON PRINTER
DCIN90 EQU *
CF A14,SNBUSY
RTN A14
*
*
* ABORT INTERTASK READ
*
ICABOR EQU *
LDK A7,0
CM ECBBLK+ICR,TCABAS
LDKL A8,ECBICR
ADR A8,CREBAS
LKM
DATA 10
RTN A14
*
*
* INPUT FROM INTERTASK
*
ICRINP EQU *
CM ECBBLK+ICR,TCABAS
LDK A1,X'38' PRINT BIT, 80 CHAR./LINE
ST A1,CCC,TCABAS SAVE AS COPY CONTROL CHARACTER
CF A14,COPY PRINT ON HARDCOPY DEVICE
LD A1,ICWORK,TCABAS
RB(NZ) DCIN10 TAKE CARE OF DC INPUT
RB PRI100
*
*
*
* PRINT THE CONTENTS OF THE PRINTER BUFFER
*
*
LINLEN DATA /0028,/4050 LINE LENGTHS /40, 64 AND 80 CHARS
*
*
COPY LDKL A8,ECBPR
ADR A8,CREBAS PRINTER ECB
LD A7,ECBBA,A8
SUR A3,A3 =1
SC A3,0,A7 =1
SC A3,1,A7 =1
ADK A7,2 PRINt BUFFER ADDRESS
SUR A9,A9 RESET BUFFER INDEX
LDKL A4,BVDU
ADR A4,TCABAS
LD A2,CCC,TCABAS GET CCC/CCC
ANK A2,/08
RF(NZ) COP100 START PRINTER BIT SET
COPRTN RTN A14
COP100 EQU *
LD A2,CCC,TCABAS
ANK A2,/30
ABL(Z) COP111 NL DETERMINES LINE LENGTH
SRL A2,4
LDK A6,0
LC A6,LINLEN,A2 GET LINE LENGTH
COP110 CWR A9,A6
RF(L) COP120
COP115 CF A14,PRLINE LINE FULL: PRINT IT
RB COP110
COP120 CWK A3,LBVDU
ABL(NL) COP300 PRINT LAST LINE
LCR A2,A4
ANK A2,/7F RESET DISPLAY BIT
SCR A2,A4
CWK A2,/20
RF(NL) COP130
COP123 EQU *
ANK A2,6
XRK A2,6
RF(Z) COP150
COP125 LDK A2,/20 REPLACE ATTR BY SPACE
RF COP140
COP130 CWK A2,NULL
RB(E) COP125 REPLACE NULL BY SPACE
COP140 EQU *
CWK A2,/7D
RF(NE) COP141
LDK A2,/39
COP141 CWK A2,/7E
RF(NE) COP142
LDK A2,/35
COP142 EQU *
CF A14,RFMDUP FM OR DUP ?
COP143 CWK A2,/61 LOWER CASE CHARACTER ??
RF(L) COP144 NO!!
SUK A2,/20
COP144 SCR A2,A7
ADK A3,1
ADK A4,1
ADK A7,1
ADKL A9,1
RB COP110
COP150 LDK A2,/20 SPACE INSTEAD OF TEXT
SCR A2,A7
ADK A3,1
ADK A4,1
ADK A7,1
ADKL A9,1
CWR A9,A6
RF(L) COP160
CF A14,PRLINE LINE FULL : PRINT IT
COP160 LCR A2,A4
ANK A2,/7F
CWK A2,/20
RB(L) COP123 ATTRIBUTE
RB COP150 STILL IN PROTECTED FIELD
*
*
* LINE LENGTH AS DEFINED BY NL CHARACTER
*
*
* THE FIRST INSTR. ORIGINALLY HAD LABEL 'COP200'.
*
*
COP111 EQU *
CWK A9,LPLIN DK3
RF(L) COP220 BUFFER NOT FULL
COP210 CF A14,PRLINE PRINT LINE
ABL COP111
COP220 CWK A3,LBVDU
RF(NL) COP300 PRINT LAST LINE
LCR A2,A4
ANK A2,/7F
SCR A2,A4 RESET DISPLAY BIT
CWK A2,/20
RF(NL) COP230
COP223 ANK A2,/6 ATTRIBUTE CHARACTER
XRK A2,6
RF(Z) COP250 PROTECTED FIELD
COP225 LDK A2,/20 REPLACE ATTRIBUTE BY SPACE
RF COP240
COP230 CWK A2,NULL
RB(E) COP225 NULL IS REPLACED BY SPACE
COP240 EQU *
CWK A2,/7B
RF(NE) COP241
LDK A2,/2A
COP241 SCR A2,A7
ADK A3,1
ADK A4,1
ADK A7,1
CWK A2,NEWLIN
RB(E) COP210 NL CHAR: PRINT LINE
CWK A2,FORMFD DK1
RB(E) COP210 DK1
CWK A2,ENDMES
RF(E) COP300 UND MESSAGE: PRINT LAST LINE
ADKL A9,1
ABL COP111
COP250 LDK A2,/20 REPLACE TEXT BY SPACE
SCR A2,A7
ADK A3,1
ADK A4,1
ADK A7,1
ADKL A9,1
CWR A9,A6
RF(L) COP260
CF A14,PRLINE LINE FULL : PRINT IT
COP260 LCR A2,A4
ANK A2,/7F
CWK A2,/20
RB(L) COP223 ATTRIBUTE FOUND
RB COP250 STILL IN PROTECTED FIELD
COP300 LDR A9,A9
ABL(Z) COPRTN ALL PRINTED
CF A14,PRLINE PRINT LAST LINE
ABL COPRTN
*
*
*
* PRINT ONE LINE ON PRINTER
*
* A9=NUMBER OF CHAR IN PRINT BUFFER
*
*
PRLINE EQU *
IFT SUSPA=1 DK4
CF A14,SKIPSP DK4
XIF DK4
IM LINCNT,TCABAS COUNT NBR OF PRINTLINES
RF(N) PRL100 NOT END OF PAGE
LDK A7,LPAGE END OF PAGE
NGR A7,A7
ST A7,LINCNT,TCABAS RESET LINE COUNTER
PRL100 LD A7,ECBBA,A8
********************* LP 400 SUPPORT ********* DK
LC A2,2,A7 GET FORMCONTROL CHAR DK
ANK A2,/7F REMOVE PARITY BIT DK
CWK A2,FORMFD DK
RF(NE) PRL106 NO, NORMAL PRINT DK
LDK A2,/31 DK
SC A2,1,A7 CHANGE TO FORMFEED DK
LDK A7,2 DK
ST A7,ECBRL,A8 REQ LENGTH = 2 DK
CF A14,PRLKM DK3
LDK A7,LPAGE DK
NGR A7,A7 DK
ST A7,LINCNT,TCABAS RESET LINE COUNTER DK
RF PRL220
PRL105 EQU * DK
******************** END LP400 SUPPORT DK
LC A2,2,A7 GET FIRST CHAR IN BUFFER
ANK A2,/7F
PRL106 EQU * DK
CWK A2,FORMFD
RF(NE) PRL200 NOT FORM FEED
LDK A2,/20
SC A2,2,A7 REPLACE LF BY SPACE
PRL110 EQU *
LD A1,LINCNT,TCABAS FORM FEED
LDK A7,2
ST A7,ECBRL,A8 SET REQ LENGTH TO 2 FOR NEW LINE
PRL120 EQU *
CF A14,PRLKM DK3
ADK A1,1 COUNT LINES
RB(N) PRL120
LDK A7,LPAGE
NGR A7,A7
ST A7,LINCNT,TCABAS RESET LINE COUNTER
PRL200 ADKL A9,2 ADJUST LENGTH FOR BUFFER CW
ST A9,ECBRL,A8 REQ LENGTH
PRL210 EQU * DK
CF A14,PRLKM DK3
PRL220 EQU * DK
LDK A7,0
LD A7,ECBBA,A8
SUR A9,A9 =1
SCR A9,A7 =1
SC A9,1,A7 =1
ADK A7,2 RESTORE BUFFER ADDRESS
RTN A14
* EJECT
*
*
* SET STATUS NOT BUSY FOR DC
*
*
SNBUSY EQU *
LD A8,ECBDCC,TCABAS
CM ECBCW,A8
LDK A7,/B8 SET STATUS ORDER
LKM
DATA 1
RTN A14
*
*
*
*
PRLKM EQU * DK3
LDK A7,/86 DK3
LKM DK3
DATA 1 DK3
LD A7,ECBRC,A8 GET RETURN CODE DK3
ANKL A7,/2005 BIT 2,3,15? DK3
RB(NZ) PRLKM NO, TRY AGAIN DK3
RTN A14 DK3
*
*
IFT SUSPA=1 DK4B
*
*
* SKIPSP = SUBROTINE TO SKIP SPACES
* IN END OF ECB-BUFFER.
* REQUESTED LENGTH IN A9 IS UPDATED.
* A1,A2 - WORK REG
*
SKIPSP EQU *
ADKL A9,2
LD A1,2,A8 GET BUFFER ADDRESS (BA)
ADR A1,A9 GET ADD END OF BUFFER
SKIP05 CWK A9,2
RF(NG) SKIP30 RL < 3
SUK A1,1 DECR. BA
LCR A2,A1 GET CHAR
CCK A2,/2020 SPACE ?
RF(NE) SKIP20 NO
SKIP07 SUKL A9,1 DECR RL
RB SKIP05 GET NEXT
SKIP20 CWK A9,4
RF(NG) SKIP30 RL < 5
LC A2,-2,A1 GET CHAR
CCK A2,/1111 TABULATION CHAR ?
RF(NE) SKIP30 NO
SUK A1,2 DECR BA
SUKL A9,2 DECR RL
RB SKIP07 GET NEXT
*
SKIP30 EQU *
SUKL A9,2
RTN A14
XIF DK4E
*
END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT PRT 2.1DK 4 800930 870150540210 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0060 Head {h00=0x001e, h01=0x0050, text=» =1, ODD BUFFER ADDRESS «, t00=0x0000, t01=0x0042}
0x0060…007c Head {h00=0x0018, h01=0x0050, text=» REL 2.1 79-05-23 «, t00=0x0000, t01=0x0064}
0x007c…009c Head {h00=0x001c, h01=0x0050, text=» DK4 - SUPPRESS SPACES«, t00=0x0000, t01=0x0080}
0x009c…00ba Head {h00=0x001a, h01=0x0050, text=» DK3 - CHECK PRINTER«, t00=0x0000, t01=0x00a0}
0x00ba…00d6 Head {h00=0x0018, h01=0x0050, text=» DK2 - DC TIMEOUT «, t00=0x0000, t01=0x00be}
0x00d6…00f8 Head {h00=0x001e, h01=0x0050, text=» DK1 - LP400, DEC. PRINT«, t00=0x0000, t01=0x00da}
0x00f8…014a Head {h00=0x004e, h01=0x0050, text=»************************************************************************* «, t00=0x0000, t01=0x00fc}
0x014a…0154 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x014e}
0x0154…019e Head {h00=0x0046, h01=0x0050, text=»* P R T : MODULE PRINTING MAIN FRAME MESSAGES ADDRESSED TO THE«, t00=0x0000, t01=0x0158}
0x019e…01e4 Head {h00=0x0042, h01=0x0050, text=»* GENERAL PRINTER. LOCAL HARDCOPY PRINTING IS ALSO «, t00=0x0001, t01=0x0012}
0x01e4…0214 Head {h00=0x002c, h01=0x0050, text=»* CARRIED OUT IN THIS MODULE «, t00=0x0001, t01=0x0058}
0x0214…021e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0088}
0x021e…026c Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0001, t01=0x0092}
0x026c…0276 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e0}
0x0276…0280 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ea}
0x0280…0288 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x00f4}
0x0288…0290 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x00fc}
0x0290…029a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0104}
0x029a…02a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x010e}
0x02a4…02be Head {h00=0x0016, h01=0x0050, text=»* ENTRY PARAMETERS«, t00=0x0001, t01=0x0118}
0x02be…02c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0132}
0x02c8…02d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013c}
0x02d2…02e8 Head {h00=0x0012, h01=0x0050, text=» ENTRY SNBUSY «, t00=0x0001, t01=0x0146}
0x02e8…02fc Head {h00=0x0010, h01=0x0050, text=» ENTRY PRINT«, t00=0x0001, t01=0x015c}
0x02fc…0312 Head {h00=0x0012, h01=0x0050, text=» ENTRY ICREAD «, t00=0x0001, t01=0x0170}
0x0312…031c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0186}
0x031c…0326 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0190}
0x0326…0344 Head {h00=0x001a, h01=0x0050, text=»* EXTERNAL PARAMETERS «, t00=0x0002, t01=0x000a}
0x0344…034e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0028}
0x034e…0358 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0032}
0x0358…0384 Head {h00=0x0028, h01=0x0050, text=» EXTRN UPDATE UPDATE BUFFER CONTENTS«, t00=0x0002, t01=0x003c}
0x0384…03b0 Head {h00=0x0028, h01=0x0050, text=» EXTRN RFMDUP REPLACE FM & DUP CHARS«, t00=0x0002, t01=0x0068}
0x03b0…03c6 Head {h00=0x0012, h01=0x0050, text=» EXTRN GTRBUF «, t00=0x0002, t01=0x0094}
0x03c6…03dc Head {h00=0x0012, h01=0x0050, text=» EXTRN DCGETM «, t00=0x0002, t01=0x00aa}
0x03dc…03f2 Head {h00=0x0012, h01=0x0050, text=» EXTRN RELBUF «, t00=0x0002, t01=0x00c0}
0x03f2…0408 Head {h00=0x0012, h01=0x0050, text=» EXTRN DC1INQ «, t00=0x0002, t01=0x00d6}
0x0408…041e Head {h00=0x0012, h01=0x0050, text=» EXTRN DC2INQ «, t00=0x0002, t01=0x00ec}
0x041e…0434 Head {h00=0x0012, h01=0x0050, text=» EXTRN REQTIM «, t00=0x0002, t01=0x0102}
0x0434…043e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0118}
0x043e…046e Head {h00=0x002c, h01=0x0050, text=» EXTRN I:EVA0 CREDIT EVALUATION ROUTINE «, t00=0x0002, t01=0x0122}
0x046e…0478 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0152}
0x0478…0492 Head {h00=0x0016, h01=0x0050, text=» EXTRN EMULA START«, t00=0x0002, t01=0x015c}
0x0492…049c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0176}
0x049c…04a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0180}
0x04a6…04e0 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0002, t01=0x018a}
0x04e0…04ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0034}
0x04ea…0516 Head {h00=0x0028, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS «, t00=0x0003, t01=0x003e}
0x0516…0520 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x006a}
0x0520…0552 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0003, t01=0x0074}
0x0552…055a Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x00a6}
0x055a…0590 Head {h00=0x0032, h01=0x0050, text=»OFLIN EQU 1 OFFLINE HANDLING POSSIBLE IF ::= 1«, t00=0x0003, t01=0x00ae}
0x0590…05c0 Head {h00=0x002c, h01=0x0050, text=»DCLIN EQU 1 NUMBER OF MAIN FRAMES (1-2) «, t00=0x0003, t01=0x00e4}
0x05c0…05ea Head {h00=0x0026, h01=0x0050, text=»COPCMD EQU 1 COPY COMMAND IF := 1 «, t00=0x0003, t01=0x0114}
0x05ea…05f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x013e}
0x05f4…0622 Head {h00=0x002a, h01=0x0050, text=»* SUPPRESSION OF TRAILING SPACES DK4 «, t00=0x0003, t01=0x0148}
0x0622…0648 Head {h00=0x0022, h01=0x0050, text=»* ONLY RELEVANT FOR LP100 DK4«, t00=0x0003, t01=0x0176}
0x0648…0660 Head {h00=0x0014, h01=0x0050, text=»SUSPA EQU 1 DK4«, t00=0x0004, t01=0x000c}
0x0660…066a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0024}
0x066a…067c Head {h00=0x000e, h01=0x0050, text=»* EQUATES «, t00=0x0004, t01=0x002e}
0x067c…0686 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0040}
0x0686…0690 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x004a}
0x0690…069a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0054}
0x069a…06c6 Head {h00=0x0028, h01=0x0050, text=»TIMDC EQU 600 DC TIME OUT: 60 S DK2 «, t00=0x0004, t01=0x005e}
0x06c6…06da Head {h00=0x0010, h01=0x0050, text=»ESC EQU /1B «, t00=0x0004, t01=0x008a}
0x06da…06ee Head {h00=0x0010, h01=0x0050, text=»SBA EQU /11 «, t00=0x0004, t01=0x009e}
0x06ee…0712 Head {h00=0x0020, h01=0x0050, text=»NULL EQU /7F NULL CHARACTER «, t00=0x0004, t01=0x00b2}
0x0712…073c Head {h00=0x0026, h01=0x0050, text=»NEWLIN EQU /7E NEW LINE CHARACTER «, t00=0x0004, t01=0x00d6}
0x073c…0764 Head {h00=0x0024, h01=0x0050, text=»ENDMES EQU /7D END MESSAGE CHAR «, t00=0x0004, t01=0x0100}
0x0764…078a Head {h00=0x0022, h01=0x0050, text=»FORMFD EQU /7C FORMFEED CHAR. «, t00=0x0004, t01=0x0128}
0x078a…079e Head {h00=0x0010, h01=0x0050, text=»FMCH EQU /60«, t00=0x0004, t01=0x014e}
0x079e…07b4 Head {h00=0x0012, h01=0x0050, text=»DUPCH EQU /7B «, t00=0x0004, t01=0x0162}
0x07b4…07ce Head {h00=0x0016, h01=0x0050, text=»TRCH EQU /F0 DK1 «, t00=0x0004, t01=0x0178}
0x07ce…07d8 (5, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0004}
0x07d8…07e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x000e}
0x07e2…07ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0018}
0x07ec…0802 Head {h00=0x0012, h01=0x0050, text=»* EQUATES «, t00=0x0005, t01=0x0022}
0x0802…080c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0038}
0x080c…0832 Head {h00=0x0022, h01=0x0050, text=»* COMMON EQU FOR ECB HANDLING «, t00=0x0005, t01=0x0042}
0x0832…083c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0068}
0x083c…0844 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0072}
0x0844…0858 Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0005, t01=0x007a}
0x0858…086c Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0005, t01=0x008e}
0x086c…0880 Head {h00=0x0010, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0005, t01=0x00a2}
0x0880…0894 Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0005, t01=0x00b6}
0x0894…08a8 Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU 10«, t00=0x0005, t01=0x00ca}
0x08a8…08b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00de}
0x08b2…08bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00e8}
0x08bc…08d6 Head {h00=0x0016, h01=0x0050, text=»* CREDIT USED EQU «, t00=0x0005, t01=0x00f2}
0x08d6…08e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x010c}
0x08e0…08ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0116}
0x08ea…0906 Head {h00=0x0018, h01=0x0050, text=»* ECB REL. ADDRESSES«, t00=0x0005, t01=0x0120}
0x0906…0910 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x013c}
0x0910…091a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0146}
0x091a…092c Head {h00=0x000e, h01=0x0050, text=»DIS EQU 20«, t00=0x0005, t01=0x0150}
0x092c…0936 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0162}
0x0936…0950 Head {h00=0x0016, h01=0x0050, text=»ECBDC EQU -DIS-14 «, t00=0x0005, t01=0x016c}
0x0950…0964 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0005, t01=0x0186}
0x0964…0980 Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0006, t01=0x000a}
0x0980…099e Head {h00=0x001a, h01=0x0050, text=»ECBICR EQU ECBDC2-DIS «, t00=0x0006, t01=0x0026}
0x099e…09aa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x0044}
0x09aa…09be Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0006, t01=0x0050}
0x09be…09da Head {h00=0x0018, h01=0x0050, text=»ECBICR EQU ECBDC-DIS«, t00=0x0006, t01=0x0064}
0x09da…09e6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x0080}
0x09e6…09fc Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0006, t01=0x008c}
0x09fc…0a1a Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0006, t01=0x00a2}
0x0a1a…0a36 Head {h00=0x0018, h01=0x0050, text=»ECBPR EQU ECBICW-DIS«, t00=0x0006, t01=0x00c0}
0x0a36…0a42 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x00dc}
0x0a42…0a58 Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0006, t01=0x00e8}
0x0a58…0a74 Head {h00=0x0018, h01=0x0050, text=»ECBPR EQU ECBICR-DIS«, t00=0x0006, t01=0x00fe}
0x0a74…0a80 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x011a}
0x0a80…0a8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0126}
0x0a8a…0a94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0130}
0x0a94…0aba Head {h00=0x0022, h01=0x0050, text=»* BASE ADDRESS FOR TCA AND ECB«, t00=0x0006, t01=0x013a}
0x0aba…0ac4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0160}
0x0ac4…0ada Head {h00=0x0012, h01=0x0050, text=»TCABAS EQU A11«, t00=0x0006, t01=0x016a}
0x0ada…0af4 Head {h00=0x0016, h01=0x0050, text=»CREBAS EQU A13 ECB«, t00=0x0006, t01=0x0180}
0x0af4…0afe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x000a}
0x0afe…0b28 Head {h00=0x0026, h01=0x0050, text=»* CONFIG DATA 'CB1' REL ADDRESSES «, t00=0x0007, t01=0x0014}
0x0b28…0b32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x003e}
0x0b32…0b58 Head {h00=0x0022, h01=0x0050, text=»NBRKBV EQU 0 NUMBER OF KB/VDUS«, t00=0x0007, t01=0x0048}
0x0b58…0b82 Head {h00=0x0026, h01=0x0050, text=»NBRGTP EQU NBRKBV+2 NUMBER OF GTPS«, t00=0x0007, t01=0x006e}
0x0b82…0b8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0098}
0x0b8c…0bc2 Head {h00=0x0032, h01=0x0050, text=»MF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 «, t00=0x0007, t01=0x00a2}
0x0bc2…0bf8 Head {h00=0x0032, h01=0x0050, text=»MF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 «, t00=0x0007, t01=0x00d8}
0x0bf8…0c0c Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0007, t01=0x010e}
0x0c0c…0c28 Head {h00=0x0018, h01=0x0050, text=»MF2KBV EQU MF1GTP+16«, t00=0x0007, t01=0x0122}
0x0c28…0c44 Head {h00=0x0018, h01=0x0050, text=»MF2GTP EQU MF2KBV+16«, t00=0x0007, t01=0x013e}
0x0c44…0c50 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x015a}
0x0c50…0c5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0166}
0x0c5a…0c64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0170}
0x0c64…0c80 Head {h00=0x0018, h01=0x0050, text=»* TCA REL. ADDRESSES«, t00=0x0007, t01=0x017a}
0x0c80…0c8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0008}
0x0c8a…0c9e Head {h00=0x0010, h01=0x0050, text=»TCT01 EQU 0 «, t00=0x0008, t01=0x0012}
0x0c9e…0cba Head {h00=0x0018, h01=0x0050, text=»PRINTER EQU TCT01+2 «, t00=0x0008, t01=0x0026}
0x0cba…0ce6 Head {h00=0x0028, h01=0x0050, text=»BVDU EQU PRINTER+2 VDU SCREEN BUFFER«, t00=0x0008, t01=0x0042}
0x0ce6…0d1a Head {h00=0x0030, h01=0x0050, text=»PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY «, t00=0x0008, t01=0x006e}
0x0d1a…0d48 Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x0008, t01=0x00a2}
0x0d48…0d64 Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x0008, t01=0x00d0}
0x0d64…0d8e Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x0008, t01=0x00ec}
0x0d8e…0dc0 Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x0008, t01=0x0116}
0x0dc0…0de8 Head {h00=0x0024, h01=0x0050, text=»LINCNT EQU KBINH+2 LINE COUNTER «, t00=0x0008, t01=0x0148}
0x0de8…0e1c Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH«, t00=0x0008, t01=0x0170}
0x0e1c…0e52 Head {h00=0x0032, h01=0x0050, text=»ICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM «, t00=0x0009, t01=0x0014}
0x0e52…0e82 Head {h00=0x002c, h01=0x0050, text=»INTATT EQU ICWORK+2 INTENSITY ATTRIBUTE «, t00=0x0009, t01=0x004a}
0x0e82…0eaa Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU INTATT+2 OFFLINE FLAG«, t00=0x0009, t01=0x007a}
0x0eaa…0ed6 Head {h00=0x0028, h01=0x0050, text=»COPNO EQU OFFFLG+2 HARDCOPY TASK ID «, t00=0x0009, t01=0x00a2}
0x0ed6…0f04 Head {h00=0x002a, h01=0x0050, text=»CCC EQU COPNO+2 COPY COMMAND CHARACTER«, t00=0x0009, t01=0x00ce}
0x0f04…0f26 Head {h00=0x001e, h01=0x0050, text=»MAIN EQU CCC+2 MAIN FRAME «, t00=0x0009, t01=0x00fc}
0x0f26…0f50 Head {h00=0x0026, h01=0x0050, text=»MODE EQU MAIN+2 INSERT MODE SWITCH«, t00=0x0009, t01=0x011e}
0x0f50…0f78 Head {h00=0x0024, h01=0x0050, text=»KEYS EQU MODE+2 KEY LOCK STATUS «, t00=0x0009, t01=0x0148}
0x0f78…0faa Head {h00=0x002e, h01=0x0050, text=»ECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC«, t00=0x0009, t01=0x0170}
0x0faa…0fe0 Head {h00=0x0032, h01=0x0050, text=»ECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C «, t00=0x000a, t01=0x0012}
0x0fe0…1018 Head {h00=0x0034, h01=0x0050, text=»RDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB«, t00=0x000a, t01=0x0048}
0x1018…1022 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0080}
0x1022…1060 Head {h00=0x003a, h01=0x0050, text=»PRBUSY EQU -2 PRINTER BUSY. OCCUPIES BOOLEAN VARAIBLE «, t00=0x000a, t01=0x008a}
0x1060…106a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00c8}
0x106a…1072 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00d2}
0x1072…107c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00da}
0x107c…1086 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00e4}
0x1086…10b4 Head {h00=0x002a, h01=0x0050, text=»LBVDU EQU 1920 1920 CHARACTER DISPLAY «, t00=0x000a, t01=0x00ee}
0x10b4…10da Head {h00=0x0022, h01=0x0050, text=»LPAGE EQU 48 LINES ON ONE PAGE«, t00=0x000a, t01=0x011c}
0x10da…1118 Head {h00=0x003a, h01=0x0050, text=»GTPLIN EQU 112 LINELENGTH MAX 112 CHAR. 'NL' ORDER IN «, t00=0x000a, t01=0x0142}
0x1118…1148 Head {h00=0x002c, h01=0x0050, text=»* BUFFER DETERMINES PRINT LINE LENGTH «, t00=0x000a, t01=0x0180}
0x1148…1170 Head {h00=0x0024, h01=0x0050, text=»LPLIN EQU 132 LINELENGTH FOR LP «, t00=0x000b, t01=0x0020}
0x1170…117a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0048}
0x117a…1182 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0052}
0x1182…118a Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x005a}
0x118a…1194 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000b, t01=0x0062}
0x1194…11a8 Head {h00=0x0010, h01=0x0050, text=»PRINT EQU * «, t00=0x000b, t01=0x006c}
0x11a8…11be Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x000b, t01=0x0080}
0x11be…11e8 Head {h00=0x0026, h01=0x0050, text=» LDR TCABAS,A9 LOAD ASSEM TCA BASE«, t00=0x000b, t01=0x0096}
0x11e8…120c Head {h00=0x0020, h01=0x0050, text=» LDR* A4,TCABAS REL TASK NO «, t00=0x000b, t01=0x00c0}
0x120c…1232 Head {h00=0x0022, h01=0x0050, text=» AD A4,6,CREBAS 'CB1' ADDRESS «, t00=0x000b, t01=0x00e4}
0x1232…123a Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x010a}
0x123a…1274 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000b, t01=0x0112}
0x1274…127e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x014c}
0x127e…12ae Head {h00=0x002c, h01=0x0050, text=»* TRANSFER PARAMETER FOR MAIN-FRAME #1«, t00=0x000b, t01=0x0156}
0x12ae…12b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0186}
0x12b8…12f2 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000b, t01=0x0190}
0x12f2…12fa Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x003a}
0x12fa…1314 Head {h00=0x0016, h01=0x0050, text=» LC A1,MF1GTP-1,A4«, t00=0x000c, t01=0x0042}
0x1314…1328 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x000c, t01=0x005c}
0x1328…133e Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x000c, t01=0x0070}
0x133e…1354 Head {h00=0x0012, h01=0x0050, text=» CF A14,EMULA «, t00=0x000c, t01=0x0086}
0x1354…1368 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000c, t01=0x009c}
0x1368…13a2 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000c, t01=0x00b0}
0x13a2…13ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ea}
0x13ac…13dc Head {h00=0x002c, h01=0x0050, text=»* TRANSFER PARAMETER FOR MAIN-FRAME #2«, t00=0x000c, t01=0x00f4}
0x13dc…13e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0124}
0x13e6…1420 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000c, t01=0x012e}
0x1420…1428 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0168}
0x1428…1442 Head {h00=0x0016, h01=0x0050, text=» LC A1,MF2GTP-1,A4«, t00=0x000c, t01=0x0170}
0x1442…1456 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x000c, t01=0x018a}
0x1456…146e Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x000d, t01=0x000e}
0x146e…1496 Head {h00=0x0024, h01=0x0050, text=» CF A14,EMULA TRANSFER PARAMETER«, t00=0x000d, t01=0x0026}
0x1496…14a2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x004e}
0x14a2…14ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x005a}
0x14ac…14b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0064}
0x14b6…14d6 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE POS IN ECBBLK«, t00=0x000d, t01=0x006e}
0x14d6…14e8 Head {h00=0x000e, h01=0x0050, text=»ICR EQU 2 «, t00=0x000d, t01=0x008e}
0x14e8…14fa Head {h00=0x000e, h01=0x0050, text=»DC1 EQU 4 «, t00=0x000d, t01=0x00a0}
0x14fa…150c Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x000d, t01=0x00b2}
0x150c…1516 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00c4}
0x1516…152a Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x000d, t01=0x00ce}
0x152a…153c Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x000d, t01=0x00e2}
0x153c…1548 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x00f4}
0x1548…155c Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000d, t01=0x0100}
0x155c…156e Head {h00=0x000e, h01=0x0050, text=» LDK A1,3 «, t00=0x000d, t01=0x0114}
0x156e…157a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0126}
0x157a…1596 Head {h00=0x0018, h01=0x0050, text=» ST A1,ECBBLK,TCABAS«, t00=0x000d, t01=0x0132}
0x1596…15aa Head {h00=0x0010, h01=0x0050, text=»PRI100 EQU *«, t00=0x000d, t01=0x014e}
0x15aa…15c4 Head {h00=0x0016, h01=0x0050, text=» CM ICWORK,TCABAS «, t00=0x000d, t01=0x0162}
0x15c4…15e4 Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC1,TCABAS«, t00=0x000d, t01=0x017c}
0x15e4…1602 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) PRI110 PENDING«, t00=0x000e, t01=0x000c}
0x1602…1636 Head {h00=0x0030, h01=0x0050, text=» CF A14,DC1INQ TEST IF ANY MESSAGE, NO WAIT «, t00=0x000e, t01=0x002a}
0x1636…164a Head {h00=0x0010, h01=0x0050, text=»PRI110 EQU *«, t00=0x000e, t01=0x005e}
0x164a…165e Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000e, t01=0x0072}
0x165e…167e Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC2,TCABAS«, t00=0x000e, t01=0x0086}
0x167e…169c Head {h00=0x001a, h01=0x0050, text=» RF(NZ) PRI120 PENDING«, t00=0x000e, t01=0x00a6}
0x169c…16d6 Head {h00=0x0036, h01=0x0050, text=» CF A14,DC2INQ TEST IF ANY MESSAGE MF # 2, NO WAIT«, t00=0x000e, t01=0x00c4}
0x16d6…16e2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x00fe}
0x16e2…16f6 Head {h00=0x0010, h01=0x0050, text=»PRI120 EQU *«, t00=0x000e, t01=0x010a}
0x16f6…1716 Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+ICR,TCABAS«, t00=0x000e, t01=0x011e}
0x1716…1734 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) PRI150 PENDING«, t00=0x000e, t01=0x013e}
0x1734…1756 Head {h00=0x001e, h01=0x0050, text=» LDKL A6,LBVDU REQ LENGTH «, t00=0x000e, t01=0x015c}
0x1756…1772 Head {h00=0x0018, h01=0x0050, text=» LDKL A3,BVDU BUFFER«, t00=0x000e, t01=0x017e}
0x1772…1792 Head {h00=0x001c, h01=0x0050, text=» ADR A3,TCABAS ADDRESS«, t00=0x000f, t01=0x000a}
0x1792…17c0 Head {h00=0x002a, h01=0x0050, text=» CF A14,ICREAD READ INTERTASK NO WAIT «, t00=0x000f, t01=0x002a}
0x17c0…17e0 Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+ICR,TCABAS«, t00=0x000f, t01=0x0058}
0x17e0…17f4 Head {h00=0x0010, h01=0x0050, text=»PRI150 EQU *«, t00=0x000f, t01=0x0078}
0x17f4…180c Head {h00=0x0014, h01=0x0050, text=» LDKL A7,ECBBLK «, t00=0x000f, t01=0x008c}
0x180c…1822 Head {h00=0x0012, h01=0x0050, text=» ADR A7,TCABAS«, t00=0x000f, t01=0x00a4}
0x1822…182e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x000f, t01=0x00ba}
0x182e…184c Head {h00=0x001a, h01=0x0050, text=» DATA 7 MULTIPLE WAIT «, t00=0x000f, t01=0x00c6}
0x184c…186c Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+ICR,TCABAS«, t00=0x000f, t01=0x00e4}
0x186c…1896 Head {h00=0x0026, h01=0x0050, text=» RF(E) ICRINP INPUT FROM INTERTASK«, t00=0x000f, t01=0x0104}
0x1896…18d4 Head {h00=0x003a, h01=0x0050, text=» ST A8,ECBDCC,TCABAS SAVE ECB ADDRESS FOR CURRENT READ«, t00=0x000f, t01=0x012e}
0x18d4…18f8 Head {h00=0x0020, h01=0x0050, text=» CF A14,DCINP INPUT FROM DC «, t00=0x000f, t01=0x016c}
0x18f8…190a Head {h00=0x000e, h01=0x0050, text=» RB PRI100«, t00=0x000f, t01=0x0190}
0x190a…1914 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0012}
0x1914…191e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x001c}
0x191e…193e Head {h00=0x001c, h01=0x0050, text=»* READ INTERTASK, NOWAIT«, t00=0x0010, t01=0x0026}
0x193e…1948 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0046}
0x1948…1966 Head {h00=0x001a, h01=0x0050, text=»* A3 = BUFFER ADDRESS «, t00=0x0010, t01=0x0050}
0x1966…1980 Head {h00=0x0016, h01=0x0050, text=»* A6 = REQ LENGTH «, t00=0x0010, t01=0x006e}
0x1980…198a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0088}
0x198a…199e Head {h00=0x0010, h01=0x0050, text=»ICREAD EQU *«, t00=0x0010, t01=0x0092}
0x199e…19b6 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICR «, t00=0x0010, t01=0x00a6}
0x19b6…19cc Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0010, t01=0x00be}
0x19cc…19e0 Head {h00=0x0010, h01=0x0050, text=» LDKL A1,-1 «, t00=0x0010, t01=0x00d4}
0x19e0…19f6 Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x0010, t01=0x00e8}
0x19f6…1a18 Head {h00=0x001e, h01=0x0050, text=» ST A6,ECBRL,A8 REQ LENGTH«, t00=0x0010, t01=0x00fe}
0x1a18…1a30 Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBBA,A8 «, t00=0x0010, t01=0x0120}
0x1a30…1a5e Head {h00=0x002a, h01=0x0050, text=» LDK A7,2 READ NOT ADDRESSED, NO WAIT «, t00=0x0010, t01=0x0138}
0x1a5e…1a6a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0010, t01=0x0166}
0x1a6a…1a7a Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0010, t01=0x0172}
0x1a7a…1a8a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0010, t01=0x0182}
0x1a8a…1a94 (17, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0004}
0x1a94…1adc Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0011, t01=0x000e}
0x1adc…1ae6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0056}
0x1ae6…1afe Head {h00=0x0014, h01=0x0050, text=»* INPUT FROM DC «, t00=0x0011, t01=0x0060}
0x1afe…1b08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0078}
0x1b08…1b44 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0011, t01=0x0082}
0x1b44…1b4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00be}
0x1b4e…1b62 Head {h00=0x0010, h01=0x0050, text=»DCINP EQU * «, t00=0x0011, t01=0x00c8}
0x1b62…1b8e Head {h00=0x0028, h01=0x0050, text=» CF A14,ICABOR ABORT INTERTASK READ «, t00=0x0011, t01=0x00dc}
0x1b8e…1ba0 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x0011, t01=0x0108}
0x1ba0…1bc4 Head {h00=0x0020, h01=0x0050, text=» RF(Z) DCIN10 NOT COMPLETED «, t00=0x0011, t01=0x011a}
0x1bc4…1be6 Head {h00=0x001e, h01=0x0050, text=» IM ICWORK,TCABAS SET FLAG«, t00=0x0011, t01=0x013e}
0x1be6…1c16 Head {h00=0x002c, h01=0x0050, text=» RF ICRINP TAKE CARE OF INTERTASK INPUT «, t00=0x0011, t01=0x0160}
0x1c16…1c48 Head {h00=0x002e, h01=0x0050, text=» OR BUFFER WILL BE DESTROYED IN 'UPDATE'«, t00=0x0011, t01=0x0190}
0x1c48…1c5c Head {h00=0x0010, h01=0x0050, text=»DCIN10 EQU *«, t00=0x0012, t01=0x0032}
0x1c5c…1c86 Head {h00=0x0026, h01=0x0050, text=» CF A14,GTRBUF GET RECEIVE BUFFER «, t00=0x0012, t01=0x0046}
0x1c86…1ca2 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0012, t01=0x0070}
0x1ca2…1cc6 Head {h00=0x0020, h01=0x0050, text=» CF A14,DCGETM READ MESSAGE «, t00=0x0012, t01=0x008c}
0x1cc6…1cda Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0012, t01=0x00b0}
0x1cda…1cf8 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x0012, t01=0x00c4}
0x1cf8…1d04 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x00e2}
0x1d04…1d18 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0012, t01=0x00ee}
0x1d18…1d38 Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+DC2,TCABAS«, t00=0x0012, t01=0x0102}
0x1d38…1d54 Head {h00=0x0018, h01=0x0050, text=» RF(E) DCIN20 MF # 2«, t00=0x0012, t01=0x0122}
0x1d54…1d72 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x0012, t01=0x013e}
0x1d72…1d84 Head {h00=0x000e, h01=0x0050, text=» RF DCIN30«, t00=0x0012, t01=0x015c}
0x1d84…1d98 Head {h00=0x0010, h01=0x0050, text=»DCIN20 EQU *«, t00=0x0012, t01=0x016e}
0x1d98…1db6 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC2,TCABAS «, t00=0x0012, t01=0x0182}
0x1db6…1dc2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0010}
0x1dc2…1dd6 Head {h00=0x0010, h01=0x0050, text=»DCIN30 EQU *«, t00=0x0013, t01=0x001c}
0x1dd6…1dfe Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBEL,A8 EFFECTIVE LENGTH«, t00=0x0013, t01=0x0030}
0x1dfe…1e30 Head {h00=0x002e, h01=0x0050, text=» ST A1,DCLENG,TCABAS SAVE IT IN SAVE AREA «, t00=0x0013, t01=0x0058}
0x1e30…1e38 Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x008a}
0x1e38…1e6e Head {h00=0x0032, h01=0x0050, text=» CF A14,UPDATE MOVE FROM DC TO PRINTER BUFFER;«, t00=0x0013, t01=0x0092}
0x1e6e…1e84 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0013, t01=0x00c8}
0x1e84…1ea0 Head {h00=0x0018, h01=0x0050, text=» LD A1,ICWORK,TCABAS«, t00=0x0013, t01=0x00de}
0x1ea0…1ec4 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DCIN90 COPY COMMAND «, t00=0x0013, t01=0x00fa}
0x1ec4…1ed0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x011e}
0x1ed0…1f02 Head {h00=0x002e, h01=0x0050, text=» LD A1,WCC,TCABAS WRITE CONTROL CHARACTER «, t00=0x0013, t01=0x012a}
0x1f02…1f24 Head {h00=0x001e, h01=0x0050, text=» ST A1,CCC,TCABAS COPY IT «, t00=0x0013, t01=0x015c}
0x1f24…1f48 Head {h00=0x0020, h01=0x0050, text=» CF A14,COPY COPY ON PRINTER«, t00=0x0013, t01=0x017e}
0x1f48…1f5c Head {h00=0x0010, h01=0x0050, text=»DCIN90 EQU *«, t00=0x0014, t01=0x0012}
0x1f5c…1f72 Head {h00=0x0012, h01=0x0050, text=» CF A14,SNBUSY«, t00=0x0014, t01=0x0026}
0x1f72…1f82 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0014, t01=0x003c}
0x1f82…1f8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x004c}
0x1f8c…1f96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0056}
0x1f96…1fb4 Head {h00=0x001a, h01=0x0050, text=»* ABORT INTERTASK READ«, t00=0x0014, t01=0x0060}
0x1fb4…1fbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x007e}
0x1fbe…1fd2 Head {h00=0x0010, h01=0x0050, text=»ICABOR EQU *«, t00=0x0014, t01=0x0088}
0x1fd2…1fe4 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0014, t01=0x009c}
0x1fe4…2002 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+ICR,TCABAS «, t00=0x0014, t01=0x00ae}
0x2002…201a Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICR «, t00=0x0014, t01=0x00cc}
0x201a…2030 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0014, t01=0x00e4}
0x2030…203c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0014, t01=0x00fa}
0x203c…204c Head {h00=0x000c, h01=0x0050, text=» DATA 10«, t00=0x0014, t01=0x0106}
0x204c…205c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0014, t01=0x0116}
0x205c…2066 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0126}
0x2066…2070 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0130}
0x2070…208e Head {h00=0x001a, h01=0x0050, text=»* INPUT FROM INTERTASK«, t00=0x0014, t01=0x013a}
0x208e…2098 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0158}
0x2098…20ac Head {h00=0x0010, h01=0x0050, text=»ICRINP EQU *«, t00=0x0014, t01=0x0162}
0x20ac…20ca Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+ICR,TCABAS «, t00=0x0014, t01=0x0176}
0x20ca…20d2 (21, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x0004}
0x20d2…2100 Head {h00=0x002a, h01=0x0050, text=» LDK A1,X'38' PRINT BIT, 80 CHAR./LINE«, t00=0x0015, t01=0x000c}
0x2100…2138 Head {h00=0x0034, h01=0x0050, text=» ST A1,CCC,TCABAS SAVE AS COPY CONTROL CHARACTER«, t00=0x0015, t01=0x003a}
0x2138…2166 Head {h00=0x002a, h01=0x0050, text=» CF A14,COPY PRINT ON HARDCOPY DEVICE «, t00=0x0015, t01=0x0072}
0x2166…2182 Head {h00=0x0018, h01=0x0050, text=» LD A1,ICWORK,TCABAS«, t00=0x0015, t01=0x00a0}
0x2182…21ae Head {h00=0x0028, h01=0x0050, text=» RB(NZ) DCIN10 TAKE CARE OF DC INPUT«, t00=0x0015, t01=0x00bc}
0x21ae…21c0 Head {h00=0x000e, h01=0x0050, text=» RB PRI100«, t00=0x0015, t01=0x00e8}
0x21c0…21ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00fa}
0x21ca…21d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0104}
0x21d4…21de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x010e}
0x21de…2210 Head {h00=0x002e, h01=0x0050, text=»* PRINT THE CONTENTS OF THE PRINTER BUFFER«, t00=0x0015, t01=0x0118}
0x2210…221a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x014a}
0x221a…2224 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0154}
0x2224…2266 Head {h00=0x003e, h01=0x0050, text=»LINLEN DATA /0028,/4050 LINE LENGTHS /40, 64 AND 80 CHARS «, t00=0x0015, t01=0x015e}
0x2266…2270 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0010}
0x2270…227a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x001a}
0x227a…2294 Head {h00=0x0016, h01=0x0050, text=»COPY LDKL A8,ECBPR«, t00=0x0016, t01=0x0024}
0x2294…22b6 Head {h00=0x001e, h01=0x0050, text=» ADR A8,CREBAS PRINTER ECB«, t00=0x0016, t01=0x003e}
0x22b6…22ce Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBBA,A8 «, t00=0x0016, t01=0x0060}
0x22ce…22e4 Head {h00=0x0012, h01=0x0050, text=» SUR A3,A3 =1«, t00=0x0016, t01=0x0078}
0x22e4…22fc Head {h00=0x0014, h01=0x0050, text=» SC A3,0,A7 =1 «, t00=0x0016, t01=0x008e}
0x22fc…2314 Head {h00=0x0014, h01=0x0050, text=» SC A3,1,A7 =1 «, t00=0x0016, t01=0x00a6}
0x2314…233a Head {h00=0x0022, h01=0x0050, text=» ADK A7,2 PRINt BUFFER ADDRESS«, t00=0x0016, t01=0x00be}
0x233a…2360 Head {h00=0x0022, h01=0x0050, text=» SUR A9,A9 RESET BUFFER INDEX «, t00=0x0016, t01=0x00e4}
0x2360…2376 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0016, t01=0x010a}
0x2376…238c Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0016, t01=0x0120}
0x238c…23b2 Head {h00=0x0022, h01=0x0050, text=» LD A2,CCC,TCABAS GET CCC/CCC «, t00=0x0016, t01=0x0136}
0x23b2…23c6 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/08 «, t00=0x0016, t01=0x015c}
0x23c6…23f2 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) COP100 START PRINTER BIT SET«, t00=0x0016, t01=0x0170}
0x23f2…2408 Head {h00=0x0012, h01=0x0050, text=»COPRTN RTN A14«, t00=0x0017, t01=0x000c}
0x2408…241c Head {h00=0x0010, h01=0x0050, text=»COP100 EQU *«, t00=0x0017, t01=0x0022}
0x241c…2436 Head {h00=0x0016, h01=0x0050, text=» LD A2,CCC,TCABAS «, t00=0x0017, t01=0x0036}
0x2436…244a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/30 «, t00=0x0017, t01=0x0050}
0x244a…247a Head {h00=0x002c, h01=0x0050, text=» ABL(Z) COP111 NL DETERMINES LINE LENGTH«, t00=0x0017, t01=0x0064}
0x247a…248c Head {h00=0x000e, h01=0x0050, text=» SRL A2,4 «, t00=0x0017, t01=0x0094}
0x248c…249e Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0017, t01=0x00a6}
0x249e…24c6 Head {h00=0x0024, h01=0x0050, text=» LC A6,LINLEN,A2 GET LINE LENGTH«, t00=0x0017, t01=0x00b8}
0x24c6…24de Head {h00=0x0014, h01=0x0050, text=»COP110 CWR A9,A6«, t00=0x0017, t01=0x00e0}
0x24de…24f4 Head {h00=0x0012, h01=0x0050, text=» RF(L) COP120 «, t00=0x0017, t01=0x00f8}
0x24f4…2524 Head {h00=0x002c, h01=0x0050, text=»COP115 CF A14,PRLINE LINE FULL: PRINT IT«, t00=0x0017, t01=0x010e}
0x2524…2536 Head {h00=0x000e, h01=0x0050, text=» RB COP110«, t00=0x0017, t01=0x013e}
0x2536…2552 Head {h00=0x0018, h01=0x0050, text=»COP120 CWK A3,LBVDU «, t00=0x0017, t01=0x0150}
0x2552…257a Head {h00=0x0024, h01=0x0050, text=» ABL(NL) COP300 PRINT LAST LINE «, t00=0x0017, t01=0x016c}
0x257a…258c (24, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0018, t01=0x0004}
0x258c…25b2 Head {h00=0x0022, h01=0x0050, text=» ANK A2,/7F RESET DISPLAY BIT «, t00=0x0018, t01=0x0016}
0x25b2…25c4 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x0018, t01=0x003c}
0x25c4…25d8 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0018, t01=0x004e}
0x25d8…25ee Head {h00=0x0012, h01=0x0050, text=» RF(NL) COP130«, t00=0x0018, t01=0x0062}
0x25ee…2602 Head {h00=0x0010, h01=0x0050, text=»COP123 EQU *«, t00=0x0018, t01=0x0078}
0x2602…2614 Head {h00=0x000e, h01=0x0050, text=» ANK A2,6 «, t00=0x0018, t01=0x008c}
0x2614…2626 Head {h00=0x000e, h01=0x0050, text=» XRK A2,6 «, t00=0x0018, t01=0x009e}
0x2626…263c Head {h00=0x0012, h01=0x0050, text=» RF(Z) COP150 «, t00=0x0018, t01=0x00b0}
0x263c…266c Head {h00=0x002c, h01=0x0050, text=»COP125 LDK A2,/20 REPLACE ATTR BY SPACE «, t00=0x0018, t01=0x00c6}
0x266c…267e Head {h00=0x000e, h01=0x0050, text=» RF COP140«, t00=0x0018, t01=0x00f6}
0x267e…2698 Head {h00=0x0016, h01=0x0050, text=»COP130 CWK A2,NULL«, t00=0x0018, t01=0x0108}
0x2698…26c4 Head {h00=0x0028, h01=0x0050, text=» RB(E) COP125 REPLACE NULL BY SPACE «, t00=0x0018, t01=0x0122}
0x26c4…26d8 Head {h00=0x0010, h01=0x0050, text=»COP140 EQU *«, t00=0x0018, t01=0x014e}
0x26d8…26ec Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7D «, t00=0x0018, t01=0x0162}
0x26ec…2702 Head {h00=0x0012, h01=0x0050, text=» RF(NE) COP141«, t00=0x0018, t01=0x0176}
0x2702…2716 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/39 «, t00=0x0018, t01=0x018c}
0x2716…2730 Head {h00=0x0016, h01=0x0050, text=»COP141 CWK A2,/7E «, t00=0x0019, t01=0x0010}
0x2730…2746 Head {h00=0x0012, h01=0x0050, text=» RF(NE) COP142«, t00=0x0019, t01=0x002a}
0x2746…275a Head {h00=0x0010, h01=0x0050, text=» LDK A2,/35 «, t00=0x0019, t01=0x0040}
0x275a…276e Head {h00=0x0010, h01=0x0050, text=»COP142 EQU *«, t00=0x0019, t01=0x0054}
0x276e…2790 Head {h00=0x001e, h01=0x0050, text=» CF A14,RFMDUP FM OR DUP ?«, t00=0x0019, t01=0x0068}
0x2790…27c2 Head {h00=0x002e, h01=0x0050, text=»COP143 CWK A2,/61 LOWER CASE CHARACTER ?? «, t00=0x0019, t01=0x008a}
0x27c2…27dc Head {h00=0x0016, h01=0x0050, text=» RF(L) COP144 NO!!«, t00=0x0019, t01=0x00bc}
0x27dc…27f0 Head {h00=0x0010, h01=0x0050, text=» SUK A2,/20 «, t00=0x0019, t01=0x00d6}
0x27f0…2808 Head {h00=0x0014, h01=0x0050, text=»COP144 SCR A2,A7«, t00=0x0019, t01=0x00ea}
0x2808…281a Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0019, t01=0x0102}
0x281a…282c Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0019, t01=0x0114}
0x282c…283e Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0019, t01=0x0126}
0x283e…2850 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0019, t01=0x0138}
0x2850…2862 Head {h00=0x000e, h01=0x0050, text=» RB COP110«, t00=0x0019, t01=0x014a}
0x2862…2892 Head {h00=0x002c, h01=0x0050, text=»COP150 LDK A2,/20 SPACE INSTEAD OF TEXT «, t00=0x0019, t01=0x015c}
0x2892…28a4 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A7«, t00=0x0019, t01=0x018c}
0x28a4…28b6 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001a, t01=0x000e}
0x28b6…28c8 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x001a, t01=0x0020}
0x28c8…28da Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x001a, t01=0x0032}
0x28da…28ec Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x001a, t01=0x0044}
0x28ec…28fe Head {h00=0x000e, h01=0x0050, text=» CWR A9,A6«, t00=0x001a, t01=0x0056}
0x28fe…2914 Head {h00=0x0012, h01=0x0050, text=» RF(L) COP160 «, t00=0x001a, t01=0x0068}
0x2914…2940 Head {h00=0x0028, h01=0x0050, text=» CF A14,PRLINE LINE FULL : PRINT IT «, t00=0x001a, t01=0x007e}
0x2940…2958 Head {h00=0x0014, h01=0x0050, text=»COP160 LCR A2,A4«, t00=0x001a, t01=0x00aa}
0x2958…296c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x001a, t01=0x00c2}
0x296c…2980 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x001a, t01=0x00d6}
0x2980…29a0 Head {h00=0x001c, h01=0x0050, text=» RB(L) COP123 ATTRIBUTE «, t00=0x001a, t01=0x00ea}
0x29a0…29cc Head {h00=0x0028, h01=0x0050, text=» RB COP150 STILL IN PROTECTED FIELD «, t00=0x001a, t01=0x010a}
0x29cc…29d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0136}
0x29d6…29e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0140}
0x29e0…2a10 Head {h00=0x002c, h01=0x0050, text=»* LINE LENGTH AS DEFINED BY NL CHARACTER«, t00=0x001a, t01=0x014a}
0x2a10…2a1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x017a}
0x2a1a…2a24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0184}
0x2a24…2a5e Head {h00=0x0036, h01=0x0050, text=»* THE FIRST INSTR. ORIGINALLY HAD LABEL 'COP200'. «, t00=0x001a, t01=0x018e}
0x2a5e…2a68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0038}
0x2a68…2a72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0042}
0x2a72…2a86 Head {h00=0x0010, h01=0x0050, text=»COP111 EQU *«, t00=0x001b, t01=0x004c}
0x2a86…2aa0 Head {h00=0x0016, h01=0x0050, text=» CWK A9,LPLIN DK3«, t00=0x001b, t01=0x0060}
0x2aa0…2ac6 Head {h00=0x0022, h01=0x0050, text=» RF(L) COP220 BUFFER NOT FULL «, t00=0x001b, t01=0x007a}
0x2ac6…2aee Head {h00=0x0024, h01=0x0050, text=»COP210 CF A14,PRLINE PRINT LINE «, t00=0x001b, t01=0x00a0}
0x2aee…2b02 Head {h00=0x0010, h01=0x0050, text=» ABL COP111 «, t00=0x001b, t01=0x00c8}
0x2b02…2b1e Head {h00=0x0018, h01=0x0050, text=»COP220 CWK A3,LBVDU «, t00=0x001b, t01=0x00dc}
0x2b1e…2b44 Head {h00=0x0022, h01=0x0050, text=» RF(NL) COP300 PRINT LAST LINE«, t00=0x001b, t01=0x00f8}
0x2b44…2b56 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x001b, t01=0x011e}
0x2b56…2b6a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x001b, t01=0x0130}
0x2b6a…2b8e Head {h00=0x0020, h01=0x0050, text=» SCR A2,A4 RESET DISPLAY BIT«, t00=0x001b, t01=0x0144}
0x2b8e…2ba2 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x001b, t01=0x0168}
0x2ba2…2bb8 Head {h00=0x0012, h01=0x0050, text=» RF(NL) COP230«, t00=0x001b, t01=0x017c}
0x2bb8…2be4 (28, 0, 400) Head {h00=0x0028, h01=0x0050, text=»COP223 ANK A2,/6 ATTRIBUTE CHARACTER«, t00=0x001c, t01=0x0004}
0x2be4…2bf6 Head {h00=0x000e, h01=0x0050, text=» XRK A2,6 «, t00=0x001c, t01=0x0030}
0x2bf6…2c1c Head {h00=0x0022, h01=0x0050, text=» RF(Z) COP250 PROTECTED FIELD «, t00=0x001c, t01=0x0042}
0x2c1c…2c50 Head {h00=0x0030, h01=0x0050, text=»COP225 LDK A2,/20 REPLACE ATTRIBUTE BY SPACE«, t00=0x001c, t01=0x0068}
0x2c50…2c62 Head {h00=0x000e, h01=0x0050, text=» RF COP240«, t00=0x001c, t01=0x009c}
0x2c62…2c7c Head {h00=0x0016, h01=0x0050, text=»COP230 CWK A2,NULL«, t00=0x001c, t01=0x00ae}
0x2c7c…2cac Head {h00=0x002c, h01=0x0050, text=» RB(E) COP225 NULL IS REPLACED BY SPACE «, t00=0x001c, t01=0x00c8}
0x2cac…2cc0 Head {h00=0x0010, h01=0x0050, text=»COP240 EQU *«, t00=0x001c, t01=0x00f8}
0x2cc0…2cd4 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7B «, t00=0x001c, t01=0x010c}
0x2cd4…2cea Head {h00=0x0012, h01=0x0050, text=» RF(NE) COP241«, t00=0x001c, t01=0x0120}
0x2cea…2cfe Head {h00=0x0010, h01=0x0050, text=» LDK A2,/2A «, t00=0x001c, t01=0x0136}
0x2cfe…2d16 Head {h00=0x0014, h01=0x0050, text=»COP241 SCR A2,A7«, t00=0x001c, t01=0x014a}
0x2d16…2d28 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001c, t01=0x0162}
0x2d28…2d3a Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x001c, t01=0x0174}
0x2d3a…2d4c Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x001c, t01=0x0186}
0x2d4c…2d62 Head {h00=0x0012, h01=0x0050, text=» CWK A2,NEWLIN«, t00=0x001d, t01=0x0008}
0x2d62…2d8c Head {h00=0x0026, h01=0x0050, text=» RB(E) COP210 NL CHAR: PRINT LINE «, t00=0x001d, t01=0x001e}
0x2d8c…2da8 Head {h00=0x0018, h01=0x0050, text=» CWK A2,FORMFD DK1 «, t00=0x001d, t01=0x0048}
0x2da8…2dc2 Head {h00=0x0016, h01=0x0050, text=» RB(E) COP210 DK1«, t00=0x001d, t01=0x0064}
0x2dc2…2dd8 Head {h00=0x0012, h01=0x0050, text=» CWK A2,ENDMES«, t00=0x001d, t01=0x007e}
0x2dd8…2e0a Head {h00=0x002e, h01=0x0050, text=» RF(E) COP300 UND MESSAGE: PRINT LAST LINE«, t00=0x001d, t01=0x0094}
0x2e0a…2e1c Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x001d, t01=0x00c6}
0x2e1c…2e30 Head {h00=0x0010, h01=0x0050, text=» ABL COP111 «, t00=0x001d, t01=0x00d8}
0x2e30…2e60 Head {h00=0x002c, h01=0x0050, text=»COP250 LDK A2,/20 REPLACE TEXT BY SPACE «, t00=0x001d, t01=0x00ec}
0x2e60…2e72 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A7«, t00=0x001d, t01=0x011c}
0x2e72…2e84 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001d, t01=0x012e}
0x2e84…2e96 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x001d, t01=0x0140}
0x2e96…2ea8 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x001d, t01=0x0152}
0x2ea8…2eba Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x001d, t01=0x0164}
0x2eba…2ecc Head {h00=0x000e, h01=0x0050, text=» CWR A9,A6«, t00=0x001d, t01=0x0176}
0x2ecc…2ee2 Head {h00=0x0012, h01=0x0050, text=» RF(L) COP260 «, t00=0x001d, t01=0x0188}
0x2ee2…2f0e Head {h00=0x0028, h01=0x0050, text=» CF A14,PRLINE LINE FULL : PRINT IT «, t00=0x001e, t01=0x000e}
0x2f0e…2f26 Head {h00=0x0014, h01=0x0050, text=»COP260 LCR A2,A4«, t00=0x001e, t01=0x003a}
0x2f26…2f3a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x001e, t01=0x0052}
0x2f3a…2f4e Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x001e, t01=0x0066}
0x2f4e…2f74 Head {h00=0x0022, h01=0x0050, text=» RB(L) COP223 ATTRIBUTE FOUND «, t00=0x001e, t01=0x007a}
0x2f74…2fa0 Head {h00=0x0028, h01=0x0050, text=» RB COP250 STILL IN PROTECTED FIELD «, t00=0x001e, t01=0x00a0}
0x2fa0…2fb8 Head {h00=0x0014, h01=0x0050, text=»COP300 LDR A9,A9«, t00=0x001e, t01=0x00cc}
0x2fb8…2fda Head {h00=0x001e, h01=0x0050, text=» ABL(Z) COPRTN ALL PRINTED«, t00=0x001e, t01=0x00e4}
0x2fda…3000 Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE PRINT LAST LINE«, t00=0x001e, t01=0x0106}
0x3000…3014 Head {h00=0x0010, h01=0x0050, text=» ABL COPRTN «, t00=0x001e, t01=0x012c}
0x3014…301e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0140}
0x301e…3028 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x014a}
0x3028…3032 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0154}
0x3032…3056 Head {h00=0x0020, h01=0x0050, text=»* PRINT ONE LINE ON PRINTER «, t00=0x001e, t01=0x015e}
0x3056…3060 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0182}
0x3060…308c Head {h00=0x0028, h01=0x0050, text=»* A9=NUMBER OF CHAR IN PRINT BUFFER «, t00=0x001e, t01=0x018c}
0x308c…3096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0028}
0x3096…30a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0032}
0x30a0…30b4 Head {h00=0x0010, h01=0x0050, text=»PRLINE EQU *«, t00=0x001f, t01=0x003c}
0x30b4…30ce Head {h00=0x0016, h01=0x0050, text=» IFT SUSPA=1 DK4 «, t00=0x001f, t01=0x0050}
0x30ce…30ea Head {h00=0x0018, h01=0x0050, text=» CF A14,SKIPSP DK4 «, t00=0x001f, t01=0x006a}
0x30ea…30fc Head {h00=0x000e, h01=0x0050, text=» XIF DK4«, t00=0x001f, t01=0x0086}
0x30fc…312e Head {h00=0x002e, h01=0x0050, text=» IM LINCNT,TCABAS COUNT NBR OF PRINTLINES «, t00=0x001f, t01=0x0098}
0x312e…3154 Head {h00=0x0022, h01=0x0050, text=» RF(N) PRL100 NOT END OF PAGE «, t00=0x001f, t01=0x00ca}
0x3154…3176 Head {h00=0x001e, h01=0x0050, text=» LDK A7,LPAGE END OF PAGE «, t00=0x001f, t01=0x00f0}
0x3176…3188 Head {h00=0x000e, h01=0x0050, text=» NGR A7,A7«, t00=0x001f, t01=0x0112}
0x3188…31b8 Head {h00=0x002c, h01=0x0050, text=» ST A7,LINCNT,TCABAS RESET LINE COUNTER «, t00=0x001f, t01=0x0124}
0x31b8…31d6 Head {h00=0x001a, h01=0x0050, text=»PRL100 LD A7,ECBBA,A8 «, t00=0x001f, t01=0x0154}
0x31d6…3210 Head {h00=0x0036, h01=0x0050, text=»********************* LP 400 SUPPORT ********* DK «, t00=0x001f, t01=0x0172}
0x3210…323c Head {h00=0x0028, h01=0x0050, text=» LC A2,2,A7 GET FORMCONTROL CHAR DK «, t00=0x0020, t01=0x001c}
0x323c…3264 Head {h00=0x0024, h01=0x0050, text=» ANK A2,/7F REMOVE PARITY BIT DK«, t00=0x0020, t01=0x0048}
0x3264…327e Head {h00=0x0016, h01=0x0050, text=» CWK A2,FORMFD DK«, t00=0x0020, t01=0x0070}
0x327e…32a8 Head {h00=0x0026, h01=0x0050, text=» RF(NE) PRL106 NO, NORMAL PRINT DK«, t00=0x0020, t01=0x008a}
0x32a8…32c0 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/31 DK «, t00=0x0020, t01=0x00b4}
0x32c0…32ea Head {h00=0x0026, h01=0x0050, text=» SC A2,1,A7 CHANGE TO FORMFEED DK «, t00=0x0020, t01=0x00cc}
0x32ea…3300 Head {h00=0x0012, h01=0x0050, text=» LDK A7,2 DK «, t00=0x0020, t01=0x00f6}
0x3300…332a Head {h00=0x0026, h01=0x0050, text=» ST A7,ECBRL,A8 REQ LENGTH = 2 DK «, t00=0x0020, t01=0x010c}
0x332a…3344 Head {h00=0x0016, h01=0x0050, text=» CF A14,PRLKM DK3«, t00=0x0020, t01=0x0136}
0x3344…335e Head {h00=0x0016, h01=0x0050, text=» LDK A7,LPAGE DK «, t00=0x0020, t01=0x0150}
0x335e…3374 Head {h00=0x0012, h01=0x0050, text=» NGR A7,A7 DK«, t00=0x0020, t01=0x016a}
0x3374…33a6 Head {h00=0x002e, h01=0x0050, text=» ST A7,LINCNT,TCABAS RESET LINE COUNTER DK«, t00=0x0020, t01=0x0180}
0x33a6…33b8 Head {h00=0x000e, h01=0x0050, text=» RF PRL220«, t00=0x0021, t01=0x0022}
0x33b8…33d0 Head {h00=0x0014, h01=0x0050, text=»PRL105 EQU * DK«, t00=0x0021, t01=0x0034}
0x33d0…3402 Head {h00=0x002e, h01=0x0050, text=»******************** END LP400 SUPPORT DK «, t00=0x0021, t01=0x004c}
0x3402…342e Head {h00=0x0028, h01=0x0050, text=» LC A2,2,A7 GET FIRST CHAR IN BUFFER«, t00=0x0021, t01=0x007e}
0x342e…3442 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0021, t01=0x00aa}
0x3442…345a Head {h00=0x0014, h01=0x0050, text=»PRL106 EQU * DK«, t00=0x0021, t01=0x00be}
0x345a…3470 Head {h00=0x0012, h01=0x0050, text=» CWK A2,FORMFD«, t00=0x0021, t01=0x00d6}
0x3470…3494 Head {h00=0x0020, h01=0x0050, text=» RF(NE) PRL200 NOT FORM FEED«, t00=0x0021, t01=0x00ec}
0x3494…34a8 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/20 «, t00=0x0021, t01=0x0110}
0x34a8…34d0 Head {h00=0x0024, h01=0x0050, text=» SC A2,2,A7 REPLACE LF BY SPACE «, t00=0x0021, t01=0x0124}
0x34d0…34d8 Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x014c}
0x34d8…34ec Head {h00=0x0010, h01=0x0050, text=»PRL110 EQU *«, t00=0x0021, t01=0x0154}
0x34ec…3512 Head {h00=0x0022, h01=0x0050, text=» LD A1,LINCNT,TCABAS FORM FEED«, t00=0x0021, t01=0x0168}
0x3512…3524 Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x0021, t01=0x018e}
0x3524…355c Head {h00=0x0034, h01=0x0050, text=» ST A7,ECBRL,A8 SET REQ LENGTH TO 2 FOR NEW LINE«, t00=0x0022, t01=0x0010}
0x355c…3570 Head {h00=0x0010, h01=0x0050, text=»PRL120 EQU *«, t00=0x0022, t01=0x0048}
0x3570…358a Head {h00=0x0016, h01=0x0050, text=» CF A14,PRLKM DK3«, t00=0x0022, t01=0x005c}
0x358a…35a8 Head {h00=0x001a, h01=0x0050, text=» ADK A1,1 COUNT LINES «, t00=0x0022, t01=0x0076}
0x35a8…35be Head {h00=0x0012, h01=0x0050, text=» RB(N) PRL120 «, t00=0x0022, t01=0x0094}
0x35be…35d4 Head {h00=0x0012, h01=0x0050, text=» LDK A7,LPAGE «, t00=0x0022, t01=0x00aa}
0x35d4…35e6 Head {h00=0x000e, h01=0x0050, text=» NGR A7,A7«, t00=0x0022, t01=0x00c0}
0x35e6…3616 Head {h00=0x002c, h01=0x0050, text=» ST A7,LINCNT,TCABAS RESET LINE COUNTER «, t00=0x0022, t01=0x00d2}
0x3616…364a Head {h00=0x0030, h01=0x0050, text=»PRL200 ADKL A9,2 ADJUST LENGTH FOR BUFFER CW«, t00=0x0022, t01=0x0102}
0x364a…366c Head {h00=0x001e, h01=0x0050, text=» ST A9,ECBRL,A8 REQ LENGTH«, t00=0x0022, t01=0x0136}
0x366c…3684 Head {h00=0x0014, h01=0x0050, text=»PRL210 EQU * DK«, t00=0x0022, t01=0x0158}
0x3684…369e Head {h00=0x0016, h01=0x0050, text=» CF A14,PRLKM DK3«, t00=0x0022, t01=0x0170}
0x369e…36b6 Head {h00=0x0014, h01=0x0050, text=»PRL220 EQU * DK«, t00=0x0022, t01=0x018a}
0x36b6…36c8 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0023, t01=0x0012}
0x36c8…36e0 Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBBA,A8 «, t00=0x0023, t01=0x0024}
0x36e0…36f6 Head {h00=0x0012, h01=0x0050, text=» SUR A9,A9 =1«, t00=0x0023, t01=0x003c}
0x36f6…370c Head {h00=0x0012, h01=0x0050, text=» SCR A9,A7 =1«, t00=0x0023, t01=0x0052}
0x370c…3724 Head {h00=0x0014, h01=0x0050, text=» SC A9,1,A7 =1 «, t00=0x0023, t01=0x0068}
0x3724…374c Head {h00=0x0024, h01=0x0050, text=» ADK A7,2 RESTORE BUFFER ADDRESS«, t00=0x0023, t01=0x0080}
0x374c…375c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0023, t01=0x00a8}
0x375c…3772 Head {h00=0x0012, h01=0x0050, text=»* EJECT«, t00=0x0023, t01=0x00b8}
0x3772…377c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00ce}
0x377c…3786 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00d8}
0x3786…37aa Head {h00=0x0020, h01=0x0050, text=»* SET STATUS NOT BUSY FOR DC«, t00=0x0023, t01=0x00e2}
0x37aa…37b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0106}
0x37b4…37be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0110}
0x37be…37d2 Head {h00=0x0010, h01=0x0050, text=»SNBUSY EQU *«, t00=0x0023, t01=0x011a}
0x37d2…37ee Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0023, t01=0x012e}
0x37ee…3802 Head {h00=0x0010, h01=0x0050, text=» CM ECBCW,A8«, t00=0x0023, t01=0x014a}
0x3802…3826 Head {h00=0x0020, h01=0x0050, text=» LDK A7,/B8 SET STATUS ORDER«, t00=0x0023, t01=0x015e}
0x3826…3832 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0023, t01=0x0182}
0x3832…3842 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0023, t01=0x018e}
0x3842…3852 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0024, t01=0x000e}
0x3852…385c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x001e}
0x385c…3866 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0028}
0x3866…3870 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0032}
0x3870…387a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x003c}
0x387a…3892 Head {h00=0x0014, h01=0x0050, text=»PRLKM EQU * DK3«, t00=0x0024, t01=0x0046}
0x3892…38aa Head {h00=0x0014, h01=0x0050, text=» LDK A7,/86 DK3«, t00=0x0024, t01=0x005e}
0x38aa…38bc Head {h00=0x000e, h01=0x0050, text=» LKM DK3«, t00=0x0024, t01=0x0076}
0x38bc…38d0 Head {h00=0x0010, h01=0x0050, text=» DATA 1 DK3«, t00=0x0024, t01=0x0088}
0x38d0…38fc Head {h00=0x0028, h01=0x0050, text=» LD A7,ECBRC,A8 GET RETURN CODE DK3 «, t00=0x0024, t01=0x009c}
0x38fc…3922 Head {h00=0x0022, h01=0x0050, text=» ANKL A7,/2005 BIT 2,3,15? DK3«, t00=0x0024, t01=0x00c8}
0x3922…394a Head {h00=0x0024, h01=0x0050, text=» RB(NZ) PRLKM NO, TRY AGAIN DK3 «, t00=0x0024, t01=0x00ee}
0x394a…3960 Head {h00=0x0012, h01=0x0050, text=» RTN A14 DK3 «, t00=0x0024, t01=0x0116}
0x3960…396a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x012c}
0x396a…3974 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0136}
0x3974…398e Head {h00=0x0016, h01=0x0050, text=» IFT SUSPA=1 DK4B«, t00=0x0024, t01=0x0140}
0x398e…3998 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x015a}
0x3998…39a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0164}
0x39a2…39d0 Head {h00=0x002a, h01=0x0050, text=»* SKIPSP = SUBROTINE TO SKIP SPACES«, t00=0x0024, t01=0x016e}
0x39d0…39fc Head {h00=0x0028, h01=0x0050, text=»* IN END OF ECB-BUFFER. «, t00=0x0025, t01=0x000c}
0x39fc…3a34 Head {h00=0x0034, h01=0x0050, text=»* REQUESTED LENGTH IN A9 IS UPDATED.«, t00=0x0025, t01=0x0038}
0x3a34…3a5a Head {h00=0x0022, h01=0x0050, text=»* A1,A2 - WORK REG«, t00=0x0025, t01=0x0070}
0x3a5a…3a64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0096}
0x3a64…3a78 Head {h00=0x0010, h01=0x0050, text=»SKIPSP EQU *«, t00=0x0025, t01=0x00a0}
0x3a78…3a8a Head {h00=0x000e, h01=0x0050, text=» ADKL A9,2«, t00=0x0025, t01=0x00b4}
0x3a8a…3ab6 Head {h00=0x0028, h01=0x0050, text=» LD A1,2,A8 GET BUFFER ADDRESS (BA) «, t00=0x0025, t01=0x00c6}
0x3ab6…3ade Head {h00=0x0024, h01=0x0050, text=» ADR A1,A9 GET ADD END OF BUFFER«, t00=0x0025, t01=0x00f2}
0x3ade…3af6 Head {h00=0x0014, h01=0x0050, text=»SKIP05 CWK A9,2 «, t00=0x0025, t01=0x011a}
0x3af6…3b14 Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 3 «, t00=0x0025, t01=0x0132}
0x3b14…3b2e Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 DECR. BA«, t00=0x0025, t01=0x0150}
0x3b2e…3b4a Head {h00=0x0018, h01=0x0050, text=» LCR A2,A1 GET CHAR «, t00=0x0025, t01=0x016a}
0x3b4a…3b68 Head {h00=0x001a, h01=0x0050, text=» CCK A2,/2020 SPACE ? «, t00=0x0025, t01=0x0186}
0x3b68…3b82 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP20 NO «, t00=0x0026, t01=0x0014}
0x3b82…3ba2 Head {h00=0x001c, h01=0x0050, text=»SKIP07 SUKL A9,1 DECR RL«, t00=0x0026, t01=0x002e}
0x3ba2…3bbe Head {h00=0x0018, h01=0x0050, text=» RB SKIP05 GET NEXT «, t00=0x0026, t01=0x004e}
0x3bbe…3bd6 Head {h00=0x0014, h01=0x0050, text=»SKIP20 CWK A9,4 «, t00=0x0026, t01=0x006a}
0x3bd6…3bf4 Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 5 «, t00=0x0026, t01=0x0082}
0x3bf4…3c12 Head {h00=0x001a, h01=0x0050, text=» LC A2,-2,A1 GET CHAR «, t00=0x0026, t01=0x00a0}
0x3c12…3c3a Head {h00=0x0024, h01=0x0050, text=» CCK A2,/1111 TABULATION CHAR ? «, t00=0x0026, t01=0x00be}
0x3c3a…3c54 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP30 NO «, t00=0x0026, t01=0x00e6}
0x3c54…3c6e Head {h00=0x0016, h01=0x0050, text=» SUK A1,2 DECR BA «, t00=0x0026, t01=0x0100}
0x3c6e…3c88 Head {h00=0x0016, h01=0x0050, text=» SUKL A9,2 DECR RL«, t00=0x0026, t01=0x011a}
0x3c88…3ca4 Head {h00=0x0018, h01=0x0050, text=» RB SKIP07 GET NEXT «, t00=0x0026, t01=0x0134}
0x3ca4…3cae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0150}
0x3cae…3cc2 Head {h00=0x0010, h01=0x0050, text=»SKIP30 EQU *«, t00=0x0026, t01=0x015a}
0x3cc2…3cd4 Head {h00=0x000e, h01=0x0050, text=» SUKL A9,2«, t00=0x0026, t01=0x016e}
0x3cd4…3ce4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0026, t01=0x0180}
0x3ce4…3cf8 Head {h00=0x0010, h01=0x0050, text=» XIF DK4E «, t00=0x0026, t01=0x0190}
0x3cf8…3d02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0014}
0x3d02…3d16 Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x0027, t01=0x001e}
0x3d16…3d1a Head {h00=0x4004, h01=0x0000}
0x3d1a…3d1e 00 27 00 32 ┆ ' 2┆
0x3d1e…3d26 (40, 1, 8) 20 04 00 00 00 28 00 04 ┆ ( ┆
0x3d26…3d76 (41, 0, 400) 53 54 51 5c 47 45 54 20 51 55 45 55 45 20 41 4e 43 48 4f 52 00 28 01 80 00 12 00 50 5c 4c 44 4b 5c 41 34 2c 44 57 54 53 51 20 00 29 00 1c 00 0e 00 50 5c 52 42 5c 49 4e 53 57 51 32 00 29 00 32 00 06 00 50 2a 20 00 29 00 44 00 06 00 50 2a 20 ┆STQ GET QUEUE ANCHOR ( P LDK A4,DWTSQ ) P RB INSWQ2 ) 2 P* ) D P* ┆
0x3d76…3dc6 00 29 00 4e 00 22 00 50 2a 5c 52 45 4d 4f 56 45 20 44 57 54 20 46 52 4f 4d 20 53 54 41 54 55 53 20 51 55 45 55 45 00 29 00 58 00 06 00 50 2a 20 00 29 00 7e 00 18 00 50 2a 5c 41 32 2c 41 33 2c 41 34 20 44 45 53 54 52 4f 59 45 44 00 29 00 88 ┆ ) N " P* REMOVE DWT FROM STATUS QUEUE ) X P* ) ~ P* A2,A3,A4 DESTROYED ) ┆
0x3dc6…3e16 00 0c 00 50 2a 5c 41 36 3d 44 57 54 00 29 00 a4 00 06 00 50 2a 20 00 29 00 b4 00 2a 00 50 52 45 4d 4f 56 53 5c 4c 44 4b 4c 5c 41 32 2c 44 43 53 54 51 5c 47 45 54 20 51 55 45 55 45 20 41 4e 43 48 4f 52 20 00 29 00 be 00 12 00 50 5c 4c 44 4b ┆ P* A6=DWT ) P* ) * PREMOVS LDKL A2,DCSTQ GET QUEUE ANCHOR ) P LDK┆
0x3e16…3e66 5c 41 34 2c 44 57 54 53 51 20 00 29 00 ec 00 0e 00 50 5c 52 42 5c 52 45 4d 30 36 20 00 29 01 02 00 08 00 50 5c 58 49 46 00 29 01 14 00 0a 00 50 5c 45 4a 45 43 54 00 29 01 20 00 06 00 50 2a 20 00 29 01 2e 00 06 00 50 2a 20 00 29 01 38 00 24 ┆ A4,DWTSQ ) P RB REM06 ) P XIF ) P EJECT ) P* ) . P* ) 8 $┆
0x3e66…3eb6 00 50 2a 5c 51 55 45 55 45 20 41 4c 4c 4f 43 41 54 45 44 20 52 45 43 45 49 56 45 20 42 55 46 46 45 52 00 29 01 42 00 06 00 50 2a 20 00 29 01 6a 00 14 00 50 2a 5c 41 34 3d 42 55 46 46 45 52 20 41 44 44 52 00 29 01 74 00 16 00 50 2a 5c 41 32 ┆ P* QUEUE ALLOCATED RECEIVE BUFFER ) B P* ) j P* A4=BUFFER ADDR ) t P* A2┆
0x3eb6…3f06 (42, 0, 400) 2c 41 33 20 44 45 53 54 52 4f 59 45 44 20 00 29 01 8c 00 06 00 50 2a 20 00 2a 00 16 00 10 00 50 51 52 42 55 46 5c 45 51 55 5c 2a 20 00 2a 00 20 00 12 00 50 5c 49 46 54 5c 4d 45 53 50 41 53 3d 31 20 00 2a 00 34 00 28 00 50 5c 4c 44 4b 4c 5c ┆,A3 DESTROYED ) P* * PQRBUF EQU * * P IFT MESPAS=1 * 4 ( P LDKL ┆
0x3f06…3f56 41 32 2c 44 57 31 35 30 30 5c 51 55 45 55 45 20 4f 4e 20 44 43 2d 54 41 53 4b 20 44 57 54 00 2a 00 4a 00 08 00 50 5c 58 49 46 00 2a 00 76 00 12 00 50 5c 49 46 54 5c 4d 45 53 50 41 53 3d 30 20 00 2a 00 82 00 24 00 50 5c 4c 44 52 5c 41 32 2c ┆A2,DW1500 QUEUE ON DC-TASK DWT * J P XIF * v P IFT MESPAS=0 * $ P LDR A2,┆
0x3f56…3fa6 41 36 5c 51 55 45 55 45 20 4f 4e 20 54 45 52 4d 49 4e 41 4c 20 44 57 54 00 2a 00 98 00 08 00 50 5c 58 49 46 00 2a 00 c0 00 2c 00 50 5c 41 44 4b 5c 41 32 2c 44 57 54 52 51 5c 42 45 47 49 4e 4e 49 4e 47 20 4f 46 20 52 45 43 45 49 56 45 20 51 ┆A6 QUEUE ON TERMINAL DWT * P XIF * , P ADK A2,DWTRQ BEGINNING OF RECEIVE Q┆
0x3fa6…3ff6 55 45 55 45 00 2a 00 cc 00 10 00 50 51 52 31 30 30 5c 45 51 55 5c 2a 20 00 2a 00 fc 00 10 00 50 5c 4c 44 52 2a 5c 41 33 2c 41 32 20 00 2a 01 10 00 24 00 50 5c 52 46 28 5a 29 5c 51 52 32 30 30 5c 45 4e 44 20 4f 46 20 51 55 45 55 45 20 46 4f ┆UEUE * PQR100 EQU * * P LDR* A3,A2 * $ P RF(Z) QR200 END OF QUEUE FO┆
0x3ff6…4046 55 4e 44 20 00 2a 01 24 00 0e 00 50 5c 4c 44 52 5c 41 32 2c 41 33 00 2a 01 4c 00 0e 00 50 5c 52 42 5c 51 52 31 30 30 20 00 2a 01 5e 00 26 00 50 51 52 32 30 30 5c 53 54 52 5c 41 34 2c 41 32 5c 49 4e 53 45 52 54 20 49 4e 54 4f 20 51 55 45 55 ┆UND * $ P LDR A2,A3 * L P RB QR100 * ^ & PQR200 STR A4,A2 INSERT INTO QUEU┆
0x4046…4096 (43, 0, 400) 45 20 00 2a 01 70 00 22 00 50 5c 43 4d 52 5c 41 34 5c 49 4e 44 49 43 41 54 45 20 45 4e 44 20 4f 46 20 51 55 45 55 45 20 00 2b 00 0a 00 0c 00 50 5c 52 54 4e 5c 41 35 20 00 2b 00 30 00 0a 00 50 5c 45 4a 45 43 54 00 2b 00 40 00 06 00 50 2a 20 ┆E * p " P CMR A4 INDICATE END OF QUEUE + P RTN A5 + 0 P EJECT + @ P* ┆
0x4096…40e6 00 2b 00 4e 00 06 00 50 2a 20 00 2b 00 58 00 32 00 50 2a 5c 43 48 45 43 4b 20 49 46 20 55 4e 45 58 50 45 43 54 45 44 20 4d 45 53 53 41 47 45 20 4f 52 20 53 54 41 54 55 53 20 43 48 41 4e 47 45 00 2b 00 62 00 06 00 50 2a 20 00 2b 00 98 00 34 ┆ + N P* + X 2 P* CHECK IF UNEXPECTED MESSAGE OR STATUS CHANGE + b P* + 4┆
0x40e6…4136 00 50 2a 5c 52 45 47 49 53 54 45 52 53 20 41 31 2c 41 32 2c 41 33 2c 41 34 2c 41 36 20 41 4e 44 20 41 38 20 41 52 45 20 44 45 53 54 52 4f 59 45 44 20 00 2b 00 a2 00 06 00 50 2a 20 00 2b 00 da 00 1a 00 50 43 4b 4d 45 53 53 5c 4c 44 4b 4c 5c ┆ P* REGISTERS A1,A2,A3,A4,A6 AND A8 ARE DESTROYED + P* + PCKMESS LDKL ┆
0x4136…4186 41 36 2c 44 57 31 35 30 30 20 00 2b 00 e4 00 14 00 50 5c 4c 44 5c 41 31 2c 44 57 54 53 54 2c 41 36 20 00 2b 01 02 00 1c 00 50 5c 52 46 28 4e 29 5c 43 4b 4d 31 31 30 5c 4e 4f 20 52 45 51 55 45 53 54 00 2b 01 1a 00 1c 00 50 5c 4c 44 4b 5c 41 ┆A6,DW1500 + P LD A1,DWTST,A6 + P RF(N) CKM110 NO REQUEST + P LDK A┆
0x4186…41d6 31 2c 32 5c 52 45 41 44 20 52 45 51 55 45 53 54 20 3f 00 2b 01 3a 00 14 00 50 5c 43 57 5c 41 31 2c 44 57 54 4f 52 2c 41 36 20 00 2b 01 5a 00 16 00 50 5c 52 46 28 4e 45 29 5c 43 4b 4d 31 31 30 5c 4e 4f 20 00 2b 01 72 00 24 00 50 5c 4c 44 5c ┆1,2 READ REQUEST ? + : P CW A1,DWTOR,A6 + Z P RF(NE) CKM110 NO + r $ P LD ┆
0x41d6…4226 (44, 0, 398) 41 38 2c 44 57 54 45 43 42 2c 41 36 5c 45 43 42 20 41 44 44 52 20 54 4f 20 41 38 20 00 2b 01 8c 00 2a 00 50 5c 4c 44 5c 41 33 2c 44 57 54 52 51 2c 41 36 5c 41 33 3d 41 44 44 52 20 54 4f 20 52 45 41 44 20 51 55 45 55 45 20 00 2c 00 24 00 22 ┆A8,DWTECB,A6 ECB ADDR TO A8 + * P LD A3,DWTRQ,A6 A3=ADDR TO READ QUEUE , $ "┆
0x4226…4276 00 50 5c 52 46 28 5a 29 5c 43 4b 4d 32 30 30 5c 4e 4f 20 52 45 41 44 20 49 4e 20 51 55 45 55 45 00 2c 00 52 00 04 00 50 00 2c 00 78 00 04 00 50 00 2c 00 80 00 2c 00 50 5c 4c 44 52 2a 5c 41 32 2c 41 33 5c 41 32 3d 41 44 44 52 20 54 4f 20 4e ┆ P RF(Z) CKM200 NO READ IN QUEUE , R P , x P , , P LDR* A2,A3 A2=ADDR TO N┆
0x4276…42c6 45 58 54 20 52 45 41 44 20 42 55 46 46 45 52 20 00 2c 00 88 00 2e 00 50 5c 53 54 5c 41 32 2c 44 57 54 52 51 2c 41 36 5c 53 54 4f 52 45 20 54 48 49 53 20 41 44 44 52 20 49 4e 54 4f 20 51 55 45 55 45 00 2c 00 b8 00 22 00 50 5c 41 44 4b 5c 41 ┆EXT READ BUFFER , . P ST A2,DWTRQ,A6 STORE THIS ADDR INTO QUEUE , " P ADK A┆
0x42c6…4316 33 2c 36 5c 4d 4f 56 45 20 50 4f 49 4e 54 45 52 20 54 4f 20 54 45 58 54 00 2c 00 ea 00 26 00 50 5c 5c 5c 44 4f 4e 54 20 44 45 53 54 52 4f 59 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 5c 3d 36 20 00 2c 01 10 00 10 00 50 5c 4c 44 5c 41 34 ┆3,6 MOVE POINTER TO TEXT , & P DONT DESTROY BUFFER ADDRESS =6 , P LD A4┆
0x4316…4364 2c 2d 34 2c 41 33 00 2c 01 3a 00 30 00 50 5c 53 54 5c 41 34 2c 45 43 42 45 4c 2c 41 38 5c 53 54 4f 52 45 20 4e 55 4d 42 45 52 53 20 4f 46 20 43 48 41 52 41 43 54 45 52 53 20 00 2c 01 4e 00 10 00 50 5c 4c 44 5c 41 34 2c 2d 32 2c 41 33 ┆,-4,A3 , : 0 P ST A4,ECBEL,A8 STORE NUMBERS OF CHARACTERS , N P LD A4,-2,A3┆