|
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: 17418 (0x440a)
Notes: pts_type(SC)
Names: »PRT.SC«
└─⟦f445cacdf⟧ Bits:30009666 Philips computer tape "600111"
└─⟦this⟧ »PRT:3270/PRT.SC«
IDENT PRT 2.1DK 5 830520/EV 870150540210
=1, ODD BUFFER ADDRESS
REL 2.1 79-05-23
DK5 - SPOOLING
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 0 DK4
*
*
* IF POSSIBILY TO COMMUNICATE WITH SPOOLING SYSTEM DK5
* SHOULD BE INCLUDED, SET SPOOL=1 DK5
* DK5
DK5
SPOOL EQU 1 =1, POSSIBILITY FOR SPOOLING DK5
* 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
* DK5
FUNC EQU RDMORE+2 FUNCTION CODE, SPOOLING DK5
ICBUF EQU FUNC+2 SPOOL RESPONSE BUFFER DK5
* DK5
*
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
IFT SPOOL=1 DK5
EJECT
* IF SPOOL ALLOWED THEN
* IF SPOOL DEVICE (TID)='LA')
* THEN SHIFT START ADDRESS OF PRINTER
* BUFFER 6 BYTES RIGHT, MAKE ROOM FOR
* SPOOL PARAMETERS
* ENDIF
* ENDIF
*
*
LD A5,COPNO,TCABAS GET TASKID DK5
CWK A5,'LA' CHECK IF LP DK5
RF(NZ) PRI050 NOT SPOOL DEVICE DK5
LDKL A8,ECBPR PRINTER ECB DK5
ADR A8,CREBAS DK5
LD A7,ECBBA,A8 GET BUFFER ADDRESS DK5
ADK A7,6 RESERVE 6 BYTES DK5
ST A7,ECBBA,A8 RESTORE DK5
PRI050 EQU * DK5
XIF DK5
*************************************************
*
* 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 EQU * DK5
LD A8,/0002 FUNCTION CODE DK5
ST A8,FUNC,TCABAS DK5
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 EQU *
LD A5,/0003 IF LAST LINE DK5
ST A5,FUNC,TCABAS DK5
CWK A3,LBVDU
ABL(NL) COP300 PRINT LAST LINE
LD A5,/0002 NOT LAST LINE DK5
ST A5,FUNC,TCABAS DK5
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
WHAT IF NO PRINTING DK5
OF LAST LINE???????? DK5
????????? DK5
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
IFT SPOOL=1 DK5
LD A5,COPNO,TCABAS CHECK IF SPOOL DEV. DK5
CWK A5,'LA' DK5
RF(NZ) 0RLKMP NOT SPOOL DEVICE
CF A14,PRSPOL SPOOL DK5
RF(NZ) PRLKMP NO GOOD DK5
RTN A14 RETURN DK5
* DK5
PRLKMP EQU * DK5
XIF DK5
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 SPOOL=1 DK5
EJECT
*HERE COMES SPOOLING?????? DK5
DK5
XIF DK5
*
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 5 830520/EV 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…0096 Head {h00=0x0016, h01=0x0050, text=» DK5 - SPOOLING «, t00=0x0000, t01=0x0080}
0x0096…00b6 Head {h00=0x001c, h01=0x0050, text=» DK4 - SUPPRESS SPACES«, t00=0x0000, t01=0x009a}
0x00b6…00d4 Head {h00=0x001a, h01=0x0050, text=» DK3 - CHECK PRINTER«, t00=0x0000, t01=0x00ba}
0x00d4…00f0 Head {h00=0x0018, h01=0x0050, text=» DK2 - DC TIMEOUT «, t00=0x0000, t01=0x00d8}
0x00f0…0112 Head {h00=0x001e, h01=0x0050, text=» DK1 - LP400, DEC. PRINT«, t00=0x0000, t01=0x00f4}
0x0112…0164 Head {h00=0x004e, h01=0x0050, text=»************************************************************************* «, t00=0x0000, t01=0x0116}
0x0164…016e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0168}
0x016e…01b8 Head {h00=0x0046, h01=0x0050, text=»* P R T : MODULE PRINTING MAIN FRAME MESSAGES ADDRESSED TO THE«, t00=0x0000, t01=0x0172}
0x01b8…01fe Head {h00=0x0042, h01=0x0050, text=»* GENERAL PRINTER. LOCAL HARDCOPY PRINTING IS ALSO «, t00=0x0001, t01=0x002c}
0x01fe…022e Head {h00=0x002c, h01=0x0050, text=»* CARRIED OUT IN THIS MODULE «, t00=0x0001, t01=0x0072}
0x022e…0238 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a2}
0x0238…0286 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0001, t01=0x00ac}
0x0286…0290 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00fa}
0x0290…029a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0104}
0x029a…02a2 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x010e}
0x02a2…02aa Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0116}
0x02aa…02b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x011e}
0x02b4…02be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0128}
0x02be…02d8 Head {h00=0x0016, h01=0x0050, text=»* ENTRY PARAMETERS«, t00=0x0001, t01=0x0132}
0x02d8…02e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x014c}
0x02e2…02ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0156}
0x02ec…0302 Head {h00=0x0012, h01=0x0050, text=» ENTRY SNBUSY «, t00=0x0001, t01=0x0160}
0x0302…0316 Head {h00=0x0010, h01=0x0050, text=» ENTRY PRINT«, t00=0x0001, t01=0x0176}
0x0316…032c Head {h00=0x0012, h01=0x0050, text=» ENTRY ICREAD «, t00=0x0001, t01=0x018a}
0x032c…0336 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0010}
0x0336…0340 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x001a}
0x0340…035e Head {h00=0x001a, h01=0x0050, text=»* EXTERNAL PARAMETERS «, t00=0x0002, t01=0x0024}
0x035e…0368 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0042}
0x0368…0372 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x004c}
0x0372…039e Head {h00=0x0028, h01=0x0050, text=» EXTRN UPDATE UPDATE BUFFER CONTENTS«, t00=0x0002, t01=0x0056}
0x039e…03ca Head {h00=0x0028, h01=0x0050, text=» EXTRN RFMDUP REPLACE FM & DUP CHARS«, t00=0x0002, t01=0x0082}
0x03ca…03e0 Head {h00=0x0012, h01=0x0050, text=» EXTRN GTRBUF «, t00=0x0002, t01=0x00ae}
0x03e0…03f6 Head {h00=0x0012, h01=0x0050, text=» EXTRN DCGETM «, t00=0x0002, t01=0x00c4}
0x03f6…040c Head {h00=0x0012, h01=0x0050, text=» EXTRN RELBUF «, t00=0x0002, t01=0x00da}
0x040c…0422 Head {h00=0x0012, h01=0x0050, text=» EXTRN DC1INQ «, t00=0x0002, t01=0x00f0}
0x0422…0438 Head {h00=0x0012, h01=0x0050, text=» EXTRN DC2INQ «, t00=0x0002, t01=0x0106}
0x0438…044e Head {h00=0x0012, h01=0x0050, text=» EXTRN REQTIM «, t00=0x0002, t01=0x011c}
0x044e…0458 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0132}
0x0458…0488 Head {h00=0x002c, h01=0x0050, text=» EXTRN I:EVA0 CREDIT EVALUATION ROUTINE «, t00=0x0002, t01=0x013c}
0x0488…0492 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x016c}
0x0492…04ac Head {h00=0x0016, h01=0x0050, text=» EXTRN EMULA START«, t00=0x0002, t01=0x0176}
0x04ac…04b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0190}
0x04b6…04c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x000a}
0x04c0…04fa Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0003, t01=0x0014}
0x04fa…0504 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x004e}
0x0504…0530 Head {h00=0x0028, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS «, t00=0x0003, t01=0x0058}
0x0530…053a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0084}
0x053a…056c Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0003, t01=0x008e}
0x056c…0574 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x00c0}
0x0574…05aa Head {h00=0x0032, h01=0x0050, text=»OFLIN EQU 1 OFFLINE HANDLING POSSIBLE IF ::= 1«, t00=0x0003, t01=0x00c8}
0x05aa…05da Head {h00=0x002c, h01=0x0050, text=»DCLIN EQU 1 NUMBER OF MAIN FRAMES (1-2) «, t00=0x0003, t01=0x00fe}
0x05da…0604 Head {h00=0x0026, h01=0x0050, text=»COPCMD EQU 1 COPY COMMAND IF := 1 «, t00=0x0003, t01=0x012e}
0x0604…060e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0158}
0x060e…063c Head {h00=0x002a, h01=0x0050, text=»* SUPPRESSION OF TRAILING SPACES DK4 «, t00=0x0003, t01=0x0162}
0x063c…0662 Head {h00=0x0022, h01=0x0050, text=»* ONLY RELEVANT FOR LP100 DK4«, t00=0x0003, t01=0x0190}
0x0662…067a Head {h00=0x0014, h01=0x0050, text=»SUSPA EQU 0 DK4«, t00=0x0004, t01=0x0026}
0x067a…0684 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x003e}
0x0684…068e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0048}
0x068e…06d2 Head {h00=0x0040, h01=0x0050, text=»* IF POSSIBILY TO COMMUNICATE WITH SPOOLING SYSTEM DK5 «, t00=0x0004, t01=0x0052}
0x06d2…0706 Head {h00=0x0030, h01=0x0050, text=»* SHOULD BE INCLUDED, SET SPOOL=1 DK5 «, t00=0x0004, t01=0x0096}
0x0706…0716 Head {h00=0x000c, h01=0x0050, text=»* DK5 «, t00=0x0004, t01=0x00ca}
0x0716…0726 Head {h00=0x000c, h01=0x0050, text=» DK5 «, t00=0x0004, t01=0x00da}
0x0726…075a Head {h00=0x0030, h01=0x0050, text=»SPOOL EQU 1 =1, POSSIBILITY FOR SPOOLING DK5«, t00=0x0004, t01=0x00ea}
0x075a…076c Head {h00=0x000e, h01=0x0050, text=»* EQUATES «, t00=0x0004, t01=0x011e}
0x076c…0776 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0130}
0x0776…0780 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x013a}
0x0780…078a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0144}
0x078a…07b6 Head {h00=0x0028, h01=0x0050, text=»TIMDC EQU 600 DC TIME OUT: 60 S DK2 «, t00=0x0004, t01=0x014e}
0x07b6…07ca Head {h00=0x0010, h01=0x0050, text=»ESC EQU /1B «, t00=0x0004, t01=0x017a}
0x07ca…07de Head {h00=0x0010, h01=0x0050, text=»SBA EQU /11 «, t00=0x0004, t01=0x018e}
0x07de…0802 Head {h00=0x0020, h01=0x0050, text=»NULL EQU /7F NULL CHARACTER «, t00=0x0005, t01=0x0012}
0x0802…082c Head {h00=0x0026, h01=0x0050, text=»NEWLIN EQU /7E NEW LINE CHARACTER «, t00=0x0005, t01=0x0036}
0x082c…0854 Head {h00=0x0024, h01=0x0050, text=»ENDMES EQU /7D END MESSAGE CHAR «, t00=0x0005, t01=0x0060}
0x0854…087a Head {h00=0x0022, h01=0x0050, text=»FORMFD EQU /7C FORMFEED CHAR. «, t00=0x0005, t01=0x0088}
0x087a…088e Head {h00=0x0010, h01=0x0050, text=»FMCH EQU /60«, t00=0x0005, t01=0x00ae}
0x088e…08a4 Head {h00=0x0012, h01=0x0050, text=»DUPCH EQU /7B «, t00=0x0005, t01=0x00c2}
0x08a4…08be Head {h00=0x0016, h01=0x0050, text=»TRCH EQU /F0 DK1 «, t00=0x0005, t01=0x00d8}
0x08be…08c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00f2}
0x08c8…08d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00fc}
0x08d2…08dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0106}
0x08dc…08f2 Head {h00=0x0012, h01=0x0050, text=»* EQUATES «, t00=0x0005, t01=0x0110}
0x08f2…08fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0126}
0x08fc…0922 Head {h00=0x0022, h01=0x0050, text=»* COMMON EQU FOR ECB HANDLING «, t00=0x0005, t01=0x0130}
0x0922…092c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0156}
0x092c…0934 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0160}
0x0934…0948 Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0005, t01=0x0168}
0x0948…095c Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0005, t01=0x017c}
0x095c…0970 Head {h00=0x0010, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0005, t01=0x0190}
0x0970…0984 Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0006, t01=0x0014}
0x0984…0998 Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU 10«, t00=0x0006, t01=0x0028}
0x0998…09a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x003c}
0x09a2…09ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0046}
0x09ac…09c6 Head {h00=0x0016, h01=0x0050, text=»* CREDIT USED EQU «, t00=0x0006, t01=0x0050}
0x09c6…09d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x006a}
0x09d0…09da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0074}
0x09da…09f6 Head {h00=0x0018, h01=0x0050, text=»* ECB REL. ADDRESSES«, t00=0x0006, t01=0x007e}
0x09f6…0a00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x009a}
0x0a00…0a0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00a4}
0x0a0a…0a1c Head {h00=0x000e, h01=0x0050, text=»DIS EQU 20«, t00=0x0006, t01=0x00ae}
0x0a1c…0a26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c0}
0x0a26…0a40 Head {h00=0x0016, h01=0x0050, text=»ECBDC EQU -DIS-14 «, t00=0x0006, t01=0x00ca}
0x0a40…0a54 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0006, t01=0x00e4}
0x0a54…0a70 Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0006, t01=0x00f8}
0x0a70…0a8e Head {h00=0x001a, h01=0x0050, text=»ECBICR EQU ECBDC2-DIS «, t00=0x0006, t01=0x0114}
0x0a8e…0a9a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x0132}
0x0a9a…0aae Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0006, t01=0x013e}
0x0aae…0aca Head {h00=0x0018, h01=0x0050, text=»ECBICR EQU ECBDC-DIS«, t00=0x0006, t01=0x0152}
0x0aca…0ad6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x016e}
0x0ad6…0aec Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0006, t01=0x017a}
0x0aec…0b0a Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0006, t01=0x0190}
0x0b0a…0b26 Head {h00=0x0018, h01=0x0050, text=»ECBPR EQU ECBICW-DIS«, t00=0x0007, t01=0x001e}
0x0b26…0b32 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x003a}
0x0b32…0b48 Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0007, t01=0x0046}
0x0b48…0b64 Head {h00=0x0018, h01=0x0050, text=»ECBPR EQU ECBICR-DIS«, t00=0x0007, t01=0x005c}
0x0b64…0b70 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x0078}
0x0b70…0b7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0084}
0x0b7a…0b84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x008e}
0x0b84…0baa Head {h00=0x0022, h01=0x0050, text=»* BASE ADDRESS FOR TCA AND ECB«, t00=0x0007, t01=0x0098}
0x0baa…0bb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00be}
0x0bb4…0bca Head {h00=0x0012, h01=0x0050, text=»TCABAS EQU A11«, t00=0x0007, t01=0x00c8}
0x0bca…0be4 Head {h00=0x0016, h01=0x0050, text=»CREBAS EQU A13 ECB«, t00=0x0007, t01=0x00de}
0x0be4…0bee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00f8}
0x0bee…0c18 Head {h00=0x0026, h01=0x0050, text=»* CONFIG DATA 'CB1' REL ADDRESSES «, t00=0x0007, t01=0x0102}
0x0c18…0c22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x012c}
0x0c22…0c48 Head {h00=0x0022, h01=0x0050, text=»NBRKBV EQU 0 NUMBER OF KB/VDUS«, t00=0x0007, t01=0x0136}
0x0c48…0c72 Head {h00=0x0026, h01=0x0050, text=»NBRGTP EQU NBRKBV+2 NUMBER OF GTPS«, t00=0x0007, t01=0x015c}
0x0c72…0c7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0186}
0x0c7c…0cb2 Head {h00=0x0032, h01=0x0050, text=»MF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 «, t00=0x0007, t01=0x0190}
0x0cb2…0ce8 Head {h00=0x0032, h01=0x0050, text=»MF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 «, t00=0x0008, t01=0x0036}
0x0ce8…0cfc Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0008, t01=0x006c}
0x0cfc…0d18 Head {h00=0x0018, h01=0x0050, text=»MF2KBV EQU MF1GTP+16«, t00=0x0008, t01=0x0080}
0x0d18…0d34 Head {h00=0x0018, h01=0x0050, text=»MF2GTP EQU MF2KBV+16«, t00=0x0008, t01=0x009c}
0x0d34…0d40 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x00b8}
0x0d40…0d4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00c4}
0x0d4a…0d54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ce}
0x0d54…0d70 Head {h00=0x0018, h01=0x0050, text=»* TCA REL. ADDRESSES«, t00=0x0008, t01=0x00d8}
0x0d70…0d7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f4}
0x0d7a…0d8e Head {h00=0x0010, h01=0x0050, text=»TCT01 EQU 0 «, t00=0x0008, t01=0x00fe}
0x0d8e…0daa Head {h00=0x0018, h01=0x0050, text=»PRINTER EQU TCT01+2 «, t00=0x0008, t01=0x0112}
0x0daa…0dd6 Head {h00=0x0028, h01=0x0050, text=»BVDU EQU PRINTER+2 VDU SCREEN BUFFER«, t00=0x0008, t01=0x012e}
0x0dd6…0e0a Head {h00=0x0030, h01=0x0050, text=»PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY «, t00=0x0008, t01=0x015a}
0x0e0a…0e38 Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x0008, t01=0x018e}
0x0e38…0e54 Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x0009, t01=0x002c}
0x0e54…0e7e Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x0009, t01=0x0048}
0x0e7e…0eb0 Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x0009, t01=0x0072}
0x0eb0…0ed8 Head {h00=0x0024, h01=0x0050, text=»LINCNT EQU KBINH+2 LINE COUNTER «, t00=0x0009, t01=0x00a4}
0x0ed8…0f0c Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH«, t00=0x0009, t01=0x00cc}
0x0f0c…0f42 Head {h00=0x0032, h01=0x0050, text=»ICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM «, t00=0x0009, t01=0x0100}
0x0f42…0f72 Head {h00=0x002c, h01=0x0050, text=»INTATT EQU ICWORK+2 INTENSITY ATTRIBUTE «, t00=0x0009, t01=0x0136}
0x0f72…0f9a Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU INTATT+2 OFFLINE FLAG«, t00=0x0009, t01=0x0166}
0x0f9a…0fc6 Head {h00=0x0028, h01=0x0050, text=»COPNO EQU OFFFLG+2 HARDCOPY TASK ID «, t00=0x0009, t01=0x018e}
0x0fc6…0ff4 Head {h00=0x002a, h01=0x0050, text=»CCC EQU COPNO+2 COPY COMMAND CHARACTER«, t00=0x000a, t01=0x002a}
0x0ff4…1016 Head {h00=0x001e, h01=0x0050, text=»MAIN EQU CCC+2 MAIN FRAME «, t00=0x000a, t01=0x0058}
0x1016…1040 Head {h00=0x0026, h01=0x0050, text=»MODE EQU MAIN+2 INSERT MODE SWITCH«, t00=0x000a, t01=0x007a}
0x1040…1068 Head {h00=0x0024, h01=0x0050, text=»KEYS EQU MODE+2 KEY LOCK STATUS «, t00=0x000a, t01=0x00a4}
0x1068…109a Head {h00=0x002e, h01=0x0050, text=»ECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC«, t00=0x000a, t01=0x00cc}
0x109a…10d0 Head {h00=0x0032, h01=0x0050, text=»ECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C «, t00=0x000a, t01=0x00fe}
0x10d0…1108 Head {h00=0x0034, h01=0x0050, text=»RDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB«, t00=0x000a, t01=0x0134}
0x1108…1118 Head {h00=0x000c, h01=0x0050, text=»* DK5«, t00=0x000a, t01=0x016c}
0x1118…114e Head {h00=0x0032, h01=0x0050, text=»FUNC EQU RDMORE+2 FUNCTION CODE, SPOOLING DK5 «, t00=0x000a, t01=0x017c}
0x114e…1180 Head {h00=0x002e, h01=0x0050, text=»ICBUF EQU FUNC+2 SPOOL RESPONSE BUFFER DK5«, t00=0x000b, t01=0x0022}
0x1180…1190 Head {h00=0x000c, h01=0x0050, text=»* DK5«, t00=0x000b, t01=0x0054}
0x1190…119a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0064}
0x119a…11d8 Head {h00=0x003a, h01=0x0050, text=»PRBUSY EQU -2 PRINTER BUSY. OCCUPIES BOOLEAN VARAIBLE «, t00=0x000b, t01=0x006e}
0x11d8…11e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00ac}
0x11e2…11ea Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00b6}
0x11ea…11f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00be}
0x11f4…11fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00c8}
0x11fe…122c Head {h00=0x002a, h01=0x0050, text=»LBVDU EQU 1920 1920 CHARACTER DISPLAY «, t00=0x000b, t01=0x00d2}
0x122c…1252 Head {h00=0x0022, h01=0x0050, text=»LPAGE EQU 48 LINES ON ONE PAGE«, t00=0x000b, t01=0x0100}
0x1252…1290 Head {h00=0x003a, h01=0x0050, text=»GTPLIN EQU 112 LINELENGTH MAX 112 CHAR. 'NL' ORDER IN «, t00=0x000b, t01=0x0126}
0x1290…12c0 Head {h00=0x002c, h01=0x0050, text=»* BUFFER DETERMINES PRINT LINE LENGTH «, t00=0x000b, t01=0x0164}
0x12c0…12e8 (12, 0, 400) Head {h00=0x0024, h01=0x0050, text=»LPLIN EQU 132 LINELENGTH FOR LP «, t00=0x000c, t01=0x0004}
0x12e8…12f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x002c}
0x12f2…12fa Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0036}
0x12fa…1302 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x003e}
0x1302…130c Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000c, t01=0x0046}
0x130c…1320 Head {h00=0x0010, h01=0x0050, text=»PRINT EQU * «, t00=0x000c, t01=0x0050}
0x1320…1336 Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x000c, t01=0x0064}
0x1336…1360 Head {h00=0x0026, h01=0x0050, text=» LDR TCABAS,A9 LOAD ASSEM TCA BASE«, t00=0x000c, t01=0x007a}
0x1360…1384 Head {h00=0x0020, h01=0x0050, text=» LDR* A4,TCABAS REL TASK NO «, t00=0x000c, t01=0x00a4}
0x1384…13aa Head {h00=0x0022, h01=0x0050, text=» AD A4,6,CREBAS 'CB1' ADDRESS «, t00=0x000c, t01=0x00c8}
0x13aa…13c4 Head {h00=0x0016, h01=0x0050, text=» IFT SPOOL=1 DK5 «, t00=0x000c, t01=0x00ee}
0x13c4…13d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0108}
0x13d2…13f2 Head {h00=0x001c, h01=0x0050, text=»* IF SPOOL ALLOWED THEN «, t00=0x000c, t01=0x0116}
0x13f2…1418 Head {h00=0x0022, h01=0x0050, text=»* IF SPOOL DEVICE (TID)='LA')«, t00=0x000c, t01=0x0136}
0x1418…1448 Head {h00=0x002c, h01=0x0050, text=»* THEN SHIFT START ADDRESS OF PRINTER «, t00=0x000c, t01=0x015c}
0x1448…1478 Head {h00=0x002c, h01=0x0050, text=»* BUFFER 6 BYTES RIGHT, MAKE ROOM FOR «, t00=0x000c, t01=0x018c}
0x1478…1494 Head {h00=0x0018, h01=0x0050, text=»* SPOOL PARAMETERS«, t00=0x000d, t01=0x002c}
0x1494…14a4 Head {h00=0x000c, h01=0x0050, text=»* ENDIF«, t00=0x000d, t01=0x0048}
0x14a4…14b4 Head {h00=0x000c, h01=0x0050, text=»* ENDIF «, t00=0x000d, t01=0x0058}
0x14b4…14be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0068}
0x14be…14c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0072}
0x14c8…14f2 Head {h00=0x0026, h01=0x0050, text=» LD A5,COPNO,TCABAS GET TASKID DK5«, t00=0x000d, t01=0x007c}
0x14f2…1516 Head {h00=0x0020, h01=0x0050, text=» CWK A5,'LA' CHECK IF LP DK5«, t00=0x000d, t01=0x00a6}
0x1516…1542 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) PRI050 NOT SPOOL DEVICE DK5 «, t00=0x000d, t01=0x00ca}
0x1542…1568 Head {h00=0x0022, h01=0x0050, text=» LDKL A8,ECBPR PRINTER ECB DK5«, t00=0x000d, t01=0x00f6}
0x1568…1584 Head {h00=0x0018, h01=0x0050, text=» ADR A8,CREBAS DK5 «, t00=0x000d, t01=0x011c}
0x1584…15b2 Head {h00=0x002a, h01=0x0050, text=» LD A7,ECBBA,A8 GET BUFFER ADDRESS DK5«, t00=0x000d, t01=0x0138}
0x15b2…15d8 Head {h00=0x0022, h01=0x0050, text=» ADK A7,6 RESERVE 6 BYTES DK5 «, t00=0x000d, t01=0x0166}
0x15d8…15fc Head {h00=0x0020, h01=0x0050, text=» ST A7,ECBBA,A8 RESTORE DK5 «, t00=0x000d, t01=0x018c}
0x15fc…1616 Head {h00=0x0016, h01=0x0050, text=»PRI050 EQU * DK5 «, t00=0x000e, t01=0x0020}
0x1616…1628 Head {h00=0x000e, h01=0x0050, text=» XIF DK5«, t00=0x000e, t01=0x003a}
0x1628…1630 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x004c}
0x1630…166a Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000e, t01=0x0054}
0x166a…1674 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x008e}
0x1674…16a4 Head {h00=0x002c, h01=0x0050, text=»* TRANSFER PARAMETER FOR MAIN-FRAME #1«, t00=0x000e, t01=0x0098}
0x16a4…16ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c8}
0x16ae…16e8 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000e, t01=0x00d2}
0x16e8…16f0 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x010c}
0x16f0…170a Head {h00=0x0016, h01=0x0050, text=» LC A1,MF1GTP-1,A4«, t00=0x000e, t01=0x0114}
0x170a…171e Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x000e, t01=0x012e}
0x171e…1734 Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x000e, t01=0x0142}
0x1734…174a Head {h00=0x0012, h01=0x0050, text=» CF A14,EMULA «, t00=0x000e, t01=0x0158}
0x174a…175e Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000e, t01=0x016e}
0x175e…1798 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000e, t01=0x0182}
0x1798…17a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x002c}
0x17a2…17d2 Head {h00=0x002c, h01=0x0050, text=»* TRANSFER PARAMETER FOR MAIN-FRAME #2«, t00=0x000f, t01=0x0036}
0x17d2…17dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0066}
0x17dc…1816 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000f, t01=0x0070}
0x1816…181e Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x00aa}
0x181e…1838 Head {h00=0x0016, h01=0x0050, text=» LC A1,MF2GTP-1,A4«, t00=0x000f, t01=0x00b2}
0x1838…184c Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x000f, t01=0x00cc}
0x184c…1864 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x000f, t01=0x00e0}
0x1864…188c Head {h00=0x0024, h01=0x0050, text=» CF A14,EMULA TRANSFER PARAMETER«, t00=0x000f, t01=0x00f8}
0x188c…1898 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0120}
0x1898…18a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x012c}
0x18a2…18ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0136}
0x18ac…18cc Head {h00=0x001c, h01=0x0050, text=»* RELATIVE POS IN ECBBLK«, t00=0x000f, t01=0x0140}
0x18cc…18de Head {h00=0x000e, h01=0x0050, text=»ICR EQU 2 «, t00=0x000f, t01=0x0160}
0x18de…18f0 Head {h00=0x000e, h01=0x0050, text=»DC1 EQU 4 «, t00=0x000f, t01=0x0172}
0x18f0…1902 Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x000f, t01=0x0184}
0x1902…190c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0008}
0x190c…1920 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0010, t01=0x0012}
0x1920…1932 Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0010, t01=0x0026}
0x1932…193e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0038}
0x193e…1952 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0010, t01=0x0044}
0x1952…1964 Head {h00=0x000e, h01=0x0050, text=» LDK A1,3 «, t00=0x0010, t01=0x0058}
0x1964…1970 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x006a}
0x1970…198c Head {h00=0x0018, h01=0x0050, text=» ST A1,ECBBLK,TCABAS«, t00=0x0010, t01=0x0076}
0x198c…19a0 Head {h00=0x0010, h01=0x0050, text=»PRI100 EQU *«, t00=0x0010, t01=0x0092}
0x19a0…19ba Head {h00=0x0016, h01=0x0050, text=» CM ICWORK,TCABAS «, t00=0x0010, t01=0x00a6}
0x19ba…19da Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC1,TCABAS«, t00=0x0010, t01=0x00c0}
0x19da…19f8 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) PRI110 PENDING«, t00=0x0010, t01=0x00e0}
0x19f8…1a2c Head {h00=0x0030, h01=0x0050, text=» CF A14,DC1INQ TEST IF ANY MESSAGE, NO WAIT «, t00=0x0010, t01=0x00fe}
0x1a2c…1a40 Head {h00=0x0010, h01=0x0050, text=»PRI110 EQU *«, t00=0x0010, t01=0x0132}
0x1a40…1a54 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0010, t01=0x0146}
0x1a54…1a74 Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC2,TCABAS«, t00=0x0010, t01=0x015a}
0x1a74…1a92 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) PRI120 PENDING«, t00=0x0010, t01=0x017a}
0x1a92…1acc Head {h00=0x0036, h01=0x0050, text=» CF A14,DC2INQ TEST IF ANY MESSAGE MF # 2, NO WAIT«, t00=0x0011, t01=0x0008}
0x1acc…1ad8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0042}
0x1ad8…1aec Head {h00=0x0010, h01=0x0050, text=»PRI120 EQU *«, t00=0x0011, t01=0x004e}
0x1aec…1b0c Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+ICR,TCABAS«, t00=0x0011, t01=0x0062}
0x1b0c…1b2a Head {h00=0x001a, h01=0x0050, text=» RF(NZ) PRI150 PENDING«, t00=0x0011, t01=0x0082}
0x1b2a…1b4c Head {h00=0x001e, h01=0x0050, text=» LDKL A6,LBVDU REQ LENGTH «, t00=0x0011, t01=0x00a0}
0x1b4c…1b68 Head {h00=0x0018, h01=0x0050, text=» LDKL A3,BVDU BUFFER«, t00=0x0011, t01=0x00c2}
0x1b68…1b88 Head {h00=0x001c, h01=0x0050, text=» ADR A3,TCABAS ADDRESS«, t00=0x0011, t01=0x00de}
0x1b88…1bb6 Head {h00=0x002a, h01=0x0050, text=» CF A14,ICREAD READ INTERTASK NO WAIT «, t00=0x0011, t01=0x00fe}
0x1bb6…1bd6 Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+ICR,TCABAS«, t00=0x0011, t01=0x012c}
0x1bd6…1bea Head {h00=0x0010, h01=0x0050, text=»PRI150 EQU *«, t00=0x0011, t01=0x014c}
0x1bea…1c02 Head {h00=0x0014, h01=0x0050, text=» LDKL A7,ECBBLK «, t00=0x0011, t01=0x0160}
0x1c02…1c18 Head {h00=0x0012, h01=0x0050, text=» ADR A7,TCABAS«, t00=0x0011, t01=0x0178}
0x1c18…1c24 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0011, t01=0x018e}
0x1c24…1c42 Head {h00=0x001a, h01=0x0050, text=» DATA 7 MULTIPLE WAIT «, t00=0x0012, t01=0x000a}
0x1c42…1c62 Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+ICR,TCABAS«, t00=0x0012, t01=0x0028}
0x1c62…1c8c Head {h00=0x0026, h01=0x0050, text=» RF(E) ICRINP INPUT FROM INTERTASK«, t00=0x0012, t01=0x0048}
0x1c8c…1cca Head {h00=0x003a, h01=0x0050, text=» ST A8,ECBDCC,TCABAS SAVE ECB ADDRESS FOR CURRENT READ«, t00=0x0012, t01=0x0072}
0x1cca…1cee Head {h00=0x0020, h01=0x0050, text=» CF A14,DCINP INPUT FROM DC «, t00=0x0012, t01=0x00b0}
0x1cee…1d00 Head {h00=0x000e, h01=0x0050, text=» RB PRI100«, t00=0x0012, t01=0x00d4}
0x1d00…1d0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00e6}
0x1d0a…1d14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00f0}
0x1d14…1d34 Head {h00=0x001c, h01=0x0050, text=»* READ INTERTASK, NOWAIT«, t00=0x0012, t01=0x00fa}
0x1d34…1d3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x011a}
0x1d3e…1d5c Head {h00=0x001a, h01=0x0050, text=»* A3 = BUFFER ADDRESS «, t00=0x0012, t01=0x0124}
0x1d5c…1d76 Head {h00=0x0016, h01=0x0050, text=»* A6 = REQ LENGTH «, t00=0x0012, t01=0x0142}
0x1d76…1d80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x015c}
0x1d80…1d94 Head {h00=0x0010, h01=0x0050, text=»ICREAD EQU *«, t00=0x0012, t01=0x0166}
0x1d94…1dac Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICR «, t00=0x0012, t01=0x017a}
0x1dac…1dc2 (19, 0, 398) Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0013, t01=0x0004}
0x1dc2…1dd6 Head {h00=0x0010, h01=0x0050, text=» LDKL A1,-1 «, t00=0x0013, t01=0x001a}
0x1dd6…1dec Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x0013, t01=0x002e}
0x1dec…1e0e Head {h00=0x001e, h01=0x0050, text=» ST A6,ECBRL,A8 REQ LENGTH«, t00=0x0013, t01=0x0044}
0x1e0e…1e26 Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBBA,A8 «, t00=0x0013, t01=0x0066}
0x1e26…1e54 Head {h00=0x002a, h01=0x0050, text=» LDK A7,2 READ NOT ADDRESSED, NO WAIT «, t00=0x0013, t01=0x007e}
0x1e54…1e60 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0013, t01=0x00ac}
0x1e60…1e70 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0013, t01=0x00b8}
0x1e70…1e80 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0013, t01=0x00c8}
0x1e80…1e8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00d8}
0x1e8a…1ed2 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0013, t01=0x00e2}
0x1ed2…1edc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x012a}
0x1edc…1ef4 Head {h00=0x0014, h01=0x0050, text=»* INPUT FROM DC «, t00=0x0013, t01=0x0134}
0x1ef4…1efe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x014c}
0x1efe…1f3a Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0013, t01=0x0156}
0x1f3a…1f44 (20, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0004}
0x1f44…1f58 Head {h00=0x0010, h01=0x0050, text=»DCINP EQU * «, t00=0x0014, t01=0x000e}
0x1f58…1f84 Head {h00=0x0028, h01=0x0050, text=» CF A14,ICABOR ABORT INTERTASK READ «, t00=0x0014, t01=0x0022}
0x1f84…1f96 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x0014, t01=0x004e}
0x1f96…1fba Head {h00=0x0020, h01=0x0050, text=» RF(Z) DCIN10 NOT COMPLETED «, t00=0x0014, t01=0x0060}
0x1fba…1fdc Head {h00=0x001e, h01=0x0050, text=» IM ICWORK,TCABAS SET FLAG«, t00=0x0014, t01=0x0084}
0x1fdc…200c Head {h00=0x002c, h01=0x0050, text=» RF ICRINP TAKE CARE OF INTERTASK INPUT «, t00=0x0014, t01=0x00a6}
0x200c…203e Head {h00=0x002e, h01=0x0050, text=» OR BUFFER WILL BE DESTROYED IN 'UPDATE'«, t00=0x0014, t01=0x00d6}
0x203e…2052 Head {h00=0x0010, h01=0x0050, text=»DCIN10 EQU *«, t00=0x0014, t01=0x0108}
0x2052…207c Head {h00=0x0026, h01=0x0050, text=» CF A14,GTRBUF GET RECEIVE BUFFER «, t00=0x0014, t01=0x011c}
0x207c…2098 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0014, t01=0x0146}
0x2098…20bc Head {h00=0x0020, h01=0x0050, text=» CF A14,DCGETM READ MESSAGE «, t00=0x0014, t01=0x0162}
0x20bc…20d0 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0014, t01=0x0186}
0x20d0…20ee Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x0015, t01=0x000a}
0x20ee…20fa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0028}
0x20fa…210e Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0015, t01=0x0034}
0x210e…212e Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+DC2,TCABAS«, t00=0x0015, t01=0x0048}
0x212e…214a Head {h00=0x0018, h01=0x0050, text=» RF(E) DCIN20 MF # 2«, t00=0x0015, t01=0x0068}
0x214a…2168 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x0015, t01=0x0084}
0x2168…217a Head {h00=0x000e, h01=0x0050, text=» RF DCIN30«, t00=0x0015, t01=0x00a2}
0x217a…218e Head {h00=0x0010, h01=0x0050, text=»DCIN20 EQU *«, t00=0x0015, t01=0x00b4}
0x218e…21ac Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC2,TCABAS «, t00=0x0015, t01=0x00c8}
0x21ac…21b8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x00e6}
0x21b8…21cc Head {h00=0x0010, h01=0x0050, text=»DCIN30 EQU *«, t00=0x0015, t01=0x00f2}
0x21cc…21f4 Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBEL,A8 EFFECTIVE LENGTH«, t00=0x0015, t01=0x0106}
0x21f4…2226 Head {h00=0x002e, h01=0x0050, text=» ST A1,DCLENG,TCABAS SAVE IT IN SAVE AREA «, t00=0x0015, t01=0x012e}
0x2226…222e Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x0160}
0x222e…2264 Head {h00=0x0032, h01=0x0050, text=» CF A14,UPDATE MOVE FROM DC TO PRINTER BUFFER;«, t00=0x0015, t01=0x0168}
0x2264…227a Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0016, t01=0x000e}
0x227a…2296 Head {h00=0x0018, h01=0x0050, text=» LD A1,ICWORK,TCABAS«, t00=0x0016, t01=0x0024}
0x2296…22ba Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DCIN90 COPY COMMAND «, t00=0x0016, t01=0x0040}
0x22ba…22c6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0064}
0x22c6…22f8 Head {h00=0x002e, h01=0x0050, text=» LD A1,WCC,TCABAS WRITE CONTROL CHARACTER «, t00=0x0016, t01=0x0070}
0x22f8…231a Head {h00=0x001e, h01=0x0050, text=» ST A1,CCC,TCABAS COPY IT «, t00=0x0016, t01=0x00a2}
0x231a…233e Head {h00=0x0020, h01=0x0050, text=» CF A14,COPY COPY ON PRINTER«, t00=0x0016, t01=0x00c4}
0x233e…2352 Head {h00=0x0010, h01=0x0050, text=»DCIN90 EQU *«, t00=0x0016, t01=0x00e8}
0x2352…2368 Head {h00=0x0012, h01=0x0050, text=» CF A14,SNBUSY«, t00=0x0016, t01=0x00fc}
0x2368…2378 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0016, t01=0x0112}
0x2378…2382 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0122}
0x2382…238c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x012c}
0x238c…23aa Head {h00=0x001a, h01=0x0050, text=»* ABORT INTERTASK READ«, t00=0x0016, t01=0x0136}
0x23aa…23b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0154}
0x23b4…23c8 Head {h00=0x0010, h01=0x0050, text=»ICABOR EQU *«, t00=0x0016, t01=0x015e}
0x23c8…23da Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0016, t01=0x0172}
0x23da…23f8 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+ICR,TCABAS «, t00=0x0016, t01=0x0184}
0x23f8…2410 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICR «, t00=0x0017, t01=0x0012}
0x2410…2426 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0017, t01=0x002a}
0x2426…2432 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0017, t01=0x0040}
0x2432…2442 Head {h00=0x000c, h01=0x0050, text=» DATA 10«, t00=0x0017, t01=0x004c}
0x2442…2452 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0017, t01=0x005c}
0x2452…245c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x006c}
0x245c…2466 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0076}
0x2466…2484 Head {h00=0x001a, h01=0x0050, text=»* INPUT FROM INTERTASK«, t00=0x0017, t01=0x0080}
0x2484…248e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x009e}
0x248e…24a2 Head {h00=0x0010, h01=0x0050, text=»ICRINP EQU *«, t00=0x0017, t01=0x00a8}
0x24a2…24c0 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+ICR,TCABAS «, t00=0x0017, t01=0x00bc}
0x24c0…24c8 Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x00da}
0x24c8…24f6 Head {h00=0x002a, h01=0x0050, text=» LDK A1,X'38' PRINT BIT, 80 CHAR./LINE«, t00=0x0017, t01=0x00e2}
0x24f6…252e Head {h00=0x0034, h01=0x0050, text=» ST A1,CCC,TCABAS SAVE AS COPY CONTROL CHARACTER«, t00=0x0017, t01=0x0110}
0x252e…255c Head {h00=0x002a, h01=0x0050, text=» CF A14,COPY PRINT ON HARDCOPY DEVICE «, t00=0x0017, t01=0x0148}
0x255c…2578 Head {h00=0x0018, h01=0x0050, text=» LD A1,ICWORK,TCABAS«, t00=0x0017, t01=0x0176}
0x2578…25a4 (24, 0, 398) Head {h00=0x0028, h01=0x0050, text=» RB(NZ) DCIN10 TAKE CARE OF DC INPUT«, t00=0x0018, t01=0x0004}
0x25a4…25b6 Head {h00=0x000e, h01=0x0050, text=» RB PRI100«, t00=0x0018, t01=0x0030}
0x25b6…25c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0042}
0x25c0…25ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x004c}
0x25ca…25d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0056}
0x25d4…2606 Head {h00=0x002e, h01=0x0050, text=»* PRINT THE CONTENTS OF THE PRINTER BUFFER«, t00=0x0018, t01=0x0060}
0x2606…2610 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0092}
0x2610…261a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x009c}
0x261a…265c Head {h00=0x003e, h01=0x0050, text=»LINLEN DATA /0028,/4050 LINE LENGTHS /40, 64 AND 80 CHARS «, t00=0x0018, t01=0x00a6}
0x265c…2666 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00e8}
0x2666…2670 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00f2}
0x2670…2688 Head {h00=0x0014, h01=0x0050, text=»COPY EQU * DK5 «, t00=0x0018, t01=0x00fc}
0x2688…26ae Head {h00=0x0022, h01=0x0050, text=» LD A8,/0002 FUNCTION CODE DK5«, t00=0x0018, t01=0x0114}
0x26ae…26ce Head {h00=0x001c, h01=0x0050, text=» ST A8,FUNC,TCABAS DK5 «, t00=0x0018, t01=0x013a}
0x26ce…26e4 Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBPR«, t00=0x0018, t01=0x015a}
0x26e4…2706 Head {h00=0x001e, h01=0x0050, text=» ADR A8,CREBAS PRINTER ECB«, t00=0x0018, t01=0x0170}
0x2706…271e (25, 0, 400) Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBBA,A8 «, t00=0x0019, t01=0x0004}
0x271e…2734 Head {h00=0x0012, h01=0x0050, text=» SUR A3,A3 =1«, t00=0x0019, t01=0x001c}
0x2734…274c Head {h00=0x0014, h01=0x0050, text=» SC A3,0,A7 =1 «, t00=0x0019, t01=0x0032}
0x274c…2764 Head {h00=0x0014, h01=0x0050, text=» SC A3,1,A7 =1 «, t00=0x0019, t01=0x004a}
0x2764…278a Head {h00=0x0022, h01=0x0050, text=» ADK A7,2 PRINt BUFFER ADDRESS«, t00=0x0019, t01=0x0062}
0x278a…27b0 Head {h00=0x0022, h01=0x0050, text=» SUR A9,A9 RESET BUFFER INDEX «, t00=0x0019, t01=0x0088}
0x27b0…27c6 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0019, t01=0x00ae}
0x27c6…27dc Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0019, t01=0x00c4}
0x27dc…2802 Head {h00=0x0022, h01=0x0050, text=» LD A2,CCC,TCABAS GET CCC/CCC «, t00=0x0019, t01=0x00da}
0x2802…2816 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/08 «, t00=0x0019, t01=0x0100}
0x2816…2842 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) COP100 START PRINTER BIT SET«, t00=0x0019, t01=0x0114}
0x2842…2858 Head {h00=0x0012, h01=0x0050, text=»COPRTN RTN A14«, t00=0x0019, t01=0x0140}
0x2858…286c Head {h00=0x0010, h01=0x0050, text=»COP100 EQU *«, t00=0x0019, t01=0x0156}
0x286c…2886 Head {h00=0x0016, h01=0x0050, text=» LD A2,CCC,TCABAS «, t00=0x0019, t01=0x016a}
0x2886…289a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/30 «, t00=0x0019, t01=0x0184}
0x289a…28ca Head {h00=0x002c, h01=0x0050, text=» ABL(Z) COP111 NL DETERMINES LINE LENGTH«, t00=0x001a, t01=0x0008}
0x28ca…28dc Head {h00=0x000e, h01=0x0050, text=» SRL A2,4 «, t00=0x001a, t01=0x0038}
0x28dc…28ee Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x001a, t01=0x004a}
0x28ee…2916 Head {h00=0x0024, h01=0x0050, text=» LC A6,LINLEN,A2 GET LINE LENGTH«, t00=0x001a, t01=0x005c}
0x2916…292e Head {h00=0x0014, h01=0x0050, text=»COP110 CWR A9,A6«, t00=0x001a, t01=0x0084}
0x292e…2944 Head {h00=0x0012, h01=0x0050, text=» RF(L) COP120 «, t00=0x001a, t01=0x009c}
0x2944…2974 Head {h00=0x002c, h01=0x0050, text=»COP115 CF A14,PRLINE LINE FULL: PRINT IT«, t00=0x001a, t01=0x00b2}
0x2974…2986 Head {h00=0x000e, h01=0x0050, text=» RB COP110«, t00=0x001a, t01=0x00e2}
0x2986…299a Head {h00=0x0010, h01=0x0050, text=»COP120 EQU *«, t00=0x001a, t01=0x00f4}
0x299a…29c0 Head {h00=0x0022, h01=0x0050, text=» LD A5,/0003 IF LAST LINE DK5 «, t00=0x001a, t01=0x0108}
0x29c0…29e0 Head {h00=0x001c, h01=0x0050, text=» ST A5,FUNC,TCABAS DK5 «, t00=0x001a, t01=0x012e}
0x29e0…29f6 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x001a, t01=0x014e}
0x29f6…2a1e Head {h00=0x0024, h01=0x0050, text=» ABL(NL) COP300 PRINT LAST LINE «, t00=0x001a, t01=0x0164}
0x2a1e…2a44 Head {h00=0x0022, h01=0x0050, text=» LD A5,/0002 NOT LAST LINE DK5«, t00=0x001a, t01=0x018c}
0x2a44…2a64 Head {h00=0x001c, h01=0x0050, text=» ST A5,FUNC,TCABAS DK5 «, t00=0x001b, t01=0x0022}
0x2a64…2a76 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x001b, t01=0x0042}
0x2a76…2a9c Head {h00=0x0022, h01=0x0050, text=» ANK A2,/7F RESET DISPLAY BIT «, t00=0x001b, t01=0x0054}
0x2a9c…2aae Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x001b, t01=0x007a}
0x2aae…2ac2 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x001b, t01=0x008c}
0x2ac2…2ad8 Head {h00=0x0012, h01=0x0050, text=» RF(NL) COP130«, t00=0x001b, t01=0x00a0}
0x2ad8…2aec Head {h00=0x0010, h01=0x0050, text=»COP123 EQU *«, t00=0x001b, t01=0x00b6}
0x2aec…2afe Head {h00=0x000e, h01=0x0050, text=» ANK A2,6 «, t00=0x001b, t01=0x00ca}
0x2afe…2b10 Head {h00=0x000e, h01=0x0050, text=» XRK A2,6 «, t00=0x001b, t01=0x00dc}
0x2b10…2b26 Head {h00=0x0012, h01=0x0050, text=» RF(Z) COP150 «, t00=0x001b, t01=0x00ee}
0x2b26…2b56 Head {h00=0x002c, h01=0x0050, text=»COP125 LDK A2,/20 REPLACE ATTR BY SPACE «, t00=0x001b, t01=0x0104}
0x2b56…2b68 Head {h00=0x000e, h01=0x0050, text=» RF COP140«, t00=0x001b, t01=0x0134}
0x2b68…2b82 Head {h00=0x0016, h01=0x0050, text=»COP130 CWK A2,NULL«, t00=0x001b, t01=0x0146}
0x2b82…2bae Head {h00=0x0028, h01=0x0050, text=» RB(E) COP125 REPLACE NULL BY SPACE «, t00=0x001b, t01=0x0160}
0x2bae…2bc2 Head {h00=0x0010, h01=0x0050, text=»COP140 EQU *«, t00=0x001b, t01=0x018c}
0x2bc2…2bd6 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7D «, t00=0x001c, t01=0x0010}
0x2bd6…2bec Head {h00=0x0012, h01=0x0050, text=» RF(NE) COP141«, t00=0x001c, t01=0x0024}
0x2bec…2c00 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/39 «, t00=0x001c, t01=0x003a}
0x2c00…2c1a Head {h00=0x0016, h01=0x0050, text=»COP141 CWK A2,/7E «, t00=0x001c, t01=0x004e}
0x2c1a…2c30 Head {h00=0x0012, h01=0x0050, text=» RF(NE) COP142«, t00=0x001c, t01=0x0068}
0x2c30…2c44 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/35 «, t00=0x001c, t01=0x007e}
0x2c44…2c58 Head {h00=0x0010, h01=0x0050, text=»COP142 EQU *«, t00=0x001c, t01=0x0092}
0x2c58…2c7a Head {h00=0x001e, h01=0x0050, text=» CF A14,RFMDUP FM OR DUP ?«, t00=0x001c, t01=0x00a6}
0x2c7a…2cac Head {h00=0x002e, h01=0x0050, text=»COP143 CWK A2,/61 LOWER CASE CHARACTER ?? «, t00=0x001c, t01=0x00c8}
0x2cac…2cc6 Head {h00=0x0016, h01=0x0050, text=» RF(L) COP144 NO!!«, t00=0x001c, t01=0x00fa}
0x2cc6…2cda Head {h00=0x0010, h01=0x0050, text=» SUK A2,/20 «, t00=0x001c, t01=0x0114}
0x2cda…2cf2 Head {h00=0x0014, h01=0x0050, text=»COP144 SCR A2,A7«, t00=0x001c, t01=0x0128}
0x2cf2…2d04 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001c, t01=0x0140}
0x2d04…2d16 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x001c, t01=0x0152}
0x2d16…2d28 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x001c, t01=0x0164}
0x2d28…2d3a Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x001c, t01=0x0176}
0x2d3a…2d4c Head {h00=0x000e, h01=0x0050, text=» RB COP110«, t00=0x001c, t01=0x0188}
0x2d4c…2d7c Head {h00=0x002c, h01=0x0050, text=»COP150 LDK A2,/20 SPACE INSTEAD OF TEXT «, t00=0x001d, t01=0x000a}
0x2d7c…2d8e Head {h00=0x000e, h01=0x0050, text=» SCR A2,A7«, t00=0x001d, t01=0x003a}
0x2d8e…2da0 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001d, t01=0x004c}
0x2da0…2db2 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x001d, t01=0x005e}
0x2db2…2dc4 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x001d, t01=0x0070}
0x2dc4…2dd6 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x001d, t01=0x0082}
0x2dd6…2de8 Head {h00=0x000e, h01=0x0050, text=» CWR A9,A6«, t00=0x001d, t01=0x0094}
0x2de8…2dfe Head {h00=0x0012, h01=0x0050, text=» RF(L) COP160 «, t00=0x001d, t01=0x00a6}
0x2dfe…2e2a Head {h00=0x0028, h01=0x0050, text=» CF A14,PRLINE LINE FULL : PRINT IT «, t00=0x001d, t01=0x00bc}
0x2e2a…2e42 Head {h00=0x0014, h01=0x0050, text=»COP160 LCR A2,A4«, t00=0x001d, t01=0x00e8}
0x2e42…2e56 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x001d, t01=0x0100}
0x2e56…2e6a Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x001d, t01=0x0114}
0x2e6a…2e8a Head {h00=0x001c, h01=0x0050, text=» RB(L) COP123 ATTRIBUTE «, t00=0x001d, t01=0x0128}
0x2e8a…2eb6 Head {h00=0x0028, h01=0x0050, text=» RB COP150 STILL IN PROTECTED FIELD «, t00=0x001d, t01=0x0148}
0x2eb6…2ec0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0174}
0x2ec0…2eca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x017e}
0x2eca…2efa Head {h00=0x002c, h01=0x0050, text=»* LINE LENGTH AS DEFINED BY NL CHARACTER«, t00=0x001d, t01=0x0188}
0x2efa…2f04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0028}
0x2f04…2f0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0032}
0x2f0e…2f48 Head {h00=0x0036, h01=0x0050, text=»* THE FIRST INSTR. ORIGINALLY HAD LABEL 'COP200'. «, t00=0x001e, t01=0x003c}
0x2f48…2f52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0076}
0x2f52…2f5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0080}
0x2f5c…2f70 Head {h00=0x0010, h01=0x0050, text=»COP111 EQU *«, t00=0x001e, t01=0x008a}
0x2f70…2f8a Head {h00=0x0016, h01=0x0050, text=» CWK A9,LPLIN DK3«, t00=0x001e, t01=0x009e}
0x2f8a…2fb0 Head {h00=0x0022, h01=0x0050, text=» RF(L) COP220 BUFFER NOT FULL «, t00=0x001e, t01=0x00b8}
0x2fb0…2fd8 Head {h00=0x0024, h01=0x0050, text=»COP210 CF A14,PRLINE PRINT LINE «, t00=0x001e, t01=0x00de}
0x2fd8…2fec Head {h00=0x0010, h01=0x0050, text=» ABL COP111 «, t00=0x001e, t01=0x0106}
0x2fec…3008 Head {h00=0x0018, h01=0x0050, text=»COP220 CWK A3,LBVDU «, t00=0x001e, t01=0x011a}
0x3008…302e Head {h00=0x0022, h01=0x0050, text=» RF(NL) COP300 PRINT LAST LINE«, t00=0x001e, t01=0x0136}
0x302e…3040 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x001e, t01=0x015c}
0x3040…3054 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x001e, t01=0x016e}
0x3054…3078 Head {h00=0x0020, h01=0x0050, text=» SCR A2,A4 RESET DISPLAY BIT«, t00=0x001e, t01=0x0182}
0x3078…308c Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x001f, t01=0x0016}
0x308c…30a2 Head {h00=0x0012, h01=0x0050, text=» RF(NL) COP230«, t00=0x001f, t01=0x002a}
0x30a2…30ce Head {h00=0x0028, h01=0x0050, text=»COP223 ANK A2,/6 ATTRIBUTE CHARACTER«, t00=0x001f, t01=0x0040}
0x30ce…30e0 Head {h00=0x000e, h01=0x0050, text=» XRK A2,6 «, t00=0x001f, t01=0x006c}
0x30e0…3106 Head {h00=0x0022, h01=0x0050, text=» RF(Z) COP250 PROTECTED FIELD «, t00=0x001f, t01=0x007e}
0x3106…313a Head {h00=0x0030, h01=0x0050, text=»COP225 LDK A2,/20 REPLACE ATTRIBUTE BY SPACE«, t00=0x001f, t01=0x00a4}
0x313a…314c Head {h00=0x000e, h01=0x0050, text=» RF COP240«, t00=0x001f, t01=0x00d8}
0x314c…3166 Head {h00=0x0016, h01=0x0050, text=»COP230 CWK A2,NULL«, t00=0x001f, t01=0x00ea}
0x3166…3196 Head {h00=0x002c, h01=0x0050, text=» RB(E) COP225 NULL IS REPLACED BY SPACE «, t00=0x001f, t01=0x0104}
0x3196…31aa Head {h00=0x0010, h01=0x0050, text=»COP240 EQU *«, t00=0x001f, t01=0x0134}
0x31aa…31be Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7B «, t00=0x001f, t01=0x0148}
0x31be…31d4 Head {h00=0x0012, h01=0x0050, text=» RF(NE) COP241«, t00=0x001f, t01=0x015c}
0x31d4…31e8 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/2A «, t00=0x001f, t01=0x0172}
0x31e8…3200 Head {h00=0x0014, h01=0x0050, text=»COP241 SCR A2,A7«, t00=0x001f, t01=0x0186}
0x3200…3212 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0020, t01=0x000e}
0x3212…3224 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0020, t01=0x0020}
0x3224…3236 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0020, t01=0x0032}
0x3236…324c Head {h00=0x0012, h01=0x0050, text=» CWK A2,NEWLIN«, t00=0x0020, t01=0x0044}
0x324c…3276 Head {h00=0x0026, h01=0x0050, text=» RB(E) COP210 NL CHAR: PRINT LINE «, t00=0x0020, t01=0x005a}
0x3276…3292 Head {h00=0x0018, h01=0x0050, text=» CWK A2,FORMFD DK1 «, t00=0x0020, t01=0x0084}
0x3292…32ac Head {h00=0x0016, h01=0x0050, text=» RB(E) COP210 DK1«, t00=0x0020, t01=0x00a0}
0x32ac…32c2 Head {h00=0x0012, h01=0x0050, text=» CWK A2,ENDMES«, t00=0x0020, t01=0x00ba}
0x32c2…32f4 Head {h00=0x002e, h01=0x0050, text=» RF(E) COP300 UND MESSAGE: PRINT LAST LINE«, t00=0x0020, t01=0x00d0}
0x32f4…3306 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0020, t01=0x0102}
0x3306…331a Head {h00=0x0010, h01=0x0050, text=» ABL COP111 «, t00=0x0020, t01=0x0114}
0x331a…334a Head {h00=0x002c, h01=0x0050, text=»COP250 LDK A2,/20 REPLACE TEXT BY SPACE «, t00=0x0020, t01=0x0128}
0x334a…335c Head {h00=0x000e, h01=0x0050, text=» SCR A2,A7«, t00=0x0020, t01=0x0158}
0x335c…336e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0020, t01=0x016a}
0x336e…3380 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0020, t01=0x017c}
0x3380…3392 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0020, t01=0x018e}
0x3392…33a4 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0021, t01=0x0010}
0x33a4…33b6 Head {h00=0x000e, h01=0x0050, text=» CWR A9,A6«, t00=0x0021, t01=0x0022}
0x33b6…33cc Head {h00=0x0012, h01=0x0050, text=» RF(L) COP260 «, t00=0x0021, t01=0x0034}
0x33cc…33f8 Head {h00=0x0028, h01=0x0050, text=» CF A14,PRLINE LINE FULL : PRINT IT «, t00=0x0021, t01=0x004a}
0x33f8…3410 Head {h00=0x0014, h01=0x0050, text=»COP260 LCR A2,A4«, t00=0x0021, t01=0x0076}
0x3410…3424 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0021, t01=0x008e}
0x3424…3438 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0021, t01=0x00a2}
0x3438…345e Head {h00=0x0022, h01=0x0050, text=» RB(L) COP223 ATTRIBUTE FOUND «, t00=0x0021, t01=0x00b6}
0x345e…348a Head {h00=0x0028, h01=0x0050, text=» RB COP250 STILL IN PROTECTED FIELD «, t00=0x0021, t01=0x00dc}
0x348a…34a2 Head {h00=0x0014, h01=0x0050, text=»COP300 LDR A9,A9«, t00=0x0021, t01=0x0108}
0x34a2…34c4 Head {h00=0x001e, h01=0x0050, text=» ABL(Z) COPRTN ALL PRINTED«, t00=0x0021, t01=0x0120}
0x34c4…34e6 Head {h00=0x001e, h01=0x0050, text=» WHAT IF NO PRINTING DK5«, t00=0x0021, t01=0x0142}
0x34e6…350a Head {h00=0x0020, h01=0x0050, text=» OF LAST LINE???????? DK5 «, t00=0x0021, t01=0x0164}
0x350a…3522 Head {h00=0x0014, h01=0x0050, text=» ????????? DK5«, t00=0x0021, t01=0x0188}
0x3522…3548 Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE PRINT LAST LINE«, t00=0x0022, t01=0x0010}
0x3548…355c Head {h00=0x0010, h01=0x0050, text=» ABL COPRTN «, t00=0x0022, t01=0x0036}
0x355c…3566 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x004a}
0x3566…3570 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0054}
0x3570…357a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x005e}
0x357a…359e Head {h00=0x0020, h01=0x0050, text=»* PRINT ONE LINE ON PRINTER «, t00=0x0022, t01=0x0068}
0x359e…35a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x008c}
0x35a8…35d4 Head {h00=0x0028, h01=0x0050, text=»* A9=NUMBER OF CHAR IN PRINT BUFFER «, t00=0x0022, t01=0x0096}
0x35d4…35de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00c2}
0x35de…35e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00cc}
0x35e8…35fc Head {h00=0x0010, h01=0x0050, text=»PRLINE EQU *«, t00=0x0022, t01=0x00d6}
0x35fc…3616 Head {h00=0x0016, h01=0x0050, text=» IFT SUSPA=1 DK4 «, t00=0x0022, t01=0x00ea}
0x3616…3632 Head {h00=0x0018, h01=0x0050, text=» CF A14,SKIPSP DK4 «, t00=0x0022, t01=0x0104}
0x3632…3644 Head {h00=0x000e, h01=0x0050, text=» XIF DK4«, t00=0x0022, t01=0x0120}
0x3644…3676 Head {h00=0x002e, h01=0x0050, text=» IM LINCNT,TCABAS COUNT NBR OF PRINTLINES «, t00=0x0022, t01=0x0132}
0x3676…369c Head {h00=0x0022, h01=0x0050, text=» RF(N) PRL100 NOT END OF PAGE «, t00=0x0022, t01=0x0164}
0x369c…36be Head {h00=0x001e, h01=0x0050, text=» LDK A7,LPAGE END OF PAGE «, t00=0x0022, t01=0x018a}
0x36be…36d0 Head {h00=0x000e, h01=0x0050, text=» NGR A7,A7«, t00=0x0023, t01=0x001c}
0x36d0…3700 Head {h00=0x002c, h01=0x0050, text=» ST A7,LINCNT,TCABAS RESET LINE COUNTER «, t00=0x0023, t01=0x002e}
0x3700…371e Head {h00=0x001a, h01=0x0050, text=»PRL100 LD A7,ECBBA,A8 «, t00=0x0023, t01=0x005e}
0x371e…3758 Head {h00=0x0036, h01=0x0050, text=»********************* LP 400 SUPPORT ********* DK «, t00=0x0023, t01=0x007c}
0x3758…3784 Head {h00=0x0028, h01=0x0050, text=» LC A2,2,A7 GET FORMCONTROL CHAR DK «, t00=0x0023, t01=0x00b6}
0x3784…37ac Head {h00=0x0024, h01=0x0050, text=» ANK A2,/7F REMOVE PARITY BIT DK«, t00=0x0023, t01=0x00e2}
0x37ac…37c6 Head {h00=0x0016, h01=0x0050, text=» CWK A2,FORMFD DK«, t00=0x0023, t01=0x010a}
0x37c6…37f0 Head {h00=0x0026, h01=0x0050, text=» RF(NE) PRL106 NO, NORMAL PRINT DK«, t00=0x0023, t01=0x0124}
0x37f0…3808 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/31 DK «, t00=0x0023, t01=0x014e}
0x3808…3832 Head {h00=0x0026, h01=0x0050, text=» SC A2,1,A7 CHANGE TO FORMFEED DK «, t00=0x0023, t01=0x0166}
0x3832…3848 Head {h00=0x0012, h01=0x0050, text=» LDK A7,2 DK «, t00=0x0023, t01=0x0190}
0x3848…3872 Head {h00=0x0026, h01=0x0050, text=» ST A7,ECBRL,A8 REQ LENGTH = 2 DK «, t00=0x0024, t01=0x0016}
0x3872…388c Head {h00=0x0016, h01=0x0050, text=» CF A14,PRLKM DK3«, t00=0x0024, t01=0x0040}
0x388c…38a6 Head {h00=0x0016, h01=0x0050, text=» LDK A7,LPAGE DK «, t00=0x0024, t01=0x005a}
0x38a6…38bc Head {h00=0x0012, h01=0x0050, text=» NGR A7,A7 DK«, t00=0x0024, t01=0x0074}
0x38bc…38ee Head {h00=0x002e, h01=0x0050, text=» ST A7,LINCNT,TCABAS RESET LINE COUNTER DK«, t00=0x0024, t01=0x008a}
0x38ee…3900 Head {h00=0x000e, h01=0x0050, text=» RF PRL220«, t00=0x0024, t01=0x00bc}
0x3900…3918 Head {h00=0x0014, h01=0x0050, text=»PRL105 EQU * DK«, t00=0x0024, t01=0x00ce}
0x3918…394a Head {h00=0x002e, h01=0x0050, text=»******************** END LP400 SUPPORT DK «, t00=0x0024, t01=0x00e6}
0x394a…3976 Head {h00=0x0028, h01=0x0050, text=» LC A2,2,A7 GET FIRST CHAR IN BUFFER«, t00=0x0024, t01=0x0118}
0x3976…398a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0024, t01=0x0144}
0x398a…39a2 Head {h00=0x0014, h01=0x0050, text=»PRL106 EQU * DK«, t00=0x0024, t01=0x0158}
0x39a2…39b8 Head {h00=0x0012, h01=0x0050, text=» CWK A2,FORMFD«, t00=0x0024, t01=0x0170}
0x39b8…39dc Head {h00=0x0020, h01=0x0050, text=» RF(NE) PRL200 NOT FORM FEED«, t00=0x0024, t01=0x0186}
0x39dc…39f0 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/20 «, t00=0x0025, t01=0x001a}
0x39f0…3a18 Head {h00=0x0024, h01=0x0050, text=» SC A2,2,A7 REPLACE LF BY SPACE «, t00=0x0025, t01=0x002e}
0x3a18…3a20 Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x0056}
0x3a20…3a34 Head {h00=0x0010, h01=0x0050, text=»PRL110 EQU *«, t00=0x0025, t01=0x005e}
0x3a34…3a5a Head {h00=0x0022, h01=0x0050, text=» LD A1,LINCNT,TCABAS FORM FEED«, t00=0x0025, t01=0x0072}
0x3a5a…3a6c Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x0025, t01=0x0098}
0x3a6c…3aa4 Head {h00=0x0034, h01=0x0050, text=» ST A7,ECBRL,A8 SET REQ LENGTH TO 2 FOR NEW LINE«, t00=0x0025, t01=0x00aa}
0x3aa4…3ab8 Head {h00=0x0010, h01=0x0050, text=»PRL120 EQU *«, t00=0x0025, t01=0x00e2}
0x3ab8…3ad2 Head {h00=0x0016, h01=0x0050, text=» CF A14,PRLKM DK3«, t00=0x0025, t01=0x00f6}
0x3ad2…3af0 Head {h00=0x001a, h01=0x0050, text=» ADK A1,1 COUNT LINES «, t00=0x0025, t01=0x0110}
0x3af0…3b06 Head {h00=0x0012, h01=0x0050, text=» RB(N) PRL120 «, t00=0x0025, t01=0x012e}
0x3b06…3b1c Head {h00=0x0012, h01=0x0050, text=» LDK A7,LPAGE «, t00=0x0025, t01=0x0144}
0x3b1c…3b2e Head {h00=0x000e, h01=0x0050, text=» NGR A7,A7«, t00=0x0025, t01=0x015a}
0x3b2e…3b5e Head {h00=0x002c, h01=0x0050, text=» ST A7,LINCNT,TCABAS RESET LINE COUNTER «, t00=0x0025, t01=0x016c}
0x3b5e…3b92 Head {h00=0x0030, h01=0x0050, text=»PRL200 ADKL A9,2 ADJUST LENGTH FOR BUFFER CW«, t00=0x0026, t01=0x000c}
0x3b92…3bb4 Head {h00=0x001e, h01=0x0050, text=» ST A9,ECBRL,A8 REQ LENGTH«, t00=0x0026, t01=0x0040}
0x3bb4…3bcc Head {h00=0x0014, h01=0x0050, text=»PRL210 EQU * DK«, t00=0x0026, t01=0x0062}
0x3bcc…3be6 Head {h00=0x0016, h01=0x0050, text=» CF A14,PRLKM DK3«, t00=0x0026, t01=0x007a}
0x3be6…3bfe Head {h00=0x0014, h01=0x0050, text=»PRL220 EQU * DK«, t00=0x0026, t01=0x0094}
0x3bfe…3c10 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0026, t01=0x00ac}
0x3c10…3c28 Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBBA,A8 «, t00=0x0026, t01=0x00be}
0x3c28…3c3e Head {h00=0x0012, h01=0x0050, text=» SUR A9,A9 =1«, t00=0x0026, t01=0x00d6}
0x3c3e…3c54 Head {h00=0x0012, h01=0x0050, text=» SCR A9,A7 =1«, t00=0x0026, t01=0x00ec}
0x3c54…3c6c Head {h00=0x0014, h01=0x0050, text=» SC A9,1,A7 =1 «, t00=0x0026, t01=0x0102}
0x3c6c…3c94 Head {h00=0x0024, h01=0x0050, text=» ADK A7,2 RESTORE BUFFER ADDRESS«, t00=0x0026, t01=0x011a}
0x3c94…3ca4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0026, t01=0x0142}
0x3ca4…3cba Head {h00=0x0012, h01=0x0050, text=»* EJECT«, t00=0x0026, t01=0x0152}
0x3cba…3cc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0168}
0x3cc4…3cce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0172}
0x3cce…3cf2 Head {h00=0x0020, h01=0x0050, text=»* SET STATUS NOT BUSY FOR DC«, t00=0x0026, t01=0x017c}
0x3cf2…3cfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0010}
0x3cfc…3d06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x001a}
0x3d06…3d1a Head {h00=0x0010, h01=0x0050, text=»SNBUSY EQU *«, t00=0x0027, t01=0x0024}
0x3d1a…3d36 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0027, t01=0x0038}
0x3d36…3d4a Head {h00=0x0010, h01=0x0050, text=» CM ECBCW,A8«, t00=0x0027, t01=0x0054}
0x3d4a…3d6e Head {h00=0x0020, h01=0x0050, text=» LDK A7,/B8 SET STATUS ORDER«, t00=0x0027, t01=0x0068}
0x3d6e…3d7a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0027, t01=0x008c}
0x3d7a…3d8a Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0027, t01=0x0098}
0x3d8a…3d9a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0027, t01=0x00a8}
0x3d9a…3da4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00b8}
0x3da4…3dae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00c2}
0x3dae…3db8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00cc}
0x3db8…3dc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00d6}
0x3dc2…3dda Head {h00=0x0014, h01=0x0050, text=»PRLKM EQU * DK3«, t00=0x0027, t01=0x00e0}
0x3dda…3df4 Head {h00=0x0016, h01=0x0050, text=» IFT SPOOL=1 DK5 «, t00=0x0027, t01=0x00f8}
0x3df4…3e28 Head {h00=0x0030, h01=0x0050, text=» LD A5,COPNO,TCABAS CHECK IF SPOOL DEV. DK5 «, t00=0x0027, t01=0x0112}
0x3e28…3e42 Head {h00=0x0016, h01=0x0050, text=» CWK A5,'LA' DK5 «, t00=0x0027, t01=0x0146}
0x3e42…3e6a Head {h00=0x0024, h01=0x0050, text=» RF(NZ) 0RLKMP NOT SPOOL DEVICE «, t00=0x0027, t01=0x0160}
0x3e6a…3e8a Head {h00=0x001c, h01=0x0050, text=» CF A14,PRSPOL SPOOL DK5«, t00=0x0027, t01=0x0188}
0x3e8a…3eac Head {h00=0x001e, h01=0x0050, text=» RF(NZ) PRLKMP NO GOOD DK5«, t00=0x0028, t01=0x0018}
0x3eac…3ec8 Head {h00=0x0018, h01=0x0050, text=» RTN A14 RETURN DK5 «, t00=0x0028, t01=0x003a}
0x3ec8…3ed8 Head {h00=0x000c, h01=0x0050, text=»* DK5«, t00=0x0028, t01=0x0056}
0x3ed8…3ef2 Head {h00=0x0016, h01=0x0050, text=»PRLKMP EQU * DK5 «, t00=0x0028, t01=0x0066}
0x3ef2…3f04 Head {h00=0x000e, h01=0x0050, text=» XIF DK5«, t00=0x0028, t01=0x0080}
0x3f04…3f1c Head {h00=0x0014, h01=0x0050, text=» LDK A7,/86 DK3«, t00=0x0028, t01=0x0092}
0x3f1c…3f2e Head {h00=0x000e, h01=0x0050, text=» LKM DK3«, t00=0x0028, t01=0x00aa}
0x3f2e…3f42 Head {h00=0x0010, h01=0x0050, text=» DATA 1 DK3«, t00=0x0028, t01=0x00bc}
0x3f42…3f6e Head {h00=0x0028, h01=0x0050, text=» LD A7,ECBRC,A8 GET RETURN CODE DK3 «, t00=0x0028, t01=0x00d0}
0x3f6e…3f94 Head {h00=0x0022, h01=0x0050, text=» ANKL A7,/2005 BIT 2,3,15? DK3«, t00=0x0028, t01=0x00fc}
0x3f94…3fbc Head {h00=0x0024, h01=0x0050, text=» RB(NZ) PRLKM NO, TRY AGAIN DK3 «, t00=0x0028, t01=0x0122}
0x3fbc…3fd2 Head {h00=0x0012, h01=0x0050, text=» RTN A14 DK3 «, t00=0x0028, t01=0x014a}
0x3fd2…3fdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0160}
0x3fdc…3ff6 Head {h00=0x0016, h01=0x0050, text=» IFT SPOOL=1 DK5 «, t00=0x0028, t01=0x016a}
0x3ff6…4004 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0184}
0x4004…402c (41, 0, 400) Head {h00=0x0024, h01=0x0050, text=»*HERE COMES SPOOLING?????? DK5 «, t00=0x0029, t01=0x0004}
0x402c…403c Head {h00=0x000c, h01=0x0050, text=» DK5 «, t00=0x0029, t01=0x002c}
0x403c…404e Head {h00=0x000e, h01=0x0050, text=» XIF DK5«, t00=0x0029, t01=0x003c}
0x404e…4058 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x004e}
0x4058…4072 Head {h00=0x0016, h01=0x0050, text=» IFT SUSPA=1 DK4B«, t00=0x0029, t01=0x0058}
0x4072…407c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0072}
0x407c…4086 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x007c}
0x4086…40b4 Head {h00=0x002a, h01=0x0050, text=»* SKIPSP = SUBROTINE TO SKIP SPACES«, t00=0x0029, t01=0x0086}
0x40b4…40e0 Head {h00=0x0028, h01=0x0050, text=»* IN END OF ECB-BUFFER. «, t00=0x0029, t01=0x00b4}
0x40e0…4118 Head {h00=0x0034, h01=0x0050, text=»* REQUESTED LENGTH IN A9 IS UPDATED.«, t00=0x0029, t01=0x00e0}
0x4118…413e Head {h00=0x0022, h01=0x0050, text=»* A1,A2 - WORK REG«, t00=0x0029, t01=0x0118}
0x413e…4148 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x013e}
0x4148…415c Head {h00=0x0010, h01=0x0050, text=»SKIPSP EQU *«, t00=0x0029, t01=0x0148}
0x415c…416e Head {h00=0x000e, h01=0x0050, text=» ADKL A9,2«, t00=0x0029, t01=0x015c}
0x416e…419a Head {h00=0x0028, h01=0x0050, text=» LD A1,2,A8 GET BUFFER ADDRESS (BA) «, t00=0x0029, t01=0x016e}
0x419a…41c2 Head {h00=0x0024, h01=0x0050, text=» ADR A1,A9 GET ADD END OF BUFFER«, t00=0x002a, t01=0x000a}
0x41c2…41da Head {h00=0x0014, h01=0x0050, text=»SKIP05 CWK A9,2 «, t00=0x002a, t01=0x0032}
0x41da…41f8 Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 3 «, t00=0x002a, t01=0x004a}
0x41f8…4212 Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 DECR. BA«, t00=0x002a, t01=0x0068}
0x4212…422e Head {h00=0x0018, h01=0x0050, text=» LCR A2,A1 GET CHAR «, t00=0x002a, t01=0x0082}
0x422e…424c Head {h00=0x001a, h01=0x0050, text=» CCK A2,/2020 SPACE ? «, t00=0x002a, t01=0x009e}
0x424c…4266 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP20 NO «, t00=0x002a, t01=0x00bc}
0x4266…4286 Head {h00=0x001c, h01=0x0050, text=»SKIP07 SUKL A9,1 DECR RL«, t00=0x002a, t01=0x00d6}
0x4286…42a2 Head {h00=0x0018, h01=0x0050, text=» RB SKIP05 GET NEXT «, t00=0x002a, t01=0x00f6}
0x42a2…42ba Head {h00=0x0014, h01=0x0050, text=»SKIP20 CWK A9,4 «, t00=0x002a, t01=0x0112}
0x42ba…42d8 Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 5 «, t00=0x002a, t01=0x012a}
0x42d8…42f6 Head {h00=0x001a, h01=0x0050, text=» LC A2,-2,A1 GET CHAR «, t00=0x002a, t01=0x0148}
0x42f6…431e Head {h00=0x0024, h01=0x0050, text=» CCK A2,/1111 TABULATION CHAR ? «, t00=0x002a, t01=0x0166}
0x431e…4338 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP30 NO «, t00=0x002a, t01=0x018e}
0x4338…4352 Head {h00=0x0016, h01=0x0050, text=» SUK A1,2 DECR BA «, t00=0x002b, t01=0x0018}
0x4352…436c Head {h00=0x0016, h01=0x0050, text=» SUKL A9,2 DECR RL«, t00=0x002b, t01=0x0032}
0x436c…4388 Head {h00=0x0018, h01=0x0050, text=» RB SKIP07 GET NEXT «, t00=0x002b, t01=0x004c}
0x4388…4392 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0068}
0x4392…43a6 Head {h00=0x0010, h01=0x0050, text=»SKIP30 EQU *«, t00=0x002b, t01=0x0072}
0x43a6…43b8 Head {h00=0x000e, h01=0x0050, text=» SUKL A9,2«, t00=0x002b, t01=0x0086}
0x43b8…43c8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002b, t01=0x0098}
0x43c8…43dc Head {h00=0x0010, h01=0x0050, text=» XIF DK4E «, t00=0x002b, t01=0x00a8}
0x43dc…43e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00bc}
0x43e6…43fa Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x002b, t01=0x00c6}
0x43fa…43fe Head {h00=0x4004, h01=0x0000}
0x43fe…4402 00 2b 00 da ┆ + ┆
0x4402…440a (44, 1, 8) 20 04 00 00 00 2c 00 04 ┆ , ┆