|
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: 14302 (0x37de)
Notes: pts_type(SC)
Names: »PRT.SC«
└─⟦9ad21746d⟧ Bits:30009682 Philips computer tape "600304"
└─⟦this⟧ »NJ-AMT/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 600 DC TIMEOUT=60 S (FROM 30) DK
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…05e2 Head {h00=0x002e, h01=0x0050, text=»TIMDC EQU 600 DC TIMEOUT=60 S (FROM 30) DK«, t00=0x0003, t01=0x0104}
0x05e2…05f6 Head {h00=0x0010, h01=0x0050, text=»ESC EQU /1B «, t00=0x0003, t01=0x0136}
0x05f6…060a Head {h00=0x0010, h01=0x0050, text=»SBA EQU /11 «, t00=0x0003, t01=0x014a}
0x060a…062e Head {h00=0x0020, h01=0x0050, text=»NULL EQU /7F NULL CHARACTER «, t00=0x0003, t01=0x015e}
0x062e…0658 Head {h00=0x0026, h01=0x0050, text=»NEWLIN EQU /7E NEW LINE CHARACTER «, t00=0x0003, t01=0x0182}
0x0658…0680 Head {h00=0x0024, h01=0x0050, text=»ENDMES EQU /7D END MESSAGE CHAR «, t00=0x0004, t01=0x001c}
0x0680…06a6 Head {h00=0x0022, h01=0x0050, text=»FORMFD EQU /7C FORMFEED CHAR. «, t00=0x0004, t01=0x0044}
0x06a6…06ba Head {h00=0x0010, h01=0x0050, text=»FMCH EQU /60«, t00=0x0004, t01=0x006a}
0x06ba…06d0 Head {h00=0x0012, h01=0x0050, text=»DUPCH EQU /7B «, t00=0x0004, t01=0x007e}
0x06d0…06de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0094}
0x06de…06e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a2}
0x06e8…06f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ac}
0x06f2…0708 Head {h00=0x0012, h01=0x0050, text=»* EQUATES «, t00=0x0004, t01=0x00b6}
0x0708…0712 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00cc}
0x0712…0738 Head {h00=0x0022, h01=0x0050, text=»* COMMON EQU FOR ECB HANDLING «, t00=0x0004, t01=0x00d6}
0x0738…0742 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00fc}
0x0742…074a Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0106}
0x074a…075e Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0004, t01=0x010e}
0x075e…0772 Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0004, t01=0x0122}
0x0772…0786 Head {h00=0x0010, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0004, t01=0x0136}
0x0786…079a Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0004, t01=0x014a}
0x079a…07ae Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU 10«, t00=0x0004, t01=0x015e}
0x07ae…07b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0172}
0x07b8…07c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x017c}
0x07c2…07dc Head {h00=0x0016, h01=0x0050, text=»* CREDIT USED EQU «, t00=0x0004, t01=0x0186}
0x07dc…07e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0010}
0x07e6…07f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x001a}
0x07f0…080c Head {h00=0x0018, h01=0x0050, text=»* ECB REL. ADDRESSES«, t00=0x0005, t01=0x0024}
0x080c…0816 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0040}
0x0816…0820 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x004a}
0x0820…0832 Head {h00=0x000e, h01=0x0050, text=»DIS EQU 20«, t00=0x0005, t01=0x0054}
0x0832…083c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0066}
0x083c…0856 Head {h00=0x0016, h01=0x0050, text=»ECBDC EQU -DIS-14 «, t00=0x0005, t01=0x0070}
0x0856…086a Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0005, t01=0x008a}
0x086a…0886 Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0005, t01=0x009e}
0x0886…08a4 Head {h00=0x001a, h01=0x0050, text=»ECBICR EQU ECBDC2-DIS «, t00=0x0005, t01=0x00ba}
0x08a4…08b0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0005, t01=0x00d8}
0x08b0…08c4 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0005, t01=0x00e4}
0x08c4…08e0 Head {h00=0x0018, h01=0x0050, text=»ECBICR EQU ECBDC-DIS«, t00=0x0005, t01=0x00f8}
0x08e0…08ec Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0005, t01=0x0114}
0x08ec…0902 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0005, t01=0x0120}
0x0902…0920 Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0005, t01=0x0136}
0x0920…093c Head {h00=0x0018, h01=0x0050, text=»ECBPR EQU ECBICW-DIS«, t00=0x0005, t01=0x0154}
0x093c…0948 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0005, t01=0x0170}
0x0948…095e Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0005, t01=0x017c}
0x095e…097a (6, 0, 400) Head {h00=0x0018, h01=0x0050, text=»ECBPR EQU ECBICR-DIS«, t00=0x0006, t01=0x0004}
0x097a…0986 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x0020}
0x0986…0990 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x002c}
0x0990…099a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0036}
0x099a…09c0 Head {h00=0x0022, h01=0x0050, text=»* BASE ADDRESS FOR TCA AND ECB«, t00=0x0006, t01=0x0040}
0x09c0…09ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0066}
0x09ca…09e0 Head {h00=0x0012, h01=0x0050, text=»TCABAS EQU A11«, t00=0x0006, t01=0x0070}
0x09e0…09fa Head {h00=0x0016, h01=0x0050, text=»CREBAS EQU A13 ECB«, t00=0x0006, t01=0x0086}
0x09fa…0a04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00a0}
0x0a04…0a2e Head {h00=0x0026, h01=0x0050, text=»* CONFIG DATA 'CB1' REL ADDRESSES «, t00=0x0006, t01=0x00aa}
0x0a2e…0a38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00d4}
0x0a38…0a5e Head {h00=0x0022, h01=0x0050, text=»NBRKBV EQU 0 NUMBER OF KB/VDUS«, t00=0x0006, t01=0x00de}
0x0a5e…0a88 Head {h00=0x0026, h01=0x0050, text=»NBRGTP EQU NBRKBV+2 NUMBER OF GTPS«, t00=0x0006, t01=0x0104}
0x0a88…0a92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x012e}
0x0a92…0ac8 Head {h00=0x0032, h01=0x0050, text=»MF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 «, t00=0x0006, t01=0x0138}
0x0ac8…0afe Head {h00=0x0032, h01=0x0050, text=»MF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 «, t00=0x0006, t01=0x016e}
0x0afe…0b12 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0007, t01=0x0014}
0x0b12…0b2e Head {h00=0x0018, h01=0x0050, text=»MF2KBV EQU MF1GTP+16«, t00=0x0007, t01=0x0028}
0x0b2e…0b4a Head {h00=0x0018, h01=0x0050, text=»MF2GTP EQU MF2KBV+16«, t00=0x0007, t01=0x0044}
0x0b4a…0b56 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x0060}
0x0b56…0b64 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x006c}
0x0b64…0b6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x007a}
0x0b6e…0b8a Head {h00=0x0018, h01=0x0050, text=»* TCA REL. ADDRESSES«, t00=0x0007, t01=0x0084}
0x0b8a…0b94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a0}
0x0b94…0ba8 Head {h00=0x0010, h01=0x0050, text=»TCT01 EQU 0 «, t00=0x0007, t01=0x00aa}
0x0ba8…0bc4 Head {h00=0x0018, h01=0x0050, text=»PRINTER EQU TCT01+2 «, t00=0x0007, t01=0x00be}
0x0bc4…0bf0 Head {h00=0x0028, h01=0x0050, text=»BVDU EQU PRINTER+2 VDU SCREEN BUFFER«, t00=0x0007, t01=0x00da}
0x0bf0…0c24 Head {h00=0x0030, h01=0x0050, text=»PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY «, t00=0x0007, t01=0x0106}
0x0c24…0c52 Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x0007, t01=0x013a}
0x0c52…0c6e Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x0007, t01=0x0168}
0x0c6e…0c98 Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x0007, t01=0x0184}
0x0c98…0cca Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x0008, t01=0x001e}
0x0cca…0cf2 Head {h00=0x0024, h01=0x0050, text=»LINCNT EQU KBINH+2 LINE COUNTER «, t00=0x0008, t01=0x0050}
0x0cf2…0d26 Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH«, t00=0x0008, t01=0x0078}
0x0d26…0d5c Head {h00=0x0032, h01=0x0050, text=»ICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM «, t00=0x0008, t01=0x00ac}
0x0d5c…0d8c Head {h00=0x002c, h01=0x0050, text=»INTATT EQU ICWORK+2 INTENSITY ATTRIBUTE «, t00=0x0008, t01=0x00e2}
0x0d8c…0db4 Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU INTATT+2 OFFLINE FLAG«, t00=0x0008, t01=0x0112}
0x0db4…0de0 Head {h00=0x0028, h01=0x0050, text=»COPNO EQU OFFFLG+2 HARDCOPY TASK ID «, t00=0x0008, t01=0x013a}
0x0de0…0e0e Head {h00=0x002a, h01=0x0050, text=»CCC EQU COPNO+2 COPY COMMAND CHARACTER«, t00=0x0008, t01=0x0166}
0x0e0e…0e30 (9, 0, 400) Head {h00=0x001e, h01=0x0050, text=»MAIN EQU CCC+2 MAIN FRAME «, t00=0x0009, t01=0x0004}
0x0e30…0e5a Head {h00=0x0026, h01=0x0050, text=»MODE EQU MAIN+2 INSERT MODE SWITCH«, t00=0x0009, t01=0x0026}
0x0e5a…0e82 Head {h00=0x0024, h01=0x0050, text=»KEYS EQU MODE+2 KEY LOCK STATUS «, t00=0x0009, t01=0x0050}
0x0e82…0eb4 Head {h00=0x002e, h01=0x0050, text=»ECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC«, t00=0x0009, t01=0x0078}
0x0eb4…0eea Head {h00=0x0032, h01=0x0050, text=»ECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C «, t00=0x0009, t01=0x00aa}
0x0eea…0f22 Head {h00=0x0034, h01=0x0050, text=»RDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB«, t00=0x0009, t01=0x00e0}
0x0f22…0f2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0118}
0x0f2c…0f6a Head {h00=0x003a, h01=0x0050, text=»PRBUSY EQU -2 PRINTER BUSY. OCCUPIES BOOLEAN VARAIBLE «, t00=0x0009, t01=0x0122}
0x0f6a…0f78 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0160}
0x0f78…0f80 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x016e}
0x0f80…0f8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0176}
0x0f8a…0f94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0180}
0x0f94…0fc2 Head {h00=0x002a, h01=0x0050, text=»LBVDU EQU 1920 1920 CHARACTER DISPLAY «, t00=0x0009, t01=0x018a}
0x0fc2…0fe8 Head {h00=0x0022, h01=0x0050, text=»LPAGE EQU 48 LINES ON ONE PAGE«, t00=0x000a, t01=0x0028}
0x0fe8…1026 Head {h00=0x003a, h01=0x0050, text=»GTPLIN EQU 112 LINELENGTH MAX 112 CHAR. 'NL' ORDER IN «, t00=0x000a, t01=0x004e}
0x1026…1056 Head {h00=0x002c, h01=0x0050, text=»* BUFFER DETERMINES PRINT LINE LENGTH «, t00=0x000a, t01=0x008c}
0x1056…1060 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00bc}
0x1060…1068 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00c6}
0x1068…1070 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00ce}
0x1070…107e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00d6}
0x107e…1092 Head {h00=0x0010, h01=0x0050, text=»PRINT EQU * «, t00=0x000a, t01=0x00e4}
0x1092…10a8 Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x000a, t01=0x00f8}
0x10a8…10d2 Head {h00=0x0026, h01=0x0050, text=» LDR TCABAS,A9 LOAD ASSEM TCA BASE«, t00=0x000a, t01=0x010e}
0x10d2…10f6 Head {h00=0x0020, h01=0x0050, text=» LDR* A4,TCABAS REL TASK NO «, t00=0x000a, t01=0x0138}
0x10f6…111c Head {h00=0x0022, h01=0x0050, text=» AD A4,6,CREBAS 'CB1' ADDRESS «, t00=0x000a, t01=0x015c}
0x111c…1124 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0182}
0x1124…115e Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000a, t01=0x018a}
0x115e…1168 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0034}
0x1168…1198 Head {h00=0x002c, h01=0x0050, text=»* TRANSFER PARAMETER FOR MAIN-FRAME #1«, t00=0x000b, t01=0x003e}
0x1198…11a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x006e}
0x11a2…11dc Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000b, t01=0x0078}
0x11dc…11e4 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00b2}
0x11e4…11fe Head {h00=0x0016, h01=0x0050, text=» LC A1,MF1GTP-1,A4«, t00=0x000b, t01=0x00ba}
0x11fe…1212 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x000b, t01=0x00d4}
0x1212…1228 Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x000b, t01=0x00e8}
0x1228…123e Head {h00=0x0012, h01=0x0050, text=» CF A14,EMULA «, t00=0x000b, t01=0x00fe}
0x123e…1252 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000b, t01=0x0114}
0x1252…128c Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000b, t01=0x0128}
0x128c…1296 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0162}
0x1296…12c6 Head {h00=0x002c, h01=0x0050, text=»* TRANSFER PARAMETER FOR MAIN-FRAME #2«, t00=0x000b, t01=0x016c}
0x12c6…12d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x000c}
0x12d0…130a Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000c, t01=0x0016}
0x130a…1312 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0050}
0x1312…132c Head {h00=0x0016, h01=0x0050, text=» LC A1,MF2GTP-1,A4«, t00=0x000c, t01=0x0058}
0x132c…1340 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x000c, t01=0x0072}
0x1340…1358 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x000c, t01=0x0086}
0x1358…1380 Head {h00=0x0024, h01=0x0050, text=» CF A14,EMULA TRANSFER PARAMETER«, t00=0x000c, t01=0x009e}
0x1380…138c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x00c6}
0x138c…139a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x00d2}
0x139a…13a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00e0}
0x13a4…13c4 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE POS IN ECBBLK«, t00=0x000c, t01=0x00ea}
0x13c4…13d6 Head {h00=0x000e, h01=0x0050, text=»ICR EQU 2 «, t00=0x000c, t01=0x010a}
0x13d6…13e8 Head {h00=0x000e, h01=0x0050, text=»DC1 EQU 4 «, t00=0x000c, t01=0x011c}
0x13e8…13fa Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x000c, t01=0x012e}
0x13fa…1404 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0140}
0x1404…1418 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x000c, t01=0x014a}
0x1418…142a Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x000c, t01=0x015e}
0x142a…1436 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0170}
0x1436…144a Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000c, t01=0x017c}
0x144a…145c Head {h00=0x000e, h01=0x0050, text=» LDK A1,3 «, t00=0x000c, t01=0x0190}
0x145c…1468 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0012}
0x1468…1484 Head {h00=0x0018, h01=0x0050, text=» ST A1,ECBBLK,TCABAS«, t00=0x000d, t01=0x001e}
0x1484…1498 Head {h00=0x0010, h01=0x0050, text=»PRI100 EQU *«, t00=0x000d, t01=0x003a}
0x1498…14b2 Head {h00=0x0016, h01=0x0050, text=» CM ICWORK,TCABAS «, t00=0x000d, t01=0x004e}
0x14b2…14d2 Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC1,TCABAS«, t00=0x000d, t01=0x0068}
0x14d2…14f0 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) PRI110 PENDING«, t00=0x000d, t01=0x0088}
0x14f0…1524 Head {h00=0x0030, h01=0x0050, text=» CF A14,DC1INQ TEST IF ANY MESSAGE, NO WAIT «, t00=0x000d, t01=0x00a6}
0x1524…1538 Head {h00=0x0010, h01=0x0050, text=»PRI110 EQU *«, t00=0x000d, t01=0x00da}
0x1538…154c Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000d, t01=0x00ee}
0x154c…156c Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC2,TCABAS«, t00=0x000d, t01=0x0102}
0x156c…158a Head {h00=0x001a, h01=0x0050, text=» RF(NZ) PRI120 PENDING«, t00=0x000d, t01=0x0122}
0x158a…15c4 Head {h00=0x0036, h01=0x0050, text=» CF A14,DC2INQ TEST IF ANY MESSAGE MF # 2, NO WAIT«, t00=0x000d, t01=0x0140}
0x15c4…15d0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x017a}
0x15d0…15e4 Head {h00=0x0010, h01=0x0050, text=»PRI120 EQU *«, t00=0x000d, t01=0x0186}
0x15e4…1604 Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+ICR,TCABAS«, t00=0x000e, t01=0x000a}
0x1604…1622 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) PRI150 PENDING«, t00=0x000e, t01=0x002a}
0x1622…1644 Head {h00=0x001e, h01=0x0050, text=» LDKL A6,LBVDU REQ LENGTH «, t00=0x000e, t01=0x0048}
0x1644…1660 Head {h00=0x0018, h01=0x0050, text=» LDKL A3,BVDU BUFFER«, t00=0x000e, t01=0x006a}
0x1660…1680 Head {h00=0x001c, h01=0x0050, text=» ADR A3,TCABAS ADDRESS«, t00=0x000e, t01=0x0086}
0x1680…16ae Head {h00=0x002a, h01=0x0050, text=» CF A14,ICREAD READ INTERTASK NO WAIT «, t00=0x000e, t01=0x00a6}
0x16ae…16ce Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+ICR,TCABAS«, t00=0x000e, t01=0x00d4}
0x16ce…16e2 Head {h00=0x0010, h01=0x0050, text=»PRI150 EQU *«, t00=0x000e, t01=0x00f4}
0x16e2…16fa Head {h00=0x0014, h01=0x0050, text=» LDKL A7,ECBBLK «, t00=0x000e, t01=0x0108}
0x16fa…1710 Head {h00=0x0012, h01=0x0050, text=» ADR A7,TCABAS«, t00=0x000e, t01=0x0120}
0x1710…171c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x000e, t01=0x0136}
0x171c…173a Head {h00=0x001a, h01=0x0050, text=» DATA 7 MULTIPLE WAIT «, t00=0x000e, t01=0x0142}
0x173a…175a Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+ICR,TCABAS«, t00=0x000e, t01=0x0160}
0x175a…1784 Head {h00=0x0026, h01=0x0050, text=» RF(E) ICRINP INPUT FROM INTERTASK«, t00=0x000e, t01=0x0180}
0x1784…17c2 Head {h00=0x003a, h01=0x0050, text=» ST A8,ECBDCC,TCABAS SAVE ECB ADDRESS FOR CURRENT READ«, t00=0x000f, t01=0x001a}
0x17c2…17e6 Head {h00=0x0020, h01=0x0050, text=» CF A14,DCINP INPUT FROM DC «, t00=0x000f, t01=0x0058}
0x17e6…17f8 Head {h00=0x000e, h01=0x0050, text=» RB PRI100«, t00=0x000f, t01=0x007c}
0x17f8…1806 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x008e}
0x1806…1810 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x009c}
0x1810…1830 Head {h00=0x001c, h01=0x0050, text=»* READ INTERTASK, NOWAIT«, t00=0x000f, t01=0x00a6}
0x1830…183a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00c6}
0x183a…1858 Head {h00=0x001a, h01=0x0050, text=»* A3 = BUFFER ADDRESS «, t00=0x000f, t01=0x00d0}
0x1858…1872 Head {h00=0x0016, h01=0x0050, text=»* A6 = REQ LENGTH «, t00=0x000f, t01=0x00ee}
0x1872…187c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0108}
0x187c…1890 Head {h00=0x0010, h01=0x0050, text=»ICREAD EQU *«, t00=0x000f, t01=0x0112}
0x1890…18a8 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICR «, t00=0x000f, t01=0x0126}
0x18a8…18be Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x000f, t01=0x013e}
0x18be…18d2 Head {h00=0x0010, h01=0x0050, text=» LDKL A1,-1 «, t00=0x000f, t01=0x0154}
0x18d2…18e8 Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x000f, t01=0x0168}
0x18e8…190a Head {h00=0x001e, h01=0x0050, text=» ST A6,ECBRL,A8 REQ LENGTH«, t00=0x000f, t01=0x017e}
0x190a…1922 Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBBA,A8 «, t00=0x0010, t01=0x0010}
0x1922…1950 Head {h00=0x002a, h01=0x0050, text=» LDK A7,2 READ NOT ADDRESSED, NO WAIT «, t00=0x0010, t01=0x0028}
0x1950…195c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0010, t01=0x0056}
0x195c…196c Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0010, t01=0x0062}
0x196c…197c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0010, t01=0x0072}
0x197c…198a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0082}
0x198a…19d2 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0010, t01=0x0090}
0x19d2…19dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00d8}
0x19dc…19f4 Head {h00=0x0014, h01=0x0050, text=»* INPUT FROM DC «, t00=0x0010, t01=0x00e2}
0x19f4…19fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00fa}
0x19fe…1a3a Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0010, t01=0x0104}
0x1a3a…1a44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0140}
0x1a44…1a58 Head {h00=0x0010, h01=0x0050, text=»DCINP EQU * «, t00=0x0010, t01=0x014a}
0x1a58…1a84 Head {h00=0x0028, h01=0x0050, text=» CF A14,ICABOR ABORT INTERTASK READ «, t00=0x0010, t01=0x015e}
0x1a84…1a96 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x0010, t01=0x018a}
0x1a96…1aba Head {h00=0x0020, h01=0x0050, text=» RF(Z) DCIN10 NOT COMPLETED «, t00=0x0011, t01=0x000c}
0x1aba…1adc Head {h00=0x001e, h01=0x0050, text=» IM ICWORK,TCABAS SET FLAG«, t00=0x0011, t01=0x0030}
0x1adc…1b0c Head {h00=0x002c, h01=0x0050, text=» RF ICRINP TAKE CARE OF INTERTASK INPUT «, t00=0x0011, t01=0x0052}
0x1b0c…1b3e Head {h00=0x002e, h01=0x0050, text=» OR BUFFER WILL BE DESTROYED IN 'UPDATE'«, t00=0x0011, t01=0x0082}
0x1b3e…1b52 Head {h00=0x0010, h01=0x0050, text=»DCIN10 EQU *«, t00=0x0011, t01=0x00b4}
0x1b52…1b7c Head {h00=0x0026, h01=0x0050, text=» CF A14,GTRBUF GET RECEIVE BUFFER «, t00=0x0011, t01=0x00c8}
0x1b7c…1b98 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0011, t01=0x00f2}
0x1b98…1bbc Head {h00=0x0020, h01=0x0050, text=» CF A14,DCGETM READ MESSAGE «, t00=0x0011, t01=0x010e}
0x1bbc…1bd0 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0011, t01=0x0132}
0x1bd0…1bee Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x0011, t01=0x0146}
0x1bee…1bfa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0164}
0x1bfa…1c0e Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0011, t01=0x0170}
0x1c0e…1c2e Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+DC2,TCABAS«, t00=0x0011, t01=0x0184}
0x1c2e…1c4a Head {h00=0x0018, h01=0x0050, text=» RF(E) DCIN20 MF # 2«, t00=0x0012, t01=0x0014}
0x1c4a…1c68 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x0012, t01=0x0030}
0x1c68…1c7a Head {h00=0x000e, h01=0x0050, text=» RF DCIN30«, t00=0x0012, t01=0x004e}
0x1c7a…1c8e Head {h00=0x0010, h01=0x0050, text=»DCIN20 EQU *«, t00=0x0012, t01=0x0060}
0x1c8e…1cac Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC2,TCABAS «, t00=0x0012, t01=0x0074}
0x1cac…1cb8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0092}
0x1cb8…1ccc Head {h00=0x0010, h01=0x0050, text=»DCIN30 EQU *«, t00=0x0012, t01=0x009e}
0x1ccc…1cf4 Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBEL,A8 EFFECTIVE LENGTH«, t00=0x0012, t01=0x00b2}
0x1cf4…1d26 Head {h00=0x002e, h01=0x0050, text=» ST A1,DCLENG,TCABAS SAVE IT IN SAVE AREA «, t00=0x0012, t01=0x00da}
0x1d26…1d2e Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x010c}
0x1d2e…1d64 Head {h00=0x0032, h01=0x0050, text=» CF A14,UPDATE MOVE FROM DC TO PRINTER BUFFER;«, t00=0x0012, t01=0x0114}
0x1d64…1d7a Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0012, t01=0x014a}
0x1d7a…1d96 Head {h00=0x0018, h01=0x0050, text=» LD A1,ICWORK,TCABAS«, t00=0x0012, t01=0x0160}
0x1d96…1dba Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DCIN90 COPY COMMAND «, t00=0x0012, t01=0x017c}
0x1dba…1dc6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0010}
0x1dc6…1df8 Head {h00=0x002e, h01=0x0050, text=» LD A1,WCC,TCABAS WRITE CONTROL CHARACTER «, t00=0x0013, t01=0x001c}
0x1df8…1e1a Head {h00=0x001e, h01=0x0050, text=» ST A1,CCC,TCABAS COPY IT «, t00=0x0013, t01=0x004e}
0x1e1a…1e3e Head {h00=0x0020, h01=0x0050, text=» CF A14,COPY COPY ON PRINTER«, t00=0x0013, t01=0x0070}
0x1e3e…1e52 Head {h00=0x0010, h01=0x0050, text=»DCIN90 EQU *«, t00=0x0013, t01=0x0094}
0x1e52…1e68 Head {h00=0x0012, h01=0x0050, text=» CF A14,SNBUSY«, t00=0x0013, t01=0x00a8}
0x1e68…1e78 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0013, t01=0x00be}
0x1e78…1e86 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x00ce}
0x1e86…1e90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00dc}
0x1e90…1eae Head {h00=0x001a, h01=0x0050, text=»* ABORT INTERTASK READ«, t00=0x0013, t01=0x00e6}
0x1eae…1eb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0104}
0x1eb8…1ecc Head {h00=0x0010, h01=0x0050, text=»ICABOR EQU *«, t00=0x0013, t01=0x010e}
0x1ecc…1ede Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0013, t01=0x0122}
0x1ede…1efc Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+ICR,TCABAS «, t00=0x0013, t01=0x0134}
0x1efc…1f14 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICR «, t00=0x0013, t01=0x0152}
0x1f14…1f2a Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0013, t01=0x016a}
0x1f2a…1f36 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0013, t01=0x0180}
0x1f36…1f46 Head {h00=0x000c, h01=0x0050, text=» DATA 10«, t00=0x0013, t01=0x018c}
0x1f46…1f56 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0014, t01=0x000c}
0x1f56…1f64 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x001c}
0x1f64…1f6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x002a}
0x1f6e…1f8c Head {h00=0x001a, h01=0x0050, text=»* INPUT FROM INTERTASK«, t00=0x0014, t01=0x0034}
0x1f8c…1f96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0052}
0x1f96…1faa Head {h00=0x0010, h01=0x0050, text=»ICRINP EQU *«, t00=0x0014, t01=0x005c}
0x1faa…1fc8 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+ICR,TCABAS «, t00=0x0014, t01=0x0070}
0x1fc8…1fd0 Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x008e}
0x1fd0…1ffe Head {h00=0x002a, h01=0x0050, text=» LDK A1,X'38' PRINT BIT, 80 CHAR./LINE«, t00=0x0014, t01=0x0096}
0x1ffe…2036 Head {h00=0x0034, h01=0x0050, text=» ST A1,CCC,TCABAS SAVE AS COPY CONTROL CHARACTER«, t00=0x0014, t01=0x00c4}
0x2036…2064 Head {h00=0x002a, h01=0x0050, text=» CF A14,COPY PRINT ON HARDCOPY DEVICE «, t00=0x0014, t01=0x00fc}
0x2064…2080 Head {h00=0x0018, h01=0x0050, text=» LD A1,ICWORK,TCABAS«, t00=0x0014, t01=0x012a}
0x2080…20ac Head {h00=0x0028, h01=0x0050, text=» RB(NZ) DCIN10 TAKE CARE OF DC INPUT«, t00=0x0014, t01=0x0146}
0x20ac…20be Head {h00=0x000e, h01=0x0050, text=» RB PRI100«, t00=0x0014, t01=0x0172}
0x20be…20cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0184}
0x20cc…20d6 (21, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0004}
0x20d6…20e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x000e}
0x20e0…2112 Head {h00=0x002e, h01=0x0050, text=»* PRINT THE CONTENTS OF THE PRINTER BUFFER«, t00=0x0015, t01=0x0018}
0x2112…211c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x004a}
0x211c…2126 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0054}
0x2126…2168 Head {h00=0x003e, h01=0x0050, text=»LINLEN DATA /0028,/4050 LINE LENGTHS /40, 64 AND 80 CHARS «, t00=0x0015, t01=0x005e}
0x2168…2172 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00a0}
0x2172…217c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00aa}
0x217c…2196 Head {h00=0x0016, h01=0x0050, text=»COPY LDKL A8,ECBPR«, t00=0x0015, t01=0x00b4}
0x2196…21b8 Head {h00=0x001e, h01=0x0050, text=» ADR A8,CREBAS PRINTER ECB«, t00=0x0015, t01=0x00ce}
0x21b8…21d0 Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBBA,A8 «, t00=0x0015, t01=0x00f0}
0x21d0…21e6 Head {h00=0x0012, h01=0x0050, text=» SUR A3,A3 =1«, t00=0x0015, t01=0x0108}
0x21e6…21fe Head {h00=0x0014, h01=0x0050, text=» SC A3,0,A7 =1 «, t00=0x0015, t01=0x011e}
0x21fe…2216 Head {h00=0x0014, h01=0x0050, text=» SC A3,1,A7 =1 «, t00=0x0015, t01=0x0136}
0x2216…223c Head {h00=0x0022, h01=0x0050, text=» ADK A7,2 PRINt BUFFER ADDRESS«, t00=0x0015, t01=0x014e}
0x223c…2262 Head {h00=0x0022, h01=0x0050, text=» SUR A9,A9 RESET BUFFER INDEX «, t00=0x0015, t01=0x0174}
0x2262…2278 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0016, t01=0x000a}
0x2278…228e Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0016, t01=0x0020}
0x228e…22b4 Head {h00=0x0022, h01=0x0050, text=» LD A2,CCC,TCABAS GET CCC/CCC «, t00=0x0016, t01=0x0036}
0x22b4…22c8 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/08 «, t00=0x0016, t01=0x005c}
0x22c8…22f4 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) COP100 START PRINTER BIT SET«, t00=0x0016, t01=0x0070}
0x22f4…230a Head {h00=0x0012, h01=0x0050, text=»COPRTN RTN A14«, t00=0x0016, t01=0x009c}
0x230a…231e Head {h00=0x0010, h01=0x0050, text=»COP100 EQU *«, t00=0x0016, t01=0x00b2}
0x231e…2338 Head {h00=0x0016, h01=0x0050, text=» LD A2,CCC,TCABAS «, t00=0x0016, t01=0x00c6}
0x2338…234c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/30 «, t00=0x0016, t01=0x00e0}
0x234c…237c Head {h00=0x002c, h01=0x0050, text=» ABL(Z) COP111 NL DETERMINES LINE LENGTH«, t00=0x0016, t01=0x00f4}
0x237c…238e Head {h00=0x000e, h01=0x0050, text=» SRL A2,4 «, t00=0x0016, t01=0x0124}
0x238e…23a0 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0016, t01=0x0136}
0x23a0…23c8 Head {h00=0x0024, h01=0x0050, text=» LC A6,LINLEN,A2 GET LINE LENGTH«, t00=0x0016, t01=0x0148}
0x23c8…23e0 Head {h00=0x0014, h01=0x0050, text=»COP110 CWR A9,A6«, t00=0x0016, t01=0x0170}
0x23e0…23f6 Head {h00=0x0012, h01=0x0050, text=» RF(L) COP120 «, t00=0x0016, t01=0x0188}
0x23f6…2426 Head {h00=0x002c, h01=0x0050, text=»COP115 CF A14,PRLINE LINE FULL: PRINT IT«, t00=0x0017, t01=0x000e}
0x2426…2438 Head {h00=0x000e, h01=0x0050, text=» RB COP110«, t00=0x0017, t01=0x003e}
0x2438…2454 Head {h00=0x0018, h01=0x0050, text=»COP120 CWK A3,LBVDU «, t00=0x0017, t01=0x0050}
0x2454…247c Head {h00=0x0024, h01=0x0050, text=» ABL(NL) COP300 PRINT LAST LINE «, t00=0x0017, t01=0x006c}
0x247c…248e Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0017, t01=0x0094}
0x248e…24b4 Head {h00=0x0022, h01=0x0050, text=» ANK A2,/7F RESET DISPLAY BIT «, t00=0x0017, t01=0x00a6}
0x24b4…24c6 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x0017, t01=0x00cc}
0x24c6…24da Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0017, t01=0x00de}
0x24da…24f0 Head {h00=0x0012, h01=0x0050, text=» RF(NL) COP130«, t00=0x0017, t01=0x00f2}
0x24f0…2504 Head {h00=0x0010, h01=0x0050, text=»COP123 EQU *«, t00=0x0017, t01=0x0108}
0x2504…2516 Head {h00=0x000e, h01=0x0050, text=» ANK A2,6 «, t00=0x0017, t01=0x011c}
0x2516…2528 Head {h00=0x000e, h01=0x0050, text=» XRK A2,6 «, t00=0x0017, t01=0x012e}
0x2528…253e Head {h00=0x0012, h01=0x0050, text=» RF(Z) COP150 «, t00=0x0017, t01=0x0140}
0x253e…256e Head {h00=0x002c, h01=0x0050, text=»COP125 LDK A2,/20 REPLACE ATTR BY SPACE «, t00=0x0017, t01=0x0156}
0x256e…2580 Head {h00=0x000e, h01=0x0050, text=» RF COP140«, t00=0x0017, t01=0x0186}
0x2580…259a Head {h00=0x0016, h01=0x0050, text=»COP130 CWK A2,NULL«, t00=0x0018, t01=0x0008}
0x259a…25c6 Head {h00=0x0028, h01=0x0050, text=» RB(E) COP125 REPLACE NULL BY SPACE «, t00=0x0018, t01=0x0022}
0x25c6…25da Head {h00=0x0010, h01=0x0050, text=»COP140 EQU *«, t00=0x0018, t01=0x004e}
0x25da…25ee Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7D «, t00=0x0018, t01=0x0062}
0x25ee…2604 Head {h00=0x0012, h01=0x0050, text=» RF(NE) COP141«, t00=0x0018, t01=0x0076}
0x2604…2618 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/39 «, t00=0x0018, t01=0x008c}
0x2618…2632 Head {h00=0x0016, h01=0x0050, text=»COP141 CWK A2,/7E «, t00=0x0018, t01=0x00a0}
0x2632…2648 Head {h00=0x0012, h01=0x0050, text=» RF(NE) COP142«, t00=0x0018, t01=0x00ba}
0x2648…265c Head {h00=0x0010, h01=0x0050, text=» LDK A2,/35 «, t00=0x0018, t01=0x00d0}
0x265c…2670 Head {h00=0x0010, h01=0x0050, text=»COP142 EQU *«, t00=0x0018, t01=0x00e4}
0x2670…2692 Head {h00=0x001e, h01=0x0050, text=» CF A14,RFMDUP FM OR DUP ?«, t00=0x0018, t01=0x00f8}
0x2692…26c4 Head {h00=0x002e, h01=0x0050, text=»COP143 CWK A2,/61 LOWER CASE CHARACTER ?? «, t00=0x0018, t01=0x011a}
0x26c4…26de Head {h00=0x0016, h01=0x0050, text=» RF(L) COP144 NO!!«, t00=0x0018, t01=0x014c}
0x26de…26f2 Head {h00=0x0010, h01=0x0050, text=» SUK A2,/20 «, t00=0x0018, t01=0x0166}
0x26f2…270a Head {h00=0x0014, h01=0x0050, text=»COP144 SCR A2,A7«, t00=0x0018, t01=0x017a}
0x270a…271c (25, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0019, t01=0x0004}
0x271c…272e Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0019, t01=0x0016}
0x272e…2740 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0019, t01=0x0028}
0x2740…2752 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0019, t01=0x003a}
0x2752…2764 Head {h00=0x000e, h01=0x0050, text=» RB COP110«, t00=0x0019, t01=0x004c}
0x2764…2794 Head {h00=0x002c, h01=0x0050, text=»COP150 LDK A2,/20 SPACE INSTEAD OF TEXT «, t00=0x0019, t01=0x005e}
0x2794…27a6 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A7«, t00=0x0019, t01=0x008e}
0x27a6…27b8 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0019, t01=0x00a0}
0x27b8…27ca Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0019, t01=0x00b2}
0x27ca…27dc Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0019, t01=0x00c4}
0x27dc…27ee Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0019, t01=0x00d6}
0x27ee…2800 Head {h00=0x000e, h01=0x0050, text=» CWR A9,A6«, t00=0x0019, t01=0x00e8}
0x2800…2816 Head {h00=0x0012, h01=0x0050, text=» RF(L) COP160 «, t00=0x0019, t01=0x00fa}
0x2816…2842 Head {h00=0x0028, h01=0x0050, text=» CF A14,PRLINE LINE FULL : PRINT IT «, t00=0x0019, t01=0x0110}
0x2842…285a Head {h00=0x0014, h01=0x0050, text=»COP160 LCR A2,A4«, t00=0x0019, t01=0x013c}
0x285a…286e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0019, t01=0x0154}
0x286e…2882 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0019, t01=0x0168}
0x2882…28a2 Head {h00=0x001c, h01=0x0050, text=» RB(L) COP123 ATTRIBUTE «, t00=0x0019, t01=0x017c}
0x28a2…28ce Head {h00=0x0028, h01=0x0050, text=» RB COP150 STILL IN PROTECTED FIELD «, t00=0x001a, t01=0x000c}
0x28ce…28d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0038}
0x28d8…28e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0042}
0x28e2…2912 Head {h00=0x002c, h01=0x0050, text=»* LINE LENGTH AS DEFINED BY NL CHARACTER«, t00=0x001a, t01=0x004c}
0x2912…291c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x007c}
0x291c…2926 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0086}
0x2926…2960 Head {h00=0x0036, h01=0x0050, text=»* THE FIRST INSTR. ORIGINALLY HAD LABEL 'COP200'. «, t00=0x001a, t01=0x0090}
0x2960…296a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00ca}
0x296a…2974 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00d4}
0x2974…2988 Head {h00=0x0010, h01=0x0050, text=»COP111 EQU *«, t00=0x001a, t01=0x00de}
0x2988…299e Head {h00=0x0012, h01=0x0050, text=» CWK A9,GTPLIN«, t00=0x001a, t01=0x00f2}
0x299e…29a6 Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x0108}
0x29a6…29cc Head {h00=0x0022, h01=0x0050, text=» RF(L) COP220 BUFFER NOT FULL «, t00=0x001a, t01=0x0110}
0x29cc…29f4 Head {h00=0x0024, h01=0x0050, text=»COP210 CF A14,PRLINE PRINT LINE «, t00=0x001a, t01=0x0136}
0x29f4…2a08 Head {h00=0x0010, h01=0x0050, text=» ABL COP111 «, t00=0x001a, t01=0x015e}
0x2a08…2a24 Head {h00=0x0018, h01=0x0050, text=»COP220 CWK A3,LBVDU «, t00=0x001a, t01=0x0172}
0x2a24…2a4a Head {h00=0x0022, h01=0x0050, text=» RF(NL) COP300 PRINT LAST LINE«, t00=0x001a, t01=0x018e}
0x2a4a…2a5c Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x001b, t01=0x0024}
0x2a5c…2a70 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x001b, t01=0x0036}
0x2a70…2a94 Head {h00=0x0020, h01=0x0050, text=» SCR A2,A4 RESET DISPLAY BIT«, t00=0x001b, t01=0x004a}
0x2a94…2aa8 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x001b, t01=0x006e}
0x2aa8…2abe Head {h00=0x0012, h01=0x0050, text=» RF(NL) COP230«, t00=0x001b, t01=0x0082}
0x2abe…2aea Head {h00=0x0028, h01=0x0050, text=»COP223 ANK A2,/6 ATTRIBUTE CHARACTER«, t00=0x001b, t01=0x0098}
0x2aea…2afc Head {h00=0x000e, h01=0x0050, text=» XRK A2,6 «, t00=0x001b, t01=0x00c4}
0x2afc…2b22 Head {h00=0x0022, h01=0x0050, text=» RF(Z) COP250 PROTECTED FIELD «, t00=0x001b, t01=0x00d6}
0x2b22…2b56 Head {h00=0x0030, h01=0x0050, text=»COP225 LDK A2,/20 REPLACE ATTRIBUTE BY SPACE«, t00=0x001b, t01=0x00fc}
0x2b56…2b68 Head {h00=0x000e, h01=0x0050, text=» RF COP240«, t00=0x001b, t01=0x0130}
0x2b68…2b82 Head {h00=0x0016, h01=0x0050, text=»COP230 CWK A2,NULL«, t00=0x001b, t01=0x0142}
0x2b82…2bb2 Head {h00=0x002c, h01=0x0050, text=» RB(E) COP225 NULL IS REPLACED BY SPACE «, t00=0x001b, t01=0x015c}
0x2bb2…2bc6 Head {h00=0x0010, h01=0x0050, text=»COP240 EQU *«, t00=0x001b, t01=0x018c}
0x2bc6…2bda Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7B «, t00=0x001c, t01=0x0010}
0x2bda…2bf0 Head {h00=0x0012, h01=0x0050, text=» RF(NE) COP241«, t00=0x001c, t01=0x0024}
0x2bf0…2c04 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/2A «, t00=0x001c, t01=0x003a}
0x2c04…2c1c Head {h00=0x0014, h01=0x0050, text=»COP241 SCR A2,A7«, t00=0x001c, t01=0x004e}
0x2c1c…2c2e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001c, t01=0x0066}
0x2c2e…2c40 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x001c, t01=0x0078}
0x2c40…2c52 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x001c, t01=0x008a}
0x2c52…2c68 Head {h00=0x0012, h01=0x0050, text=» CWK A2,NEWLIN«, t00=0x001c, t01=0x009c}
0x2c68…2c92 Head {h00=0x0026, h01=0x0050, text=» RB(E) COP210 NL CHAR: PRINT LINE «, t00=0x001c, t01=0x00b2}
0x2c92…2ca8 Head {h00=0x0012, h01=0x0050, text=» CWK A2,ENDMES«, t00=0x001c, t01=0x00dc}
0x2ca8…2cda Head {h00=0x002e, h01=0x0050, text=» RF(E) COP300 UND MESSAGE: PRINT LAST LINE«, t00=0x001c, t01=0x00f2}
0x2cda…2cec Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x001c, t01=0x0124}
0x2cec…2d00 Head {h00=0x0010, h01=0x0050, text=» ABL COP111 «, t00=0x001c, t01=0x0136}
0x2d00…2d30 Head {h00=0x002c, h01=0x0050, text=»COP250 LDK A2,/20 REPLACE TEXT BY SPACE «, t00=0x001c, t01=0x014a}
0x2d30…2d42 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A7«, t00=0x001c, t01=0x017a}
0x2d42…2d54 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001c, t01=0x018c}
0x2d54…2d66 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x001d, t01=0x000e}
0x2d66…2d78 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x001d, t01=0x0020}
0x2d78…2d8a Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x001d, t01=0x0032}
0x2d8a…2d9c Head {h00=0x000e, h01=0x0050, text=» CWR A9,A6«, t00=0x001d, t01=0x0044}
0x2d9c…2db2 Head {h00=0x0012, h01=0x0050, text=» RF(L) COP260 «, t00=0x001d, t01=0x0056}
0x2db2…2dde Head {h00=0x0028, h01=0x0050, text=» CF A14,PRLINE LINE FULL : PRINT IT «, t00=0x001d, t01=0x006c}
0x2dde…2df6 Head {h00=0x0014, h01=0x0050, text=»COP260 LCR A2,A4«, t00=0x001d, t01=0x0098}
0x2df6…2e0a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x001d, t01=0x00b0}
0x2e0a…2e1e Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x001d, t01=0x00c4}
0x2e1e…2e44 Head {h00=0x0022, h01=0x0050, text=» RB(L) COP223 ATTRIBUTE FOUND «, t00=0x001d, t01=0x00d8}
0x2e44…2e70 Head {h00=0x0028, h01=0x0050, text=» RB COP250 STILL IN PROTECTED FIELD «, t00=0x001d, t01=0x00fe}
0x2e70…2e88 Head {h00=0x0014, h01=0x0050, text=»COP300 LDR A9,A9«, t00=0x001d, t01=0x012a}
0x2e88…2eaa Head {h00=0x001e, h01=0x0050, text=» ABL(Z) COPRTN ALL PRINTED«, t00=0x001d, t01=0x0142}
0x2eaa…2ed0 Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE PRINT LAST LINE«, t00=0x001d, t01=0x0164}
0x2ed0…2ee4 Head {h00=0x0010, h01=0x0050, text=» ABL COPRTN «, t00=0x001d, t01=0x018a}
0x2ee4…2ef2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x000e}
0x2ef2…2efc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x001c}
0x2efc…2f06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0026}
0x2f06…2f2a Head {h00=0x0020, h01=0x0050, text=»* PRINT ONE LINE ON PRINTER «, t00=0x001e, t01=0x0030}
0x2f2a…2f34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0054}
0x2f34…2f60 Head {h00=0x0028, h01=0x0050, text=»* A9=NUMBER OF CHAR IN PRINT BUFFER «, t00=0x001e, t01=0x005e}
0x2f60…2f6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x008a}
0x2f6a…2f74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0094}
0x2f74…2fac Head {h00=0x0034, h01=0x0050, text=»PRLINE IM LINCNT,TCABAS COUNT NBR OF PRINTLINES «, t00=0x001e, t01=0x009e}
0x2fac…2fd2 Head {h00=0x0022, h01=0x0050, text=» RF(N) PRL100 NOT END OF PAGE «, t00=0x001e, t01=0x00d6}
0x2fd2…2ff4 Head {h00=0x001e, h01=0x0050, text=» LDK A7,LPAGE END OF PAGE «, t00=0x001e, t01=0x00fc}
0x2ff4…3006 Head {h00=0x000e, h01=0x0050, text=» NGR A7,A7«, t00=0x001e, t01=0x011e}
0x3006…3036 Head {h00=0x002c, h01=0x0050, text=» ST A7,LINCNT,TCABAS RESET LINE COUNTER «, t00=0x001e, t01=0x0130}
0x3036…3054 Head {h00=0x001a, h01=0x0050, text=»PRL100 LD A7,ECBBA,A8 «, t00=0x001e, t01=0x0160}
0x3054…3080 Head {h00=0x0028, h01=0x0050, text=» LC A2,2,A7 GET FIRST CHAR IN BUFFER«, t00=0x001e, t01=0x017e}
0x3080…3094 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x001f, t01=0x001a}
0x3094…30aa Head {h00=0x0012, h01=0x0050, text=» CWK A2,FORMFD«, t00=0x001f, t01=0x002e}
0x30aa…30ce Head {h00=0x0020, h01=0x0050, text=» RF(NE) PRL200 NOT FORM FEED«, t00=0x001f, t01=0x0044}
0x30ce…30e2 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/20 «, t00=0x001f, t01=0x0068}
0x30e2…310a Head {h00=0x0024, h01=0x0050, text=» SC A2,2,A7 REPLACE LF BY SPACE «, t00=0x001f, t01=0x007c}
0x310a…3112 Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x00a4}
0x3112…3126 Head {h00=0x0010, h01=0x0050, text=»PRL110 EQU *«, t00=0x001f, t01=0x00ac}
0x3126…314c Head {h00=0x0022, h01=0x0050, text=» LD A1,LINCNT,TCABAS FORM FEED«, t00=0x001f, t01=0x00c0}
0x314c…315e Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x001f, t01=0x00e6}
0x315e…3196 Head {h00=0x0034, h01=0x0050, text=» ST A7,ECBRL,A8 SET REQ LENGTH TO 2 FOR NEW LINE«, t00=0x001f, t01=0x00f8}
0x3196…31ba Head {h00=0x0020, h01=0x0050, text=»PRL120 LDK A7,/86 STD WRITE «, t00=0x001f, t01=0x0130}
0x31ba…31c6 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001f, t01=0x0154}
0x31c6…31d6 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001f, t01=0x0160}
0x31d6…31f4 Head {h00=0x001a, h01=0x0050, text=» ADK A1,1 COUNT LINES «, t00=0x001f, t01=0x0170}
0x31f4…320a Head {h00=0x0012, h01=0x0050, text=» RB(N) PRL120 «, t00=0x001f, t01=0x018e}
0x320a…3220 Head {h00=0x0012, h01=0x0050, text=» LDK A7,LPAGE «, t00=0x0020, t01=0x0014}
0x3220…3232 Head {h00=0x000e, h01=0x0050, text=» NGR A7,A7«, t00=0x0020, t01=0x002a}
0x3232…3262 Head {h00=0x002c, h01=0x0050, text=» ST A7,LINCNT,TCABAS RESET LINE COUNTER «, t00=0x0020, t01=0x003c}
0x3262…3296 Head {h00=0x0030, h01=0x0050, text=»PRL200 ADKL A9,2 ADJUST LENGTH FOR BUFFER CW«, t00=0x0020, t01=0x006c}
0x3296…32b8 Head {h00=0x001e, h01=0x0050, text=» ST A9,ECBRL,A8 REQ LENGTH«, t00=0x0020, t01=0x00a0}
0x32b8…32d6 Head {h00=0x001a, h01=0x0050, text=» LDK A7,/86 STD WRITE «, t00=0x0020, t01=0x00c2}
0x32d6…32e2 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0020, t01=0x00e0}
0x32e2…32f2 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0020, t01=0x00ec}
0x32f2…3304 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0020, t01=0x00fc}
0x3304…331c Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBBA,A8 «, t00=0x0020, t01=0x010e}
0x331c…3332 Head {h00=0x0012, h01=0x0050, text=» SUR A9,A9 =1«, t00=0x0020, t01=0x0126}
0x3332…3348 Head {h00=0x0012, h01=0x0050, text=» SCR A9,A7 =1«, t00=0x0020, t01=0x013c}
0x3348…3360 Head {h00=0x0014, h01=0x0050, text=» SC A9,1,A7 =1 «, t00=0x0020, t01=0x0152}
0x3360…3388 Head {h00=0x0024, h01=0x0050, text=» ADK A7,2 RESTORE BUFFER ADDRESS«, t00=0x0020, t01=0x016a}
0x3388…3398 (33, 2, 302) Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0021, t01=0x0004}
0x3398…33a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0014}
0x33a6…33b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0022}
0x33b0…33ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x002c}
0x33ba…33de Head {h00=0x0020, h01=0x0050, text=»* SET STATUS NOT BUSY FOR DC«, t00=0x0021, t01=0x0036}
0x33de…33e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x005a}
0x33e8…33f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0064}
0x33f2…3406 Head {h00=0x0010, h01=0x0050, text=»SNBUSY EQU *«, t00=0x0021, t01=0x006e}
0x3406…3422 Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0021, t01=0x0082}
0x3422…3436 Head {h00=0x0010, h01=0x0050, text=» CM ECBCW,A8«, t00=0x0021, t01=0x009e}
0x3436…345a Head {h00=0x0020, h01=0x0050, text=» LDK A7,/B8 SET STATUS ORDER«, t00=0x0021, t01=0x00b2}
0x345a…3466 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0021, t01=0x00d6}
0x3466…3476 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0021, t01=0x00e2}
0x3476…3486 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0021, t01=0x00f2}
0x3486…3490 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0102}
0x3490…349a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x010c}
0x349a…34ae Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x0021, t01=0x0116}
0x34ae…34b2 Head {h00=0x4004, h01=0x0000}
0x34b2…34b6 00 21 01 2a ┆ ! *┆
0x34b6…34be (34, 1, 8) 20 04 00 00 00 22 00 04 ┆ " ┆
0x34be…350e (35, 0, 400) 00 92 01 68 00 12 00 50 44 52 44 43 32 30 5c 41 42 4c 5c 42 52 4d 00 93 00 08 00 0a 00 50 5c 45 4a 45 43 54 00 93 00 1e 00 06 00 50 2a 20 00 93 00 2c 00 14 00 50 2a 5c 50 4f 4c 4c 20 54 49 4d 45 20 4f 55 54 20 00 93 00 36 00 06 00 50 2a 20 ┆ h PDRDC20 ABL BRM P EJECT P* , P* POLL TIME OUT 6 P* ┆
0x350e…355e 00 93 00 4e 00 28 00 50 50 54 4f 55 54 5c 4c 44 4b 4c 5c 41 35 2c 53 54 42 5c 4c 4f 41 44 20 41 35 20 53 54 41 43 4b 20 42 41 53 45 00 93 00 58 00 10 00 50 5c 4c 44 4b 5c 41 32 2c 2f 34 30 20 00 93 00 84 00 28 00 50 5c 53 54 5c 41 32 2c 44 ┆ N ( PPTOUT LDKL A5,STB LOAD A5 STACK BASE X P LDK A2,/40 ( P ST A2,D┆
0x355e…35ae 43 4f 4e 4f 46 5c 49 4e 44 49 43 41 54 45 20 50 4f 4c 4c 20 54 49 4d 45 20 4f 55 54 00 93 00 98 00 2a 00 50 5c 43 46 5c 41 31 35 2c 43 4b 4d 45 53 53 5c 43 48 45 43 4b 20 49 46 20 53 54 41 54 55 53 20 43 48 41 4e 47 45 20 00 93 00 c4 00 24 ┆CONOF INDICATE POLL TIME OUT * P CF A15,CKMESS CHECK IF STATUS CHANGE $┆
0x35ae…35fe 00 50 5c 43 46 5c 41 31 35 2c 53 50 4f 54 49 4d 5c 53 54 41 52 54 20 50 4f 4c 4c 20 54 49 4d 45 52 20 00 93 00 f2 00 0e 00 50 5c 41 42 4c 5c 54 44 49 53 50 00 93 01 1a 00 06 00 50 2a 20 00 93 01 2c 00 34 00 50 2a 5c 52 45 53 54 41 52 54 20 ┆ P CF A15,SPOTIM START POLL TIMER P ABL TDISP P* , 4 P* RESTART ┆
0x35fe…364e 50 4f 4c 4c 20 54 49 4d 45 52 20 57 48 45 4e 20 50 4f 4c 4c 20 48 41 53 20 42 45 45 4e 20 52 45 43 45 49 56 45 44 00 93 01 36 00 06 00 50 2a 20 00 93 01 6e 00 24 00 50 43 50 54 49 4d 5c 43 4d 5c 44 43 4f 4e 4f 46 5c 49 4e 44 49 43 41 54 45 ┆POLL TIMER WHEN POLL HAS BEEN RECEIVED 6 P* n $ PCPTIM CM DCONOF INDICATE┆
0x364e…369e (36, 0, 400) 20 50 4f 4c 4c 49 4e 47 00 93 01 78 00 14 00 50 5c 4c 44 4b 4c 5c 41 32 2c 2d 54 49 4d 50 4f 4c 00 94 00 10 00 20 00 50 5c 53 54 2a 5c 41 32 2c 44 43 54 50 47 50 5c 52 45 53 54 41 52 54 20 54 49 4d 45 52 00 94 00 28 00 2a 00 50 5c 43 46 5c ┆ POLLING x P LDKL A2,-TIMPOL P ST* A2,DCTPGP RESTART TIMER ( * P CF ┆
0x369e…36ee 41 31 35 2c 43 4b 4d 45 53 53 5c 43 48 45 43 4b 20 49 46 20 53 54 41 54 55 53 20 43 48 41 4e 47 45 20 00 94 00 4c 00 0c 00 50 5c 52 54 4e 5c 41 35 20 00 94 00 7a 00 06 00 50 2a 20 00 94 00 8a 00 16 00 50 2a 5c 53 54 41 52 54 20 50 4f 4c 4c ┆A15,CKMESS CHECK IF STATUS CHANGE L P RTN A5 z P* P* START POLL┆
0x36ee…373e 20 54 49 4d 45 52 00 94 00 94 00 06 00 50 2a 20 00 94 00 ae 00 24 00 50 53 50 4f 54 49 4d 5c 43 46 5c 41 31 35 2c 53 45 54 49 4d 45 5c 53 54 41 52 54 20 54 49 4d 45 52 00 94 00 b8 00 16 00 50 5c 44 41 54 41 5c 50 54 4f 55 54 2c 54 49 4d 50 ┆ TIMER P* $ PSPOTIM CF A15,SETIME START TIMER P DATA PTOUT,TIMP┆
0x373e…378e 4f 4c 00 94 00 e0 00 26 00 50 5c 53 54 5c 41 34 2c 44 43 54 50 47 50 5c 53 54 4f 52 45 20 54 49 4d 45 52 20 50 4f 49 4e 54 45 52 20 00 94 00 fa 00 10 00 50 5c 41 44 4b 4c 5c 41 31 35 2c 34 20 00 94 01 24 00 0e 00 50 5c 41 42 52 2a 5c 41 31 ┆OL & P ST A4,DCTPGP STORE TIMER POINTER P ADKL A15,4 $ P ABR* A1┆
0x378e…37de 35 20 00 94 01 38 00 0a 00 50 5c 45 4a 45 43 54 00 94 01 4a 00 06 00 50 2a 20 00 94 01 58 00 1c 00 50 2a 5c 53 54 41 52 54 20 50 52 4f 43 45 44 55 52 45 20 54 49 4d 45 52 20 00 94 01 62 00 06 00 50 2a 20 00 94 01 82 00 10 00 50 53 50 54 49 ┆5 8 P EJECT J P* X P* START PROCEDURE TIMER b P* PSPTI┆