|
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: 14298 (0x37da)
Notes: pts_type(SC)
Names: »PRT.SC«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦this⟧ »REMIT2/PRT.SC«
IDENT PRT REL 2.1*79-10-20 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
*
**********************************************************************
*
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 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…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT PRT REL 2.1*79-10-20 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…0208 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x006e}
0x0208…0210 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x007c}
0x0210…0218 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0084}
0x0218…0222 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x008c}
0x0222…022c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0096}
0x022c…0246 Head {h00=0x0016, h01=0x0050, text=»* ENTRY PARAMETERS«, t00=0x0001, t01=0x00a0}
0x0246…0250 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ba}
0x0250…025a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c4}
0x025a…0270 Head {h00=0x0012, h01=0x0050, text=» ENTRY SNBUSY «, t00=0x0001, t01=0x00ce}
0x0270…0284 Head {h00=0x0010, h01=0x0050, text=» ENTRY PRINT«, t00=0x0001, t01=0x00e4}
0x0284…029a Head {h00=0x0012, h01=0x0050, text=» ENTRY ICREAD «, t00=0x0001, t01=0x00f8}
0x029a…02a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x010e}
0x02a4…02ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0118}
0x02ae…02cc Head {h00=0x001a, h01=0x0050, text=»* EXTERNAL PARAMETERS «, t00=0x0001, t01=0x0122}
0x02cc…02d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0140}
0x02d6…02e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x014a}
0x02e0…030c Head {h00=0x0028, h01=0x0050, text=» EXTRN UPDATE UPDATE BUFFER CONTENTS«, t00=0x0001, t01=0x0154}
0x030c…0338 Head {h00=0x0028, h01=0x0050, text=» EXTRN RFMDUP REPLACE FM & DUP CHARS«, t00=0x0001, t01=0x0180}
0x0338…034e Head {h00=0x0012, h01=0x0050, text=» EXTRN GTRBUF «, t00=0x0002, t01=0x001c}
0x034e…0364 Head {h00=0x0012, h01=0x0050, text=» EXTRN DCGETM «, t00=0x0002, t01=0x0032}
0x0364…037a Head {h00=0x0012, h01=0x0050, text=» EXTRN RELBUF «, t00=0x0002, t01=0x0048}
0x037a…0390 Head {h00=0x0012, h01=0x0050, text=» EXTRN DC1INQ «, t00=0x0002, t01=0x005e}
0x0390…03a6 Head {h00=0x0012, h01=0x0050, text=» EXTRN DC2INQ «, t00=0x0002, t01=0x0074}
0x03a6…03bc Head {h00=0x0012, h01=0x0050, text=» EXTRN REQTIM «, t00=0x0002, t01=0x008a}
0x03bc…03c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00a0}
0x03c6…03f6 Head {h00=0x002c, h01=0x0050, text=» EXTRN I:EVA0 CREDIT EVALUATION ROUTINE «, t00=0x0002, t01=0x00aa}
0x03f6…0400 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00da}
0x0400…041a Head {h00=0x0016, h01=0x0050, text=» EXTRN EMULA START«, t00=0x0002, t01=0x00e4}
0x041a…0428 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00fe}
0x0428…0432 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x010c}
0x0432…046c Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0002, t01=0x0116}
0x046c…0476 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0150}
0x0476…04a2 Head {h00=0x0028, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS «, t00=0x0002, t01=0x015a}
0x04a2…04ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0186}
0x04ac…04de Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0002, t01=0x0190}
0x04de…04e6 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0032}
0x04e6…051c Head {h00=0x0032, h01=0x0050, text=»OFLIN EQU 1 OFFLINE HANDLING POSSIBLE IF ::= 1«, t00=0x0003, t01=0x003a}
0x051c…054c Head {h00=0x002c, h01=0x0050, text=»DCLIN EQU 1 NUMBER OF MAIN FRAMES 81-2) «, t00=0x0003, t01=0x0070}
0x054c…0576 Head {h00=0x0026, h01=0x0050, text=»COPCMD EQU 1 COPY COMMAND IF := 1 «, t00=0x0003, t01=0x00a0}
0x0576…0580 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ca}
0x0580…0592 Head {h00=0x000e, h01=0x0050, text=»* EQUATES «, t00=0x0003, t01=0x00d4}
0x0592…059c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00e6}
0x059c…05a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00f0}
0x05a6…05b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00fa}
0x05b0…05de Head {h00=0x002a, h01=0x0050, text=»TIMDC EQU 300 DC TIME OUT VALUE: 30 S «, t00=0x0003, t01=0x0104}
0x05de…05f2 Head {h00=0x0010, h01=0x0050, text=»ESC EQU /1B «, t00=0x0003, t01=0x0132}
0x05f2…0606 Head {h00=0x0010, h01=0x0050, text=»SBA EQU /11 «, t00=0x0003, t01=0x0146}
0x0606…062a Head {h00=0x0020, h01=0x0050, text=»NULL EQU /7F NULL CHARACTER «, t00=0x0003, t01=0x015a}
0x062a…0654 Head {h00=0x0026, h01=0x0050, text=»NEWLIN EQU /7E NEW LINE CHARACTER «, t00=0x0003, t01=0x017e}
0x0654…067c Head {h00=0x0024, h01=0x0050, text=»ENDMES EQU /7D END MESSAGE CHAR «, t00=0x0004, t01=0x0018}
0x067c…06a2 Head {h00=0x0022, h01=0x0050, text=»FORMFD EQU /7C FORMFEED CHAR. «, t00=0x0004, t01=0x0040}
0x06a2…06b6 Head {h00=0x0010, h01=0x0050, text=»FMCH EQU /60«, t00=0x0004, t01=0x0066}
0x06b6…06cc Head {h00=0x0012, h01=0x0050, text=»DUPCH EQU /7B «, t00=0x0004, t01=0x007a}
0x06cc…06da Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0090}
0x06da…06e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x009e}
0x06e4…06ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a8}
0x06ee…0704 Head {h00=0x0012, h01=0x0050, text=»* EQUATES «, t00=0x0004, t01=0x00b2}
0x0704…070e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00c8}
0x070e…0734 Head {h00=0x0022, h01=0x0050, text=»* COMMON EQU FOR ECB HANDLING «, t00=0x0004, t01=0x00d2}
0x0734…073e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00f8}
0x073e…0746 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0102}
0x0746…075a Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0004, t01=0x010a}
0x075a…076e Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0004, t01=0x011e}
0x076e…0782 Head {h00=0x0010, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0004, t01=0x0132}
0x0782…0796 Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0004, t01=0x0146}
0x0796…07aa Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU 10«, t00=0x0004, t01=0x015a}
0x07aa…07b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x016e}
0x07b4…07be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0178}
0x07be…07d8 Head {h00=0x0016, h01=0x0050, text=»* CREDIT USED EQU «, t00=0x0004, t01=0x0182}
0x07d8…07e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x000c}
0x07e2…07ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0016}
0x07ec…0808 Head {h00=0x0018, h01=0x0050, text=»* ECB REL. ADDRESSES«, t00=0x0005, t01=0x0020}
0x0808…0812 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x003c}
0x0812…081c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0046}
0x081c…082e Head {h00=0x000e, h01=0x0050, text=»DIS EQU 20«, t00=0x0005, t01=0x0050}
0x082e…0838 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0062}
0x0838…0852 Head {h00=0x0016, h01=0x0050, text=»ECBDC EQU -DIS-14 «, t00=0x0005, t01=0x006c}
0x0852…0866 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0005, t01=0x0086}
0x0866…0882 Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0005, t01=0x009a}
0x0882…08a0 Head {h00=0x001a, h01=0x0050, text=»ECBICR EQU ECBDC2-DIS «, t00=0x0005, t01=0x00b6}
0x08a0…08ac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0005, t01=0x00d4}
0x08ac…08c0 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0005, t01=0x00e0}
0x08c0…08dc Head {h00=0x0018, h01=0x0050, text=»ECBICR EQU ECBDC-DIS«, t00=0x0005, t01=0x00f4}
0x08dc…08e8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0005, t01=0x0110}
0x08e8…08fe Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0005, t01=0x011c}
0x08fe…091c Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0005, t01=0x0132}
0x091c…0938 Head {h00=0x0018, h01=0x0050, text=»ECBPR EQU ECBICW-DIS«, t00=0x0005, t01=0x0150}
0x0938…0944 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0005, t01=0x016c}
0x0944…095a Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0005, t01=0x0178}
0x095a…0976 Head {h00=0x0018, h01=0x0050, text=»ECBPR EQU ECBICR-DIS«, t00=0x0005, t01=0x018e}
0x0976…0982 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x001a}
0x0982…098c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0026}
0x098c…0996 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0030}
0x0996…09bc Head {h00=0x0022, h01=0x0050, text=»* BASE ADDRESS FOR TCA AND ECB«, t00=0x0006, t01=0x003a}
0x09bc…09c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0060}
0x09c6…09dc Head {h00=0x0012, h01=0x0050, text=»TCABAS EQU A11«, t00=0x0006, t01=0x006a}
0x09dc…09f6 Head {h00=0x0016, h01=0x0050, text=»CREBAS EQU A13 ECB«, t00=0x0006, t01=0x0080}
0x09f6…0a00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x009a}
0x0a00…0a2a Head {h00=0x0026, h01=0x0050, text=»* CONFIG DATA 'CB1' REL ADDRESSES «, t00=0x0006, t01=0x00a4}
0x0a2a…0a34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ce}
0x0a34…0a5a Head {h00=0x0022, h01=0x0050, text=»NBRKBV EQU 0 NUMBER OF KB/VDUS«, t00=0x0006, t01=0x00d8}
0x0a5a…0a84 Head {h00=0x0026, h01=0x0050, text=»NBRGTP EQU NBRKBV+2 NUMBER OF GTPS«, t00=0x0006, t01=0x00fe}
0x0a84…0a8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0128}
0x0a8e…0ac4 Head {h00=0x0032, h01=0x0050, text=»MF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 «, t00=0x0006, t01=0x0132}
0x0ac4…0afa Head {h00=0x0032, h01=0x0050, text=»MF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 «, t00=0x0006, t01=0x0168}
0x0afa…0b0e Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0007, t01=0x000e}
0x0b0e…0b2a Head {h00=0x0018, h01=0x0050, text=»MF2KBV EQU MF1GTP+16«, t00=0x0007, t01=0x0022}
0x0b2a…0b46 Head {h00=0x0018, h01=0x0050, text=»MF2GTP EQU MF2KBV+16«, t00=0x0007, t01=0x003e}
0x0b46…0b52 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x005a}
0x0b52…0b60 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0066}
0x0b60…0b6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0074}
0x0b6a…0b86 Head {h00=0x0018, h01=0x0050, text=»* TCA REL. ADDRESSES«, t00=0x0007, t01=0x007e}
0x0b86…0b90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x009a}
0x0b90…0ba4 Head {h00=0x0010, h01=0x0050, text=»TCT01 EQU 0 «, t00=0x0007, t01=0x00a4}
0x0ba4…0bc0 Head {h00=0x0018, h01=0x0050, text=»PRINTER EQU TCT01+2 «, t00=0x0007, t01=0x00b8}
0x0bc0…0bec Head {h00=0x0028, h01=0x0050, text=»BVDU EQU PRINTER+2 VDU SCREEN BUFFER«, t00=0x0007, t01=0x00d4}
0x0bec…0c20 Head {h00=0x0030, h01=0x0050, text=»PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY «, t00=0x0007, t01=0x0100}
0x0c20…0c4e Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x0007, t01=0x0134}
0x0c4e…0c6a Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x0007, t01=0x0162}
0x0c6a…0c94 Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x0007, t01=0x017e}
0x0c94…0cc6 Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x0008, t01=0x0018}
0x0cc6…0cee Head {h00=0x0024, h01=0x0050, text=»LINCNT EQU KBINH+2 LINE COUNTER «, t00=0x0008, t01=0x004a}
0x0cee…0d22 Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH«, t00=0x0008, t01=0x0072}
0x0d22…0d58 Head {h00=0x0032, h01=0x0050, text=»ICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM «, t00=0x0008, t01=0x00a6}
0x0d58…0d88 Head {h00=0x002c, h01=0x0050, text=»INTATT EQU ICWORK+2 INTENSITY ATTRIBUTE «, t00=0x0008, t01=0x00dc}
0x0d88…0db0 Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU INTATT+2 OFFLINE FLAG«, t00=0x0008, t01=0x010c}
0x0db0…0ddc Head {h00=0x0028, h01=0x0050, text=»COPNO EQU OFFFLG+2 HARDCOPY TASK ID «, t00=0x0008, t01=0x0134}
0x0ddc…0e0a Head {h00=0x002a, h01=0x0050, text=»CCC EQU COPNO+2 COPY COMMAND CHARACTER«, t00=0x0008, t01=0x0160}
0x0e0a…0e2c Head {h00=0x001e, h01=0x0050, text=»MAIN EQU CCC+2 MAIN FRAME «, t00=0x0008, t01=0x018e}
0x0e2c…0e56 Head {h00=0x0026, h01=0x0050, text=»MODE EQU MAIN+2 INSERT MODE SWITCH«, t00=0x0009, t01=0x0020}
0x0e56…0e7e Head {h00=0x0024, h01=0x0050, text=»KEYS EQU MODE+2 KEY LOCK STATUS «, t00=0x0009, t01=0x004a}
0x0e7e…0eb0 Head {h00=0x002e, h01=0x0050, text=»ECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC«, t00=0x0009, t01=0x0072}
0x0eb0…0ee6 Head {h00=0x0032, h01=0x0050, text=»ECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C «, t00=0x0009, t01=0x00a4}
0x0ee6…0f1e Head {h00=0x0034, h01=0x0050, text=»RDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB«, t00=0x0009, t01=0x00da}
0x0f1e…0f28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0112}
0x0f28…0f66 Head {h00=0x003a, h01=0x0050, text=»PRBUSY EQU -2 PRINTER BUSY. OCCUPIES BOOLEAN VARAIBLE «, t00=0x0009, t01=0x011c}
0x0f66…0f74 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x015a}
0x0f74…0f7c Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0168}
0x0f7c…0f86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0170}
0x0f86…0f90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x017a}
0x0f90…0fbe Head {h00=0x002a, h01=0x0050, text=»LBVDU EQU 1920 1920 CHARACTER DISPLAY «, t00=0x0009, t01=0x0184}
0x0fbe…0fe4 Head {h00=0x0022, h01=0x0050, text=»LPAGE EQU 48 LINES ON ONE PAGE«, t00=0x000a, t01=0x0022}
0x0fe4…1022 Head {h00=0x003a, h01=0x0050, text=»GTPLIN EQU 112 LINELENGTH MAX 112 CHAR. 'NL' ORDER IN «, t00=0x000a, t01=0x0048}
0x1022…1052 Head {h00=0x002c, h01=0x0050, text=»* BUFFER DETERMINES PRINT LINE LENGTH «, t00=0x000a, t01=0x0086}
0x1052…105c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00b6}
0x105c…1064 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00c0}
0x1064…106c Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00c8}
0x106c…107a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00d0}
0x107a…108e Head {h00=0x0010, h01=0x0050, text=»PRINT EQU * «, t00=0x000a, t01=0x00de}
0x108e…10a4 Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x000a, t01=0x00f2}
0x10a4…10ce Head {h00=0x0026, h01=0x0050, text=» LDR TCABAS,A9 LOAD ASSEM TCA BASE«, t00=0x000a, t01=0x0108}
0x10ce…10f2 Head {h00=0x0020, h01=0x0050, text=» LDR* A4,TCABAS REL TASK NO «, t00=0x000a, t01=0x0132}
0x10f2…1118 Head {h00=0x0022, h01=0x0050, text=» AD A4,6,CREBAS 'CB1' ADDRESS «, t00=0x000a, t01=0x0156}
0x1118…1120 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x017c}
0x1120…115a Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000a, t01=0x0184}
0x115a…1164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x002e}
0x1164…1194 Head {h00=0x002c, h01=0x0050, text=»* TRANSFER PARAMETER FOR MAIN-FRAME #1«, t00=0x000b, t01=0x0038}
0x1194…119e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0068}
0x119e…11d8 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000b, t01=0x0072}
0x11d8…11e0 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00ac}
0x11e0…11fa Head {h00=0x0016, h01=0x0050, text=» LC A1,MF1GTP-1,A4«, t00=0x000b, t01=0x00b4}
0x11fa…120e Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x000b, t01=0x00ce}
0x120e…1224 Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x000b, t01=0x00e2}
0x1224…123a Head {h00=0x0012, h01=0x0050, text=» CF A14,EMULA «, t00=0x000b, t01=0x00f8}
0x123a…124e Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000b, t01=0x010e}
0x124e…1288 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000b, t01=0x0122}
0x1288…1292 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x015c}
0x1292…12c2 Head {h00=0x002c, h01=0x0050, text=»* TRANSFER PARAMETER FOR MAIN-FRAME #2«, t00=0x000b, t01=0x0166}
0x12c2…12cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0008}
0x12cc…1306 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000c, t01=0x0012}
0x1306…130e Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x004c}
0x130e…1328 Head {h00=0x0016, h01=0x0050, text=» LC A1,MF2GTP-1,A4«, t00=0x000c, t01=0x0054}
0x1328…133c Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x000c, t01=0x006e}
0x133c…1354 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x000c, t01=0x0082}
0x1354…137c Head {h00=0x0024, h01=0x0050, text=» CF A14,EMULA TRANSFER PARAMETER«, t00=0x000c, t01=0x009a}
0x137c…1388 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x00c2}
0x1388…1396 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x00ce}
0x1396…13a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00dc}
0x13a0…13c0 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE POS IN ECBBLK«, t00=0x000c, t01=0x00e6}
0x13c0…13d2 Head {h00=0x000e, h01=0x0050, text=»ICR EQU 2 «, t00=0x000c, t01=0x0106}
0x13d2…13e4 Head {h00=0x000e, h01=0x0050, text=»DC1 EQU 4 «, t00=0x000c, t01=0x0118}
0x13e4…13f6 Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x000c, t01=0x012a}
0x13f6…1400 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x013c}
0x1400…1414 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x000c, t01=0x0146}
0x1414…1426 Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x000c, t01=0x015a}
0x1426…1432 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x016c}
0x1432…1446 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000c, t01=0x0178}
0x1446…1458 Head {h00=0x000e, h01=0x0050, text=» LDK A1,3 «, t00=0x000c, t01=0x018c}
0x1458…1464 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x000e}
0x1464…1480 Head {h00=0x0018, h01=0x0050, text=» ST A1,ECBBLK,TCABAS«, t00=0x000d, t01=0x001a}
0x1480…1494 Head {h00=0x0010, h01=0x0050, text=»PRI100 EQU *«, t00=0x000d, t01=0x0036}
0x1494…14ae Head {h00=0x0016, h01=0x0050, text=» CM ICWORK,TCABAS «, t00=0x000d, t01=0x004a}
0x14ae…14ce Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC1,TCABAS«, t00=0x000d, t01=0x0064}
0x14ce…14ec Head {h00=0x001a, h01=0x0050, text=» RF(NZ) PRI110 PENDING«, t00=0x000d, t01=0x0084}
0x14ec…1520 Head {h00=0x0030, h01=0x0050, text=» CF A14,DC1INQ TEST IF ANY MESSAGE, NO WAIT «, t00=0x000d, t01=0x00a2}
0x1520…1534 Head {h00=0x0010, h01=0x0050, text=»PRI110 EQU *«, t00=0x000d, t01=0x00d6}
0x1534…1548 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000d, t01=0x00ea}
0x1548…1568 Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC2,TCABAS«, t00=0x000d, t01=0x00fe}
0x1568…1586 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) PRI120 PENDING«, t00=0x000d, t01=0x011e}
0x1586…15c0 Head {h00=0x0036, h01=0x0050, text=» CF A14,DC2INQ TEST IF ANY MESSAGE MF # 2, NO WAIT«, t00=0x000d, t01=0x013c}
0x15c0…15cc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0176}
0x15cc…15e0 Head {h00=0x0010, h01=0x0050, text=»PRI120 EQU *«, t00=0x000d, t01=0x0182}
0x15e0…1600 Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+ICR,TCABAS«, t00=0x000e, t01=0x0008}
0x1600…161e Head {h00=0x001a, h01=0x0050, text=» RF(NZ) PRI150 PENDING«, t00=0x000e, t01=0x0028}
0x161e…1640 Head {h00=0x001e, h01=0x0050, text=» LDKL A6,LBVDU REQ LENGTH «, t00=0x000e, t01=0x0046}
0x1640…165c Head {h00=0x0018, h01=0x0050, text=» LDKL A3,BVDU BUFFER«, t00=0x000e, t01=0x0068}
0x165c…167c Head {h00=0x001c, h01=0x0050, text=» ADR A3,TCABAS ADDRESS«, t00=0x000e, t01=0x0084}
0x167c…16aa Head {h00=0x002a, h01=0x0050, text=» CF A14,ICREAD READ INTERTASK NO WAIT «, t00=0x000e, t01=0x00a4}
0x16aa…16ca Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+ICR,TCABAS«, t00=0x000e, t01=0x00d2}
0x16ca…16de Head {h00=0x0010, h01=0x0050, text=»PRI150 EQU *«, t00=0x000e, t01=0x00f2}
0x16de…16f6 Head {h00=0x0014, h01=0x0050, text=» LDKL A7,ECBBLK «, t00=0x000e, t01=0x0106}
0x16f6…170c Head {h00=0x0012, h01=0x0050, text=» ADR A7,TCABAS«, t00=0x000e, t01=0x011e}
0x170c…1718 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x000e, t01=0x0134}
0x1718…1736 Head {h00=0x001a, h01=0x0050, text=» DATA 7 MULTIPLE WAIT «, t00=0x000e, t01=0x0140}
0x1736…1756 Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+ICR,TCABAS«, t00=0x000e, t01=0x015e}
0x1756…1780 Head {h00=0x0026, h01=0x0050, text=» RF(E) ICRINP INPUT FROM INTERTASK«, t00=0x000e, t01=0x017e}
0x1780…17be Head {h00=0x003a, h01=0x0050, text=» ST A8,ECBDCC,TCABAS SAVE ECB ADDRESS FOR CURRENT READ«, t00=0x000f, t01=0x0018}
0x17be…17e2 Head {h00=0x0020, h01=0x0050, text=» CF A14,DCINP INPUT FROM DC «, t00=0x000f, t01=0x0056}
0x17e2…17f4 Head {h00=0x000e, h01=0x0050, text=» RB PRI100«, t00=0x000f, t01=0x007a}
0x17f4…1802 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x008c}
0x1802…180c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x009a}
0x180c…182c Head {h00=0x001c, h01=0x0050, text=»* READ INTERTASK, NOWAIT«, t00=0x000f, t01=0x00a4}
0x182c…1836 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00c4}
0x1836…1854 Head {h00=0x001a, h01=0x0050, text=»* A3 = BUFFER ADDRESS «, t00=0x000f, t01=0x00ce}
0x1854…186e Head {h00=0x0016, h01=0x0050, text=»* A6 = REQ LENGTH «, t00=0x000f, t01=0x00ec}
0x186e…1878 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0106}
0x1878…188c Head {h00=0x0010, h01=0x0050, text=»ICREAD EQU *«, t00=0x000f, t01=0x0110}
0x188c…18a4 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICR «, t00=0x000f, t01=0x0124}
0x18a4…18ba Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x000f, t01=0x013c}
0x18ba…18ce Head {h00=0x0010, h01=0x0050, text=» LDKL A1,-1 «, t00=0x000f, t01=0x0152}
0x18ce…18e4 Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x000f, t01=0x0166}
0x18e4…1906 Head {h00=0x001e, h01=0x0050, text=» ST A6,ECBRL,A8 REQ LENGTH«, t00=0x000f, t01=0x017c}
0x1906…191e Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBBA,A8 «, t00=0x0010, t01=0x000e}
0x191e…194c Head {h00=0x002a, h01=0x0050, text=» LDK A7,2 READ NOT ADDRESSED, NO WAIT «, t00=0x0010, t01=0x0026}
0x194c…1958 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0010, t01=0x0054}
0x1958…1968 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0010, t01=0x0060}
0x1968…1978 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0010, t01=0x0070}
0x1978…1986 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0080}
0x1986…19ce Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0010, t01=0x008e}
0x19ce…19d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00d6}
0x19d8…19f0 Head {h00=0x0014, h01=0x0050, text=»* INPUT FROM DC «, t00=0x0010, t01=0x00e0}
0x19f0…19fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00f8}
0x19fa…1a36 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0010, t01=0x0102}
0x1a36…1a40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x013e}
0x1a40…1a54 Head {h00=0x0010, h01=0x0050, text=»DCINP EQU * «, t00=0x0010, t01=0x0148}
0x1a54…1a80 Head {h00=0x0028, h01=0x0050, text=» CF A14,ICABOR ABORT INTERTASK READ «, t00=0x0010, t01=0x015c}
0x1a80…1a92 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x0010, t01=0x0188}
0x1a92…1ab6 Head {h00=0x0020, h01=0x0050, text=» RF(Z) DCIN10 NOT COMPLETED «, t00=0x0011, t01=0x000a}
0x1ab6…1ad8 Head {h00=0x001e, h01=0x0050, text=» IM ICWORK,TCABAS SET FLAG«, t00=0x0011, t01=0x002e}
0x1ad8…1b08 Head {h00=0x002c, h01=0x0050, text=» RF ICRINP TAKE CARE OF INTERTASK INPUT «, t00=0x0011, t01=0x0050}
0x1b08…1b3a Head {h00=0x002e, h01=0x0050, text=» OR BUFFER WILL BE DESTROYED IN 'UPDATE'«, t00=0x0011, t01=0x0080}
0x1b3a…1b4e Head {h00=0x0010, h01=0x0050, text=»DCIN10 EQU *«, t00=0x0011, t01=0x00b2}
0x1b4e…1b78 Head {h00=0x0026, h01=0x0050, text=» CF A14,GTRBUF GET RECEIVE BUFFER «, t00=0x0011, t01=0x00c6}
0x1b78…1b94 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0011, t01=0x00f0}
0x1b94…1bb8 Head {h00=0x0020, h01=0x0050, text=» CF A14,DCGETM READ MESSAGE «, t00=0x0011, t01=0x010c}
0x1bb8…1bcc Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0011, t01=0x0130}
0x1bcc…1bea Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x0011, t01=0x0144}
0x1bea…1bf6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0162}
0x1bf6…1c0a Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0011, t01=0x016e}
0x1c0a…1c2a Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+DC2,TCABAS«, t00=0x0011, t01=0x0182}
0x1c2a…1c46 Head {h00=0x0018, h01=0x0050, text=» RF(E) DCIN20 MF # 2«, t00=0x0012, t01=0x0012}
0x1c46…1c64 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x0012, t01=0x002e}
0x1c64…1c76 Head {h00=0x000e, h01=0x0050, text=» RF DCIN30«, t00=0x0012, t01=0x004c}
0x1c76…1c8a Head {h00=0x0010, h01=0x0050, text=»DCIN20 EQU *«, t00=0x0012, t01=0x005e}
0x1c8a…1ca8 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC2,TCABAS «, t00=0x0012, t01=0x0072}
0x1ca8…1cb4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0090}
0x1cb4…1cc8 Head {h00=0x0010, h01=0x0050, text=»DCIN30 EQU *«, t00=0x0012, t01=0x009c}
0x1cc8…1cf0 Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBEL,A8 EFFECTIVE LENGTH«, t00=0x0012, t01=0x00b0}
0x1cf0…1d22 Head {h00=0x002e, h01=0x0050, text=» ST A1,DCLENG,TCABAS SAVE IT IN SAVE AREA «, t00=0x0012, t01=0x00d8}
0x1d22…1d2a Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x010a}
0x1d2a…1d60 Head {h00=0x0032, h01=0x0050, text=» CF A14,UPDATE MOVE FROM DC TO PRINTER BUFFER;«, t00=0x0012, t01=0x0112}
0x1d60…1d76 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0012, t01=0x0148}
0x1d76…1d92 Head {h00=0x0018, h01=0x0050, text=» LD A1,ICWORK,TCABAS«, t00=0x0012, t01=0x015e}
0x1d92…1db6 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DCIN90 COPY COMMAND «, t00=0x0012, t01=0x017a}
0x1db6…1dc2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x000e}
0x1dc2…1df4 Head {h00=0x002e, h01=0x0050, text=» LD A1,WCC,TCABAS WRITE CONTROL CHARACTER «, t00=0x0013, t01=0x001a}
0x1df4…1e16 Head {h00=0x001e, h01=0x0050, text=» ST A1,CCC,TCABAS COPY IT «, t00=0x0013, t01=0x004c}
0x1e16…1e3a Head {h00=0x0020, h01=0x0050, text=» CF A14,COPY COPY ON PRINTER«, t00=0x0013, t01=0x006e}
0x1e3a…1e4e Head {h00=0x0010, h01=0x0050, text=»DCIN90 EQU *«, t00=0x0013, t01=0x0092}
0x1e4e…1e64 Head {h00=0x0012, h01=0x0050, text=» CF A14,SNBUSY«, t00=0x0013, t01=0x00a6}
0x1e64…1e74 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0013, t01=0x00bc}
0x1e74…1e82 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x00cc}
0x1e82…1e8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00da}
0x1e8c…1eaa Head {h00=0x001a, h01=0x0050, text=»* ABORT INTERTASK READ«, t00=0x0013, t01=0x00e4}
0x1eaa…1eb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0102}
0x1eb4…1ec8 Head {h00=0x0010, h01=0x0050, text=»ICABOR EQU *«, t00=0x0013, t01=0x010c}
0x1ec8…1eda Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0013, t01=0x0120}
0x1eda…1ef8 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+ICR,TCABAS «, t00=0x0013, t01=0x0132}
0x1ef8…1f10 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICR «, t00=0x0013, t01=0x0150}
0x1f10…1f26 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0013, t01=0x0168}
0x1f26…1f32 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0013, t01=0x017e}
0x1f32…1f42 Head {h00=0x000c, h01=0x0050, text=» DATA 10«, t00=0x0013, t01=0x018a}
0x1f42…1f52 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0014, t01=0x000a}
0x1f52…1f60 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x001a}
0x1f60…1f6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0028}
0x1f6a…1f88 Head {h00=0x001a, h01=0x0050, text=»* INPUT FROM INTERTASK«, t00=0x0014, t01=0x0032}
0x1f88…1f92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0050}
0x1f92…1fa6 Head {h00=0x0010, h01=0x0050, text=»ICRINP EQU *«, t00=0x0014, t01=0x005a}
0x1fa6…1fc4 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+ICR,TCABAS «, t00=0x0014, t01=0x006e}
0x1fc4…1fcc Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x008c}
0x1fcc…1ffa Head {h00=0x002a, h01=0x0050, text=» LDK A1,X'38' PRINT BIT, 80 CHAR./LINE«, t00=0x0014, t01=0x0094}
0x1ffa…2032 Head {h00=0x0034, h01=0x0050, text=» ST A1,CCC,TCABAS SAVE AS COPY CONTROL CHARACTER«, t00=0x0014, t01=0x00c2}
0x2032…2060 Head {h00=0x002a, h01=0x0050, text=» CF A14,COPY PRINT ON HARDCOPY DEVICE «, t00=0x0014, t01=0x00fa}
0x2060…207c Head {h00=0x0018, h01=0x0050, text=» LD A1,ICWORK,TCABAS«, t00=0x0014, t01=0x0128}
0x207c…20a8 Head {h00=0x0028, h01=0x0050, text=» RB(NZ) DCIN10 TAKE CARE OF DC INPUT«, t00=0x0014, t01=0x0144}
0x20a8…20ba Head {h00=0x000e, h01=0x0050, text=» RB PRI100«, t00=0x0014, t01=0x0170}
0x20ba…20c8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0182}
0x20c8…20d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0190}
0x20d2…20dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x000a}
0x20dc…210e Head {h00=0x002e, h01=0x0050, text=»* PRINT THE CONTENTS OF THE PRINTER BUFFER«, t00=0x0015, t01=0x0014}
0x210e…2118 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0046}
0x2118…2122 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0050}
0x2122…2164 Head {h00=0x003e, h01=0x0050, text=»LINLEN DATA /0028,/4050 LINE LENGTHS /40, 64 AND 80 CHARS «, t00=0x0015, t01=0x005a}
0x2164…216e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x009c}
0x216e…2178 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00a6}
0x2178…2192 Head {h00=0x0016, h01=0x0050, text=»COPY LDKL A8,ECBPR«, t00=0x0015, t01=0x00b0}
0x2192…21b4 Head {h00=0x001e, h01=0x0050, text=» ADR A8,CREBAS PRINTER ECB«, t00=0x0015, t01=0x00ca}
0x21b4…21cc Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBBA,A8 «, t00=0x0015, t01=0x00ec}
0x21cc…21e2 Head {h00=0x0012, h01=0x0050, text=» SUR A3,A3 =1«, t00=0x0015, t01=0x0104}
0x21e2…21fa Head {h00=0x0014, h01=0x0050, text=» SC A3,0,A7 =1 «, t00=0x0015, t01=0x011a}
0x21fa…2212 Head {h00=0x0014, h01=0x0050, text=» SC A3,1,A7 =1 «, t00=0x0015, t01=0x0132}
0x2212…2238 Head {h00=0x0022, h01=0x0050, text=» ADK A7,2 PRINt BUFFER ADDRESS«, t00=0x0015, t01=0x014a}
0x2238…225e Head {h00=0x0022, h01=0x0050, text=» SUR A9,A9 RESET BUFFER INDEX «, t00=0x0015, t01=0x0170}
0x225e…2274 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0016, t01=0x0008}
0x2274…228a Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0016, t01=0x001e}
0x228a…22b0 Head {h00=0x0022, h01=0x0050, text=» LD A2,CCC,TCABAS GET CCC/CCC «, t00=0x0016, t01=0x0034}
0x22b0…22c4 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/08 «, t00=0x0016, t01=0x005a}
0x22c4…22f0 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) COP100 START PRINTER BIT SET«, t00=0x0016, t01=0x006e}
0x22f0…2306 Head {h00=0x0012, h01=0x0050, text=»COPRTN RTN A14«, t00=0x0016, t01=0x009a}
0x2306…231a Head {h00=0x0010, h01=0x0050, text=»COP100 EQU *«, t00=0x0016, t01=0x00b0}
0x231a…2334 Head {h00=0x0016, h01=0x0050, text=» LD A2,CCC,TCABAS «, t00=0x0016, t01=0x00c4}
0x2334…2348 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/30 «, t00=0x0016, t01=0x00de}
0x2348…2378 Head {h00=0x002c, h01=0x0050, text=» ABL(Z) COP111 NL DETERMINES LINE LENGTH«, t00=0x0016, t01=0x00f2}
0x2378…238a Head {h00=0x000e, h01=0x0050, text=» SRL A2,4 «, t00=0x0016, t01=0x0122}
0x238a…239c Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0016, t01=0x0134}
0x239c…23c4 Head {h00=0x0024, h01=0x0050, text=» LC A6,LINLEN,A2 GET LINE LENGTH«, t00=0x0016, t01=0x0146}
0x23c4…23dc Head {h00=0x0014, h01=0x0050, text=»COP110 CWR A9,A6«, t00=0x0016, t01=0x016e}
0x23dc…23f2 Head {h00=0x0012, h01=0x0050, text=» RF(L) COP120 «, t00=0x0016, t01=0x0186}
0x23f2…2422 Head {h00=0x002c, h01=0x0050, text=»COP115 CF A14,PRLINE LINE FULL: PRINT IT«, t00=0x0017, t01=0x000c}
0x2422…2434 Head {h00=0x000e, h01=0x0050, text=» RB COP110«, t00=0x0017, t01=0x003c}
0x2434…2450 Head {h00=0x0018, h01=0x0050, text=»COP120 CWK A3,LBVDU «, t00=0x0017, t01=0x004e}
0x2450…2478 Head {h00=0x0024, h01=0x0050, text=» ABL(NL) COP300 PRINT LAST LINE «, t00=0x0017, t01=0x006a}
0x2478…248a Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0017, t01=0x0092}
0x248a…24b0 Head {h00=0x0022, h01=0x0050, text=» ANK A2,/7F RESET DISPLAY BIT «, t00=0x0017, t01=0x00a4}
0x24b0…24c2 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x0017, t01=0x00ca}
0x24c2…24d6 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0017, t01=0x00dc}
0x24d6…24ec Head {h00=0x0012, h01=0x0050, text=» RF(NL) COP130«, t00=0x0017, t01=0x00f0}
0x24ec…2500 Head {h00=0x0010, h01=0x0050, text=»COP123 EQU *«, t00=0x0017, t01=0x0106}
0x2500…2512 Head {h00=0x000e, h01=0x0050, text=» ANK A2,6 «, t00=0x0017, t01=0x011a}
0x2512…2524 Head {h00=0x000e, h01=0x0050, text=» XRK A2,6 «, t00=0x0017, t01=0x012c}
0x2524…253a Head {h00=0x0012, h01=0x0050, text=» RF(Z) COP150 «, t00=0x0017, t01=0x013e}
0x253a…256a Head {h00=0x002c, h01=0x0050, text=»COP125 LDK A2,/20 REPLACE ATTR BY SPACE «, t00=0x0017, t01=0x0154}
0x256a…257c Head {h00=0x000e, h01=0x0050, text=» RF COP140«, t00=0x0017, t01=0x0184}
0x257c…2596 Head {h00=0x0016, h01=0x0050, text=»COP130 CWK A2,NULL«, t00=0x0018, t01=0x0008}
0x2596…25c2 Head {h00=0x0028, h01=0x0050, text=» RB(E) COP125 REPLACE NULL BY SPACE «, t00=0x0018, t01=0x0022}
0x25c2…25d6 Head {h00=0x0010, h01=0x0050, text=»COP140 EQU *«, t00=0x0018, t01=0x004e}
0x25d6…25ea Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7D «, t00=0x0018, t01=0x0062}
0x25ea…2600 Head {h00=0x0012, h01=0x0050, text=» RF(NE) COP141«, t00=0x0018, t01=0x0076}
0x2600…2614 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/39 «, t00=0x0018, t01=0x008c}
0x2614…262e Head {h00=0x0016, h01=0x0050, text=»COP141 CWK A2,/7E «, t00=0x0018, t01=0x00a0}
0x262e…2644 Head {h00=0x0012, h01=0x0050, text=» RF(NE) COP142«, t00=0x0018, t01=0x00ba}
0x2644…2658 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/35 «, t00=0x0018, t01=0x00d0}
0x2658…266c Head {h00=0x0010, h01=0x0050, text=»COP142 EQU *«, t00=0x0018, t01=0x00e4}
0x266c…268e Head {h00=0x001e, h01=0x0050, text=» CF A14,RFMDUP FM OR DUP ?«, t00=0x0018, t01=0x00f8}
0x268e…26c0 Head {h00=0x002e, h01=0x0050, text=»COP143 CWK A2,/61 LOWER CASE CHARACTER ?? «, t00=0x0018, t01=0x011a}
0x26c0…26da Head {h00=0x0016, h01=0x0050, text=» RF(L) COP144 NO!!«, t00=0x0018, t01=0x014c}
0x26da…26ee Head {h00=0x0010, h01=0x0050, text=» SUK A2,/20 «, t00=0x0018, t01=0x0166}
0x26ee…2706 Head {h00=0x0014, h01=0x0050, text=»COP144 SCR A2,A7«, t00=0x0018, t01=0x017a}
0x2706…2718 (25, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0019, t01=0x0004}
0x2718…272a Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0019, t01=0x0016}
0x272a…273c Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0019, t01=0x0028}
0x273c…274e Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0019, t01=0x003a}
0x274e…2760 Head {h00=0x000e, h01=0x0050, text=» RB COP110«, t00=0x0019, t01=0x004c}
0x2760…2790 Head {h00=0x002c, h01=0x0050, text=»COP150 LDK A2,/20 SPACE INSTEAD OF TEXT «, t00=0x0019, t01=0x005e}
0x2790…27a2 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A7«, t00=0x0019, t01=0x008e}
0x27a2…27b4 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0019, t01=0x00a0}
0x27b4…27c6 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0019, t01=0x00b2}
0x27c6…27d8 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0019, t01=0x00c4}
0x27d8…27ea Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0019, t01=0x00d6}
0x27ea…27fc Head {h00=0x000e, h01=0x0050, text=» CWR A9,A6«, t00=0x0019, t01=0x00e8}
0x27fc…2812 Head {h00=0x0012, h01=0x0050, text=» RF(L) COP160 «, t00=0x0019, t01=0x00fa}
0x2812…283e Head {h00=0x0028, h01=0x0050, text=» CF A14,PRLINE LINE FULL : PRINT IT «, t00=0x0019, t01=0x0110}
0x283e…2856 Head {h00=0x0014, h01=0x0050, text=»COP160 LCR A2,A4«, t00=0x0019, t01=0x013c}
0x2856…286a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0019, t01=0x0154}
0x286a…287e Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0019, t01=0x0168}
0x287e…289e Head {h00=0x001c, h01=0x0050, text=» RB(L) COP123 ATTRIBUTE «, t00=0x0019, t01=0x017c}
0x289e…28ca Head {h00=0x0028, h01=0x0050, text=» RB COP150 STILL IN PROTECTED FIELD «, t00=0x001a, t01=0x000c}
0x28ca…28d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0038}
0x28d4…28de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0042}
0x28de…290e Head {h00=0x002c, h01=0x0050, text=»* LINE LENGTH AS DEFINED BY NL CHARACTER«, t00=0x001a, t01=0x004c}
0x290e…2918 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x007c}
0x2918…2922 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0086}
0x2922…295c Head {h00=0x0036, h01=0x0050, text=»* THE FIRST INSTR. ORIGINALLY HAD LABEL 'COP200'. «, t00=0x001a, t01=0x0090}
0x295c…2966 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00ca}
0x2966…2970 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00d4}
0x2970…2984 Head {h00=0x0010, h01=0x0050, text=»COP111 EQU *«, t00=0x001a, t01=0x00de}
0x2984…299a Head {h00=0x0012, h01=0x0050, text=» CWK A9,GTPLIN«, t00=0x001a, t01=0x00f2}
0x299a…29a2 Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x0108}
0x29a2…29c8 Head {h00=0x0022, h01=0x0050, text=» RF(L) COP220 BUFFER NOT FULL «, t00=0x001a, t01=0x0110}
0x29c8…29f0 Head {h00=0x0024, h01=0x0050, text=»COP210 CF A14,PRLINE PRINT LINE «, t00=0x001a, t01=0x0136}
0x29f0…2a04 Head {h00=0x0010, h01=0x0050, text=» ABL COP111 «, t00=0x001a, t01=0x015e}
0x2a04…2a20 Head {h00=0x0018, h01=0x0050, text=»COP220 CWK A3,LBVDU «, t00=0x001a, t01=0x0172}
0x2a20…2a46 Head {h00=0x0022, h01=0x0050, text=» RF(NL) COP300 PRINT LAST LINE«, t00=0x001a, t01=0x018e}
0x2a46…2a58 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x001b, t01=0x0024}
0x2a58…2a6c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x001b, t01=0x0036}
0x2a6c…2a90 Head {h00=0x0020, h01=0x0050, text=» SCR A2,A4 RESET DISPLAY BIT«, t00=0x001b, t01=0x004a}
0x2a90…2aa4 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x001b, t01=0x006e}
0x2aa4…2aba Head {h00=0x0012, h01=0x0050, text=» RF(NL) COP230«, t00=0x001b, t01=0x0082}
0x2aba…2ae6 Head {h00=0x0028, h01=0x0050, text=»COP223 ANK A2,/6 ATTRIBUTE CHARACTER«, t00=0x001b, t01=0x0098}
0x2ae6…2af8 Head {h00=0x000e, h01=0x0050, text=» XRK A2,6 «, t00=0x001b, t01=0x00c4}
0x2af8…2b1e Head {h00=0x0022, h01=0x0050, text=» RF(Z) COP250 PROTECTED FIELD «, t00=0x001b, t01=0x00d6}
0x2b1e…2b52 Head {h00=0x0030, h01=0x0050, text=»COP225 LDK A2,/20 REPLACE ATTRIBUTE BY SPACE«, t00=0x001b, t01=0x00fc}
0x2b52…2b64 Head {h00=0x000e, h01=0x0050, text=» RF COP240«, t00=0x001b, t01=0x0130}
0x2b64…2b7e Head {h00=0x0016, h01=0x0050, text=»COP230 CWK A2,NULL«, t00=0x001b, t01=0x0142}
0x2b7e…2bae Head {h00=0x002c, h01=0x0050, text=» RB(E) COP225 NULL IS REPLACED BY SPACE «, t00=0x001b, t01=0x015c}
0x2bae…2bc2 Head {h00=0x0010, h01=0x0050, text=»COP240 EQU *«, t00=0x001b, t01=0x018c}
0x2bc2…2bd6 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7B «, t00=0x001c, t01=0x0010}
0x2bd6…2bec Head {h00=0x0012, h01=0x0050, text=» RF(NE) COP241«, t00=0x001c, t01=0x0024}
0x2bec…2c00 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/2A «, t00=0x001c, t01=0x003a}
0x2c00…2c18 Head {h00=0x0014, h01=0x0050, text=»COP241 SCR A2,A7«, t00=0x001c, t01=0x004e}
0x2c18…2c2a Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001c, t01=0x0066}
0x2c2a…2c3c Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x001c, t01=0x0078}
0x2c3c…2c4e Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x001c, t01=0x008a}
0x2c4e…2c64 Head {h00=0x0012, h01=0x0050, text=» CWK A2,NEWLIN«, t00=0x001c, t01=0x009c}
0x2c64…2c8e Head {h00=0x0026, h01=0x0050, text=» RB(E) COP210 NL CHAR: PRINT LINE «, t00=0x001c, t01=0x00b2}
0x2c8e…2ca4 Head {h00=0x0012, h01=0x0050, text=» CWK A2,ENDMES«, t00=0x001c, t01=0x00dc}
0x2ca4…2cd6 Head {h00=0x002e, h01=0x0050, text=» RF(E) COP300 UND MESSAGE: PRINT LAST LINE«, t00=0x001c, t01=0x00f2}
0x2cd6…2ce8 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x001c, t01=0x0124}
0x2ce8…2cfc Head {h00=0x0010, h01=0x0050, text=» ABL COP111 «, t00=0x001c, t01=0x0136}
0x2cfc…2d2c Head {h00=0x002c, h01=0x0050, text=»COP250 LDK A2,/20 REPLACE TEXT BY SPACE «, t00=0x001c, t01=0x014a}
0x2d2c…2d3e Head {h00=0x000e, h01=0x0050, text=» SCR A2,A7«, t00=0x001c, t01=0x017a}
0x2d3e…2d50 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001c, t01=0x018c}
0x2d50…2d62 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x001d, t01=0x000e}
0x2d62…2d74 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x001d, t01=0x0020}
0x2d74…2d86 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x001d, t01=0x0032}
0x2d86…2d98 Head {h00=0x000e, h01=0x0050, text=» CWR A9,A6«, t00=0x001d, t01=0x0044}
0x2d98…2dae Head {h00=0x0012, h01=0x0050, text=» RF(L) COP260 «, t00=0x001d, t01=0x0056}
0x2dae…2dda Head {h00=0x0028, h01=0x0050, text=» CF A14,PRLINE LINE FULL : PRINT IT «, t00=0x001d, t01=0x006c}
0x2dda…2df2 Head {h00=0x0014, h01=0x0050, text=»COP260 LCR A2,A4«, t00=0x001d, t01=0x0098}
0x2df2…2e06 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x001d, t01=0x00b0}
0x2e06…2e1a Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x001d, t01=0x00c4}
0x2e1a…2e40 Head {h00=0x0022, h01=0x0050, text=» RB(L) COP223 ATTRIBUTE FOUND «, t00=0x001d, t01=0x00d8}
0x2e40…2e6c Head {h00=0x0028, h01=0x0050, text=» RB COP250 STILL IN PROTECTED FIELD «, t00=0x001d, t01=0x00fe}
0x2e6c…2e84 Head {h00=0x0014, h01=0x0050, text=»COP300 LDR A9,A9«, t00=0x001d, t01=0x012a}
0x2e84…2ea6 Head {h00=0x001e, h01=0x0050, text=» ABL(Z) COPRTN ALL PRINTED«, t00=0x001d, t01=0x0142}
0x2ea6…2ecc Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE PRINT LAST LINE«, t00=0x001d, t01=0x0164}
0x2ecc…2ee0 Head {h00=0x0010, h01=0x0050, text=» ABL COPRTN «, t00=0x001d, t01=0x018a}
0x2ee0…2eee Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x000e}
0x2eee…2ef8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x001c}
0x2ef8…2f02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0026}
0x2f02…2f26 Head {h00=0x0020, h01=0x0050, text=»* PRINT ONE LINE ON PRINTER «, t00=0x001e, t01=0x0030}
0x2f26…2f30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0054}
0x2f30…2f5c Head {h00=0x0028, h01=0x0050, text=»* A9=NUMBER OF CHAR IN PRINT BUFFER «, t00=0x001e, t01=0x005e}
0x2f5c…2f66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x008a}
0x2f66…2f70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0094}
0x2f70…2fa8 Head {h00=0x0034, h01=0x0050, text=»PRLINE IM LINCNT,TCABAS COUNT NBR OF PRINTLINES «, t00=0x001e, t01=0x009e}
0x2fa8…2fce Head {h00=0x0022, h01=0x0050, text=» RF(N) PRL100 NOT END OF PAGE «, t00=0x001e, t01=0x00d6}
0x2fce…2ff0 Head {h00=0x001e, h01=0x0050, text=» LDK A7,LPAGE END OF PAGE «, t00=0x001e, t01=0x00fc}
0x2ff0…3002 Head {h00=0x000e, h01=0x0050, text=» NGR A7,A7«, t00=0x001e, t01=0x011e}
0x3002…3032 Head {h00=0x002c, h01=0x0050, text=» ST A7,LINCNT,TCABAS RESET LINE COUNTER «, t00=0x001e, t01=0x0130}
0x3032…3050 Head {h00=0x001a, h01=0x0050, text=»PRL100 LD A7,ECBBA,A8 «, t00=0x001e, t01=0x0160}
0x3050…307c Head {h00=0x0028, h01=0x0050, text=» LC A2,2,A7 GET FIRST CHAR IN BUFFER«, t00=0x001e, t01=0x017e}
0x307c…3090 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x001f, t01=0x001a}
0x3090…30a6 Head {h00=0x0012, h01=0x0050, text=» CWK A2,FORMFD«, t00=0x001f, t01=0x002e}
0x30a6…30ca Head {h00=0x0020, h01=0x0050, text=» RF(NE) PRL200 NOT FORM FEED«, t00=0x001f, t01=0x0044}
0x30ca…30de Head {h00=0x0010, h01=0x0050, text=» LDK A2,/20 «, t00=0x001f, t01=0x0068}
0x30de…3106 Head {h00=0x0024, h01=0x0050, text=» SC A2,2,A7 REPLACE LF BY SPACE «, t00=0x001f, t01=0x007c}
0x3106…310e Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x00a4}
0x310e…3122 Head {h00=0x0010, h01=0x0050, text=»PRL110 EQU *«, t00=0x001f, t01=0x00ac}
0x3122…3148 Head {h00=0x0022, h01=0x0050, text=» LD A1,LINCNT,TCABAS FORM FEED«, t00=0x001f, t01=0x00c0}
0x3148…315a Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x001f, t01=0x00e6}
0x315a…3192 Head {h00=0x0034, h01=0x0050, text=» ST A7,ECBRL,A8 SET REQ LENGTH TO 2 FOR NEW LINE«, t00=0x001f, t01=0x00f8}
0x3192…31b6 Head {h00=0x0020, h01=0x0050, text=»PRL120 LDK A7,/86 STD WRITE «, t00=0x001f, t01=0x0130}
0x31b6…31c2 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001f, t01=0x0154}
0x31c2…31d2 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001f, t01=0x0160}
0x31d2…31f0 Head {h00=0x001a, h01=0x0050, text=» ADK A1,1 COUNT LINES «, t00=0x001f, t01=0x0170}
0x31f0…3206 Head {h00=0x0012, h01=0x0050, text=» RB(N) PRL120 «, t00=0x001f, t01=0x018e}
0x3206…321c Head {h00=0x0012, h01=0x0050, text=» LDK A7,LPAGE «, t00=0x0020, t01=0x0014}
0x321c…322e Head {h00=0x000e, h01=0x0050, text=» NGR A7,A7«, t00=0x0020, t01=0x002a}
0x322e…325e Head {h00=0x002c, h01=0x0050, text=» ST A7,LINCNT,TCABAS RESET LINE COUNTER «, t00=0x0020, t01=0x003c}
0x325e…3292 Head {h00=0x0030, h01=0x0050, text=»PRL200 ADKL A9,2 ADJUST LENGTH FOR BUFFER CW«, t00=0x0020, t01=0x006c}
0x3292…32b4 Head {h00=0x001e, h01=0x0050, text=» ST A9,ECBRL,A8 REQ LENGTH«, t00=0x0020, t01=0x00a0}
0x32b4…32d2 Head {h00=0x001a, h01=0x0050, text=» LDK A7,/86 STD WRITE «, t00=0x0020, t01=0x00c2}
0x32d2…32de Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0020, t01=0x00e0}
0x32de…32ee Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0020, t01=0x00ec}
0x32ee…3300 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0020, t01=0x00fc}
0x3300…3318 Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBBA,A8 «, t00=0x0020, t01=0x010e}
0x3318…332e Head {h00=0x0012, h01=0x0050, text=» SUR A9,A9 =1«, t00=0x0020, t01=0x0126}
0x332e…3344 Head {h00=0x0012, h01=0x0050, text=» SCR A9,A7 =1«, t00=0x0020, t01=0x013c}
0x3344…335c Head {h00=0x0014, h01=0x0050, text=» SC A9,1,A7 =1 «, t00=0x0020, t01=0x0152}
0x335c…3384 Head {h00=0x0024, h01=0x0050, text=» ADK A7,2 RESTORE BUFFER ADDRESS«, t00=0x0020, t01=0x016a}
0x3384…3394 (33, 2, 302) Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0021, t01=0x0004}
0x3394…33a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0014}
0x33a2…33ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0022}
0x33ac…33b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x002c}
0x33b6…33da Head {h00=0x0020, h01=0x0050, text=»* SET STATUS NOT BUSY FOR DC«, t00=0x0021, t01=0x0036}
0x33da…33e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x005a}
0x33e4…33ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0064}
0x33ee…3402 Head {h00=0x0010, h01=0x0050, text=»SNBUSY EQU *«, t00=0x0021, t01=0x006e}
0x3402…341e Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0021, t01=0x0082}
0x341e…3432 Head {h00=0x0010, h01=0x0050, text=» CM ECBCW,A8«, t00=0x0021, t01=0x009e}
0x3432…3456 Head {h00=0x0020, h01=0x0050, text=» LDK A7,/B8 SET STATUS ORDER«, t00=0x0021, t01=0x00b2}
0x3456…3462 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0021, t01=0x00d6}
0x3462…3472 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0021, t01=0x00e2}
0x3472…3482 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0021, t01=0x00f2}
0x3482…348c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0102}
0x348c…3496 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x010c}
0x3496…34aa Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x0021, t01=0x0116}
0x34aa…34ae Head {h00=0x4004, h01=0x0000}
0x34ae…34b2 00 21 01 2a ┆ ! *┆
0x34b2…34ba (34, 1, 8) 20 04 00 00 00 22 00 04 ┆ " ┆
0x34ba…350a (35, 0, 400) 00 1c 00 50 5c 53 54 5c 41 38 2c 45 43 42 42 4c 4b 2b 44 43 31 2c 54 43 41 42 41 53 00 23 00 04 00 10 00 50 44 43 31 49 32 30 5c 45 51 55 5c 2a 00 23 00 24 00 0e 00 50 5c 4c 44 4b 5c 41 31 2c 30 20 00 23 00 38 00 12 00 50 5c 43 46 5c 41 31 ┆ P ST A8,ECBBLK+DC1,TCABAS # PDC1I20 EQU * # $ P LDK A1,0 # 8 P CF A1┆
0x350a…355a 34 2c 52 45 51 54 49 4d 00 23 00 4a 00 0e 00 50 5c 4c 44 4b 5c 41 37 2c 30 20 00 23 00 60 00 10 00 50 44 43 31 49 33 30 5c 45 51 55 5c 2a 00 23 00 72 00 08 00 50 5c 4c 4b 4d 00 23 00 86 00 0c 00 50 5c 44 41 54 41 5c 31 20 00 23 00 92 00 0c ┆4,REQTIM # J P LDK A7,0 # ` PDC1I30 EQU * # r P LKM # P DATA 1 # ┆
0x355a…35aa 00 50 5c 52 54 4e 5c 41 31 34 00 23 00 a2 00 10 00 50 44 43 32 49 4e 51 5c 45 51 55 5c 2a 00 23 00 b2 00 10 00 50 5c 49 46 54 5c 44 43 4c 49 4e 3d 32 00 23 00 c6 00 14 00 50 5c 4c 44 4b 4c 5c 41 38 2c 45 43 42 44 43 32 20 00 23 00 da 00 12 ┆ P RTN A14 # PDC2INQ EQU * # P IFT DCLIN=2 # P LDKL A8,ECBDC2 # ┆
0x35aa…35fa 00 50 5c 41 44 52 5c 41 38 2c 43 52 45 42 41 53 00 23 00 f2 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 08 00 0e 00 50 5c 52 42 5c 44 43 31 49 32 30 00 23 01 28 00 08 00 50 5c 58 49 46 00 23 ┆ P ADR A8,CREBAS # P ST A8,ECBBLK+DC2,TCABAS # P RB DC1I20 # ( P XIF #┆
0x35fa…364a 01 3a 00 12 00 50 5c 49 46 54 5c 43 4f 50 43 4d 44 3d 31 20 00 23 01 46 00 0a 00 50 5c 45 4a 45 43 54 00 23 01 5c 00 06 00 50 2a 20 00 23 01 6a 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 ┆ : P IFT COPCMD=1 # F P EJECT # P* # j " P* SEND BUFFER TO PRINTER TAS┆
0x364a…369a (36, 0, 400) 4b 20 00 23 01 74 00 06 00 50 2a 20 00 24 00 0a 00 10 00 50 42 55 46 43 4f 50 5c 45 51 55 5c 2a 00 24 00 14 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 28 00 18 00 50 5c 4c 44 4b 4c 5c 41 33 2c 42 ┆K # t P* $ PBUFCOP EQU * $ P CM ECBBLK+ICR,TCABAS $ ( P LDKL A3,B┆
0x369a…36ea 56 44 55 5c 42 55 46 46 45 52 00 24 00 46 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 62 00 10 00 50 5c 49 46 54 5c 43 4f 50 4c 3d 31 20 00 24 00 82 00 06 00 50 2a 20 00 24 00 96 00 18 00 50 ┆VDU BUFFER $ F P ADR A3,TCABAS ADDRESS $ b P IFT COPL=1 $ P* $ P┆
0x36ea…373a 2a 5c 43 48 45 43 4b 20 49 46 20 43 4f 50 59 20 4c 4f 43 4b 00 24 00 a0 00 06 00 50 2a 20 00 24 00 bc 00 0e 00 50 5c 4c 43 52 5c 41 32 2c 41 33 00 24 00 c6 00 10 00 50 5c 41 4e 4b 5c 41 32 2c 2f 31 38 20 00 24 00 d8 00 10 00 50 5c 58 52 4b ┆* CHECK IF COPY LOCK $ P* $ P LCR A2,A3 $ P ANK A2,/18 $ P XRK┆
0x373a…378a 5c 41 32 2c 2f 31 30 20 00 24 00 ec 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 00 00 08 00 50 5c 58 49 46 00 24 01 20 00 12 00 50 5c 49 46 54 5c 43 4f 50 43 4d 44 3d 31 20 00 24 01 2c 00 30 ┆ A2,/10 $ P RB(Z) VDU100 DON'T COPY $ P XIF $ P IFT COPCMD=1 $ , 0┆
0x378a…37da 00 50 5c 4c 44 4b 5c 41 34 2c 2f 38 42 5c 4f 52 44 45 52 3a 20 57 52 49 54 45 20 41 44 44 52 45 53 53 45 44 20 57 49 54 48 20 57 41 49 54 00 24 01 42 00 20 00 50 5c 4c 44 5c 41 35 2c 49 43 57 4f 52 4b 2c 54 43 41 42 41 53 5c 54 41 53 4b 20 ┆ P LDK A4,/8B ORDER: WRITE ADDRESSED WITH WAIT $ B P LD A5,ICWORK,TCABAS TASK ┆