|
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: 23868 (0x5d3c)
Notes: pts_type(SC)
Names: »PRT.SC«
└─⟦22f4dea89⟧ Bits:30009702 Philips computer tape "DOS_PTS_4.2_M_FL"
└─⟦this⟧ »PRT:3270/PRT.SC«
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
└─⟦this⟧ »PRT:3270/PRT.SC«
IDENT PRT 2.1DK 6 831108/EV 870150540210
=1, ODD BUFFER ADDRESS
REL 2.1 79-05-23
DK6 TRANSFER DWTINFO, 831108/EV
DK5 - SPOOLING
DK4 - SUPPRESS SPACES
DK3 - CHECK PRINTER
DK2 - DC TIMEOUT
DK1 - LP400, DEC. PRINT
*************************************************************************
*
* P R T : MODULE PRINTING MAIN FRAME MESSAGES ADDRESSED TO THE
* GENERAL PRINTER. LOCAL HARDCOPY PRINTING IS ALSO
* CARRIED OUT IN THIS MODULE
*
**********************************************************************
*
*
*
*
* 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 ICWRTE DK5
EXTRN REQTIM
*
EXTRN I:EVA0 CREDIT EVALUATION ROUTINE
*
EXTRN EMULA START
*
*
*************************************************
*
* CONDITIONAL ASSEMBLY PARAMETERS
*
*****************************************
OFLIN EQU 1 OFFLINE HANDLING POSSIBLE IF ::= 1
DCLIN EQU 1 NUMBER OF MAIN FRAMES (1-2)
COPCMD EQU 1 COPY COMMAND IF := 1
*
* SUPPRESSION OF TRAILING SPACES DK4
* ONLY RELEVANT FOR LP100 DK4
SUSPA EQU 0 DK4
*
*
* IF POSSIBILY TO COMMUNICATE WITH SPOOLING SYSTEM DK5
* SHOULD BE INCLUDED, SET SPOOL=1 DK5
* DK5
DK5
SPOOL EQU 1 =1, POSSIBILITY FOR SPOOLING DK5
* EQUATES
*
*
*
TIMDC EQU 600 DC TIME OUT: 60 S DK2
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
TRCH EQU /F0 DK1
*
*
*
* 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
*
*
* 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
IFT SPOOL=1 DK5
* DK5
ICBUF EQU RDMORE+2 SPOOL RESPONSE BUFFER DK5
* DK5
XIF DK5
*
PRBUSY EQU -2 PRINTER BUSY. OCCUPIES BOOLEAN VARAIBLE
*
*
*
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
LPLIN EQU 132 LINELENGTH FOR LP
*
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
EJECT
*************************************************
*
* TRANSFER PARAMETER FOR MAIN-FRAME #1
*
*************************************************
LC A1,MF1GTP-1,A4
ANK A1,/FF
LDKL A8,ECBDC
CF A14,EMULA
LDKL A8,ECBDC DK6
ADR A8,CREBAS DK6
LDK A1,1 LP BIT DK6
ST A1,ECBCW,A8 DK6
LDK A7,/B1 TRANSFER DWTINF DK6
LKM DK6
DATA 1 DK6
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
*
*
* 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
CF A14,SPBFST CHANGE SPOOL BUFFER ADDRESS DK5
PRI100 EQU *
CM ECBDCC,TCABAS CL'R DC SAVE FOR FLAG DK5
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
*
*
* 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
*
****************************************************************
*
* 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
IFT SPOOL=1 DK5
CF A14,SPBFPR SPOOL BUFFER PREPARATION DK5
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
*
*
* ABORT INTERTASK READ
*
ICABOR EQU *
LDK A7,0
CM ECBBLK+ICR,TCABAS
LDKL A8,ECBICR
ADR A8,CREBAS
LKM
DATA 10
RTN A14
*
*
* INPUT FROM INTERTASK
*
ICRINP EQU *
CM ECBBLK+ICR,TCABAS
IFT SPOOL=0 DK5
RF ICR050
XIF
IFT SPOOL=1 DK5
CF A14,SPBFPR SPOOL BUFFER PREPARATION DK5
RF ICR050
EJECT
* IF SPOOL ALLOWED DK5
* THEN IF SPOOL DEVICE (TID='LA') DK5
* THEN SHIFT START ADDRESS FOR PRINTER DK5
* BUFFER 6 BYTES RIGHT TO MAKE ROOM DK5
* FOR SPOOL PARAMETERS DK5
* ENDIF DK5
* ENDIF DK5
*
*
SPBFST EQU *
LD A5,PRINTER,TCABAS GET TASKID DK5
CWK A5,'LA' CHECK IF LP DK5
RF(NZ) PRI040 NOT SPOOL DEVICE DK5
LDKL A8,ECBPR PRINTER ECB DK5
ADR A8,CREBAS DK5
LD A7,ECBBA,A8 GET BUFFER ADDRESS DK5
ADK A7,6 RESERVE 6 BYTES DK5
ST A7,ECBBA,A8 RESTORE DK5
PRI040 EQU * DK5
RTN A14 DK5
EJECT
* IF SPOOL ALLOWED DK5
* THEN IF SPOOL DEVICE (TID='LA') DK5
* THEN SHIFT START ADDRESS FOR PRINTER DK5
* BUFFER 6 BYTES RIGHT TO MAKE ROOM DK5
* FOR SPOOL PARAMETERS DK5
* ENDIF DK5
* ENDIF DK5
*
*
SPBFPR EQU *
LD A5,PRINTER,TCABAS GET TASKID DK5
CWK A5,'LA' CHECK IF LP DK5
RF(NZ) PRI050 NOT SPOOL DEVICE DK5
LD A1,ECBCW,A8 GET SOURCE 'TID' DK5
LDKL A8,ECBPR PRINTER ECB DK5
ADR A8,CREBAS DK5
LD A7,ECBBA,A8 GET BUFFER ADDRESS DK5
SUK A7,6 ORIGINAL START BUFFER DK5
STR A1,A7 INSERT SOURCE 'TID' DK5
IN BUFFER HEADER DK5
PRI050 EQU * DK5
RTN A14 DK5
EJECT DK5
XIF DK5
ICR050 EQU *
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
ABL PRI100
*
*
*
* PRINT THE CONTENTS OF THE PRINTER BUFFER
*
*
LINLEN DATA /0028,/4050 LINE LENGTHS /40, 64 AND 80 CHARS
*
*
COPY EQU *
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 EQU *
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,LPLIN DK3
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,FORMFD DK1
RB(E) COP210 DK1
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
*
*
*
* PRINT ONE LINE ON PRINTER
*
* A9=NUMBER OF CHAR IN PRINT BUFFER
*
*
PRLINE EQU *
IFT SUSPA=1 DK4
CF A14,SKIPSP DK4
XIF DK4
IM LINCNT,TCABAS COUNT NBR OF PRINTLINES
RF(N) PRL100 NOT END OF PAGE
LDK A7,LPAGE END OF PAGE
NGR A7,A7
ST A7,LINCNT,TCABAS RESET LINE COUNTER
PRL100 LD A7,ECBBA,A8
********************* LP 400 SUPPORT ********* DK
LC A2,2,A7 GET FORMCONTROL CHAR DK
ANK A2,/7F REMOVE PARITY BIT DK
CWK A2,FORMFD DK
RF(NE) PRL106 NO, NORMAL PRINT DK
LDK A2,/31 DK
SC A2,1,A7 CHANGE TO FORMFEED DK
LDK A7,2 DK
ST A7,ECBRL,A8 REQ LENGTH = 2 DK
CF A14,PRLKM DK3
LDK A7,LPAGE DK
NGR A7,A7 DK
ST A7,LINCNT,TCABAS RESET LINE COUNTER DK
RF PRL220
PRL105 EQU * DK
******************** END LP400 SUPPORT DK
LC A2,2,A7 GET FIRST CHAR IN BUFFER
ANK A2,/7F
PRL106 EQU * DK
CWK A2,FORMFD
RF(NE) PRL200 NOT FORM FEED
LDK A2,/20
SC A2,2,A7 REPLACE LF BY SPACE
PRL110 EQU *
LD A1,LINCNT,TCABAS FORM FEED
LDK A7,2
ST A7,ECBRL,A8 SET REQ LENGTH TO 2 FOR NEW LINE
PRL120 EQU *
CF A14,PRLKM DK3
ADK A1,1 COUNT LINES
RB(N) PRL120
LDK A7,LPAGE
NGR A7,A7
ST A7,LINCNT,TCABAS RESET LINE COUNTER
PRL200 ADKL A9,2 ADJUST LENGTH FOR BUFFER CW
ST A9,ECBRL,A8 REQ LENGTH
PRL210 EQU * DK
CF A14,PRLKM DK3
PRL220 EQU * DK
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
*
*
*
*
PRLKM EQU * DK3
IFT SPOOL=1 DK5
LD A5,PRINTER,TCABAS CHECK IF SPOOL DEV. DK5
CWK A5,'LA' DK5
RF(NZ) PRLKMP NOT SPOOL DEVICE DK5
CF A14,PRSPOL SPOOL DK5
*
* TEST RETURN CODE
*
LDR A1,A1 TEST RETURN DK5
RB(NZ) PRLKM NO GOOD DK5
RTN A14 RETURN DK5
* DK5
PRLKMP EQU * DK5
XIF DK5
LDK A7,/86 DK3
LKM DK3
DATA 1 DK3
LD A7,ECBRC,A8 GET RETURN CODE DK3
ANKL A7,/2005 BIT 2,3,15? DK3
RB(NZ) PRLKM NO, TRY AGAIN DK3
RTN A14 DK3
*
IFT SPOOL=1 DK5
EJECT
**
*PRINT LINES DIRECTED TO SPOOL TASK
*
* CALLING:
*
* CF A14,PRSPOL
* REG. A8 = PRINTER ECB POINTER
*
* CHANGED REGISTERS ARE:
* A1,A2, AND A5
**
*HERE COMES SPOOLING?????? DK5
DK5B
* START OF LOOP
* SET ECB FOR PRINTER
* GET REQ. LENGTH
* GET BUFFER ADR
* CHANGE BUFFER ADDRESS 6 BYTES LEFT AND
* INSERT CURRENT TID, FUNCTION (PRINT)
* AND REQUESTED LENGTH
* CHANGE ECB TO ICWRITE
* INSERT BUFFER ADR, NEW REQ. LENGTH, AND
* TO-TID
* INTERTASK WRITE WITH WAIT
* QUIT TO DIRECT PRINT IF ERROR
* SET UP INTERTASK READ
* CHANGE ECB TO ICREAD
* BUFFER, REQ.LENGTH=2, ADR FROM
* SPOOL MASTER
* INTERTASK READ WITH WAIT
* QUIT TO DIRECT PRINT IF ERROR
* LOOP IF REPEAT
*
* IF OK, RETURN
* SET PRINTER ECB
EJECT
PRSPOL EQU * DK5
LDKL A5,ECBICW GET INTER-TASK ECB
ADR A5,CREBAS
LD A2,ECBBA,A8 GET PRINTER BUFFER DK5
SUK A2,2 BUILD HEADER DK5
LD A1,ECBRL,A8 PUT REQ. LEN. IN HEADER DK5
STR A1,A2 DK5
SUK A2,2 POINTER -2 DK5
LDK A1,2 PUT FUNCTION (2) IN HEADER DK5
STR A1,A2 DK5
SUK A2,2 POINTER -2
*
* INSERT OWN TID IF DATA FROM DC-LINE
*
LD A1,ECBDCC,TCABAS CHECK DC FLAG DK5
RF(Z) PRS030 NOT FROM DC, HARDCPY DK5
LD A1,ICWORK,TCABAS HRDCPY PENDING? DK5
RF(NZ) PRS030 YES , HANDLE IT DK5
LDKL A1,'LA' DC, INSERT OUR TID DK5
STR A1,A2 DK5
PRS030 EQU *
ST A2,ECBBA,A5 BUFFER ADDR. TO IC-ECB DK5
LD A1,ECBRL,A8 GET ORIG. REQ. LEN DK5
ADK A1,6 ADJUST FOR HEADER DK5
ST A1,ECBRL,A5 PUT IN IC-ECB DK5
LDR A8,A5 GET INTASK ECB DK5
LDKL A1,-1 NO TIME OUT DK5
CF A14,REQTIM SET IT DK5
LDKL A1,'S0' SET 'TO' TASK-ID DK5
ST A1,ECBCW,A8 DK5
LDK A7,/8B ORDER = ADDRESSED WRITE DK5
*
LKM
DATA 1
*
LD A1,ECBRC,A8 OK? DK5
RF(NZ) PRS090 NO, QUIT DK5
EJECT
* READ THE RESULT....
*
LDKL A8,ECBICR PREPARE THE REQUEST (READ) DK5
ADR A8,CREBAS DK5
LDKL A1,-1 SET TIME-OUT = (NONE) DK5
CF A14,REQTIM DK5
LDKL A1,'S0' READ = ADDRESSED DK5
ST A1,ECBCW,A8
LDK A1,2 REQ. LENG DK5
ST A1,ECBRL,A8 DK5
LDKL A1,ICBUF SET BUFFER ADDR. DK5
ADR A1,TCABAS DK5
ST A1,ECBBA,A8 DK5
LDK A7,/8A ORDER = READ ADDRESSED DK5
*
LKM
DATA 1
*
LD A1,ECBRC,A8 TEST RESULT DK5
RF(NZ) PRS090 NO GOOD, QUIT DK5
LC* A1,ECBBA,A8 TEST MESSAGE CODE DK5
SUK A1,'0' MUST BE ASCII '0' DK5
PRS090 EQU *
LDKL A8,ECBPR RESTORE PRINTER ECB TO A8
ADR A8,CREBAS DK5
RTN A14 DK5
XIF DK5
*
IFT SUSPA=1 DK4B
*
*
* SKIPSP = SUBROTINE TO SKIP SPACES
* IN END OF ECB-BUFFER.
* REQUESTED LENGTH IN A9 IS UPDATED.
* A1,A2 - WORK REG
*
SKIPSP EQU *
ADKL A9,2
LD A1,2,A8 GET BUFFER ADDRESS (BA)
ADR A1,A9 GET ADD END OF BUFFER
SKIP05 CWK A9,2
RF(NG) SKIP30 RL < 3
SUK A1,1 DECR. BA
LCR A2,A1 GET CHAR
CCK A2,/2020 SPACE ?
RF(NE) SKIP20 NO
SKIP07 SUKL A9,1 DECR RL
RB SKIP05 GET NEXT
SKIP20 CWK A9,4
RF(NG) SKIP30 RL < 5
LC A2,-2,A1 GET CHAR
CCK A2,/1111 TABULATION CHAR ?
RF(NE) SKIP30 NO
SUK A1,2 DECR BA
SUKL A9,2 DECR RL
RB SKIP07 GET NEXT
*
SKIP30 EQU *
SUKL A9,2
RTN A14
XIF DK4E
*
END
0x0000…0036 (0, 0, 398) Head {h00=0x0032, h01=0x0050, text=» IDENT PRT 2.1DK 6 831108/EV 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…00a6 Head {h00=0x0026, h01=0x0050, text=» DK6 TRANSFER DWTINFO, 831108/EV«, t00=0x0000, t01=0x0080}
0x00a6…00c0 Head {h00=0x0016, h01=0x0050, text=» DK5 - SPOOLING «, t00=0x0000, t01=0x00aa}
0x00c0…00e0 Head {h00=0x001c, h01=0x0050, text=» DK4 - SUPPRESS SPACES«, t00=0x0000, t01=0x00c4}
0x00e0…00fe Head {h00=0x001a, h01=0x0050, text=» DK3 - CHECK PRINTER«, t00=0x0000, t01=0x00e4}
0x00fe…011a Head {h00=0x0018, h01=0x0050, text=» DK2 - DC TIMEOUT «, t00=0x0000, t01=0x0102}
0x011a…013c Head {h00=0x001e, h01=0x0050, text=» DK1 - LP400, DEC. PRINT«, t00=0x0000, t01=0x011e}
0x013c…018e Head {h00=0x004e, h01=0x0050, text=»************************************************************************* «, t00=0x0000, t01=0x0140}
0x018e…0198 (1, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0004}
0x0198…01e2 Head {h00=0x0046, h01=0x0050, text=»* P R T : MODULE PRINTING MAIN FRAME MESSAGES ADDRESSED TO THE«, t00=0x0001, t01=0x000e}
0x01e2…0228 Head {h00=0x0042, h01=0x0050, text=»* GENERAL PRINTER. LOCAL HARDCOPY PRINTING IS ALSO «, t00=0x0001, t01=0x0058}
0x0228…0258 Head {h00=0x002c, h01=0x0050, text=»* CARRIED OUT IN THIS MODULE «, t00=0x0001, t01=0x009e}
0x0258…0262 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ce}
0x0262…02b0 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0001, t01=0x00d8}
0x02b0…02ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0126}
0x02ba…02c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0130}
0x02c4…02cc Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x013a}
0x02cc…02d4 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0142}
0x02d4…02de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x014a}
0x02de…02e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0154}
0x02e8…0302 Head {h00=0x0016, h01=0x0050, text=»* ENTRY PARAMETERS«, t00=0x0001, t01=0x015e}
0x0302…030c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0178}
0x030c…0316 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0182}
0x0316…032c Head {h00=0x0012, h01=0x0050, text=» ENTRY SNBUSY «, t00=0x0001, t01=0x018c}
0x032c…0340 Head {h00=0x0010, h01=0x0050, text=» ENTRY PRINT«, t00=0x0002, t01=0x0012}
0x0340…0356 Head {h00=0x0012, h01=0x0050, text=» ENTRY ICREAD «, t00=0x0002, t01=0x0026}
0x0356…0360 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x003c}
0x0360…036a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0046}
0x036a…0388 Head {h00=0x001a, h01=0x0050, text=»* EXTERNAL PARAMETERS «, t00=0x0002, t01=0x0050}
0x0388…0392 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x006e}
0x0392…039c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0078}
0x039c…03c8 Head {h00=0x0028, h01=0x0050, text=» EXTRN UPDATE UPDATE BUFFER CONTENTS«, t00=0x0002, t01=0x0082}
0x03c8…03f4 Head {h00=0x0028, h01=0x0050, text=» EXTRN RFMDUP REPLACE FM & DUP CHARS«, t00=0x0002, t01=0x00ae}
0x03f4…040a Head {h00=0x0012, h01=0x0050, text=» EXTRN GTRBUF «, t00=0x0002, t01=0x00da}
0x040a…0420 Head {h00=0x0012, h01=0x0050, text=» EXTRN DCGETM «, t00=0x0002, t01=0x00f0}
0x0420…0436 Head {h00=0x0012, h01=0x0050, text=» EXTRN RELBUF «, t00=0x0002, t01=0x0106}
0x0436…044c Head {h00=0x0012, h01=0x0050, text=» EXTRN DC1INQ «, t00=0x0002, t01=0x011c}
0x044c…0462 Head {h00=0x0012, h01=0x0050, text=» EXTRN DC2INQ «, t00=0x0002, t01=0x0132}
0x0462…047c Head {h00=0x0016, h01=0x0050, text=» EXTRN ICWRTE DK5«, t00=0x0002, t01=0x0148}
0x047c…0492 Head {h00=0x0012, h01=0x0050, text=» EXTRN REQTIM «, t00=0x0002, t01=0x0162}
0x0492…049c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0178}
0x049c…04cc Head {h00=0x002c, h01=0x0050, text=» EXTRN I:EVA0 CREDIT EVALUATION ROUTINE «, t00=0x0002, t01=0x0182}
0x04cc…04d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0022}
0x04d6…04f0 Head {h00=0x0016, h01=0x0050, text=» EXTRN EMULA START«, t00=0x0003, t01=0x002c}
0x04f0…04fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0046}
0x04fa…0504 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0050}
0x0504…053e Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0003, t01=0x005a}
0x053e…0548 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0094}
0x0548…0574 Head {h00=0x0028, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS «, t00=0x0003, t01=0x009e}
0x0574…057e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ca}
0x057e…05b0 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0003, t01=0x00d4}
0x05b0…05b8 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0106}
0x05b8…05ee Head {h00=0x0032, h01=0x0050, text=»OFLIN EQU 1 OFFLINE HANDLING POSSIBLE IF ::= 1«, t00=0x0003, t01=0x010e}
0x05ee…061e Head {h00=0x002c, h01=0x0050, text=»DCLIN EQU 1 NUMBER OF MAIN FRAMES (1-2) «, t00=0x0003, t01=0x0144}
0x061e…0648 Head {h00=0x0026, h01=0x0050, text=»COPCMD EQU 1 COPY COMMAND IF := 1 «, t00=0x0003, t01=0x0174}
0x0648…0652 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x000e}
0x0652…0680 Head {h00=0x002a, h01=0x0050, text=»* SUPPRESSION OF TRAILING SPACES DK4 «, t00=0x0004, t01=0x0018}
0x0680…06a6 Head {h00=0x0022, h01=0x0050, text=»* ONLY RELEVANT FOR LP100 DK4«, t00=0x0004, t01=0x0046}
0x06a6…06be Head {h00=0x0014, h01=0x0050, text=»SUSPA EQU 0 DK4«, t00=0x0004, t01=0x006c}
0x06be…06c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0084}
0x06c8…06d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x008e}
0x06d2…0716 Head {h00=0x0040, h01=0x0050, text=»* IF POSSIBILY TO COMMUNICATE WITH SPOOLING SYSTEM DK5 «, t00=0x0004, t01=0x0098}
0x0716…074a Head {h00=0x0030, h01=0x0050, text=»* SHOULD BE INCLUDED, SET SPOOL=1 DK5«, t00=0x0004, t01=0x00dc}
0x074a…075a Head {h00=0x000c, h01=0x0050, text=»* DK5«, t00=0x0004, t01=0x0110}
0x075a…076a Head {h00=0x000c, h01=0x0050, text=» DK5 «, t00=0x0004, t01=0x0120}
0x076a…079e Head {h00=0x0030, h01=0x0050, text=»SPOOL EQU 1 =1, POSSIBILITY FOR SPOOLING DK5«, t00=0x0004, t01=0x0130}
0x079e…07b0 Head {h00=0x000e, h01=0x0050, text=»* EQUATES «, t00=0x0004, t01=0x0164}
0x07b0…07ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0176}
0x07ba…07c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0180}
0x07c4…07ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x018a}
0x07ce…07fa (5, 0, 400) Head {h00=0x0028, h01=0x0050, text=»TIMDC EQU 600 DC TIME OUT: 60 S DK2 «, t00=0x0005, t01=0x0004}
0x07fa…080e Head {h00=0x0010, h01=0x0050, text=»ESC EQU /1B «, t00=0x0005, t01=0x0030}
0x080e…0822 Head {h00=0x0010, h01=0x0050, text=»SBA EQU /11 «, t00=0x0005, t01=0x0044}
0x0822…0846 Head {h00=0x0020, h01=0x0050, text=»NULL EQU /7F NULL CHARACTER «, t00=0x0005, t01=0x0058}
0x0846…0870 Head {h00=0x0026, h01=0x0050, text=»NEWLIN EQU /7E NEW LINE CHARACTER «, t00=0x0005, t01=0x007c}
0x0870…0898 Head {h00=0x0024, h01=0x0050, text=»ENDMES EQU /7D END MESSAGE CHAR «, t00=0x0005, t01=0x00a6}
0x0898…08be Head {h00=0x0022, h01=0x0050, text=»FORMFD EQU /7C FORMFEED CHAR. «, t00=0x0005, t01=0x00ce}
0x08be…08d2 Head {h00=0x0010, h01=0x0050, text=»FMCH EQU /60«, t00=0x0005, t01=0x00f4}
0x08d2…08e8 Head {h00=0x0012, h01=0x0050, text=»DUPCH EQU /7B «, t00=0x0005, t01=0x0108}
0x08e8…0902 Head {h00=0x0016, h01=0x0050, text=»TRCH EQU /F0 DK1 «, t00=0x0005, t01=0x011e}
0x0902…090c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0138}
0x090c…0916 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0142}
0x0916…0920 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x014c}
0x0920…0936 Head {h00=0x0012, h01=0x0050, text=»* EQUATES «, t00=0x0005, t01=0x0156}
0x0936…0940 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x016c}
0x0940…0966 Head {h00=0x0022, h01=0x0050, text=»* COMMON EQU FOR ECB HANDLING «, t00=0x0005, t01=0x0176}
0x0966…0970 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x000c}
0x0970…0978 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0016}
0x0978…098c Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0006, t01=0x001e}
0x098c…09a0 Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0006, t01=0x0032}
0x09a0…09b4 Head {h00=0x0010, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0006, t01=0x0046}
0x09b4…09c8 Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0006, t01=0x005a}
0x09c8…09dc Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU 10«, t00=0x0006, t01=0x006e}
0x09dc…09e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0082}
0x09e6…09f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x008c}
0x09f0…0a0a Head {h00=0x0016, h01=0x0050, text=»* CREDIT USED EQU «, t00=0x0006, t01=0x0096}
0x0a0a…0a14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00b0}
0x0a14…0a1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ba}
0x0a1e…0a3a Head {h00=0x0018, h01=0x0050, text=»* ECB REL. ADDRESSES«, t00=0x0006, t01=0x00c4}
0x0a3a…0a44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00e0}
0x0a44…0a4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ea}
0x0a4e…0a60 Head {h00=0x000e, h01=0x0050, text=»DIS EQU 20«, t00=0x0006, t01=0x00f4}
0x0a60…0a6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0106}
0x0a6a…0a84 Head {h00=0x0016, h01=0x0050, text=»ECBDC EQU -DIS-14 «, t00=0x0006, t01=0x0110}
0x0a84…0a98 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0006, t01=0x012a}
0x0a98…0ab4 Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0006, t01=0x013e}
0x0ab4…0ad2 Head {h00=0x001a, h01=0x0050, text=»ECBICR EQU ECBDC2-DIS «, t00=0x0006, t01=0x015a}
0x0ad2…0ade Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x0178}
0x0ade…0af2 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0006, t01=0x0184}
0x0af2…0b0e Head {h00=0x0018, h01=0x0050, text=»ECBICR EQU ECBDC-DIS«, t00=0x0007, t01=0x0008}
0x0b0e…0b1a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x0024}
0x0b1a…0b30 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0007, t01=0x0030}
0x0b30…0b4e Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0007, t01=0x0046}
0x0b4e…0b6a Head {h00=0x0018, h01=0x0050, text=»ECBPR EQU ECBICW-DIS«, t00=0x0007, t01=0x0064}
0x0b6a…0b76 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x0080}
0x0b76…0b8c Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0007, t01=0x008c}
0x0b8c…0ba8 Head {h00=0x0018, h01=0x0050, text=»ECBPR EQU ECBICR-DIS«, t00=0x0007, t01=0x00a2}
0x0ba8…0bb4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x00be}
0x0bb4…0bbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ca}
0x0bbe…0bc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00d4}
0x0bc8…0bee Head {h00=0x0022, h01=0x0050, text=»* BASE ADDRESS FOR TCA AND ECB«, t00=0x0007, t01=0x00de}
0x0bee…0bf8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0104}
0x0bf8…0c0e Head {h00=0x0012, h01=0x0050, text=»TCABAS EQU A11«, t00=0x0007, t01=0x010e}
0x0c0e…0c28 Head {h00=0x0016, h01=0x0050, text=»CREBAS EQU A13 ECB«, t00=0x0007, t01=0x0124}
0x0c28…0c32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x013e}
0x0c32…0c5c Head {h00=0x0026, h01=0x0050, text=»* CONFIG DATA 'CB1' REL ADDRESSES «, t00=0x0007, t01=0x0148}
0x0c5c…0c66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0172}
0x0c66…0c8c Head {h00=0x0022, h01=0x0050, text=»NBRKBV EQU 0 NUMBER OF KB/VDUS«, t00=0x0007, t01=0x017c}
0x0c8c…0cb6 Head {h00=0x0026, h01=0x0050, text=»NBRGTP EQU NBRKBV+2 NUMBER OF GTPS«, t00=0x0008, t01=0x0012}
0x0cb6…0cc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x003c}
0x0cc0…0cf6 Head {h00=0x0032, h01=0x0050, text=»MF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 «, t00=0x0008, t01=0x0046}
0x0cf6…0d2c Head {h00=0x0032, h01=0x0050, text=»MF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 «, t00=0x0008, t01=0x007c}
0x0d2c…0d40 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0008, t01=0x00b2}
0x0d40…0d5c Head {h00=0x0018, h01=0x0050, text=»MF2KBV EQU MF1GTP+16«, t00=0x0008, t01=0x00c6}
0x0d5c…0d78 Head {h00=0x0018, h01=0x0050, text=»MF2GTP EQU MF2KBV+16«, t00=0x0008, t01=0x00e2}
0x0d78…0d84 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x00fe}
0x0d84…0d8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x010a}
0x0d8e…0d98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0114}
0x0d98…0db4 Head {h00=0x0018, h01=0x0050, text=»* TCA REL. ADDRESSES«, t00=0x0008, t01=0x011e}
0x0db4…0dbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x013a}
0x0dbe…0dd2 Head {h00=0x0010, h01=0x0050, text=»TCT01 EQU 0 «, t00=0x0008, t01=0x0144}
0x0dd2…0dee Head {h00=0x0018, h01=0x0050, text=»PRINTER EQU TCT01+2 «, t00=0x0008, t01=0x0158}
0x0dee…0e1a Head {h00=0x0028, h01=0x0050, text=»BVDU EQU PRINTER+2 VDU SCREEN BUFFER«, t00=0x0008, t01=0x0174}
0x0e1a…0e4e Head {h00=0x0030, h01=0x0050, text=»PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY «, t00=0x0009, t01=0x0010}
0x0e4e…0e7c Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x0009, t01=0x0044}
0x0e7c…0e98 Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x0009, t01=0x0072}
0x0e98…0ec2 Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x0009, t01=0x008e}
0x0ec2…0ef4 Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x0009, t01=0x00b8}
0x0ef4…0f1c Head {h00=0x0024, h01=0x0050, text=»LINCNT EQU KBINH+2 LINE COUNTER «, t00=0x0009, t01=0x00ea}
0x0f1c…0f50 Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH«, t00=0x0009, t01=0x0112}
0x0f50…0f86 Head {h00=0x0032, h01=0x0050, text=»ICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM «, t00=0x0009, t01=0x0146}
0x0f86…0fb6 Head {h00=0x002c, h01=0x0050, text=»INTATT EQU ICWORK+2 INTENSITY ATTRIBUTE «, t00=0x0009, t01=0x017c}
0x0fb6…0fde Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU INTATT+2 OFFLINE FLAG«, t00=0x000a, t01=0x001c}
0x0fde…100a Head {h00=0x0028, h01=0x0050, text=»COPNO EQU OFFFLG+2 HARDCOPY TASK ID «, t00=0x000a, t01=0x0044}
0x100a…1038 Head {h00=0x002a, h01=0x0050, text=»CCC EQU COPNO+2 COPY COMMAND CHARACTER«, t00=0x000a, t01=0x0070}
0x1038…105a Head {h00=0x001e, h01=0x0050, text=»MAIN EQU CCC+2 MAIN FRAME «, t00=0x000a, t01=0x009e}
0x105a…1084 Head {h00=0x0026, h01=0x0050, text=»MODE EQU MAIN+2 INSERT MODE SWITCH«, t00=0x000a, t01=0x00c0}
0x1084…10ac Head {h00=0x0024, h01=0x0050, text=»KEYS EQU MODE+2 KEY LOCK STATUS «, t00=0x000a, t01=0x00ea}
0x10ac…10de Head {h00=0x002e, h01=0x0050, text=»ECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC«, t00=0x000a, t01=0x0112}
0x10de…1114 Head {h00=0x0032, h01=0x0050, text=»ECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C «, t00=0x000a, t01=0x0144}
0x1114…114c Head {h00=0x0034, h01=0x0050, text=»RDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB«, t00=0x000a, t01=0x017a}
0x114c…1166 Head {h00=0x0016, h01=0x0050, text=» IFT SPOOL=1 DK5 «, t00=0x000b, t01=0x0022}
0x1166…1176 Head {h00=0x000c, h01=0x0050, text=»* DK5«, t00=0x000b, t01=0x003c}
0x1176…11aa Head {h00=0x0030, h01=0x0050, text=»ICBUF EQU RDMORE+2 SPOOL RESPONSE BUFFER DK5«, t00=0x000b, t01=0x004c}
0x11aa…11ba Head {h00=0x000c, h01=0x0050, text=»* DK5«, t00=0x000b, t01=0x0080}
0x11ba…11cc Head {h00=0x000e, h01=0x0050, text=» XIF DK5«, t00=0x000b, t01=0x0090}
0x11cc…11d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00a2}
0x11d6…1214 Head {h00=0x003a, h01=0x0050, text=»PRBUSY EQU -2 PRINTER BUSY. OCCUPIES BOOLEAN VARAIBLE «, t00=0x000b, t01=0x00ac}
0x1214…121e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00ea}
0x121e…1226 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00f4}
0x1226…1230 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00fc}
0x1230…123a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0106}
0x123a…1268 Head {h00=0x002a, h01=0x0050, text=»LBVDU EQU 1920 1920 CHARACTER DISPLAY «, t00=0x000b, t01=0x0110}
0x1268…128e Head {h00=0x0022, h01=0x0050, text=»LPAGE EQU 48 LINES ON ONE PAGE«, t00=0x000b, t01=0x013e}
0x128e…12cc Head {h00=0x003a, h01=0x0050, text=»GTPLIN EQU 112 LINELENGTH MAX 112 CHAR. 'NL' ORDER IN «, t00=0x000b, t01=0x0164}
0x12cc…12fc Head {h00=0x002c, h01=0x0050, text=»* BUFFER DETERMINES PRINT LINE LENGTH «, t00=0x000c, t01=0x0012}
0x12fc…1324 Head {h00=0x0024, h01=0x0050, text=»LPLIN EQU 132 LINELENGTH FOR LP «, t00=0x000c, t01=0x0042}
0x1324…132e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x006a}
0x132e…1336 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0074}
0x1336…133e Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x007c}
0x133e…1348 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000c, t01=0x0084}
0x1348…135c Head {h00=0x0010, h01=0x0050, text=»PRINT EQU * «, t00=0x000c, t01=0x008e}
0x135c…1372 Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x000c, t01=0x00a2}
0x1372…139c Head {h00=0x0026, h01=0x0050, text=» LDR TCABAS,A9 LOAD ASSEM TCA BASE«, t00=0x000c, t01=0x00b8}
0x139c…13c0 Head {h00=0x0020, h01=0x0050, text=» LDR* A4,TCABAS REL TASK NO «, t00=0x000c, t01=0x00e2}
0x13c0…13e6 Head {h00=0x0022, h01=0x0050, text=» AD A4,6,CREBAS 'CB1' ADDRESS «, t00=0x000c, t01=0x0106}
0x13e6…13f6 Head {h00=0x000c, h01=0x0050, text=» EJECT «, t00=0x000c, t01=0x012c}
0x13f6…13fe Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x013c}
0x13fe…1438 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000c, t01=0x0144}
0x1438…1442 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x017e}
0x1442…1472 Head {h00=0x002c, h01=0x0050, text=»* TRANSFER PARAMETER FOR MAIN-FRAME #1«, t00=0x000c, t01=0x0188}
0x1472…147c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0028}
0x147c…14b6 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000d, t01=0x0032}
0x14b6…14be Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x006c}
0x14be…14d8 Head {h00=0x0016, h01=0x0050, text=» LC A1,MF1GTP-1,A4«, t00=0x000d, t01=0x0074}
0x14d8…14ec Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x000d, t01=0x008e}
0x14ec…1502 Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x000d, t01=0x00a2}
0x1502…1518 Head {h00=0x0012, h01=0x0050, text=» CF A14,EMULA «, t00=0x000d, t01=0x00b8}
0x1518…1534 Head {h00=0x0018, h01=0x0050, text=» LDKL A8,ECBDC DK6 «, t00=0x000d, t01=0x00ce}
0x1534…1550 Head {h00=0x0018, h01=0x0050, text=» ADR A8,CREBAS DK6 «, t00=0x000d, t01=0x00ea}
0x1550…156c Head {h00=0x0018, h01=0x0050, text=» LDK A1,1 LP BIT DK6«, t00=0x000d, t01=0x0106}
0x156c…1588 Head {h00=0x0018, h01=0x0050, text=» ST A1,ECBCW,A8 DK6«, t00=0x000d, t01=0x0122}
0x1588…15b0 Head {h00=0x0024, h01=0x0050, text=» LDK A7,/B1 TRANSFER DWTINF DK6 «, t00=0x000d, t01=0x013e}
0x15b0…15c2 Head {h00=0x000e, h01=0x0050, text=» LKM DK6«, t00=0x000d, t01=0x0166}
0x15c2…15d6 Head {h00=0x0010, h01=0x0050, text=» DATA 1 DK6«, t00=0x000d, t01=0x0178}
0x15d6…15ea Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000d, t01=0x018c}
0x15ea…1624 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000e, t01=0x0010}
0x1624…162e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x004a}
0x162e…165e Head {h00=0x002c, h01=0x0050, text=»* TRANSFER PARAMETER FOR MAIN-FRAME #2«, t00=0x000e, t01=0x0054}
0x165e…1668 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0084}
0x1668…16a2 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000e, t01=0x008e}
0x16a2…16aa Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x00c8}
0x16aa…16c4 Head {h00=0x0016, h01=0x0050, text=» LC A1,MF2GTP-1,A4«, t00=0x000e, t01=0x00d0}
0x16c4…16d8 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x000e, t01=0x00ea}
0x16d8…16f0 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x000e, t01=0x00fe}
0x16f0…1718 Head {h00=0x0024, h01=0x0050, text=» CF A14,EMULA TRANSFER PARAMETER«, t00=0x000e, t01=0x0116}
0x1718…1724 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x013e}
0x1724…172e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x014a}
0x172e…1738 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0154}
0x1738…1758 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE POS IN ECBBLK«, t00=0x000e, t01=0x015e}
0x1758…176a Head {h00=0x000e, h01=0x0050, text=»ICR EQU 2 «, t00=0x000e, t01=0x017e}
0x176a…177c Head {h00=0x000e, h01=0x0050, text=»DC1 EQU 4 «, t00=0x000e, t01=0x0190}
0x177c…178e Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x000f, t01=0x0012}
0x178e…1798 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0024}
0x1798…17ac Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x000f, t01=0x002e}
0x17ac…17be Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x000f, t01=0x0042}
0x17be…17ca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0054}
0x17ca…17de Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000f, t01=0x0060}
0x17de…17f0 Head {h00=0x000e, h01=0x0050, text=» LDK A1,3 «, t00=0x000f, t01=0x0074}
0x17f0…17fc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0086}
0x17fc…1818 Head {h00=0x0018, h01=0x0050, text=» ST A1,ECBBLK,TCABAS«, t00=0x000f, t01=0x0092}
0x1818…184e Head {h00=0x0032, h01=0x0050, text=» CF A14,SPBFST CHANGE SPOOL BUFFER ADDRESS DK5«, t00=0x000f, t01=0x00ae}
0x184e…1862 Head {h00=0x0010, h01=0x0050, text=»PRI100 EQU *«, t00=0x000f, t01=0x00e4}
0x1862…1896 Head {h00=0x0030, h01=0x0050, text=» CM ECBDCC,TCABAS CL'R DC SAVE FOR FLAG DK5 «, t00=0x000f, t01=0x00f8}
0x1896…18b0 Head {h00=0x0016, h01=0x0050, text=» CM ICWORK,TCABAS «, t00=0x000f, t01=0x012c}
0x18b0…18d0 Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC1,TCABAS«, t00=0x000f, t01=0x0146}
0x18d0…18ee Head {h00=0x001a, h01=0x0050, text=» RF(NZ) PRI110 PENDING«, t00=0x000f, t01=0x0166}
0x18ee…1922 Head {h00=0x0030, h01=0x0050, text=» CF A14,DC1INQ TEST IF ANY MESSAGE, NO WAIT «, t00=0x000f, t01=0x0184}
0x1922…1936 Head {h00=0x0010, h01=0x0050, text=»PRI110 EQU *«, t00=0x0010, t01=0x0028}
0x1936…194a Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0010, t01=0x003c}
0x194a…196a Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC2,TCABAS«, t00=0x0010, t01=0x0050}
0x196a…1988 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) PRI120 PENDING«, t00=0x0010, t01=0x0070}
0x1988…19c2 Head {h00=0x0036, h01=0x0050, text=» CF A14,DC2INQ TEST IF ANY MESSAGE MF # 2, NO WAIT«, t00=0x0010, t01=0x008e}
0x19c2…19ce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x00c8}
0x19ce…19e2 Head {h00=0x0010, h01=0x0050, text=»PRI120 EQU *«, t00=0x0010, t01=0x00d4}
0x19e2…1a02 Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+ICR,TCABAS«, t00=0x0010, t01=0x00e8}
0x1a02…1a20 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) PRI150 PENDING«, t00=0x0010, t01=0x0108}
0x1a20…1a42 Head {h00=0x001e, h01=0x0050, text=» LDKL A6,LBVDU REQ LENGTH «, t00=0x0010, t01=0x0126}
0x1a42…1a5e Head {h00=0x0018, h01=0x0050, text=» LDKL A3,BVDU BUFFER«, t00=0x0010, t01=0x0148}
0x1a5e…1a7e Head {h00=0x001c, h01=0x0050, text=» ADR A3,TCABAS ADDRESS«, t00=0x0010, t01=0x0164}
0x1a7e…1aac Head {h00=0x002a, h01=0x0050, text=» CF A14,ICREAD READ INTERTASK NO WAIT «, t00=0x0010, t01=0x0184}
0x1aac…1acc Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+ICR,TCABAS«, t00=0x0011, t01=0x0022}
0x1acc…1ae0 Head {h00=0x0010, h01=0x0050, text=»PRI150 EQU *«, t00=0x0011, t01=0x0042}
0x1ae0…1af8 Head {h00=0x0014, h01=0x0050, text=» LDKL A7,ECBBLK «, t00=0x0011, t01=0x0056}
0x1af8…1b0e Head {h00=0x0012, h01=0x0050, text=» ADR A7,TCABAS«, t00=0x0011, t01=0x006e}
0x1b0e…1b1a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0011, t01=0x0084}
0x1b1a…1b38 Head {h00=0x001a, h01=0x0050, text=» DATA 7 MULTIPLE WAIT «, t00=0x0011, t01=0x0090}
0x1b38…1b58 Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+ICR,TCABAS«, t00=0x0011, t01=0x00ae}
0x1b58…1b82 Head {h00=0x0026, h01=0x0050, text=» RF(E) ICRINP INPUT FROM INTERTASK«, t00=0x0011, t01=0x00ce}
0x1b82…1bc0 Head {h00=0x003a, h01=0x0050, text=» ST A8,ECBDCC,TCABAS SAVE ECB ADDRESS FOR CURRENT READ«, t00=0x0011, t01=0x00f8}
0x1bc0…1be4 Head {h00=0x0020, h01=0x0050, text=» CF A14,DCINP INPUT FROM DC «, t00=0x0011, t01=0x0136}
0x1be4…1bf6 Head {h00=0x000e, h01=0x0050, text=» RB PRI100«, t00=0x0011, t01=0x015a}
0x1bf6…1c00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x016c}
0x1c00…1c0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0176}
0x1c0a…1c2a Head {h00=0x001c, h01=0x0050, text=»* READ INTERTASK, NOWAIT«, t00=0x0011, t01=0x0180}
0x1c2a…1c34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0010}
0x1c34…1c52 Head {h00=0x001a, h01=0x0050, text=»* A3 = BUFFER ADDRESS «, t00=0x0012, t01=0x001a}
0x1c52…1c6c Head {h00=0x0016, h01=0x0050, text=»* A6 = REQ LENGTH «, t00=0x0012, t01=0x0038}
0x1c6c…1c76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0052}
0x1c76…1c8a Head {h00=0x0010, h01=0x0050, text=»ICREAD EQU *«, t00=0x0012, t01=0x005c}
0x1c8a…1ca2 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICR «, t00=0x0012, t01=0x0070}
0x1ca2…1cb8 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0012, t01=0x0088}
0x1cb8…1ccc Head {h00=0x0010, h01=0x0050, text=» LDKL A1,-1 «, t00=0x0012, t01=0x009e}
0x1ccc…1ce2 Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x0012, t01=0x00b2}
0x1ce2…1d04 Head {h00=0x001e, h01=0x0050, text=» ST A6,ECBRL,A8 REQ LENGTH«, t00=0x0012, t01=0x00c8}
0x1d04…1d1c Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBBA,A8 «, t00=0x0012, t01=0x00ea}
0x1d1c…1d4a Head {h00=0x002a, h01=0x0050, text=» LDK A7,2 READ NOT ADDRESSED, NO WAIT «, t00=0x0012, t01=0x0102}
0x1d4a…1d56 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0012, t01=0x0130}
0x1d56…1d66 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0012, t01=0x013c}
0x1d66…1d76 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0012, t01=0x014c}
0x1d76…1d80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x015c}
0x1d80…1dc8 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0012, t01=0x0166}
0x1dc8…1dd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x001e}
0x1dd2…1dea Head {h00=0x0014, h01=0x0050, text=»* INPUT FROM DC «, t00=0x0013, t01=0x0028}
0x1dea…1df4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0040}
0x1df4…1e30 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0013, t01=0x004a}
0x1e30…1e3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0086}
0x1e3a…1e4e Head {h00=0x0010, h01=0x0050, text=»DCINP EQU * «, t00=0x0013, t01=0x0090}
0x1e4e…1e7a Head {h00=0x0028, h01=0x0050, text=» CF A14,ICABOR ABORT INTERTASK READ «, t00=0x0013, t01=0x00a4}
0x1e7a…1e8c Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x0013, t01=0x00d0}
0x1e8c…1eb0 Head {h00=0x0020, h01=0x0050, text=» RF(Z) DCIN10 NOT COMPLETED «, t00=0x0013, t01=0x00e2}
0x1eb0…1ed2 Head {h00=0x001e, h01=0x0050, text=» IM ICWORK,TCABAS SET FLAG«, t00=0x0013, t01=0x0106}
0x1ed2…1f02 Head {h00=0x002c, h01=0x0050, text=» RF ICRINP TAKE CARE OF INTERTASK INPUT «, t00=0x0013, t01=0x0128}
0x1f02…1f34 Head {h00=0x002e, h01=0x0050, text=» OR BUFFER WILL BE DESTROYED IN 'UPDATE'«, t00=0x0013, t01=0x0158}
0x1f34…1f48 Head {h00=0x0010, h01=0x0050, text=»DCIN10 EQU *«, t00=0x0013, t01=0x018a}
0x1f48…1f72 Head {h00=0x0026, h01=0x0050, text=» CF A14,GTRBUF GET RECEIVE BUFFER «, t00=0x0014, t01=0x000e}
0x1f72…1f8e Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x0014, t01=0x0038}
0x1f8e…1fb2 Head {h00=0x0020, h01=0x0050, text=» CF A14,DCGETM READ MESSAGE «, t00=0x0014, t01=0x0054}
0x1fb2…1fc6 Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0014, t01=0x0078}
0x1fc6…1fe4 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x0014, t01=0x008c}
0x1fe4…1ff0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00aa}
0x1ff0…2004 Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0014, t01=0x00b6}
0x2004…2024 Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+DC2,TCABAS«, t00=0x0014, t01=0x00ca}
0x2024…2040 Head {h00=0x0018, h01=0x0050, text=» RF(E) DCIN20 MF # 2«, t00=0x0014, t01=0x00ea}
0x2040…205e Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x0014, t01=0x0106}
0x205e…2070 Head {h00=0x000e, h01=0x0050, text=» RF DCIN30«, t00=0x0014, t01=0x0124}
0x2070…2084 Head {h00=0x0010, h01=0x0050, text=»DCIN20 EQU *«, t00=0x0014, t01=0x0136}
0x2084…20a2 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC2,TCABAS «, t00=0x0014, t01=0x014a}
0x20a2…20ae Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0168}
0x20ae…20c2 Head {h00=0x0010, h01=0x0050, text=»DCIN30 EQU *«, t00=0x0014, t01=0x0174}
0x20c2…20ea Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBEL,A8 EFFECTIVE LENGTH«, t00=0x0014, t01=0x0188}
0x20ea…211c Head {h00=0x002e, h01=0x0050, text=» ST A1,DCLENG,TCABAS SAVE IT IN SAVE AREA «, t00=0x0015, t01=0x0020}
0x211c…2124 Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x0052}
0x2124…215a Head {h00=0x0032, h01=0x0050, text=» CF A14,UPDATE MOVE FROM DC TO PRINTER BUFFER;«, t00=0x0015, t01=0x005a}
0x215a…2170 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0015, t01=0x0090}
0x2170…218c Head {h00=0x0018, h01=0x0050, text=» LD A1,ICWORK,TCABAS«, t00=0x0015, t01=0x00a6}
0x218c…21b0 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DCIN90 COPY COMMAND «, t00=0x0015, t01=0x00c2}
0x21b0…21bc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x00e6}
0x21bc…21d6 Head {h00=0x0016, h01=0x0050, text=» IFT SPOOL=1 DK5«, t00=0x0015, t01=0x00f2}
0x21d6…220a Head {h00=0x0030, h01=0x0050, text=» CF A14,SPBFPR SPOOL BUFFER PREPARATION DK5 «, t00=0x0015, t01=0x010c}
0x220a…2218 Head {h00=0x000a, h01=0x0050, text=» XIF «, t00=0x0015, t01=0x0140}
0x2218…224a Head {h00=0x002e, h01=0x0050, text=» LD A1,WCC,TCABAS WRITE CONTROL CHARACTER «, t00=0x0015, t01=0x014e}
0x224a…226c Head {h00=0x001e, h01=0x0050, text=» ST A1,CCC,TCABAS COPY IT «, t00=0x0015, t01=0x0180}
0x226c…2290 Head {h00=0x0020, h01=0x0050, text=» CF A14,COPY COPY ON PRINTER«, t00=0x0016, t01=0x0012}
0x2290…22a4 Head {h00=0x0010, h01=0x0050, text=»DCIN90 EQU *«, t00=0x0016, t01=0x0036}
0x22a4…22ba Head {h00=0x0012, h01=0x0050, text=» CF A14,SNBUSY«, t00=0x0016, t01=0x004a}
0x22ba…22ca Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0016, t01=0x0060}
0x22ca…22d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0070}
0x22d4…22de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x007a}
0x22de…22fc Head {h00=0x001a, h01=0x0050, text=»* ABORT INTERTASK READ«, t00=0x0016, t01=0x0084}
0x22fc…2306 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00a2}
0x2306…231a Head {h00=0x0010, h01=0x0050, text=»ICABOR EQU *«, t00=0x0016, t01=0x00ac}
0x231a…232c Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0016, t01=0x00c0}
0x232c…234a Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+ICR,TCABAS «, t00=0x0016, t01=0x00d2}
0x234a…2362 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICR «, t00=0x0016, t01=0x00f0}
0x2362…2378 Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0016, t01=0x0108}
0x2378…2384 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0016, t01=0x011e}
0x2384…2394 Head {h00=0x000c, h01=0x0050, text=» DATA 10«, t00=0x0016, t01=0x012a}
0x2394…23a4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0016, t01=0x013a}
0x23a4…23ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x014a}
0x23ae…23b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0154}
0x23b8…23d6 Head {h00=0x001a, h01=0x0050, text=»* INPUT FROM INTERTASK«, t00=0x0016, t01=0x015e}
0x23d6…23e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x017c}
0x23e0…23f4 Head {h00=0x0010, h01=0x0050, text=»ICRINP EQU *«, t00=0x0016, t01=0x0186}
0x23f4…2412 Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+ICR,TCABAS «, t00=0x0017, t01=0x000a}
0x2412…242c Head {h00=0x0016, h01=0x0050, text=» IFT SPOOL=0 DK5«, t00=0x0017, t01=0x0028}
0x242c…2440 Head {h00=0x0010, h01=0x0050, text=» RF ICR050 «, t00=0x0017, t01=0x0042}
0x2440…244e Head {h00=0x000a, h01=0x0050, text=» XIF «, t00=0x0017, t01=0x0056}
0x244e…2468 Head {h00=0x0016, h01=0x0050, text=» IFT SPOOL=1 DK5 «, t00=0x0017, t01=0x0064}
0x2468…249c Head {h00=0x0030, h01=0x0050, text=» CF A14,SPBFPR SPOOL BUFFER PREPARATION DK5 «, t00=0x0017, t01=0x007e}
0x249c…24b0 Head {h00=0x0010, h01=0x0050, text=» RF ICR050 «, t00=0x0017, t01=0x00b2}
0x24b0…24c0 Head {h00=0x000c, h01=0x0050, text=» EJECT «, t00=0x0017, t01=0x00c6}
0x24c0…24e2 Head {h00=0x001e, h01=0x0050, text=»* IF SPOOL ALLOWED DK5«, t00=0x0017, t01=0x00d6}
0x24e2…2514 Head {h00=0x002e, h01=0x0050, text=»* THEN IF SPOOL DEVICE (TID='LA') DK5«, t00=0x0017, t01=0x00f8}
0x2514…2550 Head {h00=0x0038, h01=0x0050, text=»* THEN SHIFT START ADDRESS FOR PRINTER DK5 «, t00=0x0017, t01=0x012a}
0x2550…2588 Head {h00=0x0034, h01=0x0050, text=»* BUFFER 6 BYTES RIGHT TO MAKE ROOM DK5«, t00=0x0017, t01=0x0166}
0x2588…25b4 Head {h00=0x0028, h01=0x0050, text=»* FOR SPOOL PARAMETERS DK5«, t00=0x0018, t01=0x000e}
0x25b4…25d2 Head {h00=0x001a, h01=0x0050, text=»* ENDIF DK5«, t00=0x0018, t01=0x003a}
0x25d2…25ea Head {h00=0x0014, h01=0x0050, text=»* ENDIF DK5«, t00=0x0018, t01=0x0058}
0x25ea…25f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0070}
0x25f4…25fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x007a}
0x25fe…2614 Head {h00=0x0012, h01=0x0050, text=»SPBFST EQU * «, t00=0x0018, t01=0x0084}
0x2614…2640 Head {h00=0x0028, h01=0x0050, text=» LD A5,PRINTER,TCABAS GET TASKID DK5«, t00=0x0018, t01=0x009a}
0x2640…2664 Head {h00=0x0020, h01=0x0050, text=» CWK A5,'LA' CHECK IF LP DK5«, t00=0x0018, t01=0x00c6}
0x2664…2690 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) PRI040 NOT SPOOL DEVICE DK5 «, t00=0x0018, t01=0x00ea}
0x2690…26b6 Head {h00=0x0022, h01=0x0050, text=» LDKL A8,ECBPR PRINTER ECB DK5«, t00=0x0018, t01=0x0116}
0x26b6…26d2 Head {h00=0x0018, h01=0x0050, text=» ADR A8,CREBAS DK5 «, t00=0x0018, t01=0x013c}
0x26d2…2700 Head {h00=0x002a, h01=0x0050, text=» LD A7,ECBBA,A8 GET BUFFER ADDRESS DK5«, t00=0x0018, t01=0x0158}
0x2700…2726 Head {h00=0x0022, h01=0x0050, text=» ADK A7,6 RESERVE 6 BYTES DK5 «, t00=0x0018, t01=0x0186}
0x2726…274a Head {h00=0x0020, h01=0x0050, text=» ST A7,ECBBA,A8 RESTORE DK5 «, t00=0x0019, t01=0x001c}
0x274a…2764 Head {h00=0x0016, h01=0x0050, text=»PRI040 EQU * DK5 «, t00=0x0019, t01=0x0040}
0x2764…277a Head {h00=0x0012, h01=0x0050, text=» RTN A14 DK5«, t00=0x0019, t01=0x005a}
0x277a…278a Head {h00=0x000c, h01=0x0050, text=» EJECT «, t00=0x0019, t01=0x0070}
0x278a…27ac Head {h00=0x001e, h01=0x0050, text=»* IF SPOOL ALLOWED DK5«, t00=0x0019, t01=0x0080}
0x27ac…27de Head {h00=0x002e, h01=0x0050, text=»* THEN IF SPOOL DEVICE (TID='LA') DK5«, t00=0x0019, t01=0x00a2}
0x27de…281a Head {h00=0x0038, h01=0x0050, text=»* THEN SHIFT START ADDRESS FOR PRINTER DK5 «, t00=0x0019, t01=0x00d4}
0x281a…2852 Head {h00=0x0034, h01=0x0050, text=»* BUFFER 6 BYTES RIGHT TO MAKE ROOM DK5«, t00=0x0019, t01=0x0110}
0x2852…287e Head {h00=0x0028, h01=0x0050, text=»* FOR SPOOL PARAMETERS DK5«, t00=0x0019, t01=0x0148}
0x287e…289c Head {h00=0x001a, h01=0x0050, text=»* ENDIF DK5«, t00=0x0019, t01=0x0174}
0x289c…28b4 (26, 0, 400) Head {h00=0x0014, h01=0x0050, text=»* ENDIF DK5«, t00=0x001a, t01=0x0004}
0x28b4…28be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x001c}
0x28be…28c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0026}
0x28c8…28de Head {h00=0x0012, h01=0x0050, text=»SPBFPR EQU * «, t00=0x001a, t01=0x0030}
0x28de…290a Head {h00=0x0028, h01=0x0050, text=» LD A5,PRINTER,TCABAS GET TASKID DK5«, t00=0x001a, t01=0x0046}
0x290a…292e Head {h00=0x0020, h01=0x0050, text=» CWK A5,'LA' CHECK IF LP DK5«, t00=0x001a, t01=0x0072}
0x292e…295a Head {h00=0x0028, h01=0x0050, text=» RF(NZ) PRI050 NOT SPOOL DEVICE DK5 «, t00=0x001a, t01=0x0096}
0x295a…2986 Head {h00=0x0028, h01=0x0050, text=» LD A1,ECBCW,A8 GET SOURCE 'TID' DK5«, t00=0x001a, t01=0x00c2}
0x2986…29ac Head {h00=0x0022, h01=0x0050, text=» LDKL A8,ECBPR PRINTER ECB DK5«, t00=0x001a, t01=0x00ee}
0x29ac…29c8 Head {h00=0x0018, h01=0x0050, text=» ADR A8,CREBAS DK5 «, t00=0x001a, t01=0x0114}
0x29c8…29f6 Head {h00=0x002a, h01=0x0050, text=» LD A7,ECBBA,A8 GET BUFFER ADDRESS DK5«, t00=0x001a, t01=0x0130}
0x29f6…2a22 Head {h00=0x0028, h01=0x0050, text=» SUK A7,6 ORIGINAL START BUFFER DK5 «, t00=0x001a, t01=0x015e}
0x2a22…2a4c Head {h00=0x0026, h01=0x0050, text=» STR A1,A7 INSERT SOURCE 'TID' DK5«, t00=0x001a, t01=0x018a}
0x2a4c…2a6c Head {h00=0x001c, h01=0x0050, text=» IN BUFFER HEADER DK5 «, t00=0x001b, t01=0x0024}
0x2a6c…2a86 Head {h00=0x0016, h01=0x0050, text=»PRI050 EQU * DK5 «, t00=0x001b, t01=0x0044}
0x2a86…2a9c Head {h00=0x0012, h01=0x0050, text=» RTN A14 DK5«, t00=0x001b, t01=0x005e}
0x2a9c…2ab0 Head {h00=0x0010, h01=0x0050, text=» EJECT DK5«, t00=0x001b, t01=0x0074}
0x2ab0…2ac2 Head {h00=0x000e, h01=0x0050, text=» XIF DK5«, t00=0x001b, t01=0x0088}
0x2ac2…2aca Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x009a}
0x2aca…2ae0 Head {h00=0x0012, h01=0x0050, text=»ICR050 EQU * «, t00=0x001b, t01=0x00a2}
0x2ae0…2b0e Head {h00=0x002a, h01=0x0050, text=» LDK A1,X'38' PRINT BIT, 80 CHAR./LINE«, t00=0x001b, t01=0x00b8}
0x2b0e…2b46 Head {h00=0x0034, h01=0x0050, text=» ST A1,CCC,TCABAS SAVE AS COPY CONTROL CHARACTER«, t00=0x001b, t01=0x00e6}
0x2b46…2b74 Head {h00=0x002a, h01=0x0050, text=» CF A14,COPY PRINT ON HARDCOPY DEVICE «, t00=0x001b, t01=0x011e}
0x2b74…2b90 Head {h00=0x0018, h01=0x0050, text=» LD A1,ICWORK,TCABAS«, t00=0x001b, t01=0x014c}
0x2b90…2bbc Head {h00=0x0028, h01=0x0050, text=» RB(NZ) DCIN10 TAKE CARE OF DC INPUT«, t00=0x001b, t01=0x0168}
0x2bbc…2bd0 (28, 0, 400) Head {h00=0x0010, h01=0x0050, text=» ABL PRI100 «, t00=0x001c, t01=0x0004}
0x2bd0…2bda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0018}
0x2bda…2be4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0022}
0x2be4…2bee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x002c}
0x2bee…2c20 Head {h00=0x002e, h01=0x0050, text=»* PRINT THE CONTENTS OF THE PRINTER BUFFER«, t00=0x001c, t01=0x0036}
0x2c20…2c2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0068}
0x2c2a…2c34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0072}
0x2c34…2c76 Head {h00=0x003e, h01=0x0050, text=»LINLEN DATA /0028,/4050 LINE LENGTHS /40, 64 AND 80 CHARS «, t00=0x001c, t01=0x007c}
0x2c76…2c80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00be}
0x2c80…2c8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00c8}
0x2c8a…2c9e Head {h00=0x0010, h01=0x0050, text=»COPY EQU * «, t00=0x001c, t01=0x00d2}
0x2c9e…2cb4 Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBPR«, t00=0x001c, t01=0x00e6}
0x2cb4…2cd6 Head {h00=0x001e, h01=0x0050, text=» ADR A8,CREBAS PRINTER ECB«, t00=0x001c, t01=0x00fc}
0x2cd6…2cee Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBBA,A8 «, t00=0x001c, t01=0x011e}
0x2cee…2d04 Head {h00=0x0012, h01=0x0050, text=» SUR A3,A3 =1«, t00=0x001c, t01=0x0136}
0x2d04…2d1c Head {h00=0x0014, h01=0x0050, text=» SC A3,0,A7 =1 «, t00=0x001c, t01=0x014c}
0x2d1c…2d34 Head {h00=0x0014, h01=0x0050, text=» SC A3,1,A7 =1 «, t00=0x001c, t01=0x0164}
0x2d34…2d5a Head {h00=0x0022, h01=0x0050, text=» ADK A7,2 PRINt BUFFER ADDRESS«, t00=0x001c, t01=0x017c}
0x2d5a…2d80 Head {h00=0x0022, h01=0x0050, text=» SUR A9,A9 RESET BUFFER INDEX «, t00=0x001d, t01=0x0012}
0x2d80…2d96 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x001d, t01=0x0038}
0x2d96…2dac Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x001d, t01=0x004e}
0x2dac…2dd2 Head {h00=0x0022, h01=0x0050, text=» LD A2,CCC,TCABAS GET CCC/CCC «, t00=0x001d, t01=0x0064}
0x2dd2…2de6 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/08 «, t00=0x001d, t01=0x008a}
0x2de6…2e12 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) COP100 START PRINTER BIT SET«, t00=0x001d, t01=0x009e}
0x2e12…2e28 Head {h00=0x0012, h01=0x0050, text=»COPRTN RTN A14«, t00=0x001d, t01=0x00ca}
0x2e28…2e3c Head {h00=0x0010, h01=0x0050, text=»COP100 EQU *«, t00=0x001d, t01=0x00e0}
0x2e3c…2e56 Head {h00=0x0016, h01=0x0050, text=» LD A2,CCC,TCABAS «, t00=0x001d, t01=0x00f4}
0x2e56…2e6a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/30 «, t00=0x001d, t01=0x010e}
0x2e6a…2e9a Head {h00=0x002c, h01=0x0050, text=» ABL(Z) COP111 NL DETERMINES LINE LENGTH«, t00=0x001d, t01=0x0122}
0x2e9a…2eac Head {h00=0x000e, h01=0x0050, text=» SRL A2,4 «, t00=0x001d, t01=0x0152}
0x2eac…2ebe Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x001d, t01=0x0164}
0x2ebe…2ee6 Head {h00=0x0024, h01=0x0050, text=» LC A6,LINLEN,A2 GET LINE LENGTH«, t00=0x001d, t01=0x0176}
0x2ee6…2efe Head {h00=0x0014, h01=0x0050, text=»COP110 CWR A9,A6«, t00=0x001e, t01=0x000e}
0x2efe…2f14 Head {h00=0x0012, h01=0x0050, text=» RF(L) COP120 «, t00=0x001e, t01=0x0026}
0x2f14…2f44 Head {h00=0x002c, h01=0x0050, text=»COP115 CF A14,PRLINE LINE FULL: PRINT IT«, t00=0x001e, t01=0x003c}
0x2f44…2f56 Head {h00=0x000e, h01=0x0050, text=» RB COP110«, t00=0x001e, t01=0x006c}
0x2f56…2f6a Head {h00=0x0010, h01=0x0050, text=»COP120 EQU *«, t00=0x001e, t01=0x007e}
0x2f6a…2f80 Head {h00=0x0012, h01=0x0050, text=» CWK A3,LBVDU «, t00=0x001e, t01=0x0092}
0x2f80…2fa8 Head {h00=0x0024, h01=0x0050, text=» ABL(NL) COP300 PRINT LAST LINE «, t00=0x001e, t01=0x00a8}
0x2fa8…2fba Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x001e, t01=0x00d0}
0x2fba…2fe0 Head {h00=0x0022, h01=0x0050, text=» ANK A2,/7F RESET DISPLAY BIT «, t00=0x001e, t01=0x00e2}
0x2fe0…2ff2 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x001e, t01=0x0108}
0x2ff2…3006 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x001e, t01=0x011a}
0x3006…301c Head {h00=0x0012, h01=0x0050, text=» RF(NL) COP130«, t00=0x001e, t01=0x012e}
0x301c…3030 Head {h00=0x0010, h01=0x0050, text=»COP123 EQU *«, t00=0x001e, t01=0x0144}
0x3030…3042 Head {h00=0x000e, h01=0x0050, text=» ANK A2,6 «, t00=0x001e, t01=0x0158}
0x3042…3054 Head {h00=0x000e, h01=0x0050, text=» XRK A2,6 «, t00=0x001e, t01=0x016a}
0x3054…306a Head {h00=0x0012, h01=0x0050, text=» RF(Z) COP150 «, t00=0x001e, t01=0x017c}
0x306a…309a (31, 0, 400) Head {h00=0x002c, h01=0x0050, text=»COP125 LDK A2,/20 REPLACE ATTR BY SPACE «, t00=0x001f, t01=0x0004}
0x309a…30ac Head {h00=0x000e, h01=0x0050, text=» RF COP140«, t00=0x001f, t01=0x0034}
0x30ac…30c6 Head {h00=0x0016, h01=0x0050, text=»COP130 CWK A2,NULL«, t00=0x001f, t01=0x0046}
0x30c6…30f2 Head {h00=0x0028, h01=0x0050, text=» RB(E) COP125 REPLACE NULL BY SPACE «, t00=0x001f, t01=0x0060}
0x30f2…3106 Head {h00=0x0010, h01=0x0050, text=»COP140 EQU *«, t00=0x001f, t01=0x008c}
0x3106…311a Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7D «, t00=0x001f, t01=0x00a0}
0x311a…3130 Head {h00=0x0012, h01=0x0050, text=» RF(NE) COP141«, t00=0x001f, t01=0x00b4}
0x3130…3144 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/39 «, t00=0x001f, t01=0x00ca}
0x3144…315e Head {h00=0x0016, h01=0x0050, text=»COP141 CWK A2,/7E «, t00=0x001f, t01=0x00de}
0x315e…3174 Head {h00=0x0012, h01=0x0050, text=» RF(NE) COP142«, t00=0x001f, t01=0x00f8}
0x3174…3188 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/35 «, t00=0x001f, t01=0x010e}
0x3188…319c Head {h00=0x0010, h01=0x0050, text=»COP142 EQU *«, t00=0x001f, t01=0x0122}
0x319c…31be Head {h00=0x001e, h01=0x0050, text=» CF A14,RFMDUP FM OR DUP ?«, t00=0x001f, t01=0x0136}
0x31be…31f0 Head {h00=0x002e, h01=0x0050, text=»COP143 CWK A2,/61 LOWER CASE CHARACTER ?? «, t00=0x001f, t01=0x0158}
0x31f0…320a Head {h00=0x0016, h01=0x0050, text=» RF(L) COP144 NO!!«, t00=0x001f, t01=0x018a}
0x320a…321e Head {h00=0x0010, h01=0x0050, text=» SUK A2,/20 «, t00=0x0020, t01=0x0014}
0x321e…3236 Head {h00=0x0014, h01=0x0050, text=»COP144 SCR A2,A7«, t00=0x0020, t01=0x0028}
0x3236…3248 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0020, t01=0x0040}
0x3248…325a Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0020, t01=0x0052}
0x325a…326c Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0020, t01=0x0064}
0x326c…327e Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0020, t01=0x0076}
0x327e…3290 Head {h00=0x000e, h01=0x0050, text=» RB COP110«, t00=0x0020, t01=0x0088}
0x3290…32c0 Head {h00=0x002c, h01=0x0050, text=»COP150 LDK A2,/20 SPACE INSTEAD OF TEXT «, t00=0x0020, t01=0x009a}
0x32c0…32d2 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A7«, t00=0x0020, t01=0x00ca}
0x32d2…32e4 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0020, t01=0x00dc}
0x32e4…32f6 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0020, t01=0x00ee}
0x32f6…3308 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0020, t01=0x0100}
0x3308…331a Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0020, t01=0x0112}
0x331a…332c Head {h00=0x000e, h01=0x0050, text=» CWR A9,A6«, t00=0x0020, t01=0x0124}
0x332c…3342 Head {h00=0x0012, h01=0x0050, text=» RF(L) COP160 «, t00=0x0020, t01=0x0136}
0x3342…336e Head {h00=0x0028, h01=0x0050, text=» CF A14,PRLINE LINE FULL : PRINT IT «, t00=0x0020, t01=0x014c}
0x336e…3386 Head {h00=0x0014, h01=0x0050, text=»COP160 LCR A2,A4«, t00=0x0020, t01=0x0178}
0x3386…339a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0020, t01=0x0190}
0x339a…33ae Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0021, t01=0x0014}
0x33ae…33ce Head {h00=0x001c, h01=0x0050, text=» RB(L) COP123 ATTRIBUTE «, t00=0x0021, t01=0x0028}
0x33ce…33fa Head {h00=0x0028, h01=0x0050, text=» RB COP150 STILL IN PROTECTED FIELD «, t00=0x0021, t01=0x0048}
0x33fa…3404 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0074}
0x3404…340e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x007e}
0x340e…343e Head {h00=0x002c, h01=0x0050, text=»* LINE LENGTH AS DEFINED BY NL CHARACTER«, t00=0x0021, t01=0x0088}
0x343e…3448 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00b8}
0x3448…3452 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00c2}
0x3452…348c Head {h00=0x0036, h01=0x0050, text=»* THE FIRST INSTR. ORIGINALLY HAD LABEL 'COP200'. «, t00=0x0021, t01=0x00cc}
0x348c…3496 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0106}
0x3496…34a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0110}
0x34a0…34b4 Head {h00=0x0010, h01=0x0050, text=»COP111 EQU *«, t00=0x0021, t01=0x011a}
0x34b4…34ce Head {h00=0x0016, h01=0x0050, text=» CWK A9,LPLIN DK3«, t00=0x0021, t01=0x012e}
0x34ce…34f4 Head {h00=0x0022, h01=0x0050, text=» RF(L) COP220 BUFFER NOT FULL «, t00=0x0021, t01=0x0148}
0x34f4…351c Head {h00=0x0024, h01=0x0050, text=»COP210 CF A14,PRLINE PRINT LINE «, t00=0x0021, t01=0x016e}
0x351c…3530 Head {h00=0x0010, h01=0x0050, text=» ABL COP111 «, t00=0x0022, t01=0x0008}
0x3530…354c Head {h00=0x0018, h01=0x0050, text=»COP220 CWK A3,LBVDU «, t00=0x0022, t01=0x001c}
0x354c…3572 Head {h00=0x0022, h01=0x0050, text=» RF(NL) COP300 PRINT LAST LINE«, t00=0x0022, t01=0x0038}
0x3572…3584 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0022, t01=0x005e}
0x3584…3598 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0022, t01=0x0070}
0x3598…35bc Head {h00=0x0020, h01=0x0050, text=» SCR A2,A4 RESET DISPLAY BIT«, t00=0x0022, t01=0x0084}
0x35bc…35d0 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0022, t01=0x00a8}
0x35d0…35e6 Head {h00=0x0012, h01=0x0050, text=» RF(NL) COP230«, t00=0x0022, t01=0x00bc}
0x35e6…3612 Head {h00=0x0028, h01=0x0050, text=»COP223 ANK A2,/6 ATTRIBUTE CHARACTER«, t00=0x0022, t01=0x00d2}
0x3612…3624 Head {h00=0x000e, h01=0x0050, text=» XRK A2,6 «, t00=0x0022, t01=0x00fe}
0x3624…364a Head {h00=0x0022, h01=0x0050, text=» RF(Z) COP250 PROTECTED FIELD «, t00=0x0022, t01=0x0110}
0x364a…367e Head {h00=0x0030, h01=0x0050, text=»COP225 LDK A2,/20 REPLACE ATTRIBUTE BY SPACE«, t00=0x0022, t01=0x0136}
0x367e…3690 Head {h00=0x000e, h01=0x0050, text=» RF COP240«, t00=0x0022, t01=0x016a}
0x3690…36aa Head {h00=0x0016, h01=0x0050, text=»COP230 CWK A2,NULL«, t00=0x0022, t01=0x017c}
0x36aa…36da Head {h00=0x002c, h01=0x0050, text=» RB(E) COP225 NULL IS REPLACED BY SPACE «, t00=0x0023, t01=0x0008}
0x36da…36ee Head {h00=0x0010, h01=0x0050, text=»COP240 EQU *«, t00=0x0023, t01=0x0038}
0x36ee…3702 Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7B «, t00=0x0023, t01=0x004c}
0x3702…3718 Head {h00=0x0012, h01=0x0050, text=» RF(NE) COP241«, t00=0x0023, t01=0x0060}
0x3718…372c Head {h00=0x0010, h01=0x0050, text=» LDK A2,/2A «, t00=0x0023, t01=0x0076}
0x372c…3744 Head {h00=0x0014, h01=0x0050, text=»COP241 SCR A2,A7«, t00=0x0023, t01=0x008a}
0x3744…3756 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0023, t01=0x00a2}
0x3756…3768 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0023, t01=0x00b4}
0x3768…377a Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0023, t01=0x00c6}
0x377a…3790 Head {h00=0x0012, h01=0x0050, text=» CWK A2,NEWLIN«, t00=0x0023, t01=0x00d8}
0x3790…37ba Head {h00=0x0026, h01=0x0050, text=» RB(E) COP210 NL CHAR: PRINT LINE «, t00=0x0023, t01=0x00ee}
0x37ba…37d6 Head {h00=0x0018, h01=0x0050, text=» CWK A2,FORMFD DK1 «, t00=0x0023, t01=0x0118}
0x37d6…37f0 Head {h00=0x0016, h01=0x0050, text=» RB(E) COP210 DK1«, t00=0x0023, t01=0x0134}
0x37f0…3806 Head {h00=0x0012, h01=0x0050, text=» CWK A2,ENDMES«, t00=0x0023, t01=0x014e}
0x3806…3838 Head {h00=0x002e, h01=0x0050, text=» RF(E) COP300 UND MESSAGE: PRINT LAST LINE«, t00=0x0023, t01=0x0164}
0x3838…384a Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0024, t01=0x0008}
0x384a…385e Head {h00=0x0010, h01=0x0050, text=» ABL COP111 «, t00=0x0024, t01=0x001a}
0x385e…388e Head {h00=0x002c, h01=0x0050, text=»COP250 LDK A2,/20 REPLACE TEXT BY SPACE «, t00=0x0024, t01=0x002e}
0x388e…38a0 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A7«, t00=0x0024, t01=0x005e}
0x38a0…38b2 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0024, t01=0x0070}
0x38b2…38c4 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0024, t01=0x0082}
0x38c4…38d6 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0024, t01=0x0094}
0x38d6…38e8 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0024, t01=0x00a6}
0x38e8…38fa Head {h00=0x000e, h01=0x0050, text=» CWR A9,A6«, t00=0x0024, t01=0x00b8}
0x38fa…3910 Head {h00=0x0012, h01=0x0050, text=» RF(L) COP260 «, t00=0x0024, t01=0x00ca}
0x3910…393c Head {h00=0x0028, h01=0x0050, text=» CF A14,PRLINE LINE FULL : PRINT IT «, t00=0x0024, t01=0x00e0}
0x393c…3954 Head {h00=0x0014, h01=0x0050, text=»COP260 LCR A2,A4«, t00=0x0024, t01=0x010c}
0x3954…3968 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0024, t01=0x0124}
0x3968…397c Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x0024, t01=0x0138}
0x397c…39a2 Head {h00=0x0022, h01=0x0050, text=» RB(L) COP223 ATTRIBUTE FOUND «, t00=0x0024, t01=0x014c}
0x39a2…39ce Head {h00=0x0028, h01=0x0050, text=» RB COP250 STILL IN PROTECTED FIELD «, t00=0x0024, t01=0x0172}
0x39ce…39e6 Head {h00=0x0014, h01=0x0050, text=»COP300 LDR A9,A9«, t00=0x0025, t01=0x000e}
0x39e6…3a08 Head {h00=0x001e, h01=0x0050, text=» ABL(Z) COPRTN ALL PRINTED«, t00=0x0025, t01=0x0026}
0x3a08…3a2e Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE PRINT LAST LINE«, t00=0x0025, t01=0x0048}
0x3a2e…3a42 Head {h00=0x0010, h01=0x0050, text=» ABL COPRTN «, t00=0x0025, t01=0x006e}
0x3a42…3a4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0082}
0x3a4c…3a56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x008c}
0x3a56…3a60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0096}
0x3a60…3a84 Head {h00=0x0020, h01=0x0050, text=»* PRINT ONE LINE ON PRINTER «, t00=0x0025, t01=0x00a0}
0x3a84…3a8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00c4}
0x3a8e…3aba Head {h00=0x0028, h01=0x0050, text=»* A9=NUMBER OF CHAR IN PRINT BUFFER «, t00=0x0025, t01=0x00ce}
0x3aba…3ac4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00fa}
0x3ac4…3ace Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0104}
0x3ace…3ae2 Head {h00=0x0010, h01=0x0050, text=»PRLINE EQU *«, t00=0x0025, t01=0x010e}
0x3ae2…3afc Head {h00=0x0016, h01=0x0050, text=» IFT SUSPA=1 DK4 «, t00=0x0025, t01=0x0122}
0x3afc…3b18 Head {h00=0x0018, h01=0x0050, text=» CF A14,SKIPSP DK4 «, t00=0x0025, t01=0x013c}
0x3b18…3b2a Head {h00=0x000e, h01=0x0050, text=» XIF DK4«, t00=0x0025, t01=0x0158}
0x3b2a…3b5c Head {h00=0x002e, h01=0x0050, text=» IM LINCNT,TCABAS COUNT NBR OF PRINTLINES «, t00=0x0025, t01=0x016a}
0x3b5c…3b82 Head {h00=0x0022, h01=0x0050, text=» RF(N) PRL100 NOT END OF PAGE «, t00=0x0026, t01=0x000c}
0x3b82…3ba4 Head {h00=0x001e, h01=0x0050, text=» LDK A7,LPAGE END OF PAGE «, t00=0x0026, t01=0x0032}
0x3ba4…3bb6 Head {h00=0x000e, h01=0x0050, text=» NGR A7,A7«, t00=0x0026, t01=0x0054}
0x3bb6…3be6 Head {h00=0x002c, h01=0x0050, text=» ST A7,LINCNT,TCABAS RESET LINE COUNTER «, t00=0x0026, t01=0x0066}
0x3be6…3c04 Head {h00=0x001a, h01=0x0050, text=»PRL100 LD A7,ECBBA,A8 «, t00=0x0026, t01=0x0096}
0x3c04…3c3e Head {h00=0x0036, h01=0x0050, text=»********************* LP 400 SUPPORT ********* DK«, t00=0x0026, t01=0x00b4}
0x3c3e…3c6a Head {h00=0x0028, h01=0x0050, text=» LC A2,2,A7 GET FORMCONTROL CHAR DK «, t00=0x0026, t01=0x00ee}
0x3c6a…3c92 Head {h00=0x0024, h01=0x0050, text=» ANK A2,/7F REMOVE PARITY BIT DK«, t00=0x0026, t01=0x011a}
0x3c92…3cac Head {h00=0x0016, h01=0x0050, text=» CWK A2,FORMFD DK«, t00=0x0026, t01=0x0142}
0x3cac…3cd6 Head {h00=0x0026, h01=0x0050, text=» RF(NE) PRL106 NO, NORMAL PRINT DK«, t00=0x0026, t01=0x015c}
0x3cd6…3cee Head {h00=0x0014, h01=0x0050, text=» LDK A2,/31 DK «, t00=0x0026, t01=0x0186}
0x3cee…3d18 Head {h00=0x0026, h01=0x0050, text=» SC A2,1,A7 CHANGE TO FORMFEED DK «, t00=0x0027, t01=0x000e}
0x3d18…3d2e Head {h00=0x0012, h01=0x0050, text=» LDK A7,2 DK «, t00=0x0027, t01=0x0038}
0x3d2e…3d58 Head {h00=0x0026, h01=0x0050, text=» ST A7,ECBRL,A8 REQ LENGTH = 2 DK «, t00=0x0027, t01=0x004e}
0x3d58…3d72 Head {h00=0x0016, h01=0x0050, text=» CF A14,PRLKM DK3«, t00=0x0027, t01=0x0078}
0x3d72…3d8c Head {h00=0x0016, h01=0x0050, text=» LDK A7,LPAGE DK «, t00=0x0027, t01=0x0092}
0x3d8c…3da2 Head {h00=0x0012, h01=0x0050, text=» NGR A7,A7 DK«, t00=0x0027, t01=0x00ac}
0x3da2…3dd4 Head {h00=0x002e, h01=0x0050, text=» ST A7,LINCNT,TCABAS RESET LINE COUNTER DK«, t00=0x0027, t01=0x00c2}
0x3dd4…3de6 Head {h00=0x000e, h01=0x0050, text=» RF PRL220«, t00=0x0027, t01=0x00f4}
0x3de6…3dfe Head {h00=0x0014, h01=0x0050, text=»PRL105 EQU * DK«, t00=0x0027, t01=0x0106}
0x3dfe…3e30 Head {h00=0x002e, h01=0x0050, text=»******************** END LP400 SUPPORT DK«, t00=0x0027, t01=0x011e}
0x3e30…3e5c Head {h00=0x0028, h01=0x0050, text=» LC A2,2,A7 GET FIRST CHAR IN BUFFER«, t00=0x0027, t01=0x0150}
0x3e5c…3e70 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0027, t01=0x017c}
0x3e70…3e88 Head {h00=0x0014, h01=0x0050, text=»PRL106 EQU * DK«, t00=0x0027, t01=0x0190}
0x3e88…3e9e Head {h00=0x0012, h01=0x0050, text=» CWK A2,FORMFD«, t00=0x0028, t01=0x0018}
0x3e9e…3ec2 Head {h00=0x0020, h01=0x0050, text=» RF(NE) PRL200 NOT FORM FEED«, t00=0x0028, t01=0x002e}
0x3ec2…3ed6 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/20 «, t00=0x0028, t01=0x0052}
0x3ed6…3efe Head {h00=0x0024, h01=0x0050, text=» SC A2,2,A7 REPLACE LF BY SPACE «, t00=0x0028, t01=0x0066}
0x3efe…3f06 Head {h00=0x0004, h01=0x0050, t00=0x0028, t01=0x008e}
0x3f06…3f1a Head {h00=0x0010, h01=0x0050, text=»PRL110 EQU *«, t00=0x0028, t01=0x0096}
0x3f1a…3f40 Head {h00=0x0022, h01=0x0050, text=» LD A1,LINCNT,TCABAS FORM FEED«, t00=0x0028, t01=0x00aa}
0x3f40…3f52 Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x0028, t01=0x00d0}
0x3f52…3f8a Head {h00=0x0034, h01=0x0050, text=» ST A7,ECBRL,A8 SET REQ LENGTH TO 2 FOR NEW LINE«, t00=0x0028, t01=0x00e2}
0x3f8a…3f9e Head {h00=0x0010, h01=0x0050, text=»PRL120 EQU *«, t00=0x0028, t01=0x011a}
0x3f9e…3fb8 Head {h00=0x0016, h01=0x0050, text=» CF A14,PRLKM DK3«, t00=0x0028, t01=0x012e}
0x3fb8…3fd6 Head {h00=0x001a, h01=0x0050, text=» ADK A1,1 COUNT LINES «, t00=0x0028, t01=0x0148}
0x3fd6…3fec Head {h00=0x0012, h01=0x0050, text=» RB(N) PRL120 «, t00=0x0028, t01=0x0166}
0x3fec…4002 Head {h00=0x0012, h01=0x0050, text=» LDK A7,LPAGE «, t00=0x0028, t01=0x017c}
0x4002…4014 (41, 0, 400) Head {h00=0x000e, h01=0x0050, text=» NGR A7,A7«, t00=0x0029, t01=0x0004}
0x4014…4044 Head {h00=0x002c, h01=0x0050, text=» ST A7,LINCNT,TCABAS RESET LINE COUNTER «, t00=0x0029, t01=0x0016}
0x4044…4078 Head {h00=0x0030, h01=0x0050, text=»PRL200 ADKL A9,2 ADJUST LENGTH FOR BUFFER CW«, t00=0x0029, t01=0x0046}
0x4078…409a Head {h00=0x001e, h01=0x0050, text=» ST A9,ECBRL,A8 REQ LENGTH«, t00=0x0029, t01=0x007a}
0x409a…40b2 Head {h00=0x0014, h01=0x0050, text=»PRL210 EQU * DK«, t00=0x0029, t01=0x009c}
0x40b2…40cc Head {h00=0x0016, h01=0x0050, text=» CF A14,PRLKM DK3«, t00=0x0029, t01=0x00b4}
0x40cc…40e4 Head {h00=0x0014, h01=0x0050, text=»PRL220 EQU * DK«, t00=0x0029, t01=0x00ce}
0x40e4…40f6 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0029, t01=0x00e6}
0x40f6…410e Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBBA,A8 «, t00=0x0029, t01=0x00f8}
0x410e…4124 Head {h00=0x0012, h01=0x0050, text=» SUR A9,A9 =1«, t00=0x0029, t01=0x0110}
0x4124…413a Head {h00=0x0012, h01=0x0050, text=» SCR A9,A7 =1«, t00=0x0029, t01=0x0126}
0x413a…4152 Head {h00=0x0014, h01=0x0050, text=» SC A9,1,A7 =1 «, t00=0x0029, t01=0x013c}
0x4152…417a Head {h00=0x0024, h01=0x0050, text=» ADK A7,2 RESTORE BUFFER ADDRESS«, t00=0x0029, t01=0x0154}
0x417a…418a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0029, t01=0x017c}
0x418a…41a0 Head {h00=0x0012, h01=0x0050, text=»* EJECT«, t00=0x0029, t01=0x018c}
0x41a0…41aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0012}
0x41aa…41b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x001c}
0x41b4…41d8 Head {h00=0x0020, h01=0x0050, text=»* SET STATUS NOT BUSY FOR DC«, t00=0x002a, t01=0x0026}
0x41d8…41e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x004a}
0x41e2…41ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0054}
0x41ec…4200 Head {h00=0x0010, h01=0x0050, text=»SNBUSY EQU *«, t00=0x002a, t01=0x005e}
0x4200…421c Head {h00=0x0018, h01=0x0050, text=» LD A8,ECBDCC,TCABAS«, t00=0x002a, t01=0x0072}
0x421c…4230 Head {h00=0x0010, h01=0x0050, text=» CM ECBCW,A8«, t00=0x002a, t01=0x008e}
0x4230…4254 Head {h00=0x0020, h01=0x0050, text=» LDK A7,/B8 SET STATUS ORDER«, t00=0x002a, t01=0x00a2}
0x4254…4260 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002a, t01=0x00c6}
0x4260…4270 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x002a, t01=0x00d2}
0x4270…4280 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002a, t01=0x00e2}
0x4280…428a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00f2}
0x428a…4294 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00fc}
0x4294…429e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0106}
0x429e…42a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0110}
0x42a8…42c0 Head {h00=0x0014, h01=0x0050, text=»PRLKM EQU * DK3«, t00=0x002a, t01=0x011a}
0x42c0…42da Head {h00=0x0016, h01=0x0050, text=» IFT SPOOL=1 DK5 «, t00=0x002a, t01=0x0132}
0x42da…4310 Head {h00=0x0032, h01=0x0050, text=» LD A5,PRINTER,TCABAS CHECK IF SPOOL DEV. DK5 «, t00=0x002a, t01=0x014c}
0x4310…432a Head {h00=0x0016, h01=0x0050, text=» CWK A5,'LA' DK5 «, t00=0x002a, t01=0x0182}
0x432a…4356 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) PRLKMP NOT SPOOL DEVICE DK5 «, t00=0x002b, t01=0x000c}
0x4356…4376 Head {h00=0x001c, h01=0x0050, text=» CF A14,PRSPOL SPOOL DK5«, t00=0x002b, t01=0x0038}
0x4376…4380 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0058}
0x4380…439a Head {h00=0x0016, h01=0x0050, text=»* TEST RETURN CODE«, t00=0x002b, t01=0x0062}
0x439a…43a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x007c}
0x43a4…43c6 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 TEST RETURN DK5«, t00=0x002b, t01=0x0086}
0x43c6…43e8 Head {h00=0x001e, h01=0x0050, text=» RB(NZ) PRLKM NO GOOD DK5 «, t00=0x002b, t01=0x00a8}
0x43e8…4404 Head {h00=0x0018, h01=0x0050, text=» RTN A14 RETURN DK5 «, t00=0x002b, t01=0x00ca}
0x4404…4414 Head {h00=0x000c, h01=0x0050, text=»* DK5«, t00=0x002b, t01=0x00e6}
0x4414…442e Head {h00=0x0016, h01=0x0050, text=»PRLKMP EQU * DK5 «, t00=0x002b, t01=0x00f6}
0x442e…4440 Head {h00=0x000e, h01=0x0050, text=» XIF DK5«, t00=0x002b, t01=0x0110}
0x4440…4458 Head {h00=0x0014, h01=0x0050, text=» LDK A7,/86 DK3«, t00=0x002b, t01=0x0122}
0x4458…446a Head {h00=0x000e, h01=0x0050, text=» LKM DK3«, t00=0x002b, t01=0x013a}
0x446a…447e Head {h00=0x0010, h01=0x0050, text=» DATA 1 DK3«, t00=0x002b, t01=0x014c}
0x447e…44aa Head {h00=0x0028, h01=0x0050, text=» LD A7,ECBRC,A8 GET RETURN CODE DK3 «, t00=0x002b, t01=0x0160}
0x44aa…44d0 Head {h00=0x0022, h01=0x0050, text=» ANKL A7,/2005 BIT 2,3,15? DK3«, t00=0x002b, t01=0x018c}
0x44d0…44f8 Head {h00=0x0024, h01=0x0050, text=» RB(NZ) PRLKM NO, TRY AGAIN DK3 «, t00=0x002c, t01=0x0022}
0x44f8…450e Head {h00=0x0012, h01=0x0050, text=» RTN A14 DK3 «, t00=0x002c, t01=0x004a}
0x450e…4518 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0060}
0x4518…4532 Head {h00=0x0016, h01=0x0050, text=» IFT SPOOL=1 DK5 «, t00=0x002c, t01=0x006a}
0x4532…4540 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0084}
0x4540…454a Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x002c, t01=0x0092}
0x454a…4576 Head {h00=0x0028, h01=0x0050, text=»*PRINT LINES DIRECTED TO SPOOL TASK «, t00=0x002c, t01=0x009c}
0x4576…4580 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00c8}
0x4580…4592 Head {h00=0x000e, h01=0x0050, text=»* CALLING:«, t00=0x002c, t01=0x00d2}
0x4592…459c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00e4}
0x459c…45b4 Head {h00=0x0014, h01=0x0050, text=»* CF A14,PRSPOL «, t00=0x002c, t01=0x00ee}
0x45b4…45dc Head {h00=0x0024, h01=0x0050, text=»* REG. A8 = PRINTER ECB POINTER «, t00=0x002c, t01=0x0106}
0x45dc…45e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x012e}
0x45e6…4606 Head {h00=0x001c, h01=0x0050, text=»* CHANGED REGISTERS ARE:«, t00=0x002c, t01=0x0138}
0x4606…4634 Head {h00=0x002a, h01=0x0050, text=»* A1,A2, AND A5 «, t00=0x002c, t01=0x0158}
0x4634…463e Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x002c, t01=0x0186}
0x463e…4666 Head {h00=0x0024, h01=0x0050, text=»*HERE COMES SPOOLING?????? DK5 «, t00=0x002c, t01=0x0190}
0x4666…4676 Head {h00=0x000c, h01=0x0050, text=» DK5B«, t00=0x002d, t01=0x0028}
0x4676…468e Head {h00=0x0014, h01=0x0050, text=»* START OF LOOP «, t00=0x002d, t01=0x0038}
0x468e…46b0 Head {h00=0x001e, h01=0x0050, text=»* SET ECB FOR PRINTER «, t00=0x002d, t01=0x0050}
0x46b0…46ce Head {h00=0x001a, h01=0x0050, text=»* GET REQ. LENGTH «, t00=0x002d, t01=0x0072}
0x46ce…46ea Head {h00=0x0018, h01=0x0050, text=»* GET BUFFER ADR«, t00=0x002d, t01=0x0090}
0x46ea…471e Head {h00=0x0030, h01=0x0050, text=»* CHANGE BUFFER ADDRESS 6 BYTES LEFT AND«, t00=0x002d, t01=0x00ac}
0x471e…4754 Head {h00=0x0032, h01=0x0050, text=»* INSERT CURRENT TID, FUNCTION (PRINT)«, t00=0x002d, t01=0x00e0}
0x4754…477a Head {h00=0x0022, h01=0x0050, text=»* AND REQUESTED LENGTH«, t00=0x002d, t01=0x0116}
0x477a…479e Head {h00=0x0020, h01=0x0050, text=»* CHANGE ECB TO ICWRITE «, t00=0x002d, t01=0x013c}
0x479e…47d4 Head {h00=0x0032, h01=0x0050, text=»* INSERT BUFFER ADR, NEW REQ. LENGTH, AND «, t00=0x002d, t01=0x0160}
0x47d4…47ec Head {h00=0x0014, h01=0x0050, text=»* TO-TID«, t00=0x002e, t01=0x0008}
0x47ec…4814 Head {h00=0x0024, h01=0x0050, text=»* INTERTASK WRITE WITH WAIT «, t00=0x002e, t01=0x0020}
0x4814…4840 Head {h00=0x0028, h01=0x0050, text=»* QUIT TO DIRECT PRINT IF ERROR «, t00=0x002e, t01=0x0048}
0x4840…4864 Head {h00=0x0020, h01=0x0050, text=»* SET UP INTERTASK READ «, t00=0x002e, t01=0x0074}
0x4864…4886 Head {h00=0x001e, h01=0x0050, text=»* CHANGE ECB TO ICREAD«, t00=0x002e, t01=0x0098}
0x4886…48b6 Head {h00=0x002c, h01=0x0050, text=»* BUFFER, REQ.LENGTH=2, ADR FROM«, t00=0x002e, t01=0x00ba}
0x48b6…48d4 Head {h00=0x001a, h01=0x0050, text=»* SPOOL MASTER«, t00=0x002e, t01=0x00ea}
0x48d4…48fa Head {h00=0x0022, h01=0x0050, text=»* INTERTASK READ WITH WAIT«, t00=0x002e, t01=0x0108}
0x48fa…4926 Head {h00=0x0028, h01=0x0050, text=»* QUIT TO DIRECT PRINT IF ERROR «, t00=0x002e, t01=0x012e}
0x4926…493e Head {h00=0x0014, h01=0x0050, text=»* LOOP IF REPEAT«, t00=0x002e, t01=0x015a}
0x493e…4948 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0172}
0x4948…4960 Head {h00=0x0014, h01=0x0050, text=»* IF OK, RETURN «, t00=0x002e, t01=0x017c}
0x4960…497a (47, 0, 400) Head {h00=0x0016, h01=0x0050, text=»* SET PRINTER ECB «, t00=0x002f, t01=0x0004}
0x497a…498a Head {h00=0x000c, h01=0x0050, text=» EJECT «, t00=0x002f, t01=0x001e}
0x498a…49a4 Head {h00=0x0016, h01=0x0050, text=»PRSPOL EQU * DK5 «, t00=0x002f, t01=0x002e}
0x49a4…49ce Head {h00=0x0026, h01=0x0050, text=» LDKL A5,ECBICW GET INTER-TASK ECB«, t00=0x002f, t01=0x0048}
0x49ce…49e6 Head {h00=0x0014, h01=0x0050, text=» ADR A5,CREBAS «, t00=0x002f, t01=0x0072}
0x49e6…4a14 Head {h00=0x002a, h01=0x0050, text=» LD A2,ECBBA,A8 GET PRINTER BUFFER DK5«, t00=0x002f, t01=0x008a}
0x4a14…4a36 Head {h00=0x001e, h01=0x0050, text=» SUK A2,2 BUILD HEADER DK5«, t00=0x002f, t01=0x00b8}
0x4a36…4a6a Head {h00=0x0030, h01=0x0050, text=» LD A1,ECBRL,A8 PUT REQ. LEN. IN HEADER DK5 «, t00=0x002f, t01=0x00da}
0x4a6a…4a82 Head {h00=0x0014, h01=0x0050, text=» STR A1,A2 DK5«, t00=0x002f, t01=0x010e}
0x4a82…4aa2 Head {h00=0x001c, h01=0x0050, text=» SUK A2,2 POINTER -2 DK5«, t00=0x002f, t01=0x0126}
0x4aa2…4ad2 Head {h00=0x002c, h01=0x0050, text=» LDK A1,2 PUT FUNCTION (2) IN HEADER DK5«, t00=0x002f, t01=0x0146}
0x4ad2…4aea Head {h00=0x0014, h01=0x0050, text=» STR A1,A2 DK5«, t00=0x002f, t01=0x0176}
0x4aea…4b06 Head {h00=0x0018, h01=0x0050, text=» SUK A2,2 POINTER -2«, t00=0x002f, t01=0x018e}
0x4b06…4b10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x001a}
0x4b10…4b3e Head {h00=0x002a, h01=0x0050, text=»* INSERT OWN TID IF DATA FROM DC-LINE «, t00=0x0030, t01=0x0024}
0x4b3e…4b48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0052}
0x4b48…4b76 Head {h00=0x002a, h01=0x0050, text=» LD A1,ECBDCC,TCABAS CHECK DC FLAG DK5«, t00=0x0030, t01=0x005c}
0x4b76…4ba4 Head {h00=0x002a, h01=0x0050, text=» RF(Z) PRS030 NOT FROM DC, HARDCPY DK5«, t00=0x0030, t01=0x008a}
0x4ba4…4bd4 Head {h00=0x002c, h01=0x0050, text=» LD A1,ICWORK,TCABAS HRDCPY PENDING? DK5«, t00=0x0030, t01=0x00b8}
0x4bd4…4bfe Head {h00=0x0026, h01=0x0050, text=» RF(NZ) PRS030 YES , HANDLE IT DK5«, t00=0x0030, t01=0x00e8}
0x4bfe…4c2a Head {h00=0x0028, h01=0x0050, text=» LDKL A1,'LA' DC, INSERT OUR TID DK5«, t00=0x0030, t01=0x0112}
0x4c2a…4c42 Head {h00=0x0014, h01=0x0050, text=» STR A1,A2 DK5«, t00=0x0030, t01=0x013e}
0x4c42…4c58 Head {h00=0x0012, h01=0x0050, text=»PRS030 EQU * «, t00=0x0030, t01=0x0156}
0x4c58…4c8a Head {h00=0x002e, h01=0x0050, text=» ST A2,ECBBA,A5 BUFFER ADDR. TO IC-ECB DK5«, t00=0x0030, t01=0x016c}
0x4c8a…4cb8 Head {h00=0x002a, h01=0x0050, text=» LD A1,ECBRL,A8 GET ORIG. REQ. LEN DK5«, t00=0x0031, t01=0x000e}
0x4cb8…4ce0 Head {h00=0x0024, h01=0x0050, text=» ADK A1,6 ADJUST FOR HEADER DK5 «, t00=0x0031, t01=0x003c}
0x4ce0…4d0a Head {h00=0x0026, h01=0x0050, text=» ST A1,ECBRL,A5 PUT IN IC-ECB DK5 «, t00=0x0031, t01=0x0064}
0x4d0a…4d30 Head {h00=0x0022, h01=0x0050, text=» LDR A8,A5 GET INTASK ECB DK5 «, t00=0x0031, t01=0x008e}
0x4d30…4d54 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,-1 NO TIME OUT DK5 «, t00=0x0031, t01=0x00b4}
0x4d54…4d76 Head {h00=0x001e, h01=0x0050, text=» CF A14,REQTIM SET IT DK5 «, t00=0x0031, t01=0x00d8}
0x4d76…4da0 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,'S0' SET 'TO' TASK-ID DK5«, t00=0x0031, t01=0x00fa}
0x4da0…4dbe Head {h00=0x001a, h01=0x0050, text=» ST A1,ECBCW,A8 DK5 «, t00=0x0031, t01=0x0124}
0x4dbe…4dee Head {h00=0x002c, h01=0x0050, text=» LDK A7,/8B ORDER = ADDRESSED WRITE DK5 «, t00=0x0031, t01=0x0142}
0x4dee…4df8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0172}
0x4df8…4e06 Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x0031, t01=0x017c}
0x4e06…4e16 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0031, t01=0x018a}
0x4e16…4e20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x000a}
0x4e20…4e40 Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBRC,A8 OK? DK5 «, t00=0x0032, t01=0x0014}
0x4e40…4e64 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) PRS090 NO, QUIT DK5 «, t00=0x0032, t01=0x0034}
0x4e64…4e74 Head {h00=0x000c, h01=0x0050, text=» EJECT «, t00=0x0032, t01=0x0058}
0x4e74…4e92 Head {h00=0x001a, h01=0x0050, text=»* READ THE RESULT.... «, t00=0x0032, t01=0x0068}
0x4e92…4e9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0086}
0x4e9c…4ed2 Head {h00=0x0032, h01=0x0050, text=» LDKL A8,ECBICR PREPARE THE REQUEST (READ) DK5«, t00=0x0032, t01=0x0090}
0x4ed2…4eee Head {h00=0x0018, h01=0x0050, text=» ADR A8,CREBAS DK5«, t00=0x0032, t01=0x00c6}
0x4eee…4f1c Head {h00=0x002a, h01=0x0050, text=» LDKL A1,-1 SET TIME-OUT = (NONE) DK5 «, t00=0x0032, t01=0x00e2}
0x4f1c…4f38 Head {h00=0x0018, h01=0x0050, text=» CF A14,REQTIM DK5«, t00=0x0032, t01=0x0110}
0x4f38…4f62 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,'S0' READ = ADDRESSED DK5«, t00=0x0032, t01=0x012c}
0x4f62…4f7a Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x0032, t01=0x0156}
0x4f7a…4f9a Head {h00=0x001c, h01=0x0050, text=» LDK A1,2 REQ. LENG DK5 «, t00=0x0032, t01=0x016e}
0x4f9a…4fb8 Head {h00=0x001a, h01=0x0050, text=» ST A1,ECBRL,A8 DK5 «, t00=0x0032, t01=0x018e}
0x4fb8…4fe4 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,ICBUF SET BUFFER ADDR. DK5«, t00=0x0033, t01=0x001c}
0x4fe4…5000 Head {h00=0x0018, h01=0x0050, text=» ADR A1,TCABAS DK5«, t00=0x0033, t01=0x0048}
0x5000…501e Head {h00=0x001a, h01=0x0050, text=» ST A1,ECBBA,A8 DK5 «, t00=0x0033, t01=0x0064}
0x501e…504c Head {h00=0x002a, h01=0x0050, text=» LDK A7,/8A ORDER = READ ADDRESSED DK5«, t00=0x0033, t01=0x0082}
0x504c…5056 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00b0}
0x5056…5064 Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x0033, t01=0x00ba}
0x5064…5074 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0033, t01=0x00c8}
0x5074…507e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00d8}
0x507e…50a6 Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBRC,A8 TEST RESULT DK5 «, t00=0x0033, t01=0x00e2}
0x50a6…50ce Head {h00=0x0024, h01=0x0050, text=» RF(NZ) PRS090 NO GOOD, QUIT DK5«, t00=0x0033, t01=0x010a}
0x50ce…50fc Head {h00=0x002a, h01=0x0050, text=» LC* A1,ECBBA,A8 TEST MESSAGE CODE DK5«, t00=0x0033, t01=0x0132}
0x50fc…5126 Head {h00=0x0026, h01=0x0050, text=» SUK A1,'0' MUST BE ASCII '0' DK5 «, t00=0x0033, t01=0x0160}
0x5126…513c Head {h00=0x0012, h01=0x0050, text=»PRS090 EQU * «, t00=0x0033, t01=0x018a}
0x513c…516c Head {h00=0x002c, h01=0x0050, text=» LDKL A8,ECBPR RESTORE PRINTER ECB TO A8«, t00=0x0034, t01=0x0010}
0x516c…5188 Head {h00=0x0018, h01=0x0050, text=» ADR A8,CREBAS DK5«, t00=0x0034, t01=0x0040}
0x5188…519e Head {h00=0x0012, h01=0x0050, text=» RTN A14 DK5«, t00=0x0034, t01=0x005c}
0x519e…51b0 Head {h00=0x000e, h01=0x0050, text=» XIF DK5«, t00=0x0034, t01=0x0072}
0x51b0…51ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0084}
0x51ba…51d4 Head {h00=0x0016, h01=0x0050, text=» IFT SUSPA=1 DK4B«, t00=0x0034, t01=0x008e}
0x51d4…51de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00a8}
0x51de…51e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00b2}
0x51e8…5216 Head {h00=0x002a, h01=0x0050, text=»* SKIPSP = SUBROTINE TO SKIP SPACES«, t00=0x0034, t01=0x00bc}
0x5216…5242 Head {h00=0x0028, h01=0x0050, text=»* IN END OF ECB-BUFFER. «, t00=0x0034, t01=0x00ea}
0x5242…527a Head {h00=0x0034, h01=0x0050, text=»* REQUESTED LENGTH IN A9 IS UPDATED.«, t00=0x0034, t01=0x0116}
0x527a…52a0 Head {h00=0x0022, h01=0x0050, text=»* A1,A2 - WORK REG«, t00=0x0034, t01=0x014e}
0x52a0…52aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0174}
0x52aa…52be Head {h00=0x0010, h01=0x0050, text=»SKIPSP EQU *«, t00=0x0034, t01=0x017e}
0x52be…52d0 (53, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ADKL A9,2«, t00=0x0035, t01=0x0004}
0x52d0…52fc Head {h00=0x0028, h01=0x0050, text=» LD A1,2,A8 GET BUFFER ADDRESS (BA) «, t00=0x0035, t01=0x0016}
0x52fc…5324 Head {h00=0x0024, h01=0x0050, text=» ADR A1,A9 GET ADD END OF BUFFER«, t00=0x0035, t01=0x0042}
0x5324…533c Head {h00=0x0014, h01=0x0050, text=»SKIP05 CWK A9,2 «, t00=0x0035, t01=0x006a}
0x533c…535a Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 3 «, t00=0x0035, t01=0x0082}
0x535a…5374 Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 DECR. BA«, t00=0x0035, t01=0x00a0}
0x5374…5390 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A1 GET CHAR «, t00=0x0035, t01=0x00ba}
0x5390…53ae Head {h00=0x001a, h01=0x0050, text=» CCK A2,/2020 SPACE ? «, t00=0x0035, t01=0x00d6}
0x53ae…53c8 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP20 NO «, t00=0x0035, t01=0x00f4}
0x53c8…53e8 Head {h00=0x001c, h01=0x0050, text=»SKIP07 SUKL A9,1 DECR RL«, t00=0x0035, t01=0x010e}
0x53e8…5404 Head {h00=0x0018, h01=0x0050, text=» RB SKIP05 GET NEXT «, t00=0x0035, t01=0x012e}
0x5404…541c Head {h00=0x0014, h01=0x0050, text=»SKIP20 CWK A9,4 «, t00=0x0035, t01=0x014a}
0x541c…543a Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 5 «, t00=0x0035, t01=0x0162}
0x543a…5458 Head {h00=0x001a, h01=0x0050, text=» LC A2,-2,A1 GET CHAR «, t00=0x0035, t01=0x0180}
0x5458…5480 Head {h00=0x0024, h01=0x0050, text=» CCK A2,/1111 TABULATION CHAR ? «, t00=0x0036, t01=0x000e}
0x5480…549a Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP30 NO «, t00=0x0036, t01=0x0036}
0x549a…54b4 Head {h00=0x0016, h01=0x0050, text=» SUK A1,2 DECR BA «, t00=0x0036, t01=0x0050}
0x54b4…54ce Head {h00=0x0016, h01=0x0050, text=» SUKL A9,2 DECR RL«, t00=0x0036, t01=0x006a}
0x54ce…54ea Head {h00=0x0018, h01=0x0050, text=» RB SKIP07 GET NEXT «, t00=0x0036, t01=0x0084}
0x54ea…54f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00a0}
0x54f4…5508 Head {h00=0x0010, h01=0x0050, text=»SKIP30 EQU *«, t00=0x0036, t01=0x00aa}
0x5508…551a Head {h00=0x000e, h01=0x0050, text=» SUKL A9,2«, t00=0x0036, t01=0x00be}
0x551a…552a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0036, t01=0x00d0}
0x552a…553e Head {h00=0x0010, h01=0x0050, text=» XIF DK4E «, t00=0x0036, t01=0x00e0}
0x553e…5548 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00f4}
0x5548…555c Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x0036, t01=0x00fe}
0x555c…5560 Head {h00=0x4004, h01=0x0000}
0x5560…5564 00 36 01 12 ┆ 6 ┆
0x5564…556c (55, 1, 8) 20 04 00 00 00 37 00 04 ┆ 7 ┆
0x556c…55bc (56, 0, 400) 99 4e 00 a5 ad ae 00 00 21 ce 43 52 64 a0 46 96 10 00 00 06 52 00 00 77 0c 56 52 00 00 80 0e ae 52 00 00 8a 08 4e 52 00 00 90 09 3e 52 00 00 97 0b be 52 00 00 9f 07 be 00 00 00 00 00 00 00 00 ff 66 ff 7a 00 00 00 00 00 00 00 00 00 00 00 00 ┆ N ! CRd F R w VR R NR >R R f z ┆
0x55bc…560c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 80 61 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 80 11 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ a ┆
0x560c…565c 00 00 80 10 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 80 c4 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 80 c3 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 80 c2 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x565c…56ac 00 00 80 c1 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 80 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 c0 50 00 00 00 38 00 00 00 00 00 00 00 00 00 00 00 00 00 00 c0 32 00 00 00 1e 00 02 00 00 00 00 00 00 00 00 00 00 ┆ P 8 2 ┆
0x56ac…56fc 00 00 c0 30 00 00 00 46 00 01 00 00 00 00 00 00 00 00 00 00 00 00 c0 31 00 00 00 64 00 00 00 00 00 00 00 00 00 00 00 00 00 00 80 f9 00 00 00 00 00 00 00 00 00 00 00 00 89 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c ┆ 0 F 1 d ┆
0x56fc…574c (57, 0, 400) 00 00 00 00 00 00 80 f8 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 dc 00 00 54 43 00 00 00 00 00 a0 0c 56 0c 22 0d 7e 0c 9a 17 a0 0d c2 19 ce 17 e8 1b 86 1a 16 21 36 0d c2 21 64 17 e8 1d 50 1d 08 1e 16 1d 94 ┆ TC V " ~ !6 !d P ┆
0x574c…579c 1e bc 1e 5a 1f e4 1f 00 1c c0 1b c2 20 fc 20 10 21 9a 20 10 fe 98 54 43 00 0e 00 0e 01 f0 00 00 f8 00 00 08 2a 00 00 00 00 00 03 04 00 00 00 00 00 00 0d 2a ff ff 00 00 00 01 00 00 22 06 c0 40 00 00 00 02 00 00 00 00 00 00 00 00 00 00 00 00 ┆ Z ! TC * * " @ ┆
0x579c…57ec 00 00 c0 20 00 00 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 c0 50 00 00 00 a2 00 00 00 00 00 00 00 00 00 00 00 00 00 00 80 e1 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 80 e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ P ┆
0x57ec…583c 00 00 80 61 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 98 00 00 4b 41 00 00 00 00 00 80 0b f6 0b 94 0b 50 03 9c 00 00 4b 41 00 06 00 02 40 00 00 00 80 00 00 00 2a 00 00 2a ff ff 00 00 00 01 00 00 22 08 c0 30 ┆ a KA P KA @ * * " 0┆
0x583c…588c 00 00 00 a2 00 00 00 00 00 00 00 00 00 00 00 00 00 00 80 e1 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 80 e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 83 ff ff ff c0 00 02 00 00 00 00 00 00 00 02 0f 00 02 00 00 00 05 ┆ ┆
0x588c…58dc (58, 0, 400) 00 00 80 61 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 03 20 00 00 47 41 00 00 00 00 00 80 0b f6 0b 94 0b 50 03 9c 00 00 47 41 00 04 00 02 40 00 00 00 80 00 00 00 2a 00 00 2a ff ff 00 00 00 01 00 00 22 2a 80 60 ┆ a GA P GA @ * * "* `┆
0x58dc…592c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 03 68 00 00 44 30 00 00 00 00 00 80 0b f6 0b 94 00 00 44 30 00 01 00 01 00 00 00 00 80 00 00 00 2a 00 ff ff 00 00 00 01 00 00 22 39 00 0a 03 60 03 14 02 8c 01 a0 00 08 ┆ h D0 D0 * "9 ` ┆
0x592c…597c 20 10 54 42 32 00 00 02 07 b6 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ TB2 ┆
0x597c…59cc 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x59cc…5a1c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 0f 00 02 00 08 30 00 5e 80 00 00 00 00 00 00 00 00 00 00 00 00 0c ┆ 0 ^ ┆
0x5a1c…5a6c (59, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x3…]
0x5b5c…5bac 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 ┆ ┆
0x5bac…5bfc (60, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x3…]
0x5cec…5d3c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c ┆ ┆