|
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: 68466 (0x10b72)
Notes: pts_type(SC)
Names: »UNPACK.SC«
└─⟦025d39960⟧ Bits:30009672 Philips computer tape "600133"
└─⟦this⟧ »A:DSB/UNPACK.SC«
IDENT UNPACK 811016-NJ
************************************************************************
* THIS ROUTINE PERFORMS BUFFER MOVEMENT AND DATA CONVERSION, DISPLAY*
* AND PRINTING OF INFORMATION NECESSARY FOR THE DSB PLADS RES. APPL.*
* CALLING SEQUENCE:*
* *
* CALL UNPACK,WORK,INBUF,INLEN,OUTBUF,OUTLEN,FLDTAB,DSDY,DSGP*
**
* PARAMETERS ARE:*
* WORK, BINARY ARRAY OF 12 ELEMENTS (SCRATCH AREAS)*
* INBUF, STRING ITEM, INPUT BUFFER*
* INLEN, BINARY ITEM, INPUT BUFFER LENGTH*
* OUTBUF, STING ITEM, DATA-COMM OUTPUT BUFFER*
* OUTLEN, BINARY ITEM, OUTPUT BUFFER LENGTH*
* FLDTAB, BINARY ARRAY (21 X 4), DESCRIPTION OF INPUT FIELDS*
* DSDY, DATA SET, FOR PDU 6386*
* DSGP, DATA SET, FOR GTP 6221, (MODIFIED DK PAPER OUT)*
**
* INPUT PARAMETERS:*
* *
* INBUF, INLEN*
**
* OUTPUT:*
**
* OUTBUF, OUTLEN, FLDTAB*
* DISPLAYED BUFFER, PRINTED FORM*
**
************************************************************************
EJECT
************************************************************************
**
* ENTRIES AND EXTERNAL REFERENCES*
**
************************************************************************
ENTRY UNPACK
ENTRY FLASH COMMAND FROM KB TASK
EXTRN I:EVA0,T:FDSP ROUTINES TO PICK UP PARAMETERS
EXTRN I:RT1 ROUTINE TO RETURN TO CREDIT
EXTRN MSKTAB,TABEND TABLES FOR INPUT FIELD DESC.
EJECT
************************************************************************
**
* CONSTANTS*
**
************************************************************************
SO EQU /0E0E SHIFT OUT
SI EQU /0F0F SHIFT IN
LF EQU /0A0A LINE FEED
CR EQU /0D0D CARRIAGE RETURN
CRLF EQU /0D0A
NULL EQU /0000 NULL CHAR.
POINT EQU /AE POINT CHAR.
PRTCHR EQU /3A3A PRINT INDICATOR = :
LFCHR EQU /0A LINE FEED FOR GP
MLF2 EQU /3C3C MULTIPLE LINE FEEDS(2)
MLF6 EQU /3D3D " " " 6
SPACE EQU /20 SPACE CHARACTER
SPACES EQU /2020 TEST SPACE CHARACTER
ACK EQU /2B PRINTER ACKNOWLEDGEMENT
NAK EQU /3E PRINTER NEG. "
PNTCHK EQU /AEAE POINT IN PRINTER BUFFER
DKOE1 EQU /4040
DKAE1 EQU /2323
DKAA1 EQU /2424
CHRFD1 EQU /0909 NONDESTRUCTIVE SPACE FWD
DKOE2 EQU /5C
DKAE2 EQU /5B
DKAA2 EQU /5D
CHRFD2 EQU /10
EJECT
* PTS 6386 CONTROL CHARACTERS*
CURLFT EQU /08 CURSOR LEFT
CURHOM EQU /0B CURSOR HOME
CLEAR EQU /0C CLEAR SCREEN, CURSOR HOME
CURRGT EQU /10 CURSOR RIGHT
SETCUR EQU /11 SET CURSOR POSITION
XADR0 EQU /20 LINE POSITION = 0,(OFF-SCREEN)
YADR0 EQU /20 COLUMN POSITION = 0. "
CURON EQU /15 CURSOR ON
CUROFF EQU /16 CURSOR OFF
CRBLNK EQU /17 CURSOR BLINK
CRSTDY EQU /18 CURSOR STEADY
FAST EQU /1420 FAST OUTPUT (/20=LENGTH ZERO)
BASWRT EQU /85 ORDER BASIC WRITE
STATUS EQU /80 TEST STATUS ORDER
DCWRT EQU /86 WRITE WITH WAIT
EJECT
************************************************************************
**
* WORK AREA DISPLACEMENTS, (POINTERS)*
**
************************************************************************
INBUF EQU 0 START OF WORK AREA. INBUF
INLEN EQU INBUF+2 LENGTH OF INBUF
OUTBUF EQU INLEN+2 OUTPUT BUFFER
OUTLEN EQU OUTBUF+2 LENGTH OF OUTPUT BUFFER
FLDTAB EQU OUTLEN+2 TABLE DESCRIBING INPUT FIELDS
DYECB EQU FLDTAB+2 DISPLAY EVENT CONTROL BLOCK
GPECB EQU DYECB+2 PRINTER EVENT CONTROL BLOCK
PRINT EQU GPECB+2 PRINT FLAG
DCECB EQU PRINT+2 DATA-COMM EVENT CONTROL BLOCK
WORK1 EQU DCECB+2 SCRATCH AREAS
WORK2 EQU WORK1+2
WORK3 EQU WORK2+2
CURSAV EQU WORK3+2 SAVE AREA FOR CURSOR POSITIONS
*
* WORK AREA FOR FLASHING FIELDS
*
FLATAB EQU CURSAV NUMBER OF FIELDS
FLACUR EQU 0 CURSOR POSITION
FLINPO EQU 2 POSITION IN INPUT BUFFER
FLALEN EQU 4 LENGTH OF FIELD
BLANKS EQU FLATAB+62 BUFFER FOR BLANKING
*
*
ECB EQU 0 START OF AN ECB
ECBBA EQU 2 ECB WORD DISPLACEMENTS
ECBRL EQU 4
ECBEL EQU 6
ECBRC EQU 8
ECBCW EQU 10
EJECT
************************************************************************
**
* UNP000*
* MAIN MODULE *
* CALLS SUB-MODULES, UNP100, THRU UNP900 TO PERFORM*
* THE REQUIRED FUNCTIONS*
* ENTRY : UNPACK = UNP000*
* EXITS VIA ABL I:RT1*
**
************************************************************************
UNPACK EQU *
UNP000 EQU *
CF A14,UNP100 GET PARAMETERS AND FILL WORK
AREAS, NO CHECK ON INPUT IS
PERFORMED.
CF A14,UNP200 MOVE AND CONVERT INPUT BUFFER
TO DISPLAY BUFFER
CF A14,UNP300 WRITE BUFFER TO DISPLAY, THIS
ROUTINE CONTAINS THE LKM...
CF A14,UNP900 SET FLASHING FIELDS IF ANY
LD A2,WORK1,A4 ANYTHING TO PRINT?
RF(NZ) UNP060 YES
CF A14,UNP400 BUILD INPUT FIELD TABLE
LD* A2,FLDTAB,A4 WAS IT A MASK?
RF(Z) UNP090 NO, IT'S A TEST OR SOMETHING
LD A2,WORK2,A4 IS IT AN ERROR MESSAGE?
RF(N) UNP090 YES, SKIP THE REST
CF A14,UNP500 COPY INPUT FIELDS TO DC OUTPUT
BUFFER, FILL IN LENGTH
RF UNP090 RETURN
UNP060 EQU *
CF A14,UNP600 FILL IN TICKET / FORM.
CF A14,UNP700 PRINT TICKET / FORM
CF A14,UNP800 ACKNOWLEDGE PRINT OPERATION
RF UNP090
FLASH EQU *
CF A14,KBFLSH FLASH COMMAND
UNP090 EQU *
ABL I:RT1 RETURN TO CREDIT CODING
EJECT
************************************************************************
* *
* *
* *
* UNP100 *
* *
* *
* *
************************************************************************
UNP100 EQU *
CF A14,I:EVA0 GET POINTER TO WORK AREA
LDR A4,A9 PUT IT IN A4 AS BASE REGISTER
CF A14,I:EVA0 GET INPUT BUFFER ADDRESS
ST A9,INBUF,A4 PUT IT IN WORK AREA
CF A14,I:EVA0 GET BUFFER LENGTH ADDRESS
LD A5,0,A9 GET LENGTH
ST A5,INLEN,A4 PUT IT IN WORK AREA
CF A14,I:EVA0 GET OUTPUT BUFFER ADDRESS
ST A9,OUTBUF,A4 PUT IT IN WORK AREA
CF A14,I:EVA0 GET OUTPUT BUFFER LENGTH ADDR.
ST A9,OUTLEN,A4 LEGNTH
CF A14,I:EVA0 GET INPUT FIELD TABLE ADDRESS
ST A9,FLDTAB,A4 PUT IT IN WORK AREA
CF A14,T:FDSP GET DISPLAY ECB ADDRESS
ST A8,DYECB,A4 PUT IT IN WORK AREA
CF A14,T:FDSP GET PRINTER ECB ADDRESS
ST A8,GPECB,A4 PUT IT THERE ALSO
CF A14,I:EVA0 GET PRINT FLAG
ST A9,PRINT,A4 PUT IT IN WORK AREA
CF A14,T:FDSP GET DATA-COMM ECB ADDRESS
ST A8,DCECB,A4 PUT IT IN WORK AREA
CF A14,I:EVA0 GET ACK/NAK BUFFER
ST A9,2,A8 SAVE IN ECB
RTN A14
EJECT
************************************************************************
* *
* *
* *
* UNP200 *
* *
* *
* *
************************************************************************
UNP200 EQU *
LDK A1,1 SET LINE POS. COUNTER TO ONE
LDKL A9,/0100 SET THE LINE COUNTER TO FIRST LINE
LDKL A10,CURSAV GET SAVE AREA FOR CURSORS
ADR A10,A4 ADD THE BASE
LD A3,INBUF,A4 GET ADDRESSES OF BUFFERS AND
LDKL A5,300 FIXED LENGTH
LD A8,DYECB,A4
LD A6,ECBBA,A8
LDR A1,A6 TEST FOR BUFFER END
ADKL A1,300
LDK A2,SPACE BLANKING CHARACTER
UNP202 EQU *
SCR A2,A6 BLANK A CHAR. IN DY BUFFER
ADK A6,1 MOVE THE POINTER
CWR A6,A1 END OF BUFFER ?
RF(G) UNP204 YES, FINISHED
RB UNP202 NO, CONTINUE
UNP204 EQU *
LD A6,ECBBA,A8 RESTORE BUFFER ADDR.
LDK A1,1 SET LINE POS. COUNTER TO ONE
ADK A6,1 OFF-SET FOR CURSOR HOME
LDK A7,0 NUMBER OF CHARACTERS PROCESSED
CM WORK1,A4 CLEAR OLD PRINT FLAG
UNP205 EQU *
LCR A2,A3 CHECK CHARS. TO BE REMOVED OR
CCK A2,NULL CONVERTED
RF(E) UNP235 NULL.
CCK A2,DKOE1
RF(E) UNP236
CCK A2,DKAE1
RF(E) UNP237
CCK A2,DKAA1
RF(E) UNP238
CCK A2,CHRFD1
RF(E) UNP239
CCK A2,SI
RF(E) UNP240 SHIFT IN
CCK A2,SO
RF(E) UNP245 SHIFT OUT
UNP210 EQU *
CCK A2,CR CHECK CONTROL CHARACTERS
RF(E) UNP225 CARRIAGE RETURN
CCK A2,LF
RF(E) UNP230 LINE FEED
CCK A2,PRTCHR SEE IF IT'S A TICKET
RF(E) UNP234 YES, SET INDICATOR
UNP215 EQU *
SCR A2,A6 PUT CHAR. IN DY BUFFER
ADK A6,1 UPDATE POINTERS
ADK A1,1
SUK A1,41 CHECK FOR END OF LINE
RF(N) UNP220 NOT END OF LINE
ADKL A9,/0100 UPDATE LINE COUNT
CWK A9,/0600 LINE SEVEN ?
RF(G) UNP290 YES, FINISHED
LDKL A2,CRLF END OF LINE, INSERT LINE FEED
SCR A2,A6 AND CARRIAGE RETURN
ADK A6,1
SRL A2,8
SCR A2,A6
ADK A6,1 UPDATE POINTERS
LDK A1,1
RF UNP250 CHECK END OF PROCESSING
UNP220 EQU *
ADK A1,41 RESTORE POINTER VALUE
RF UNP250 CHECK END OF PROCESSING
UNP225 EQU *
UNP230 EQU *
LDK A1,0 LINE FEED IN BUFFER RESET
ADKL A9,/0100 ADD A LINE
LDKL A2,CRLF IT'S A NEW LINE
SCR A2,A6 STORE IT IN OUTUT
SRL A2,8
ADK A6,1 ADJUST POINTER
RB UNP215 FINISH IT
UNP234 EQU *
ST A2,WORK1,A4 SOMETHING TO PRINT
RB UNP215
UNP235 EQU *
LDK A2,POINT NULL CHAR. REPLACE WITH POINT
RB UNP215
UNP236 EQU *
LDK A2,DKOE2
RB UNP215
UNP237 EQU *
LDK A2,DKAE2
RB UNP215
UNP238 EQU *
LDK A2,DKAA2
RB UNP215
UNP239 EQU *
LDK A2,CHRFD2
RB UNP215
UNP240 EQU *
ORR A9,A1 BUILD CURSOR POSITION
ST A9,2,A10 PUT IT IN SAVE AREA
ADKL A10,2 MOVE POINTER TO NEXT ENTRY
ANKL A9,/FF00 CLEAR LINE POS. FOR COUNTER
UNP245 EQU *
* "SI" OR "SO", SKIP 'EM
UNP250 EQU *
ADK A3,1 UPDATE INPUT POINTER
ADK A7,1 CHECK IF END OF INPUT
SUR A7,A5 BUFFER
RF(NN) UNP285 END OF PROCESS
ADR A7,A5 NOT ENDED, RESTORE VALUE
RB UNP205 GET NEXT CHARACTER
UNP285 EQU *
SUK A3,1 GO BACK ONE POSITION
LCR A2,A3 GET LAST CHARACTER IN BUFFER
CCK A2,PRTCHR SOMETHING TO PRINT?
RF(NE) UNP290 NO, RETURN
ST A2,WORK1,A4 SET PRINT FLAG = X'3A'
UNP290 EQU *
LDKL A9,CURSAV PUT THE NUMBER OF INPUT FIELDS
ADR A9,A4 IN THE SAVE AREA
SUR A10,A9
ST A10,CURSAV,A4 SAVE IT,(2X NUMBER OF FIELDS)
RTN A14 RETURN TO CALLER..
EJECT
************************************************************************
* *
* *
* *
* UNP300 *
* *
* *
* *
************************************************************************
UNP300 EQU *
LD A8,DYECB,A4 GET ECB ADDRESS IN A8
LD A1,ECBBA,A8 COMPUTE BUFFER LENGTH
LDK A2,CURHOM AND INSERT CURSOR HOME.
SCR A2,A1
SUR A6,A1
LDKL A6,300 FIXED LENGTH TO DISPLAY 271181
ST A6,ECBRL,A8 PUT IN ECB
LDK A7,BASWRT GET ORDER IN A7
*
*
LKM EXECUTE I-O
DATA 1
RTN A14
EJECT
************************************************************************
* *
* *
* *
* UNP400 *
* *
* *
* *
************************************************************************
UNP400 EQU *
CM WORK2,A4 CLEAR ERROR MESS. FLAG
LC* A1,INBUF,A4 SEE IF IT'S A MASK
ANKL A1,/00FF
CCK A1,LF
RF(E) UNP410 NOT A MASK
CCK A1,SI
RF(E) UNP410 NOT A MASK
LD A3,INBUF,A4 GET KEY TO MASKS
ADK A3,5 FIRST CHARACTER
LCR A1,A3 GET IT
ANKL A1,/00FF CLEAN IT
ADK A3,1 GET NEXT ONE
LCR A2,A3
ANKL A2,/00FF
SLL A1,8 MAKE ROOM
ORR A1,A2 MERGE THEM
*
CF A14,SRCHTB GO LOOK FOR THE MASK
*
LDR A2,A2 CHECK RETURN VALUE
RF(Z) UNP415 NO MASK FOUND
*
CF A14,MOVMSK MASK FOUND, MOVE IT TO FLDTAB
CF A14,FILCUR FILL IN CURSOR POSITIONS.
RF UNP412
*
UNP410 EQU *
LDKL A3,-1 INDICATE NO MASK
ST A3,WORK2,A4
UNP412 EQU *
RTN A14 RETURN TO CALLER
UNP415 EQU *
CM* FLDTAB,A4 INDICATE FLDTAB NOT VALID
RB UNP412
EJECT
************************************************************************
* *
* *
* *
* SRCHTB, ROUTINE TO FIND MASK IN MASK TABLE... *
* *
* *
* *
************************************************************************
* CALLING SEQUENCE: CF A14,SRCHTB*
* A1 = KEY, (TWO CHARACTERS)*
* RETURNS: A2 = 0, NO MASK FOUND*
* A2 /= 0, ADDRESS TO MASK TABLE*
SRCHTB EQU *
LDK A2,0 PRE-SET RETURN VALUE
LDKL A3,MSKTAB GET START OF TABLE
UNP460 EQU *
CWR* A1,A3 MATCH KEY
RF(E) UNP470 FOUND.
ADK A3,4 CHECK NEXT
CWK A3,TABEND LAST?
RB(L) UNP460 NO, GO FURTHER
UNP465 EQU *
RTN A14 END, RETURN TO CALLER
UNP470 EQU *
LD A2,2,A3 FOUND, GET TABLE ADDRESS IN A2
RB UNP465
EJECT
************************************************************************
* *
* *
* *
* MOVMSK: ROUTINE TO MOVE A MASK TABLE TO "FLDTAB". *
* *
* *
* *
************************************************************************
* CALLING SEQUENCE: CF A14,MOVMSK*
* A2 = ADDRESS OF MASK TABLE*
**
MOVMSK EQU *
LD A5,2,A2 GET TABLE END ADDRESS
LD A3,FLDTAB,A4 DESTINATION ADDRESS
UNP480 EQU *
LDR* A1,A2 GET A WORD
STR A1,A3
ADK A3,2 UPDATE POINTERS
ADK A2,2
CWR A2,A5 FINISHED
RB(L) UNP480 NO
RTN A14 FINISHED RETURN TO CALLER
FILCUR EQU *
LDK A5,1 ENTRY COUNTER = 1
LD A3,FLDTAB,A4 GET START OF FIELD TABLE
LDKL A2,CURSAV GET SAVE AREA
ADR A2,A4
LDR* A1,A2 GET NUMBER OF INPUT FIELDS
SRL A1,1 DIVIDE IT X2
STR A1,A3 PUT IT IN FLD =TAB
ADK A3,8 MOVE POINTER TO FIELD DESCR.
ADK A2,2 GET CURSOR POS.
UNP490 EQU *
CW* A5,FLDTAB,A4 END OF WORK
RF(G) UNP495 YES, GO BACK
LDR* A1,A2 GET CUR. POS.
STR A1,A3 PUT IT IN FLDTAB
ADK A2,2 UPDATE POINTERS
ADK A3,8
ADK A5,1
RB UNP490 CONTINUE
UNP495 EQU *
RTN A14
EJECT
************************************************************************
* *
* *
* *
* UNP500 *
* *
* *
* *
************************************************************************
UNP500 EQU *
LD A1,INBUF,A4 INITIALIZE THE POINTERS
LD A3,OUTBUF,A4
ADK A3,1 SKIP TERM. ADDR. + KEYS
LD A5,FLDTAB,A4
LD A6,OUTBUF,A4 BASE FOR POSITION COMPUTATION
ADK A5,10 FIRST ENTRY IN TABLE
LDK A7,0 NUMBER OF CHARACTERS CHECKED
UNP510 EQU *
LCR A2,A1 SEARCH FOR INPUT FIELDS
CCK A2,SI START OF INPUT FIELD?
RF(E) UNP530 YES,MOVE IT
UNP520 EQU *
ADK A7,1 NO LOOK FURTHER
ADK A1,1
CW A7,INLEN,A4 END?
RB(L) UNP510 NO, CONTINUE
UNP525 EQU *
SUR A3,A6 COMPUTE TOTAL LENGTH
LD A10,OUTLEN,A4 GET ADDR. OF LENGTH ITEM
STR A3,A10 FILL IT
SUR A9,A6 CORRECT THE LAST FIELD
SUR A3,A9
LDR A9,A3 KEEP IT FOR 'INFLNG'.
CF A14,INFLNG INSERT FIELD LENGTHS IN FLDTAB
RTN A14 RETURN TO CALLER
UNP530 EQU *
LDR A9,A3 SAVE FOR LAST FIELD.
SUR A3,A6 COMPUTE POSITION
STR A3,A5 PUT IT IN FLDTAB
ADK A5,8 MOVE POINTER TO NEXT ENTRY
ADR A3,A6 RESTORE ADDRESS IN BUFFER
ADK A1,1 MOVE PAST "SI"
ADK A7,1 COUNT EM
UNP535 EQU *
CW A7,INLEN,A4 END OF INPUT
RB(G) UNP525 YES, STOP
LCR A2,A1 GET THE CHARACTER
CCK A2,SO END OF INPUT FIELD?
RF(E) UNP540 YES
CCK A2,LF OTHER END CHARS.
RF(E) UNP540
CCK A2,CR
RF(E) UNP540
UNP537 EQU *
CWK A2,/00 WAS IT NILL?
RF(E) UNP538
LD A11,-4,A5 SET THE MODIFIED BIT
ORKL A11,/2000
ST A11,-4,A5
UNP538 EQU *
SCR A2,A3 NO, PUT IT IN OUTPUT BUFFER
ADK A3,1 UPDATE POINTERS
ADK A1,1
ADK A7,1 NUMBER OF CHARS. MOVED
RB UNP535
UNP540 EQU *
ADK A1,1 MOVE PAST "SO"
ADK A7,1 COUNT EM
RB UNP510 GET THE NEXT FIELD
INFLNG EQU *
LD A5,FLDTAB,A4 GET FLDTAB
LDR* A6,A5 NUMBER OF FIELDS
ADK A5,10 MOVE TO FIRST ENTRY
LDR A3,A5 ANOTHER POINTER
ADK A3,8 TO NEXT ENTRY
LDK A7,1 FIELD COUNTER
UNP550 EQU *
LDR* A1,A3 GET THE POS'S.
LDR* A2,A5
SUR A1,A2 COMPUTE THE LENGTH
ST A1,2,A5 PUT IT IN TABLE
ADK A7,1 COUNT IT.
CWR A7,A6 END?
RF(G) UNP560 YES ,RETURN
ADK A5,8 UPDATE POINTERS
ADK A3,8
RB UNP550 CONTINUE
UNP560 EQU *
ST A9,2,A5 LAST FIELD CORRECTION
RTN A14 GO BACK TO CALLER
EJECT
************************************************************************
* *
* *
* *
* UNP600 *
* *
* *
* *
************************************************************************
UNP600 EQU *
LDK A6,0 INITIALIZE SPACE COUNTER
LD A8,GPECB,A4 GET PRINTER BUFFER ADDRESS
LD A3,ECBBA,A8
LDKL A2,LF MOVE TICKET TO FIRST LOGICAL LINE
SCR A2,A3
ADK A3,1
LD A1,INBUF,A4 GET INPUT BUFFER
LD A5,INLEN,A4 AND LENGTH
ADR A5,A1 END OF BUFFER
LDK A7,1 INITIALIZE LINE COUNTER
UNP610 EQU *
CWR A1,A5 END OF BUFFER?
RF(G) UNP620 YES, RETURN
LCR A2,A1 GET A CHARACTER
CF A14,CHARCN PROCESS IT
LDR A2,A2 IF ZERO, SKIP IT
RF(Z) UNP615 MUST HAVE BEEN = "SI" OR "SO".
CWK A7,3 DON'T FILL BUFFER UNTIL LINE=3
RF(L) UNP615
SCR A2,A3 PUT IT IN PRINTER BUFFER
ADK A3,1 UPDATE POINTERS
UNP615 EQU *
ADK A1,1
RB UNP610 GET THE NEXT ONE
UNP620 EQU *
LD A5,ECBBA,A8 CALCULATE LENGTH
SUR A3,A5
ST A3,ECBRL,A8 PUT IT IN ECB
RTN A14 FINISHED, RETURN TO CALLER
EJECT
CHARCN EQU *
CCK A2,SPACES THE CHECK FOR TEST PICTURE
RF(NE) UNP640 TEST PIC. IF MORE THAT 40
ADK A6,1 COUNT THE SPACE
RF UNP670 PUT IN BUFFER IF LINE > 3
UNP640 EQU *
CWK A6,40 MORE THAN 40 SPACES?
RF(NG) UNP642 NO, PROCESS
LDKL A9,2 THIS IS FIRST NON-SPACE AFTER
CF A14,MLF600 MORE THAN 40 SPACES
SUK A1,1 LET HIM PROCESS THIS AGAIN.
LDK A6,0 CLEAR THE COUNTER
RF UNP670 GO ON.
UNP642 EQU *
LDK A6,0 RESET SPACE COUNTER
CCK A2,NULL IF "NULL" REPLACE WITH SPACE
RF(NE) UNP650
LDK A2,SPACE
RF UNP670
UNP650 EQU *
CCK A2,SO IF "SO", SKIP IT
RF(NE) UNP652
LDK A2,0
RF UNP670
UNP652 EQU *
CCK A2,SI IF "SI", SKIP IT
RF(NE) UNP654
LDK A2,0
RF UNP670
UNP654 EQU *
CCK A2,LF IF LINE FEED, INSERT LF-CR
RF(NE) UNP656
UNP655 EQU *
LDKL A9,1 "1" LINE FEED, CARRIAGE RETURN
CF A14,MLF600 INSERT IN OUTPUT BUFFER
RF UNP670
UNP656 EQU *
CCK A2,CR IF CARRIAGE RETURN, THEN "LF"
RB(E) UNP655
CCK A2,MLF2 IF MULTIPLE LINE FEEDS
RF(NE) UNP658
LDKL A9,2
CF A14,MLF600 PUT 'EM IN OUTPUT BUFFER
RF UNP670
UNP658 EQU *
CCK A2,MLF6 IF MULTIPLE LINE FEEDS
RF(NE) UNP660
LDKL A9,6
CF A14,MLF600 PUT 'EM IN OUTPUT BUFFER
RF UNP670
UNP660 EQU *
CCK A2,PRTCHR IF ":", INSERT LINE FEEDS
RF(NE) UNP670
LDKL A9,21
SUR A9,A7 CALCULATE 'TOP-OF-FORM'
CF A14,MLF600
UNP670 EQU *
RTN A14
MLF600 EQU *
LDKL A2,CRLF
UNP680 EQU *
SCR A2,A3
ADK A3,1 UPDATE POINT
ADK A7,1 INCREASE LINE COUNTER
SUKL A9,1 SEE IF FINISHED
RF(Z) UNP682 YES
RB UNP680 NO, INSERT ANOTHER LF
UNP682 EQU *
SRL A2,8 FINISHED, GET CARRIAGE RETURN
RTN A14 LET MAIN ROUTINE INSERT IT
EJECT
************************************************************************
* *
* *
* *
* UNP700 *
* *
* *
* *
************************************************************************
UNP700 EQU *
* TEST STATUS OF PRINTER*
LDK A7,STATUS ORDER TEST STATUS
LD A8,GPECB,A4 ECB ADDRESS TO A8
LKM I/O
DATA 1
LD A1,ECBRC,A8 GET RETURN CODE
RF(Z) UNP710 NORMALLY ENDED
UNP705 EQU *
ST A1,PRINT,A4 RETURN NOT OK, SAVE IT
RTN A14 RETURN TO CALLER
UNP710 EQU *
LDK A7,/05 BASIC WRITE, NO-WAIT
UNP720 EQU *
LKM
DATA 1
LD A1,WORK3,A4 SEE IF FLASHING REQUIRED
RF(Z) UNP730 NO WIAT FOR PRINTER
UNP725 EQU *
CF A14,PFLASH FLASH THE FIELDS
LD* A1,GPECB,A4 PRINTER FINISHED ?
RB(NN) UNP725 NO, KEEP FLASHING
UNP730 EQU *
LD A8,GPECB,A4 SET UP WAIT
LKM
DATA 2
LD A1,ECBRC,A8 GET THE RETURN CODE
RB UNP705 RETURN
EJECT
************************************************************************
* *
* *
* *
* UNP800 *
* *
* *
* *
************************************************************************
UNP800 EQU *
LD A1,PRINT,A4 CHECK RETURN CODE FROM
PRINT ROUTINE
RF(NZ) UNP810 SEND NAK
LDK A2,ACK OK, SEND ACK
RF UNP815
UNP810 EQU *
LDK A2,NAK
UNP815 EQU *
LD A8,DCECB,A4 GET THE DC ECB
LD A3,ECBBA,A8 GET THE BUFFER
ADK A3,1 SKIP TERM. ADD ANK KEY INFO
SCR A2,A3 INSERT ACKNOWLEDGEMENT
LDK A7,100 WAIT 10 SECONDS
ST A7,ECBCW,A8 SAVEIN ECB
LDK A7,/B9 SETIME
LKM
DATA 1
LDK A7,2 LENGTH OF ACK-NAK
ST A7,ECBRL,A8
LDK A7,DCWRT FILL IN ORDER, WRITE
LKM I/O
DATA 1
RTN A14 RETURN TO CALLER
EJECT
************************************************************************
**
* THIS MODULE SCANS THE INPUT BUFFER TO SEE IF FLASHING*
* FIELDS ARE PRESENT. IF SO, A TABLE "FLATAB" IS BUILT.*
* FLATAB IS PLACED IN THE WORK AREA "CURSAV".*
* WORK3 = 1 IF FLASHING FIELDS ARE PRESENT.*
**
************************************************************************
UNP900 EQU *
CM WORK3,A4 RESET FLASH FLAG
LD A3,INBUF,A4 SEE IF FIRST CHAR = SI
LCR A1,A3
ANK A1,/FF CLEAN THE LEFT HALF
CCK A1,SI
RF(NE) UNP915 IF NOT SI, RETURN
LDKL A9,FLATAB COULD BE FLASHING FIELDS
ADR A9,A4 INITIALIZE TABLE
LDR A5,A9 FIELD POINTER
ADK A5,2 SKIP NUMBER OF FIELDS
CM FLATAB,A4 RESET NUMBER OF FIELDS
LDKL A7,/0101 RESET CURSOR POSITION
LD A6,INLEN,A4
ADR A6,A3 END OF INPUT BUFFER
UNP905 EQU *
ADK A3,1 MOVE TO NEXT CHARACTER
LCR A1,A3
ANK A1,/FF CLEAN THE LEFT HALF
CF A14,FLACHK CHECK FOR FLASHING FIELDS
CWR A3,A6 END ?
RF(G) UNP910
RB UNP905 NO CONTINUE
UNP910 EQU *
LD A1,FLATAB,A4 SEE IF FLASHING FIELDS EXIST
RF(Z) UNP915
IM WORK3,A4 YES FLAG IT
UNP915 EQU *
RTN A14 FINISHED
EJECT
FLACHK EQU *
CCK A1,LF IF LINE FEED UPDATE CURSOR
RF(E) FLA000
CCK A1,CR IF CARRIAGE RETURN DITTO
RF(E) FLA000
CCK A1,SI IF SI THEN START OF FIELD
RF(E) FLA005
CCK A1,SO IF SO,SKIP IT
RF(E) FLARTN
ADK A7,1 UPDATE CURSOR POSITION
LDR A2,A7
ANK A2,/FF
CWK A2,/0028 END OF LINE ?
RF(NG) FLARTN NO CONTINUE
FLA000 EQU *
ADKL A7,/0100 CURSOR TO NEXT LINE
ANKL A7,/FF00
ADKL A7,/0001 POSITION 1
RF FLARTN
FLA005 EQU *
IM FLATAB,A4 COUNT THE FIELD
LDR A2,A3 SAVE POSITION TO CALCULATE
ADK A2,1 MOVE PAST SI
FLA010 EQU *
ADK A3,1 MOVE PAST SI
ST A3,FLINPO,A5 POINTS TO START OF FIELD
ST A7,FLACUR,A5 CURSOR POSITION
FLA015 EQU *
CWR A3,A6 END OF INPUT ?
RF(G) FLA025
LCR A1,A3 LOOK FOR END OF FIELD
CCK A1,SO END OF FIELD = SI, SO, CR, LF
RF(E) FLA020
CCK A1,SI
RF(E) FLA020
CCK A1,LF
RF(E) FLA020
CCK A1,CR
RF(E) FLA020
CCK A1,NULL IF NULL INSERT X'AE'
RF(E) FLA030
CCK A1,DKOE1 THE DANISH CONVERSIONS
RF(E) FLA035
CCK A1,DKAE1
RF(E) FLA040
CCK A1,DKAA1
RF(E) FLA045
FLA017 EQU *
ADK A7,1 UPDATE CURSOR
ADK A3,1 UPDATE POINTER
RB FLA015
FLA020 EQU *
SUR A2,A3 COMPUTE FIELD LENGTH
C1R A2,A2 MAKE IT POSITIVE
ADK A2,1 TWO'S COMPLEMENT
ST A2,FLALEN,A5 PUT LENGTH IN TABLE
ADK A5,6 POINTS TO NEXT FIELD
RF FLARTN
FLA025 EQU *
SUK A3,1 CORRECT FOR OVER-SHOOT
RB FLA020
FLA030 EQU *
LDK A1,POINT INSERT A .
SCR A1,A3
RB FLA017
FLA035 EQU *
LDK A1,DKOE2 THE END OF DANISH CONVERSIONS
SCR A1,A3
RB FLA017
FLA040 EQU *
LDK A1,DKAE2
SCR A1,A3
RB FLA017
FLA045 EQU *
LDK A1,DKAA2
SCR A1,A3
RB FLA017
FLARTN EQU *
RTN A14
EJECT
************************************************************************
**
* THIS MODULE WILL FLASH THE FIELDS ON A PDU*
* AS DESCRIBED BY THE TABLE FLATAB, WHICH GIVES*
* THE CURSOR POSITIONS, LENGTHS AND A POINTER TO*
* THE ORIGINAL CONTENTS...*
**
************************************************************************
KBFLSH EQU *
CF A14,I:EVA0 CREDIT ENTRY, GET WORK AREA
LDR A4,A9
LD A1,WORK3,A4 ANY FLASHING FIELDS?
RF(Z) FLAEND NO, EXIT AGAIN
PFLASH EQU *
ASSEMBLER ENTRY
LDKL A9,FLATAB GET THE TABLE
ADR A9,A4
LDR A5,A9 ENTRY POINTER
ADK A5,2 SKIP NUMBER OF FIELDS
LDK A6,1 INITIALIZE FIELD COUNTER
LD A8,DYECB,A4 GET DISPLAY ECB
CF A14,BLANK FIRST BLANK THE FIELDS
LDKL A8,3 WAIT 500 MILLI-SECONDS
LKM
DATA 6
LD A8,DYECB,A4 RETSORE A8
LDR A5,A9 RESET POINTER
ADK A5,2
LDK A6,1 AND COUNTER
CF A14,REWRIT RE-WRITE THE FIELDS
LDKL A8,3 WAIT 500 MILLI-SECONDS
LKM
DATA 6
FLAEND EQU *
RTN A14 RETURN TO CALLER
EJECT
BLANK EQU *
LDKL A1,BLANKS SET UP BUFFER
ADR A1,A4
LD A3,ECBBA,A8
ST A1,ECBBA,A8
BLK000 EQU *
CF A14,BLKFLD BLANK ONE FIELD
ADK A5,6 MOVE TO NEXT FIELD
ADK A6,1 COUNT IT
LD A1,FLATAB,A4 CHECK IF FINISHED
CWR A6,A1
RB(NG) BLK000 NO,CONTINUE
ST A3,ECBBA,A8
RTN A14 FINISHED
EJECT
BLKFLD EQU *
LD A2,ECBBA,A8 GET BUFFER ADDRESS
LDK A1,SETCUR SET CURSOR POSITION
SCR A1,A2 PUT IT IN BUFFER
ADK A2,1
LD A1,FLACUR,A5
ADKL A1,/1F1F MAKE CURS. POS DISPLAY
SCR A1,A2 PUT IN LINE NUMBER
ADK A2,1
SRL A1,8
SCR A1,A2 PUT IN COLUMN NUMBER
ADK A2,1
LDKL A1,FAST
LD A10,FLALEN,A5 GET LENGTH OF FIELD
ADR A1,A10
ECR A1,A1 PUT IT IN RIGHT ORDER
SCR A1,A2 IN BUFFER
ADK A2,1
SRL A1,8
SCR A1,A2
ADK A2,1
LDK A1,SPACE THE BLANKS
SCR A1,A2
LDK A1,6 SET UP REQUESTED LENGTH
ST A1,ECBRL,A8
CF 14,LINKUM WRITE IT...
RTN A14
EJECT
REWRIT EQU *
LD A10,ECBBA,A8 SAVE IT
REW000 EQU *
LD A2,FLINPO,A5 GET ORIGINAL DATA
SUK A2,3 MAKE ROOM FOR CURSOR POSITION
ST A2,ECBBA,A8
LDK A1,SETCUR
SCR A1,A2 PUT IT IN THERE
ADK A2,1
LD A1,FLACUR,A5
ADKL A1,/1F1F
SCR A1,A2
ADK A2,1
SRL A1,8
SCR A1,A2
LD A1,FLALEN,A5 GET THE FIELD LENGTH
ADK A1,3
ST A1,ECBRL,A8
CF A14,LINKUM WRITE IT...
ADK A5,6 UPDATE AND WRITE REST
ADK A6,1
LD A2,FLATAB,A4 CHECK END
CWR A6,A2
RF(G) REW100 YES, RETURN
RB REW000 NO, CONTINUE
REW100 EQU *
ST A10,ECBBA,A8 RESTORE BUFFER ADDR.
RTN A14
EJECT
LINKUM EQU *
LDK A7,/85 BASIC WRITE WITH WAIT
LKM
DATA 1
RTN A14
END
0x00000…00020 (0, 0, 400) Head {h00=0x001c, h01=0x0050, text=» IDENT UNPACK 811016-NJ «, t00=0x0000, t01=0x0004}
0x00020…00070 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0000, t01=0x0024}
0x00070…000c0 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0000, t01=0x0074}
0x000c0…00110 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x00c4}
0x00110…00160 Head {h00=0x004c, h01=0x0050, text=»* THIS ROUTINE PERFORMS BUFFER MOVEMENT AND DATA CONVERSION, DISPLAY *«, t00=0x0000, t01=0x0114}
0x00160…001b0 Head {h00=0x004c, h01=0x0050, text=»* AND PRINTING OF INFORMATION NECESSARY FOR THE DSB PLADS RES. APPL. *«, t00=0x0000, t01=0x0164}
0x001b0…00200 Head {h00=0x004c, h01=0x0050, text=»* CALLING SEQUENCE: *«, t00=0x0001, t01=0x0024}
0x00200…00250 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0001, t01=0x0074}
0x00250…002a0 Head {h00=0x004c, h01=0x0050, text=»* CALL UNPACK,WORK,INBUF,INLEN,OUTBUF,OUTLEN,FLDTAB,DSDY,DSGP *«, t00=0x0001, t01=0x00c4}
0x002a0…002f0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0001, t01=0x0114}
0x002f0…00340 Head {h00=0x004c, h01=0x0050, text=»* PARAMETERS ARE: *«, t00=0x0001, t01=0x0164}
0x00340…00390 Head {h00=0x004c, h01=0x0050, text=»* WORK, BINARY ARRAY OF 12 ELEMENTS (SCRATCH AREAS) *«, t00=0x0002, t01=0x0024}
0x00390…003e0 Head {h00=0x004c, h01=0x0050, text=»* INBUF, STRING ITEM, INPUT BUFFER *«, t00=0x0002, t01=0x0074}
0x003e0…00430 Head {h00=0x004c, h01=0x0050, text=»* INLEN, BINARY ITEM, INPUT BUFFER LENGTH *«, t00=0x0002, t01=0x00c4}
0x00430…00480 Head {h00=0x004c, h01=0x0050, text=»* OUTBUF, STING ITEM, DATA-COMM OUTPUT BUFFER *«, t00=0x0002, t01=0x0114}
0x00480…004d0 Head {h00=0x004c, h01=0x0050, text=»* OUTLEN, BINARY ITEM, OUTPUT BUFFER LENGTH *«, t00=0x0002, t01=0x0164}
0x004d0…00520 Head {h00=0x004c, h01=0x0050, text=»* FLDTAB, BINARY ARRAY (21 X 4), DESCRIPTION OF INPUT FIELDS *«, t00=0x0003, t01=0x0024}
0x00520…00570 Head {h00=0x004c, h01=0x0050, text=»* DSDY, DATA SET, FOR PDU 6386 *«, t00=0x0003, t01=0x0074}
0x00570…005c0 Head {h00=0x004c, h01=0x0050, text=»* DSGP, DATA SET, FOR GTP 6221, (MODIFIED DK PAPER OUT) *«, t00=0x0003, t01=0x00c4}
0x005c0…00610 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0003, t01=0x0114}
0x00610…00660 Head {h00=0x004c, h01=0x0050, text=»* INPUT PARAMETERS: *«, t00=0x0003, t01=0x0164}
0x00660…006b0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0004, t01=0x0024}
0x006b0…00700 Head {h00=0x004c, h01=0x0050, text=»* INBUF, INLEN *«, t00=0x0004, t01=0x0074}
0x00700…00750 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0004, t01=0x00c4}
0x00750…007a0 Head {h00=0x004c, h01=0x0050, text=»* OUTPUT: *«, t00=0x0004, t01=0x0114}
0x007a0…007f0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0004, t01=0x0164}
0x007f0…00840 Head {h00=0x004c, h01=0x0050, text=»* OUTBUF, OUTLEN, FLDTAB *«, t00=0x0005, t01=0x0024}
0x00840…00890 Head {h00=0x004c, h01=0x0050, text=»* DISPLAYED BUFFER, PRINTED FORM *«, t00=0x0005, t01=0x0074}
0x00890…008e0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0005, t01=0x00c4}
0x008e0…00930 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0005, t01=0x0114}
0x00930…00980 Head {h00=0x004c, h01=0x0050, text=» EJECT «, t00=0x0005, t01=0x0164}
0x00980…009d0 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0006, t01=0x0024}
0x009d0…00a20 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0006, t01=0x0074}
0x00a20…00a70 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0006, t01=0x00c4}
0x00a70…00ac0 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0006, t01=0x0114}
0x00ac0…00b10 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0006, t01=0x0164}
0x00b10…00b60 Head {h00=0x004c, h01=0x0050, text=»* ENTRIES AND EXTERNAL REFERENCES *«, t00=0x0007, t01=0x0024}
0x00b60…00bb0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0007, t01=0x0074}
0x00bb0…00c00 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0007, t01=0x00c4}
0x00c00…00c50 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0007, t01=0x0114}
0x00c50…00ca0 Head {h00=0x004c, h01=0x0050, text=» ENTRY UNPACK «, t00=0x0007, t01=0x0164}
0x00ca0…00cca Head {h00=0x0026, h01=0x0050, text=» ENTRY FLASH COMMAND FROM KB TASK «, t00=0x0008, t01=0x0024}
0x00cca…00d1a Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0008, t01=0x004e}
0x00d1a…00d6a Head {h00=0x004c, h01=0x0050, text=» EXTRN I:EVA0,T:FDSP ROUTINES TO PICK UP PARAMETERS «, t00=0x0008, t01=0x009e}
0x00d6a…00d9a Head {h00=0x002c, h01=0x0050, text=» EXTRN I:RT1 ROUTINE TO RETURN TO CREDIT«, t00=0x0008, t01=0x00ee}
0x00d9a…00dd4 Head {h00=0x0036, h01=0x0050, text=» EXTRN MSKTAB,TABEND TABLES FOR INPUT FIELD DESC. «, t00=0x0008, t01=0x011e}
0x00dd4…00e24 Head {h00=0x004c, h01=0x0050, text=» EJECT «, t00=0x0008, t01=0x0158}
0x00e24…00e74 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0009, t01=0x0018}
0x00e74…00ec4 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0009, t01=0x0068}
0x00ec4…00f14 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0009, t01=0x00b8}
0x00f14…00f64 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0009, t01=0x0108}
0x00f64…00fb4 Head {h00=0x004c, h01=0x0050, text=»* CONSTANTS *«, t00=0x0009, t01=0x0158}
0x00fb4…01004 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000a, t01=0x0018}
0x01004…01054 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x000a, t01=0x0068}
0x01054…010a4 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x000a, t01=0x00b8}
0x010a4…010f4 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x000a, t01=0x0108}
0x010f4…01146 Head {h00=0x004e, h01=0x0050, text=»SO EQU /0E0E SHIFT OUT «, t00=0x000a, t01=0x0158}
0x01146…01198 Head {h00=0x004e, h01=0x0050, text=»SI EQU /0F0F SHIFT IN «, t00=0x000b, t01=0x001a}
0x01198…011ea Head {h00=0x004e, h01=0x0050, text=»LF EQU /0A0A LINE FEED «, t00=0x000b, t01=0x006c}
0x011ea…0123c Head {h00=0x004e, h01=0x0050, text=»CR EQU /0D0D CARRIAGE RETURN «, t00=0x000b, t01=0x00be}
0x0123c…0128c Head {h00=0x004c, h01=0x0050, text=»CRLF EQU /0D0A «, t00=0x000b, t01=0x0110}
0x0128c…012de Head {h00=0x004e, h01=0x0050, text=»NULL EQU /0000 NULL CHAR. «, t00=0x000b, t01=0x0160}
0x012de…0132e Head {h00=0x004c, h01=0x0050, text=»POINT EQU /AE POINT CHAR. «, t00=0x000c, t01=0x0022}
0x0132e…01380 Head {h00=0x004e, h01=0x0050, text=»PRTCHR EQU /3A3A PRINT INDICATOR = : «, t00=0x000c, t01=0x0072}
0x01380…013a6 Head {h00=0x0022, h01=0x0050, text=»LFCHR EQU /0A LINE FEED FOR GP«, t00=0x000c, t01=0x00c4}
0x013a6…013d4 Head {h00=0x002a, h01=0x0050, text=»MLF2 EQU /3C3C MULTIPLE LINE FEEDS(2) «, t00=0x000c, t01=0x00ea}
0x013d4…01400 Head {h00=0x0028, h01=0x0050, text=»MLF6 EQU /3D3D " " " 6«, t00=0x000c, t01=0x0118}
0x01400…01426 Head {h00=0x0022, h01=0x0050, text=»SPACE EQU /20 SPACE CHARACTER «, t00=0x000c, t01=0x0144}
0x01426…01454 Head {h00=0x002a, h01=0x0050, text=»SPACES EQU /2020 TEST SPACE CHARACTER «, t00=0x000c, t01=0x016a}
0x01454…01480 Head {h00=0x0028, h01=0x0050, text=»ACK EQU /2B PRINTER ACKNOWLEDGEMENT «, t00=0x000d, t01=0x0008}
0x01480…014a6 Head {h00=0x0022, h01=0x0050, text=»NAK EQU /3E PRINTER NEG. " «, t00=0x000d, t01=0x0034}
0x014a6…014d6 Head {h00=0x002c, h01=0x0050, text=»PNTCHK EQU /AEAE POINT IN PRINTER BUFFER«, t00=0x000d, t01=0x005a}
0x014d6…014ee Head {h00=0x0014, h01=0x0050, text=»DKOE1 EQU /4040 «, t00=0x000d, t01=0x008a}
0x014ee…01506 Head {h00=0x0014, h01=0x0050, text=»DKAE1 EQU /2323 «, t00=0x000d, t01=0x00a2}
0x01506…0151e Head {h00=0x0014, h01=0x0050, text=»DKAA1 EQU /2424 «, t00=0x000d, t01=0x00ba}
0x0151e…01550 Head {h00=0x002e, h01=0x0050, text=»CHRFD1 EQU /0909 NONDESTRUCTIVE SPACE FWD «, t00=0x000d, t01=0x00d2}
0x01550…01566 Head {h00=0x0012, h01=0x0050, text=»DKOE2 EQU /5C «, t00=0x000d, t01=0x0104}
0x01566…0157c Head {h00=0x0012, h01=0x0050, text=»DKAE2 EQU /5B «, t00=0x000d, t01=0x011a}
0x0157c…01592 Head {h00=0x0012, h01=0x0050, text=»DKAA2 EQU /5D «, t00=0x000d, t01=0x0130}
0x01592…015aa Head {h00=0x0014, h01=0x0050, text=»CHRFD2 EQU /10 «, t00=0x000d, t01=0x0146}
0x015aa…015ba Head {h00=0x000c, h01=0x0050, text=» EJECT «, t00=0x000d, t01=0x015e}
0x015ba…0160a Head {h00=0x004c, h01=0x0050, text=» «, t00=0x000d, t01=0x016e}
0x0160a…0165a Head {h00=0x004c, h01=0x0050, text=»* PTS 6386 CONTROL CHARACTERS *«, t00=0x000e, t01=0x002e}
0x0165a…016aa Head {h00=0x004c, h01=0x0050, text=» «, t00=0x000e, t01=0x007e}
0x016aa…016fa Head {h00=0x004c, h01=0x0050, text=»CURLFT EQU /08 CURSOR LEFT «, t00=0x000e, t01=0x00ce}
0x016fa…0174a Head {h00=0x004c, h01=0x0050, text=»CURHOM EQU /0B CURSOR HOME «, t00=0x000e, t01=0x011e}
0x0174a…0179a Head {h00=0x004c, h01=0x0050, text=»CLEAR EQU /0C CLEAR SCREEN, CURSOR HOME «, t00=0x000e, t01=0x016e}
0x0179a…017ea Head {h00=0x004c, h01=0x0050, text=»CURRGT EQU /10 CURSOR RIGHT «, t00=0x000f, t01=0x002e}
0x017ea…0183a Head {h00=0x004c, h01=0x0050, text=»SETCUR EQU /11 SET CURSOR POSITION «, t00=0x000f, t01=0x007e}
0x0183a…0188a Head {h00=0x004c, h01=0x0050, text=»XADR0 EQU /20 LINE POSITION = 0,(OFF-SCREEN) «, t00=0x000f, t01=0x00ce}
0x0188a…018da Head {h00=0x004c, h01=0x0050, text=»YADR0 EQU /20 COLUMN POSITION = 0. " «, t00=0x000f, t01=0x011e}
0x018da…0192a Head {h00=0x004c, h01=0x0050, text=»CURON EQU /15 CURSOR ON «, t00=0x000f, t01=0x016e}
0x0192a…0197a Head {h00=0x004c, h01=0x0050, text=»CUROFF EQU /16 CURSOR OFF «, t00=0x0010, t01=0x002e}
0x0197a…019ca Head {h00=0x004c, h01=0x0050, text=»CRBLNK EQU /17 CURSOR BLINK «, t00=0x0010, t01=0x007e}
0x019ca…01a1a Head {h00=0x004c, h01=0x0050, text=»CRSTDY EQU /18 CURSOR STEADY «, t00=0x0010, t01=0x00ce}
0x01a1a…01a6a Head {h00=0x004c, h01=0x0050, text=»FAST EQU /1420 FAST OUTPUT (/20=LENGTH ZERO) «, t00=0x0010, t01=0x011e}
0x01a6a…01a94 Head {h00=0x0026, h01=0x0050, text=»BASWRT EQU /85 ORDER BASIC WRITE «, t00=0x0010, t01=0x016e}
0x01a94…01abc Head {h00=0x0024, h01=0x0050, text=»STATUS EQU /80 TEST STATUS ORDER«, t00=0x0011, t01=0x0008}
0x01abc…01ae2 Head {h00=0x0022, h01=0x0050, text=»DCWRT EQU /86 WRITE WITH WAIT «, t00=0x0011, t01=0x0030}
0x01ae2…01b32 Head {h00=0x004c, h01=0x0050, text=» EJECT «, t00=0x0011, t01=0x0056}
0x01b32…01b82 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0011, t01=0x00a6}
0x01b82…01bd2 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0011, t01=0x00f6}
0x01bd2…01c22 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0011, t01=0x0146}
0x01c22…01c72 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0012, t01=0x0008}
0x01c72…01cc2 Head {h00=0x004c, h01=0x0050, text=»* WORK AREA DISPLACEMENTS, (POINTERS) *«, t00=0x0012, t01=0x0058}
0x01cc2…01d12 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0012, t01=0x00a8}
0x01d12…01d62 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0012, t01=0x00f8}
0x01d62…01db2 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0012, t01=0x0148}
0x01db2…01e02 Head {h00=0x004c, h01=0x0050, text=»INBUF EQU 0 START OF WORK AREA. INBUF «, t00=0x0013, t01=0x0008}
0x01e02…01e52 Head {h00=0x004c, h01=0x0050, text=»INLEN EQU INBUF+2 LENGTH OF INBUF «, t00=0x0013, t01=0x0058}
0x01e52…01ea2 Head {h00=0x004c, h01=0x0050, text=»OUTBUF EQU INLEN+2 OUTPUT BUFFER «, t00=0x0013, t01=0x00a8}
0x01ea2…01ef2 Head {h00=0x004c, h01=0x0050, text=»OUTLEN EQU OUTBUF+2 LENGTH OF OUTPUT BUFFER «, t00=0x0013, t01=0x00f8}
0x01ef2…01f42 Head {h00=0x004c, h01=0x0050, text=»FLDTAB EQU OUTLEN+2 TABLE DESCRIBING INPUT FIELDS «, t00=0x0013, t01=0x0148}
0x01f42…01f92 Head {h00=0x004c, h01=0x0050, text=»DYECB EQU FLDTAB+2 DISPLAY EVENT CONTROL BLOCK «, t00=0x0014, t01=0x0008}
0x01f92…01fe2 Head {h00=0x004c, h01=0x0050, text=»GPECB EQU DYECB+2 PRINTER EVENT CONTROL BLOCK «, t00=0x0014, t01=0x0058}
0x01fe2…02008 Head {h00=0x0022, h01=0x0050, text=»PRINT EQU GPECB+2 PRINT FLAG «, t00=0x0014, t01=0x00a8}
0x02008…02040 Head {h00=0x0034, h01=0x0050, text=»DCECB EQU PRINT+2 DATA-COMM EVENT CONTROL BLOCK «, t00=0x0014, t01=0x00ce}
0x02040…02068 Head {h00=0x0024, h01=0x0050, text=»WORK1 EQU DCECB+2 SCRATCH AREAS «, t00=0x0014, t01=0x0106}
0x02068…02084 Head {h00=0x0018, h01=0x0050, text=»WORK2 EQU WORK1+2 «, t00=0x0014, t01=0x012e}
0x02084…020a0 Head {h00=0x0018, h01=0x0050, text=»WORK3 EQU WORK2+2 «, t00=0x0014, t01=0x014a}
0x020a0…020da Head {h00=0x0036, h01=0x0050, text=»CURSAV EQU WORK3+2 SAVE AREA FOR CURSOR POSITIONS «, t00=0x0014, t01=0x0166}
0x020da…020e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0010}
0x020e4…0210e Head {h00=0x0026, h01=0x0050, text=»* WORK AREA FOR FLASHING FIELDS «, t00=0x0015, t01=0x001a}
0x0210e…02118 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0044}
0x02118…02142 Head {h00=0x0026, h01=0x0050, text=»FLATAB EQU CURSAV NUMBER OF FIELDS«, t00=0x0015, t01=0x004e}
0x02142…02166 Head {h00=0x0020, h01=0x0050, text=»FLACUR EQU 0 CURSOR POSITION«, t00=0x0015, t01=0x0078}
0x02166…02194 Head {h00=0x002a, h01=0x0050, text=»FLINPO EQU 2 POSITION IN INPUT BUFFER «, t00=0x0015, t01=0x009c}
0x02194…021ba Head {h00=0x0022, h01=0x0050, text=»FLALEN EQU 4 LENGTH OF FIELD «, t00=0x0015, t01=0x00ca}
0x021ba…021ea Head {h00=0x002c, h01=0x0050, text=»BLANKS EQU FLATAB+62 BUFFER FOR BLANKING«, t00=0x0015, t01=0x00f0}
0x021ea…021f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0120}
0x021f4…021fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x012a}
0x021fe…02220 Head {h00=0x001e, h01=0x0050, text=»ECB EQU 0 START OF AN ECB «, t00=0x0015, t01=0x0134}
0x02220…0224a Head {h00=0x0026, h01=0x0050, text=»ECBBA EQU 2 ECB WORD DISPLACEMENTS«, t00=0x0015, t01=0x0156}
0x0224a…02260 Head {h00=0x0012, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0015, t01=0x0180}
0x02260…02276 Head {h00=0x0012, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0016, t01=0x0008}
0x02276…0228c Head {h00=0x0012, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0016, t01=0x001e}
0x0228c…022a2 Head {h00=0x0012, h01=0x0050, text=»ECBCW EQU 10 «, t00=0x0016, t01=0x0034}
0x022a2…022f2 Head {h00=0x004c, h01=0x0050, text=» EJECT «, t00=0x0016, t01=0x004a}
0x022f2…02342 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0016, t01=0x009a}
0x02342…02392 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0016, t01=0x00ea}
0x02392…023e2 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0016, t01=0x013a}
0x023e2…02432 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0016, t01=0x018a}
0x02432…02482 Head {h00=0x004c, h01=0x0050, text=»* UNP000 *«, t00=0x0017, t01=0x004a}
0x02482…024d2 Head {h00=0x004c, h01=0x0050, text=»* MAIN MODULE *«, t00=0x0017, t01=0x009a}
0x024d2…02522 Head {h00=0x004c, h01=0x0050, text=»* CALLS SUB-MODULES, UNP100, THRU UNP900 TO PERFORM *«, t00=0x0017, t01=0x00ea}
0x02522…02572 Head {h00=0x004c, h01=0x0050, text=»* THE REQUIRED FUNCTIONS *«, t00=0x0017, t01=0x013a}
0x02572…025c2 Head {h00=0x004c, h01=0x0050, text=»* ENTRY : UNPACK = UNP000 *«, t00=0x0017, t01=0x018a}
0x025c2…02612 Head {h00=0x004c, h01=0x0050, text=»* EXITS VIA ABL I:RT1 *«, t00=0x0018, t01=0x004a}
0x02612…02662 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0018, t01=0x009a}
0x02662…026b2 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0018, t01=0x00ea}
0x026b2…02702 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0018, t01=0x013a}
0x02702…02752 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0018, t01=0x018a}
0x02752…027a2 Head {h00=0x004c, h01=0x0050, text=»UNPACK EQU * «, t00=0x0019, t01=0x004a}
0x027a2…027f2 Head {h00=0x004c, h01=0x0050, text=»UNP000 EQU * «, t00=0x0019, t01=0x009a}
0x027f2…02842 Head {h00=0x004c, h01=0x0050, text=» CF A14,UNP100 GET PARAMETERS AND FILL WORK «, t00=0x0019, t01=0x00ea}
0x02842…02892 Head {h00=0x004c, h01=0x0050, text=» AREAS, NO CHECK ON INPUT IS «, t00=0x0019, t01=0x013a}
0x02892…028e2 Head {h00=0x004c, h01=0x0050, text=» PERFORMED. «, t00=0x0019, t01=0x018a}
0x028e2…02932 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x001a, t01=0x004a}
0x02932…02982 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x001a, t01=0x009a}
0x02982…029d2 Head {h00=0x004c, h01=0x0050, text=» CF A14,UNP200 MOVE AND CONVERT INPUT BUFFER «, t00=0x001a, t01=0x00ea}
0x029d2…02a22 Head {h00=0x004c, h01=0x0050, text=» TO DISPLAY BUFFER «, t00=0x001a, t01=0x013a}
0x02a22…02a72 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x001a, t01=0x018a}
0x02a72…02ac2 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x001b, t01=0x004a}
0x02ac2…02b12 Head {h00=0x004c, h01=0x0050, text=» CF A14,UNP300 WRITE BUFFER TO DISPLAY, THIS «, t00=0x001b, t01=0x009a}
0x02b12…02b62 Head {h00=0x004c, h01=0x0050, text=» ROUTINE CONTAINS THE LKM... «, t00=0x001b, t01=0x00ea}
0x02b62…02b94 Head {h00=0x002e, h01=0x0050, text=» CF A14,UNP900 SET FLASHING FIELDS IF ANY «, t00=0x001b, t01=0x013a}
0x02b94…02ba2 Head {h00=0x000a, h01=0x0050, text=» «, t00=0x001b, t01=0x016c}
0x02ba2…02bcc Head {h00=0x0026, h01=0x0050, text=» LD A2,WORK1,A4 ANYTHING TO PRINT?«, t00=0x001b, t01=0x017a}
0x02bcc…02be6 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) UNP060 YES«, t00=0x001c, t01=0x0014}
0x02be6…02c36 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x001c, t01=0x002e}
0x02c36…02c86 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x001c, t01=0x007e}
0x02c86…02cd6 Head {h00=0x004c, h01=0x0050, text=» CF A14,UNP400 BUILD INPUT FIELD TABLE «, t00=0x001c, t01=0x00ce}
0x02cd6…02d26 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x001c, t01=0x011e}
0x02d26…02d4e Head {h00=0x0024, h01=0x0050, text=» LD* A2,FLDTAB,A4 WAS IT A MASK?«, t00=0x001c, t01=0x016e}
0x02d4e…02d80 Head {h00=0x002e, h01=0x0050, text=» RF(Z) UNP090 NO, IT'S A TEST OR SOMETHING«, t00=0x001d, t01=0x0008}
0x02d80…02db0 Head {h00=0x002c, h01=0x0050, text=» LD A2,WORK2,A4 IS IT AN ERROR MESSAGE? «, t00=0x001d, t01=0x003a}
0x02db0…02dd8 Head {h00=0x0024, h01=0x0050, text=» RF(N) UNP090 YES, SKIP THE REST«, t00=0x001d, t01=0x006a}
0x02dd8…02e28 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x001d, t01=0x0092}
0x02e28…02e78 Head {h00=0x004c, h01=0x0050, text=» CF A14,UNP500 COPY INPUT FIELDS TO DC OUTPUT «, t00=0x001d, t01=0x00e2}
0x02e78…02ec8 Head {h00=0x004c, h01=0x0050, text=» BUFFER, FILL IN LENGTH «, t00=0x001d, t01=0x0132}
0x02ec8…02ee2 Head {h00=0x0016, h01=0x0050, text=» RF UNP090 RETURN «, t00=0x001d, t01=0x0182}
0x02ee2…02f32 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x001e, t01=0x000c}
0x02f32…02f82 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x001e, t01=0x005c}
0x02f82…02f96 Head {h00=0x0010, h01=0x0050, text=»UNP060 EQU *«, t00=0x001e, t01=0x00ac}
0x02f96…02fc4 Head {h00=0x002a, h01=0x0050, text=» CF A14,UNP600 FILL IN TICKET / FORM. «, t00=0x001e, t01=0x00c0}
0x02fc4…03014 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x001e, t01=0x00ee}
0x03014…03064 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x001e, t01=0x013e}
0x03064…0308e Head {h00=0x0026, h01=0x0050, text=» CF A14,UNP700 PRINT TICKET / FORM«, t00=0x001e, t01=0x018e}
0x0308e…0309a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001f, t01=0x0028}
0x0309a…030cc Head {h00=0x002e, h01=0x0050, text=» CF A14,UNP800 ACKNOWLEDGE PRINT OPERATION«, t00=0x001f, t01=0x0034}
0x030cc…030e0 Head {h00=0x0010, h01=0x0050, text=» RF UNP090 «, t00=0x001f, t01=0x0066}
0x030e0…030ec Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001f, t01=0x007a}
0x030ec…03100 Head {h00=0x0010, h01=0x0050, text=»FLASH EQU * «, t00=0x001f, t01=0x0086}
0x03100…03124 Head {h00=0x0020, h01=0x0050, text=» CF A14,KBFLSH FLASH COMMAND«, t00=0x001f, t01=0x009a}
0x03124…03174 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x001f, t01=0x00be}
0x03174…031c4 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x001f, t01=0x010e}
0x031c4…031d8 Head {h00=0x0010, h01=0x0050, text=»UNP090 EQU *«, t00=0x001f, t01=0x015e}
0x031d8…03228 Head {h00=0x004c, h01=0x0050, text=» ABL I:RT1 RETURN TO CREDIT CODING «, t00=0x001f, t01=0x0172}
0x03228…0323e Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0032}
0x0323e…0328e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0020, t01=0x0048}
0x0328e…032de Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0020, t01=0x0098}
0x032de…0332e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0020, t01=0x00e8}
0x0332e…0337e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0020, t01=0x0138}
0x0337e…033ce Head {h00=0x004c, h01=0x0050, text=»* UNP100 *«, t00=0x0020, t01=0x0188}
0x033ce…0341e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0021, t01=0x0048}
0x0341e…0346e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0021, t01=0x0098}
0x0346e…034be Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0021, t01=0x00e8}
0x034be…0350e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0021, t01=0x0138}
0x0350e…03522 Head {h00=0x0010, h01=0x0050, text=»UNP100 EQU *«, t00=0x0021, t01=0x0188}
0x03522…03572 Head {h00=0x004c, h01=0x0050, text=» CF A14,I:EVA0 GET POINTER TO WORK AREA «, t00=0x0022, t01=0x000c}
0x03572…035c2 Head {h00=0x004c, h01=0x0050, text=» LDR A4,A9 PUT IT IN A4 AS BASE REGISTER «, t00=0x0022, t01=0x005c}
0x035c2…03612 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0022, t01=0x00ac}
0x03612…03662 Head {h00=0x004c, h01=0x0050, text=» CF A14,I:EVA0 GET INPUT BUFFER ADDRESS «, t00=0x0022, t01=0x00fc}
0x03662…036b2 Head {h00=0x004c, h01=0x0050, text=» ST A9,INBUF,A4 PUT IT IN WORK AREA «, t00=0x0022, t01=0x014c}
0x036b2…03702 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0023, t01=0x000c}
0x03702…03752 Head {h00=0x004c, h01=0x0050, text=» CF A14,I:EVA0 GET BUFFER LENGTH ADDRESS «, t00=0x0023, t01=0x005c}
0x03752…03772 Head {h00=0x001c, h01=0x0050, text=» LD A5,0,A9 GET LENGTH «, t00=0x0023, t01=0x00ac}
0x03772…037c2 Head {h00=0x004c, h01=0x0050, text=» ST A5,INLEN,A4 PUT IT IN WORK AREA «, t00=0x0023, t01=0x00cc}
0x037c2…03812 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0023, t01=0x011c}
0x03812…03862 Head {h00=0x004c, h01=0x0050, text=» CF A14,I:EVA0 GET OUTPUT BUFFER ADDRESS «, t00=0x0023, t01=0x016c}
0x03862…038b2 Head {h00=0x004c, h01=0x0050, text=» ST A9,OUTBUF,A4 PUT IT IN WORK AREA «, t00=0x0024, t01=0x002c}
0x038b2…03902 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0024, t01=0x007c}
0x03902…03952 Head {h00=0x004c, h01=0x0050, text=» CF A14,I:EVA0 GET OUTPUT BUFFER LENGTH ADDR. «, t00=0x0024, t01=0x00cc}
0x03952…03972 Head {h00=0x001c, h01=0x0050, text=» ST A9,OUTLEN,A4 LEGNTH «, t00=0x0024, t01=0x011c}
0x03972…039c2 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0024, t01=0x013c}
0x039c2…03a12 Head {h00=0x004c, h01=0x0050, text=» CF A14,I:EVA0 GET INPUT FIELD TABLE ADDRESS «, t00=0x0024, t01=0x018c}
0x03a12…03a62 Head {h00=0x004c, h01=0x0050, text=» ST A9,FLDTAB,A4 PUT IT IN WORK AREA «, t00=0x0025, t01=0x004c}
0x03a62…03ab2 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0025, t01=0x009c}
0x03ab2…03b02 Head {h00=0x004c, h01=0x0050, text=» CF A14,T:FDSP GET DISPLAY ECB ADDRESS «, t00=0x0025, t01=0x00ec}
0x03b02…03b52 Head {h00=0x004c, h01=0x0050, text=» ST A8,DYECB,A4 PUT IT IN WORK AREA «, t00=0x0025, t01=0x013c}
0x03b52…03ba2 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0025, t01=0x018c}
0x03ba2…03bf2 Head {h00=0x004c, h01=0x0050, text=» CF A14,T:FDSP GET PRINTER ECB ADDRESS «, t00=0x0026, t01=0x004c}
0x03bf2…03c42 Head {h00=0x004c, h01=0x0050, text=» ST A8,GPECB,A4 PUT IT THERE ALSO «, t00=0x0026, t01=0x009c}
0x03c42…03c68 Head {h00=0x0022, h01=0x0050, text=» CF A14,I:EVA0 GET PRINT FLAG «, t00=0x0026, t01=0x00ec}
0x03c68…03c94 Head {h00=0x0028, h01=0x0050, text=» ST A9,PRINT,A4 PUT IT IN WORK AREA «, t00=0x0026, t01=0x0112}
0x03c94…03cc4 Head {h00=0x002c, h01=0x0050, text=» CF A14,T:FDSP GET DATA-COMM ECB ADDRESS«, t00=0x0026, t01=0x013e}
0x03cc4…03cf0 Head {h00=0x0028, h01=0x0050, text=» ST A8,DCECB,A4 PUT IT IN WORK AREA «, t00=0x0026, t01=0x016e}
0x03cf0…03d1a Head {h00=0x0026, h01=0x0050, text=» CF A14,I:EVA0 GET ACK/NAK BUFFER «, t00=0x0027, t01=0x000a}
0x03d1a…03d3a Head {h00=0x001c, h01=0x0050, text=» ST A9,2,A8 SAVE IN ECB «, t00=0x0027, t01=0x0034}
0x03d3a…03d8a Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0027, t01=0x0054}
0x03d8a…03d9c Head {h00=0x000e, h01=0x0050, text=» RTN A14 «, t00=0x0027, t01=0x00a4}
0x03d9c…03db2 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x00b6}
0x03db2…03e02 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0027, t01=0x00cc}
0x03e02…03e52 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0027, t01=0x011c}
0x03e52…03ea2 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0027, t01=0x016c}
0x03ea2…03ef2 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0028, t01=0x002c}
0x03ef2…03f42 Head {h00=0x004c, h01=0x0050, text=»* UNP200 *«, t00=0x0028, t01=0x007c}
0x03f42…03f92 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0028, t01=0x00cc}
0x03f92…03fe2 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0028, t01=0x011c}
0x03fe2…04032 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0028, t01=0x016c}
0x04032…04082 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0029, t01=0x002c}
0x04082…04096 Head {h00=0x0010, h01=0x0050, text=»UNP200 EQU *«, t00=0x0029, t01=0x007c}
0x04096…040c4 Head {h00=0x002a, h01=0x0050, text=» LDK A1,1 SET LINE POS. COUNTER TO ONE«, t00=0x0029, t01=0x0090}
0x040c4…040fe Head {h00=0x0036, h01=0x0050, text=» LDKL A9,/0100 SET THE LINE COUNTER TO FIRST LINE «, t00=0x0029, t01=0x00be}
0x040fe…04130 Head {h00=0x002e, h01=0x0050, text=» LDKL A10,CURSAV GET SAVE AREA FOR CURSORS«, t00=0x0029, t01=0x00f8}
0x04130…04150 Head {h00=0x001c, h01=0x0050, text=» ADR A10,A4 ADD THE BASE«, t00=0x0029, t01=0x012a}
0x04150…041a0 Head {h00=0x004c, h01=0x0050, text=» LD A3,INBUF,A4 GET ADDRESSES OF BUFFERS AND «, t00=0x0029, t01=0x014a}
0x041a0…041c2 Head {h00=0x001e, h01=0x0050, text=» LDKL A5,300 FIXED LENGTH «, t00=0x002a, t01=0x000a}
0x041c2…04212 Head {h00=0x004c, h01=0x0050, text=» LD A8,DYECB,A4 «, t00=0x002a, t01=0x002c}
0x04212…04262 Head {h00=0x004c, h01=0x0050, text=» LD A6,ECBBA,A8 «, t00=0x002a, t01=0x007c}
0x04262…04288 Head {h00=0x0022, h01=0x0050, text=» LDR A1,A6 TEST FOR BUFFER END«, t00=0x002a, t01=0x00cc}
0x04288…0429e Head {h00=0x0012, h01=0x0050, text=» ADKL A1,300 «, t00=0x002a, t01=0x00f2}
0x0429e…042c6 Head {h00=0x0024, h01=0x0050, text=» LDK A2,SPACE BLANKING CHARACTER«, t00=0x002a, t01=0x0108}
0x042c6…042dc Head {h00=0x0012, h01=0x0050, text=»UNP202 EQU * «, t00=0x002a, t01=0x0130}
0x042dc…0430a Head {h00=0x002a, h01=0x0050, text=» SCR A2,A6 BLANK A CHAR. IN DY BUFFER «, t00=0x002a, t01=0x0146}
0x0430a…0432c Head {h00=0x001e, h01=0x0050, text=» ADK A6,1 MOVE THE POINTER«, t00=0x002a, t01=0x0174}
0x0432c…04350 Head {h00=0x0020, h01=0x0050, text=» CWR A6,A1 END OF BUFFER ? «, t00=0x002b, t01=0x0008}
0x04350…04374 Head {h00=0x0020, h01=0x0050, text=» RF(G) UNP204 YES, FINISHED «, t00=0x002b, t01=0x002c}
0x04374…04394 Head {h00=0x001c, h01=0x0050, text=» RB UNP202 NO, CONTINUE «, t00=0x002b, t01=0x0050}
0x04394…043aa Head {h00=0x0012, h01=0x0050, text=»UNP204 EQU * «, t00=0x002b, t01=0x0070}
0x043aa…043d8 Head {h00=0x002a, h01=0x0050, text=» LD A6,ECBBA,A8 RESTORE BUFFER ADDR. «, t00=0x002b, t01=0x0086}
0x043d8…04408 Head {h00=0x002c, h01=0x0050, text=» LDK A1,1 SET LINE POS. COUNTER TO ONE «, t00=0x002b, t01=0x00b4}
0x04408…04432 Head {h00=0x0026, h01=0x0050, text=» ADK A6,1 OFF-SET FOR CURSOR HOME «, t00=0x002b, t01=0x00e4}
0x04432…04482 Head {h00=0x004c, h01=0x0050, text=» LDK A7,0 NUMBER OF CHARACTERS PROCESSED «, t00=0x002b, t01=0x010e}
0x04482…044ac Head {h00=0x0026, h01=0x0050, text=» CM WORK1,A4 CLEAR OLD PRINT FLAG «, t00=0x002b, t01=0x015e}
0x044ac…044fc Head {h00=0x004c, h01=0x0050, text=»UNP205 EQU * «, t00=0x002b, t01=0x0188}
0x044fc…0454c Head {h00=0x004c, h01=0x0050, text=» LCR A2,A3 CHECK CHARS. TO BE REMOVED OR «, t00=0x002c, t01=0x0048}
0x0454c…0459c Head {h00=0x004c, h01=0x0050, text=» CCK A2,NULL CONVERTED «, t00=0x002c, t01=0x0098}
0x0459c…045ec Head {h00=0x004c, h01=0x0050, text=» RF(E) UNP235 NULL. «, t00=0x002c, t01=0x00e8}
0x045ec…04602 Head {h00=0x0012, h01=0x0050, text=» CCK A2,DKOE1 «, t00=0x002c, t01=0x0138}
0x04602…04618 Head {h00=0x0012, h01=0x0050, text=» RF(E) UNP236 «, t00=0x002c, t01=0x014e}
0x04618…0462e Head {h00=0x0012, h01=0x0050, text=» CCK A2,DKAE1 «, t00=0x002c, t01=0x0164}
0x0462e…04644 Head {h00=0x0012, h01=0x0050, text=» RF(E) UNP237 «, t00=0x002c, t01=0x017a}
0x04644…0465a Head {h00=0x0012, h01=0x0050, text=» CCK A2,DKAA1 «, t00=0x002c, t01=0x0190}
0x0465a…04670 Head {h00=0x0012, h01=0x0050, text=» RF(E) UNP238 «, t00=0x002d, t01=0x0016}
0x04670…04686 Head {h00=0x0012, h01=0x0050, text=» CCK A2,CHRFD1«, t00=0x002d, t01=0x002c}
0x04686…0469c Head {h00=0x0012, h01=0x0050, text=» RF(E) UNP239 «, t00=0x002d, t01=0x0042}
0x0469c…046ec Head {h00=0x004c, h01=0x0050, text=» CCK A2,SI «, t00=0x002d, t01=0x0058}
0x046ec…0473c Head {h00=0x004c, h01=0x0050, text=» RF(E) UNP240 SHIFT IN «, t00=0x002d, t01=0x00a8}
0x0473c…0478c Head {h00=0x004c, h01=0x0050, text=» CCK A2,SO «, t00=0x002d, t01=0x00f8}
0x0478c…047dc Head {h00=0x004c, h01=0x0050, text=» RF(E) UNP245 SHIFT OUT «, t00=0x002d, t01=0x0148}
0x047dc…0482c Head {h00=0x004c, h01=0x0050, text=» «, t00=0x002e, t01=0x0008}
0x0482c…0487c Head {h00=0x004c, h01=0x0050, text=»UNP210 EQU * «, t00=0x002e, t01=0x0058}
0x0487c…048cc Head {h00=0x004c, h01=0x0050, text=» CCK A2,CR CHECK CONTROL CHARACTERS «, t00=0x002e, t01=0x00a8}
0x048cc…0491c Head {h00=0x004c, h01=0x0050, text=» RF(E) UNP225 CARRIAGE RETURN «, t00=0x002e, t01=0x00f8}
0x0491c…0496c Head {h00=0x004c, h01=0x0050, text=» CCK A2,LF «, t00=0x002e, t01=0x0148}
0x0496c…049bc Head {h00=0x004c, h01=0x0050, text=» RF(E) UNP230 LINE FEED «, t00=0x002f, t01=0x0008}
0x049bc…049e8 Head {h00=0x0028, h01=0x0050, text=» CCK A2,PRTCHR SEE IF IT'S A TICKET «, t00=0x002f, t01=0x0058}
0x049e8…04a10 Head {h00=0x0024, h01=0x0050, text=» RF(E) UNP234 YES, SET INDICATOR«, t00=0x002f, t01=0x0084}
0x04a10…04a60 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x002f, t01=0x00ac}
0x04a60…04ab0 Head {h00=0x004c, h01=0x0050, text=»UNP215 EQU * «, t00=0x002f, t01=0x00fc}
0x04ab0…04b00 Head {h00=0x004c, h01=0x0050, text=» SCR A2,A6 PUT CHAR. IN DY BUFFER «, t00=0x002f, t01=0x014c}
0x04b00…04b50 Head {h00=0x004c, h01=0x0050, text=» ADK A6,1 UPDATE POINTERS «, t00=0x0030, t01=0x000c}
0x04b50…04ba0 Head {h00=0x004c, h01=0x0050, text=» ADK A1,1 «, t00=0x0030, t01=0x005c}
0x04ba0…04bf0 Head {h00=0x004c, h01=0x0050, text=» SUK A1,41 CHECK FOR END OF LINE «, t00=0x0030, t01=0x00ac}
0x04bf0…04c40 Head {h00=0x004c, h01=0x0050, text=» RF(N) UNP220 NOT END OF LINE «, t00=0x0030, t01=0x00fc}
0x04c40…04c68 Head {h00=0x0024, h01=0x0050, text=» ADKL A9,/0100 UPDATE LINE COUNT«, t00=0x0030, t01=0x014c}
0x04c68…04c8a Head {h00=0x001e, h01=0x0050, text=» CWK A9,/0600 LINE SEVEN ?«, t00=0x0030, t01=0x0174}
0x04c8a…04cae Head {h00=0x0020, h01=0x0050, text=» RF(G) UNP290 YES, FINISHED «, t00=0x0031, t01=0x0008}
0x04cae…04cfe Head {h00=0x004c, h01=0x0050, text=» LDKL A2,CRLF END OF LINE, INSERT LINE FEED «, t00=0x0031, t01=0x002c}
0x04cfe…04d4e Head {h00=0x004c, h01=0x0050, text=» SCR A2,A6 AND CARRIAGE RETURN «, t00=0x0031, t01=0x007c}
0x04d4e…04d9e Head {h00=0x004c, h01=0x0050, text=» ADK A6,1 «, t00=0x0031, t01=0x00cc}
0x04d9e…04dee Head {h00=0x004c, h01=0x0050, text=» SRL A2,8 «, t00=0x0031, t01=0x011c}
0x04dee…04e3e Head {h00=0x004c, h01=0x0050, text=» SCR A2,A6 «, t00=0x0031, t01=0x016c}
0x04e3e…04e8e Head {h00=0x004c, h01=0x0050, text=» ADK A6,1 UPDATE POINTERS «, t00=0x0032, t01=0x002c}
0x04e8e…04ede Head {h00=0x004c, h01=0x0050, text=» LDK A1,1 «, t00=0x0032, t01=0x007c}
0x04ede…04f2e Head {h00=0x004c, h01=0x0050, text=» RF UNP250 CHECK END OF PROCESSING «, t00=0x0032, t01=0x00cc}
0x04f2e…04f7e Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0032, t01=0x011c}
0x04f7e…04fce Head {h00=0x004c, h01=0x0050, text=»UNP220 EQU * «, t00=0x0032, t01=0x016c}
0x04fce…0501e Head {h00=0x004c, h01=0x0050, text=» ADK A1,41 RESTORE POINTER VALUE «, t00=0x0033, t01=0x002c}
0x0501e…0506e Head {h00=0x004c, h01=0x0050, text=» RF UNP250 CHECK END OF PROCESSING «, t00=0x0033, t01=0x007c}
0x0506e…050be Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0033, t01=0x00cc}
0x050be…0510e Head {h00=0x004c, h01=0x0050, text=»UNP225 EQU * «, t00=0x0033, t01=0x011c}
0x0510e…0515e Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0033, t01=0x016c}
0x0515e…051ae Head {h00=0x004c, h01=0x0050, text=»UNP230 EQU * «, t00=0x0034, t01=0x002c}
0x051ae…051da Head {h00=0x0028, h01=0x0050, text=» LDK A1,0 LINE FEED IN BUFFER RESET «, t00=0x0034, t01=0x007c}
0x051da…051fc Head {h00=0x001e, h01=0x0050, text=» ADKL A9,/0100 ADD A LINE «, t00=0x0034, t01=0x00a8}
0x051fc…05222 Head {h00=0x0022, h01=0x0050, text=» LDKL A2,CRLF IT'S A NEW LINE «, t00=0x0034, t01=0x00ca}
0x05222…05246 Head {h00=0x0020, h01=0x0050, text=» SCR A2,A6 STORE IT IN OUTUT«, t00=0x0034, t01=0x00f0}
0x05246…05258 Head {h00=0x000e, h01=0x0050, text=» SRL A2,8 «, t00=0x0034, t01=0x0114}
0x05258…05278 Head {h00=0x001c, h01=0x0050, text=» ADK A6,1 ADJUST POINTER«, t00=0x0034, t01=0x0126}
0x05278…05294 Head {h00=0x0018, h01=0x0050, text=» RB UNP215 FINISH IT«, t00=0x0034, t01=0x0146}
0x05294…052aa Head {h00=0x0012, h01=0x0050, text=»UNP234 EQU * «, t00=0x0034, t01=0x0162}
0x052aa…052d4 Head {h00=0x0026, h01=0x0050, text=» ST A2,WORK1,A4 SOMETHING TO PRINT«, t00=0x0034, t01=0x0178}
0x052d4…052e8 Head {h00=0x0010, h01=0x0050, text=» RB UNP215 «, t00=0x0035, t01=0x0012}
0x052e8…05338 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0035, t01=0x0026}
0x05338…05388 Head {h00=0x004c, h01=0x0050, text=»UNP235 EQU * «, t00=0x0035, t01=0x0076}
0x05388…053d8 Head {h00=0x004c, h01=0x0050, text=» LDK A2,POINT NULL CHAR. REPLACE WITH POINT «, t00=0x0035, t01=0x00c6}
0x053d8…05428 Head {h00=0x004c, h01=0x0050, text=» RB UNP215 «, t00=0x0035, t01=0x0116}
0x05428…0543c Head {h00=0x0010, h01=0x0050, text=»UNP236 EQU *«, t00=0x0035, t01=0x0166}
0x0543c…05452 Head {h00=0x0012, h01=0x0050, text=» LDK A2,DKOE2 «, t00=0x0035, t01=0x017a}
0x05452…05464 Head {h00=0x000e, h01=0x0050, text=» RB UNP215«, t00=0x0035, t01=0x0190}
0x05464…05478 Head {h00=0x0010, h01=0x0050, text=»UNP237 EQU *«, t00=0x0036, t01=0x0012}
0x05478…0548e Head {h00=0x0012, h01=0x0050, text=» LDK A2,DKAE2 «, t00=0x0036, t01=0x0026}
0x0548e…054a0 Head {h00=0x000e, h01=0x0050, text=» RB UNP215«, t00=0x0036, t01=0x003c}
0x054a0…054b4 Head {h00=0x0010, h01=0x0050, text=»UNP238 EQU *«, t00=0x0036, t01=0x004e}
0x054b4…054ca Head {h00=0x0012, h01=0x0050, text=» LDK A2,DKAA2 «, t00=0x0036, t01=0x0062}
0x054ca…054dc Head {h00=0x000e, h01=0x0050, text=» RB UNP215«, t00=0x0036, t01=0x0078}
0x054dc…054f0 Head {h00=0x0010, h01=0x0050, text=»UNP239 EQU *«, t00=0x0036, t01=0x008a}
0x054f0…05506 Head {h00=0x0012, h01=0x0050, text=» LDK A2,CHRFD2«, t00=0x0036, t01=0x009e}
0x05506…05518 Head {h00=0x000e, h01=0x0050, text=» RB UNP215«, t00=0x0036, t01=0x00b4}
0x05518…05568 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0036, t01=0x00c6}
0x05568…055b8 Head {h00=0x004c, h01=0x0050, text=»UNP240 EQU * «, t00=0x0036, t01=0x0116}
0x055b8…055e0 Head {h00=0x0024, h01=0x0050, text=» ORR A9,A1 BUILD CURSOR POSITION«, t00=0x0036, t01=0x0166}
0x055e0…05608 Head {h00=0x0024, h01=0x0050, text=» ST A9,2,A10 PUT IT IN SAVE AREA«, t00=0x0036, t01=0x018e}
0x05608…05636 Head {h00=0x002a, h01=0x0050, text=» ADKL A10,2 MOVE POINTER TO NEXT ENTRY«, t00=0x0037, t01=0x0026}
0x05636…05668 Head {h00=0x002e, h01=0x0050, text=» ANKL A9,/FF00 CLEAR LINE POS. FOR COUNTER«, t00=0x0037, t01=0x0054}
0x05668…056b8 Head {h00=0x004c, h01=0x0050, text=»UNP245 EQU * «, t00=0x0037, t01=0x0086}
0x056b8…056e2 Head {h00=0x0026, h01=0x0050, text=»* "SI" OR "SO", SKIP 'EM «, t00=0x0037, t01=0x00d6}
0x056e2…05732 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0037, t01=0x0100}
0x05732…05782 Head {h00=0x004c, h01=0x0050, text=»UNP250 EQU * «, t00=0x0037, t01=0x0150}
0x05782…057d2 Head {h00=0x004c, h01=0x0050, text=» ADK A3,1 UPDATE INPUT POINTER «, t00=0x0038, t01=0x0010}
0x057d2…05822 Head {h00=0x004c, h01=0x0050, text=» ADK A7,1 CHECK IF END OF INPUT «, t00=0x0038, t01=0x0060}
0x05822…05872 Head {h00=0x004c, h01=0x0050, text=» SUR A7,A5 BUFFER «, t00=0x0038, t01=0x00b0}
0x05872…05898 Head {h00=0x0022, h01=0x0050, text=» RF(NN) UNP285 END OF PROCESS «, t00=0x0038, t01=0x0100}
0x05898…058e8 Head {h00=0x004c, h01=0x0050, text=» ADR A7,A5 NOT ENDED, RESTORE VALUE «, t00=0x0038, t01=0x0126}
0x058e8…05938 Head {h00=0x004c, h01=0x0050, text=» RB UNP205 GET NEXT CHARACTER «, t00=0x0038, t01=0x0176}
0x05938…0594e Head {h00=0x0012, h01=0x0050, text=»UNP285 EQU * «, t00=0x0039, t01=0x0036}
0x0594e…05974 Head {h00=0x0022, h01=0x0050, text=» SUK A3,1 GO BACK ONE POSITION«, t00=0x0039, t01=0x004c}
0x05974…059a4 Head {h00=0x002c, h01=0x0050, text=» LCR A2,A3 GET LAST CHARACTER IN BUFFER «, t00=0x0039, t01=0x0072}
0x059a4…059ce Head {h00=0x0026, h01=0x0050, text=» CCK A2,PRTCHR SOMETHING TO PRINT?«, t00=0x0039, t01=0x00a2}
0x059ce…059f0 Head {h00=0x001e, h01=0x0050, text=» RF(NE) UNP290 NO, RETURN «, t00=0x0039, t01=0x00cc}
0x059f0…05a1e Head {h00=0x002a, h01=0x0050, text=» ST A2,WORK1,A4 SET PRINT FLAG = X'3A'«, t00=0x0039, t01=0x00ee}
0x05a1e…05a6e Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0039, t01=0x011c}
0x05a6e…05a84 Head {h00=0x0012, h01=0x0050, text=»UNP290 EQU * «, t00=0x0039, t01=0x016c}
0x05a84…05abc Head {h00=0x0034, h01=0x0050, text=» LDKL A9,CURSAV PUT THE NUMBER OF INPUT FIELDS «, t00=0x0039, t01=0x0182}
0x05abc…05ae0 Head {h00=0x0020, h01=0x0050, text=» ADR A9,A4 IN THE SAVE AREA «, t00=0x003a, t01=0x002a}
0x05ae0…05af4 Head {h00=0x0010, h01=0x0050, text=» SUR A10,A9 «, t00=0x003a, t01=0x004e}
0x05af4…05b2c Head {h00=0x0034, h01=0x0050, text=» ST A10,CURSAV,A4 SAVE IT,(2X NUMBER OF FIELDS) «, t00=0x003a, t01=0x0062}
0x05b2c…05b50 Head {h00=0x0020, h01=0x0050, text=» RTN A14 RETURN TO CALLER.. «, t00=0x003a, t01=0x009a}
0x05b50…05b66 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x00be}
0x05b66…05bb6 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x003a, t01=0x00d4}
0x05bb6…05c06 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x003a, t01=0x0124}
0x05c06…05c56 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x003a, t01=0x0174}
0x05c56…05ca6 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x003b, t01=0x0034}
0x05ca6…05cf6 Head {h00=0x004c, h01=0x0050, text=»* UNP300 *«, t00=0x003b, t01=0x0084}
0x05cf6…05d46 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x003b, t01=0x00d4}
0x05d46…05d96 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x003b, t01=0x0124}
0x05d96…05de6 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x003b, t01=0x0174}
0x05de6…05e36 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x003c, t01=0x0034}
0x05e36…05e4a Head {h00=0x0010, h01=0x0050, text=»UNP300 EQU *«, t00=0x003c, t01=0x0084}
0x05e4a…05e78 Head {h00=0x002a, h01=0x0050, text=» LD A8,DYECB,A4 GET ECB ADDRESS IN A8 «, t00=0x003c, t01=0x0098}
0x05e78…05ea6 Head {h00=0x002a, h01=0x0050, text=» LD A1,ECBBA,A8 COMPUTE BUFFER LENGTH «, t00=0x003c, t01=0x00c6}
0x05ea6…05ed4 Head {h00=0x002a, h01=0x0050, text=» LDK A2,CURHOM AND INSERT CURSOR HOME.«, t00=0x003c, t01=0x00f4}
0x05ed4…05ee8 Head {h00=0x0010, h01=0x0050, text=» SCR A2,A1 «, t00=0x003c, t01=0x0122}
0x05ee8…05efc Head {h00=0x0010, h01=0x0050, text=» SUR A6,A1 «, t00=0x003c, t01=0x0136}
0x05efc…05f30 Head {h00=0x0030, h01=0x0050, text=» LDKL A6,300 FIXED LENGTH TO DISPLAY 271181 «, t00=0x003c, t01=0x014a}
0x05f30…05f52 Head {h00=0x001e, h01=0x0050, text=» ST A6,ECBRL,A8 PUT IN ECB«, t00=0x003c, t01=0x017e}
0x05f52…05f7a Head {h00=0x0024, h01=0x0050, text=» LDK A7,BASWRT GET ORDER IN A7 «, t00=0x003d, t01=0x0010}
0x05f7a…05f84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0038}
0x05f84…05f8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0042}
0x05f8e…05fa8 Head {h00=0x0016, h01=0x0050, text=» LKM EXECUTE I-O «, t00=0x003d, t01=0x004c}
0x05fa8…05fba Head {h00=0x000e, h01=0x0050, text=» DATA 1 «, t00=0x003d, t01=0x0066}
0x05fba…05fcc Head {h00=0x000e, h01=0x0050, text=» RTN A14 «, t00=0x003d, t01=0x0078}
0x05fcc…05fe2 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x008a}
0x05fe2…06032 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x003d, t01=0x00a0}
0x06032…06082 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x003d, t01=0x00f0}
0x06082…060d2 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x003d, t01=0x0140}
0x060d2…06122 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x003d, t01=0x0190}
0x06122…06172 Head {h00=0x004c, h01=0x0050, text=»* UNP400 *«, t00=0x003e, t01=0x0050}
0x06172…061c2 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x003e, t01=0x00a0}
0x061c2…06212 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x003e, t01=0x00f0}
0x06212…06262 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x003e, t01=0x0140}
0x06262…062b2 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x003e, t01=0x0190}
0x062b2…062c6 Head {h00=0x0010, h01=0x0050, text=»UNP400 EQU *«, t00=0x003f, t01=0x0050}
0x062c6…062f2 Head {h00=0x0028, h01=0x0050, text=» CM WORK2,A4 CLEAR ERROR MESS. FLAG «, t00=0x003f, t01=0x0064}
0x062f2…0631e Head {h00=0x0028, h01=0x0050, text=» LC* A1,INBUF,A4 SEE IF IT'S A MASK «, t00=0x003f, t01=0x0090}
0x0631e…06336 Head {h00=0x0014, h01=0x0050, text=» ANKL A1,/00FF «, t00=0x003f, t01=0x00bc}
0x06336…0634a Head {h00=0x0010, h01=0x0050, text=» CCK A1,LF «, t00=0x003f, t01=0x00d4}
0x0634a…0636a Head {h00=0x001c, h01=0x0050, text=» RF(E) UNP410 NOT A MASK«, t00=0x003f, t01=0x00e8}
0x0636a…0637e Head {h00=0x0010, h01=0x0050, text=» CCK A1,SI «, t00=0x003f, t01=0x0108}
0x0637e…063a0 Head {h00=0x001e, h01=0x0050, text=» RF(E) UNP410 NOT A MASK «, t00=0x003f, t01=0x011c}
0x063a0…063a8 Head {h00=0x0004, h01=0x0050, t00=0x003f, t01=0x013e}
0x063a8…063d0 Head {h00=0x0024, h01=0x0050, text=» LD A3,INBUF,A4 GET KEY TO MASKS«, t00=0x003f, t01=0x0146}
0x063d0…063f2 Head {h00=0x001e, h01=0x0050, text=» ADK A3,5 FIRST CHARACTER «, t00=0x003f, t01=0x016e}
0x063f2…0640c Head {h00=0x0016, h01=0x0050, text=» LCR A1,A3 GET IT «, t00=0x003f, t01=0x0190}
0x0640c…0642c Head {h00=0x001c, h01=0x0050, text=» ANKL A1,/00FF CLEAN IT «, t00=0x0040, t01=0x001a}
0x0642c…0644a Head {h00=0x001a, h01=0x0050, text=» ADK A3,1 GET NEXT ONE«, t00=0x0040, t01=0x003a}
0x0644a…0645e Head {h00=0x0010, h01=0x0050, text=» LCR A2,A3 «, t00=0x0040, t01=0x0058}
0x0645e…06476 Head {h00=0x0014, h01=0x0050, text=» ANKL A2,/00FF «, t00=0x0040, t01=0x006c}
0x06476…06492 Head {h00=0x0018, h01=0x0050, text=» SLL A1,8 MAKE ROOM «, t00=0x0040, t01=0x0084}
0x06492…064b0 Head {h00=0x001a, h01=0x0050, text=» ORR A1,A2 MERGE THEM «, t00=0x0040, t01=0x00a0}
0x064b0…064ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00be}
0x064ba…064e6 Head {h00=0x0028, h01=0x0050, text=» CF A14,SRCHTB GO LOOK FOR THE MASK «, t00=0x0040, t01=0x00c8}
0x064e6…064f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00f4}
0x064f0…06516 Head {h00=0x0022, h01=0x0050, text=» LDR A2,A2 CHECK RETURN VALUE «, t00=0x0040, t01=0x00fe}
0x06516…0653a Head {h00=0x0020, h01=0x0050, text=» RF(Z) UNP415 NO MASK FOUND «, t00=0x0040, t01=0x0124}
0x0653a…06544 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0148}
0x06544…06578 Head {h00=0x0030, h01=0x0050, text=» CF A14,MOVMSK MASK FOUND, MOVE IT TO FLDTAB«, t00=0x0040, t01=0x0152}
0x06578…065aa Head {h00=0x002e, h01=0x0050, text=» CF A14,FILCUR FILL IN CURSOR POSITIONS. «, t00=0x0040, t01=0x0186}
0x065aa…065be Head {h00=0x0010, h01=0x0050, text=» RF UNP412 «, t00=0x0041, t01=0x0028}
0x065be…065c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x003c}
0x065c8…065de Head {h00=0x0012, h01=0x0050, text=»UNP410 EQU * «, t00=0x0041, t01=0x0046}
0x065de…06602 Head {h00=0x0020, h01=0x0050, text=» LDKL A3,-1 INDICATE NO MASK«, t00=0x0041, t01=0x005c}
0x06602…0661a Head {h00=0x0014, h01=0x0050, text=» ST A3,WORK2,A4 «, t00=0x0041, t01=0x0080}
0x0661a…06630 Head {h00=0x0012, h01=0x0050, text=»UNP412 EQU * «, t00=0x0041, t01=0x0098}
0x06630…06652 Head {h00=0x001e, h01=0x0050, text=» RTN A14 RETURN TO CALLER «, t00=0x0041, t01=0x00ae}
0x06652…06668 Head {h00=0x0012, h01=0x0050, text=»UNP415 EQU * «, t00=0x0041, t01=0x00d0}
0x06668…06698 Head {h00=0x002c, h01=0x0050, text=» CM* FLDTAB,A4 INDICATE FLDTAB NOT VALID«, t00=0x0041, t01=0x00e6}
0x06698…066ac Head {h00=0x0010, h01=0x0050, text=» RB UNP412 «, t00=0x0041, t01=0x0116}
0x066ac…066be Head {h00=0x000e, h01=0x0050, text=» EJECT «, t00=0x0041, t01=0x012a}
0x066be…0670e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0041, t01=0x013c}
0x0670e…0675e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0041, t01=0x018c}
0x0675e…067ae Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0042, t01=0x004c}
0x067ae…067fe Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0042, t01=0x009c}
0x067fe…0684e Head {h00=0x004c, h01=0x0050, text=»* SRCHTB, ROUTINE TO FIND MASK IN MASK TABLE... *«, t00=0x0042, t01=0x00ec}
0x0684e…0689e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0042, t01=0x013c}
0x0689e…068ee Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0042, t01=0x018c}
0x068ee…0693e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0043, t01=0x004c}
0x0693e…0698e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0043, t01=0x009c}
0x0698e…069de Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0043, t01=0x00ec}
0x069de…06a2e Head {h00=0x004c, h01=0x0050, text=»* CALLING SEQUENCE: CF A14,SRCHTB *«, t00=0x0043, t01=0x013c}
0x06a2e…06a7e Head {h00=0x004c, h01=0x0050, text=»* A1 = KEY, (TWO CHARACTERS) *«, t00=0x0043, t01=0x018c}
0x06a7e…06ace Head {h00=0x004c, h01=0x0050, text=»* RETURNS: A2 = 0, NO MASK FOUND *«, t00=0x0044, t01=0x004c}
0x06ace…06b1e Head {h00=0x004c, h01=0x0050, text=»* A2 /= 0, ADDRESS TO MASK TABLE *«, t00=0x0044, t01=0x009c}
0x06b1e…06b6e Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0044, t01=0x00ec}
0x06b6e…06bbe Head {h00=0x004c, h01=0x0050, text=»SRCHTB EQU * «, t00=0x0044, t01=0x013c}
0x06bbe…06c0e Head {h00=0x004c, h01=0x0050, text=» LDK A2,0 PRE-SET RETURN VALUE «, t00=0x0044, t01=0x018c}
0x06c0e…06c5e Head {h00=0x004c, h01=0x0050, text=» LDKL A3,MSKTAB GET START OF TABLE «, t00=0x0045, t01=0x004c}
0x06c5e…06cae Head {h00=0x004c, h01=0x0050, text=»UNP460 EQU * «, t00=0x0045, t01=0x009c}
0x06cae…06cfe Head {h00=0x004c, h01=0x0050, text=» CWR* A1,A3 MATCH KEY «, t00=0x0045, t01=0x00ec}
0x06cfe…06d4e Head {h00=0x004c, h01=0x0050, text=» RF(E) UNP470 FOUND. «, t00=0x0045, t01=0x013c}
0x06d4e…06d9e Head {h00=0x004c, h01=0x0050, text=» ADK A3,4 CHECK NEXT «, t00=0x0045, t01=0x018c}
0x06d9e…06dee Head {h00=0x004c, h01=0x0050, text=» CWK A3,TABEND LAST? «, t00=0x0046, t01=0x004c}
0x06dee…06e3e Head {h00=0x004c, h01=0x0050, text=» RB(L) UNP460 NO, GO FURTHER «, t00=0x0046, t01=0x009c}
0x06e3e…06e8e Head {h00=0x004c, h01=0x0050, text=»UNP465 EQU * «, t00=0x0046, t01=0x00ec}
0x06e8e…06ede Head {h00=0x004c, h01=0x0050, text=» RTN A14 END, RETURN TO CALLER «, t00=0x0046, t01=0x013c}
0x06ede…06f2e Head {h00=0x004c, h01=0x0050, text=»UNP470 EQU * «, t00=0x0046, t01=0x018c}
0x06f2e…06f7e Head {h00=0x004c, h01=0x0050, text=» LD A2,2,A3 FOUND, GET TABLE ADDRESS IN A2 «, t00=0x0047, t01=0x004c}
0x06f7e…06fce Head {h00=0x004c, h01=0x0050, text=» RB UNP465 «, t00=0x0047, t01=0x009c}
0x06fce…06fe4 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x00ec}
0x06fe4…07034 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0047, t01=0x0102}
0x07034…07084 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0047, t01=0x0152}
0x07084…070d4 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0048, t01=0x0012}
0x070d4…07124 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0048, t01=0x0062}
0x07124…07174 Head {h00=0x004c, h01=0x0050, text=»* MOVMSK: ROUTINE TO MOVE A MASK TABLE TO "FLDTAB". *«, t00=0x0048, t01=0x00b2}
0x07174…071c4 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0048, t01=0x0102}
0x071c4…07214 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0048, t01=0x0152}
0x07214…07264 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0049, t01=0x0012}
0x07264…072b4 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0049, t01=0x0062}
0x072b4…07304 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0049, t01=0x00b2}
0x07304…07354 Head {h00=0x004c, h01=0x0050, text=»* CALLING SEQUENCE: CF A14,MOVMSK *«, t00=0x0049, t01=0x0102}
0x07354…073a4 Head {h00=0x004c, h01=0x0050, text=»* A2 = ADDRESS OF MASK TABLE *«, t00=0x0049, t01=0x0152}
0x073a4…073f4 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x004a, t01=0x0012}
0x073f4…07444 Head {h00=0x004c, h01=0x0050, text=»MOVMSK EQU * «, t00=0x004a, t01=0x0062}
0x07444…07494 Head {h00=0x004c, h01=0x0050, text=» LD A5,2,A2 GET TABLE END ADDRESS «, t00=0x004a, t01=0x00b2}
0x07494…074e4 Head {h00=0x004c, h01=0x0050, text=» LD A3,FLDTAB,A4 DESTINATION ADDRESS «, t00=0x004a, t01=0x0102}
0x074e4…07534 Head {h00=0x004c, h01=0x0050, text=»UNP480 EQU * «, t00=0x004a, t01=0x0152}
0x07534…07584 Head {h00=0x004c, h01=0x0050, text=» LDR* A1,A2 GET A WORD «, t00=0x004b, t01=0x0012}
0x07584…075d4 Head {h00=0x004c, h01=0x0050, text=» STR A1,A3 «, t00=0x004b, t01=0x0062}
0x075d4…07624 Head {h00=0x004c, h01=0x0050, text=» ADK A3,2 UPDATE POINTERS «, t00=0x004b, t01=0x00b2}
0x07624…07674 Head {h00=0x004c, h01=0x0050, text=» ADK A2,2 «, t00=0x004b, t01=0x0102}
0x07674…076c4 Head {h00=0x004c, h01=0x0050, text=» CWR A2,A5 FINISHED «, t00=0x004b, t01=0x0152}
0x076c4…07714 Head {h00=0x004c, h01=0x0050, text=» RB(L) UNP480 NO «, t00=0x004c, t01=0x0012}
0x07714…07764 Head {h00=0x004c, h01=0x0050, text=» RTN A14 FINISHED RETURN TO CALLER «, t00=0x004c, t01=0x0062}
0x07764…07770 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x004c, t01=0x00b2}
0x07770…0777c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x004c, t01=0x00be}
0x0777c…07790 Head {h00=0x0010, h01=0x0050, text=»FILCUR EQU *«, t00=0x004c, t01=0x00ca}
0x07790…077b4 Head {h00=0x0020, h01=0x0050, text=» LDK A5,1 ENTRY COUNTER = 1 «, t00=0x004c, t01=0x00de}
0x077b4…077e6 Head {h00=0x002e, h01=0x0050, text=» LD A3,FLDTAB,A4 GET START OF FIELD TABLE «, t00=0x004c, t01=0x0102}
0x077e6…0780c Head {h00=0x0022, h01=0x0050, text=» LDKL A2,CURSAV GET SAVE AREA «, t00=0x004c, t01=0x0134}
0x0780c…07822 Head {h00=0x0012, h01=0x0050, text=» ADR A2,A4 «, t00=0x004c, t01=0x015a}
0x07822…07852 Head {h00=0x002c, h01=0x0050, text=» LDR* A1,A2 GET NUMBER OF INPUT FIELDS «, t00=0x004c, t01=0x0170}
0x07852…07872 Head {h00=0x001c, h01=0x0050, text=» SRL A1,1 DIVIDE IT X2 «, t00=0x004d, t01=0x0010}
0x07872…07898 Head {h00=0x0022, h01=0x0050, text=» STR A1,A3 PUT IT IN FLD =TAB «, t00=0x004d, t01=0x0030}
0x07898…078c8 Head {h00=0x002c, h01=0x0050, text=» ADK A3,8 MOVE POINTER TO FIELD DESCR. «, t00=0x004d, t01=0x0056}
0x078c8…078ea Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 GET CURSOR POS. «, t00=0x004d, t01=0x0086}
0x078ea…07900 Head {h00=0x0012, h01=0x0050, text=»UNP490 EQU * «, t00=0x004d, t01=0x00a8}
0x07900…07926 Head {h00=0x0022, h01=0x0050, text=» CW* A5,FLDTAB,A4 END OF WORK «, t00=0x004d, t01=0x00be}
0x07926…0794a Head {h00=0x0020, h01=0x0050, text=» RF(G) UNP495 YES, GO BACK «, t00=0x004d, t01=0x00e4}
0x0794a…0796c Head {h00=0x001e, h01=0x0050, text=» LDR* A1,A2 GET CUR. POS. «, t00=0x004d, t01=0x0108}
0x0796c…07990 Head {h00=0x0020, h01=0x0050, text=» STR A1,A3 PUT IT IN FLDTAB «, t00=0x004d, t01=0x012a}
0x07990…079b2 Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 UPDATE POINTERS «, t00=0x004d, t01=0x014e}
0x079b2…079c4 Head {h00=0x000e, h01=0x0050, text=» ADK A3,8 «, t00=0x004d, t01=0x0170}
0x079c4…079d6 Head {h00=0x000e, h01=0x0050, text=» ADK A5,1 «, t00=0x004d, t01=0x0182}
0x079d6…079f2 (78, 0, 400) Head {h00=0x0018, h01=0x0050, text=» RB UNP490 CONTINUE «, t00=0x004e, t01=0x0004}
0x079f2…07a08 Head {h00=0x0012, h01=0x0050, text=»UNP495 EQU * «, t00=0x004e, t01=0x0020}
0x07a08…07a1a Head {h00=0x000e, h01=0x0050, text=» RTN A14 «, t00=0x004e, t01=0x0036}
0x07a1a…07a30 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x004e, t01=0x0048}
0x07a30…07a80 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x004e, t01=0x005e}
0x07a80…07ad0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x004e, t01=0x00ae}
0x07ad0…07b20 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x004e, t01=0x00fe}
0x07b20…07b70 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x004e, t01=0x014e}
0x07b70…07bc0 Head {h00=0x004c, h01=0x0050, text=»* UNP500 *«, t00=0x004f, t01=0x000e}
0x07bc0…07c10 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x004f, t01=0x005e}
0x07c10…07c60 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x004f, t01=0x00ae}
0x07c60…07cb0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x004f, t01=0x00fe}
0x07cb0…07d00 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x004f, t01=0x014e}
0x07d00…07d14 Head {h00=0x0010, h01=0x0050, text=»UNP500 EQU *«, t00=0x0050, t01=0x000e}
0x07d14…07d64 Head {h00=0x004c, h01=0x0050, text=» LD A1,INBUF,A4 INITIALIZE THE POINTERS «, t00=0x0050, t01=0x0022}
0x07d64…07db4 Head {h00=0x004c, h01=0x0050, text=» LD A3,OUTBUF,A4 «, t00=0x0050, t01=0x0072}
0x07db4…07dde Head {h00=0x0026, h01=0x0050, text=» ADK A3,1 SKIP TERM. ADDR. + KEYS «, t00=0x0050, t01=0x00c2}
0x07dde…07e2e Head {h00=0x004c, h01=0x0050, text=» LD A5,FLDTAB,A4 «, t00=0x0050, t01=0x00ec}
0x07e2e…07e7e Head {h00=0x004c, h01=0x0050, text=» LD A6,OUTBUF,A4 BASE FOR POSITION COMPUTATION «, t00=0x0050, t01=0x013c}
0x07e7e…07ece Head {h00=0x004c, h01=0x0050, text=» ADK A5,10 FIRST ENTRY IN TABLE «, t00=0x0050, t01=0x018c}
0x07ece…07f1e Head {h00=0x004c, h01=0x0050, text=» LDK A7,0 NUMBER OF CHARACTERS CHECKED «, t00=0x0051, t01=0x004c}
0x07f1e…07f6e Head {h00=0x004c, h01=0x0050, text=»UNP510 EQU * «, t00=0x0051, t01=0x009c}
0x07f6e…07fbe Head {h00=0x004c, h01=0x0050, text=» LCR A2,A1 SEARCH FOR INPUT FIELDS «, t00=0x0051, t01=0x00ec}
0x07fbe…0800e Head {h00=0x004c, h01=0x0050, text=» CCK A2,SI START OF INPUT FIELD? «, t00=0x0051, t01=0x013c}
0x0800e…0805e Head {h00=0x004c, h01=0x0050, text=» RF(E) UNP530 YES,MOVE IT «, t00=0x0051, t01=0x018c}
0x0805e…080ae Head {h00=0x004c, h01=0x0050, text=»UNP520 EQU * «, t00=0x0052, t01=0x004c}
0x080ae…080fe Head {h00=0x004c, h01=0x0050, text=» ADK A7,1 NO LOOK FURTHER «, t00=0x0052, t01=0x009c}
0x080fe…0814e Head {h00=0x004c, h01=0x0050, text=» ADK A1,1 «, t00=0x0052, t01=0x00ec}
0x0814e…0819e Head {h00=0x004c, h01=0x0050, text=» CW A7,INLEN,A4 END? «, t00=0x0052, t01=0x013c}
0x0819e…081ee Head {h00=0x004c, h01=0x0050, text=» RB(L) UNP510 NO, CONTINUE «, t00=0x0052, t01=0x018c}
0x081ee…0823e Head {h00=0x004c, h01=0x0050, text=»UNP525 EQU * «, t00=0x0053, t01=0x004c}
0x0823e…0828e Head {h00=0x004c, h01=0x0050, text=» SUR A3,A6 COMPUTE TOTAL LENGTH «, t00=0x0053, t01=0x009c}
0x0828e…082c0 Head {h00=0x002e, h01=0x0050, text=» LD A10,OUTLEN,A4 GET ADDR. OF LENGTH ITEM«, t00=0x0053, t01=0x00ec}
0x082c0…082dc Head {h00=0x0018, h01=0x0050, text=» STR A3,A10 FILL IT «, t00=0x0053, t01=0x011e}
0x082dc…08306 Head {h00=0x0026, h01=0x0050, text=» SUR A9,A6 CORRECT THE LAST FIELD «, t00=0x0053, t01=0x013a}
0x08306…0831a Head {h00=0x0010, h01=0x0050, text=» SUR A3,A9 «, t00=0x0053, t01=0x0164}
0x0831a…08342 Head {h00=0x0024, h01=0x0050, text=» LDR A9,A3 KEEP IT FOR 'INFLNG'.«, t00=0x0053, t01=0x0178}
0x08342…0834e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0054, t01=0x0010}
0x0834e…08384 Head {h00=0x0032, h01=0x0050, text=» CF A14,INFLNG INSERT FIELD LENGTHS IN FLDTAB «, t00=0x0054, t01=0x001c}
0x08384…083d4 Head {h00=0x004c, h01=0x0050, text=» RTN A14 RETURN TO CALLER «, t00=0x0054, t01=0x0052}
0x083d4…083dc Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x00a2}
0x083dc…0842c Head {h00=0x004c, h01=0x0050, text=»UNP530 EQU * «, t00=0x0054, t01=0x00aa}
0x0842c…08454 Head {h00=0x0024, h01=0x0050, text=» LDR A9,A3 SAVE FOR LAST FIELD. «, t00=0x0054, t01=0x00fa}
0x08454…084a4 Head {h00=0x004c, h01=0x0050, text=» SUR A3,A6 COMPUTE POSITION «, t00=0x0054, t01=0x0122}
0x084a4…084f4 Head {h00=0x004c, h01=0x0050, text=» STR A3,A5 PUT IT IN FLDTAB «, t00=0x0054, t01=0x0172}
0x084f4…08544 Head {h00=0x004c, h01=0x0050, text=» ADK A5,8 MOVE POINTER TO NEXT ENTRY «, t00=0x0055, t01=0x0032}
0x08544…08594 Head {h00=0x004c, h01=0x0050, text=» ADR A3,A6 RESTORE ADDRESS IN BUFFER «, t00=0x0055, t01=0x0082}
0x08594…085e4 Head {h00=0x004c, h01=0x0050, text=» ADK A1,1 MOVE PAST "SI" «, t00=0x0055, t01=0x00d2}
0x085e4…08600 Head {h00=0x0018, h01=0x0050, text=» ADK A7,1 COUNT EM «, t00=0x0055, t01=0x0122}
0x08600…08650 Head {h00=0x004c, h01=0x0050, text=»UNP535 EQU * «, t00=0x0055, t01=0x013e}
0x08650…086a0 Head {h00=0x004c, h01=0x0050, text=» CW A7,INLEN,A4 END OF INPUT «, t00=0x0055, t01=0x018e}
0x086a0…086f0 Head {h00=0x004c, h01=0x0050, text=» RB(G) UNP525 YES, STOP «, t00=0x0056, t01=0x004e}
0x086f0…08740 Head {h00=0x004c, h01=0x0050, text=» LCR A2,A1 GET THE CHARACTER «, t00=0x0056, t01=0x009e}
0x08740…08790 Head {h00=0x004c, h01=0x0050, text=» CCK A2,SO END OF INPUT FIELD? «, t00=0x0056, t01=0x00ee}
0x08790…087e0 Head {h00=0x004c, h01=0x0050, text=» RF(E) UNP540 YES «, t00=0x0056, t01=0x013e}
0x087e0…08804 Head {h00=0x0020, h01=0x0050, text=» CCK A2,LF OTHER END CHARS. «, t00=0x0056, t01=0x018e}
0x08804…0881a Head {h00=0x0012, h01=0x0050, text=» RF(E) UNP540 «, t00=0x0057, t01=0x0022}
0x0881a…0882e Head {h00=0x0010, h01=0x0050, text=» CCK A2,CR «, t00=0x0057, t01=0x0038}
0x0882e…08844 Head {h00=0x0012, h01=0x0050, text=» RF(E) UNP540 «, t00=0x0057, t01=0x004c}
0x08844…08858 Head {h00=0x0010, h01=0x0050, text=»UNP537 EQU *«, t00=0x0057, t01=0x0062}
0x08858…08878 Head {h00=0x001c, h01=0x0050, text=» CWK A2,/00 WAS IT NILL?«, t00=0x0057, t01=0x0076}
0x08878…0888e Head {h00=0x0012, h01=0x0050, text=» RF(E) UNP538 «, t00=0x0057, t01=0x0096}
0x0888e…088b8 Head {h00=0x0026, h01=0x0050, text=» LD A11,-4,A5 SET THE MODIFIED BIT«, t00=0x0057, t01=0x00ac}
0x088b8…088d0 Head {h00=0x0014, h01=0x0050, text=» ORKL A11,/2000 «, t00=0x0057, t01=0x00d6}
0x088d0…088e6 Head {h00=0x0012, h01=0x0050, text=» ST A11,-4,A5 «, t00=0x0057, t01=0x00ee}
0x088e6…088fa Head {h00=0x0010, h01=0x0050, text=»UNP538 EQU *«, t00=0x0057, t01=0x0104}
0x088fa…0894a Head {h00=0x004c, h01=0x0050, text=» SCR A2,A3 NO, PUT IT IN OUTPUT BUFFER «, t00=0x0057, t01=0x0118}
0x0894a…0899a Head {h00=0x004c, h01=0x0050, text=» ADK A3,1 UPDATE POINTERS «, t00=0x0057, t01=0x0168}
0x0899a…089ea Head {h00=0x004c, h01=0x0050, text=» ADK A1,1 «, t00=0x0058, t01=0x0028}
0x089ea…08a12 Head {h00=0x0024, h01=0x0050, text=» ADK A7,1 NUMBER OF CHARS. MOVED«, t00=0x0058, t01=0x0078}
0x08a12…08a62 Head {h00=0x004c, h01=0x0050, text=» RB UNP535 «, t00=0x0058, t01=0x00a0}
0x08a62…08ab2 Head {h00=0x004c, h01=0x0050, text=»UNP540 EQU * «, t00=0x0058, t01=0x00f0}
0x08ab2…08b02 Head {h00=0x004c, h01=0x0050, text=» ADK A1,1 MOVE PAST "SO" «, t00=0x0058, t01=0x0140}
0x08b02…08b1e Head {h00=0x0018, h01=0x0050, text=» ADK A7,1 COUNT EM «, t00=0x0058, t01=0x0190}
0x08b1e…08b6e Head {h00=0x004c, h01=0x0050, text=» RB UNP510 GET THE NEXT FIELD «, t00=0x0059, t01=0x001c}
0x08b6e…08b84 Head {h00=0x0012, h01=0x0050, text=»INFLNG EQU * «, t00=0x0059, t01=0x006c}
0x08b84…08ba8 Head {h00=0x0020, h01=0x0050, text=» LD A5,FLDTAB,A4 GET FLDTAB «, t00=0x0059, t01=0x0082}
0x08ba8…08bce Head {h00=0x0022, h01=0x0050, text=» LDR* A6,A5 NUMBER OF FIELDS «, t00=0x0059, t01=0x00a6}
0x08bce…08bf6 Head {h00=0x0024, h01=0x0050, text=» ADK A5,10 MOVE TO FIRST ENTRY «, t00=0x0059, t01=0x00cc}
0x08bf6…08c1a Head {h00=0x0020, h01=0x0050, text=» LDR A3,A5 ANOTHER POINTER «, t00=0x0059, t01=0x00f4}
0x08c1a…08c3a Head {h00=0x001c, h01=0x0050, text=» ADK A3,8 TO NEXT ENTRY «, t00=0x0059, t01=0x0118}
0x08c3a…08c5a Head {h00=0x001c, h01=0x0050, text=» LDK A7,1 FIELD COUNTER «, t00=0x0059, t01=0x0138}
0x08c5a…08c70 Head {h00=0x0012, h01=0x0050, text=»UNP550 EQU * «, t00=0x0059, t01=0x0158}
0x08c70…08c94 Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A3 GET THE POS'S. «, t00=0x0059, t01=0x016e}
0x08c94…08caa (90, 0, 400) Head {h00=0x0012, h01=0x0050, text=» LDR* A2,A5 «, t00=0x005a, t01=0x0004}
0x08caa…08cd0 Head {h00=0x0022, h01=0x0050, text=» SUR A1,A2 COMPUTE THE LENGTH «, t00=0x005a, t01=0x001a}
0x08cd0…08cf4 Head {h00=0x0020, h01=0x0050, text=» ST A1,2,A5 PUT IT IN TABLE «, t00=0x005a, t01=0x0040}
0x08cf4…08d10 Head {h00=0x0018, h01=0x0050, text=» ADK A7,1 COUNT IT. «, t00=0x005a, t01=0x0064}
0x08d10…08d28 Head {h00=0x0014, h01=0x0050, text=» CWR A7,A6 END? «, t00=0x005a, t01=0x0080}
0x08d28…08d4a Head {h00=0x001e, h01=0x0050, text=» RF(G) UNP560 YES ,RETURN «, t00=0x005a, t01=0x0098}
0x08d4a…08d6c Head {h00=0x001e, h01=0x0050, text=» ADK A5,8 UPDATE POINTERS «, t00=0x005a, t01=0x00ba}
0x08d6c…08d80 Head {h00=0x0010, h01=0x0050, text=» ADK A3,8 «, t00=0x005a, t01=0x00dc}
0x08d80…08d9c Head {h00=0x0018, h01=0x0050, text=» RB UNP550 CONTINUE «, t00=0x005a, t01=0x00f0}
0x08d9c…08db2 Head {h00=0x0012, h01=0x0050, text=»UNP560 EQU * «, t00=0x005a, t01=0x010c}
0x08db2…08ddc Head {h00=0x0026, h01=0x0050, text=» ST A9,2,A5 LAST FIELD CORRECTION «, t00=0x005a, t01=0x0122}
0x08ddc…08e00 Head {h00=0x0020, h01=0x0050, text=» RTN A14 GO BACK TO CALLER «, t00=0x005a, t01=0x014c}
0x08e00…08e16 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x005a, t01=0x0170}
0x08e16…08e66 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x005a, t01=0x0186}
0x08e66…08eb6 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x005b, t01=0x0046}
0x08eb6…08f06 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x005b, t01=0x0096}
0x08f06…08f56 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x005b, t01=0x00e6}
0x08f56…08fa6 Head {h00=0x004c, h01=0x0050, text=»* UNP600 *«, t00=0x005b, t01=0x0136}
0x08fa6…08ff6 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x005b, t01=0x0186}
0x08ff6…09046 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x005c, t01=0x0046}
0x09046…09096 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x005c, t01=0x0096}
0x09096…090e6 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x005c, t01=0x00e6}
0x090e6…090fa Head {h00=0x0010, h01=0x0050, text=»UNP600 EQU *«, t00=0x005c, t01=0x0136}
0x090fa…0914a Head {h00=0x004c, h01=0x0050, text=» «, t00=0x005c, t01=0x014a}
0x0914a…09174 Head {h00=0x0026, h01=0x0050, text=» LDK A6,0 INITIALIZE SPACE COUNTER«, t00=0x005d, t01=0x000a}
0x09174…091c4 Head {h00=0x004c, h01=0x0050, text=» LD A8,GPECB,A4 GET PRINTER BUFFER ADDRESS «, t00=0x005d, t01=0x0034}
0x091c4…09214 Head {h00=0x004c, h01=0x0050, text=» LD A3,ECBBA,A8 «, t00=0x005d, t01=0x0084}
0x09214…0924a Head {h00=0x0032, h01=0x0050, text=» LDKL A2,LF MOVE TICKET TO FIRST LOGICAL LINE «, t00=0x005d, t01=0x00d4}
0x0924a…0925e Head {h00=0x0010, h01=0x0050, text=» SCR A2,A3 «, t00=0x005d, t01=0x010a}
0x0925e…09272 Head {h00=0x0010, h01=0x0050, text=» ADK A3,1 «, t00=0x005d, t01=0x011e}
0x09272…092c2 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x005d, t01=0x0132}
0x092c2…09312 Head {h00=0x004c, h01=0x0050, text=» LD A1,INBUF,A4 GET INPUT BUFFER «, t00=0x005d, t01=0x0182}
0x09312…09362 Head {h00=0x004c, h01=0x0050, text=» LD A5,INLEN,A4 AND LENGTH «, t00=0x005e, t01=0x0042}
0x09362…093b2 Head {h00=0x004c, h01=0x0050, text=» ADR A5,A1 END OF BUFFER «, t00=0x005e, t01=0x0092}
0x093b2…093dc Head {h00=0x0026, h01=0x0050, text=» LDK A7,1 INITIALIZE LINE COUNTER «, t00=0x005e, t01=0x00e2}
0x093dc…0942c Head {h00=0x004c, h01=0x0050, text=» «, t00=0x005e, t01=0x010c}
0x0942c…0947c Head {h00=0x004c, h01=0x0050, text=»UNP610 EQU * «, t00=0x005e, t01=0x015c}
0x0947c…094cc Head {h00=0x004c, h01=0x0050, text=» CWR A1,A5 END OF BUFFER? «, t00=0x005f, t01=0x001c}
0x094cc…0951c Head {h00=0x004c, h01=0x0050, text=» RF(G) UNP620 YES, RETURN «, t00=0x005f, t01=0x006c}
0x0951c…0956c Head {h00=0x004c, h01=0x0050, text=» «, t00=0x005f, t01=0x00bc}
0x0956c…095bc Head {h00=0x004c, h01=0x0050, text=» LCR A2,A1 GET A CHARACTER «, t00=0x005f, t01=0x010c}
0x095bc…0960c Head {h00=0x004c, h01=0x0050, text=» CF A14,CHARCN PROCESS IT «, t00=0x005f, t01=0x015c}
0x0960c…0965c Head {h00=0x004c, h01=0x0050, text=» LDR A2,A2 IF ZERO, SKIP IT «, t00=0x0060, t01=0x001c}
0x0965c…096ac Head {h00=0x004c, h01=0x0050, text=» RF(Z) UNP615 MUST HAVE BEEN = "SI" OR "SO". «, t00=0x0060, t01=0x006c}
0x096ac…096dc Head {h00=0x002c, h01=0x0050, text=» CWK A7,3 DON'T FILL BUFFER UNTIL LINE=3«, t00=0x0060, t01=0x00bc}
0x096dc…096f4 Head {h00=0x0014, h01=0x0050, text=» RF(L) UNP615 «, t00=0x0060, t01=0x00ec}
0x096f4…09744 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0060, t01=0x0104}
0x09744…09794 Head {h00=0x004c, h01=0x0050, text=» SCR A2,A3 PUT IT IN PRINTER BUFFER «, t00=0x0060, t01=0x0154}
0x09794…097e4 Head {h00=0x004c, h01=0x0050, text=» ADK A3,1 UPDATE POINTERS «, t00=0x0061, t01=0x0014}
0x097e4…09834 Head {h00=0x004c, h01=0x0050, text=»UNP615 EQU * «, t00=0x0061, t01=0x0064}
0x09834…09884 Head {h00=0x004c, h01=0x0050, text=» ADK A1,1 «, t00=0x0061, t01=0x00b4}
0x09884…098d4 Head {h00=0x004c, h01=0x0050, text=» RB UNP610 GET THE NEXT ONE «, t00=0x0061, t01=0x0104}
0x098d4…09924 Head {h00=0x004c, h01=0x0050, text=»UNP620 EQU * «, t00=0x0061, t01=0x0154}
0x09924…0994c Head {h00=0x0024, h01=0x0050, text=» LD A5,ECBBA,A8 CALCULATE LENGTH«, t00=0x0062, t01=0x0014}
0x0994c…09960 Head {h00=0x0010, h01=0x0050, text=» SUR A3,A5 «, t00=0x0062, t01=0x003c}
0x09960…09986 Head {h00=0x0022, h01=0x0050, text=» ST A3,ECBRL,A8 PUT IT IN ECB «, t00=0x0062, t01=0x0050}
0x09986…09992 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0062, t01=0x0076}
0x09992…099e2 Head {h00=0x004c, h01=0x0050, text=» RTN A14 FINISHED, RETURN TO CALLER «, t00=0x0062, t01=0x0082}
0x099e2…09a32 Head {h00=0x004c, h01=0x0050, text=» EJECT «, t00=0x0062, t01=0x00d2}
0x09a32…09a82 Head {h00=0x004c, h01=0x0050, text=»CHARCN EQU * «, t00=0x0062, t01=0x0122}
0x09a82…09ab4 Head {h00=0x002e, h01=0x0050, text=» CCK A2,SPACES THE CHECK FOR TEST PICTURE «, t00=0x0062, t01=0x0172}
0x09ab4…09ae6 Head {h00=0x002e, h01=0x0050, text=» RF(NE) UNP640 TEST PIC. IF MORE THAT 40 «, t00=0x0063, t01=0x0014}
0x09ae6…09b08 Head {h00=0x001e, h01=0x0050, text=» ADK A6,1 COUNT THE SPACE «, t00=0x0063, t01=0x0046}
0x09b08…09b34 Head {h00=0x0028, h01=0x0050, text=» RF UNP670 PUT IN BUFFER IF LINE > 3«, t00=0x0063, t01=0x0068}
0x09b34…09b4a Head {h00=0x0012, h01=0x0050, text=»UNP640 EQU * «, t00=0x0063, t01=0x0094}
0x09b4a…09b72 Head {h00=0x0024, h01=0x0050, text=» CWK A6,40 MORE THAN 40 SPACES? «, t00=0x0063, t01=0x00aa}
0x09b72…09b96 Head {h00=0x0020, h01=0x0050, text=» RF(NG) UNP642 NO, PROCESS «, t00=0x0063, t01=0x00d2}
0x09b96…09bc6 Head {h00=0x002c, h01=0x0050, text=» LDKL A9,2 THIS IS FIRST NON-SPACE AFTER«, t00=0x0063, t01=0x00f6}
0x09bc6…09bf0 Head {h00=0x0026, h01=0x0050, text=» CF A14,MLF600 MORE THAN 40 SPACES«, t00=0x0063, t01=0x0126}
0x09bf0…09c1e Head {h00=0x002a, h01=0x0050, text=» SUK A1,1 LET HIM PROCESS THIS AGAIN. «, t00=0x0063, t01=0x0150}
0x09c1e…09c42 Head {h00=0x0020, h01=0x0050, text=» LDK A6,0 CLEAR THE COUNTER «, t00=0x0063, t01=0x017e}
0x09c42…09c5c Head {h00=0x0016, h01=0x0050, text=» RF UNP670 GO ON. «, t00=0x0064, t01=0x0012}
0x09c5c…09c72 Head {h00=0x0012, h01=0x0050, text=»UNP642 EQU * «, t00=0x0064, t01=0x002c}
0x09c72…09c98 Head {h00=0x0022, h01=0x0050, text=» LDK A6,0 RESET SPACE COUNTER «, t00=0x0064, t01=0x0042}
0x09c98…09ce8 Head {h00=0x004c, h01=0x0050, text=» CCK A2,NULL IF "NULL" REPLACE WITH SPACE «, t00=0x0064, t01=0x0068}
0x09ce8…09d38 Head {h00=0x004c, h01=0x0050, text=» RF(NE) UNP650 «, t00=0x0064, t01=0x00b8}
0x09d38…09d88 Head {h00=0x004c, h01=0x0050, text=» LDK A2,SPACE «, t00=0x0064, t01=0x0108}
0x09d88…09dd8 Head {h00=0x004c, h01=0x0050, text=» RF UNP670 «, t00=0x0064, t01=0x0158}
0x09dd8…09e28 Head {h00=0x004c, h01=0x0050, text=»UNP650 EQU * «, t00=0x0065, t01=0x0018}
0x09e28…09e78 Head {h00=0x004c, h01=0x0050, text=» CCK A2,SO IF "SO", SKIP IT «, t00=0x0065, t01=0x0068}
0x09e78…09ec8 Head {h00=0x004c, h01=0x0050, text=» RF(NE) UNP652 «, t00=0x0065, t01=0x00b8}
0x09ec8…09f18 Head {h00=0x004c, h01=0x0050, text=» LDK A2,0 «, t00=0x0065, t01=0x0108}
0x09f18…09f68 Head {h00=0x004c, h01=0x0050, text=» RF UNP670 «, t00=0x0065, t01=0x0158}
0x09f68…09f7e Head {h00=0x0012, h01=0x0050, text=»UNP652 EQU * «, t00=0x0066, t01=0x0018}
0x09f7e…09fce Head {h00=0x004c, h01=0x0050, text=» CCK A2,SI IF "SI", SKIP IT «, t00=0x0066, t01=0x002e}
0x09fce…0a01e Head {h00=0x004c, h01=0x0050, text=» RF(NE) UNP654 «, t00=0x0066, t01=0x007e}
0x0a01e…0a06e Head {h00=0x004c, h01=0x0050, text=» LDK A2,0 «, t00=0x0066, t01=0x00ce}
0x0a06e…0a0be Head {h00=0x004c, h01=0x0050, text=» RF UNP670 «, t00=0x0066, t01=0x011e}
0x0a0be…0a10e Head {h00=0x004c, h01=0x0050, text=»UNP654 EQU * «, t00=0x0066, t01=0x016e}
0x0a10e…0a15e Head {h00=0x004c, h01=0x0050, text=» CCK A2,LF IF LINE FEED, INSERT LF-CR «, t00=0x0067, t01=0x002e}
0x0a15e…0a1ae Head {h00=0x004c, h01=0x0050, text=» RF(NE) UNP656 «, t00=0x0067, t01=0x007e}
0x0a1ae…0a1fe Head {h00=0x004c, h01=0x0050, text=»UNP655 EQU * «, t00=0x0067, t01=0x00ce}
0x0a1fe…0a24e Head {h00=0x004c, h01=0x0050, text=» LDKL A9,1 "1" LINE FEED, CARRIAGE RETURN «, t00=0x0067, t01=0x011e}
0x0a24e…0a29e Head {h00=0x004c, h01=0x0050, text=» CF A14,MLF600 INSERT IN OUTPUT BUFFER «, t00=0x0067, t01=0x016e}
0x0a29e…0a2ee Head {h00=0x004c, h01=0x0050, text=» RF UNP670 «, t00=0x0068, t01=0x002e}
0x0a2ee…0a33e Head {h00=0x004c, h01=0x0050, text=»UNP656 EQU * «, t00=0x0068, t01=0x007e}
0x0a33e…0a38e Head {h00=0x004c, h01=0x0050, text=» CCK A2,CR IF CARRIAGE RETURN, THEN "LF" «, t00=0x0068, t01=0x00ce}
0x0a38e…0a3de Head {h00=0x004c, h01=0x0050, text=» RB(E) UNP655 «, t00=0x0068, t01=0x011e}
0x0a3de…0a42e Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0068, t01=0x016e}
0x0a42e…0a47e Head {h00=0x004c, h01=0x0050, text=» CCK A2,MLF2 IF MULTIPLE LINE FEEDS «, t00=0x0069, t01=0x002e}
0x0a47e…0a4ce Head {h00=0x004c, h01=0x0050, text=» RF(NE) UNP658 «, t00=0x0069, t01=0x007e}
0x0a4ce…0a51e Head {h00=0x004c, h01=0x0050, text=» LDKL A9,2 «, t00=0x0069, t01=0x00ce}
0x0a51e…0a56e Head {h00=0x004c, h01=0x0050, text=» CF A14,MLF600 PUT 'EM IN OUTPUT BUFFER «, t00=0x0069, t01=0x011e}
0x0a56e…0a5be Head {h00=0x004c, h01=0x0050, text=» RF UNP670 «, t00=0x0069, t01=0x016e}
0x0a5be…0a60e Head {h00=0x004c, h01=0x0050, text=»UNP658 EQU * «, t00=0x006a, t01=0x002e}
0x0a60e…0a65e Head {h00=0x004c, h01=0x0050, text=» CCK A2,MLF6 IF MULTIPLE LINE FEEDS «, t00=0x006a, t01=0x007e}
0x0a65e…0a6ae Head {h00=0x004c, h01=0x0050, text=» RF(NE) UNP660 «, t00=0x006a, t01=0x00ce}
0x0a6ae…0a6fe Head {h00=0x004c, h01=0x0050, text=» LDKL A9,6 «, t00=0x006a, t01=0x011e}
0x0a6fe…0a74e Head {h00=0x004c, h01=0x0050, text=» CF A14,MLF600 PUT 'EM IN OUTPUT BUFFER «, t00=0x006a, t01=0x016e}
0x0a74e…0a79e Head {h00=0x004c, h01=0x0050, text=» RF UNP670 «, t00=0x006b, t01=0x002e}
0x0a79e…0a7ee Head {h00=0x004c, h01=0x0050, text=»UNP660 EQU * «, t00=0x006b, t01=0x007e}
0x0a7ee…0a83e Head {h00=0x004c, h01=0x0050, text=» CCK A2,PRTCHR IF ":", INSERT LINE FEEDS «, t00=0x006b, t01=0x00ce}
0x0a83e…0a88e Head {h00=0x004c, h01=0x0050, text=» RF(NE) UNP670 «, t00=0x006b, t01=0x011e}
0x0a88e…0a8e0 Head {h00=0x004e, h01=0x0050, text=» LDKL A9,21 «, t00=0x006b, t01=0x016e}
0x0a8e0…0a90a Head {h00=0x0026, h01=0x0050, text=» SUR A9,A7 CALCULATE 'TOP-OF-FORM'«, t00=0x006c, t01=0x0030}
0x0a90a…0a95a Head {h00=0x004c, h01=0x0050, text=» CF A14,MLF600 «, t00=0x006c, t01=0x005a}
0x0a95a…0a9aa Head {h00=0x004c, h01=0x0050, text=»UNP670 EQU * «, t00=0x006c, t01=0x00aa}
0x0a9aa…0a9fa Head {h00=0x004c, h01=0x0050, text=» RTN A14 «, t00=0x006c, t01=0x00fa}
0x0a9fa…0aa4a Head {h00=0x004c, h01=0x0050, text=»MLF600 EQU * «, t00=0x006c, t01=0x014a}
0x0aa4a…0aa9a Head {h00=0x004c, h01=0x0050, text=» LDKL A2,CRLF «, t00=0x006d, t01=0x000a}
0x0aa9a…0aaea Head {h00=0x004c, h01=0x0050, text=»UNP680 EQU * «, t00=0x006d, t01=0x005a}
0x0aaea…0ab3a Head {h00=0x004c, h01=0x0050, text=» SCR A2,A3 «, t00=0x006d, t01=0x00aa}
0x0ab3a…0ab8a Head {h00=0x004c, h01=0x0050, text=» ADK A3,1 UPDATE POINT «, t00=0x006d, t01=0x00fa}
0x0ab8a…0abb2 Head {h00=0x0024, h01=0x0050, text=» ADK A7,1 INCREASE LINE COUNTER «, t00=0x006d, t01=0x014a}
0x0abb2…0ac02 Head {h00=0x004c, h01=0x0050, text=» SUKL A9,1 SEE IF FINISHED «, t00=0x006d, t01=0x0172}
0x0ac02…0ac52 Head {h00=0x004c, h01=0x0050, text=» RF(Z) UNP682 YES «, t00=0x006e, t01=0x0032}
0x0ac52…0aca2 Head {h00=0x004c, h01=0x0050, text=» RB UNP680 NO, INSERT ANOTHER LF «, t00=0x006e, t01=0x0082}
0x0aca2…0acf2 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x006e, t01=0x00d2}
0x0acf2…0ad42 Head {h00=0x004c, h01=0x0050, text=»UNP682 EQU * «, t00=0x006e, t01=0x0122}
0x0ad42…0ad92 Head {h00=0x004c, h01=0x0050, text=» SRL A2,8 FINISHED, GET CARRIAGE RETURN «, t00=0x006e, t01=0x0172}
0x0ad92…0ade2 Head {h00=0x004c, h01=0x0050, text=» RTN A14 LET MAIN ROUTINE INSERT IT «, t00=0x006f, t01=0x0032}
0x0ade2…0adf8 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x006f, t01=0x0082}
0x0adf8…0ae48 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x006f, t01=0x0098}
0x0ae48…0ae98 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x006f, t01=0x00e8}
0x0ae98…0aee8 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x006f, t01=0x0138}
0x0aee8…0af38 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x006f, t01=0x0188}
0x0af38…0af88 Head {h00=0x004c, h01=0x0050, text=»* UNP700 *«, t00=0x0070, t01=0x0048}
0x0af88…0afd8 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0070, t01=0x0098}
0x0afd8…0b028 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0070, t01=0x00e8}
0x0b028…0b078 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0070, t01=0x0138}
0x0b078…0b0c8 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0070, t01=0x0188}
0x0b0c8…0b0dc Head {h00=0x0010, h01=0x0050, text=»UNP700 EQU *«, t00=0x0071, t01=0x0048}
0x0b0dc…0b12c Head {h00=0x004c, h01=0x0050, text=»* TEST STATUS OF PRINTER *«, t00=0x0071, t01=0x005c}
0x0b12c…0b17c Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0071, t01=0x00ac}
0x0b17c…0b1cc Head {h00=0x004c, h01=0x0050, text=» LDK A7,STATUS ORDER TEST STATUS «, t00=0x0071, t01=0x00fc}
0x0b1cc…0b21c Head {h00=0x004c, h01=0x0050, text=» LD A8,GPECB,A4 ECB ADDRESS TO A8 «, t00=0x0071, t01=0x014c}
0x0b21c…0b26c Head {h00=0x004c, h01=0x0050, text=» LKM I/O «, t00=0x0072, t01=0x000c}
0x0b26c…0b2bc Head {h00=0x004c, h01=0x0050, text=» DATA 1 «, t00=0x0072, t01=0x005c}
0x0b2bc…0b30c Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0072, t01=0x00ac}
0x0b30c…0b35c Head {h00=0x004c, h01=0x0050, text=» LD A1,ECBRC,A8 GET RETURN CODE «, t00=0x0072, t01=0x00fc}
0x0b35c…0b3ac Head {h00=0x004c, h01=0x0050, text=» RF(Z) UNP710 NORMALLY ENDED «, t00=0x0072, t01=0x014c}
0x0b3ac…0b3fc Head {h00=0x004c, h01=0x0050, text=»UNP705 EQU * «, t00=0x0073, t01=0x000c}
0x0b3fc…0b44c Head {h00=0x004c, h01=0x0050, text=» ST A1,PRINT,A4 RETURN NOT OK, SAVE IT «, t00=0x0073, t01=0x005c}
0x0b44c…0b49c Head {h00=0x004c, h01=0x0050, text=» RTN A14 RETURN TO CALLER «, t00=0x0073, t01=0x00ac}
0x0b49c…0b4ec Head {h00=0x004c, h01=0x0050, text=»UNP710 EQU * «, t00=0x0073, t01=0x00fc}
0x0b4ec…0b514 Head {h00=0x0024, h01=0x0050, text=» LDK A7,/05 BASIC WRITE, NO-WAIT«, t00=0x0073, t01=0x014c}
0x0b514…0b564 Head {h00=0x004c, h01=0x0050, text=»UNP720 EQU * «, t00=0x0073, t01=0x0174}
0x0b564…0b5b4 Head {h00=0x004c, h01=0x0050, text=» LKM «, t00=0x0074, t01=0x0034}
0x0b5b4…0b604 Head {h00=0x004c, h01=0x0050, text=» DATA 1 «, t00=0x0074, t01=0x0084}
0x0b604…0b654 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0074, t01=0x00d4}
0x0b654…0b684 Head {h00=0x002c, h01=0x0050, text=» LD A1,WORK3,A4 SEE IF FLASHING REQUIRED«, t00=0x0074, t01=0x0124}
0x0b684…0b6ae Head {h00=0x0026, h01=0x0050, text=» RF(Z) UNP730 NO WIAT FOR PRINTER «, t00=0x0074, t01=0x0154}
0x0b6ae…0b6c4 Head {h00=0x0012, h01=0x0050, text=»UNP725 EQU * «, t00=0x0074, t01=0x017e}
0x0b6c4…0b6ec (117, 0, 400) Head {h00=0x0024, h01=0x0050, text=» CF A14,PFLASH FLASH THE FIELDS «, t00=0x0075, t01=0x0004}
0x0b6ec…0b718 Head {h00=0x0028, h01=0x0050, text=» LD* A1,GPECB,A4 PRINTER FINISHED ? «, t00=0x0075, t01=0x002c}
0x0b718…0b740 Head {h00=0x0024, h01=0x0050, text=» RB(NN) UNP725 NO, KEEP FLASHING«, t00=0x0075, t01=0x0058}
0x0b740…0b756 Head {h00=0x0012, h01=0x0050, text=»UNP730 EQU * «, t00=0x0075, t01=0x0080}
0x0b756…0b77a Head {h00=0x0020, h01=0x0050, text=» LD A8,GPECB,A4 SET UP WAIT «, t00=0x0075, t01=0x0096}
0x0b77a…0b788 Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x0075, t01=0x00ba}
0x0b788…0b79a Head {h00=0x000e, h01=0x0050, text=» DATA 2 «, t00=0x0075, t01=0x00c8}
0x0b79a…0b7ea Head {h00=0x004c, h01=0x0050, text=» LD A1,ECBRC,A8 GET THE RETURN CODE «, t00=0x0075, t01=0x00da}
0x0b7ea…0b804 Head {h00=0x0016, h01=0x0050, text=» RB UNP705 RETURN «, t00=0x0075, t01=0x012a}
0x0b804…0b81a Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0075, t01=0x0144}
0x0b81a…0b86a Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0075, t01=0x015a}
0x0b86a…0b8ba Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0076, t01=0x001a}
0x0b8ba…0b90a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0076, t01=0x006a}
0x0b90a…0b95a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0076, t01=0x00ba}
0x0b95a…0b9aa Head {h00=0x004c, h01=0x0050, text=»* UNP800 *«, t00=0x0076, t01=0x010a}
0x0b9aa…0b9fa Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0076, t01=0x015a}
0x0b9fa…0ba4a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0077, t01=0x001a}
0x0ba4a…0ba9a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0077, t01=0x006a}
0x0ba9a…0baea Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0077, t01=0x00ba}
0x0baea…0bb3a Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0077, t01=0x010a}
0x0bb3a…0bb8a Head {h00=0x004c, h01=0x0050, text=»UNP800 EQU * «, t00=0x0077, t01=0x015a}
0x0bb8a…0bbda Head {h00=0x004c, h01=0x0050, text=» LD A1,PRINT,A4 CHECK RETURN CODE FROM «, t00=0x0078, t01=0x001a}
0x0bbda…0bc2a Head {h00=0x004c, h01=0x0050, text=» PRINT ROUTINE «, t00=0x0078, t01=0x006a}
0x0bc2a…0bc7a Head {h00=0x004c, h01=0x0050, text=» RF(NZ) UNP810 SEND NAK «, t00=0x0078, t01=0x00ba}
0x0bc7a…0bcca Head {h00=0x004c, h01=0x0050, text=» LDK A2,ACK OK, SEND ACK «, t00=0x0078, t01=0x010a}
0x0bcca…0bd1a Head {h00=0x004c, h01=0x0050, text=» RF UNP815 «, t00=0x0078, t01=0x015a}
0x0bd1a…0bd6a Head {h00=0x004c, h01=0x0050, text=»UNP810 EQU * «, t00=0x0079, t01=0x001a}
0x0bd6a…0bdba Head {h00=0x004c, h01=0x0050, text=» LDK A2,NAK «, t00=0x0079, t01=0x006a}
0x0bdba…0bdd0 Head {h00=0x0012, h01=0x0050, text=»UNP815 EQU * «, t00=0x0079, t01=0x00ba}
0x0bdd0…0be20 Head {h00=0x004c, h01=0x0050, text=» LD A8,DCECB,A4 GET THE DC ECB «, t00=0x0079, t01=0x00d0}
0x0be20…0be70 Head {h00=0x004c, h01=0x0050, text=» LD A3,ECBBA,A8 GET THE BUFFER «, t00=0x0079, t01=0x0120}
0x0be70…0bec0 Head {h00=0x004c, h01=0x0050, text=» ADK A3,1 SKIP TERM. ADD ANK KEY INFO «, t00=0x0079, t01=0x0170}
0x0bec0…0bf10 Head {h00=0x004c, h01=0x0050, text=» SCR A2,A3 INSERT ACKNOWLEDGEMENT «, t00=0x007a, t01=0x0030}
0x0bf10…0bf34 Head {h00=0x0020, h01=0x0050, text=» LDK A7,100 WAIT 10 SECONDS «, t00=0x007a, t01=0x0080}
0x0bf34…0bf56 Head {h00=0x001e, h01=0x0050, text=» ST A7,ECBCW,A8 SAVEIN ECB«, t00=0x007a, t01=0x00a4}
0x0bf56…0bf72 Head {h00=0x0018, h01=0x0050, text=» LDK A7,/B9 SETIME «, t00=0x007a, t01=0x00c6}
0x0bf72…0bf7e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x007a, t01=0x00e2}
0x0bf7e…0bf8e Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x007a, t01=0x00ee}
0x0bf8e…0bfde Head {h00=0x004c, h01=0x0050, text=» «, t00=0x007a, t01=0x00fe}
0x0bfde…0c002 Head {h00=0x0020, h01=0x0050, text=» LDK A7,2 LENGTH OF ACK-NAK «, t00=0x007a, t01=0x014e}
0x0c002…0c01a Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x007a, t01=0x0172}
0x0c01a…0c06a Head {h00=0x004c, h01=0x0050, text=» LDK A7,DCWRT FILL IN ORDER, WRITE «, t00=0x007a, t01=0x018a}
0x0c06a…0c0ba Head {h00=0x004c, h01=0x0050, text=» «, t00=0x007b, t01=0x004a}
0x0c0ba…0c10a Head {h00=0x004c, h01=0x0050, text=» LKM I/O «, t00=0x007b, t01=0x009a}
0x0c10a…0c15a Head {h00=0x004c, h01=0x0050, text=» DATA 1 «, t00=0x007b, t01=0x00ea}
0x0c15a…0c1aa Head {h00=0x004c, h01=0x0050, text=» «, t00=0x007b, t01=0x013a}
0x0c1aa…0c1fa Head {h00=0x004c, h01=0x0050, text=» RTN A14 RETURN TO CALLER «, t00=0x007b, t01=0x018a}
0x0c1fa…0c24a Head {h00=0x004c, h01=0x0050, text=» «, t00=0x007c, t01=0x004a}
0x0c24a…0c25c Head {h00=0x000e, h01=0x0050, text=» EJECT «, t00=0x007c, t01=0x009a}
0x0c25c…0c2ac Head {h00=0x004c, h01=0x0050, text=» «, t00=0x007c, t01=0x00ac}
0x0c2ac…0c2fc Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x007c, t01=0x00fc}
0x0c2fc…0c34c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x007c, t01=0x014c}
0x0c34c…0c39c Head {h00=0x004c, h01=0x0050, text=»* THIS MODULE SCANS THE INPUT BUFFER TO SEE IF FLASHING *«, t00=0x007d, t01=0x000c}
0x0c39c…0c3ec Head {h00=0x004c, h01=0x0050, text=»* FIELDS ARE PRESENT. IF SO, A TABLE "FLATAB" IS BUILT. *«, t00=0x007d, t01=0x005c}
0x0c3ec…0c43c Head {h00=0x004c, h01=0x0050, text=»* FLATAB IS PLACED IN THE WORK AREA "CURSAV". *«, t00=0x007d, t01=0x00ac}
0x0c43c…0c48c Head {h00=0x004c, h01=0x0050, text=»* WORK3 = 1 IF FLASHING FIELDS ARE PRESENT. *«, t00=0x007d, t01=0x00fc}
0x0c48c…0c4dc Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x007d, t01=0x014c}
0x0c4dc…0c52c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x007e, t01=0x000c}
0x0c52c…0c57c Head {h00=0x004c, h01=0x0050, text=» «, t00=0x007e, t01=0x005c}
0x0c57c…0c5cc Head {h00=0x004c, h01=0x0050, text=» «, t00=0x007e, t01=0x00ac}
0x0c5cc…0c61c Head {h00=0x004c, h01=0x0050, text=»UNP900 EQU * «, t00=0x007e, t01=0x00fc}
0x0c61c…0c66c Head {h00=0x004c, h01=0x0050, text=» CM WORK3,A4 RESET FLASH FLAG «, t00=0x007e, t01=0x014c}
0x0c66c…0c6bc Head {h00=0x004c, h01=0x0050, text=» LD A3,INBUF,A4 SEE IF FIRST CHAR = SI «, t00=0x007f, t01=0x000c}
0x0c6bc…0c70c Head {h00=0x004c, h01=0x0050, text=» LCR A1,A3 «, t00=0x007f, t01=0x005c}
0x0c70c…0c734 Head {h00=0x0024, h01=0x0050, text=» ANK A1,/FF CLEAN THE LEFT HALF «, t00=0x007f, t01=0x00ac}
0x0c734…0c784 Head {h00=0x004c, h01=0x0050, text=» CCK A1,SI «, t00=0x007f, t01=0x00d4}
0x0c784…0c7d4 Head {h00=0x004c, h01=0x0050, text=» RF(NE) UNP915 IF NOT SI, RETURN «, t00=0x007f, t01=0x0124}
0x0c7d4…0c824 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x007f, t01=0x0174}
0x0c824…0c874 Head {h00=0x004c, h01=0x0050, text=» LDKL A9,FLATAB COULD BE FLASHING FIELDS «, t00=0x0080, t01=0x0034}
0x0c874…0c8c4 Head {h00=0x004c, h01=0x0050, text=» ADR A9,A4 INITIALIZE TABLE «, t00=0x0080, t01=0x0084}
0x0c8c4…0c914 Head {h00=0x004c, h01=0x0050, text=» LDR A5,A9 FIELD POINTER «, t00=0x0080, t01=0x00d4}
0x0c914…0c964 Head {h00=0x004c, h01=0x0050, text=» ADK A5,2 SKIP NUMBER OF FIELDS «, t00=0x0080, t01=0x0124}
0x0c964…0c9b4 Head {h00=0x004c, h01=0x0050, text=» CM FLATAB,A4 RESET NUMBER OF FIELDS «, t00=0x0080, t01=0x0174}
0x0c9b4…0ca04 Head {h00=0x004c, h01=0x0050, text=» LDKL A7,/0101 RESET CURSOR POSITION «, t00=0x0081, t01=0x0034}
0x0ca04…0ca54 Head {h00=0x004c, h01=0x0050, text=» LD A6,INLEN,A4 «, t00=0x0081, t01=0x0084}
0x0ca54…0caa4 Head {h00=0x004c, h01=0x0050, text=» ADR A6,A3 END OF INPUT BUFFER «, t00=0x0081, t01=0x00d4}
0x0caa4…0caf4 Head {h00=0x004c, h01=0x0050, text=»UNP905 EQU * «, t00=0x0081, t01=0x0124}
0x0caf4…0cb44 Head {h00=0x004c, h01=0x0050, text=» ADK A3,1 MOVE TO NEXT CHARACTER «, t00=0x0081, t01=0x0174}
0x0cb44…0cb94 Head {h00=0x004c, h01=0x0050, text=» LCR A1,A3 «, t00=0x0082, t01=0x0034}
0x0cb94…0cbbc Head {h00=0x0024, h01=0x0050, text=» ANK A1,/FF CLEAN THE LEFT HALF «, t00=0x0082, t01=0x0084}
0x0cbbc…0cc0c Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0082, t01=0x00ac}
0x0cc0c…0cc5c Head {h00=0x004c, h01=0x0050, text=» CF A14,FLACHK CHECK FOR FLASHING FIELDS «, t00=0x0082, t01=0x00fc}
0x0cc5c…0ccac Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0082, t01=0x014c}
0x0ccac…0ccfc Head {h00=0x004c, h01=0x0050, text=» CWR A3,A6 END ? «, t00=0x0083, t01=0x000c}
0x0ccfc…0cd4c Head {h00=0x004c, h01=0x0050, text=» RF(G) UNP910 «, t00=0x0083, t01=0x005c}
0x0cd4c…0cd9c Head {h00=0x004c, h01=0x0050, text=» RB UNP905 NO CONTINUE «, t00=0x0083, t01=0x00ac}
0x0cd9c…0cdec Head {h00=0x004c, h01=0x0050, text=»UNP910 EQU * «, t00=0x0083, t01=0x00fc}
0x0cdec…0ce3c Head {h00=0x004c, h01=0x0050, text=» LD A1,FLATAB,A4 SEE IF FLASHING FIELDS EXIST «, t00=0x0083, t01=0x014c}
0x0ce3c…0ce8c Head {h00=0x004c, h01=0x0050, text=» RF(Z) UNP915 «, t00=0x0084, t01=0x000c}
0x0ce8c…0cedc Head {h00=0x004c, h01=0x0050, text=» IM WORK3,A4 YES FLAG IT «, t00=0x0084, t01=0x005c}
0x0cedc…0cf2c Head {h00=0x004c, h01=0x0050, text=»UNP915 EQU * «, t00=0x0084, t01=0x00ac}
0x0cf2c…0cf7c Head {h00=0x004c, h01=0x0050, text=» RTN A14 FINISHED «, t00=0x0084, t01=0x00fc}
0x0cf7c…0cfcc Head {h00=0x004c, h01=0x0050, text=» EJECT «, t00=0x0084, t01=0x014c}
0x0cfcc…0d01c Head {h00=0x004c, h01=0x0050, text=»FLACHK EQU * «, t00=0x0085, t01=0x000c}
0x0d01c…0d06c Head {h00=0x004c, h01=0x0050, text=» CCK A1,LF IF LINE FEED UPDATE CURSOR «, t00=0x0085, t01=0x005c}
0x0d06c…0d0bc Head {h00=0x004c, h01=0x0050, text=» RF(E) FLA000 «, t00=0x0085, t01=0x00ac}
0x0d0bc…0d10c Head {h00=0x004c, h01=0x0050, text=» CCK A1,CR IF CARRIAGE RETURN DITTO «, t00=0x0085, t01=0x00fc}
0x0d10c…0d15c Head {h00=0x004c, h01=0x0050, text=» RF(E) FLA000 «, t00=0x0085, t01=0x014c}
0x0d15c…0d1ac Head {h00=0x004c, h01=0x0050, text=» CCK A1,SI IF SI THEN START OF FIELD «, t00=0x0086, t01=0x000c}
0x0d1ac…0d1fc Head {h00=0x004c, h01=0x0050, text=» RF(E) FLA005 «, t00=0x0086, t01=0x005c}
0x0d1fc…0d24c Head {h00=0x004c, h01=0x0050, text=» CCK A1,SO IF SO,SKIP IT «, t00=0x0086, t01=0x00ac}
0x0d24c…0d29c Head {h00=0x004c, h01=0x0050, text=» RF(E) FLARTN «, t00=0x0086, t01=0x00fc}
0x0d29c…0d2ec Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0086, t01=0x014c}
0x0d2ec…0d33c Head {h00=0x004c, h01=0x0050, text=» ADK A7,1 UPDATE CURSOR POSITION «, t00=0x0087, t01=0x000c}
0x0d33c…0d38c Head {h00=0x004c, h01=0x0050, text=» LDR A2,A7 «, t00=0x0087, t01=0x005c}
0x0d38c…0d3dc Head {h00=0x004c, h01=0x0050, text=» ANK A2,/FF «, t00=0x0087, t01=0x00ac}
0x0d3dc…0d42c Head {h00=0x004c, h01=0x0050, text=» CWK A2,/0028 END OF LINE ? «, t00=0x0087, t01=0x00fc}
0x0d42c…0d47c Head {h00=0x004c, h01=0x0050, text=» RF(NG) FLARTN NO CONTINUE «, t00=0x0087, t01=0x014c}
0x0d47c…0d4cc Head {h00=0x004c, h01=0x0050, text=»FLA000 EQU * «, t00=0x0088, t01=0x000c}
0x0d4cc…0d51c Head {h00=0x004c, h01=0x0050, text=» ADKL A7,/0100 CURSOR TO NEXT LINE «, t00=0x0088, t01=0x005c}
0x0d51c…0d56c Head {h00=0x004c, h01=0x0050, text=» ANKL A7,/FF00 «, t00=0x0088, t01=0x00ac}
0x0d56c…0d5bc Head {h00=0x004c, h01=0x0050, text=» ADKL A7,/0001 POSITION 1 «, t00=0x0088, t01=0x00fc}
0x0d5bc…0d60c Head {h00=0x004c, h01=0x0050, text=» RF FLARTN «, t00=0x0088, t01=0x014c}
0x0d60c…0d65c Head {h00=0x004c, h01=0x0050, text=»FLA005 EQU * «, t00=0x0089, t01=0x000c}
0x0d65c…0d6ac Head {h00=0x004c, h01=0x0050, text=» IM FLATAB,A4 COUNT THE FIELD «, t00=0x0089, t01=0x005c}
0x0d6ac…0d6fc Head {h00=0x004c, h01=0x0050, text=» LDR A2,A3 SAVE POSITION TO CALCULATE «, t00=0x0089, t01=0x00ac}
0x0d6fc…0d74c Head {h00=0x004c, h01=0x0050, text=» ADK A2,1 MOVE PAST SI «, t00=0x0089, t01=0x00fc}
0x0d74c…0d79c Head {h00=0x004c, h01=0x0050, text=»FLA010 EQU * «, t00=0x0089, t01=0x014c}
0x0d79c…0d7ec Head {h00=0x004c, h01=0x0050, text=» ADK A3,1 MOVE PAST SI «, t00=0x008a, t01=0x000c}
0x0d7ec…0d83c Head {h00=0x004c, h01=0x0050, text=» ST A3,FLINPO,A5 POINTS TO START OF FIELD «, t00=0x008a, t01=0x005c}
0x0d83c…0d88c Head {h00=0x004c, h01=0x0050, text=» ST A7,FLACUR,A5 CURSOR POSITION «, t00=0x008a, t01=0x00ac}
0x0d88c…0d8dc Head {h00=0x004c, h01=0x0050, text=»FLA015 EQU * «, t00=0x008a, t01=0x00fc}
0x0d8dc…0d8fe Head {h00=0x001e, h01=0x0050, text=» CWR A3,A6 END OF INPUT ? «, t00=0x008a, t01=0x014c}
0x0d8fe…0d914 Head {h00=0x0012, h01=0x0050, text=» RF(G) FLA025 «, t00=0x008a, t01=0x016e}
0x0d914…0d964 Head {h00=0x004c, h01=0x0050, text=» LCR A1,A3 LOOK FOR END OF FIELD «, t00=0x008a, t01=0x0184}
0x0d964…0d9b4 Head {h00=0x004c, h01=0x0050, text=» CCK A1,SO END OF FIELD = SI, SO, CR, LF «, t00=0x008b, t01=0x0044}
0x0d9b4…0da04 Head {h00=0x004c, h01=0x0050, text=» RF(E) FLA020 «, t00=0x008b, t01=0x0094}
0x0da04…0da54 Head {h00=0x004c, h01=0x0050, text=» CCK A1,SI «, t00=0x008b, t01=0x00e4}
0x0da54…0daa4 Head {h00=0x004c, h01=0x0050, text=» RF(E) FLA020 «, t00=0x008b, t01=0x0134}
0x0daa4…0daf4 Head {h00=0x004c, h01=0x0050, text=» CCK A1,LF «, t00=0x008b, t01=0x0184}
0x0daf4…0db44 Head {h00=0x004c, h01=0x0050, text=» RF(E) FLA020 «, t00=0x008c, t01=0x0044}
0x0db44…0db94 Head {h00=0x004c, h01=0x0050, text=» CCK A1,CR «, t00=0x008c, t01=0x0094}
0x0db94…0dbe4 Head {h00=0x004c, h01=0x0050, text=» RF(E) FLA020 «, t00=0x008c, t01=0x00e4}
0x0dbe4…0dc0e Head {h00=0x0026, h01=0x0050, text=» CCK A1,NULL IF NULL INSERT X'AE' «, t00=0x008c, t01=0x0134}
0x0dc0e…0dc24 Head {h00=0x0012, h01=0x0050, text=» RF(E) FLA030 «, t00=0x008c, t01=0x015e}
0x0dc24…0dc50 Head {h00=0x0028, h01=0x0050, text=» CCK A1,DKOE1 THE DANISH CONVERSIONS«, t00=0x008c, t01=0x0174}
0x0dc50…0dc66 Head {h00=0x0012, h01=0x0050, text=» RF(E) FLA035 «, t00=0x008d, t01=0x0010}
0x0dc66…0dc7c Head {h00=0x0012, h01=0x0050, text=» CCK A1,DKAE1 «, t00=0x008d, t01=0x0026}
0x0dc7c…0dc92 Head {h00=0x0012, h01=0x0050, text=» RF(E) FLA040 «, t00=0x008d, t01=0x003c}
0x0dc92…0dca8 Head {h00=0x0012, h01=0x0050, text=» CCK A1,DKAA1 «, t00=0x008d, t01=0x0052}
0x0dca8…0dcbe Head {h00=0x0012, h01=0x0050, text=» RF(E) FLA045 «, t00=0x008d, t01=0x0068}
0x0dcbe…0dcd4 Head {h00=0x0012, h01=0x0050, text=»FLA017 EQU * «, t00=0x008d, t01=0x007e}
0x0dcd4…0dcf4 Head {h00=0x001c, h01=0x0050, text=» ADK A7,1 UPDATE CURSOR «, t00=0x008d, t01=0x0094}
0x0dcf4…0dd44 Head {h00=0x004c, h01=0x0050, text=» ADK A3,1 UPDATE POINTER «, t00=0x008d, t01=0x00b4}
0x0dd44…0dd94 Head {h00=0x004c, h01=0x0050, text=» RB FLA015 «, t00=0x008d, t01=0x0104}
0x0dd94…0dde4 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x008d, t01=0x0154}
0x0dde4…0de34 Head {h00=0x004c, h01=0x0050, text=»FLA020 EQU * «, t00=0x008e, t01=0x0014}
0x0de34…0de84 Head {h00=0x004c, h01=0x0050, text=» SUR A2,A3 COMPUTE FIELD LENGTH «, t00=0x008e, t01=0x0064}
0x0de84…0ded4 Head {h00=0x004c, h01=0x0050, text=» C1R A2,A2 MAKE IT POSITIVE «, t00=0x008e, t01=0x00b4}
0x0ded4…0df24 Head {h00=0x004c, h01=0x0050, text=» ADK A2,1 TWO'S COMPLEMENT «, t00=0x008e, t01=0x0104}
0x0df24…0df74 Head {h00=0x004c, h01=0x0050, text=» ST A2,FLALEN,A5 PUT LENGTH IN TABLE «, t00=0x008e, t01=0x0154}
0x0df74…0dfc4 Head {h00=0x004c, h01=0x0050, text=» ADK A5,6 POINTS TO NEXT FIELD «, t00=0x008f, t01=0x0014}
0x0dfc4…0e014 Head {h00=0x004c, h01=0x0050, text=» RF FLARTN «, t00=0x008f, t01=0x0064}
0x0e014…0e064 Head {h00=0x004c, h01=0x0050, text=»FLA025 EQU * «, t00=0x008f, t01=0x00b4}
0x0e064…0e0b4 Head {h00=0x004c, h01=0x0050, text=» SUK A3,1 CORRECT FOR OVER-SHOOT «, t00=0x008f, t01=0x0104}
0x0e0b4…0e104 Head {h00=0x004c, h01=0x0050, text=» RB FLA020 «, t00=0x008f, t01=0x0154}
0x0e104…0e11a Head {h00=0x0012, h01=0x0050, text=»FLA030 EQU * «, t00=0x0090, t01=0x0014}
0x0e11a…0e13c Head {h00=0x001e, h01=0x0050, text=» LDK A1,POINT INSERT A . «, t00=0x0090, t01=0x002a}
0x0e13c…0e150 Head {h00=0x0010, h01=0x0050, text=» SCR A1,A3 «, t00=0x0090, t01=0x004c}
0x0e150…0e164 Head {h00=0x0010, h01=0x0050, text=» RB FLA017 «, t00=0x0090, t01=0x0060}
0x0e164…0e17a Head {h00=0x0012, h01=0x0050, text=»FLA035 EQU * «, t00=0x0090, t01=0x0074}
0x0e17a…0e1ae Head {h00=0x0030, h01=0x0050, text=» LDK A1,DKOE2 THE END OF DANISH CONVERSIONS «, t00=0x0090, t01=0x008a}
0x0e1ae…0e1c2 Head {h00=0x0010, h01=0x0050, text=» SCR A1,A3 «, t00=0x0090, t01=0x00be}
0x0e1c2…0e1d6 Head {h00=0x0010, h01=0x0050, text=» RB FLA017 «, t00=0x0090, t01=0x00d2}
0x0e1d6…0e1ec Head {h00=0x0012, h01=0x0050, text=»FLA040 EQU * «, t00=0x0090, t01=0x00e6}
0x0e1ec…0e202 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DKAE2 «, t00=0x0090, t01=0x00fc}
0x0e202…0e216 Head {h00=0x0010, h01=0x0050, text=» SCR A1,A3 «, t00=0x0090, t01=0x0112}
0x0e216…0e22a Head {h00=0x0010, h01=0x0050, text=» RB FLA017 «, t00=0x0090, t01=0x0126}
0x0e22a…0e240 Head {h00=0x0012, h01=0x0050, text=»FLA045 EQU * «, t00=0x0090, t01=0x013a}
0x0e240…0e258 Head {h00=0x0014, h01=0x0050, text=» LDK A1,DKAA2 «, t00=0x0090, t01=0x0150}
0x0e258…0e26c Head {h00=0x0010, h01=0x0050, text=» SCR A1,A3 «, t00=0x0090, t01=0x0168}
0x0e26c…0e280 Head {h00=0x0010, h01=0x0050, text=» RB FLA017 «, t00=0x0090, t01=0x017c}
0x0e280…0e2d0 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0090, t01=0x0190}
0x0e2d0…0e320 Head {h00=0x004c, h01=0x0050, text=»FLARTN EQU * «, t00=0x0091, t01=0x0050}
0x0e320…0e370 Head {h00=0x004c, h01=0x0050, text=» RTN A14 «, t00=0x0091, t01=0x00a0}
0x0e370…0e380 Head {h00=0x000c, h01=0x0050, text=» EJECT «, t00=0x0091, t01=0x00f0}
0x0e380…0e3d0 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0091, t01=0x0100}
0x0e3d0…0e420 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0091, t01=0x0150}
0x0e420…0e470 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0092, t01=0x0010}
0x0e470…0e4c0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0092, t01=0x0060}
0x0e4c0…0e510 Head {h00=0x004c, h01=0x0050, text=»* THIS MODULE WILL FLASH THE FIELDS ON A PDU *«, t00=0x0092, t01=0x00b0}
0x0e510…0e560 Head {h00=0x004c, h01=0x0050, text=»* AS DESCRIBED BY THE TABLE FLATAB, WHICH GIVES *«, t00=0x0092, t01=0x0100}
0x0e560…0e5b0 Head {h00=0x004c, h01=0x0050, text=»* THE CURSOR POSITIONS, LENGTHS AND A POINTER TO *«, t00=0x0092, t01=0x0150}
0x0e5b0…0e600 Head {h00=0x004c, h01=0x0050, text=»* THE ORIGINAL CONTENTS... *«, t00=0x0093, t01=0x0010}
0x0e600…0e650 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0093, t01=0x0060}
0x0e650…0e6a0 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0093, t01=0x00b0}
0x0e6a0…0e6f0 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0093, t01=0x0100}
0x0e6f0…0e740 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0093, t01=0x0150}
0x0e740…0e790 Head {h00=0x004c, h01=0x0050, text=»KBFLSH EQU * «, t00=0x0094, t01=0x0010}
0x0e790…0e7e0 Head {h00=0x004c, h01=0x0050, text=» CF A14,I:EVA0 CREDIT ENTRY, GET WORK AREA «, t00=0x0094, t01=0x0060}
0x0e7e0…0e830 Head {h00=0x004c, h01=0x0050, text=» LDR A4,A9 «, t00=0x0094, t01=0x00b0}
0x0e830…0e85c Head {h00=0x0028, h01=0x0050, text=» LD A1,WORK3,A4 ANY FLASHING FIELDS?«, t00=0x0094, t01=0x0100}
0x0e85c…0e880 Head {h00=0x0020, h01=0x0050, text=» RF(Z) FLAEND NO, EXIT AGAIN«, t00=0x0094, t01=0x012c}
0x0e880…0e8d0 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0094, t01=0x0150}
0x0e8d0…0e920 Head {h00=0x004c, h01=0x0050, text=»PFLASH EQU * «, t00=0x0095, t01=0x0010}
0x0e920…0e970 Head {h00=0x004c, h01=0x0050, text=» ASSEMBLER ENTRY «, t00=0x0095, t01=0x0060}
0x0e970…0e996 Head {h00=0x0022, h01=0x0050, text=» LDKL A9,FLATAB GET THE TABLE «, t00=0x0095, t01=0x00b0}
0x0e996…0e9e6 Head {h00=0x004c, h01=0x0050, text=» ADR A9,A4 «, t00=0x0095, t01=0x00d6}
0x0e9e6…0ea36 Head {h00=0x004c, h01=0x0050, text=» LDR A5,A9 ENTRY POINTER «, t00=0x0095, t01=0x0126}
0x0ea36…0ea86 Head {h00=0x004c, h01=0x0050, text=» ADK A5,2 SKIP NUMBER OF FIELDS «, t00=0x0095, t01=0x0176}
0x0ea86…0ead6 Head {h00=0x004c, h01=0x0050, text=» LDK A6,1 INITIALIZE FIELD COUNTER «, t00=0x0096, t01=0x0036}
0x0ead6…0eb26 Head {h00=0x004c, h01=0x0050, text=» LD A8,DYECB,A4 GET DISPLAY ECB «, t00=0x0096, t01=0x0086}
0x0eb26…0eb76 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0096, t01=0x00d6}
0x0eb76…0ebc6 Head {h00=0x004c, h01=0x0050, text=» CF A14,BLANK FIRST BLANK THE FIELDS «, t00=0x0096, t01=0x0126}
0x0ebc6…0ec16 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0096, t01=0x0176}
0x0ec16…0ec40 Head {h00=0x0026, h01=0x0050, text=» LDKL A8,3 WAIT 500 MILLI-SECONDS «, t00=0x0097, t01=0x0036}
0x0ec40…0ec4e Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x0097, t01=0x0060}
0x0ec4e…0ec60 Head {h00=0x000e, h01=0x0050, text=» DATA 6 «, t00=0x0097, t01=0x006e}
0x0ec60…0ec6c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0097, t01=0x0080}
0x0ec6c…0ec90 Head {h00=0x0020, h01=0x0050, text=» LD A8,DYECB,A4 RETSORE A8 «, t00=0x0097, t01=0x008c}
0x0ec90…0ece0 Head {h00=0x004c, h01=0x0050, text=» LDR A5,A9 RESET POINTER «, t00=0x0097, t01=0x00b0}
0x0ece0…0ed30 Head {h00=0x004c, h01=0x0050, text=» ADK A5,2 «, t00=0x0097, t01=0x0100}
0x0ed30…0ed80 Head {h00=0x004c, h01=0x0050, text=» LDK A6,1 AND COUNTER «, t00=0x0097, t01=0x0150}
0x0ed80…0edd0 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0098, t01=0x0010}
0x0edd0…0ee20 Head {h00=0x004c, h01=0x0050, text=» CF A14,REWRIT RE-WRITE THE FIELDS «, t00=0x0098, t01=0x0060}
0x0ee20…0ee70 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x0098, t01=0x00b0}
0x0ee70…0ee9a Head {h00=0x0026, h01=0x0050, text=» LDKL A8,3 WAIT 500 MILLI-SECONDS «, t00=0x0098, t01=0x0100}
0x0ee9a…0eea8 Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x0098, t01=0x012a}
0x0eea8…0eeb8 Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x0098, t01=0x0138}
0x0eeb8…0eecc Head {h00=0x0010, h01=0x0050, text=»FLAEND EQU *«, t00=0x0098, t01=0x0148}
0x0eecc…0ef1c Head {h00=0x004c, h01=0x0050, text=» RTN A14 RETURN TO CALLER «, t00=0x0098, t01=0x015c}
0x0ef1c…0ef6c Head {h00=0x004c, h01=0x0050, text=» EJECT «, t00=0x0099, t01=0x001c}
0x0ef6c…0efbc Head {h00=0x004c, h01=0x0050, text=»BLANK EQU * «, t00=0x0099, t01=0x006c}
0x0efbc…0f00c Head {h00=0x004c, h01=0x0050, text=» LDKL A1,BLANKS SET UP BUFFER «, t00=0x0099, t01=0x00bc}
0x0f00c…0f01e Head {h00=0x000e, h01=0x0050, text=» ADR A1,A4«, t00=0x0099, t01=0x010c}
0x0f01e…0f036 Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBBA,A8 «, t00=0x0099, t01=0x011e}
0x0f036…0f086 Head {h00=0x004c, h01=0x0050, text=» ST A1,ECBBA,A8 «, t00=0x0099, t01=0x0136}
0x0f086…0f0d6 Head {h00=0x004c, h01=0x0050, text=»BLK000 EQU * «, t00=0x0099, t01=0x0186}
0x0f0d6…0f126 Head {h00=0x004c, h01=0x0050, text=» CF A14,BLKFLD BLANK ONE FIELD «, t00=0x009a, t01=0x0046}
0x0f126…0f176 Head {h00=0x004c, h01=0x0050, text=» ADK A5,6 MOVE TO NEXT FIELD «, t00=0x009a, t01=0x0096}
0x0f176…0f1c6 Head {h00=0x004c, h01=0x0050, text=» ADK A6,1 COUNT IT «, t00=0x009a, t01=0x00e6}
0x0f1c6…0f216 Head {h00=0x004c, h01=0x0050, text=» LD A1,FLATAB,A4 CHECK IF FINISHED «, t00=0x009a, t01=0x0136}
0x0f216…0f266 Head {h00=0x004c, h01=0x0050, text=» CWR A6,A1 «, t00=0x009a, t01=0x0186}
0x0f266…0f2b6 Head {h00=0x004c, h01=0x0050, text=» RB(NG) BLK000 NO,CONTINUE «, t00=0x009b, t01=0x0046}
0x0f2b6…0f2ce Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBBA,A8 «, t00=0x009b, t01=0x0096}
0x0f2ce…0f31e Head {h00=0x004c, h01=0x0050, text=» RTN A14 FINISHED «, t00=0x009b, t01=0x00ae}
0x0f31e…0f36e Head {h00=0x004c, h01=0x0050, text=» «, t00=0x009b, t01=0x00fe}
0x0f36e…0f3be Head {h00=0x004c, h01=0x0050, text=» EJECT «, t00=0x009b, t01=0x014e}
0x0f3be…0f40e Head {h00=0x004c, h01=0x0050, text=»BLKFLD EQU * «, t00=0x009c, t01=0x000e}
0x0f40e…0f45e Head {h00=0x004c, h01=0x0050, text=» LD A2,ECBBA,A8 GET BUFFER ADDRESS «, t00=0x009c, t01=0x005e}
0x0f45e…0f4ae Head {h00=0x004c, h01=0x0050, text=» LDK A1,SETCUR SET CURSOR POSITION «, t00=0x009c, t01=0x00ae}
0x0f4ae…0f4fe Head {h00=0x004c, h01=0x0050, text=» SCR A1,A2 PUT IT IN BUFFER «, t00=0x009c, t01=0x00fe}
0x0f4fe…0f54e Head {h00=0x004c, h01=0x0050, text=» ADK A2,1 «, t00=0x009c, t01=0x014e}
0x0f54e…0f59e Head {h00=0x004c, h01=0x0050, text=» LD A1,FLACUR,A5 «, t00=0x009d, t01=0x000e}
0x0f59e…0f5ee Head {h00=0x004c, h01=0x0050, text=» ADKL A1,/1F1F MAKE CURS. POS DISPLAY «, t00=0x009d, t01=0x005e}
0x0f5ee…0f63e Head {h00=0x004c, h01=0x0050, text=» SCR A1,A2 PUT IN LINE NUMBER «, t00=0x009d, t01=0x00ae}
0x0f63e…0f68e Head {h00=0x004c, h01=0x0050, text=» ADK A2,1 «, t00=0x009d, t01=0x00fe}
0x0f68e…0f6de Head {h00=0x004c, h01=0x0050, text=» SRL A1,8 «, t00=0x009d, t01=0x014e}
0x0f6de…0f72e Head {h00=0x004c, h01=0x0050, text=» SCR A1,A2 PUT IN COLUMN NUMBER «, t00=0x009e, t01=0x000e}
0x0f72e…0f77e Head {h00=0x004c, h01=0x0050, text=» ADK A2,1 «, t00=0x009e, t01=0x005e}
0x0f77e…0f7ce Head {h00=0x004c, h01=0x0050, text=» «, t00=0x009e, t01=0x00ae}
0x0f7ce…0f81e Head {h00=0x004c, h01=0x0050, text=» «, t00=0x009e, t01=0x00fe}
0x0f81e…0f86e Head {h00=0x004c, h01=0x0050, text=» LDKL A1,FAST «, t00=0x009e, t01=0x014e}
0x0f86e…0f8be Head {h00=0x004c, h01=0x0050, text=» LD A10,FLALEN,A5 GET LENGTH OF FIELD «, t00=0x009f, t01=0x000e}
0x0f8be…0f90e Head {h00=0x004c, h01=0x0050, text=» ADR A1,A10 «, t00=0x009f, t01=0x005e}
0x0f90e…0f95e Head {h00=0x004c, h01=0x0050, text=» ECR A1,A1 PUT IT IN RIGHT ORDER «, t00=0x009f, t01=0x00ae}
0x0f95e…0f9ae Head {h00=0x004c, h01=0x0050, text=» SCR A1,A2 IN BUFFER «, t00=0x009f, t01=0x00fe}
0x0f9ae…0f9fe Head {h00=0x004c, h01=0x0050, text=» ADK A2,1 «, t00=0x009f, t01=0x014e}
0x0f9fe…0fa4e Head {h00=0x004c, h01=0x0050, text=» SRL A1,8 «, t00=0x00a0, t01=0x000e}
0x0fa4e…0fa9e Head {h00=0x004c, h01=0x0050, text=» SCR A1,A2 «, t00=0x00a0, t01=0x005e}
0x0fa9e…0faee Head {h00=0x004c, h01=0x0050, text=» ADK A2,1 «, t00=0x00a0, t01=0x00ae}
0x0faee…0fb3e Head {h00=0x004c, h01=0x0050, text=» LDK A1,SPACE THE BLANKS «, t00=0x00a0, t01=0x00fe}
0x0fb3e…0fb8e Head {h00=0x004c, h01=0x0050, text=» SCR A1,A2 «, t00=0x00a0, t01=0x014e}
0x0fb8e…0fbde Head {h00=0x004c, h01=0x0050, text=» «, t00=0x00a1, t01=0x000e}
0x0fbde…0fc08 Head {h00=0x0026, h01=0x0050, text=» LDK A1,6 SET UP REQUESTED LENGTH «, t00=0x00a1, t01=0x005e}
0x0fc08…0fc58 Head {h00=0x004c, h01=0x0050, text=» ST A1,ECBRL,A8 «, t00=0x00a1, t01=0x0088}
0x0fc58…0fca8 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x00a1, t01=0x00d8}
0x0fca8…0fcf8 Head {h00=0x004c, h01=0x0050, text=» CF 14,LINKUM WRITE IT... «, t00=0x00a1, t01=0x0128}
0x0fcf8…0fd48 Head {h00=0x004c, h01=0x0050, text=» «, t00=0x00a1, t01=0x0178}
0x0fd48…0fd98 Head {h00=0x004c, h01=0x0050, text=» RTN A14 «, t00=0x00a2, t01=0x0038}
0x0fd98…0fde8 Head {h00=0x004c, h01=0x0050, text=» EJECT «, t00=0x00a2, t01=0x0088}
0x0fde8…0fe38 Head {h00=0x004c, h01=0x0050, text=»REWRIT EQU * «, t00=0x00a2, t01=0x00d8}
0x0fe38…0fe5a Head {h00=0x001e, h01=0x0050, text=» LD A10,ECBBA,A8 SAVE IT «, t00=0x00a2, t01=0x0128}
0x0fe5a…0fe6e Head {h00=0x0010, h01=0x0050, text=»REW000 EQU *«, t00=0x00a2, t01=0x014a}
0x0fe6e…0febe Head {h00=0x004c, h01=0x0050, text=» LD A2,FLINPO,A5 GET ORIGINAL DATA «, t00=0x00a2, t01=0x015e}
0x0febe…0ff0e Head {h00=0x004c, h01=0x0050, text=» SUK A2,3 MAKE ROOM FOR CURSOR POSITION «, t00=0x00a3, t01=0x001e}
0x0ff0e…0ff5e Head {h00=0x004c, h01=0x0050, text=» ST A2,ECBBA,A8 «, t00=0x00a3, t01=0x006e}
0x0ff5e…0ffae Head {h00=0x004c, h01=0x0050, text=» LDK A1,SETCUR «, t00=0x00a3, t01=0x00be}
0x0ffae…0fffe Head {h00=0x004c, h01=0x0050, text=» SCR A1,A2 PUT IT IN THERE «, t00=0x00a3, t01=0x010e}
0x0fffe…1004e Head {h00=0x004c, h01=0x0050, text=» ADK A2,1 «, t00=0x00a3, t01=0x015e}
0x1004e…1009e Head {h00=0x004c, h01=0x0050, text=» LD A1,FLACUR,A5 «, t00=0x00a4, t01=0x001e}
0x1009e…100ee Head {h00=0x004c, h01=0x0050, text=» ADKL A1,/1F1F «, t00=0x00a4, t01=0x006e}
0x100ee…1013e Head {h00=0x004c, h01=0x0050, text=» SCR A1,A2 «, t00=0x00a4, t01=0x00be}
0x1013e…1018e Head {h00=0x004c, h01=0x0050, text=» ADK A2,1 «, t00=0x00a4, t01=0x010e}
0x1018e…101de Head {h00=0x004c, h01=0x0050, text=» SRL A1,8 «, t00=0x00a4, t01=0x015e}
0x101de…1022e Head {h00=0x004c, h01=0x0050, text=» SCR A1,A2 «, t00=0x00a5, t01=0x001e}
0x1022e…1027e Head {h00=0x004c, h01=0x0050, text=» «, t00=0x00a5, t01=0x006e}
0x1027e…102ce Head {h00=0x004c, h01=0x0050, text=» LD A1,FLALEN,A5 GET THE FIELD LENGTH «, t00=0x00a5, t01=0x00be}
0x102ce…1031e Head {h00=0x004c, h01=0x0050, text=» ADK A1,3 «, t00=0x00a5, t01=0x010e}
0x1031e…1036e Head {h00=0x004c, h01=0x0050, text=» ST A1,ECBRL,A8 «, t00=0x00a5, t01=0x015e}
0x1036e…103be Head {h00=0x004c, h01=0x0050, text=» «, t00=0x00a6, t01=0x001e}
0x103be…1040e Head {h00=0x004c, h01=0x0050, text=» CF A14,LINKUM WRITE IT... «, t00=0x00a6, t01=0x006e}
0x1040e…1045e Head {h00=0x004c, h01=0x0050, text=» «, t00=0x00a6, t01=0x00be}
0x1045e…104ae Head {h00=0x004c, h01=0x0050, text=» ADK A5,6 UPDATE AND WRITE REST «, t00=0x00a6, t01=0x010e}
0x104ae…104fe Head {h00=0x004c, h01=0x0050, text=» ADK A6,1 «, t00=0x00a6, t01=0x015e}
0x104fe…1054e Head {h00=0x004c, h01=0x0050, text=» LD A2,FLATAB,A4 CHECK END «, t00=0x00a7, t01=0x001e}
0x1054e…1059e Head {h00=0x004c, h01=0x0050, text=» CWR A6,A2 «, t00=0x00a7, t01=0x006e}
0x1059e…105ee Head {h00=0x004c, h01=0x0050, text=» RF(G) REW100 YES, RETURN «, t00=0x00a7, t01=0x00be}
0x105ee…1063e Head {h00=0x004c, h01=0x0050, text=» RB REW000 NO, CONTINUE «, t00=0x00a7, t01=0x010e}
0x1063e…1068e Head {h00=0x004c, h01=0x0050, text=»REW100 EQU * «, t00=0x00a7, t01=0x015e}
0x1068e…106bc Head {h00=0x002a, h01=0x0050, text=» ST A10,ECBBA,A8 RESTORE BUFFER ADDR. «, t00=0x00a8, t01=0x001e}
0x106bc…1070c Head {h00=0x004c, h01=0x0050, text=» RTN A14 «, t00=0x00a8, t01=0x004c}
0x1070c…1071e Head {h00=0x000e, h01=0x0050, text=» EJECT «, t00=0x00a8, t01=0x009c}
0x1071e…1076e Head {h00=0x004c, h01=0x0050, text=» «, t00=0x00a8, t01=0x00ae}
0x1076e…107be Head {h00=0x004c, h01=0x0050, text=» «, t00=0x00a8, t01=0x00fe}
0x107be…1080e Head {h00=0x004c, h01=0x0050, text=» «, t00=0x00a8, t01=0x014e}
0x1080e…1085e Head {h00=0x004c, h01=0x0050, text=»LINKUM EQU * «, t00=0x00a9, t01=0x000e}
0x1085e…108ae Head {h00=0x004c, h01=0x0050, text=» LDK A7,/85 BASIC WRITE WITH WAIT «, t00=0x00a9, t01=0x005e}
0x108ae…108fe Head {h00=0x004c, h01=0x0050, text=» LKM «, t00=0x00a9, t01=0x00ae}
0x108fe…1094e Head {h00=0x004c, h01=0x0050, text=» DATA 1 «, t00=0x00a9, t01=0x00fe}
0x1094e…1099e Head {h00=0x004c, h01=0x0050, text=» RTN A14 «, t00=0x00a9, t01=0x014e}
0x1099e…109ee Head {h00=0x004c, h01=0x0050, text=» «, t00=0x00aa, t01=0x000e}
0x109ee…10a3e Head {h00=0x004c, h01=0x0050, text=» «, t00=0x00aa, t01=0x005e}
0x10a3e…10a8e Head {h00=0x004c, h01=0x0050, text=» END «, t00=0x00aa, t01=0x00ae}
0x10a8e…10a92 Head {h00=0x4004, h01=0x0000}
0x10a92…10a96 00 aa 00 fe ┆ ┆
0x10a96…10a9e (171, 1, 8) 20 04 00 00 00 ab 00 04 ┆ ┆
0x10a9e…10aee (172, 2, 212) 00 38 00 48 20 49 44 45 4e 54 20 43 3a 43 42 31 30 20 20 54 52 41 20 34 2e 32 20 20 38 31 2d 31 31 2d 32 39 20 46 31 20 4f 31 31 31 31 20 20 38 31 31 30 31 37 20 4e 4a 00 0c 00 04 00 0e 00 0a 01 04 c8 43 3a 43 42 31 30 00 00 0c 00 40 00 10 ┆ 8 H IDENT C:CB10 TRA 4.2 81-11-29 F1 O1111 811017 NJ C:CB10 @ ┆
0x10aee…10b3e 00 0c 05 05 c8 43 3a 43 42 31 30 43 00 04 00 0c 00 52 00 2a 00 26 03 12 00 00 00 01 00 00 00 00 00 00 00 00 00 01 00 02 00 03 00 04 00 05 00 06 00 07 00 08 00 09 00 0a 00 0b 00 0c 00 0c 00 66 00 12 00 0e 03 06 00 00 00 1f 00 00 00 0d 00 0e ┆ C:CB10C R * & f ┆
0x10b3e…10b72 00 50 00 0c 00 94 00 10 00 0c 04 05 00 00 00 01 00 24 00 03 00 01 00 0c 00 aa 00 0e 00 0a 07 04 00 00 00 1f 00 24 00 00 00 0c 00 be 40 04 00 00 00 0c 00 d0 ┆ P $ $ @ ┆