|
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: 14294 (0x37d6)
Notes: pts_type(SC)
Names: »PRT.SC«
└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
└─⟦this⟧ »IBM3270/PRT.SC«
└─⟦781e933ac⟧ Bits:30009686 Philips computer tape "600310"
└─⟦this⟧ »IBM3270/PRT.SC«
IDENT PRT REL 10.0 80-03-14 870150541000
=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
*
**********************************************************************
*
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 0 OFFLINE HANDLING POSSIBLE IF ::= 1
DCLIN EQU 1 NUMBER OF MAIN FRAMES 81-2)
COPCMD EQU 0 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 48 LINES ON ONE PAGE
GTPLIN EQU 112 LINELENGTH MAX 112 CHAR. 'NL' ORDER IN
* BUFFER DETERMINES PRINT LINE LENGTH
*
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 *
CWK A9,GTPLIN
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
LC A2,2,A7 GET FIRST CHAR IN BUFFER
ANK A2,/7F
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
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…0032 (0, 0, 400) Head {h00=0x002e, h01=0x0050, text=» IDENT PRT REL 10.0 80-03-14 870150541000«, t00=0x0000, t01=0x0004}
0x0032…003a Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0036}
0x003a…005c Head {h00=0x001e, h01=0x0050, text=» =1, ODD BUFFER ADDRESS «, t00=0x0000, t01=0x003e}
0x005c…0078 Head {h00=0x0018, h01=0x0050, text=» REL 2.1 79-05-23 «, t00=0x0000, t01=0x0060}
0x0078…00ca Head {h00=0x004e, h01=0x0050, text=»************************************************************************* «, t00=0x0000, t01=0x007c}
0x00ca…00d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ce}
0x00d4…011e Head {h00=0x0046, h01=0x0050, text=»* P R T : MODULE PRINTING MAIN FRAME MESSAGES ADDRESSED TO THE«, t00=0x0000, t01=0x00d8}
0x011e…0164 Head {h00=0x0042, h01=0x0050, text=»* GENERAL PRINTER. LOCAL HARDCOPY PRINTING IS ALSO «, t00=0x0000, t01=0x0122}
0x0164…0194 Head {h00=0x002c, h01=0x0050, text=»* CARRIED OUT IN THIS MODULE «, t00=0x0000, t01=0x0168}
0x0194…019e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0008}
0x019e…01ec Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0001, t01=0x0012}
0x01ec…01f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0060}
0x01f6…0204 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x006a}
0x0204…020c Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0078}
0x020c…0214 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0080}
0x0214…021e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0088}
0x021e…0228 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0092}
0x0228…0242 Head {h00=0x0016, h01=0x0050, text=»* ENTRY PARAMETERS«, t00=0x0001, t01=0x009c}
0x0242…024c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b6}
0x024c…0256 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c0}
0x0256…026c Head {h00=0x0012, h01=0x0050, text=» ENTRY SNBUSY «, t00=0x0001, t01=0x00ca}
0x026c…0280 Head {h00=0x0010, h01=0x0050, text=» ENTRY PRINT«, t00=0x0001, t01=0x00e0}
0x0280…0296 Head {h00=0x0012, h01=0x0050, text=» ENTRY ICREAD «, t00=0x0001, t01=0x00f4}
0x0296…02a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x010a}
0x02a0…02aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0114}
0x02aa…02c8 Head {h00=0x001a, h01=0x0050, text=»* EXTERNAL PARAMETERS «, t00=0x0001, t01=0x011e}
0x02c8…02d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013c}
0x02d2…02dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0146}
0x02dc…0308 Head {h00=0x0028, h01=0x0050, text=» EXTRN UPDATE UPDATE BUFFER CONTENTS«, t00=0x0001, t01=0x0150}
0x0308…0334 Head {h00=0x0028, h01=0x0050, text=» EXTRN RFMDUP REPLACE FM & DUP CHARS«, t00=0x0001, t01=0x017c}
0x0334…034a Head {h00=0x0012, h01=0x0050, text=» EXTRN GTRBUF «, t00=0x0002, t01=0x0018}
0x034a…0360 Head {h00=0x0012, h01=0x0050, text=» EXTRN DCGETM «, t00=0x0002, t01=0x002e}
0x0360…0376 Head {h00=0x0012, h01=0x0050, text=» EXTRN RELBUF «, t00=0x0002, t01=0x0044}
0x0376…038c Head {h00=0x0012, h01=0x0050, text=» EXTRN DC1INQ «, t00=0x0002, t01=0x005a}
0x038c…03a2 Head {h00=0x0012, h01=0x0050, text=» EXTRN DC2INQ «, t00=0x0002, t01=0x0070}
0x03a2…03b8 Head {h00=0x0012, h01=0x0050, text=» EXTRN REQTIM «, t00=0x0002, t01=0x0086}
0x03b8…03c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x009c}
0x03c2…03f2 Head {h00=0x002c, h01=0x0050, text=» EXTRN I:EVA0 CREDIT EVALUATION ROUTINE «, t00=0x0002, t01=0x00a6}
0x03f2…03fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d6}
0x03fc…0416 Head {h00=0x0016, h01=0x0050, text=» EXTRN EMULA START«, t00=0x0002, t01=0x00e0}
0x0416…0424 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00fa}
0x0424…042e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0108}
0x042e…0468 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0002, t01=0x0112}
0x0468…0472 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x014c}
0x0472…049e Head {h00=0x0028, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS «, t00=0x0002, t01=0x0156}
0x049e…04a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0182}
0x04a8…04da Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0002, t01=0x018c}
0x04da…04e2 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x002e}
0x04e2…0518 Head {h00=0x0032, h01=0x0050, text=»OFLIN EQU 0 OFFLINE HANDLING POSSIBLE IF ::= 1«, t00=0x0003, t01=0x0036}
0x0518…0548 Head {h00=0x002c, h01=0x0050, text=»DCLIN EQU 1 NUMBER OF MAIN FRAMES 81-2) «, t00=0x0003, t01=0x006c}
0x0548…0572 Head {h00=0x0026, h01=0x0050, text=»COPCMD EQU 0 COPY COMMAND IF := 1 «, t00=0x0003, t01=0x009c}
0x0572…057c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00c6}
0x057c…058e Head {h00=0x000e, h01=0x0050, text=»* EQUATES «, t00=0x0003, t01=0x00d0}
0x058e…0598 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00e2}
0x0598…05a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ec}
0x05a2…05ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00f6}
0x05ac…05da Head {h00=0x002a, h01=0x0050, text=»TIMDC EQU 300 DC TIME OUT VALUE: 30 S «, t00=0x0003, t01=0x0100}
0x05da…05ee Head {h00=0x0010, h01=0x0050, text=»ESC EQU /1B «, t00=0x0003, t01=0x012e}
0x05ee…0602 Head {h00=0x0010, h01=0x0050, text=»SBA EQU /11 «, t00=0x0003, t01=0x0142}
0x0602…0626 Head {h00=0x0020, h01=0x0050, text=»NULL EQU /7F NULL CHARACTER «, t00=0x0003, t01=0x0156}
0x0626…0650 Head {h00=0x0026, h01=0x0050, text=»NEWLIN EQU /7E NEW LINE CHARACTER «, t00=0x0003, t01=0x017a}
0x0650…0678 Head {h00=0x0024, h01=0x0050, text=»ENDMES EQU /7D END MESSAGE CHAR «, t00=0x0004, t01=0x0014}
0x0678…069e Head {h00=0x0022, h01=0x0050, text=»FORMFD EQU /7C FORMFEED CHAR. «, t00=0x0004, t01=0x003c}
0x069e…06b2 Head {h00=0x0010, h01=0x0050, text=»FMCH EQU /60«, t00=0x0004, t01=0x0062}
0x06b2…06c8 Head {h00=0x0012, h01=0x0050, text=»DUPCH EQU /7B «, t00=0x0004, t01=0x0076}
0x06c8…06d6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x008c}
0x06d6…06e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x009a}
0x06e0…06ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a4}
0x06ea…0700 Head {h00=0x0012, h01=0x0050, text=»* EQUATES «, t00=0x0004, t01=0x00ae}
0x0700…070a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00c4}
0x070a…0730 Head {h00=0x0022, h01=0x0050, text=»* COMMON EQU FOR ECB HANDLING «, t00=0x0004, t01=0x00ce}
0x0730…073a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00f4}
0x073a…0742 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00fe}
0x0742…0756 Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0004, t01=0x0106}
0x0756…076a Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0004, t01=0x011a}
0x076a…077e Head {h00=0x0010, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0004, t01=0x012e}
0x077e…0792 Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0004, t01=0x0142}
0x0792…07a6 Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU 10«, t00=0x0004, t01=0x0156}
0x07a6…07b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x016a}
0x07b0…07ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0174}
0x07ba…07d4 Head {h00=0x0016, h01=0x0050, text=»* CREDIT USED EQU «, t00=0x0004, t01=0x017e}
0x07d4…07de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0008}
0x07de…07e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0012}
0x07e8…0804 Head {h00=0x0018, h01=0x0050, text=»* ECB REL. ADDRESSES«, t00=0x0005, t01=0x001c}
0x0804…080e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0038}
0x080e…0818 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0042}
0x0818…082a Head {h00=0x000e, h01=0x0050, text=»DIS EQU 20«, t00=0x0005, t01=0x004c}
0x082a…0834 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x005e}
0x0834…084e Head {h00=0x0016, h01=0x0050, text=»ECBDC EQU -DIS-14 «, t00=0x0005, t01=0x0068}
0x084e…0862 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0005, t01=0x0082}
0x0862…087e Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0005, t01=0x0096}
0x087e…089c Head {h00=0x001a, h01=0x0050, text=»ECBICR EQU ECBDC2-DIS «, t00=0x0005, t01=0x00b2}
0x089c…08a8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0005, t01=0x00d0}
0x08a8…08bc Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0005, t01=0x00dc}
0x08bc…08d8 Head {h00=0x0018, h01=0x0050, text=»ECBICR EQU ECBDC-DIS«, t00=0x0005, t01=0x00f0}
0x08d8…08e4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0005, t01=0x010c}
0x08e4…08fa Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0005, t01=0x0118}
0x08fa…0918 Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0005, t01=0x012e}
0x0918…0934 Head {h00=0x0018, h01=0x0050, text=»ECBPR EQU ECBICW-DIS«, t00=0x0005, t01=0x014c}
0x0934…0940 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0005, t01=0x0168}
0x0940…0956 Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0005, t01=0x0174}
0x0956…0972 Head {h00=0x0018, h01=0x0050, text=»ECBPR EQU ECBICR-DIS«, t00=0x0005, t01=0x018a}
0x0972…097e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x0016}
0x097e…0988 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0022}
0x0988…0992 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x002c}
0x0992…09b8 Head {h00=0x0022, h01=0x0050, text=»* BASE ADDRESS FOR TCA AND ECB«, t00=0x0006, t01=0x0036}
0x09b8…09c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x005c}
0x09c2…09d8 Head {h00=0x0012, h01=0x0050, text=»TCABAS EQU A11«, t00=0x0006, t01=0x0066}
0x09d8…09f2 Head {h00=0x0016, h01=0x0050, text=»CREBAS EQU A13 ECB«, t00=0x0006, t01=0x007c}
0x09f2…09fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0096}
0x09fc…0a26 Head {h00=0x0026, h01=0x0050, text=»* CONFIG DATA 'CB1' REL ADDRESSES «, t00=0x0006, t01=0x00a0}
0x0a26…0a30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ca}
0x0a30…0a56 Head {h00=0x0022, h01=0x0050, text=»NBRKBV EQU 0 NUMBER OF KB/VDUS«, t00=0x0006, t01=0x00d4}
0x0a56…0a80 Head {h00=0x0026, h01=0x0050, text=»NBRGTP EQU NBRKBV+2 NUMBER OF GTPS«, t00=0x0006, t01=0x00fa}
0x0a80…0a8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0124}
0x0a8a…0ac0 Head {h00=0x0032, h01=0x0050, text=»MF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 «, t00=0x0006, t01=0x012e}
0x0ac0…0af6 Head {h00=0x0032, h01=0x0050, text=»MF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 «, t00=0x0006, t01=0x0164}
0x0af6…0b0a Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0007, t01=0x000a}
0x0b0a…0b26 Head {h00=0x0018, h01=0x0050, text=»MF2KBV EQU MF1GTP+16«, t00=0x0007, t01=0x001e}
0x0b26…0b42 Head {h00=0x0018, h01=0x0050, text=»MF2GTP EQU MF2KBV+16«, t00=0x0007, t01=0x003a}
0x0b42…0b4e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x0056}
0x0b4e…0b5c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0062}
0x0b5c…0b66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0070}
0x0b66…0b82 Head {h00=0x0018, h01=0x0050, text=»* TCA REL. ADDRESSES«, t00=0x0007, t01=0x007a}
0x0b82…0b8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0096}
0x0b8c…0ba0 Head {h00=0x0010, h01=0x0050, text=»TCT01 EQU 0 «, t00=0x0007, t01=0x00a0}
0x0ba0…0bbc Head {h00=0x0018, h01=0x0050, text=»PRINTER EQU TCT01+2 «, t00=0x0007, t01=0x00b4}
0x0bbc…0be8 Head {h00=0x0028, h01=0x0050, text=»BVDU EQU PRINTER+2 VDU SCREEN BUFFER«, t00=0x0007, t01=0x00d0}
0x0be8…0c1c Head {h00=0x0030, h01=0x0050, text=»PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY «, t00=0x0007, t01=0x00fc}
0x0c1c…0c4a Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x0007, t01=0x0130}
0x0c4a…0c66 Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x0007, t01=0x015e}
0x0c66…0c90 Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x0007, t01=0x017a}
0x0c90…0cc2 Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x0008, t01=0x0014}
0x0cc2…0cea Head {h00=0x0024, h01=0x0050, text=»LINCNT EQU KBINH+2 LINE COUNTER «, t00=0x0008, t01=0x0046}
0x0cea…0d1e Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH«, t00=0x0008, t01=0x006e}
0x0d1e…0d54 Head {h00=0x0032, h01=0x0050, text=»ICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM «, t00=0x0008, t01=0x00a2}
0x0d54…0d84 Head {h00=0x002c, h01=0x0050, text=»INTATT EQU ICWORK+2 INTENSITY ATTRIBUTE «, t00=0x0008, t01=0x00d8}
0x0d84…0dac Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU INTATT+2 OFFLINE FLAG«, t00=0x0008, t01=0x0108}
0x0dac…0dd8 Head {h00=0x0028, h01=0x0050, text=»COPNO EQU OFFFLG+2 HARDCOPY TASK ID «, t00=0x0008, t01=0x0130}
0x0dd8…0e06 Head {h00=0x002a, h01=0x0050, text=»CCC EQU COPNO+2 COPY COMMAND CHARACTER«, t00=0x0008, t01=0x015c}
0x0e06…0e28 Head {h00=0x001e, h01=0x0050, text=»MAIN EQU CCC+2 MAIN FRAME «, t00=0x0008, t01=0x018a}
0x0e28…0e52 Head {h00=0x0026, h01=0x0050, text=»MODE EQU MAIN+2 INSERT MODE SWITCH«, t00=0x0009, t01=0x001c}
0x0e52…0e7a Head {h00=0x0024, h01=0x0050, text=»KEYS EQU MODE+2 KEY LOCK STATUS «, t00=0x0009, t01=0x0046}
0x0e7a…0eac Head {h00=0x002e, h01=0x0050, text=»ECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC«, t00=0x0009, t01=0x006e}
0x0eac…0ee2 Head {h00=0x0032, h01=0x0050, text=»ECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C «, t00=0x0009, t01=0x00a0}
0x0ee2…0f1a Head {h00=0x0034, h01=0x0050, text=»RDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB«, t00=0x0009, t01=0x00d6}
0x0f1a…0f24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x010e}
0x0f24…0f62 Head {h00=0x003a, h01=0x0050, text=»PRBUSY EQU -2 PRINTER BUSY. OCCUPIES BOOLEAN VARAIBLE «, t00=0x0009, t01=0x0118}
0x0f62…0f70 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0156}
0x0f70…0f78 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0164}
0x0f78…0f82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x016c}
0x0f82…0f8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0176}
0x0f8c…0fba Head {h00=0x002a, h01=0x0050, text=»LBVDU EQU 1920 1920 CHARACTER DISPLAY «, t00=0x0009, t01=0x0180}
0x0fba…0fe0 Head {h00=0x0022, h01=0x0050, text=»LPAGE EQU 48 LINES ON ONE PAGE«, t00=0x000a, t01=0x001e}
0x0fe0…101e Head {h00=0x003a, h01=0x0050, text=»GTPLIN EQU 112 LINELENGTH MAX 112 CHAR. 'NL' ORDER IN «, t00=0x000a, t01=0x0044}
0x101e…104e Head {h00=0x002c, h01=0x0050, text=»* BUFFER DETERMINES PRINT LINE LENGTH «, t00=0x000a, t01=0x0082}
0x104e…1058 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00b2}
0x1058…1060 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00bc}
0x1060…1068 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00c4}
0x1068…1076 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00cc}
0x1076…108a Head {h00=0x0010, h01=0x0050, text=»PRINT EQU * «, t00=0x000a, t01=0x00da}
0x108a…10a0 Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x000a, t01=0x00ee}
0x10a0…10ca Head {h00=0x0026, h01=0x0050, text=» LDR TCABAS,A9 LOAD ASSEM TCA BASE«, t00=0x000a, t01=0x0104}
0x10ca…10ee Head {h00=0x0020, h01=0x0050, text=» LDR* A4,TCABAS REL TASK NO «, t00=0x000a, t01=0x012e}
0x10ee…1114 Head {h00=0x0022, h01=0x0050, text=» AD A4,6,CREBAS 'CB1' ADDRESS «, t00=0x000a, t01=0x0152}
0x1114…111c Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0178}
0x111c…1156 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000a, t01=0x0180}
0x1156…1160 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x002a}
0x1160…1190 Head {h00=0x002c, h01=0x0050, text=»* TRANSFER PARAMETER FOR MAIN-FRAME #1«, t00=0x000b, t01=0x0034}
0x1190…119a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0064}
0x119a…11d4 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000b, t01=0x006e}
0x11d4…11dc Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00a8}
0x11dc…11f6 Head {h00=0x0016, h01=0x0050, text=» LC A1,MF1GTP-1,A4«, t00=0x000b, t01=0x00b0}
0x11f6…120a Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x000b, t01=0x00ca}
0x120a…1220 Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x000b, t01=0x00de}
0x1220…1236 Head {h00=0x0012, h01=0x0050, text=» CF A14,EMULA «, t00=0x000b, t01=0x00f4}
0x1236…124a Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000b, t01=0x010a}
0x124a…1284 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000b, t01=0x011e}
0x1284…128e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0158}
0x128e…12be Head {h00=0x002c, h01=0x0050, text=»* TRANSFER PARAMETER FOR MAIN-FRAME #2«, t00=0x000b, t01=0x0162}
0x12be…12c8 (12, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0004}
0x12c8…1302 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000c, t01=0x000e}
0x1302…130a Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0048}
0x130a…1324 Head {h00=0x0016, h01=0x0050, text=» LC A1,MF2GTP-1,A4«, t00=0x000c, t01=0x0050}
0x1324…1338 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x000c, t01=0x006a}
0x1338…1350 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x000c, t01=0x007e}
0x1350…1378 Head {h00=0x0024, h01=0x0050, text=» CF A14,EMULA TRANSFER PARAMETER«, t00=0x000c, t01=0x0096}
0x1378…1384 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x00be}
0x1384…1392 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x00ca}
0x1392…139c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00d8}
0x139c…13bc Head {h00=0x001c, h01=0x0050, text=»* RELATIVE POS IN ECBBLK«, t00=0x000c, t01=0x00e2}
0x13bc…13ce Head {h00=0x000e, h01=0x0050, text=»ICR EQU 2 «, t00=0x000c, t01=0x0102}
0x13ce…13e0 Head {h00=0x000e, h01=0x0050, text=»DC1 EQU 4 «, t00=0x000c, t01=0x0114}
0x13e0…13f2 Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x000c, t01=0x0126}
0x13f2…13fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0138}
0x13fc…1410 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x000c, t01=0x0142}
0x1410…1422 Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x000c, t01=0x0156}
0x1422…142e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0168}
0x142e…1442 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000c, t01=0x0174}
0x1442…1454 Head {h00=0x000e, h01=0x0050, text=» LDK A1,3 «, t00=0x000c, t01=0x0188}
0x1454…1460 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x000a}
0x1460…147c Head {h00=0x0018, h01=0x0050, text=» ST A1,ECBBLK,TCABAS«, t00=0x000d, t01=0x0016}
0x147c…1490 Head {h00=0x0010, h01=0x0050, text=»PRI100 EQU *«, t00=0x000d, t01=0x0032}
0x1490…14aa Head {h00=0x0016, h01=0x0050, text=» CM ICWORK,TCABAS «, t00=0x000d, t01=0x0046}
0x14aa…14ca Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC1,TCABAS«, t00=0x000d, t01=0x0060}
0x14ca…14e8 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) PRI110 PENDING«, t00=0x000d, t01=0x0080}
0x14e8…151c Head {h00=0x0030, h01=0x0050, text=» CF A14,DC1INQ TEST IF ANY MESSAGE, NO WAIT «, t00=0x000d, t01=0x009e}
0x151c…1530 Head {h00=0x0010, h01=0x0050, text=»PRI110 EQU *«, t00=0x000d, t01=0x00d2}
0x1530…1544 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000d, t01=0x00e6}
0x1544…1564 Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC2,TCABAS«, t00=0x000d, t01=0x00fa}
0x1564…1582 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) PRI120 PENDING«, t00=0x000d, t01=0x011a}
0x1582…15bc Head {h00=0x0036, h01=0x0050, text=» CF A14,DC2INQ TEST IF ANY MESSAGE MF # 2, NO WAIT«, t00=0x000d, t01=0x0138}
0x15bc…15c8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0172}
0x15c8…15dc Head {h00=0x0010, h01=0x0050, text=»PRI120 EQU *«, t00=0x000d, t01=0x017e}
0x15dc…15fc (14, 0, 400) Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+ICR,TCABAS«, t00=0x000e, t01=0x0004}
0x15fc…161a Head {h00=0x001a, h01=0x0050, text=» RF(NZ) PRI150 PENDING«, t00=0x000e, t01=0x0024}
0x161a…163c Head {h00=0x001e, h01=0x0050, text=» LDKL A6,LBVDU REQ LENGTH «, t00=0x000e, t01=0x0042}
0x163c…1658 Head {h00=0x0018, h01=0x0050, text=» LDKL A3,BVDU BUFFER«, t00=0x000e, t01=0x0064}
0x1658…1678 Head {h00=0x001c, h01=0x0050, text=» ADR A3,TCABAS ADDRESS«, t00=0x000e, t01=0x0080}
0x1678…16a6 Head {h00=0x002a, h01=0x0050, text=» CF A14,ICREAD READ INTERTASK NO WAIT «, t00=0x000e, t01=0x00a0}
0x16a6…16c6 Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+ICR,TCABAS«, t00=0x000e, t01=0x00ce}
0x16c6…16da Head {h00=0x0010, h01=0x0050, text=»PRI150 EQU *«, t00=0x000e, t01=0x00ee}
0x16da…16f2 Head {h00=0x0014, h01=0x0050, text=» LDKL A7,ECBBLK «, t00=0x000e, t01=0x0102}
0x16f2…1708 Head {h00=0x0012, h01=0x0050, text=» ADR A7,TCABAS«, t00=0x000e, t01=0x011a}
0x1708…1714 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x000e, t01=0x0130}
0x1714…1732 Head {h00=0x001a, h01=0x0050, text=» DATA 7 MULTIPLE WAIT «, t00=0x000e, t01=0x013c}
0x1732…1752 Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+ICR,TCABAS«, t00=0x000e, t01=0x015a}
0x1752…177c Head {h00=0x0026, h01=0x0050, text=» RF(E) ICRINP INPUT FROM INTERTASK«, t00=0x000e, t01=0x017a}
0x177c…17ba Head {h00=0x003a, h01=0x0050, text=» ST A8,ECBDCC,TCABAS SAVE ECB ADDRESS FOR CURRENT READ«, t00=0x000f, t01=0x0014}
0x17ba…17de Head {h00=0x0020, h01=0x0050, text=» CF A14,DCINP INPUT FROM DC «, t00=0x000f, t01=0x0052}
0x17de…17f0 Head {h00=0x000e, h01=0x0050, text=» RB PRI100«, t00=0x000f, t01=0x0076}
0x17f0…17fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0088}
0x17fe…1808 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0096}
0x1808…1828 Head {h00=0x001c, h01=0x0050, text=»* READ INTERTASK, NOWAIT«, t00=0x000f, t01=0x00a0}
0x1828…1832 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00c0}
0x1832…1850 Head {h00=0x001a, h01=0x0050, text=»* A3 = BUFFER ADDRESS «, t00=0x000f, t01=0x00ca}
0x1850…186a Head {h00=0x0016, h01=0x0050, text=»* A6 = REQ LENGTH «, t00=0x000f, t01=0x00e8}
0x186a…1874 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0102}
0x1874…1888 Head {h00=0x0010, h01=0x0050, text=»ICREAD EQU *«, t00=0x000f, t01=0x010c}
0x1888…18a0 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICR «, t00=0x000f, t01=0x0120}
0x18a0…18b6 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x000f, t01=0x0138}
0x18b6…18ca Head {h00=0x0010, h01=0x0050, text=» LDKL A1,-1 «, t00=0x000f, t01=0x014e}
0x18ca…18e0 Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x000f, t01=0x0162}
0x18e0…1902 Head {h00=0x001e, h01=0x0050, text=» ST A6,ECBRL,A8 REQ LENGTH«, t00=0x000f, t01=0x0178}
0x1902…191a Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBBA,A8 «, t00=0x0010, t01=0x000a}
0x191a…1948 Head {h00=0x002a, h01=0x0050, text=» LDK A7,2 READ NOT ADDRESSED, NO WAIT «, t00=0x0010, t01=0x0022}
0x1948…1954 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0010, t01=0x0050}
0x1954…1964 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0010, t01=0x005c}
0x1964…1974 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0010, t01=0x006c}
0x1974…1982 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x007c}
0x1982…19ca Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0010, t01=0x008a}
0x19ca…19d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00d2}
0x19d4…19ec Head {h00=0x0014, h01=0x0050, text=»* INPUT FROM DC «, t00=0x0010, t01=0x00dc}
0x19ec…19f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00f4}
0x19f6…1a32 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0010, t01=0x00fe}
0x1a32…1a3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x013a}
0x1a3c…1a50 Head {h00=0x0010, h01=0x0050, text=»DCINP EQU * «, t00=0x0010, t01=0x0144}
0x1a50…1a7c Head {h00=0x0028, h01=0x0050, text=» CF A14,ICABOR ABORT INTERTASK READ «, t00=0x0010, t01=0x0158}
0x1a7c…1a8e Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x0010, t01=0x0184}
0x1a8e…1ab2 Head {h00=0x0020, h01=0x0050, text=» RF(Z) DCIN10 NOT COMPLETED «, t00=0x0011, t01=0x0008}
0x1ab2…1ad4 Head {h00=0x001e, h01=0x0050, text=» IM ICWORK,TCABAS SET FLAG«, t00=0x0011, t01=0x002c}
0x1ad4…1b04 Head {h00=0x002c, h01=0x0050, text=» RF ICRINP TAKE CARE OF INTERTASK INPUT «, t00=0x0011, t01=0x004e}
0x1b04…1b36 Head {h00=0x002e, h01=0x0050, text=» OR BUFFER WILL BE DESTROYED IN 'UPDATE'«, t00=0x0011, t01=0x007e}
0x1b36…1b4a Head {h00=0x0010, h01=0x0050, text=»DCIN10 EQU *«, t00=0x0011, t01=0x00b0}
0x1b4a…1b74 Head {h00=0x0026, h01=0x0050, text=» CF A14,GTRBUF GET RECEIVE BUFFER «, t00=0x0011, t01=0x00c4}
0x1b74…1b90 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0011, t01=0x00ee}
0x1b90…1bb4 Head {h00=0x0020, h01=0x0050, text=» CF A14,DCGETM READ MESSAGE «, t00=0x0011, t01=0x010a}
0x1bb4…1bc8 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0011, t01=0x012e}
0x1bc8…1be6 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x0011, t01=0x0142}
0x1be6…1bf2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0160}
0x1bf2…1c06 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0011, t01=0x016c}
0x1c06…1c26 Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+DC2,TCABAS«, t00=0x0011, t01=0x0180}
0x1c26…1c42 Head {h00=0x0018, h01=0x0050, text=» RF(E) DCIN20 MF # 2«, t00=0x0012, t01=0x0010}
0x1c42…1c60 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x0012, t01=0x002c}
0x1c60…1c72 Head {h00=0x000e, h01=0x0050, text=» RF DCIN30«, t00=0x0012, t01=0x004a}
0x1c72…1c86 Head {h00=0x0010, h01=0x0050, text=»DCIN20 EQU *«, t00=0x0012, t01=0x005c}
0x1c86…1ca4 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC2,TCABAS «, t00=0x0012, t01=0x0070}
0x1ca4…1cb0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x008e}
0x1cb0…1cc4 Head {h00=0x0010, h01=0x0050, text=»DCIN30 EQU *«, t00=0x0012, t01=0x009a}
0x1cc4…1cec Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBEL,A8 EFFECTIVE LENGTH«, t00=0x0012, t01=0x00ae}
0x1cec…1d1e Head {h00=0x002e, h01=0x0050, text=» ST A1,DCLENG,TCABAS SAVE IT IN SAVE AREA «, t00=0x0012, t01=0x00d6}
0x1d1e…1d26 Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x0108}
0x1d26…1d5c Head {h00=0x0032, h01=0x0050, text=» CF A14,UPDATE MOVE FROM DC TO PRINTER BUFFER;«, t00=0x0012, t01=0x0110}
0x1d5c…1d72 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0012, t01=0x0146}
0x1d72…1d8e Head {h00=0x0018, h01=0x0050, text=» LD A1,ICWORK,TCABAS«, t00=0x0012, t01=0x015c}
0x1d8e…1db2 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DCIN90 COPY COMMAND «, t00=0x0012, t01=0x0178}
0x1db2…1dbe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x000c}
0x1dbe…1df0 Head {h00=0x002e, h01=0x0050, text=» LD A1,WCC,TCABAS WRITE CONTROL CHARACTER «, t00=0x0013, t01=0x0018}
0x1df0…1e12 Head {h00=0x001e, h01=0x0050, text=» ST A1,CCC,TCABAS COPY IT «, t00=0x0013, t01=0x004a}
0x1e12…1e36 Head {h00=0x0020, h01=0x0050, text=» CF A14,COPY COPY ON PRINTER«, t00=0x0013, t01=0x006c}
0x1e36…1e4a Head {h00=0x0010, h01=0x0050, text=»DCIN90 EQU *«, t00=0x0013, t01=0x0090}
0x1e4a…1e60 Head {h00=0x0012, h01=0x0050, text=» CF A14,SNBUSY«, t00=0x0013, t01=0x00a4}
0x1e60…1e70 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0013, t01=0x00ba}
0x1e70…1e7e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x00ca}
0x1e7e…1e88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00d8}
0x1e88…1ea6 Head {h00=0x001a, h01=0x0050, text=»* ABORT INTERTASK READ«, t00=0x0013, t01=0x00e2}
0x1ea6…1eb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0100}
0x1eb0…1ec4 Head {h00=0x0010, h01=0x0050, text=»ICABOR EQU *«, t00=0x0013, t01=0x010a}
0x1ec4…1ed6 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0013, t01=0x011e}
0x1ed6…1ef4 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+ICR,TCABAS «, t00=0x0013, t01=0x0130}
0x1ef4…1f0c Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICR «, t00=0x0013, t01=0x014e}
0x1f0c…1f22 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0013, t01=0x0166}
0x1f22…1f2e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0013, t01=0x017c}
0x1f2e…1f3e Head {h00=0x000c, h01=0x0050, text=» DATA 10«, t00=0x0013, t01=0x0188}
0x1f3e…1f4e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0014, t01=0x0008}
0x1f4e…1f5c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0018}
0x1f5c…1f66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0026}
0x1f66…1f84 Head {h00=0x001a, h01=0x0050, text=»* INPUT FROM INTERTASK«, t00=0x0014, t01=0x0030}
0x1f84…1f8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x004e}
0x1f8e…1fa2 Head {h00=0x0010, h01=0x0050, text=»ICRINP EQU *«, t00=0x0014, t01=0x0058}
0x1fa2…1fc0 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+ICR,TCABAS «, t00=0x0014, t01=0x006c}
0x1fc0…1fc8 Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x008a}
0x1fc8…1ff6 Head {h00=0x002a, h01=0x0050, text=» LDK A1,X'38' PRINT BIT, 80 CHAR./LINE«, t00=0x0014, t01=0x0092}
0x1ff6…202e Head {h00=0x0034, h01=0x0050, text=» ST A1,CCC,TCABAS SAVE AS COPY CONTROL CHARACTER«, t00=0x0014, t01=0x00c0}
0x202e…205c Head {h00=0x002a, h01=0x0050, text=» CF A14,COPY PRINT ON HARDCOPY DEVICE «, t00=0x0014, t01=0x00f8}
0x205c…2078 Head {h00=0x0018, h01=0x0050, text=» LD A1,ICWORK,TCABAS«, t00=0x0014, t01=0x0126}
0x2078…20a4 Head {h00=0x0028, h01=0x0050, text=» RB(NZ) DCIN10 TAKE CARE OF DC INPUT«, t00=0x0014, t01=0x0142}
0x20a4…20b6 Head {h00=0x000e, h01=0x0050, text=» RB PRI100«, t00=0x0014, t01=0x016e}
0x20b6…20c4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0180}
0x20c4…20ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x018e}
0x20ce…20d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0008}
0x20d8…210a Head {h00=0x002e, h01=0x0050, text=»* PRINT THE CONTENTS OF THE PRINTER BUFFER«, t00=0x0015, t01=0x0012}
0x210a…2114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0044}
0x2114…211e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x004e}
0x211e…2160 Head {h00=0x003e, h01=0x0050, text=»LINLEN DATA /0028,/4050 LINE LENGTHS /40, 64 AND 80 CHARS «, t00=0x0015, t01=0x0058}
0x2160…216a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x009a}
0x216a…2174 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00a4}
0x2174…218e Head {h00=0x0016, h01=0x0050, text=»COPY LDKL A8,ECBPR«, t00=0x0015, t01=0x00ae}
0x218e…21b0 Head {h00=0x001e, h01=0x0050, text=» ADR A8,CREBAS PRINTER ECB«, t00=0x0015, t01=0x00c8}
0x21b0…21c8 Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBBA,A8 «, t00=0x0015, t01=0x00ea}
0x21c8…21de Head {h00=0x0012, h01=0x0050, text=» SUR A3,A3 =1«, t00=0x0015, t01=0x0102}
0x21de…21f6 Head {h00=0x0014, h01=0x0050, text=» SC A3,0,A7 =1 «, t00=0x0015, t01=0x0118}
0x21f6…220e Head {h00=0x0014, h01=0x0050, text=» SC A3,1,A7 =1 «, t00=0x0015, t01=0x0130}
0x220e…2234 Head {h00=0x0022, h01=0x0050, text=» ADK A7,2 PRINt BUFFER ADDRESS«, t00=0x0015, t01=0x0148}
0x2234…225a Head {h00=0x0022, h01=0x0050, text=» SUR A9,A9 RESET BUFFER INDEX «, t00=0x0015, t01=0x016e}
0x225a…2270 (22, 0, 400) Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0016, t01=0x0004}
0x2270…2286 Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0016, t01=0x001a}
0x2286…22ac Head {h00=0x0022, h01=0x0050, text=» LD A2,CCC,TCABAS GET CCC/CCC «, t00=0x0016, t01=0x0030}
0x22ac…22c0 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/08 «, t00=0x0016, t01=0x0056}
0x22c0…22ec Head {h00=0x0028, h01=0x0050, text=» RF(NZ) COP100 START PRINTER BIT SET«, t00=0x0016, t01=0x006a}
0x22ec…2302 Head {h00=0x0012, h01=0x0050, text=»COPRTN RTN A14«, t00=0x0016, t01=0x0096}
0x2302…2316 Head {h00=0x0010, h01=0x0050, text=»COP100 EQU *«, t00=0x0016, t01=0x00ac}
0x2316…2330 Head {h00=0x0016, h01=0x0050, text=» LD A2,CCC,TCABAS «, t00=0x0016, t01=0x00c0}
0x2330…2344 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/30 «, t00=0x0016, t01=0x00da}
0x2344…2374 Head {h00=0x002c, h01=0x0050, text=» ABL(Z) COP111 NL DETERMINES LINE LENGTH«, t00=0x0016, t01=0x00ee}
0x2374…2386 Head {h00=0x000e, h01=0x0050, text=» SRL A2,4 «, t00=0x0016, t01=0x011e}
0x2386…2398 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0016, t01=0x0130}
0x2398…23c0 Head {h00=0x0024, h01=0x0050, text=» LC A6,LINLEN,A2 GET LINE LENGTH«, t00=0x0016, t01=0x0142}
0x23c0…23d8 Head {h00=0x0014, h01=0x0050, text=»COP110 CWR A9,A6«, t00=0x0016, t01=0x016a}
0x23d8…23ee Head {h00=0x0012, h01=0x0050, text=» RF(L) COP120 «, t00=0x0016, t01=0x0182}
0x23ee…241e Head {h00=0x002c, h01=0x0050, text=»COP115 CF A14,PRLINE LINE FULL: PRINT IT«, t00=0x0017, t01=0x0008}
0x241e…2430 Head {h00=0x000e, h01=0x0050, text=» RB COP110«, t00=0x0017, t01=0x0038}
0x2430…244c Head {h00=0x0018, h01=0x0050, text=»COP120 CWK A3,LBVDU «, t00=0x0017, t01=0x004a}
0x244c…2474 Head {h00=0x0024, h01=0x0050, text=» ABL(NL) COP300 PRINT LAST LINE «, t00=0x0017, t01=0x0066}
0x2474…2486 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0017, t01=0x008e}
0x2486…24ac Head {h00=0x0022, h01=0x0050, text=» ANK A2,/7F RESET DISPLAY BIT «, t00=0x0017, t01=0x00a0}
0x24ac…24be Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x0017, t01=0x00c6}
0x24be…24d2 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0017, t01=0x00d8}
0x24d2…24e8 Head {h00=0x0012, h01=0x0050, text=» RF(NL) COP130«, t00=0x0017, t01=0x00ec}
0x24e8…24fc Head {h00=0x0010, h01=0x0050, text=»COP123 EQU *«, t00=0x0017, t01=0x0102}
0x24fc…250e Head {h00=0x000e, h01=0x0050, text=» ANK A2,6 «, t00=0x0017, t01=0x0116}
0x250e…2520 Head {h00=0x000e, h01=0x0050, text=» XRK A2,6 «, t00=0x0017, t01=0x0128}
0x2520…2536 Head {h00=0x0012, h01=0x0050, text=» RF(Z) COP150 «, t00=0x0017, t01=0x013a}
0x2536…2566 Head {h00=0x002c, h01=0x0050, text=»COP125 LDK A2,/20 REPLACE ATTR BY SPACE «, t00=0x0017, t01=0x0150}
0x2566…2578 Head {h00=0x000e, h01=0x0050, text=» RF COP140«, t00=0x0017, t01=0x0180}
0x2578…2592 (24, 0, 400) Head {h00=0x0016, h01=0x0050, text=»COP130 CWK A2,NULL«, t00=0x0018, t01=0x0004}
0x2592…25be Head {h00=0x0028, h01=0x0050, text=» RB(E) COP125 REPLACE NULL BY SPACE «, t00=0x0018, t01=0x001e}
0x25be…25d2 Head {h00=0x0010, h01=0x0050, text=»COP140 EQU *«, t00=0x0018, t01=0x004a}
0x25d2…25e6 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7D «, t00=0x0018, t01=0x005e}
0x25e6…25fc Head {h00=0x0012, h01=0x0050, text=» RF(NE) COP141«, t00=0x0018, t01=0x0072}
0x25fc…2610 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/39 «, t00=0x0018, t01=0x0088}
0x2610…262a Head {h00=0x0016, h01=0x0050, text=»COP141 CWK A2,/7E «, t00=0x0018, t01=0x009c}
0x262a…2640 Head {h00=0x0012, h01=0x0050, text=» RF(NE) COP142«, t00=0x0018, t01=0x00b6}
0x2640…2654 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/35 «, t00=0x0018, t01=0x00cc}
0x2654…2668 Head {h00=0x0010, h01=0x0050, text=»COP142 EQU *«, t00=0x0018, t01=0x00e0}
0x2668…268a Head {h00=0x001e, h01=0x0050, text=» CF A14,RFMDUP FM OR DUP ?«, t00=0x0018, t01=0x00f4}
0x268a…26bc Head {h00=0x002e, h01=0x0050, text=»COP143 CWK A2,/61 LOWER CASE CHARACTER ?? «, t00=0x0018, t01=0x0116}
0x26bc…26d6 Head {h00=0x0016, h01=0x0050, text=» RF(L) COP144 NO!!«, t00=0x0018, t01=0x0148}
0x26d6…26ea Head {h00=0x0010, h01=0x0050, text=» SUK A2,/20 «, t00=0x0018, t01=0x0162}
0x26ea…2702 Head {h00=0x0014, h01=0x0050, text=»COP144 SCR A2,A7«, t00=0x0018, t01=0x0176}
0x2702…2714 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0018, t01=0x018e}
0x2714…2726 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0019, t01=0x0010}
0x2726…2738 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0019, t01=0x0022}
0x2738…274a Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0019, t01=0x0034}
0x274a…275c Head {h00=0x000e, h01=0x0050, text=» RB COP110«, t00=0x0019, t01=0x0046}
0x275c…278c Head {h00=0x002c, h01=0x0050, text=»COP150 LDK A2,/20 SPACE INSTEAD OF TEXT «, t00=0x0019, t01=0x0058}
0x278c…279e Head {h00=0x000e, h01=0x0050, text=» SCR A2,A7«, t00=0x0019, t01=0x0088}
0x279e…27b0 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0019, t01=0x009a}
0x27b0…27c2 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0019, t01=0x00ac}
0x27c2…27d4 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0019, t01=0x00be}
0x27d4…27e6 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0019, t01=0x00d0}
0x27e6…27f8 Head {h00=0x000e, h01=0x0050, text=» CWR A9,A6«, t00=0x0019, t01=0x00e2}
0x27f8…280e Head {h00=0x0012, h01=0x0050, text=» RF(L) COP160 «, t00=0x0019, t01=0x00f4}
0x280e…283a Head {h00=0x0028, h01=0x0050, text=» CF A14,PRLINE LINE FULL : PRINT IT «, t00=0x0019, t01=0x010a}
0x283a…2852 Head {h00=0x0014, h01=0x0050, text=»COP160 LCR A2,A4«, t00=0x0019, t01=0x0136}
0x2852…2866 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0019, t01=0x014e}
0x2866…287a Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0019, t01=0x0162}
0x287a…289a Head {h00=0x001c, h01=0x0050, text=» RB(L) COP123 ATTRIBUTE «, t00=0x0019, t01=0x0176}
0x289a…28c6 Head {h00=0x0028, h01=0x0050, text=» RB COP150 STILL IN PROTECTED FIELD «, t00=0x001a, t01=0x0008}
0x28c6…28d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0034}
0x28d0…28da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x003e}
0x28da…290a Head {h00=0x002c, h01=0x0050, text=»* LINE LENGTH AS DEFINED BY NL CHARACTER«, t00=0x001a, t01=0x0048}
0x290a…2914 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0078}
0x2914…291e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0082}
0x291e…2958 Head {h00=0x0036, h01=0x0050, text=»* THE FIRST INSTR. ORIGINALLY HAD LABEL 'COP200'. «, t00=0x001a, t01=0x008c}
0x2958…2962 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00c6}
0x2962…296c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00d0}
0x296c…2980 Head {h00=0x0010, h01=0x0050, text=»COP111 EQU *«, t00=0x001a, t01=0x00da}
0x2980…2996 Head {h00=0x0012, h01=0x0050, text=» CWK A9,GTPLIN«, t00=0x001a, t01=0x00ee}
0x2996…299e Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x0104}
0x299e…29c4 Head {h00=0x0022, h01=0x0050, text=» RF(L) COP220 BUFFER NOT FULL «, t00=0x001a, t01=0x010c}
0x29c4…29ec Head {h00=0x0024, h01=0x0050, text=»COP210 CF A14,PRLINE PRINT LINE «, t00=0x001a, t01=0x0132}
0x29ec…2a00 Head {h00=0x0010, h01=0x0050, text=» ABL COP111 «, t00=0x001a, t01=0x015a}
0x2a00…2a1c Head {h00=0x0018, h01=0x0050, text=»COP220 CWK A3,LBVDU «, t00=0x001a, t01=0x016e}
0x2a1c…2a42 Head {h00=0x0022, h01=0x0050, text=» RF(NL) COP300 PRINT LAST LINE«, t00=0x001a, t01=0x018a}
0x2a42…2a54 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x001b, t01=0x0020}
0x2a54…2a68 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x001b, t01=0x0032}
0x2a68…2a8c Head {h00=0x0020, h01=0x0050, text=» SCR A2,A4 RESET DISPLAY BIT«, t00=0x001b, t01=0x0046}
0x2a8c…2aa0 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x001b, t01=0x006a}
0x2aa0…2ab6 Head {h00=0x0012, h01=0x0050, text=» RF(NL) COP230«, t00=0x001b, t01=0x007e}
0x2ab6…2ae2 Head {h00=0x0028, h01=0x0050, text=»COP223 ANK A2,/6 ATTRIBUTE CHARACTER«, t00=0x001b, t01=0x0094}
0x2ae2…2af4 Head {h00=0x000e, h01=0x0050, text=» XRK A2,6 «, t00=0x001b, t01=0x00c0}
0x2af4…2b1a Head {h00=0x0022, h01=0x0050, text=» RF(Z) COP250 PROTECTED FIELD «, t00=0x001b, t01=0x00d2}
0x2b1a…2b4e Head {h00=0x0030, h01=0x0050, text=»COP225 LDK A2,/20 REPLACE ATTRIBUTE BY SPACE«, t00=0x001b, t01=0x00f8}
0x2b4e…2b60 Head {h00=0x000e, h01=0x0050, text=» RF COP240«, t00=0x001b, t01=0x012c}
0x2b60…2b7a Head {h00=0x0016, h01=0x0050, text=»COP230 CWK A2,NULL«, t00=0x001b, t01=0x013e}
0x2b7a…2baa Head {h00=0x002c, h01=0x0050, text=» RB(E) COP225 NULL IS REPLACED BY SPACE «, t00=0x001b, t01=0x0158}
0x2baa…2bbe Head {h00=0x0010, h01=0x0050, text=»COP240 EQU *«, t00=0x001b, t01=0x0188}
0x2bbe…2bd2 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7B «, t00=0x001c, t01=0x000c}
0x2bd2…2be8 Head {h00=0x0012, h01=0x0050, text=» RF(NE) COP241«, t00=0x001c, t01=0x0020}
0x2be8…2bfc Head {h00=0x0010, h01=0x0050, text=» LDK A2,/2A «, t00=0x001c, t01=0x0036}
0x2bfc…2c14 Head {h00=0x0014, h01=0x0050, text=»COP241 SCR A2,A7«, t00=0x001c, t01=0x004a}
0x2c14…2c26 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001c, t01=0x0062}
0x2c26…2c38 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x001c, t01=0x0074}
0x2c38…2c4a Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x001c, t01=0x0086}
0x2c4a…2c60 Head {h00=0x0012, h01=0x0050, text=» CWK A2,NEWLIN«, t00=0x001c, t01=0x0098}
0x2c60…2c8a Head {h00=0x0026, h01=0x0050, text=» RB(E) COP210 NL CHAR: PRINT LINE «, t00=0x001c, t01=0x00ae}
0x2c8a…2ca0 Head {h00=0x0012, h01=0x0050, text=» CWK A2,ENDMES«, t00=0x001c, t01=0x00d8}
0x2ca0…2cd2 Head {h00=0x002e, h01=0x0050, text=» RF(E) COP300 UND MESSAGE: PRINT LAST LINE«, t00=0x001c, t01=0x00ee}
0x2cd2…2ce4 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x001c, t01=0x0120}
0x2ce4…2cf8 Head {h00=0x0010, h01=0x0050, text=» ABL COP111 «, t00=0x001c, t01=0x0132}
0x2cf8…2d28 Head {h00=0x002c, h01=0x0050, text=»COP250 LDK A2,/20 REPLACE TEXT BY SPACE «, t00=0x001c, t01=0x0146}
0x2d28…2d3a Head {h00=0x000e, h01=0x0050, text=» SCR A2,A7«, t00=0x001c, t01=0x0176}
0x2d3a…2d4c Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001c, t01=0x0188}
0x2d4c…2d5e Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x001d, t01=0x000a}
0x2d5e…2d70 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x001d, t01=0x001c}
0x2d70…2d82 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x001d, t01=0x002e}
0x2d82…2d94 Head {h00=0x000e, h01=0x0050, text=» CWR A9,A6«, t00=0x001d, t01=0x0040}
0x2d94…2daa Head {h00=0x0012, h01=0x0050, text=» RF(L) COP260 «, t00=0x001d, t01=0x0052}
0x2daa…2dd6 Head {h00=0x0028, h01=0x0050, text=» CF A14,PRLINE LINE FULL : PRINT IT «, t00=0x001d, t01=0x0068}
0x2dd6…2dee Head {h00=0x0014, h01=0x0050, text=»COP260 LCR A2,A4«, t00=0x001d, t01=0x0094}
0x2dee…2e02 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x001d, t01=0x00ac}
0x2e02…2e16 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x001d, t01=0x00c0}
0x2e16…2e3c Head {h00=0x0022, h01=0x0050, text=» RB(L) COP223 ATTRIBUTE FOUND «, t00=0x001d, t01=0x00d4}
0x2e3c…2e68 Head {h00=0x0028, h01=0x0050, text=» RB COP250 STILL IN PROTECTED FIELD «, t00=0x001d, t01=0x00fa}
0x2e68…2e80 Head {h00=0x0014, h01=0x0050, text=»COP300 LDR A9,A9«, t00=0x001d, t01=0x0126}
0x2e80…2ea2 Head {h00=0x001e, h01=0x0050, text=» ABL(Z) COPRTN ALL PRINTED«, t00=0x001d, t01=0x013e}
0x2ea2…2ec8 Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE PRINT LAST LINE«, t00=0x001d, t01=0x0160}
0x2ec8…2edc Head {h00=0x0010, h01=0x0050, text=» ABL COPRTN «, t00=0x001d, t01=0x0186}
0x2edc…2eea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x000a}
0x2eea…2ef4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0018}
0x2ef4…2efe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0022}
0x2efe…2f22 Head {h00=0x0020, h01=0x0050, text=»* PRINT ONE LINE ON PRINTER «, t00=0x001e, t01=0x002c}
0x2f22…2f2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0050}
0x2f2c…2f58 Head {h00=0x0028, h01=0x0050, text=»* A9=NUMBER OF CHAR IN PRINT BUFFER «, t00=0x001e, t01=0x005a}
0x2f58…2f62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0086}
0x2f62…2f6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0090}
0x2f6c…2fa4 Head {h00=0x0034, h01=0x0050, text=»PRLINE IM LINCNT,TCABAS COUNT NBR OF PRINTLINES «, t00=0x001e, t01=0x009a}
0x2fa4…2fca Head {h00=0x0022, h01=0x0050, text=» RF(N) PRL100 NOT END OF PAGE «, t00=0x001e, t01=0x00d2}
0x2fca…2fec Head {h00=0x001e, h01=0x0050, text=» LDK A7,LPAGE END OF PAGE «, t00=0x001e, t01=0x00f8}
0x2fec…2ffe Head {h00=0x000e, h01=0x0050, text=» NGR A7,A7«, t00=0x001e, t01=0x011a}
0x2ffe…302e Head {h00=0x002c, h01=0x0050, text=» ST A7,LINCNT,TCABAS RESET LINE COUNTER «, t00=0x001e, t01=0x012c}
0x302e…304c Head {h00=0x001a, h01=0x0050, text=»PRL100 LD A7,ECBBA,A8 «, t00=0x001e, t01=0x015c}
0x304c…3078 Head {h00=0x0028, h01=0x0050, text=» LC A2,2,A7 GET FIRST CHAR IN BUFFER«, t00=0x001e, t01=0x017a}
0x3078…308c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x001f, t01=0x0016}
0x308c…30a2 Head {h00=0x0012, h01=0x0050, text=» CWK A2,FORMFD«, t00=0x001f, t01=0x002a}
0x30a2…30c6 Head {h00=0x0020, h01=0x0050, text=» RF(NE) PRL200 NOT FORM FEED«, t00=0x001f, t01=0x0040}
0x30c6…30da Head {h00=0x0010, h01=0x0050, text=» LDK A2,/20 «, t00=0x001f, t01=0x0064}
0x30da…3102 Head {h00=0x0024, h01=0x0050, text=» SC A2,2,A7 REPLACE LF BY SPACE «, t00=0x001f, t01=0x0078}
0x3102…310a Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x00a0}
0x310a…311e Head {h00=0x0010, h01=0x0050, text=»PRL110 EQU *«, t00=0x001f, t01=0x00a8}
0x311e…3144 Head {h00=0x0022, h01=0x0050, text=» LD A1,LINCNT,TCABAS FORM FEED«, t00=0x001f, t01=0x00bc}
0x3144…3156 Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x001f, t01=0x00e2}
0x3156…318e Head {h00=0x0034, h01=0x0050, text=» ST A7,ECBRL,A8 SET REQ LENGTH TO 2 FOR NEW LINE«, t00=0x001f, t01=0x00f4}
0x318e…31b2 Head {h00=0x0020, h01=0x0050, text=»PRL120 LDK A7,/86 STD WRITE «, t00=0x001f, t01=0x012c}
0x31b2…31be Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001f, t01=0x0150}
0x31be…31ce Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001f, t01=0x015c}
0x31ce…31ec Head {h00=0x001a, h01=0x0050, text=» ADK A1,1 COUNT LINES «, t00=0x001f, t01=0x016c}
0x31ec…3202 Head {h00=0x0012, h01=0x0050, text=» RB(N) PRL120 «, t00=0x001f, t01=0x018a}
0x3202…3218 Head {h00=0x0012, h01=0x0050, text=» LDK A7,LPAGE «, t00=0x0020, t01=0x0010}
0x3218…322a Head {h00=0x000e, h01=0x0050, text=» NGR A7,A7«, t00=0x0020, t01=0x0026}
0x322a…325a Head {h00=0x002c, h01=0x0050, text=» ST A7,LINCNT,TCABAS RESET LINE COUNTER «, t00=0x0020, t01=0x0038}
0x325a…328e Head {h00=0x0030, h01=0x0050, text=»PRL200 ADKL A9,2 ADJUST LENGTH FOR BUFFER CW«, t00=0x0020, t01=0x0068}
0x328e…32b0 Head {h00=0x001e, h01=0x0050, text=» ST A9,ECBRL,A8 REQ LENGTH«, t00=0x0020, t01=0x009c}
0x32b0…32ce Head {h00=0x001a, h01=0x0050, text=» LDK A7,/86 STD WRITE «, t00=0x0020, t01=0x00be}
0x32ce…32da Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0020, t01=0x00dc}
0x32da…32ea Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0020, t01=0x00e8}
0x32ea…32fc Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0020, t01=0x00f8}
0x32fc…3314 Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBBA,A8 «, t00=0x0020, t01=0x010a}
0x3314…332a Head {h00=0x0012, h01=0x0050, text=» SUR A9,A9 =1«, t00=0x0020, t01=0x0122}
0x332a…3340 Head {h00=0x0012, h01=0x0050, text=» SCR A9,A7 =1«, t00=0x0020, t01=0x0138}
0x3340…3358 Head {h00=0x0014, h01=0x0050, text=» SC A9,1,A7 =1 «, t00=0x0020, t01=0x014e}
0x3358…3380 Head {h00=0x0024, h01=0x0050, text=» ADK A7,2 RESTORE BUFFER ADDRESS«, t00=0x0020, t01=0x0166}
0x3380…3390 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0020, t01=0x018e}
0x3390…339e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x000e}
0x339e…33a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x001c}
0x33a8…33b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0026}
0x33b2…33d6 Head {h00=0x0020, h01=0x0050, text=»* SET STATUS NOT BUSY FOR DC«, t00=0x0021, t01=0x0030}
0x33d6…33e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0054}
0x33e0…33ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x005e}
0x33ea…33fe Head {h00=0x0010, h01=0x0050, text=»SNBUSY EQU *«, t00=0x0021, t01=0x0068}
0x33fe…341a Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0021, t01=0x007c}
0x341a…342e Head {h00=0x0010, h01=0x0050, text=» CM ECBCW,A8«, t00=0x0021, t01=0x0098}
0x342e…3452 Head {h00=0x0020, h01=0x0050, text=» LDK A7,/B8 SET STATUS ORDER«, t00=0x0021, t01=0x00ac}
0x3452…345e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0021, t01=0x00d0}
0x345e…346e Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0021, t01=0x00dc}
0x346e…347e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0021, t01=0x00ec}
0x347e…3488 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00fc}
0x3488…3492 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0106}
0x3492…34a6 Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x0021, t01=0x0110}
0x34a6…34aa Head {h00=0x4004, h01=0x0000}
0x34aa…34ae 00 21 01 24 ┆ ! $┆
0x34ae…34b6 (34, 1, 8) 20 04 00 00 00 22 00 04 ┆ " ┆
0x34b6…3506 (35, 0, 400) 2a 20 00 22 01 90 00 10 00 50 44 43 31 49 4e 51 5c 45 51 55 5c 2a 00 23 00 0a 00 12 00 50 5c 4c 44 4b 4c 5c 41 38 2c 45 43 42 44 43 00 23 00 1e 00 12 00 50 5c 41 44 52 5c 41 38 2c 43 52 45 42 41 53 00 23 00 34 00 1c 00 50 5c 53 54 5c 41 38 ┆* " PDC1INQ EQU * # P LDKL A8,ECBDC # P ADR A8,CREBAS # 4 P ST A8┆
0x3506…3556 2c 45 43 42 42 4c 4b 2b 44 43 31 2c 54 43 41 42 41 53 00 23 00 4a 00 10 00 50 44 43 31 49 32 30 5c 45 51 55 5c 2a 00 23 00 6a 00 0e 00 50 5c 4c 44 4b 5c 41 31 2c 30 20 00 23 00 7e 00 12 00 50 5c 43 46 5c 41 31 34 2c 52 45 51 54 49 4d 00 23 ┆,ECBBLK+DC1,TCABAS # J PDC1I20 EQU * # j P LDK A1,0 # ~ P CF A14,REQTIM #┆
0x3556…35a6 00 90 00 0e 00 50 5c 4c 44 4b 5c 41 37 2c 30 20 00 23 00 a6 00 10 00 50 44 43 31 49 33 30 5c 45 51 55 5c 2a 00 23 00 b8 00 08 00 50 5c 4c 4b 4d 00 23 00 cc 00 0c 00 50 5c 44 41 54 41 5c 31 20 00 23 00 d8 00 0c 00 50 5c 52 54 4e 5c 41 31 34 ┆ P LDK A7,0 # PDC1I30 EQU * # P LKM # P DATA 1 # P RTN A14┆
0x35a6…35f6 00 23 00 e8 00 10 00 50 44 43 32 49 4e 51 5c 45 51 55 5c 2a 00 23 00 f8 00 10 00 50 5c 49 46 54 5c 44 43 4c 49 4e 3d 32 00 23 01 0c 00 14 00 50 5c 4c 44 4b 4c 5c 41 38 2c 45 43 42 44 43 32 20 00 23 01 20 00 12 00 50 5c 41 44 52 5c 41 38 2c ┆ # PDC2INQ EQU * # P IFT DCLIN=2 # P LDKL A8,ECBDC2 # P ADR A8,┆
0x35f6…3646 43 52 45 42 41 53 00 23 01 38 00 1c 00 50 5c 53 54 5c 41 38 2c 45 43 42 42 4c 4b 2b 44 43 32 2c 54 43 41 42 41 53 00 23 01 4e 00 0e 00 50 5c 52 42 5c 44 43 31 49 32 30 00 23 01 6e 00 08 00 50 5c 58 49 46 00 23 01 80 00 12 00 50 5c 49 46 54 ┆CREBAS # 8 P ST A8,ECBBLK+DC2,TCABAS # N P RB DC1I20 # n P XIF # P IFT┆
0x3646…3696 (36, 0, 400) 5c 43 4f 50 43 4d 44 3d 31 20 00 23 01 8c 00 0a 00 50 5c 45 4a 45 43 54 00 24 00 12 00 06 00 50 2a 20 00 24 00 20 00 22 00 50 2a 5c 53 45 4e 44 20 42 55 46 46 45 52 20 54 4f 20 50 52 49 4e 54 45 52 20 54 41 53 4b 20 00 24 00 2a 00 06 00 50 ┆ COPCMD=1 # P EJECT $ P* $ " P* SEND BUFFER TO PRINTER TASK $ * P┆
0x3696…36e6 2a 20 00 24 00 50 00 10 00 50 42 55 46 43 4f 50 5c 45 51 55 5c 2a 00 24 00 5a 00 1a 00 50 5c 43 4d 5c 45 43 42 42 4c 4b 2b 49 43 52 2c 54 43 41 42 41 53 20 00 24 00 6e 00 18 00 50 5c 4c 44 4b 4c 5c 41 33 2c 42 56 44 55 5c 42 55 46 46 45 52 ┆* $ P PBUFCOP EQU * $ Z P CM ECBBLK+ICR,TCABAS $ n P LDKL A3,BVDU BUFFER┆
0x36e6…3736 00 24 00 8c 00 1c 00 50 5c 41 44 52 5c 41 33 2c 54 43 41 42 41 53 5c 20 20 41 44 44 52 45 53 53 00 24 00 a8 00 10 00 50 5c 49 46 54 5c 43 4f 50 4c 3d 31 20 00 24 00 c8 00 06 00 50 2a 20 00 24 00 dc 00 18 00 50 2a 5c 43 48 45 43 4b 20 49 46 ┆ $ P ADR A3,TCABAS ADDRESS $ P IFT COPL=1 $ P* $ P* CHECK IF┆
0x3736…3786 20 43 4f 50 59 20 4c 4f 43 4b 00 24 00 e6 00 06 00 50 2a 20 00 24 01 02 00 0e 00 50 5c 4c 43 52 5c 41 32 2c 41 33 00 24 01 0c 00 10 00 50 5c 41 4e 4b 5c 41 32 2c 2f 31 38 20 00 24 01 1e 00 10 00 50 5c 58 52 4b 5c 41 32 2c 2f 31 30 20 00 24 ┆ COPY LOCK $ P* $ P LCR A2,A3 $ P ANK A2,/18 $ P XRK A2,/10 $┆
0x3786…37d6 01 32 00 1c 00 50 5c 52 42 28 5a 29 5c 56 44 55 31 30 30 5c 44 4f 4e 27 54 20 43 4f 50 59 00 24 01 46 00 08 00 50 5c 58 49 46 00 24 01 66 00 12 00 50 5c 49 46 54 5c 43 4f 50 43 4d 44 3d 31 20 00 24 01 72 00 30 00 50 5c 4c 44 4b 5c 41 34 2c ┆ 2 P RB(Z) VDU100 DON'T COPY $ F P XIF $ f P IFT COPCMD=1 $ r 0 P LDK A4,┆