|
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: 17594 (0x44ba)
Notes: pts_type(SC)
Names: »PRT.SC«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦this⟧ »DK3270/PRT.SC«
IDENT PRT REL 2.1*800222NJ 870150540210
=1, ODD BUFFER ADDRESS
REL 2.1 79-05-23
*************************************************************************
*
* P R T : MODULE PRINTING MAIN FRAME MESSAGES ADDRESSED TO THE
* GENERAL PRINTER. LOCAL HARDCOPY PRINTING IS ALSO
* CARRIED OUT IN THIS MODULE
*
**********************************************************************
*
* [NDRINGER IFM DECENTRAL PRINT 800222 NJ
* LPGAE 48 = > 52
* LPLIN ADDED
* COPY111 FUBAR
* EJECT
*
*
* 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
* EJECT
*
*************************************************
*
* CONDITIONAL ASSEMBLY PARAMETERS
*
*****************************************
OFLIN EQU 1 OFFLINE HANDLING POSSIBLE IF ::= 1
DCLIN EQU 1 NUMBER OF MAIN FRAMES 81-2)
COPCMD EQU 1 COPY COMMAND IF := 1
*
* EQUATES
*
*
*
TIMDC EQU 300 DC TIME OUT VALUE: 30 S
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
* EJECT
*
*
* 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
* EJECT
*
* 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
* EJECT
*
*
LBVDU EQU 1920 1920 CHARACTER DISPLAY
LPAGE EQU 52 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
*
EJECT
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
* EJECT
*
* 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
* EJECT
*
* 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
* EJECT
****************************************************************
*
* 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
* EJECT
*
* ABORT INTERTASK READ
*
ICABOR EQU *
LDK A7,0
CM ECBBLK+ICR,TCABAS
LDKL A8,ECBICR
ADR A8,CREBAS
LKM
DATA 10
RTN A14
* EJECT
*
* 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
* EJECT
*
*
* 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 *
LC A2,COPNO,TCABAS LP/GP ?
CW A2,/47
RF(E) COP202
CWK A9,LPLIN
RF COP203
COP202 EQU *
CWK A9,GTPLIN
COP203 EQU *
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,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
* EJECT
*
*
* PRINT ONE LINE ON PRINTER
*
* A9=NUMBER OF CHAR IN PRINT BUFFER
*
*
PRLINE 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,COPNO,TCABAS 1. CHAR FROM RUNNING TASK DK
CW A2,/47 GTP ? DK
RF(E) PRL105 YES, NORMAL PRINT 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
LDK A7,/86 STD WRITE
LKM
DATA 1 DK
LD A7,ECBBA,A8 DK DK
LDK A2,/2B NO-SPACE DK
SC A2,1,A7 DK
LDK A7,LPAGE DK
NGR A7,A7 DK
ST A7,LINCNT,TCABAS RESET LINE COUNTER DK
RF PRL200
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 LDK A7,/86 STD WRITE
LKM
DATA 1
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
LDK A7,/86 STD WRITE
LKM
DATA 1
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
*
*
END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT PRT REL 2.1*800222NJ 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…00ce Head {h00=0x004e, h01=0x0050, text=»************************************************************************* «, t00=0x0000, t01=0x0080}
0x00ce…00d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00d2}
0x00d8…0122 Head {h00=0x0046, h01=0x0050, text=»* P R T : MODULE PRINTING MAIN FRAME MESSAGES ADDRESSED TO THE«, t00=0x0000, t01=0x00dc}
0x0122…0168 Head {h00=0x0042, h01=0x0050, text=»* GENERAL PRINTER. LOCAL HARDCOPY PRINTING IS ALSO «, t00=0x0000, t01=0x0126}
0x0168…0198 Head {h00=0x002c, h01=0x0050, text=»* CARRIED OUT IN THIS MODULE «, t00=0x0000, t01=0x016c}
0x0198…01a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x000c}
0x01a2…01f0 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0001, t01=0x0016}
0x01f0…01fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0064}
0x01fa…0230 Head {h00=0x0032, h01=0x0050, text=»* [NDRINGER IFM DECENTRAL PRINT 800222 NJ«, t00=0x0001, t01=0x006e}
0x0230…024a Head {h00=0x0016, h01=0x0050, text=»* LPGAE 48 = > 52 «, t00=0x0001, t01=0x00a4}
0x024a…026e Head {h00=0x0020, h01=0x0050, text=»* LPLIN ADDED«, t00=0x0001, t01=0x00be}
0x026e…0292 Head {h00=0x0020, h01=0x0050, text=»* COPY111 FUBAR«, t00=0x0001, t01=0x00e2}
0x0292…02a8 Head {h00=0x0012, h01=0x0050, text=»* EJECT«, t00=0x0001, t01=0x0106}
0x02a8…02b0 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x011c}
0x02b0…02b8 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0124}
0x02b8…02c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x012c}
0x02c2…02cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0136}
0x02cc…02e6 Head {h00=0x0016, h01=0x0050, text=»* ENTRY PARAMETERS«, t00=0x0001, t01=0x0140}
0x02e6…02f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x015a}
0x02f0…02fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0164}
0x02fa…0310 Head {h00=0x0012, h01=0x0050, text=» ENTRY SNBUSY «, t00=0x0001, t01=0x016e}
0x0310…0324 Head {h00=0x0010, h01=0x0050, text=» ENTRY PRINT«, t00=0x0001, t01=0x0184}
0x0324…033a Head {h00=0x0012, h01=0x0050, text=» ENTRY ICREAD «, t00=0x0002, t01=0x0008}
0x033a…0344 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x001e}
0x0344…034e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0028}
0x034e…036c Head {h00=0x001a, h01=0x0050, text=»* EXTERNAL PARAMETERS «, t00=0x0002, t01=0x0032}
0x036c…0376 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0050}
0x0376…0380 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x005a}
0x0380…03ac Head {h00=0x0028, h01=0x0050, text=» EXTRN UPDATE UPDATE BUFFER CONTENTS«, t00=0x0002, t01=0x0064}
0x03ac…03d8 Head {h00=0x0028, h01=0x0050, text=» EXTRN RFMDUP REPLACE FM & DUP CHARS«, t00=0x0002, t01=0x0090}
0x03d8…03ee Head {h00=0x0012, h01=0x0050, text=» EXTRN GTRBUF «, t00=0x0002, t01=0x00bc}
0x03ee…0404 Head {h00=0x0012, h01=0x0050, text=» EXTRN DCGETM «, t00=0x0002, t01=0x00d2}
0x0404…041a Head {h00=0x0012, h01=0x0050, text=» EXTRN RELBUF «, t00=0x0002, t01=0x00e8}
0x041a…0430 Head {h00=0x0012, h01=0x0050, text=» EXTRN DC1INQ «, t00=0x0002, t01=0x00fe}
0x0430…0446 Head {h00=0x0012, h01=0x0050, text=» EXTRN DC2INQ «, t00=0x0002, t01=0x0114}
0x0446…045c Head {h00=0x0012, h01=0x0050, text=» EXTRN REQTIM «, t00=0x0002, t01=0x012a}
0x045c…0466 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0140}
0x0466…0496 Head {h00=0x002c, h01=0x0050, text=» EXTRN I:EVA0 CREDIT EVALUATION ROUTINE «, t00=0x0002, t01=0x014a}
0x0496…04a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x017a}
0x04a0…04ba Head {h00=0x0016, h01=0x0050, text=» EXTRN EMULA START«, t00=0x0002, t01=0x0184}
0x04ba…04d0 Head {h00=0x0012, h01=0x0050, text=»* EJECT«, t00=0x0003, t01=0x000e}
0x04d0…04da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0024}
0x04da…0514 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0003, t01=0x002e}
0x0514…051e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0068}
0x051e…054a Head {h00=0x0028, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS «, t00=0x0003, t01=0x0072}
0x054a…0554 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x009e}
0x0554…0586 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0003, t01=0x00a8}
0x0586…058e Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x00da}
0x058e…05c4 Head {h00=0x0032, h01=0x0050, text=»OFLIN EQU 1 OFFLINE HANDLING POSSIBLE IF ::= 1«, t00=0x0003, t01=0x00e2}
0x05c4…05f4 Head {h00=0x002c, h01=0x0050, text=»DCLIN EQU 1 NUMBER OF MAIN FRAMES 81-2) «, t00=0x0003, t01=0x0118}
0x05f4…061e Head {h00=0x0026, h01=0x0050, text=»COPCMD EQU 1 COPY COMMAND IF := 1 «, t00=0x0003, t01=0x0148}
0x061e…0628 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0172}
0x0628…063a Head {h00=0x000e, h01=0x0050, text=»* EQUATES «, t00=0x0003, t01=0x017c}
0x063a…0644 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x018e}
0x0644…064e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0008}
0x064e…0658 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0012}
0x0658…0686 Head {h00=0x002a, h01=0x0050, text=»TIMDC EQU 300 DC TIME OUT VALUE: 30 S «, t00=0x0004, t01=0x001c}
0x0686…069a Head {h00=0x0010, h01=0x0050, text=»ESC EQU /1B «, t00=0x0004, t01=0x004a}
0x069a…06ae Head {h00=0x0010, h01=0x0050, text=»SBA EQU /11 «, t00=0x0004, t01=0x005e}
0x06ae…06d2 Head {h00=0x0020, h01=0x0050, text=»NULL EQU /7F NULL CHARACTER «, t00=0x0004, t01=0x0072}
0x06d2…06fc Head {h00=0x0026, h01=0x0050, text=»NEWLIN EQU /7E NEW LINE CHARACTER «, t00=0x0004, t01=0x0096}
0x06fc…0724 Head {h00=0x0024, h01=0x0050, text=»ENDMES EQU /7D END MESSAGE CHAR «, t00=0x0004, t01=0x00c0}
0x0724…074a Head {h00=0x0022, h01=0x0050, text=»FORMFD EQU /7C FORMFEED CHAR. «, t00=0x0004, t01=0x00e8}
0x074a…075e Head {h00=0x0010, h01=0x0050, text=»FMCH EQU /60«, t00=0x0004, t01=0x010e}
0x075e…0774 Head {h00=0x0012, h01=0x0050, text=»DUPCH EQU /7B «, t00=0x0004, t01=0x0122}
0x0774…078a Head {h00=0x0012, h01=0x0050, text=»* EJECT«, t00=0x0004, t01=0x0138}
0x078a…0794 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x014e}
0x0794…079e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0158}
0x079e…07b4 Head {h00=0x0012, h01=0x0050, text=»* EQUATES «, t00=0x0004, t01=0x0162}
0x07b4…07be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0178}
0x07be…07e4 Head {h00=0x0022, h01=0x0050, text=»* COMMON EQU FOR ECB HANDLING «, t00=0x0004, t01=0x0182}
0x07e4…07ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0018}
0x07ee…07f6 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0022}
0x07f6…080a Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0005, t01=0x002a}
0x080a…081e Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0005, t01=0x003e}
0x081e…0832 Head {h00=0x0010, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0005, t01=0x0052}
0x0832…0846 Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0005, t01=0x0066}
0x0846…085a Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU 10«, t00=0x0005, t01=0x007a}
0x085a…0864 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x008e}
0x0864…086e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0098}
0x086e…0888 Head {h00=0x0016, h01=0x0050, text=»* CREDIT USED EQU «, t00=0x0005, t01=0x00a2}
0x0888…0892 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00bc}
0x0892…089c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00c6}
0x089c…08b8 Head {h00=0x0018, h01=0x0050, text=»* ECB REL. ADDRESSES«, t00=0x0005, t01=0x00d0}
0x08b8…08c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ec}
0x08c2…08cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00f6}
0x08cc…08de Head {h00=0x000e, h01=0x0050, text=»DIS EQU 20«, t00=0x0005, t01=0x0100}
0x08de…08e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0112}
0x08e8…0902 Head {h00=0x0016, h01=0x0050, text=»ECBDC EQU -DIS-14 «, t00=0x0005, t01=0x011c}
0x0902…0916 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0005, t01=0x0136}
0x0916…0932 Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0005, t01=0x014a}
0x0932…0950 Head {h00=0x001a, h01=0x0050, text=»ECBICR EQU ECBDC2-DIS «, t00=0x0005, t01=0x0166}
0x0950…095c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0005, t01=0x0184}
0x095c…0970 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0005, t01=0x0190}
0x0970…098c Head {h00=0x0018, h01=0x0050, text=»ECBICR EQU ECBDC-DIS«, t00=0x0006, t01=0x0014}
0x098c…0998 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x0030}
0x0998…09ae Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0006, t01=0x003c}
0x09ae…09cc Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0006, t01=0x0052}
0x09cc…09e8 Head {h00=0x0018, h01=0x0050, text=»ECBPR EQU ECBICW-DIS«, t00=0x0006, t01=0x0070}
0x09e8…09f4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x008c}
0x09f4…0a0a Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0006, t01=0x0098}
0x0a0a…0a26 Head {h00=0x0018, h01=0x0050, text=»ECBPR EQU ECBICR-DIS«, t00=0x0006, t01=0x00ae}
0x0a26…0a32 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x00ca}
0x0a32…0a3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00d6}
0x0a3c…0a46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00e0}
0x0a46…0a6c Head {h00=0x0022, h01=0x0050, text=»* BASE ADDRESS FOR TCA AND ECB«, t00=0x0006, t01=0x00ea}
0x0a6c…0a76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0110}
0x0a76…0a8c Head {h00=0x0012, h01=0x0050, text=»TCABAS EQU A11«, t00=0x0006, t01=0x011a}
0x0a8c…0aa6 Head {h00=0x0016, h01=0x0050, text=»CREBAS EQU A13 ECB«, t00=0x0006, t01=0x0130}
0x0aa6…0ab0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x014a}
0x0ab0…0ada Head {h00=0x0026, h01=0x0050, text=»* CONFIG DATA 'CB1' REL ADDRESSES «, t00=0x0006, t01=0x0154}
0x0ada…0ae4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x017e}
0x0ae4…0b0a Head {h00=0x0022, h01=0x0050, text=»NBRKBV EQU 0 NUMBER OF KB/VDUS«, t00=0x0006, t01=0x0188}
0x0b0a…0b34 Head {h00=0x0026, h01=0x0050, text=»NBRGTP EQU NBRKBV+2 NUMBER OF GTPS«, t00=0x0007, t01=0x001e}
0x0b34…0b3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0048}
0x0b3e…0b74 Head {h00=0x0032, h01=0x0050, text=»MF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 «, t00=0x0007, t01=0x0052}
0x0b74…0baa Head {h00=0x0032, h01=0x0050, text=»MF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 «, t00=0x0007, t01=0x0088}
0x0baa…0bbe Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0007, t01=0x00be}
0x0bbe…0bda Head {h00=0x0018, h01=0x0050, text=»MF2KBV EQU MF1GTP+16«, t00=0x0007, t01=0x00d2}
0x0bda…0bf6 Head {h00=0x0018, h01=0x0050, text=»MF2GTP EQU MF2KBV+16«, t00=0x0007, t01=0x00ee}
0x0bf6…0c02 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x010a}
0x0c02…0c18 Head {h00=0x0012, h01=0x0050, text=»* EJECT«, t00=0x0007, t01=0x0116}
0x0c18…0c22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x012c}
0x0c22…0c3e Head {h00=0x0018, h01=0x0050, text=»* TCA REL. ADDRESSES«, t00=0x0007, t01=0x0136}
0x0c3e…0c48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0152}
0x0c48…0c5c Head {h00=0x0010, h01=0x0050, text=»TCT01 EQU 0 «, t00=0x0007, t01=0x015c}
0x0c5c…0c78 Head {h00=0x0018, h01=0x0050, text=»PRINTER EQU TCT01+2 «, t00=0x0007, t01=0x0170}
0x0c78…0ca4 Head {h00=0x0028, h01=0x0050, text=»BVDU EQU PRINTER+2 VDU SCREEN BUFFER«, t00=0x0007, t01=0x018c}
0x0ca4…0cd8 Head {h00=0x0030, h01=0x0050, text=»PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY «, t00=0x0008, t01=0x0028}
0x0cd8…0d06 Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x0008, t01=0x005c}
0x0d06…0d22 Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x0008, t01=0x008a}
0x0d22…0d4c Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x0008, t01=0x00a6}
0x0d4c…0d7e Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x0008, t01=0x00d0}
0x0d7e…0da6 Head {h00=0x0024, h01=0x0050, text=»LINCNT EQU KBINH+2 LINE COUNTER «, t00=0x0008, t01=0x0102}
0x0da6…0dda Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH«, t00=0x0008, t01=0x012a}
0x0dda…0e10 Head {h00=0x0032, h01=0x0050, text=»ICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM «, t00=0x0008, t01=0x015e}
0x0e10…0e40 (9, 0, 398) Head {h00=0x002c, h01=0x0050, text=»INTATT EQU ICWORK+2 INTENSITY ATTRIBUTE «, t00=0x0009, t01=0x0004}
0x0e40…0e68 Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU INTATT+2 OFFLINE FLAG«, t00=0x0009, t01=0x0034}
0x0e68…0e94 Head {h00=0x0028, h01=0x0050, text=»COPNO EQU OFFFLG+2 HARDCOPY TASK ID «, t00=0x0009, t01=0x005c}
0x0e94…0ec2 Head {h00=0x002a, h01=0x0050, text=»CCC EQU COPNO+2 COPY COMMAND CHARACTER«, t00=0x0009, t01=0x0088}
0x0ec2…0ee4 Head {h00=0x001e, h01=0x0050, text=»MAIN EQU CCC+2 MAIN FRAME «, t00=0x0009, t01=0x00b6}
0x0ee4…0f0e Head {h00=0x0026, h01=0x0050, text=»MODE EQU MAIN+2 INSERT MODE SWITCH«, t00=0x0009, t01=0x00d8}
0x0f0e…0f36 Head {h00=0x0024, h01=0x0050, text=»KEYS EQU MODE+2 KEY LOCK STATUS «, t00=0x0009, t01=0x0102}
0x0f36…0f68 Head {h00=0x002e, h01=0x0050, text=»ECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC«, t00=0x0009, t01=0x012a}
0x0f68…0f9e Head {h00=0x0032, h01=0x0050, text=»ECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C «, t00=0x0009, t01=0x015c}
0x0f9e…0fd6 (10, 0, 400) Head {h00=0x0034, h01=0x0050, text=»RDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB«, t00=0x000a, t01=0x0004}
0x0fd6…0fe0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x003c}
0x0fe0…101e Head {h00=0x003a, h01=0x0050, text=»PRBUSY EQU -2 PRINTER BUSY. OCCUPIES BOOLEAN VARAIBLE «, t00=0x000a, t01=0x0046}
0x101e…1034 Head {h00=0x0012, h01=0x0050, text=»* EJECT«, t00=0x000a, t01=0x0084}
0x1034…103c Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x009a}
0x103c…1046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a2}
0x1046…1050 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ac}
0x1050…107e Head {h00=0x002a, h01=0x0050, text=»LBVDU EQU 1920 1920 CHARACTER DISPLAY «, t00=0x000a, t01=0x00b6}
0x107e…10a4 Head {h00=0x0022, h01=0x0050, text=»LPAGE EQU 52 LINES ON ONE PAGE«, t00=0x000a, t01=0x00e4}
0x10a4…10e2 Head {h00=0x003a, h01=0x0050, text=»GTPLIN EQU 112 LINELENGTH MAX 112 CHAR. 'NL' ORDER IN «, t00=0x000a, t01=0x010a}
0x10e2…1112 Head {h00=0x002c, h01=0x0050, text=»* BUFFER DETERMINES PRINT LINE LENGTH «, t00=0x000a, t01=0x0148}
0x1112…113a Head {h00=0x0024, h01=0x0050, text=»LPLIN EQU 132 LINELENGTH FOR LP «, t00=0x000a, t01=0x0178}
0x113a…1144 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0010}
0x1144…114c Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x001a}
0x114c…1154 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0022}
0x1154…1162 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x002a}
0x1162…1176 Head {h00=0x0010, h01=0x0050, text=»PRINT EQU * «, t00=0x000b, t01=0x0038}
0x1176…118c Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x000b, t01=0x004c}
0x118c…11b6 Head {h00=0x0026, h01=0x0050, text=» LDR TCABAS,A9 LOAD ASSEM TCA BASE«, t00=0x000b, t01=0x0062}
0x11b6…11da Head {h00=0x0020, h01=0x0050, text=» LDR* A4,TCABAS REL TASK NO «, t00=0x000b, t01=0x008c}
0x11da…1200 Head {h00=0x0022, h01=0x0050, text=» AD A4,6,CREBAS 'CB1' ADDRESS «, t00=0x000b, t01=0x00b0}
0x1200…1208 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00d6}
0x1208…1242 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000b, t01=0x00de}
0x1242…124c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0118}
0x124c…127c Head {h00=0x002c, h01=0x0050, text=»* TRANSFER PARAMETER FOR MAIN-FRAME #1«, t00=0x000b, t01=0x0122}
0x127c…1286 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0152}
0x1286…12c0 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000b, t01=0x015c}
0x12c0…12c8 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0008}
0x12c8…12e2 Head {h00=0x0016, h01=0x0050, text=» LC A1,MF1GTP-1,A4«, t00=0x000c, t01=0x0010}
0x12e2…12f6 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x000c, t01=0x002a}
0x12f6…130c Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x000c, t01=0x003e}
0x130c…1322 Head {h00=0x0012, h01=0x0050, text=» CF A14,EMULA «, t00=0x000c, t01=0x0054}
0x1322…1336 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000c, t01=0x006a}
0x1336…1370 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000c, t01=0x007e}
0x1370…137a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00b8}
0x137a…13aa Head {h00=0x002c, h01=0x0050, text=»* TRANSFER PARAMETER FOR MAIN-FRAME #2«, t00=0x000c, t01=0x00c2}
0x13aa…13b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00f2}
0x13b4…13ee Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000c, t01=0x00fc}
0x13ee…13f6 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0136}
0x13f6…1410 Head {h00=0x0016, h01=0x0050, text=» LC A1,MF2GTP-1,A4«, t00=0x000c, t01=0x013e}
0x1410…1424 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x000c, t01=0x0158}
0x1424…143c Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x000c, t01=0x016c}
0x143c…1464 Head {h00=0x0024, h01=0x0050, text=» CF A14,EMULA TRANSFER PARAMETER«, t00=0x000c, t01=0x0184}
0x1464…1470 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x001c}
0x1470…1486 Head {h00=0x0012, h01=0x0050, text=»* EJECT«, t00=0x000d, t01=0x0028}
0x1486…1490 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x003e}
0x1490…14b0 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE POS IN ECBBLK«, t00=0x000d, t01=0x0048}
0x14b0…14c2 Head {h00=0x000e, h01=0x0050, text=»ICR EQU 2 «, t00=0x000d, t01=0x0068}
0x14c2…14d4 Head {h00=0x000e, h01=0x0050, text=»DC1 EQU 4 «, t00=0x000d, t01=0x007a}
0x14d4…14e6 Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x000d, t01=0x008c}
0x14e6…14f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x009e}
0x14f0…1504 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x000d, t01=0x00a8}
0x1504…1516 Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x000d, t01=0x00bc}
0x1516…1522 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x00ce}
0x1522…1536 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000d, t01=0x00da}
0x1536…1548 Head {h00=0x000e, h01=0x0050, text=» LDK A1,3 «, t00=0x000d, t01=0x00ee}
0x1548…1554 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0100}
0x1554…1570 Head {h00=0x0018, h01=0x0050, text=» ST A1,ECBBLK,TCABAS«, t00=0x000d, t01=0x010c}
0x1570…1584 Head {h00=0x0010, h01=0x0050, text=»PRI100 EQU *«, t00=0x000d, t01=0x0128}
0x1584…159e Head {h00=0x0016, h01=0x0050, text=» CM ICWORK,TCABAS «, t00=0x000d, t01=0x013c}
0x159e…15be Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC1,TCABAS«, t00=0x000d, t01=0x0156}
0x15be…15dc Head {h00=0x001a, h01=0x0050, text=» RF(NZ) PRI110 PENDING«, t00=0x000d, t01=0x0176}
0x15dc…1610 (14, 0, 400) Head {h00=0x0030, h01=0x0050, text=» CF A14,DC1INQ TEST IF ANY MESSAGE, NO WAIT «, t00=0x000e, t01=0x0004}
0x1610…1624 Head {h00=0x0010, h01=0x0050, text=»PRI110 EQU *«, t00=0x000e, t01=0x0038}
0x1624…1638 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000e, t01=0x004c}
0x1638…1658 Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC2,TCABAS«, t00=0x000e, t01=0x0060}
0x1658…1676 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) PRI120 PENDING«, t00=0x000e, t01=0x0080}
0x1676…16b0 Head {h00=0x0036, h01=0x0050, text=» CF A14,DC2INQ TEST IF ANY MESSAGE MF # 2, NO WAIT«, t00=0x000e, t01=0x009e}
0x16b0…16bc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x00d8}
0x16bc…16d0 Head {h00=0x0010, h01=0x0050, text=»PRI120 EQU *«, t00=0x000e, t01=0x00e4}
0x16d0…16f0 Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+ICR,TCABAS«, t00=0x000e, t01=0x00f8}
0x16f0…170e Head {h00=0x001a, h01=0x0050, text=» RF(NZ) PRI150 PENDING«, t00=0x000e, t01=0x0118}
0x170e…1730 Head {h00=0x001e, h01=0x0050, text=» LDKL A6,LBVDU REQ LENGTH «, t00=0x000e, t01=0x0136}
0x1730…174c Head {h00=0x0018, h01=0x0050, text=» LDKL A3,BVDU BUFFER«, t00=0x000e, t01=0x0158}
0x174c…176c Head {h00=0x001c, h01=0x0050, text=» ADR A3,TCABAS ADDRESS«, t00=0x000e, t01=0x0174}
0x176c…179a (15, 0, 398) Head {h00=0x002a, h01=0x0050, text=» CF A14,ICREAD READ INTERTASK NO WAIT «, t00=0x000f, t01=0x0004}
0x179a…17ba Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+ICR,TCABAS«, t00=0x000f, t01=0x0032}
0x17ba…17ce Head {h00=0x0010, h01=0x0050, text=»PRI150 EQU *«, t00=0x000f, t01=0x0052}
0x17ce…17e6 Head {h00=0x0014, h01=0x0050, text=» LDKL A7,ECBBLK «, t00=0x000f, t01=0x0066}
0x17e6…17fc Head {h00=0x0012, h01=0x0050, text=» ADR A7,TCABAS«, t00=0x000f, t01=0x007e}
0x17fc…1808 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x000f, t01=0x0094}
0x1808…1826 Head {h00=0x001a, h01=0x0050, text=» DATA 7 MULTIPLE WAIT «, t00=0x000f, t01=0x00a0}
0x1826…1846 Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+ICR,TCABAS«, t00=0x000f, t01=0x00be}
0x1846…1870 Head {h00=0x0026, h01=0x0050, text=» RF(E) ICRINP INPUT FROM INTERTASK«, t00=0x000f, t01=0x00de}
0x1870…18ae Head {h00=0x003a, h01=0x0050, text=» ST A8,ECBDCC,TCABAS SAVE ECB ADDRESS FOR CURRENT READ«, t00=0x000f, t01=0x0108}
0x18ae…18d2 Head {h00=0x0020, h01=0x0050, text=» CF A14,DCINP INPUT FROM DC «, t00=0x000f, t01=0x0146}
0x18d2…18e4 Head {h00=0x000e, h01=0x0050, text=» RB PRI100«, t00=0x000f, t01=0x016a}
0x18e4…18fa Head {h00=0x0012, h01=0x0050, text=»* EJECT«, t00=0x000f, t01=0x017c}
0x18fa…1904 (16, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0004}
0x1904…1924 Head {h00=0x001c, h01=0x0050, text=»* READ INTERTASK, NOWAIT«, t00=0x0010, t01=0x000e}
0x1924…192e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x002e}
0x192e…194c Head {h00=0x001a, h01=0x0050, text=»* A3 = BUFFER ADDRESS «, t00=0x0010, t01=0x0038}
0x194c…1966 Head {h00=0x0016, h01=0x0050, text=»* A6 = REQ LENGTH «, t00=0x0010, t01=0x0056}
0x1966…1970 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0070}
0x1970…1984 Head {h00=0x0010, h01=0x0050, text=»ICREAD EQU *«, t00=0x0010, t01=0x007a}
0x1984…199c Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICR «, t00=0x0010, t01=0x008e}
0x199c…19b2 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0010, t01=0x00a6}
0x19b2…19c6 Head {h00=0x0010, h01=0x0050, text=» LDKL A1,-1 «, t00=0x0010, t01=0x00bc}
0x19c6…19dc Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x0010, t01=0x00d0}
0x19dc…19fe Head {h00=0x001e, h01=0x0050, text=» ST A6,ECBRL,A8 REQ LENGTH«, t00=0x0010, t01=0x00e6}
0x19fe…1a16 Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBBA,A8 «, t00=0x0010, t01=0x0108}
0x1a16…1a44 Head {h00=0x002a, h01=0x0050, text=» LDK A7,2 READ NOT ADDRESSED, NO WAIT «, t00=0x0010, t01=0x0120}
0x1a44…1a50 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0010, t01=0x014e}
0x1a50…1a60 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0010, t01=0x015a}
0x1a60…1a70 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0010, t01=0x016a}
0x1a70…1a86 Head {h00=0x0012, h01=0x0050, text=»* EJECT«, t00=0x0010, t01=0x017a}
0x1a86…1ace Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0010, t01=0x0190}
0x1ace…1ad8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0048}
0x1ad8…1af0 Head {h00=0x0014, h01=0x0050, text=»* INPUT FROM DC «, t00=0x0011, t01=0x0052}
0x1af0…1afa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x006a}
0x1afa…1b36 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0011, t01=0x0074}
0x1b36…1b40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b0}
0x1b40…1b54 Head {h00=0x0010, h01=0x0050, text=»DCINP EQU * «, t00=0x0011, t01=0x00ba}
0x1b54…1b80 Head {h00=0x0028, h01=0x0050, text=» CF A14,ICABOR ABORT INTERTASK READ «, t00=0x0011, t01=0x00ce}
0x1b80…1b92 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x0011, t01=0x00fa}
0x1b92…1bb6 Head {h00=0x0020, h01=0x0050, text=» RF(Z) DCIN10 NOT COMPLETED «, t00=0x0011, t01=0x010c}
0x1bb6…1bd8 Head {h00=0x001e, h01=0x0050, text=» IM ICWORK,TCABAS SET FLAG«, t00=0x0011, t01=0x0130}
0x1bd8…1c08 Head {h00=0x002c, h01=0x0050, text=» RF ICRINP TAKE CARE OF INTERTASK INPUT «, t00=0x0011, t01=0x0152}
0x1c08…1c3a Head {h00=0x002e, h01=0x0050, text=» OR BUFFER WILL BE DESTROYED IN 'UPDATE'«, t00=0x0011, t01=0x0182}
0x1c3a…1c4e Head {h00=0x0010, h01=0x0050, text=»DCIN10 EQU *«, t00=0x0012, t01=0x0024}
0x1c4e…1c78 Head {h00=0x0026, h01=0x0050, text=» CF A14,GTRBUF GET RECEIVE BUFFER «, t00=0x0012, t01=0x0038}
0x1c78…1c94 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0012, t01=0x0062}
0x1c94…1cb8 Head {h00=0x0020, h01=0x0050, text=» CF A14,DCGETM READ MESSAGE «, t00=0x0012, t01=0x007e}
0x1cb8…1ccc Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0012, t01=0x00a2}
0x1ccc…1cea Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x0012, t01=0x00b6}
0x1cea…1cf6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x00d4}
0x1cf6…1d0a Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0012, t01=0x00e0}
0x1d0a…1d2a Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+DC2,TCABAS«, t00=0x0012, t01=0x00f4}
0x1d2a…1d46 Head {h00=0x0018, h01=0x0050, text=» RF(E) DCIN20 MF # 2«, t00=0x0012, t01=0x0114}
0x1d46…1d64 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x0012, t01=0x0130}
0x1d64…1d76 Head {h00=0x000e, h01=0x0050, text=» RF DCIN30«, t00=0x0012, t01=0x014e}
0x1d76…1d8a Head {h00=0x0010, h01=0x0050, text=»DCIN20 EQU *«, t00=0x0012, t01=0x0160}
0x1d8a…1da8 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC2,TCABAS «, t00=0x0012, t01=0x0174}
0x1da8…1db4 (19, 0, 398) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0004}
0x1db4…1dc8 Head {h00=0x0010, h01=0x0050, text=»DCIN30 EQU *«, t00=0x0013, t01=0x0010}
0x1dc8…1df0 Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBEL,A8 EFFECTIVE LENGTH«, t00=0x0013, t01=0x0024}
0x1df0…1e22 Head {h00=0x002e, h01=0x0050, text=» ST A1,DCLENG,TCABAS SAVE IT IN SAVE AREA «, t00=0x0013, t01=0x004c}
0x1e22…1e2a Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x007e}
0x1e2a…1e60 Head {h00=0x0032, h01=0x0050, text=» CF A14,UPDATE MOVE FROM DC TO PRINTER BUFFER;«, t00=0x0013, t01=0x0086}
0x1e60…1e76 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0013, t01=0x00bc}
0x1e76…1e92 Head {h00=0x0018, h01=0x0050, text=» LD A1,ICWORK,TCABAS«, t00=0x0013, t01=0x00d2}
0x1e92…1eb6 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DCIN90 COPY COMMAND «, t00=0x0013, t01=0x00ee}
0x1eb6…1ec2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0112}
0x1ec2…1ef4 Head {h00=0x002e, h01=0x0050, text=» LD A1,WCC,TCABAS WRITE CONTROL CHARACTER «, t00=0x0013, t01=0x011e}
0x1ef4…1f16 Head {h00=0x001e, h01=0x0050, text=» ST A1,CCC,TCABAS COPY IT «, t00=0x0013, t01=0x0150}
0x1f16…1f3a Head {h00=0x0020, h01=0x0050, text=» CF A14,COPY COPY ON PRINTER«, t00=0x0013, t01=0x0172}
0x1f3a…1f4e Head {h00=0x0010, h01=0x0050, text=»DCIN90 EQU *«, t00=0x0014, t01=0x0008}
0x1f4e…1f64 Head {h00=0x0012, h01=0x0050, text=» CF A14,SNBUSY«, t00=0x0014, t01=0x001c}
0x1f64…1f74 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0014, t01=0x0032}
0x1f74…1f8a Head {h00=0x0012, h01=0x0050, text=»* EJECT«, t00=0x0014, t01=0x0042}
0x1f8a…1f94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0058}
0x1f94…1fb2 Head {h00=0x001a, h01=0x0050, text=»* ABORT INTERTASK READ«, t00=0x0014, t01=0x0062}
0x1fb2…1fbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0080}
0x1fbc…1fd0 Head {h00=0x0010, h01=0x0050, text=»ICABOR EQU *«, t00=0x0014, t01=0x008a}
0x1fd0…1fe2 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0014, t01=0x009e}
0x1fe2…2000 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+ICR,TCABAS «, t00=0x0014, t01=0x00b0}
0x2000…2018 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICR «, t00=0x0014, t01=0x00ce}
0x2018…202e Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0014, t01=0x00e6}
0x202e…203a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0014, t01=0x00fc}
0x203a…204a Head {h00=0x000c, h01=0x0050, text=» DATA 10«, t00=0x0014, t01=0x0108}
0x204a…205a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0014, t01=0x0118}
0x205a…2070 Head {h00=0x0012, h01=0x0050, text=»* EJECT«, t00=0x0014, t01=0x0128}
0x2070…207a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x013e}
0x207a…2098 Head {h00=0x001a, h01=0x0050, text=»* INPUT FROM INTERTASK«, t00=0x0014, t01=0x0148}
0x2098…20a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0166}
0x20a2…20b6 Head {h00=0x0010, h01=0x0050, text=»ICRINP EQU *«, t00=0x0014, t01=0x0170}
0x20b6…20d4 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+ICR,TCABAS «, t00=0x0014, t01=0x0184}
0x20d4…20dc Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x0012}
0x20dc…210a Head {h00=0x002a, h01=0x0050, text=» LDK A1,X'38' PRINT BIT, 80 CHAR./LINE«, t00=0x0015, t01=0x001a}
0x210a…2142 Head {h00=0x0034, h01=0x0050, text=» ST A1,CCC,TCABAS SAVE AS COPY CONTROL CHARACTER«, t00=0x0015, t01=0x0048}
0x2142…2170 Head {h00=0x002a, h01=0x0050, text=» CF A14,COPY PRINT ON HARDCOPY DEVICE «, t00=0x0015, t01=0x0080}
0x2170…218c Head {h00=0x0018, h01=0x0050, text=» LD A1,ICWORK,TCABAS«, t00=0x0015, t01=0x00ae}
0x218c…21b8 Head {h00=0x0028, h01=0x0050, text=» RB(NZ) DCIN10 TAKE CARE OF DC INPUT«, t00=0x0015, t01=0x00ca}
0x21b8…21ca Head {h00=0x000e, h01=0x0050, text=» RB PRI100«, t00=0x0015, t01=0x00f6}
0x21ca…21e0 Head {h00=0x0012, h01=0x0050, text=»* EJECT«, t00=0x0015, t01=0x0108}
0x21e0…21ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x011e}
0x21ea…21f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0128}
0x21f4…2226 Head {h00=0x002e, h01=0x0050, text=»* PRINT THE CONTENTS OF THE PRINTER BUFFER«, t00=0x0015, t01=0x0132}
0x2226…2230 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0164}
0x2230…223a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x016e}
0x223a…227c Head {h00=0x003e, h01=0x0050, text=»LINLEN DATA /0028,/4050 LINE LENGTHS /40, 64 AND 80 CHARS «, t00=0x0015, t01=0x0178}
0x227c…2286 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x002a}
0x2286…2290 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0034}
0x2290…22aa Head {h00=0x0016, h01=0x0050, text=»COPY LDKL A8,ECBPR«, t00=0x0016, t01=0x003e}
0x22aa…22cc Head {h00=0x001e, h01=0x0050, text=» ADR A8,CREBAS PRINTER ECB«, t00=0x0016, t01=0x0058}
0x22cc…22e4 Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBBA,A8 «, t00=0x0016, t01=0x007a}
0x22e4…22fa Head {h00=0x0012, h01=0x0050, text=» SUR A3,A3 =1«, t00=0x0016, t01=0x0092}
0x22fa…2312 Head {h00=0x0014, h01=0x0050, text=» SC A3,0,A7 =1 «, t00=0x0016, t01=0x00a8}
0x2312…232a Head {h00=0x0014, h01=0x0050, text=» SC A3,1,A7 =1 «, t00=0x0016, t01=0x00c0}
0x232a…2350 Head {h00=0x0022, h01=0x0050, text=» ADK A7,2 PRINt BUFFER ADDRESS«, t00=0x0016, t01=0x00d8}
0x2350…2376 Head {h00=0x0022, h01=0x0050, text=» SUR A9,A9 RESET BUFFER INDEX «, t00=0x0016, t01=0x00fe}
0x2376…238c Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0016, t01=0x0124}
0x238c…23a2 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0016, t01=0x013a}
0x23a2…23c8 Head {h00=0x0022, h01=0x0050, text=» LD A2,CCC,TCABAS GET CCC/CCC «, t00=0x0016, t01=0x0150}
0x23c8…23dc Head {h00=0x0010, h01=0x0050, text=» ANK A2,/08 «, t00=0x0016, t01=0x0176}
0x23dc…2408 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) COP100 START PRINTER BIT SET«, t00=0x0016, t01=0x018a}
0x2408…241e Head {h00=0x0012, h01=0x0050, text=»COPRTN RTN A14«, t00=0x0017, t01=0x0026}
0x241e…2432 Head {h00=0x0010, h01=0x0050, text=»COP100 EQU *«, t00=0x0017, t01=0x003c}
0x2432…244c Head {h00=0x0016, h01=0x0050, text=» LD A2,CCC,TCABAS «, t00=0x0017, t01=0x0050}
0x244c…2460 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/30 «, t00=0x0017, t01=0x006a}
0x2460…2490 Head {h00=0x002c, h01=0x0050, text=» ABL(Z) COP111 NL DETERMINES LINE LENGTH«, t00=0x0017, t01=0x007e}
0x2490…24a2 Head {h00=0x000e, h01=0x0050, text=» SRL A2,4 «, t00=0x0017, t01=0x00ae}
0x24a2…24b4 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0017, t01=0x00c0}
0x24b4…24dc Head {h00=0x0024, h01=0x0050, text=» LC A6,LINLEN,A2 GET LINE LENGTH«, t00=0x0017, t01=0x00d2}
0x24dc…24f4 Head {h00=0x0014, h01=0x0050, text=»COP110 CWR A9,A6«, t00=0x0017, t01=0x00fa}
0x24f4…250a Head {h00=0x0012, h01=0x0050, text=» RF(L) COP120 «, t00=0x0017, t01=0x0112}
0x250a…253a Head {h00=0x002c, h01=0x0050, text=»COP115 CF A14,PRLINE LINE FULL: PRINT IT«, t00=0x0017, t01=0x0128}
0x253a…254c Head {h00=0x000e, h01=0x0050, text=» RB COP110«, t00=0x0017, t01=0x0158}
0x254c…2568 Head {h00=0x0018, h01=0x0050, text=»COP120 CWK A3,LBVDU «, t00=0x0017, t01=0x016a}
0x2568…2590 Head {h00=0x0024, h01=0x0050, text=» ABL(NL) COP300 PRINT LAST LINE «, t00=0x0017, t01=0x0186}
0x2590…25a2 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0018, t01=0x001e}
0x25a2…25c8 Head {h00=0x0022, h01=0x0050, text=» ANK A2,/7F RESET DISPLAY BIT «, t00=0x0018, t01=0x0030}
0x25c8…25da Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x0018, t01=0x0056}
0x25da…25ee Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0018, t01=0x0068}
0x25ee…2604 Head {h00=0x0012, h01=0x0050, text=» RF(NL) COP130«, t00=0x0018, t01=0x007c}
0x2604…2618 Head {h00=0x0010, h01=0x0050, text=»COP123 EQU *«, t00=0x0018, t01=0x0092}
0x2618…262a Head {h00=0x000e, h01=0x0050, text=» ANK A2,6 «, t00=0x0018, t01=0x00a6}
0x262a…263c Head {h00=0x000e, h01=0x0050, text=» XRK A2,6 «, t00=0x0018, t01=0x00b8}
0x263c…2652 Head {h00=0x0012, h01=0x0050, text=» RF(Z) COP150 «, t00=0x0018, t01=0x00ca}
0x2652…2682 Head {h00=0x002c, h01=0x0050, text=»COP125 LDK A2,/20 REPLACE ATTR BY SPACE «, t00=0x0018, t01=0x00e0}
0x2682…2694 Head {h00=0x000e, h01=0x0050, text=» RF COP140«, t00=0x0018, t01=0x0110}
0x2694…26ae Head {h00=0x0016, h01=0x0050, text=»COP130 CWK A2,NULL«, t00=0x0018, t01=0x0122}
0x26ae…26da Head {h00=0x0028, h01=0x0050, text=» RB(E) COP125 REPLACE NULL BY SPACE «, t00=0x0018, t01=0x013c}
0x26da…26ee Head {h00=0x0010, h01=0x0050, text=»COP140 EQU *«, t00=0x0018, t01=0x0168}
0x26ee…2702 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7D «, t00=0x0018, t01=0x017c}
0x2702…2718 Head {h00=0x0012, h01=0x0050, text=» RF(NE) COP141«, t00=0x0018, t01=0x0190}
0x2718…272c Head {h00=0x0010, h01=0x0050, text=» LDK A2,/39 «, t00=0x0019, t01=0x0016}
0x272c…2746 Head {h00=0x0016, h01=0x0050, text=»COP141 CWK A2,/7E «, t00=0x0019, t01=0x002a}
0x2746…275c Head {h00=0x0012, h01=0x0050, text=» RF(NE) COP142«, t00=0x0019, t01=0x0044}
0x275c…2770 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/35 «, t00=0x0019, t01=0x005a}
0x2770…2784 Head {h00=0x0010, h01=0x0050, text=»COP142 EQU *«, t00=0x0019, t01=0x006e}
0x2784…27a6 Head {h00=0x001e, h01=0x0050, text=» CF A14,RFMDUP FM OR DUP ?«, t00=0x0019, t01=0x0082}
0x27a6…27d8 Head {h00=0x002e, h01=0x0050, text=»COP143 CWK A2,/61 LOWER CASE CHARACTER ?? «, t00=0x0019, t01=0x00a4}
0x27d8…27f2 Head {h00=0x0016, h01=0x0050, text=» RF(L) COP144 NO!!«, t00=0x0019, t01=0x00d6}
0x27f2…2806 Head {h00=0x0010, h01=0x0050, text=» SUK A2,/20 «, t00=0x0019, t01=0x00f0}
0x2806…281e Head {h00=0x0014, h01=0x0050, text=»COP144 SCR A2,A7«, t00=0x0019, t01=0x0104}
0x281e…2830 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0019, t01=0x011c}
0x2830…2842 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0019, t01=0x012e}
0x2842…2854 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0019, t01=0x0140}
0x2854…2866 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0019, t01=0x0152}
0x2866…2878 Head {h00=0x000e, h01=0x0050, text=» RB COP110«, t00=0x0019, t01=0x0164}
0x2878…28a8 Head {h00=0x002c, h01=0x0050, text=»COP150 LDK A2,/20 SPACE INSTEAD OF TEXT «, t00=0x0019, t01=0x0176}
0x28a8…28ba Head {h00=0x000e, h01=0x0050, text=» SCR A2,A7«, t00=0x001a, t01=0x0016}
0x28ba…28cc Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001a, t01=0x0028}
0x28cc…28de Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x001a, t01=0x003a}
0x28de…28f0 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x001a, t01=0x004c}
0x28f0…2902 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x001a, t01=0x005e}
0x2902…2914 Head {h00=0x000e, h01=0x0050, text=» CWR A9,A6«, t00=0x001a, t01=0x0070}
0x2914…292a Head {h00=0x0012, h01=0x0050, text=» RF(L) COP160 «, t00=0x001a, t01=0x0082}
0x292a…2956 Head {h00=0x0028, h01=0x0050, text=» CF A14,PRLINE LINE FULL : PRINT IT «, t00=0x001a, t01=0x0098}
0x2956…296e Head {h00=0x0014, h01=0x0050, text=»COP160 LCR A2,A4«, t00=0x001a, t01=0x00c4}
0x296e…2982 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x001a, t01=0x00dc}
0x2982…2996 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x001a, t01=0x00f0}
0x2996…29b6 Head {h00=0x001c, h01=0x0050, text=» RB(L) COP123 ATTRIBUTE «, t00=0x001a, t01=0x0104}
0x29b6…29e2 Head {h00=0x0028, h01=0x0050, text=» RB COP150 STILL IN PROTECTED FIELD «, t00=0x001a, t01=0x0124}
0x29e2…29ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0150}
0x29ec…29f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x015a}
0x29f6…2a26 Head {h00=0x002c, h01=0x0050, text=»* LINE LENGTH AS DEFINED BY NL CHARACTER«, t00=0x001a, t01=0x0164}
0x2a26…2a30 (27, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0004}
0x2a30…2a3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x000e}
0x2a3a…2a74 Head {h00=0x0036, h01=0x0050, text=»* THE FIRST INSTR. ORIGINALLY HAD LABEL 'COP200'. «, t00=0x001b, t01=0x0018}
0x2a74…2a7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0052}
0x2a7e…2a88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x005c}
0x2a88…2a9c Head {h00=0x0010, h01=0x0050, text=»COP111 EQU *«, t00=0x001b, t01=0x0066}
0x2a9c…2ac0 Head {h00=0x0020, h01=0x0050, text=» LC A2,COPNO,TCABAS LP/GP ? «, t00=0x001b, t01=0x007a}
0x2ac0…2ad2 Head {h00=0x000e, h01=0x0050, text=» CW A2,/47«, t00=0x001b, t01=0x009e}
0x2ad2…2ae8 Head {h00=0x0012, h01=0x0050, text=» RF(E) COP202 «, t00=0x001b, t01=0x00b0}
0x2ae8…2afe Head {h00=0x0012, h01=0x0050, text=» CWK A9,LPLIN «, t00=0x001b, t01=0x00c6}
0x2afe…2b10 Head {h00=0x000e, h01=0x0050, text=» RF COP203«, t00=0x001b, t01=0x00dc}
0x2b10…2b24 Head {h00=0x0010, h01=0x0050, text=»COP202 EQU *«, t00=0x001b, t01=0x00ee}
0x2b24…2b3a Head {h00=0x0012, h01=0x0050, text=» CWK A9,GTPLIN«, t00=0x001b, t01=0x0102}
0x2b3a…2b4e Head {h00=0x0010, h01=0x0050, text=»COP203 EQU *«, t00=0x001b, t01=0x0118}
0x2b4e…2b74 Head {h00=0x0022, h01=0x0050, text=» RF(L) COP220 BUFFER NOT FULL «, t00=0x001b, t01=0x012c}
0x2b74…2b9c Head {h00=0x0024, h01=0x0050, text=»COP210 CF A14,PRLINE PRINT LINE «, t00=0x001b, t01=0x0152}
0x2b9c…2bb0 Head {h00=0x0010, h01=0x0050, text=» ABL COP111 «, t00=0x001b, t01=0x017a}
0x2bb0…2bcc Head {h00=0x0018, h01=0x0050, text=»COP220 CWK A3,LBVDU «, t00=0x001b, t01=0x018e}
0x2bcc…2bf2 Head {h00=0x0022, h01=0x0050, text=» RF(NL) COP300 PRINT LAST LINE«, t00=0x001c, t01=0x001a}
0x2bf2…2c04 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x001c, t01=0x0040}
0x2c04…2c18 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x001c, t01=0x0052}
0x2c18…2c3c Head {h00=0x0020, h01=0x0050, text=» SCR A2,A4 RESET DISPLAY BIT«, t00=0x001c, t01=0x0066}
0x2c3c…2c50 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x001c, t01=0x008a}
0x2c50…2c66 Head {h00=0x0012, h01=0x0050, text=» RF(NL) COP230«, t00=0x001c, t01=0x009e}
0x2c66…2c92 Head {h00=0x0028, h01=0x0050, text=»COP223 ANK A2,/6 ATTRIBUTE CHARACTER«, t00=0x001c, t01=0x00b4}
0x2c92…2ca4 Head {h00=0x000e, h01=0x0050, text=» XRK A2,6 «, t00=0x001c, t01=0x00e0}
0x2ca4…2cca Head {h00=0x0022, h01=0x0050, text=» RF(Z) COP250 PROTECTED FIELD «, t00=0x001c, t01=0x00f2}
0x2cca…2cfe Head {h00=0x0030, h01=0x0050, text=»COP225 LDK A2,/20 REPLACE ATTRIBUTE BY SPACE«, t00=0x001c, t01=0x0118}
0x2cfe…2d10 Head {h00=0x000e, h01=0x0050, text=» RF COP240«, t00=0x001c, t01=0x014c}
0x2d10…2d2a Head {h00=0x0016, h01=0x0050, text=»COP230 CWK A2,NULL«, t00=0x001c, t01=0x015e}
0x2d2a…2d5a Head {h00=0x002c, h01=0x0050, text=» RB(E) COP225 NULL IS REPLACED BY SPACE «, t00=0x001c, t01=0x0178}
0x2d5a…2d6e Head {h00=0x0010, h01=0x0050, text=»COP240 EQU *«, t00=0x001d, t01=0x0018}
0x2d6e…2d82 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7B «, t00=0x001d, t01=0x002c}
0x2d82…2d98 Head {h00=0x0012, h01=0x0050, text=» RF(NE) COP241«, t00=0x001d, t01=0x0040}
0x2d98…2dac Head {h00=0x0010, h01=0x0050, text=» LDK A2,/2A «, t00=0x001d, t01=0x0056}
0x2dac…2dc4 Head {h00=0x0014, h01=0x0050, text=»COP241 SCR A2,A7«, t00=0x001d, t01=0x006a}
0x2dc4…2dd6 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001d, t01=0x0082}
0x2dd6…2de8 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x001d, t01=0x0094}
0x2de8…2dfa Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x001d, t01=0x00a6}
0x2dfa…2e10 Head {h00=0x0012, h01=0x0050, text=» CWK A2,NEWLIN«, t00=0x001d, t01=0x00b8}
0x2e10…2e3a Head {h00=0x0026, h01=0x0050, text=» RB(E) COP210 NL CHAR: PRINT LINE «, t00=0x001d, t01=0x00ce}
0x2e3a…2e50 Head {h00=0x0012, h01=0x0050, text=» CWK A2,ENDMES«, t00=0x001d, t01=0x00f8}
0x2e50…2e82 Head {h00=0x002e, h01=0x0050, text=» RF(E) COP300 UND MESSAGE: PRINT LAST LINE«, t00=0x001d, t01=0x010e}
0x2e82…2e94 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x001d, t01=0x0140}
0x2e94…2ea8 Head {h00=0x0010, h01=0x0050, text=» ABL COP111 «, t00=0x001d, t01=0x0152}
0x2ea8…2ed8 Head {h00=0x002c, h01=0x0050, text=»COP250 LDK A2,/20 REPLACE TEXT BY SPACE «, t00=0x001d, t01=0x0166}
0x2ed8…2eea Head {h00=0x000e, h01=0x0050, text=» SCR A2,A7«, t00=0x001e, t01=0x0008}
0x2eea…2efc Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001e, t01=0x001a}
0x2efc…2f0e Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x001e, t01=0x002c}
0x2f0e…2f20 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x001e, t01=0x003e}
0x2f20…2f32 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x001e, t01=0x0050}
0x2f32…2f44 Head {h00=0x000e, h01=0x0050, text=» CWR A9,A6«, t00=0x001e, t01=0x0062}
0x2f44…2f5a Head {h00=0x0012, h01=0x0050, text=» RF(L) COP260 «, t00=0x001e, t01=0x0074}
0x2f5a…2f86 Head {h00=0x0028, h01=0x0050, text=» CF A14,PRLINE LINE FULL : PRINT IT «, t00=0x001e, t01=0x008a}
0x2f86…2f9e Head {h00=0x0014, h01=0x0050, text=»COP260 LCR A2,A4«, t00=0x001e, t01=0x00b6}
0x2f9e…2fb2 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x001e, t01=0x00ce}
0x2fb2…2fc6 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x001e, t01=0x00e2}
0x2fc6…2fec Head {h00=0x0022, h01=0x0050, text=» RB(L) COP223 ATTRIBUTE FOUND «, t00=0x001e, t01=0x00f6}
0x2fec…3018 Head {h00=0x0028, h01=0x0050, text=» RB COP250 STILL IN PROTECTED FIELD «, t00=0x001e, t01=0x011c}
0x3018…3030 Head {h00=0x0014, h01=0x0050, text=»COP300 LDR A9,A9«, t00=0x001e, t01=0x0148}
0x3030…3052 Head {h00=0x001e, h01=0x0050, text=» ABL(Z) COPRTN ALL PRINTED«, t00=0x001e, t01=0x0160}
0x3052…3078 Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE PRINT LAST LINE«, t00=0x001e, t01=0x0182}
0x3078…308c Head {h00=0x0010, h01=0x0050, text=» ABL COPRTN «, t00=0x001f, t01=0x0018}
0x308c…30a2 Head {h00=0x0012, h01=0x0050, text=»* EJECT«, t00=0x001f, t01=0x002c}
0x30a2…30ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0042}
0x30ac…30b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x004c}
0x30b6…30da Head {h00=0x0020, h01=0x0050, text=»* PRINT ONE LINE ON PRINTER «, t00=0x001f, t01=0x0056}
0x30da…30e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x007a}
0x30e4…3110 Head {h00=0x0028, h01=0x0050, text=»* A9=NUMBER OF CHAR IN PRINT BUFFER «, t00=0x001f, t01=0x0084}
0x3110…311a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00b0}
0x311a…3124 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00ba}
0x3124…315c Head {h00=0x0034, h01=0x0050, text=»PRLINE IM LINCNT,TCABAS COUNT NBR OF PRINTLINES «, t00=0x001f, t01=0x00c4}
0x315c…3182 Head {h00=0x0022, h01=0x0050, text=» RF(N) PRL100 NOT END OF PAGE «, t00=0x001f, t01=0x00fc}
0x3182…31a4 Head {h00=0x001e, h01=0x0050, text=» LDK A7,LPAGE END OF PAGE «, t00=0x001f, t01=0x0122}
0x31a4…31b6 Head {h00=0x000e, h01=0x0050, text=» NGR A7,A7«, t00=0x001f, t01=0x0144}
0x31b6…31e6 Head {h00=0x002c, h01=0x0050, text=» ST A7,LINCNT,TCABAS RESET LINE COUNTER «, t00=0x001f, t01=0x0156}
0x31e6…3204 Head {h00=0x001a, h01=0x0050, text=»PRL100 LD A7,ECBBA,A8 «, t00=0x001f, t01=0x0186}
0x3204…323e Head {h00=0x0036, h01=0x0050, text=»********************* LP 400 SUPPORT ********* DK «, t00=0x0020, t01=0x0014}
0x323e…3276 Head {h00=0x0034, h01=0x0050, text=» LC A2,COPNO,TCABAS 1. CHAR FROM RUNNING TASK DK«, t00=0x0020, t01=0x004e}
0x3276…3292 Head {h00=0x0018, h01=0x0050, text=» CW A2,/47 GTP ? DK«, t00=0x0020, t01=0x0086}
0x3292…32bc Head {h00=0x0026, h01=0x0050, text=» RF(E) PRL105 YES, NORMAL PRINT DK«, t00=0x0020, t01=0x00a2}
0x32bc…32e8 Head {h00=0x0028, h01=0x0050, text=» LC A2,2,A7 GET FORMCONTROL CHAR DK «, t00=0x0020, t01=0x00cc}
0x32e8…3310 Head {h00=0x0024, h01=0x0050, text=» ANK A2,/7F REMOVE PARITY BIT DK«, t00=0x0020, t01=0x00f8}
0x3310…332a Head {h00=0x0016, h01=0x0050, text=» CWK A2,FORMFD DK«, t00=0x0020, t01=0x0120}
0x332a…3354 Head {h00=0x0026, h01=0x0050, text=» RF(NE) PRL106 NO, NORMAL PRINT DK«, t00=0x0020, t01=0x013a}
0x3354…336c Head {h00=0x0014, h01=0x0050, text=» LDK A2,/31 DK «, t00=0x0020, t01=0x0164}
0x336c…3396 Head {h00=0x0026, h01=0x0050, text=» SC A2,1,A7 CHANGE TO FORMFEED DK «, t00=0x0020, t01=0x017c}
0x3396…33ac Head {h00=0x0012, h01=0x0050, text=» LDK A7,2 DK «, t00=0x0021, t01=0x0016}
0x33ac…33d6 Head {h00=0x0026, h01=0x0050, text=» ST A7,ECBRL,A8 REQ LENGTH = 2 DK «, t00=0x0021, t01=0x002c}
0x33d6…33f4 Head {h00=0x001a, h01=0x0050, text=» LDK A7,/86 STD WRITE «, t00=0x0021, t01=0x0056}
0x33f4…3400 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0021, t01=0x0074}
0x3400…3414 Head {h00=0x0010, h01=0x0050, text=» DATA 1 DK «, t00=0x0021, t01=0x0080}
0x3414…3432 Head {h00=0x001a, h01=0x0050, text=» LD A7,ECBBA,A8 DK DK «, t00=0x0021, t01=0x0094}
0x3432…3452 Head {h00=0x001c, h01=0x0050, text=» LDK A2,/2B NO-SPACE DK «, t00=0x0021, t01=0x00b2}
0x3452…346a Head {h00=0x0014, h01=0x0050, text=» SC A2,1,A7 DK «, t00=0x0021, t01=0x00d2}
0x346a…3484 Head {h00=0x0016, h01=0x0050, text=» LDK A7,LPAGE DK «, t00=0x0021, t01=0x00ea}
0x3484…349a Head {h00=0x0012, h01=0x0050, text=» NGR A7,A7 DK«, t00=0x0021, t01=0x0104}
0x349a…34cc Head {h00=0x002e, h01=0x0050, text=» ST A7,LINCNT,TCABAS RESET LINE COUNTER DK«, t00=0x0021, t01=0x011a}
0x34cc…34de Head {h00=0x000e, h01=0x0050, text=» RF PRL200«, t00=0x0021, t01=0x014c}
0x34de…34f6 Head {h00=0x0014, h01=0x0050, text=»PRL105 EQU * DK«, t00=0x0021, t01=0x015e}
0x34f6…3528 Head {h00=0x002e, h01=0x0050, text=»******************** END LP400 SUPPORT DK «, t00=0x0021, t01=0x0176}
0x3528…3554 Head {h00=0x0028, h01=0x0050, text=» LC A2,2,A7 GET FIRST CHAR IN BUFFER«, t00=0x0022, t01=0x0018}
0x3554…3568 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0022, t01=0x0044}
0x3568…3580 Head {h00=0x0014, h01=0x0050, text=»PRL106 EQU * DK«, t00=0x0022, t01=0x0058}
0x3580…3596 Head {h00=0x0012, h01=0x0050, text=» CWK A2,FORMFD«, t00=0x0022, t01=0x0070}
0x3596…35ba Head {h00=0x0020, h01=0x0050, text=» RF(NE) PRL200 NOT FORM FEED«, t00=0x0022, t01=0x0086}
0x35ba…35ce Head {h00=0x0010, h01=0x0050, text=» LDK A2,/20 «, t00=0x0022, t01=0x00aa}
0x35ce…35f6 Head {h00=0x0024, h01=0x0050, text=» SC A2,2,A7 REPLACE LF BY SPACE «, t00=0x0022, t01=0x00be}
0x35f6…35fe Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x00e6}
0x35fe…3612 Head {h00=0x0010, h01=0x0050, text=»PRL110 EQU *«, t00=0x0022, t01=0x00ee}
0x3612…3638 Head {h00=0x0022, h01=0x0050, text=» LD A1,LINCNT,TCABAS FORM FEED«, t00=0x0022, t01=0x0102}
0x3638…364a Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x0022, t01=0x0128}
0x364a…3682 Head {h00=0x0034, h01=0x0050, text=» ST A7,ECBRL,A8 SET REQ LENGTH TO 2 FOR NEW LINE«, t00=0x0022, t01=0x013a}
0x3682…36a6 Head {h00=0x0020, h01=0x0050, text=»PRL120 LDK A7,/86 STD WRITE «, t00=0x0022, t01=0x0172}
0x36a6…36b2 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0023, t01=0x0008}
0x36b2…36c2 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0023, t01=0x0014}
0x36c2…36e0 Head {h00=0x001a, h01=0x0050, text=» ADK A1,1 COUNT LINES «, t00=0x0023, t01=0x0024}
0x36e0…36f6 Head {h00=0x0012, h01=0x0050, text=» RB(N) PRL120 «, t00=0x0023, t01=0x0042}
0x36f6…370c Head {h00=0x0012, h01=0x0050, text=» LDK A7,LPAGE «, t00=0x0023, t01=0x0058}
0x370c…371e Head {h00=0x000e, h01=0x0050, text=» NGR A7,A7«, t00=0x0023, t01=0x006e}
0x371e…374e Head {h00=0x002c, h01=0x0050, text=» ST A7,LINCNT,TCABAS RESET LINE COUNTER «, t00=0x0023, t01=0x0080}
0x374e…3782 Head {h00=0x0030, h01=0x0050, text=»PRL200 ADKL A9,2 ADJUST LENGTH FOR BUFFER CW«, t00=0x0023, t01=0x00b0}
0x3782…37a4 Head {h00=0x001e, h01=0x0050, text=» ST A9,ECBRL,A8 REQ LENGTH«, t00=0x0023, t01=0x00e4}
0x37a4…37bc Head {h00=0x0014, h01=0x0050, text=»PRL210 EQU * DK«, t00=0x0023, t01=0x0106}
0x37bc…37da Head {h00=0x001a, h01=0x0050, text=» LDK A7,/86 STD WRITE «, t00=0x0023, t01=0x011e}
0x37da…37e6 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0023, t01=0x013c}
0x37e6…37f6 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0023, t01=0x0148}
0x37f6…3808 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0023, t01=0x0158}
0x3808…3820 Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBBA,A8 «, t00=0x0023, t01=0x016a}
0x3820…3836 Head {h00=0x0012, h01=0x0050, text=» SUR A9,A9 =1«, t00=0x0023, t01=0x0182}
0x3836…384c Head {h00=0x0012, h01=0x0050, text=» SCR A9,A7 =1«, t00=0x0024, t01=0x0008}
0x384c…3864 Head {h00=0x0014, h01=0x0050, text=» SC A9,1,A7 =1 «, t00=0x0024, t01=0x001e}
0x3864…388c Head {h00=0x0024, h01=0x0050, text=» ADK A7,2 RESTORE BUFFER ADDRESS«, t00=0x0024, t01=0x0036}
0x388c…389c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0024, t01=0x005e}
0x389c…38b2 Head {h00=0x0012, h01=0x0050, text=»* EJECT«, t00=0x0024, t01=0x006e}
0x38b2…38bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0084}
0x38bc…38c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x008e}
0x38c6…38ea Head {h00=0x0020, h01=0x0050, text=»* SET STATUS NOT BUSY FOR DC«, t00=0x0024, t01=0x0098}
0x38ea…38f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00bc}
0x38f4…38fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00c6}
0x38fe…3912 Head {h00=0x0010, h01=0x0050, text=»SNBUSY EQU *«, t00=0x0024, t01=0x00d0}
0x3912…392e Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0024, t01=0x00e4}
0x392e…3942 Head {h00=0x0010, h01=0x0050, text=» CM ECBCW,A8«, t00=0x0024, t01=0x0100}
0x3942…3966 Head {h00=0x0020, h01=0x0050, text=» LDK A7,/B8 SET STATUS ORDER«, t00=0x0024, t01=0x0114}
0x3966…3972 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0024, t01=0x0138}
0x3972…3982 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0024, t01=0x0144}
0x3982…3992 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0024, t01=0x0154}
0x3992…399c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0164}
0x399c…39a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x016e}
0x39a6…39ba Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x0024, t01=0x0178}
0x39ba…39be Head {h00=0x4004, h01=0x0000}
0x39be…39c2 00 24 01 8c ┆ $ ┆
0x39c2…39ca (37, 1, 8) 20 04 00 00 00 25 00 04 ┆ % ┆
0x39ca…3a1a (38, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x2…]
0x3aba…3b0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 42 20 02 00 00 00 02 00 02 07 80 00 04 00 02 07 84 00 02 07 86 00 02 07 88 00 02 07 8a 00 02 07 8c 00 02 07 8e 00 02 07 90 00 02 07 92 00 02 07 94 ┆ B ┆
0x3b0a…3b5a 00 02 07 96 20 02 07 98 00 16 07 9a 00 02 07 b0 00 4c 00 00 00 00 00 00 40 c1 c2 c3 c4 c5 c6 c7 00 00 00 00 00 00 00 00 c8 c9 4a 4b 4c 4d 4e 4f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c ┆ L @ JKLMNO ┆
0x3b5a…3baa (39, 0, 400) 6e 4e 47 41 4c 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 22 20 02 00 00 20 02 00 02 00 10 00 04 00 10 00 14 00 02 00 24 80 02 00 26 00 10 00 00 20 02 00 46 02 1c 02 26 10 be 0a c2 0b 00 ┆nNGALA " $ & F & ┆
0x3baa…3bfa 0a f4 0b 00 0b 24 00 16 0b 2c 00 10 0b 28 00 10 0b 30 00 10 0b 34 00 00 00 00 11 11 00 01 02 28 10 be 00 00 00 00 00 00 00 00 30 01 90 02 03 10 10 30 02 20 05 20 13 00 2d 15 20 30 03 20 5f 05 03 11 10 30 02 20 05 20 12 01 21 14 30 04 20 01 ┆ $ , ( 0 4 ( 0 0 - 0 _ 0 ! 0 ┆
0x3bfa…3c4a 21 15 01 20 11 30 04 20 30 05 14 20 00 05 0b 92 0b 34 25 6c 58 a2 25 2a 00 01 00 02 47 40 4b 40 00 01 00 10 20 02 00 00 20 02 00 02 20 02 00 04 20 02 00 06 00 02 00 08 00 02 00 0a 0b 0c 0b 00 0b 24 0b 0c 0b 24 0b 0c 0b 24 0b 0c 8f 20 0b 38 ┆! 0 0 4%lX %* G@K@ $ $ $ 8┆
0x3c4a…3c9a f6 a1 13 94 81 56 ff fc e1 47 00 01 39 68 e1 27 8f 20 11 2e 06 02 57 02 06 03 f6 a1 0d 58 8f 20 0c 6c f6 a1 0d ce f6 a1 0e 64 f6 a1 0e 26 f6 a1 0e 16 9a a0 00 01 50 0a f6 a1 13 94 81 a6 81 c3 00 04 2f 06 57 f2 f6 a1 0d ce f6 a1 0e 16 f6 a1 ┆ V G 9h ' . W X l d & P / W ┆
0x3c9a…3cea 13 94 81 c3 00 0e 2f 02 57 d6 f6 a1 0d ce f6 a1 0e 26 a0 43 00 10 a0 43 00 0a 57 04 f6 a1 0e 32 a0 43 00 12 a0 43 00 04 e1 4a 0b ba af 04 27 ff 57 b6 37 38 31 22 26 24 00 00 00 00 1f ea a1 80 00 00 01 f0 00 03 fd 40 42 aa 84 0a 82 81 04 05 ┆ / W & C C W 2 C C J ' W 781"&$ @B ┆
0x3cea…3d3a (40, 0, 400) 0b 00 0c 09 33 39 23 24 3b 3c 1c 27 28 29 2a 2b 2c 2d 21 00 f6 a1 0e 32 f6 a1 0e 64 f6 a1 0e 16 f6 a1 13 94 81 c3 00 0e 81 a6 50 04 81 c3 00 04 5f 42 f6 a1 0d ce 86 42 00 08 f6 a1 13 94 86 27 57 e4 f6 a1 0d ce 9c d6 ff f4 07 00 28 04 00 02 ┆ 39#$;< '()*+,-! 2 d P _B B 'W ( ┆
0x3d3a…3d8a f6 a1 5c 62 94 d6 ff f4 57 6a f6 a1 13 94 84 06 f6 a1 0d ce f6 a1 0e 26 86 0a 92 a0 00 01 57 04 f6 a1 0d ce 80 bb 9e a0 00 02 1e 01 5e 0e 82 bb 87 1a 9c d6 ff f4 28 04 00 07 94 d6 ff f4 96 8a 96 8a 02 00 83 1a 13 02 12 01 1b 02 e8 ac 5c 08 ┆ b Wj & W ^ ( ┆
0x3d8a…3dda 82 31 57 20 a0 43 00 0e a0 43 00 10 a0 43 00 12 9c d6 ff f4 28 04 00 01 f6 a1 5c 62 94 d6 ff f4 27 80 50 62 f6 a1 0d 9c e1 49 ff fe 01 00 e5 22 25 40 50 1a e5 22 25 01 50 26 85 42 00 12 85 43 00 02 a0 43 00 12 81 34 e5 22 35 01 e5 23 85 42 ┆ 1W C C C ( b ' Pb I "%@P "% P& B C C 4 "5 # B┆
0x3dda…3e2a 00 04 50 0c 85 42 00 0e 50 06 82 42 00 06 82 35 81 04 50 04 81 43 00 0e 81 c2 00 10 50 18 03 20 e5 42 00 0c 25 ff 50 08 01 00 e1 43 00 0c 2b 10 95 06 f6 a1 0f 96 8f 20 11 2e f6 a1 0d ce f6 a1 0d 20 f6 a1 1c f4 01 06 f6 a1 0d 0a a0 43 00 10 ┆ P B P B 5 P C P B % P C + . C ┆
0x3e2a…3e7a 8f 20 0c e6 87 43 00 0a 01 86 87 42 00 10 9c 42 00 02 50 0a 84 43 00 04 af 04 f6 a1 0d 38 f0 3a 82 56 00 02 a0 49 ff fe 87 43 00 10 81 c2 00 02 85 42 00 0e 95 06 f0 3a 00 15 40 22 20 42 50 40 00 00 00 04 10 00 00 00 00 00 2a a4 40 02 00 0c ┆ C B B P C 8 : V I C B : @" BP@ * @ ┆
0x3e7a…3eca (41, 0, 400) 9c d6 ff f4 28 04 00 01 f6 a1 5c 62 94 d6 ff f4 27 80 50 0a f6 a1 0d 9c e1 04 a9 49 ff fe f0 3a f6 a1 0d ce f6 a1 0e 16 81 06 02 00 e2 25 11 01 1d 01 59 08 f6 a1 13 04 81 c3 00 0a a0 43 00 0c f6 a1 13 94 81 c3 00 0e 81 26 81 84 52 0a 99 c2 ┆ ( b ' P I : % Y C & R ┆
0x3eca…3f1a 00 04 56 04 81 43 00 04 f6 a1 13 94 81 c3 00 10 af 18 f0 3a 01 02 82 42 00 08 83 20 e8 df a2 0d 54 14 01 03 83 20 04 20 a2 0d 54 0a 01 01 a2 20 10 00 54 02 01 00 82 56 00 02 f0 3a e7 32 94 a0 00 01 27 c0 57 02 e7 32 85 36 e3 32 82 40 0a b4 ┆ V C : B T T T V : 2 ' W 2 6 2 @ ┆
0x3f1a…3f6a 22 01 54 0c 23 03 27 0c 3f 44 f6 a1 14 fc 57 22 27 c0 81 80 23 3f 82 0c 1b 10 8a 20 14 e6 94 a0 00 01 82 0c 3b 44 3a 42 93 08 13 22 80 96 98 8c f0 3a a2 20 03 ff 83 08 9b 20 01 00 5f 20 f6 a1 13 94 81 c3 00 02 9d 06 85 43 00 04 f0 3a e2 b2 ┆" T # ' ?D W"' #? ;D:B " : _ C : ┆
0x3f6a…3fba 94 a0 00 01 a2 a0 00 ff f0 3a f6 a1 0d ce f6 a1 0e 26 f6 a1 12 ea 01 01 a3 85 50 06 a0 43 00 10 57 14 84 0c 86 14 24 30 1c 20 50 06 9e 06 e6 43 00 0c 81 c3 00 10 f6 a1 0e 8c f0 3a e1 22 21 40 50 14 e1 22 29 01 e1 23 81 42 00 02 81 43 00 12 ┆ : & P C W $0 P C : "!@P ") # B C ┆
0x3fba…400a 82 42 00 0e 82 25 a0 43 00 0e a0 43 00 10 f0 3a f6 a1 12 ea 23 30 1b 20 54 0c 81 26 81 43 00 0a a0 43 00 0c f0 3a a0 43 00 0a 02 00 e2 43 00 0d 84 14 1d 04 b5 07 56 04 04 10 50 10 40 04 00 00 00 01 02 02 00 00 80 02 a0 00 08 00 00 40 00 05 ┆ B % C C : #0 T & C C : C C V P @ @ ┆
0x400a…405a (42, 0, 400) e9 94 57 02 ed 06 56 02 85 06 81 90 04 0a 86 06 9e 14 ee 20 00 01 51 04 06 30 57 1a ee 20 00 02 51 04 06 20 57 10 ee 20 00 03 51 06 06 10 04 04 57 04 06 00 04 00 81 20 0f 52 96 04 81 20 0f 8a 94 04 e1 34 ab a0 80 00 21 0f 19 0f 50 02 11 0f ┆ W V Q 0W Q W Q W R 4 ! P ┆
0x405a…40aa 03 08 a1 0d 54 06 82 30 50 28 57 24 82 38 92 43 00 0a 53 02 57 0c 82 20 7f ff a2 43 00 0a 90 43 00 0c b2 08 e2 30 ea 20 00 00 50 06 92 43 00 0c 14 01 16 02 3b 61 5c 36 e1 34 b3 a0 80 00 5a 48 15 01 ed 06 54 06 a3 a0 7f ff f0 3a e1 34 39 64 ┆ T 0P(W$ 8 C S W C C 0 P C ;a 6 4 ZH T : 49d┆
0x40aa…40fa 5f 5a 12 00 09 00 04 80 42 40 35 00 1a 80 0d 40 06 a0 38 80 1c 40 4e 20 27 10 1f 40 0f a0 07 d0 03 e8 03 20 01 90 00 c8 00 64 00 50 00 28 00 14 00 0a 00 08 00 04 00 02 00 01 f4 7a 3d 1e 18 0c 06 03 02 01 00 00 23 30 1b 20 54 08 81 42 00 0a ┆_Z B@5 @ 8 @N ' @ d P ( z= #0 T B ┆
0x40fa…414a 81 27 57 b0 81 42 00 0a 82 42 00 0c 22 ff 82 86 ab a0 80 00 87 20 ff ff 06 f0 17 01 84 1c a4 20 7f ff 94 10 84 50 10 68 ec 20 10 78 50 50 83 1c a3 20 7f ff 93 0c 83 4c 10 5a 9a 10 52 1a 99 0c 52 08 16 01 af 20 80 00 5f 10 91 0c 1a 01 52 06 ┆ 'W B B " P h xPP L Z R R _ R ┆
0x414a…419a 91 20 80 00 5f 18 12 01 92 10 83 18 23 0f 51 06 83 1c 52 02 16 0f b3 a0 80 00 56 04 3e 04 5f 56 e6 27 91 a0 00 01 e9 94 50 04 06 00 5f 64 83 0a ed 06 50 1c 02 ff 84 14 00 00 00 09 00 00 00 00 00 00 00 00 00 00 00 00 00 14 08 00 00 00 00 0c ┆ _ # Q R V > _V ' P _d P ┆
0x419a…41ea (43, 0, 400) 1c 01 99 a0 00 01 e1 26 e1 31 e9 8c 5c 0e ec 0c 50 06 1c 01 e2 31 5f 0a e1 2c 19 40 e1 2d 81 1c 52 0a e1 54 ff ff 19 0f e1 55 ff ff a3 a0 7f ff f0 3a 42 40 06 a0 27 10 03 e8 00 64 00 0a 00 01 00 1e 00 03 00 00 00 00 00 00 00 00 00 00 10 78 ┆ & 1 P 1_ , @ - R T U :B@ ' d x┆
0x41ea…423a 00 00 00 00 11 0a 11 0a 11 0a 11 bc 12 a8 11 34 12 a0 16 7e 20 d0 20 d6 15 8a 18 7a 1a 04 1a 04 12 24 12 24 12 32 12 32 12 6c 11 2e 12 32 12 32 1c ee 20 20 1f d8 1f 68 1f 86 20 20 1f 42 12 c8 12 c4 12 ce 12 d0 a0 57 ff f6 84 84 81 56 ff fe ┆ 4 ~ z $ $ 2 2 l . 2 2 h B W V ┆
0x423a…428a 81 37 86 d6 00 02 87 0c 50 14 f6 a1 5c 5e 83 0c 50 04 94 d6 ff f4 83 57 ff f6 f6 a1 10 ee eb 56 ff f6 58 0e 5f 1c 84 d7 ff fa b3 8e e3 b2 94 a0 00 01 eb a0 00 80 8e 20 11 c8 81 0e 39 63 8f 44 10 7c f6 a1 13 94 82 86 84 0c 86 14 f6 a1 12 ea ┆ 7 P ^ P W V X _ 9c D | ┆
0x428a…42da eb a0 00 0f 51 06 f6 cf 10 8a 57 0a f6 a1 15 8a 82 0e 3a 61 57 08 5f 42 28 04 00 03 82 0e e1 32 94 a0 00 01 03 08 a2 0d 50 02 99 05 83 12 93 04 84 56 ff f6 57 38 92 08 01 00 5f 1e e3 32 94 a0 00 01 23 ff 3b 42 84 56 ff f6 54 06 84 20 0b 00 ┆ Q W :aW _B( 2 P V W8 _ 2 # ;B V T ┆
0x42da…432a 57 08 84 56 ff f4 94 50 00 04 93 10 84 4c ff fe 83 2c 93 56 ff f4 82 0e ea 20 00 32 50 1a 22 07 32 07 50 14 81 56 00 02 e1 44 ff fe 21 03 b1 08 19 03 52 04 19 04 54 1a 00 00 00 00 01 3f ff ff ff e0 02 02 00 08 a1 09 00 00 00 01 00 00 00 05 ┆W V P L , V 2P " 2 P V D ! R T ? ┆
0x432a…437a (44, 0, 400) ec 56 ff f6 50 12 9b 56 ff f4 87 10 f6 a1 5c 5e 84 57 ff f6 93 56 ff f4 84 8c 5f 8e 81 0e 19 38 5e 6e 91 04 8f 44 10 a8 e1 32 94 a0 00 01 21 ff 39 42 84 56 ff f6 54 06 84 20 0b 00 57 08 84 56 ff f4 94 50 00 06 91 10 84 44 ff fe 83 24 93 56 ┆ V P V ^ W V _ 8^n D 2 ! 9B V T W V P D $ V┆
0x437a…43ca ff f4 81 36 82 56 ff f6 82 25 82 12 9a 56 ff f4 82 45 00 02 11 04 02 08 87 40 0a b4 27 01 54 02 02 10 e7 32 e7 25 11 01 94 a0 00 01 1a 01 5c 0e 81 37 5f 84 e3 32 94 a0 00 01 23 ff 93 0c 8f 4c 0a f4 f6 a1 13 94 e2 32 22 ff 83 08 93 12 13 01 ┆ 6 V % V E @ ' T 2 % 7_ 2 # L 2" ┆
0x43ca…441a 81 26 5d 8c e9 08 59 90 91 12 e1 24 21 ff 84 0e 1c 36 50 14 51 10 24 01 54 08 39 42 83 04 8f 20 11 5e 84 8c 5f 98 99 05 93 04 5f b4 81 36 19 0c 82 40 0a b4 22 01 54 02 19 08 81 37 82 24 e4 b2 a4 a0 00 ff ea 56 ff f6 50 0a 87 08 f6 a1 5c 5e ┆ &] Y $! 6P Q $ T 9B ^ _ _ 6 @ " T 7 $ V P ^┆
0x441a…446a 82 57 ff f6 94 c4 00 02 94 d6 ff f4 5f e4 8f 12 f6 cf 10 48 8f 20 11 2e f6 a1 15 50 85 0c 84 56 00 02 a3 26 f4 01 82 0e 92 08 1a 90 8e 20 11 4e 8f 48 10 c6 ad 27 57 08 fd 14 a5 27 57 02 b5 27 5f 36 0a 9c 0a a4 0a a0 0a a8 00 08 00 0a 00 00 ┆ W _ H . P V & N H 'W 'W '_6 ┆
0x446a…44ba 00 0c 3a 6c 3a 64 3a 68 82 08 03 01 a3 8d 88 20 13 94 01 00 57 10 01 02 57 0c 03 01 a3 8d 50 94 01 06 57 02 01 04 85 36 e3 32 23 ff f6 a1 14 fc 57 34 82 40 0a b2 f0 45 01 00 10 04 00 00 04 00 00 a0 00 00 80 40 01 00 54 01 40 78 00 80 01 2c ┆ :l:d:h W W P W 6 2# W4 @ E @ T @x ,┆