|
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: 14094 (0x370e)
Notes: pts_type(SC)
Names: »PRT.SC«
└─⟦fce1dcf99⟧ Bits:30009704 Philips computer tape "KMD15"
└─⟦this⟧ »IBM3270/PRT.SC«
IDENT PRT REL 1.2 78-09-15 870150540120
*************************************************************************
*
* 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 HARDCP
ENTRY SNBUSY
ENTRY PRINT
*
*
* EXTERNAL PARAMETERS
*
*
EXTRN DCRED READ DC-LINE
EXTRN UPDATE UPDATE BUFFER CONTENTS
EXTRN REL:BU RELEASE RECEIVE BUFFER
*
EXTRN I:EVA0 CREDIT EVALUATION ROUTINE
*
EXTRN EMULA START
EJECT
*
*
* 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.
*
*
* COMMON EQU FOR ECB HANDLING
*
ECBBA EQU 2
ECBRL EQU 4
ECBEL EQU 6
ECBRC EQU 8
ECBCW EQU 10
EJECT
*
*
* CREDIT USED EQU
*
*
* ECB REL. ADDRESSES
*
*
DIS EQU 20
*
ECB1 EQU -DIS-8
ECB2 EQU ECB1-DIS
ECB3 EQU ECB2-DIS
ECB4 EQU ECB3-DIS
ECB5 EQU ECB4-DIS
*
ECBDC EQU ECB1
ECBDCT EQU ECB2
ECBVDU EQU ECB3
ECBKB EQU ECB4
ECBSD EQU ECB5
ECBPR EQU ECB3
*
*
* BASE ADDRESS FOR TCA AND ECB
*
TCABAS EQU A11
CREBAS EQU A13 ECB
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
DCADDR EQU DCLENG+2 DC SUBTERMINAL ADDRESS
TCTGPL EQU DCADDR+2
INTATT EQU TCTGPL+2 INTENSITY ATTRIBUTE
OFFFLG EQU INTATT+2 OFFLINE FLAG
LOCK EQU OFFFLG+2 COPY LOCK
VDUBSY EQU LOCK+2 VDU BUSY WHEN HARDCOPY
COPNO EQU VDUBSY+2 HARDCOPY TASK IDENTITY
CRE EQU COPNO+2 CREDIT ECB:S BASE ADDRESS
VDUT.A EQU CRE+2 T:A BASE ADDRESS
CCC EQU VDUT.A+2 COPY COMMAND CONTROL CHARACTER
*
*
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
*
*************************************************
*
* CONDITIONAL ASSEMBLY PARAMETERS
*
*****************************************
OFLIN EQU 0 SHOULD ALWAYS BE SET TO ZERO
COPL EQU 0 COPY LOCK IF ::= 1
EBCDIC EQU 1 EBCDIC CODE IF SET TO " ONE ", ELSE ASCII
EJECT
****************************************
*
* SELECT ADDRESS TABLE
*
******************************
SELGTP EQU *
IFT EBCDIC=1 EBCDIC DEVICE ADDRESSES
DATA /D4
DATA /D3
DATA /D2
DATA /D1
DATA /50
DATA /4F
DATA /4E
DATA /4D
DATA /4C
DATA /4B
DATA /4A
DATA /C9
DATA /C8
DATA /C7
DATA /C6
DATA /C5
DATA /C4
DATA /C3
DATA /C2
DATA /C1
DATA /40
XIF
IFF EBCDIC=1 ASCII DEVICE ADDRESSES
DATA /4D
DATA /4C
DATA /4B
DATA /4A
DATA /26
DATA /21
DATA /2B
DATA /28
DATA /3C
DATA /2E
DATA /5B
DATA /49
DATA /48
DATA /47
DATA /46
DATA /45
DATA /44
DATA /43
DATA /42
DATA /41
DATA /20
XIF
EJECT
PRINT EQU *
CF A14,I:EVA0
LDR TCABAS,A9 LOAD ASSEM TCA BASE
CF A14,I:EVA0 GET TASK INDEX
LDR* A9,A9
ADR A9,A9
LD A1,SELGTP,A9 GET SELECT ADDRESS
ST A1,DCADDR,TCABAS
CF A14,EMULA
ST CREBAS,CRE,TCABAS
PRNT:1 LDK A1,0 NO TIMEOUT SUPERVISION
READDC LDKL A8,ECBDCT DATCOM ECB
ADR A8,CREBAS
ST A1,ECBCW,A8 SAVE TIMEOUT VALUE
LDR A1,TCABAS ACTIVATION PARAMETER
LDK A7,X'82' READ ORDER
LKM
DATA -1
DATA PRNT:2 ACTIVATION ADDRESS
LKM EXIT
DATA 3
EJECT
*******************************************************************
*
* GTP-TASK IS ACTIVATED AT THIS ADDRESS WHEN
* THE DC-READ IS TERMINATED
*
***********************************************************************
PRNT:2 LDR TCABAS,A1 WORK AREA BASE ADDRESS
LD CREBAS,CRE,TCABAS T:A BASE ADDRESS
LD A14,2,CREBAS STACK BASE
IFT OFLIN=1
********************************************************
*
* IF OFFLINE SWITCH IS SEY : RELEASE RECEIVE BUFFER
* AND READ AGAIN
*
**********************************************************
LD A1,OFFFLG,TCABAS ONLINE/OFFLINE FLAG
RF(Z) ON:LIN STILL ONLINE
CF A14,REL:BU RELEASE RECEIVE BUFFER
CF A14,SNBUSY SET DEVICE FREE FOR DC-LINE
RB PRNT:1 READ DC AGAIN
ON:LIN EQU *
XIF
LDKL A8,ECBDCT DATCOM ECB-ADDRESS
ADR A8,CREBAS ADD BASE ADDRESS
LD A1,ECBEL,A8 EFFECTIVE LENGTH
ST A1,DCLENG,TCABAS SAVE IT IN SAVE AREA
PRNT:3 CF A14,UPDATE MOVE FROM DC TO PRINTER BUFFER;
IFT COPL=1
LD A1,LOCK,TCABAS COPY LOCK SET ???
RF(Z) PRNT:4 NO. PRINT VDU BUFFER CONTENTS
CM LOCK,TCABAS YES!!! RESET COPY LOCK
CF A14,SNBUSY SET DEVICE FREE FOR DC-LINE
RB PRNT:1 READ DC AGAIN
PRNT:4 EQU *
XIF
LD A1,WCC,TCABAS WRITE CONTROL CHARACTER
ST A1,CCC,TCABAS COPY IT
CF A14,COPY COPY ON PRINTER
CF A14,SNBUSY SET DEVICE NOT BUSY FOR DC
RB PRNT:1 READ AGAIN FROM DC
EJECT
*************************************************************
*
* H A R D C P : HARDCOPY PRINTING
*
* PRINT VDU BUFFER ON HARDCOPY DEVICE
*
***************************************************************
HARDCP LDR TCABAS,A1 VDU WORKBLOCK BASE ADDRESS
LD CREBAS,CRE,TCABAS GTP T:A BASE ADDRESS
LD A14,2,CREBAS STACK POINTER
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
CM VDUBSY,TCABAS SET VDU-TASK FREE
HARD:2 EQU *
LD CREBAS,VDUT.A,TCABAS VDU-TASK BASE ADDRESS
LDK A1,1
XRS A1,KBINH,TCABAS RESET KEYBOARD INHIBIT BIT
LKM EXIT
DATA 3
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
CM* ECBBA,A8 CLEAR BUFFER CONTROL WORD
LD A7,ECBBA,A8
ADK A7,2 PRINt BUFFER ADDRESS
SUR A9,A9 RESET BUFFER INDEX
LDK A3,0
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 CWK A2,/7B
RF(NE) COP143
LDK A2,/2A
***************************************************** 78-08-15
COP143 CWK A2,/61 LOWER CASE CHARACTER ???
RF(L) COP144 NO!!!
SUK A2,/20 CONVERT TO UPPER CASE CHARACTER
******************************************************* 78-08-15
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
ST* A7,ECBBA,A8
LD A7,ECBBA,A8
ADK A7,2 RESTORE BUFFER ADDRESS
SUR A9,A9 RESET CHAR COUNTER
RTN A14
EJECT
*
*
* SET STATUS NOT BUSY FOR DC
*
*
SNBUSY LDK A1,0
LDKL A8,ECBDC
ADR A8,CREBAS
LDK A7,/B8 SET STATUS ORDER
ST A1,ECBCW,A8
LKM
DATA 1
RTN A14
*
*
END
0x0000…0032 (0, 0, 400) Head {h00=0x002e, h01=0x0050, text=» IDENT PRT REL 1.2 78-09-15 870150540120«, t00=0x0000, t01=0x0004}
0x0032…003a Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0036}
0x003a…008c Head {h00=0x004e, h01=0x0050, text=»************************************************************************* «, t00=0x0000, t01=0x003e}
0x008c…0096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0090}
0x0096…00e0 Head {h00=0x0046, h01=0x0050, text=»* P R T : MODULE PRINTING MAIN FRAME MESSAGES ADDRESSED TO THE«, t00=0x0000, t01=0x009a}
0x00e0…0126 Head {h00=0x0042, h01=0x0050, text=»* GENERAL PRINTER. LOCAL HARDCOPY PRINTING IS ALSO «, t00=0x0000, t01=0x00e4}
0x0126…0156 Head {h00=0x002c, h01=0x0050, text=»* CARRIED OUT IN THIS MODULE «, t00=0x0000, t01=0x012a}
0x0156…0160 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015a}
0x0160…01ae Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0000, t01=0x0164}
0x01ae…01b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0022}
0x01b8…01c6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x002c}
0x01c6…01ce Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x003a}
0x01ce…01d6 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0042}
0x01d6…01e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x004a}
0x01e0…01ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0054}
0x01ea…0204 Head {h00=0x0016, h01=0x0050, text=»* ENTRY PARAMETERS«, t00=0x0001, t01=0x005e}
0x0204…020e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0078}
0x020e…0218 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0082}
0x0218…022e Head {h00=0x0012, h01=0x0050, text=» ENTRY HARDCP «, t00=0x0001, t01=0x008c}
0x022e…0244 Head {h00=0x0012, h01=0x0050, text=» ENTRY SNBUSY «, t00=0x0001, t01=0x00a2}
0x0244…0258 Head {h00=0x0010, h01=0x0050, text=» ENTRY PRINT«, t00=0x0001, t01=0x00b8}
0x0258…0262 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00cc}
0x0262…026c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d6}
0x026c…028a Head {h00=0x001a, h01=0x0050, text=»* EXTERNAL PARAMETERS «, t00=0x0001, t01=0x00e0}
0x028a…0294 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00fe}
0x0294…029e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0108}
0x029e…02c0 Head {h00=0x001e, h01=0x0050, text=» EXTRN DCRED READ DC-LINE «, t00=0x0001, t01=0x0112}
0x02c0…02ec Head {h00=0x0028, h01=0x0050, text=» EXTRN UPDATE UPDATE BUFFER CONTENTS«, t00=0x0001, t01=0x0134}
0x02ec…0318 Head {h00=0x0028, h01=0x0050, text=» EXTRN REL:BU RELEASE RECEIVE BUFFER«, t00=0x0001, t01=0x0160}
0x0318…0322 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x018c}
0x0322…0352 Head {h00=0x002c, h01=0x0050, text=» EXTRN I:EVA0 CREDIT EVALUATION ROUTINE «, t00=0x0002, t01=0x0008}
0x0352…035c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0038}
0x035c…0376 Head {h00=0x0016, h01=0x0050, text=» EXTRN EMULA START«, t00=0x0002, t01=0x0042}
0x0376…0384 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x005c}
0x0384…038e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x006a}
0x038e…0398 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0074}
0x0398…03aa Head {h00=0x000e, h01=0x0050, text=»* EQUATES «, t00=0x0002, t01=0x007e}
0x03aa…03b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0090}
0x03b4…03be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x009a}
0x03be…03c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00a4}
0x03c8…03f6 Head {h00=0x002a, h01=0x0050, text=»TIMDC EQU 300 DC TIME OUT VALUE: 30 S «, t00=0x0002, t01=0x00ae}
0x03f6…040a Head {h00=0x0010, h01=0x0050, text=»ESC EQU /1B «, t00=0x0002, t01=0x00dc}
0x040a…041e Head {h00=0x0010, h01=0x0050, text=»SBA EQU /11 «, t00=0x0002, t01=0x00f0}
0x041e…0442 Head {h00=0x0020, h01=0x0050, text=»NULL EQU /7F NULL CHARACTER «, t00=0x0002, t01=0x0104}
0x0442…046c Head {h00=0x0026, h01=0x0050, text=»NEWLIN EQU /7E NEW LINE CHARACTER «, t00=0x0002, t01=0x0128}
0x046c…0494 Head {h00=0x0024, h01=0x0050, text=»ENDMES EQU /7D END MESSAGE CHAR «, t00=0x0002, t01=0x0152}
0x0494…04ba Head {h00=0x0022, h01=0x0050, text=»FORMFD EQU /7C FORMFEED CHAR. «, t00=0x0002, t01=0x017a}
0x04ba…04c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0010}
0x04c4…04ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x001a}
0x04ce…04f4 Head {h00=0x0022, h01=0x0050, text=»* COMMON EQU FOR ECB HANDLING «, t00=0x0003, t01=0x0024}
0x04f4…04fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x004a}
0x04fe…0506 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0054}
0x0506…051a Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0003, t01=0x005c}
0x051a…052e Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0003, t01=0x0070}
0x052e…0542 Head {h00=0x0010, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0003, t01=0x0084}
0x0542…0556 Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0003, t01=0x0098}
0x0556…056a Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU 10«, t00=0x0003, t01=0x00ac}
0x056a…0578 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x00c0}
0x0578…0580 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x00ce}
0x0580…058a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00d6}
0x058a…0594 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00e0}
0x0594…05ae Head {h00=0x0016, h01=0x0050, text=»* CREDIT USED EQU «, t00=0x0003, t01=0x00ea}
0x05ae…05b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0104}
0x05b8…05c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x010e}
0x05c2…05de Head {h00=0x0018, h01=0x0050, text=»* ECB REL. ADDRESSES«, t00=0x0003, t01=0x0118}
0x05de…05e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0134}
0x05e8…05f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x013e}
0x05f2…0604 Head {h00=0x000e, h01=0x0050, text=»DIS EQU 20«, t00=0x0003, t01=0x0148}
0x0604…060e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x015a}
0x060e…0626 Head {h00=0x0014, h01=0x0050, text=»ECB1 EQU -DIS-8 «, t00=0x0003, t01=0x0164}
0x0626…0640 Head {h00=0x0016, h01=0x0050, text=»ECB2 EQU ECB1-DIS «, t00=0x0003, t01=0x017c}
0x0640…065a Head {h00=0x0016, h01=0x0050, text=»ECB3 EQU ECB2-DIS «, t00=0x0004, t01=0x0008}
0x065a…0674 Head {h00=0x0016, h01=0x0050, text=»ECB4 EQU ECB3-DIS «, t00=0x0004, t01=0x0022}
0x0674…068e Head {h00=0x0016, h01=0x0050, text=»ECB5 EQU ECB4-DIS «, t00=0x0004, t01=0x003c}
0x068e…0698 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0056}
0x0698…06ae Head {h00=0x0012, h01=0x0050, text=»ECBDC EQU ECB1«, t00=0x0004, t01=0x0060}
0x06ae…06c6 Head {h00=0x0014, h01=0x0050, text=»ECBDCT EQU ECB2 «, t00=0x0004, t01=0x0076}
0x06c6…06de Head {h00=0x0014, h01=0x0050, text=»ECBVDU EQU ECB3 «, t00=0x0004, t01=0x008e}
0x06de…06f4 Head {h00=0x0012, h01=0x0050, text=»ECBKB EQU ECB4«, t00=0x0004, t01=0x00a6}
0x06f4…070a Head {h00=0x0012, h01=0x0050, text=»ECBSD EQU ECB5«, t00=0x0004, t01=0x00bc}
0x070a…0720 Head {h00=0x0012, h01=0x0050, text=»ECBPR EQU ECB3«, t00=0x0004, t01=0x00d2}
0x0720…072a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00e8}
0x072a…0734 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00f2}
0x0734…075a Head {h00=0x0022, h01=0x0050, text=»* BASE ADDRESS FOR TCA AND ECB«, t00=0x0004, t01=0x00fc}
0x075a…0764 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0122}
0x0764…077a Head {h00=0x0012, h01=0x0050, text=»TCABAS EQU A11«, t00=0x0004, t01=0x012c}
0x077a…0794 Head {h00=0x0016, h01=0x0050, text=»CREBAS EQU A13 ECB«, t00=0x0004, t01=0x0142}
0x0794…07a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x015c}
0x07a2…07aa Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x016a}
0x07aa…07b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0172}
0x07b4…07be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x017c}
0x07be…07da Head {h00=0x0018, h01=0x0050, text=»* TCA REL. ADDRESSES«, t00=0x0004, t01=0x0186}
0x07da…07e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0012}
0x07e4…07f8 Head {h00=0x0010, h01=0x0050, text=»TCT01 EQU 0 «, t00=0x0005, t01=0x001c}
0x07f8…0814 Head {h00=0x0018, h01=0x0050, text=»PRINTER EQU TCT01+2 «, t00=0x0005, t01=0x0030}
0x0814…0840 Head {h00=0x0028, h01=0x0050, text=»BVDU EQU PRINTER+2 VDU SCREEN BUFFER«, t00=0x0005, t01=0x004c}
0x0840…0874 Head {h00=0x0030, h01=0x0050, text=»PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY «, t00=0x0005, t01=0x0078}
0x0874…08a2 Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x0005, t01=0x00ac}
0x08a2…08be Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x0005, t01=0x00da}
0x08be…08e8 Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x0005, t01=0x00f6}
0x08e8…091a Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x0005, t01=0x0120}
0x091a…0942 Head {h00=0x0024, h01=0x0050, text=»LINCNT EQU KBINH+2 LINE COUNTER «, t00=0x0005, t01=0x0152}
0x0942…0976 Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH«, t00=0x0005, t01=0x017a}
0x0976…09a8 Head {h00=0x002e, h01=0x0050, text=»DCADDR EQU DCLENG+2 DC SUBTERMINAL ADDRESS«, t00=0x0006, t01=0x001e}
0x09a8…09c4 Head {h00=0x0018, h01=0x0050, text=»TCTGPL EQU DCADDR+2 «, t00=0x0006, t01=0x0050}
0x09c4…09f4 Head {h00=0x002c, h01=0x0050, text=»INTATT EQU TCTGPL+2 INTENSITY ATTRIBUTE «, t00=0x0006, t01=0x006c}
0x09f4…0a1c Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU INTATT+2 OFFLINE FLAG«, t00=0x0006, t01=0x009c}
0x0a1c…0a40 Head {h00=0x0020, h01=0x0050, text=»LOCK EQU OFFFLG+2 COPY LOCK «, t00=0x0006, t01=0x00c4}
0x0a40…0a70 Head {h00=0x002c, h01=0x0050, text=»VDUBSY EQU LOCK+2 VDU BUSY WHEN HARDCOPY«, t00=0x0006, t01=0x00e8}
0x0a70…0aa2 Head {h00=0x002e, h01=0x0050, text=»COPNO EQU VDUBSY+2 HARDCOPY TASK IDENTITY «, t00=0x0006, t01=0x0118}
0x0aa2…0ad4 Head {h00=0x002e, h01=0x0050, text=»CRE EQU COPNO+2 CREDIT ECB:S BASE ADDRESS «, t00=0x0006, t01=0x014a}
0x0ad4…0afe Head {h00=0x0026, h01=0x0050, text=»VDUT.A EQU CRE+2 T:A BASE ADDRESS «, t00=0x0006, t01=0x017c}
0x0afe…0b36 Head {h00=0x0034, h01=0x0050, text=»CCC EQU VDUT.A+2 COPY COMMAND CONTROL CHARACTER «, t00=0x0007, t01=0x0016}
0x0b36…0b40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x004e}
0x0b40…0b4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0058}
0x0b4a…0b88 Head {h00=0x003a, h01=0x0050, text=»PRBUSY EQU -2 PRINTER BUSY. OCCUPIES BOOLEAN VARAIBLE «, t00=0x0007, t01=0x0062}
0x0b88…0b96 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00a0}
0x0b96…0b9e Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x00ae}
0x0b9e…0ba8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00b6}
0x0ba8…0bb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c0}
0x0bb2…0be0 Head {h00=0x002a, h01=0x0050, text=»LBVDU EQU 1920 1920 CHARACTER DISPLAY «, t00=0x0007, t01=0x00ca}
0x0be0…0c06 Head {h00=0x0022, h01=0x0050, text=»LPAGE EQU 48 LINES ON ONE PAGE«, t00=0x0007, t01=0x00f8}
0x0c06…0c44 Head {h00=0x003a, h01=0x0050, text=»GTPLIN EQU 112 LINELENGTH MAX 112 CHAR. 'NL' ORDER IN «, t00=0x0007, t01=0x011e}
0x0c44…0c74 Head {h00=0x002c, h01=0x0050, text=»* BUFFER DETERMINES PRINT LINE LENGTH «, t00=0x0007, t01=0x015c}
0x0c74…0c7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x018c}
0x0c7e…0c86 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0008}
0x0c86…0cc0 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0008, t01=0x0010}
0x0cc0…0cca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x004a}
0x0cca…0cf6 Head {h00=0x0028, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS «, t00=0x0008, t01=0x0054}
0x0cf6…0d00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0080}
0x0d00…0d32 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0008, t01=0x008a}
0x0d32…0d3a Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x00bc}
0x0d3a…0d6a Head {h00=0x002c, h01=0x0050, text=»OFLIN EQU 0 SHOULD ALWAYS BE SET TO ZERO«, t00=0x0008, t01=0x00c4}
0x0d6a…0d90 Head {h00=0x0022, h01=0x0050, text=»COPL EQU 0 COPY LOCK IF ::= 1 «, t00=0x0008, t01=0x00f4}
0x0d90…0dce Head {h00=0x003a, h01=0x0050, text=»EBCDIC EQU 1 EBCDIC CODE IF SET TO " ONE ", ELSE ASCII«, t00=0x0008, t01=0x011a}
0x0dce…0dd6 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0158}
0x0dd6…0de4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0160}
0x0de4…0dec Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x016e}
0x0dec…0e1c Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0008, t01=0x0176}
0x0e1c…0e26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0016}
0x0e26…0e46 Head {h00=0x001c, h01=0x0050, text=»* SELECT ADDRESS TABLE«, t00=0x0009, t01=0x0020}
0x0e46…0e50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0040}
0x0e50…0e76 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0009, t01=0x004a}
0x0e76…0e7e Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0070}
0x0e7e…0e92 Head {h00=0x0010, h01=0x0050, text=»SELGTP EQU *«, t00=0x0009, t01=0x0078}
0x0e92…0ec0 Head {h00=0x002a, h01=0x0050, text=» IFT EBCDIC=1 EBCDIC DEVICE ADDRESSES «, t00=0x0009, t01=0x008c}
0x0ec0…0ed2 Head {h00=0x000e, h01=0x0050, text=» DATA /D4 «, t00=0x0009, t01=0x00ba}
0x0ed2…0ee4 Head {h00=0x000e, h01=0x0050, text=» DATA /D3 «, t00=0x0009, t01=0x00cc}
0x0ee4…0ef6 Head {h00=0x000e, h01=0x0050, text=» DATA /D2 «, t00=0x0009, t01=0x00de}
0x0ef6…0f08 Head {h00=0x000e, h01=0x0050, text=» DATA /D1 «, t00=0x0009, t01=0x00f0}
0x0f08…0f1a Head {h00=0x000e, h01=0x0050, text=» DATA /50 «, t00=0x0009, t01=0x0102}
0x0f1a…0f2c Head {h00=0x000e, h01=0x0050, text=» DATA /4F «, t00=0x0009, t01=0x0114}
0x0f2c…0f3e Head {h00=0x000e, h01=0x0050, text=» DATA /4E «, t00=0x0009, t01=0x0126}
0x0f3e…0f50 Head {h00=0x000e, h01=0x0050, text=» DATA /4D «, t00=0x0009, t01=0x0138}
0x0f50…0f62 Head {h00=0x000e, h01=0x0050, text=» DATA /4C «, t00=0x0009, t01=0x014a}
0x0f62…0f74 Head {h00=0x000e, h01=0x0050, text=» DATA /4B «, t00=0x0009, t01=0x015c}
0x0f74…0f86 Head {h00=0x000e, h01=0x0050, text=» DATA /4A «, t00=0x0009, t01=0x016e}
0x0f86…0f98 Head {h00=0x000e, h01=0x0050, text=» DATA /C9 «, t00=0x0009, t01=0x0180}
0x0f98…0faa (10, 0, 400) Head {h00=0x000e, h01=0x0050, text=» DATA /C8 «, t00=0x000a, t01=0x0004}
0x0faa…0fbc Head {h00=0x000e, h01=0x0050, text=» DATA /C7 «, t00=0x000a, t01=0x0016}
0x0fbc…0fce Head {h00=0x000e, h01=0x0050, text=» DATA /C6 «, t00=0x000a, t01=0x0028}
0x0fce…0fe0 Head {h00=0x000e, h01=0x0050, text=» DATA /C5 «, t00=0x000a, t01=0x003a}
0x0fe0…0ff2 Head {h00=0x000e, h01=0x0050, text=» DATA /C4 «, t00=0x000a, t01=0x004c}
0x0ff2…1004 Head {h00=0x000e, h01=0x0050, text=» DATA /C3 «, t00=0x000a, t01=0x005e}
0x1004…1016 Head {h00=0x000e, h01=0x0050, text=» DATA /C2 «, t00=0x000a, t01=0x0070}
0x1016…1028 Head {h00=0x000e, h01=0x0050, text=» DATA /C1 «, t00=0x000a, t01=0x0082}
0x1028…103a Head {h00=0x000e, h01=0x0050, text=» DATA /40 «, t00=0x000a, t01=0x0094}
0x103a…1046 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x00a6}
0x1046…104e Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00b2}
0x104e…107a Head {h00=0x0028, h01=0x0050, text=» IFF EBCDIC=1 ASCII DEVICE ADDRESSES«, t00=0x000a, t01=0x00ba}
0x107a…108c Head {h00=0x000e, h01=0x0050, text=» DATA /4D «, t00=0x000a, t01=0x00e6}
0x108c…109e Head {h00=0x000e, h01=0x0050, text=» DATA /4C «, t00=0x000a, t01=0x00f8}
0x109e…10b0 Head {h00=0x000e, h01=0x0050, text=» DATA /4B «, t00=0x000a, t01=0x010a}
0x10b0…10c2 Head {h00=0x000e, h01=0x0050, text=» DATA /4A «, t00=0x000a, t01=0x011c}
0x10c2…10d4 Head {h00=0x000e, h01=0x0050, text=» DATA /26 «, t00=0x000a, t01=0x012e}
0x10d4…10e6 Head {h00=0x000e, h01=0x0050, text=» DATA /21 «, t00=0x000a, t01=0x0140}
0x10e6…10f8 Head {h00=0x000e, h01=0x0050, text=» DATA /2B «, t00=0x000a, t01=0x0152}
0x10f8…110a Head {h00=0x000e, h01=0x0050, text=» DATA /28 «, t00=0x000a, t01=0x0164}
0x110a…111c Head {h00=0x000e, h01=0x0050, text=» DATA /3C «, t00=0x000a, t01=0x0176}
0x111c…112e Head {h00=0x000e, h01=0x0050, text=» DATA /2E «, t00=0x000a, t01=0x0188}
0x112e…1140 Head {h00=0x000e, h01=0x0050, text=» DATA /5B «, t00=0x000b, t01=0x000a}
0x1140…1152 Head {h00=0x000e, h01=0x0050, text=» DATA /49 «, t00=0x000b, t01=0x001c}
0x1152…1164 Head {h00=0x000e, h01=0x0050, text=» DATA /48 «, t00=0x000b, t01=0x002e}
0x1164…1176 Head {h00=0x000e, h01=0x0050, text=» DATA /47 «, t00=0x000b, t01=0x0040}
0x1176…1188 Head {h00=0x000e, h01=0x0050, text=» DATA /46 «, t00=0x000b, t01=0x0052}
0x1188…119a Head {h00=0x000e, h01=0x0050, text=» DATA /45 «, t00=0x000b, t01=0x0064}
0x119a…11ac Head {h00=0x000e, h01=0x0050, text=» DATA /44 «, t00=0x000b, t01=0x0076}
0x11ac…11be Head {h00=0x000e, h01=0x0050, text=» DATA /43 «, t00=0x000b, t01=0x0088}
0x11be…11d0 Head {h00=0x000e, h01=0x0050, text=» DATA /42 «, t00=0x000b, t01=0x009a}
0x11d0…11e2 Head {h00=0x000e, h01=0x0050, text=» DATA /41 «, t00=0x000b, t01=0x00ac}
0x11e2…11f4 Head {h00=0x000e, h01=0x0050, text=» DATA /20 «, t00=0x000b, t01=0x00be}
0x11f4…1200 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x00d0}
0x1200…120e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x00dc}
0x120e…1222 Head {h00=0x0010, h01=0x0050, text=»PRINT EQU * «, t00=0x000b, t01=0x00ea}
0x1222…1238 Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x000b, t01=0x00fe}
0x1238…1262 Head {h00=0x0026, h01=0x0050, text=» LDR TCABAS,A9 LOAD ASSEM TCA BASE«, t00=0x000b, t01=0x0114}
0x1262…1288 Head {h00=0x0022, h01=0x0050, text=» CF A14,I:EVA0 GET TASK INDEX «, t00=0x000b, t01=0x013e}
0x1288…129c Head {h00=0x0010, h01=0x0050, text=» LDR* A9,A9 «, t00=0x000b, t01=0x0164}
0x129c…12ae Head {h00=0x000e, h01=0x0050, text=» ADR A9,A9«, t00=0x000b, t01=0x0178}
0x12ae…12da Head {h00=0x0028, h01=0x0050, text=» LD A1,SELGTP,A9 GET SELECT ADDRESS «, t00=0x000b, t01=0x018a}
0x12da…12f6 Head {h00=0x0018, h01=0x0050, text=» ST A1,DCADDR,TCABAS«, t00=0x000c, t01=0x0026}
0x12f6…130c Head {h00=0x0012, h01=0x0050, text=» CF A14,EMULA «, t00=0x000c, t01=0x0042}
0x130c…132a Head {h00=0x001a, h01=0x0050, text=» ST CREBAS,CRE,TCABAS «, t00=0x000c, t01=0x0058}
0x132a…1332 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0076}
0x1332…1360 Head {h00=0x002a, h01=0x0050, text=»PRNT:1 LDK A1,0 NO TIMEOUT SUPERVISION«, t00=0x000c, t01=0x007e}
0x1360…1368 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x00ac}
0x1368…1370 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x00b4}
0x1370…1398 Head {h00=0x0024, h01=0x0050, text=»READDC LDKL A8,ECBDCT DATCOM ECB«, t00=0x000c, t01=0x00bc}
0x1398…13ae Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x000c, t01=0x00e4}
0x13ae…13d8 Head {h00=0x0026, h01=0x0050, text=» ST A1,ECBCW,A8 SAVE TIMEOUT VALUE«, t00=0x000c, t01=0x00fa}
0x13d8…13e0 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0124}
0x13e0…140c Head {h00=0x0028, h01=0x0050, text=» LDR A1,TCABAS ACTIVATION PARAMETER «, t00=0x000c, t01=0x012c}
0x140c…142c Head {h00=0x001c, h01=0x0050, text=» LDK A7,X'82' READ ORDER«, t00=0x000c, t01=0x0158}
0x142c…1438 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x000c, t01=0x0178}
0x1438…1448 Head {h00=0x000c, h01=0x0050, text=» DATA -1«, t00=0x000c, t01=0x0184}
0x1448…1470 (13, 0, 400) Head {h00=0x0024, h01=0x0050, text=» DATA PRNT:2 ACTIVATION ADDRESS «, t00=0x000d, t01=0x0004}
0x1470…1478 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x002c}
0x1478…148a Head {h00=0x000e, h01=0x0050, text=» LKM EXIT«, t00=0x000d, t01=0x0034}
0x148a…149a Head {h00=0x000c, h01=0x0050, text=» DATA 3 «, t00=0x000d, t01=0x0046}
0x149a…14a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0056}
0x14a8…14b0 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0064}
0x14b0…14b8 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x006c}
0x14b8…1504 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x000d, t01=0x0074}
0x1504…150e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00c0}
0x150e…1544 Head {h00=0x0032, h01=0x0050, text=»* GTP-TASK IS ACTIVATED AT THIS ADDRESS WHEN«, t00=0x000d, t01=0x00ca}
0x1544…156a Head {h00=0x0022, h01=0x0050, text=»* THE DC-READ IS TERMINATED «, t00=0x000d, t01=0x0100}
0x156a…1574 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0126}
0x1574…15c4 Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x000d, t01=0x0130}
0x15c4…15cc Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0180}
0x15cc…15d4 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0188}
0x15d4…15dc Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0190}
0x15dc…1610 Head {h00=0x0030, h01=0x0050, text=»PRNT:2 LDR TCABAS,A1 WORK AREA BASE ADDRESS «, t00=0x000e, t01=0x0008}
0x1610…163e Head {h00=0x002a, h01=0x0050, text=» LD CREBAS,CRE,TCABAS T:A BASE ADDRESS«, t00=0x000e, t01=0x003c}
0x163e…1662 Head {h00=0x0020, h01=0x0050, text=» LD A14,2,CREBAS STACK BASE «, t00=0x000e, t01=0x006a}
0x1662…166a Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x008e}
0x166a…1672 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0096}
0x1672…1686 Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x000e, t01=0x009e}
0x1686…16c6 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x000e, t01=0x00b2}
0x16c6…16d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00f2}
0x16d0…170e Head {h00=0x003a, h01=0x0050, text=»* IF OFFLINE SWITCH IS SEY : RELEASE RECEIVE BUFFER «, t00=0x000e, t01=0x00fc}
0x170e…1744 Head {h00=0x0032, h01=0x0050, text=»* AND READ AGAIN «, t00=0x000e, t01=0x013a}
0x1744…174e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0170}
0x174e…1790 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x000e, t01=0x017a}
0x1790…1798 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x002c}
0x1798…17c8 Head {h00=0x002c, h01=0x0050, text=» LD A1,OFFFLG,TCABAS ONLINE/OFFLINE FLAG«, t00=0x000f, t01=0x0034}
0x17c8…17ea Head {h00=0x001e, h01=0x0050, text=» RF(Z) ON:LIN STILL ONLINE«, t00=0x000f, t01=0x0064}
0x17ea…1818 Head {h00=0x002a, h01=0x0050, text=» CF A14,REL:BU RELEASE RECEIVE BUFFER «, t00=0x000f, t01=0x0086}
0x1818…184a Head {h00=0x002e, h01=0x0050, text=» CF A14,SNBUSY SET DEVICE FREE FOR DC-LINE«, t00=0x000f, t01=0x00b4}
0x184a…186a Head {h00=0x001c, h01=0x0050, text=» RB PRNT:1 READ DC AGAIN«, t00=0x000f, t01=0x00e6}
0x186a…187e Head {h00=0x0010, h01=0x0050, text=»ON:LIN EQU *«, t00=0x000f, t01=0x0106}
0x187e…188a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x011a}
0x188a…1892 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0126}
0x1892…189a Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x012e}
0x189a…18a2 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0136}
0x18a2…18cc Head {h00=0x0026, h01=0x0050, text=» LDKL A8,ECBDCT DATCOM ECB-ADDRESS«, t00=0x000f, t01=0x013e}
0x18cc…18f4 Head {h00=0x0024, h01=0x0050, text=» ADR A8,CREBAS ADD BASE ADDRESS «, t00=0x000f, t01=0x0168}
0x18f4…18fc Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0190}
0x18fc…1904 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x0008}
0x1904…190c Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x0010}
0x190c…1934 Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBEL,A8 EFFECTIVE LENGTH«, t00=0x0010, t01=0x0018}
0x1934…1966 Head {h00=0x002e, h01=0x0050, text=» ST A1,DCLENG,TCABAS SAVE IT IN SAVE AREA «, t00=0x0010, t01=0x0040}
0x1966…196e Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x0072}
0x196e…19aa Head {h00=0x0038, h01=0x0050, text=»PRNT:3 CF A14,UPDATE MOVE FROM DC TO PRINTER BUFFER;«, t00=0x0010, t01=0x007a}
0x19aa…19b2 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x00b6}
0x19b2…19c6 Head {h00=0x0010, h01=0x0050, text=» IFT COPL=1 «, t00=0x0010, t01=0x00be}
0x19c6…19f2 Head {h00=0x0028, h01=0x0050, text=» LD A1,LOCK,TCABAS COPY LOCK SET ???«, t00=0x0010, t01=0x00d2}
0x19f2…1a26 Head {h00=0x0030, h01=0x0050, text=» RF(Z) PRNT:4 NO. PRINT VDU BUFFER CONTENTS «, t00=0x0010, t01=0x00fe}
0x1a26…1a54 Head {h00=0x002a, h01=0x0050, text=» CM LOCK,TCABAS YES!!! RESET COPY LOCK«, t00=0x0010, t01=0x0132}
0x1a54…1a86 Head {h00=0x002e, h01=0x0050, text=» CF A14,SNBUSY SET DEVICE FREE FOR DC-LINE«, t00=0x0010, t01=0x0160}
0x1a86…1aa6 (17, 0, 400) Head {h00=0x001c, h01=0x0050, text=» RB PRNT:1 READ DC AGAIN«, t00=0x0011, t01=0x0004}
0x1aa6…1aba Head {h00=0x0010, h01=0x0050, text=»PRNT:4 EQU *«, t00=0x0011, t01=0x0024}
0x1aba…1ac2 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x0038}
0x1ac2…1ace Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0040}
0x1ace…1ad6 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x004c}
0x1ad6…1ade Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x0054}
0x1ade…1b10 Head {h00=0x002e, h01=0x0050, text=» LD A1,WCC,TCABAS WRITE CONTROL CHARACTER «, t00=0x0011, t01=0x005c}
0x1b10…1b32 Head {h00=0x001e, h01=0x0050, text=» ST A1,CCC,TCABAS COPY IT «, t00=0x0011, t01=0x008e}
0x1b32…1b56 Head {h00=0x0020, h01=0x0050, text=» CF A14,COPY COPY ON PRINTER«, t00=0x0011, t01=0x00b0}
0x1b56…1b88 Head {h00=0x002e, h01=0x0050, text=» CF A14,SNBUSY SET DEVICE NOT BUSY FOR DC «, t00=0x0011, t01=0x00d4}
0x1b88…1bae Head {h00=0x0022, h01=0x0050, text=» RB PRNT:1 READ AGAIN FROM DC «, t00=0x0011, t01=0x0106}
0x1bae…1bbc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x012c}
0x1bbc…1bc4 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x013a}
0x1bc4…1bcc Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x0142}
0x1bcc…1c12 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0011, t01=0x014a}
0x1c12…1c1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0190}
0x1c1c…1c4c Head {h00=0x002c, h01=0x0050, text=»* H A R D C P : HARDCOPY PRINTING «, t00=0x0012, t01=0x000a}
0x1c4c…1c56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x003a}
0x1c56…1c98 Head {h00=0x003e, h01=0x0050, text=»* PRINT VDU BUFFER ON HARDCOPY DEVICE «, t00=0x0012, t01=0x0044}
0x1c98…1ca2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0086}
0x1ca2…1cea Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0012, t01=0x0090}
0x1cea…1cf2 Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x00d8}
0x1cf2…1d2a Head {h00=0x0034, h01=0x0050, text=»HARDCP LDR TCABAS,A1 VDU WORKBLOCK BASE ADDRESS «, t00=0x0012, t01=0x00e0}
0x1d2a…1d5c Head {h00=0x002e, h01=0x0050, text=» LD CREBAS,CRE,TCABAS GTP T:A BASE ADDRESS«, t00=0x0012, t01=0x0118}
0x1d5c…1d82 Head {h00=0x0022, h01=0x0050, text=» LD A14,2,CREBAS STACK POINTER«, t00=0x0012, t01=0x014a}
0x1d82…1d8a Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x0170}
0x1d8a…1db8 Head {h00=0x002a, h01=0x0050, text=» LDK A1,X'38' PRINT BIT, 80 CHAR./LINE«, t00=0x0012, t01=0x0178}
0x1db8…1df0 Head {h00=0x0034, h01=0x0050, text=» ST A1,CCC,TCABAS SAVE AS COPY CONTROL CHARACTER«, t00=0x0013, t01=0x0016}
0x1df0…1e1e Head {h00=0x002a, h01=0x0050, text=» CF A14,COPY PRINT ON HARDCOPY DEVICE «, t00=0x0013, t01=0x004e}
0x1e1e…1e26 Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x007c}
0x1e26…1e52 Head {h00=0x0028, h01=0x0050, text=» CM VDUBSY,TCABAS SET VDU-TASK FREE «, t00=0x0013, t01=0x0084}
0x1e52…1e5a Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x00b0}
0x1e5a…1e6e Head {h00=0x0010, h01=0x0050, text=»HARD:2 EQU *«, t00=0x0013, t01=0x00b8}
0x1e6e…1e76 Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x00cc}
0x1e76…1eac Head {h00=0x0032, h01=0x0050, text=» LD CREBAS,VDUT.A,TCABAS VDU-TASK BASE ADDRESS«, t00=0x0013, t01=0x00d4}
0x1eac…1ebe Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x0013, t01=0x010a}
0x1ebe…1ef6 Head {h00=0x0034, h01=0x0050, text=» XRS A1,KBINH,TCABAS RESET KEYBOARD INHIBIT BIT «, t00=0x0013, t01=0x011c}
0x1ef6…1efe Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x0154}
0x1efe…1f10 Head {h00=0x000e, h01=0x0050, text=» LKM EXIT«, t00=0x0013, t01=0x015c}
0x1f10…1f20 Head {h00=0x000c, h01=0x0050, text=» DATA 3 «, t00=0x0013, t01=0x016e}
0x1f20…1f2e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x017e}
0x1f2e…1f38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x018c}
0x1f38…1f42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0008}
0x1f42…1f74 Head {h00=0x002e, h01=0x0050, text=»* PRINT THE CONTENTS OF THE PRINTER BUFFER«, t00=0x0014, t01=0x0012}
0x1f74…1f7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0044}
0x1f7e…1f88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x004e}
0x1f88…1fca Head {h00=0x003e, h01=0x0050, text=»LINLEN DATA /0028,/4050 LINE LENGTHS /40, 64 AND 80 CHARS «, t00=0x0014, t01=0x0058}
0x1fca…1fd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x009a}
0x1fd4…1fde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00a4}
0x1fde…1ff8 Head {h00=0x0016, h01=0x0050, text=»COPY LDKL A8,ECBPR«, t00=0x0014, t01=0x00ae}
0x1ff8…201a Head {h00=0x001e, h01=0x0050, text=» ADR A8,CREBAS PRINTER ECB«, t00=0x0014, t01=0x00c8}
0x201a…204a Head {h00=0x002c, h01=0x0050, text=» CM* ECBBA,A8 CLEAR BUFFER CONTROL WORD «, t00=0x0014, t01=0x00ea}
0x204a…2062 Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBBA,A8 «, t00=0x0014, t01=0x011a}
0x2062…2088 Head {h00=0x0022, h01=0x0050, text=» ADK A7,2 PRINt BUFFER ADDRESS«, t00=0x0014, t01=0x0132}
0x2088…20ae Head {h00=0x0022, h01=0x0050, text=» SUR A9,A9 RESET BUFFER INDEX «, t00=0x0014, t01=0x0158}
0x20ae…20c0 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0014, t01=0x017e}
0x20c0…20d6 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0014, t01=0x0190}
0x20d6…20ec Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0015, t01=0x0016}
0x20ec…2112 Head {h00=0x0022, h01=0x0050, text=» LD A2,CCC,TCABAS GET CCC/CCC «, t00=0x0015, t01=0x002c}
0x2112…2126 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/08 «, t00=0x0015, t01=0x0052}
0x2126…2152 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) COP100 START PRINTER BIT SET«, t00=0x0015, t01=0x0066}
0x2152…2168 Head {h00=0x0012, h01=0x0050, text=»COPRTN RTN A14«, t00=0x0015, t01=0x0092}
0x2168…217c Head {h00=0x0010, h01=0x0050, text=»COP100 EQU *«, t00=0x0015, t01=0x00a8}
0x217c…2196 Head {h00=0x0016, h01=0x0050, text=» LD A2,CCC,TCABAS «, t00=0x0015, t01=0x00bc}
0x2196…21aa Head {h00=0x0010, h01=0x0050, text=» ANK A2,/30 «, t00=0x0015, t01=0x00d6}
0x21aa…21da Head {h00=0x002c, h01=0x0050, text=» ABL(Z) COP111 NL DETERMINES LINE LENGTH«, t00=0x0015, t01=0x00ea}
0x21da…21ec Head {h00=0x000e, h01=0x0050, text=» SRL A2,4 «, t00=0x0015, t01=0x011a}
0x21ec…21fe Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0015, t01=0x012c}
0x21fe…2226 Head {h00=0x0024, h01=0x0050, text=» LC A6,LINLEN,A2 GET LINE LENGTH«, t00=0x0015, t01=0x013e}
0x2226…223e Head {h00=0x0014, h01=0x0050, text=»COP110 CWR A9,A6«, t00=0x0015, t01=0x0166}
0x223e…2254 Head {h00=0x0012, h01=0x0050, text=» RF(L) COP120 «, t00=0x0015, t01=0x017e}
0x2254…2284 (22, 0, 400) Head {h00=0x002c, h01=0x0050, text=»COP115 CF A14,PRLINE LINE FULL: PRINT IT«, t00=0x0016, t01=0x0004}
0x2284…2296 Head {h00=0x000e, h01=0x0050, text=» RB COP110«, t00=0x0016, t01=0x0034}
0x2296…22b2 Head {h00=0x0018, h01=0x0050, text=»COP120 CWK A3,LBVDU «, t00=0x0016, t01=0x0046}
0x22b2…22da Head {h00=0x0024, h01=0x0050, text=» ABL(NL) COP300 PRINT LAST LINE «, t00=0x0016, t01=0x0062}
0x22da…22ec Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0016, t01=0x008a}
0x22ec…2312 Head {h00=0x0022, h01=0x0050, text=» ANK A2,/7F RESET DISPLAY BIT «, t00=0x0016, t01=0x009c}
0x2312…2324 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x0016, t01=0x00c2}
0x2324…2338 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0016, t01=0x00d4}
0x2338…234e Head {h00=0x0012, h01=0x0050, text=» RF(NL) COP130«, t00=0x0016, t01=0x00e8}
0x234e…2362 Head {h00=0x0010, h01=0x0050, text=»COP123 EQU *«, t00=0x0016, t01=0x00fe}
0x2362…2374 Head {h00=0x000e, h01=0x0050, text=» ANK A2,6 «, t00=0x0016, t01=0x0112}
0x2374…2386 Head {h00=0x000e, h01=0x0050, text=» XRK A2,6 «, t00=0x0016, t01=0x0124}
0x2386…239c Head {h00=0x0012, h01=0x0050, text=» RF(Z) COP150 «, t00=0x0016, t01=0x0136}
0x239c…23cc Head {h00=0x002c, h01=0x0050, text=»COP125 LDK A2,/20 REPLACE ATTR BY SPACE «, t00=0x0016, t01=0x014c}
0x23cc…23de Head {h00=0x000e, h01=0x0050, text=» RF COP140«, t00=0x0016, t01=0x017c}
0x23de…23f8 Head {h00=0x0016, h01=0x0050, text=»COP130 CWK A2,NULL«, t00=0x0016, t01=0x018e}
0x23f8…2424 Head {h00=0x0028, h01=0x0050, text=» RB(E) COP125 REPLACE NULL BY SPACE «, t00=0x0017, t01=0x0018}
0x2424…2438 Head {h00=0x0010, h01=0x0050, text=»COP140 EQU *«, t00=0x0017, t01=0x0044}
0x2438…244c Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7D «, t00=0x0017, t01=0x0058}
0x244c…2462 Head {h00=0x0012, h01=0x0050, text=» RF(NE) COP141«, t00=0x0017, t01=0x006c}
0x2462…2476 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/39 «, t00=0x0017, t01=0x0082}
0x2476…2490 Head {h00=0x0016, h01=0x0050, text=»COP141 CWK A2,/7E «, t00=0x0017, t01=0x0096}
0x2490…24a6 Head {h00=0x0012, h01=0x0050, text=» RF(NE) COP142«, t00=0x0017, t01=0x00b0}
0x24a6…24ba Head {h00=0x0010, h01=0x0050, text=» LDK A2,/35 «, t00=0x0017, t01=0x00c6}
0x24ba…24d4 Head {h00=0x0016, h01=0x0050, text=»COP142 CWK A2,/7B «, t00=0x0017, t01=0x00da}
0x24d4…24ea Head {h00=0x0012, h01=0x0050, text=» RF(NE) COP143«, t00=0x0017, t01=0x00f4}
0x24ea…24fe Head {h00=0x0010, h01=0x0050, text=» LDK A2,/2A «, t00=0x0017, t01=0x010a}
0x24fe…2546 Head {h00=0x0044, h01=0x0050, text=»***************************************************** 78-08-15 «, t00=0x0017, t01=0x011e}
0x2546…2578 Head {h00=0x002e, h01=0x0050, text=»COP143 CWK A2,/61 LOWER CASE CHARACTER ???«, t00=0x0017, t01=0x0166}
0x2578…2594 Head {h00=0x0018, h01=0x0050, text=» RF(L) COP144 NO!!! «, t00=0x0018, t01=0x0008}
0x2594…25c8 Head {h00=0x0030, h01=0x0050, text=» SUK A2,/20 CONVERT TO UPPER CASE CHARACTER «, t00=0x0018, t01=0x0024}
0x25c8…2612 Head {h00=0x0046, h01=0x0050, text=»******************************************************* 78-08-15 «, t00=0x0018, t01=0x0058}
0x2612…262a Head {h00=0x0014, h01=0x0050, text=»COP144 SCR A2,A7«, t00=0x0018, t01=0x00a2}
0x262a…263c Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0018, t01=0x00ba}
0x263c…264e Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0018, t01=0x00cc}
0x264e…2660 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0018, t01=0x00de}
0x2660…2672 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0018, t01=0x00f0}
0x2672…2684 Head {h00=0x000e, h01=0x0050, text=» RB COP110«, t00=0x0018, t01=0x0102}
0x2684…26b4 Head {h00=0x002c, h01=0x0050, text=»COP150 LDK A2,/20 SPACE INSTEAD OF TEXT «, t00=0x0018, t01=0x0114}
0x26b4…26c6 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A7«, t00=0x0018, t01=0x0144}
0x26c6…26d8 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0018, t01=0x0156}
0x26d8…26ea Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0018, t01=0x0168}
0x26ea…26fc Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0018, t01=0x017a}
0x26fc…270e Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0018, t01=0x018c}
0x270e…2720 Head {h00=0x000e, h01=0x0050, text=» CWR A9,A6«, t00=0x0019, t01=0x000e}
0x2720…2736 Head {h00=0x0012, h01=0x0050, text=» RF(L) COP160 «, t00=0x0019, t01=0x0020}
0x2736…2762 Head {h00=0x0028, h01=0x0050, text=» CF A14,PRLINE LINE FULL : PRINT IT «, t00=0x0019, t01=0x0036}
0x2762…277a Head {h00=0x0014, h01=0x0050, text=»COP160 LCR A2,A4«, t00=0x0019, t01=0x0062}
0x277a…278e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0019, t01=0x007a}
0x278e…27a2 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0019, t01=0x008e}
0x27a2…27c2 Head {h00=0x001c, h01=0x0050, text=» RB(L) COP123 ATTRIBUTE «, t00=0x0019, t01=0x00a2}
0x27c2…27ee Head {h00=0x0028, h01=0x0050, text=» RB COP150 STILL IN PROTECTED FIELD «, t00=0x0019, t01=0x00c2}
0x27ee…27f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ee}
0x27f8…2802 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00f8}
0x2802…2832 Head {h00=0x002c, h01=0x0050, text=»* LINE LENGTH AS DEFINED BY NL CHARACTER«, t00=0x0019, t01=0x0102}
0x2832…283c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0132}
0x283c…2846 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x013c}
0x2846…2880 Head {h00=0x0036, h01=0x0050, text=»* THE FIRST INSTR. ORIGINALLY HAD LABEL 'COP200'. «, t00=0x0019, t01=0x0146}
0x2880…288a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0180}
0x288a…2894 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x018a}
0x2894…28a8 (26, 0, 400) Head {h00=0x0010, h01=0x0050, text=»COP111 EQU *«, t00=0x001a, t01=0x0004}
0x28a8…28be Head {h00=0x0012, h01=0x0050, text=» CWK A9,GTPLIN«, t00=0x001a, t01=0x0018}
0x28be…28c6 Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x002e}
0x28c6…28ec Head {h00=0x0022, h01=0x0050, text=» RF(L) COP220 BUFFER NOT FULL «, t00=0x001a, t01=0x0036}
0x28ec…2914 Head {h00=0x0024, h01=0x0050, text=»COP210 CF A14,PRLINE PRINT LINE «, t00=0x001a, t01=0x005c}
0x2914…2928 Head {h00=0x0010, h01=0x0050, text=» ABL COP111 «, t00=0x001a, t01=0x0084}
0x2928…2944 Head {h00=0x0018, h01=0x0050, text=»COP220 CWK A3,LBVDU «, t00=0x001a, t01=0x0098}
0x2944…296a Head {h00=0x0022, h01=0x0050, text=» RF(NL) COP300 PRINT LAST LINE«, t00=0x001a, t01=0x00b4}
0x296a…297c Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x001a, t01=0x00da}
0x297c…2990 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x001a, t01=0x00ec}
0x2990…29b4 Head {h00=0x0020, h01=0x0050, text=» SCR A2,A4 RESET DISPLAY BIT«, t00=0x001a, t01=0x0100}
0x29b4…29c8 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x001a, t01=0x0124}
0x29c8…29de Head {h00=0x0012, h01=0x0050, text=» RF(NL) COP230«, t00=0x001a, t01=0x0138}
0x29de…2a0a Head {h00=0x0028, h01=0x0050, text=»COP223 ANK A2,/6 ATTRIBUTE CHARACTER«, t00=0x001a, t01=0x014e}
0x2a0a…2a1c Head {h00=0x000e, h01=0x0050, text=» XRK A2,6 «, t00=0x001a, t01=0x017a}
0x2a1c…2a42 Head {h00=0x0022, h01=0x0050, text=» RF(Z) COP250 PROTECTED FIELD «, t00=0x001a, t01=0x018c}
0x2a42…2a76 Head {h00=0x0030, h01=0x0050, text=»COP225 LDK A2,/20 REPLACE ATTRIBUTE BY SPACE«, t00=0x001b, t01=0x0022}
0x2a76…2a88 Head {h00=0x000e, h01=0x0050, text=» RF COP240«, t00=0x001b, t01=0x0056}
0x2a88…2aa2 Head {h00=0x0016, h01=0x0050, text=»COP230 CWK A2,NULL«, t00=0x001b, t01=0x0068}
0x2aa2…2ad2 Head {h00=0x002c, h01=0x0050, text=» RB(E) COP225 NULL IS REPLACED BY SPACE «, t00=0x001b, t01=0x0082}
0x2ad2…2ae6 Head {h00=0x0010, h01=0x0050, text=»COP240 EQU *«, t00=0x001b, t01=0x00b2}
0x2ae6…2afa Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7B «, t00=0x001b, t01=0x00c6}
0x2afa…2b10 Head {h00=0x0012, h01=0x0050, text=» RF(NE) COP241«, t00=0x001b, t01=0x00da}
0x2b10…2b24 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/2A «, t00=0x001b, t01=0x00f0}
0x2b24…2b3c Head {h00=0x0014, h01=0x0050, text=»COP241 SCR A2,A7«, t00=0x001b, t01=0x0104}
0x2b3c…2b4e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001b, t01=0x011c}
0x2b4e…2b60 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x001b, t01=0x012e}
0x2b60…2b72 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x001b, t01=0x0140}
0x2b72…2b88 Head {h00=0x0012, h01=0x0050, text=» CWK A2,NEWLIN«, t00=0x001b, t01=0x0152}
0x2b88…2bb2 Head {h00=0x0026, h01=0x0050, text=» RB(E) COP210 NL CHAR: PRINT LINE «, t00=0x001b, t01=0x0168}
0x2bb2…2bc8 (28, 0, 400) Head {h00=0x0012, h01=0x0050, text=» CWK A2,ENDMES«, t00=0x001c, t01=0x0004}
0x2bc8…2bfa Head {h00=0x002e, h01=0x0050, text=» RF(E) COP300 UND MESSAGE: PRINT LAST LINE«, t00=0x001c, t01=0x001a}
0x2bfa…2c0c Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x001c, t01=0x004c}
0x2c0c…2c20 Head {h00=0x0010, h01=0x0050, text=» ABL COP111 «, t00=0x001c, t01=0x005e}
0x2c20…2c50 Head {h00=0x002c, h01=0x0050, text=»COP250 LDK A2,/20 REPLACE TEXT BY SPACE «, t00=0x001c, t01=0x0072}
0x2c50…2c62 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A7«, t00=0x001c, t01=0x00a2}
0x2c62…2c74 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001c, t01=0x00b4}
0x2c74…2c86 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x001c, t01=0x00c6}
0x2c86…2c98 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x001c, t01=0x00d8}
0x2c98…2caa Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x001c, t01=0x00ea}
0x2caa…2cbc Head {h00=0x000e, h01=0x0050, text=» CWR A9,A6«, t00=0x001c, t01=0x00fc}
0x2cbc…2cd2 Head {h00=0x0012, h01=0x0050, text=» RF(L) COP260 «, t00=0x001c, t01=0x010e}
0x2cd2…2cfe Head {h00=0x0028, h01=0x0050, text=» CF A14,PRLINE LINE FULL : PRINT IT «, t00=0x001c, t01=0x0124}
0x2cfe…2d16 Head {h00=0x0014, h01=0x0050, text=»COP260 LCR A2,A4«, t00=0x001c, t01=0x0150}
0x2d16…2d2a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x001c, t01=0x0168}
0x2d2a…2d3e Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x001c, t01=0x017c}
0x2d3e…2d64 Head {h00=0x0022, h01=0x0050, text=» RB(L) COP223 ATTRIBUTE FOUND «, t00=0x001c, t01=0x0190}
0x2d64…2d90 Head {h00=0x0028, h01=0x0050, text=» RB COP250 STILL IN PROTECTED FIELD «, t00=0x001d, t01=0x0026}
0x2d90…2da8 Head {h00=0x0014, h01=0x0050, text=»COP300 LDR A9,A9«, t00=0x001d, t01=0x0052}
0x2da8…2dca Head {h00=0x001e, h01=0x0050, text=» ABL(Z) COPRTN ALL PRINTED«, t00=0x001d, t01=0x006a}
0x2dca…2df0 Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE PRINT LAST LINE«, t00=0x001d, t01=0x008c}
0x2df0…2e04 Head {h00=0x0010, h01=0x0050, text=» ABL COPRTN «, t00=0x001d, t01=0x00b2}
0x2e04…2e12 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x00c6}
0x2e12…2e1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00d4}
0x2e1c…2e26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00de}
0x2e26…2e4a Head {h00=0x0020, h01=0x0050, text=»* PRINT ONE LINE ON PRINTER «, t00=0x001d, t01=0x00e8}
0x2e4a…2e54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x010c}
0x2e54…2e80 Head {h00=0x0028, h01=0x0050, text=»* A9=NUMBER OF CHAR IN PRINT BUFFER «, t00=0x001d, t01=0x0116}
0x2e80…2e8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0142}
0x2e8a…2e94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x014c}
0x2e94…2ecc Head {h00=0x0034, h01=0x0050, text=»PRLINE IM LINCNT,TCABAS COUNT NBR OF PRINTLINES «, t00=0x001d, t01=0x0156}
0x2ecc…2ef2 Head {h00=0x0022, h01=0x0050, text=» RF(N) PRL100 NOT END OF PAGE «, t00=0x001d, t01=0x018e}
0x2ef2…2f14 Head {h00=0x001e, h01=0x0050, text=» LDK A7,LPAGE END OF PAGE «, t00=0x001e, t01=0x0024}
0x2f14…2f26 Head {h00=0x000e, h01=0x0050, text=» NGR A7,A7«, t00=0x001e, t01=0x0046}
0x2f26…2f56 Head {h00=0x002c, h01=0x0050, text=» ST A7,LINCNT,TCABAS RESET LINE COUNTER «, t00=0x001e, t01=0x0058}
0x2f56…2f74 Head {h00=0x001a, h01=0x0050, text=»PRL100 LD A7,ECBBA,A8 «, t00=0x001e, t01=0x0088}
0x2f74…2fa0 Head {h00=0x0028, h01=0x0050, text=» LC A2,2,A7 GET FIRST CHAR IN BUFFER«, t00=0x001e, t01=0x00a6}
0x2fa0…2fb4 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x001e, t01=0x00d2}
0x2fb4…2fca Head {h00=0x0012, h01=0x0050, text=» CWK A2,FORMFD«, t00=0x001e, t01=0x00e6}
0x2fca…2fee Head {h00=0x0020, h01=0x0050, text=» RF(NE) PRL200 NOT FORM FEED«, t00=0x001e, t01=0x00fc}
0x2fee…3002 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/20 «, t00=0x001e, t01=0x0120}
0x3002…302a Head {h00=0x0024, h01=0x0050, text=» SC A2,2,A7 REPLACE LF BY SPACE «, t00=0x001e, t01=0x0134}
0x302a…3032 Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x015c}
0x3032…3046 Head {h00=0x0010, h01=0x0050, text=»PRL110 EQU *«, t00=0x001e, t01=0x0164}
0x3046…306c Head {h00=0x0022, h01=0x0050, text=» LD A1,LINCNT,TCABAS FORM FEED«, t00=0x001e, t01=0x0178}
0x306c…307e Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x001f, t01=0x000e}
0x307e…30b6 Head {h00=0x0034, h01=0x0050, text=» ST A7,ECBRL,A8 SET REQ LENGTH TO 2 FOR NEW LINE«, t00=0x001f, t01=0x0020}
0x30b6…30da Head {h00=0x0020, h01=0x0050, text=»PRL120 LDK A7,/86 STD WRITE «, t00=0x001f, t01=0x0058}
0x30da…30e6 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001f, t01=0x007c}
0x30e6…30f6 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001f, t01=0x0088}
0x30f6…3114 Head {h00=0x001a, h01=0x0050, text=» ADK A1,1 COUNT LINES «, t00=0x001f, t01=0x0098}
0x3114…312a Head {h00=0x0012, h01=0x0050, text=» RB(N) PRL120 «, t00=0x001f, t01=0x00b6}
0x312a…3140 Head {h00=0x0012, h01=0x0050, text=» LDK A7,LPAGE «, t00=0x001f, t01=0x00cc}
0x3140…3152 Head {h00=0x000e, h01=0x0050, text=» NGR A7,A7«, t00=0x001f, t01=0x00e2}
0x3152…3182 Head {h00=0x002c, h01=0x0050, text=» ST A7,LINCNT,TCABAS RESET LINE COUNTER «, t00=0x001f, t01=0x00f4}
0x3182…31b6 Head {h00=0x0030, h01=0x0050, text=»PRL200 ADKL A9,2 ADJUST LENGTH FOR BUFFER CW«, t00=0x001f, t01=0x0124}
0x31b6…31d8 Head {h00=0x001e, h01=0x0050, text=» ST A9,ECBRL,A8 REQ LENGTH«, t00=0x001f, t01=0x0158}
0x31d8…31f6 Head {h00=0x001a, h01=0x0050, text=» LDK A7,/86 STD WRITE «, t00=0x001f, t01=0x017a}
0x31f6…3202 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0020, t01=0x0008}
0x3202…3212 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0020, t01=0x0014}
0x3212…3224 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0020, t01=0x0024}
0x3224…323c Head {h00=0x0014, h01=0x0050, text=» ST* A7,ECBBA,A8«, t00=0x0020, t01=0x0036}
0x323c…3254 Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBBA,A8 «, t00=0x0020, t01=0x004e}
0x3254…327c Head {h00=0x0024, h01=0x0050, text=» ADK A7,2 RESTORE BUFFER ADDRESS«, t00=0x0020, t01=0x0066}
0x327c…32a2 Head {h00=0x0022, h01=0x0050, text=» SUR A9,A9 RESET CHAR COUNTER «, t00=0x0020, t01=0x008e}
0x32a2…32b2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0020, t01=0x00b4}
0x32b2…32c0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x00c4}
0x32c0…32ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00d2}
0x32ca…32d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00dc}
0x32d4…32f8 Head {h00=0x0020, h01=0x0050, text=»* SET STATUS NOT BUSY FOR DC«, t00=0x0020, t01=0x00e6}
0x32f8…3302 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x010a}
0x3302…330c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0114}
0x330c…3324 Head {h00=0x0014, h01=0x0050, text=»SNBUSY LDK A1,0 «, t00=0x0020, t01=0x011e}
0x3324…333a Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x0020, t01=0x0136}
0x333a…3350 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0020, t01=0x014c}
0x3350…3374 Head {h00=0x0020, h01=0x0050, text=» LDK A7,/B8 SET STATUS ORDER«, t00=0x0020, t01=0x0162}
0x3374…338c Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x0020, t01=0x0186}
0x338c…3398 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0021, t01=0x000e}
0x3398…33a8 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0021, t01=0x001a}
0x33a8…33b8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0021, t01=0x002a}
0x33b8…33c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x003a}
0x33c2…33cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0044}
0x33cc…33e0 Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x0021, t01=0x004e}
0x33e0…33e4 Head {h00=0x4004, h01=0x0000}
0x33e4…33e8 00 21 00 62 ┆ ! b┆
0x33e8…33f0 (34, 1, 8) 20 04 00 00 00 22 00 04 ┆ " ┆
0x33f0…3440 (35, 0, 400) 55 4e 50 52 4f 54 45 43 54 45 44 20 54 4f 20 41 44 44 52 45 53 53 00 22 01 7c 00 10 00 50 5c 43 57 4b 5c 41 32 2c 2f 30 43 20 00 23 00 1e 00 12 00 50 5c 52 46 28 4e 45 29 5c 55 50 44 33 30 35 00 23 00 32 00 1c 00 50 5c 4c 44 4b 5c 41 32 2c ┆UNPROTECTED TO ADDRESS " | P CWK A2,/0C # P RF(NE) UPD305 # 2 P LDK A2,┆
0x3440…3490 46 4f 52 4d 46 44 5c 46 4f 52 4d 20 46 45 45 44 00 23 00 48 00 0e 00 50 5c 52 42 5c 55 50 44 32 33 30 00 23 00 68 00 16 00 50 55 50 44 33 30 35 5c 43 57 4b 5c 41 32 2c 2f 31 39 20 00 23 00 7a 00 12 00 50 5c 52 46 28 4e 45 29 5c 55 50 44 33 ┆FORMFD FORM FEED # H P RB UPD230 # h PUPD305 CWK A2,/19 # z P RF(NE) UPD3┆
0x3490…34e0 31 30 00 23 00 94 00 1e 00 50 5c 4c 44 4b 5c 41 32 2c 45 4e 44 4d 45 53 5c 45 4e 44 20 4d 45 53 53 41 47 45 00 23 00 aa 00 0e 00 50 5c 52 42 5c 55 50 44 32 33 30 00 23 00 cc 00 10 00 50 55 50 44 33 31 30 5c 45 51 55 5c 2a 00 23 00 de 00 10 ┆10 # P LDK A2,ENDMES END MESSAGE # P RB UPD230 # PUPD310 EQU * # ┆
0x34e0…3530 00 50 5c 43 57 4b 5c 41 32 2c 2f 30 41 20 00 23 00 f2 00 12 00 50 5c 52 46 28 4e 45 29 5c 55 50 44 33 31 35 00 23 01 06 00 1c 00 50 5c 4c 44 4b 5c 41 32 2c 4e 45 57 4c 49 4e 5c 4e 45 57 20 4c 49 4e 45 20 00 23 01 1c 00 0e 00 50 5c 52 42 5c ┆ P CWK A2,/0A # P RF(NE) UPD315 # P LDK A2,NEWLIN NEW LINE # P RB ┆
0x3530…3580 55 50 44 32 33 30 00 23 01 3c 00 10 00 50 55 50 44 33 31 35 5c 45 51 55 5c 2a 00 23 01 4e 00 10 00 50 5c 43 57 4b 5c 41 32 2c 2f 31 38 20 00 23 01 62 00 3e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆UPD230 # < PUPD315 EQU * # N P CWK A2,/18 # b > P**************************┆
0x3580…35d0 (36, 0, 398) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 37 38 2d 30 38 2d 31 35 20 00 23 01 76 00 20 00 50 5c 52 46 28 4e 45 29 5c 55 50 44 33 31 37 5c 49 4c 4c 45 47 41 4c 20 4f 52 44 45 52 00 24 00 28 00 3e 00 50 2a 2a 2a 2a ┆********************* 78-08-15 # v P RF(NE) UPD317 ILLEGAL ORDER $ ( > P****┆
0x35d0…3620 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 37 38 2d 30 38 2d 31 35 20 00 24 00 4c 00 10 00 50 5c 4c 44 4b 5c 41 32 2c 2f 33 30 20 00 24 00 8e 00 0e ┆******************************************* 78-08-15 $ L P LDK A2,/30 $ ┆
0x3620…3670 00 50 5c 52 42 5c 55 50 44 32 33 30 00 24 00 a2 00 04 00 50 00 24 00 b4 00 04 00 50 00 24 00 bc 00 3e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P RB UPD230 $ P $ P $ > P********************************************┆
0x3670…36c0 2a 2a 2a 20 20 37 38 2d 30 38 2d 31 35 20 00 24 00 c4 00 20 00 50 55 50 44 33 31 37 5c 43 57 4b 5c 41 32 2c 2f 31 42 5c 45 53 43 41 50 45 20 3f 3f 3f 00 24 01 06 00 18 00 50 5c 52 42 28 45 29 5c 55 50 44 30 31 30 5c 59 45 53 21 21 21 00 24 ┆*** 78-08-15 $ PUPD317 CWK A2,/1B ESCAPE ??? $ P RB(E) UPD010 YES!!! $┆
0x36c0…370e 01 2a 00 3e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 37 38 2d 30 38 2d 31 35 20 00 24 01 46 00 0a 00 50 5c 45 4a 45 43 54 ┆ * > P*********************************************** 78-08-15 $ F P EJECT┆