|
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: 15344 (0x3bf0)
Notes: pts_type(SC)
Names: »SUBS.SC«
└─⟦cd4bbebb4⟧ Bits:30009680 Philips computer tape "600221"
└─⟦this⟧ »ATM6601/SUBS.SC«
IDENT SUBS 830427 NIJO ************************************************************************ * THIS ROUTINE CONTAINS VARIOUS SUBROUTINES USED WITHIN * THE ATM DEMO PACKAGE T A B S I M. ************************************************************************ DDUM DDIV PDIV ENTRY LOADER ENTRY TABINT EXPROC SCRIBE,PFRMT EXPROC KBINP EXPROC DLLATM EXPROC OPEN EXPROC CLOSE EXPROC READ EXPROC OPRCMD EJECT LOADER PROC * * THIS ROUTINE DOWNLINELOADS THE STATES, SCREENS ETC TO THE ATM. * THE INPUT IS TO RESIDE ON A FLOPPY FILE, CREATED BY THE ATM- * CONFIGURATOR. INPUT TO THE CONFIGURATOR IS CREATED BY THE * NORMAL EDITOR. * LOA010 MOVE VARIOUS,=C'SPECIFY DLL-FILE (IF NOT "MASTER")... ' PERF SCRIBE,VARIUS PERF KBINP BOK LOA020 PERF SCRIBE,WRONG INPUT ERROR B LOA010 TRY AGAIN LOA020 MOVE INFO,=C' ' PERF SCRIBE,INF CBNE INDEX,COB1,LOA010 NOT <ENTER> SUB LENGTH,COB1 THROW AWAY ENTER-KEY BNZ LOA025 NOT DEFAULT MOVE BUFIN,=C'MASTER ' MOVE LENGTH,COB6 LOA025 COPY DSFTABLE(COB1),COB0,COB8,INFO,COB0 COPY DSFTABLE(COB1),COB0,LENGTH,BUFIN,COB0 CHANGE FILENAME COPY DSFTABLE(COB1),COB8,COB6,VOLUME,COB0 CLEAR EOF PERF OPEN,COB1,WKB1 OPEN SOURCEFILE BOK LOA030 MOVE VARIOUS,=C'ASSIGNERROR ' PERF SCRIBE,VARIUS B LOA990 EXIT * LOA030 FILE IS NOW OPENED MOVE WKSTR7,=C'2' TAKE ATM OUT OF SERVICE PERF OPRCMD SEND, + RCV SOLL.STAT BNOK LOA030 TRY AGAIN MOVE VARIOUS,=C'* DOWNLINELOAD IN PROGRESS * ' PERF SCRIBE,VARIUS SET DLL INDICATE DLL IN PROGRESS MOVE WKSTG2,=X'4131201B3142331C1C1C31001C' HEADER MOVE PNT4,COB0 READ 1. LOGICAL PART MOVE RECNO,COB0 MOVE DISPL,COB0 MOVE FDLBUF,=C' ' * PERF RDNEXT READ FIRST RECORD BNOK LOA960 * PERF RDNEXT READ 2. RECORD BNOK LOA960 * PERF RDNEXT READ 3. RECORD BNOK LOA960 * LOA070 PNT4 POINTS TO MODIFIER SET MODIFLG INDICATE WE HAVE A MODIFIER XCOPY BIN5,COB0,COB2,FDLBUF,PNT4 MOVE MODIFIER ADD PNT4,COB2 LOA080 PNT4 POINTS TO RECORDNBR XCOPY BIN6,COB0,COB2,FDLBUF,PNT4 MOVE RECORDNBR ADD PNT4,COB2 XCOPY TLEN,COB0,COB2,FDLBUF,PNT4 MOVE TLEN ADD PNT4,COB2 POINT TO DATA SUB TLEN,COB4 DISREGARD RECNO+TLEN JUST NOW MOVE BUFIN,=X'00' CLEAR BUFFER XCOPY BUFIN,COB0,TLEN,FDLBUF,PNT4 * 'TLEN' CONTAINS DATATLEN IN 'BUFIN' * 'BIN5' CONTAINS MODIFIER * 'BIN6' CONTAINS RECORDNUMBER (NOT USED) MOVE LENGTH,TLEN MOVE WKBCD1,BIN5 MOVE MODIFIER EDIT WKSTG1,MODIF AND EDIT IT COPY WKSTG2,COB11,COB1,WKSTG1,COB0 MOVE IT INTO HEADER PERF DLLATM DOWNLINELOAD IT BNOK LOA970 EXIT IF ERROR ADD TLEN,COB4 RECNO+ACT.TLEN TBF MODIFLG,LOA100 MODIFIER TO BE DELETED? CLEAR MODIFLG IF SO, CLEAR FLAG ADD TLEN,COB2 AND DELETE 2 MORE SUB PNT4,COB2 LOA100 DLETE FDLBUF,COB0,TLEN SUB PNT4,COB4 SUB DISPL,TLEN XCOPY BIN7,COB0,COB2,FDLBUF,PNT4 1.WORD OF NEXT RECORD LOA105 CBNL DISPL,=W'255',LOA120 TIME FOR ANOTHER READ? TBT EOF,LOA120 PERF RDNEXT READ NEXT RECORD BNOK LOA960 B LOA105 EXTRA READ MIGHT BE NECESSARY LOA120 CBL BIN7,=W'256',LOA080 SAME SUBFILE? (:256) BG LOA940 SOME POINTER IS OVERWRITTEN ADD PNT4,COB2 POINT TO NEW MODIFIER XCOPY BIN7,COB0,COB2,FDLBUF,PNT4 AND COPY IT CBNE BIN7,=X'000A',LOA070 FINISHED IF MODIFIER="*A" MOVE VARIOUS,=C'DOWNLINE LOAD CONCLUDED CORRECTLY. ' PERF SCRIBE,VARIUS MOVE WKB1,COB1 PERF CLOSE,WKB1 CLEAR DLL CMP COB0,COB0 RET LOA940 MOVE VARIOUS,=C'DATA ERROR ON DISK ' INVALID RECORDNR PERF SCRIBE,VARIUS B LOA980 LOA960 MOVE VARIOUS,=C'READ/WRITE ERROR ON DATA DISK ' PERF SCRIBE,VARIUS B LOA980 LOA970 MOVE VARIOUS,=C'DLL ERROR ' PERF SCRIBE,VARIUS LOA980 MOVE WKB1,COB1 PERF CLOSE,WKB1 LOA990 RET PEND EJECT TABINT PROC * * THIS PROCEDURE CREATES VARIOUS TABLES AND OTHER FIELDS * IMMEDIATELY AFTER PROGRAM STARTUP. * THE INPUT IS FOUND ON VOLUME "VOLUME". * THE INPUTFIL WAS CREATED BY $PDISC * * IN THIS FILE VARIOUS RECORDTYPES MUST/CAN BE PRESENT: * :1 - DENOMINATION VALUES ETC * :2 - FUNCTION COMMANDS * - PRINTER DATA FOR THE ABOVEMENTIONED FUNCTION COMMANDS * :3 - PRINTER DATA FOR F.X. TOP-OF-RECEIPT * :256 - MARKS THE END OF THE FILE * TABI010 MOVE VARIOUS,=C'SPECIFY CONSTANTFILE (IF NOT "CONSTANT").. ' PERF SCRIBE,VARIUS PERF KBINP BOK TABI020 PERF SCRIBE,WRONG B TABI010 * TABI020 MOVE INFO,=C' ' PERF SCRIBE,INF CBNE INDEX,COB1,TABI010 TEST FOR <ENTER> * SUB LENGTH,COB1 DISREGARD ENTER-KEY BNZ TABI025 NOT DEFAULT MOVE BUFIN,=C'CONSTANT' MOVE LENGTH,=W'8' TABI025 COPY DSFTABLE(COB2),COB0,COB8,INFO,COB0 SCRATCH FILENAME COPY DSFTABLE(COB2),COB0,LENGTH,BUFIN,COB0 SET FILENAME COPY DSFTABLE(COB2),COB8,COB6,VOLUME,COB0 VOLUMENAME PERF OPEN,COB2,WKB1 OPEN CONSTANT-FILE BOK TABI030 MOVE VARIOUS,=C'ASSIGN ERROR ' PERF SCRIBE,VARIUS B TABI990 EXIT AFTER ERROR * TABI030 MOVE RECNO,COB0 TABI040 READ A RECORD ADD RECNO,COB1 PERF READ,COB2,FDBUF,RECNO,STATUS BNOK TABI980 READ ERROR (PROBABLY) MOVE WKSTG4,FDBUF EXTRACT 4 BYTES CBE WKSTG4,=C':256',TABI900 EOF FOUND? * MOVE STAT,FDBUF NOT YET EOF CBNE STAT,=C':',TABI050 NEW RECORD TYPE? * DLETE WKSTG4,COB0,COB1 DELETE TYPE DELIMITER MOVE WKBCD3,WKSTG4 CONVERT TO BCD MOVE INDEX,COB0 RECORD IDENTIFIER MOVE OLDSET,=D'-1' INIT OLDSET MOVE DISPL,COB0 INIT DIPLACEMENTPOINTER B TABI040 AND TAKE NEXT RECORD * TABI050 * THE CURRENT TYPE IS FOUND IN WKBCD3 MOVE BIN7,WKBCD3 IB BIN7,TABI100, VARIOUS CONSTANTS C TABI200, FUNCTION COMMANDS C TABI300, PRINTER DATA C TABI400, C TABI500, C TABI600, C TABI700, C TABI800 B TABI040 INVALID TYPE, IGNORE * TABI100 ADD INDEX,COB1 NEXT RECORD IDENTIFIER IB INDEX,TABI110,TABI110,TABI110,TABI110, C TABI110,TABI110,TABI110,TABI110, C TABI120, C TAB130 B TABI040 INVALID INDEX,IGNORE * TABI110 * 8 CURRENCY VALUES, RECORD IDENTIFIER 1..8 MOVE DENOM(INDEX),FDBUF CONVERT TO BCD B TABI040 * TABI120 * CURRENCY TEXT, RECORD IDENTIFIER 9 MOVE CURR,FDBUF B TABI040 * TAB130 * MAXIMUM WITHDRAWAL. NO DECIMALS MOVE DLIMIT,FDBUF B TABI040 * TABI200 * FUNCTION COMMANDS, PRINTER DATA MOVE COMB,FDBUF EXTRACT SEQ.NBR MOVE SET,COMB CONVERT TO BCD DLETE FDBUF,COB0,COB2 DELETE SEQ.NBR CBNE SET,OLDSET,TABI220 * SAME SET, IMPLICITS PRINTER DATA CBL DISPL,=W'211',TABI210 PREVENT OVERFLOW MOVE DISPL,=W'210' TABI210 MOVE WKBIN1,=W'40' XCOPY PTAB(INDEX),DISPL,WKBIN1,FDBUF,COB0 CONCATENATE ADD DISPL,=W'40' ROOM FOR NEXT PRINTERDATA MOVE PLEN(INDEX,COB1),DISPL SET CRUDE LENGTH B TABI040 * TABI220 * NEW SET, IMPLICIT FUNCTION COMMAND ADD INDEX,COB1 NEXT RECORD IDENTIFIER MOVE OLDSET,SET INITIATE FOR FURTHER TESTING MOVE FCBLD(INDEX),FDBUF SAVE FUNCTION COMMAND MOVE DISPL,COB0 PRINTERDATA STARTS IN POS 0 B TABI040 * TABI300 * PRINTER DATA, VARIOUS NATIONAL RUBBISH MOVE COMB,FDBUF MOVE SET,COMB CONVERT SET TO BCD DLETE FDBUF,COB0,COB2 DELETE SEQ.NBR CBNE SET,OLDSET,TABI320 CBL DISPL,=W'211',TABI310 PREVENT OVERFLOW MOVE DISPL,=W'210' BY SETTING FIXED POINTER TABI310 MOVE WKBIN1,PRWIDTH XCOPY PNAT(INDEX),DISPL,WKBIN1,FDBUF,COB0 ADD DISPL,PRWIDTH ROOM FOR NEXT PRINTERDATA MOVE PLEN(INDEX,COB2),DISPL SET CRUDE LENGTH B TABI040 * TABI320 ADD INDEX,COB1 NEW SET MOVE OLDSET,SET MOVE DISPL,COB0 B TABI310 TABI400 TABI500 TABI600 TABI700 TABI800 B TABI040 IGNORE THOSE RECORD TYPES * TABI900 :256 FOUND MOVE VARIOUS,=C'CONSTANTS LOADED CORRECTLY. ' PERF SCRIBE,VARIUS PERF CLOSE,COB2 CLOSE CONSTANTFILE TABI910 MOVE VARIOUS,=C'SPECIFY SERIALNUMBER............... ' PERF SCRIBE,VARIUS PERF KBINP BNOK TABI910 CBNE INDEX,COB1,TABI910 SUB LENGTH,COB1 BNZ TABI915 MOVE BUFIN,=C'1 ' TABI915 MOVE SRLNBR,BUFIN CONVERT TO BCD CBNG SRLNBR,=D'9999',TABI920 CHECK FOR VALID RANGE MOVE SRLNBR,=D'1' SET VALID VALUE TABI920 MOVE VARIOUS,=C'SPECIFY DATE (YYMMDD).............. ' PERF SCRIBE,VARIUS PERF KBINP BNOK TABI920 CBNE INDEX,COB1,TABI920 SUB LENGTH,COB1 BNZ TABI925 MOVE BUFIN,=C'830401 ' MOVE LENGTH,COB6 TABI925 CBNE LENGTH,COB6,TABI920 MOVE DATE,BUFIN CBNG DATE,=D'891231',TABI930 MOVE DATE,=D'891231' TABI930 MOVE VARIOUS,=C' ' PERF SCRIBE,VARIUS PERF CONVERT PERF CONDENS FIND THE REAL LENGTHS CMP COB0,COB0 RET * TABI980 MOVE VARIOUS,=C'READ ERROR ' PERF SCRIBE,VARIUS PERF CLOSE,COB2 CLOSE CONSTANT FILE CMP COB0,COB1 SET CR TO NOK RET * TABI990 CMP COB0,COB1 SET CR TO NOK RET PEND EJECT CONDENS PROC * * THE PROCEDURE CONVERTS THE CRUDE LENGTHS OF THE PRINTERDATA * TO SOME MORE CIVILIZED ONES BY FINDING THE LAST USED CHARACTER * IN THE LINE. THIS IS ACCOMPLISHED BY A BACKWARD MATCH. * MOVE BIN4,=W'30' NBR OF ELEMENTS IN PTAB COND10 CBE PLEN(BIN4,COB1),COB0,COND40 ELEMENT IN USE? MOVE BIN6,PLEN(BIN4,COB1) MOVE CRUDE LENGTH SUB BIN6,COB1 ADJUST COND20 XCOPY STAT,COB0,COB1,PTAB(BIN4),BIN6 RIGHTMOST CHR CBNE STAT,=C' ',COND30 NON-BLANK FOUND? SUB BIN6,COB1 NO, TRY NEXT BYTE BNZ COND20 IF ANYTHING LEFT AT ALL COND30 ADD BIN6,COB1 ADJUST AGAIN MOVE PLEN(BIN4,COB1),BIN6 MOVE CLEANED LENGTH COND40 SUB BIN4,COB1 TRY NEXT PRINTLINE BP COND10 IF ANYTHING LEFT * MOVE BIN4,COB10 NBR OF ELEMENTS IN PNAT COND110 CBE PLEN(BIN4,COB2),COB0,COND140 ELEMENT IN USE? MOVE BIN6,PLEN(BIN4,COB2) MOVE CRUDE LENGTH SUB BIN6,COB1 ADJUST COND120 XCOPY STAT,COB0,COB1,PNAT(BIN4),BIN6 RIGHTMOST CHR CBNE STAT,=C' ',COND130 NON-BLANK FOUND SUB BIN6,COB1 NO, TRY NEXT BYTE BNZ COND120 IF ANYTHING LEFT AT ALL COND130 ADD BIN6,COB1 ADJUST BACK MOVE PLEN(BIN4,COB2),BIN6 MOVE CLEANED LENGTH COND140 SUB BIN4,COB1 TRY NEXT PRINTLINE BP COND110 IF THERE WAS MORE LEFT * RET PEND EJECT CONVERT PROC * * THIS ROUTINE CONVERTS EVTL. SPECIAL CHARACTERS IN THE PRINTERDATA * THE FOLLOWING CONVERSIONS TAKE PLACE: * # -> <LF> * ! -> <FF> * " -> <SO> * MOVE BIN4,=W'30' NBR OF ELEMENTS CONV00 MOVE COMB,=X'230A' HASH TO LINEFEED MOVE BIN5,=W'250' MOVE BIN6,COB0 MATCH PTAB(BIN4),BIN6,BIN5,COMB,COB0,COB1 BNOK CONV20 COPY PTAB(BIN4),BIN6,COB1,COMB,COB1 B CONV00 THERE MIGHT BE MORE CONV20 MOVE COMB,=X'210C' EXCL.MARK TO FORMFEED MOVE BIN5,=W'250' MOVE BIN6,COB0 MATCH PTAB(BIN4),BIN6,BIN5,COMB,COB0,COB1 BNOK CONV40 COPY PTAB(BIN4),BIN6,COB1,COMB,COB1 B CONV20 CONV40 MOVE COMB,=X'220E' DOUBLE QUOTE TO SHIFTOUT MOVE BIN5,=W'250' MOVE BIN6,COB0 MATCH PTAB(BIN4),BIN6,BIN5,COMB,COB0,COB1 BNOK CONV60 COPY PTAB(BIN4),BIN6,COB1,COMB,COB1 B CONV40 CONV60 SUB BIN4,COB1 BP CONV00 * MOVE BIN4,=W'10' NUMBER OF ELEMENTS IN PNAT CONV100 MOVE BIN5,=W'250' MOVE BIN6,COB0 MOVE COMB,=X'230A' MATCH PNAT(BIN4),BIN6,BIN5,COMB,COB0,COB1 BNOK CONV120 COPY PNAT(BIN4),BIN6,COB1,COMB,COB1 B CONV100 CONV120 MOVE COMB,=X'210C' MOVE BIN5,=W'250' MOVE BIN6,COB0 MATCH PNAT(BIN4),BIN6,BIN5,COMB,COB0,COB1 BNOK CONV140 COPY PNAT(BIN4),BIN6,COB1,COMB,COB1 B CONV120 CONV140 MOVE COMB,=X'220E' MOVE BIN5,=W'250' MOVE BIN6,COB0 MATCH PNAT(BIN4),BIN6,BIN5,COMB,COB0,COB1 BNOK CONV160 COPY PNAT(BIN4),BIN6,COB1,COMB,COB1 B CONV140 CONV160 SUB BIN4,COB1 BP CONV100 * CMP COB0,COB0 RET PEND EJECT RDNEXT PROC ADD RECNO,COB1 POINT TO NEXT RECORD PERF READ,COB1,FDBUF,RECNO,STATUS BNOK RDN300 * XCOPY FDLBUF,DISPL,RECLEN,FDBUF,COB0 CONCATENATE BUFFER ADD DISPL,RECLEN PREPARE FOR NEXT READ MOVE WKSTR6,=X'1C0100000A' <FS>!<:256>!<*A> MOVE WKB1,COB0 STARTPOINT MATCH MOVE WKBIN1,=W'384' BUFFER LENGTH MATCH FDLBUF,WKB1,WKBIN1,WKSTR6,COB0,COB5 SEARCH FOR EOF BNOK RDN200 NOT FOUND SET EOF EOF FOUND, SET FLAG RDN200 CMP COB0,COB0 RDN300 RET PEND EJECT VARIUS FRMT FCOPY ='22' FCOPY VARIOUS FMEND WRONG FRMT FCOPY ='++' FCOPY ='REJECTED' FNL FILLR ' ',30 FCOPY =': ' FMEND MODIF FRMT FMEL '9',WKBCD1 FMEND INF FRMT FCOPY =C'22' FCOPY INFO FMEND END
0x0000…0020 (0, 0, 400) Head {h00=0x001c, h01=0x0050, text=» IDENT SUBS 830427 NIJO «, t00=0x0000, t01=0x0004}
0x0020…0028 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0024}
0x0028…0078 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x002c}
0x0078…00bc Head {h00=0x0040, h01=0x0050, text=»* THIS ROUTINE CONTAINS VARIOUS SUBROUTINES USED WITHIN «, t00=0x0000, t01=0x007c}
0x00bc…00ec Head {h00=0x002c, h01=0x0050, text=»* THE ATM DEMO PACKAGE T A B S I M. «, t00=0x0000, t01=0x00c0}
0x00ec…013c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x00f0}
0x013c…0144 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0140}
0x0144…0156 Head {h00=0x000e, h01=0x0050, text=» DDUM DDIV«, t00=0x0000, t01=0x0148}
0x0156…0164 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x015a}
0x0164…017a Head {h00=0x0012, h01=0x0050, text=» ENTRY LOADER «, t00=0x0000, t01=0x0168}
0x017a…0190 Head {h00=0x0012, h01=0x0050, text=» ENTRY TABINT «, t00=0x0000, t01=0x017e}
0x0190…0198 (1, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0004}
0x0198…01a0 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x000c}
0x01a0…01bc Head {h00=0x0018, h01=0x0050, text=» EXPROC SCRIBE,PFRMT«, t00=0x0001, t01=0x0014}
0x01bc…01d2 Head {h00=0x0012, h01=0x0050, text=» EXPROC KBINP «, t00=0x0001, t01=0x0030}
0x01d2…01e8 Head {h00=0x0012, h01=0x0050, text=» EXPROC DLLATM«, t00=0x0001, t01=0x0046}
0x01e8…01fc Head {h00=0x0010, h01=0x0050, text=» EXPROC OPEN«, t00=0x0001, t01=0x005c}
0x01fc…0212 Head {h00=0x0012, h01=0x0050, text=» EXPROC CLOSE «, t00=0x0001, t01=0x0070}
0x0212…0226 Head {h00=0x0010, h01=0x0050, text=» EXPROC READ«, t00=0x0001, t01=0x0086}
0x0226…023c Head {h00=0x0012, h01=0x0050, text=» EXPROC OPRCMD«, t00=0x0001, t01=0x009a}
0x023c…0244 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x00b0}
0x0244…0252 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x00b8}
0x0252…025a Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x00c6}
0x025a…026e Head {h00=0x0010, h01=0x0050, text=»LOADER PROC «, t00=0x0001, t01=0x00ce}
0x026e…0278 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e2}
0x0278…02c0 Head {h00=0x0044, h01=0x0050, text=»* THIS ROUTINE DOWNLINELOADS THE STATES, SCREENS ETC TO THE ATM.«, t00=0x0001, t01=0x00ec}
0x02c0…0306 Head {h00=0x0042, h01=0x0050, text=»* THE INPUT IS TO RESIDE ON A FLOPPY FILE, CREATED BY THE ATM-«, t00=0x0001, t01=0x0134}
0x0306…034a Head {h00=0x0040, h01=0x0050, text=»* CONFIGURATOR. INPUT TO THE CONFIGURATOR IS CREATED BY THE «, t00=0x0001, t01=0x017a}
0x034a…0362 Head {h00=0x0014, h01=0x0050, text=»* NORMAL EDITOR.«, t00=0x0002, t01=0x002e}
0x0362…036c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0046}
0x036c…037a Head {h00=0x000a, h01=0x0050, text=»LOA010«, t00=0x0002, t01=0x0050}
0x037a…03ba Head {h00=0x003c, h01=0x0050, text=» MOVE VARIOUS,=C'SPECIFY DLL-FILE (IF NOT "MASTER")... '«, t00=0x0002, t01=0x005e}
0x03ba…03d6 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0002, t01=0x009e}
0x03d6…03ea Head {h00=0x0010, h01=0x0050, text=» PERF KBINP «, t00=0x0002, t01=0x00ba}
0x03ea…03fe Head {h00=0x0010, h01=0x0050, text=» BOK LOA020 «, t00=0x0002, t01=0x00ce}
0x03fe…0424 Head {h00=0x0022, h01=0x0050, text=» PERF SCRIBE,WRONG INPUT ERROR«, t00=0x0002, t01=0x00e2}
0x0424…0440 Head {h00=0x0018, h01=0x0050, text=» B LOA010 TRY AGAIN «, t00=0x0002, t01=0x0108}
0x0440…044e Head {h00=0x000a, h01=0x0050, text=»LOA020«, t00=0x0002, t01=0x0124}
0x044e…0466 Head {h00=0x0014, h01=0x0050, text=» MOVE INFO,=C' '«, t00=0x0002, t01=0x0132}
0x0466…047e Head {h00=0x0014, h01=0x0050, text=» PERF SCRIBE,INF«, t00=0x0002, t01=0x014a}
0x047e…04aa Head {h00=0x0028, h01=0x0050, text=» CBNE INDEX,COB1,LOA010 NOT <ENTER> «, t00=0x0002, t01=0x0162}
0x04aa…04d8 Head {h00=0x002a, h01=0x0050, text=» SUB LENGTH,COB1 THROW AWAY ENTER-KEY «, t00=0x0002, t01=0x018e}
0x04d8…04f8 Head {h00=0x001c, h01=0x0050, text=» BNZ LOA025 NOT DEFAULT«, t00=0x0003, t01=0x002c}
0x04f8…0518 Head {h00=0x001c, h01=0x0050, text=» MOVE BUFIN,=C'MASTER ' «, t00=0x0003, t01=0x004c}
0x0518…0532 Head {h00=0x0016, h01=0x0050, text=» MOVE LENGTH,COB6 «, t00=0x0003, t01=0x006c}
0x0532…0540 Head {h00=0x000a, h01=0x0050, text=»LOA025«, t00=0x0003, t01=0x0086}
0x0540…0570 Head {h00=0x002c, h01=0x0050, text=» COPY DSFTABLE(COB1),COB0,COB8,INFO,COB0«, t00=0x0003, t01=0x0094}
0x0570…05b4 Head {h00=0x0040, h01=0x0050, text=» COPY DSFTABLE(COB1),COB0,LENGTH,BUFIN,COB0 CHANGE FILENAME «, t00=0x0003, t01=0x00c4}
0x05b4…05e6 Head {h00=0x002e, h01=0x0050, text=» COPY DSFTABLE(COB1),COB8,COB6,VOLUME,COB0«, t00=0x0003, t01=0x0108}
0x05e6…05f8 Head {h00=0x000e, h01=0x0050, text=» CLEAR EOF«, t00=0x0003, t01=0x013a}
0x05f8…0624 Head {h00=0x0028, h01=0x0050, text=» PERF OPEN,COB1,WKB1 OPEN SOURCEFILE«, t00=0x0003, t01=0x014c}
0x0624…0638 Head {h00=0x0010, h01=0x0050, text=» BOK LOA030 «, t00=0x0003, t01=0x0178}
0x0638…065e Head {h00=0x0022, h01=0x0050, text=» MOVE VARIOUS,=C'ASSIGNERROR '«, t00=0x0003, t01=0x018c}
0x065e…067a Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0004, t01=0x0022}
0x067a…0690 Head {h00=0x0012, h01=0x0050, text=» B LOA990 EXIT«, t00=0x0004, t01=0x003e}
0x0690…069a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0054}
0x069a…06be Head {h00=0x0020, h01=0x0050, text=»LOA030 FILE IS NOW OPENED «, t00=0x0004, t01=0x005e}
0x06be…06f0 Head {h00=0x002e, h01=0x0050, text=» MOVE WKSTR7,=C'2' TAKE ATM OUT OF SERVICE«, t00=0x0004, t01=0x0082}
0x06f0…071a Head {h00=0x0026, h01=0x0050, text=» PERF OPRCMD SEND, + RCV SOLL.STAT«, t00=0x0004, t01=0x00b4}
0x071a…0738 Head {h00=0x001a, h01=0x0050, text=» BNOK LOA030 TRY AGAIN«, t00=0x0004, t01=0x00de}
0x0738…0770 Head {h00=0x0034, h01=0x0050, text=» MOVE VARIOUS,=C'* DOWNLINELOAD IN PROGRESS * ' «, t00=0x0004, t01=0x00fc}
0x0770…078c Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0004, t01=0x0134}
0x078c…07b6 Head {h00=0x0026, h01=0x0050, text=» SET DLL INDICATE DLL IN PROGRESS «, t00=0x0004, t01=0x0150}
0x07b6…07f0 Head {h00=0x0036, h01=0x0050, text=» MOVE WKSTG2,=X'4131201B3142331C1C1C31001C' HEADER«, t00=0x0004, t01=0x017a}
0x07f0…081c Head {h00=0x0028, h01=0x0050, text=» MOVE PNT4,COB0 READ 1. LOGICAL PART«, t00=0x0005, t01=0x0024}
0x081c…0834 Head {h00=0x0014, h01=0x0050, text=» MOVE RECNO,COB0«, t00=0x0005, t01=0x0050}
0x0834…084c Head {h00=0x0014, h01=0x0050, text=» MOVE DISPL,COB0«, t00=0x0005, t01=0x0068}
0x084c…0866 Head {h00=0x0016, h01=0x0050, text=» MOVE FDLBUF,=C' '«, t00=0x0005, t01=0x0080}
0x0866…0870 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x009a}
0x0870…0896 Head {h00=0x0022, h01=0x0050, text=» PERF RDNEXT READ FIRST RECORD«, t00=0x0005, t01=0x00a4}
0x0896…08aa Head {h00=0x0010, h01=0x0050, text=» BNOK LOA960«, t00=0x0005, t01=0x00ca}
0x08aa…08b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00de}
0x08b4…08d8 Head {h00=0x0020, h01=0x0050, text=» PERF RDNEXT READ 2. RECORD «, t00=0x0005, t01=0x00e8}
0x08d8…08ec Head {h00=0x0010, h01=0x0050, text=» BNOK LOA960«, t00=0x0005, t01=0x010c}
0x08ec…08f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0120}
0x08f6…091a Head {h00=0x0020, h01=0x0050, text=» PERF RDNEXT READ 3. RECORD «, t00=0x0005, t01=0x012a}
0x091a…092e Head {h00=0x0010, h01=0x0050, text=» BNOK LOA960«, t00=0x0005, t01=0x014e}
0x092e…0938 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0162}
0x0938…0960 Head {h00=0x0024, h01=0x0050, text=»LOA070 PNT4 POINTS TO MODIFIER«, t00=0x0005, t01=0x016c}
0x0960…0990 (6, 0, 400) Head {h00=0x002c, h01=0x0050, text=» SET MODIFLG INDICATE WE HAVE A MODIFIER«, t00=0x0006, t01=0x0004}
0x0990…09c8 Head {h00=0x0034, h01=0x0050, text=» XCOPY BIN5,COB0,COB2,FDLBUF,PNT4 MOVE MODIFIER «, t00=0x0006, t01=0x0034}
0x09c8…09de Head {h00=0x0012, h01=0x0050, text=» ADD PNT4,COB2«, t00=0x0006, t01=0x006c}
0x09de…0a08 Head {h00=0x0026, h01=0x0050, text=»LOA080 PNT4 POINTS TO RECORDNBR «, t00=0x0006, t01=0x0082}
0x0a08…0a40 Head {h00=0x0034, h01=0x0050, text=» XCOPY BIN6,COB0,COB2,FDLBUF,PNT4 MOVE RECORDNBR«, t00=0x0006, t01=0x00ac}
0x0a40…0a56 Head {h00=0x0012, h01=0x0050, text=» ADD PNT4,COB2«, t00=0x0006, t01=0x00e4}
0x0a56…0a8a Head {h00=0x0030, h01=0x0050, text=» XCOPY TLEN,COB0,COB2,FDLBUF,PNT4 MOVE TLEN «, t00=0x0006, t01=0x00fa}
0x0a8a…0aae Head {h00=0x0020, h01=0x0050, text=» ADD PNT4,COB2 POINT TO DATA«, t00=0x0006, t01=0x012e}
0x0aae…0ae2 Head {h00=0x0030, h01=0x0050, text=» SUB TLEN,COB4 DISREGARD RECNO+TLEN JUST NOW«, t00=0x0006, t01=0x0152}
0x0ae2…0b0a Head {h00=0x0024, h01=0x0050, text=» MOVE BUFIN,=X'00' CLEAR BUFFER «, t00=0x0006, t01=0x0186}
0x0b0a…0b34 Head {h00=0x0026, h01=0x0050, text=» XCOPY BUFIN,COB0,TLEN,FDLBUF,PNT4«, t00=0x0007, t01=0x001e}
0x0b34…0b62 Head {h00=0x002a, h01=0x0050, text=»* 'TLEN' CONTAINS DATATLEN IN 'BUFIN' «, t00=0x0007, t01=0x0048}
0x0b62…0b84 Head {h00=0x001e, h01=0x0050, text=»* 'BIN5' CONTAINS MODIFIER«, t00=0x0007, t01=0x0076}
0x0b84…0bb6 Head {h00=0x002e, h01=0x0050, text=»* 'BIN6' CONTAINS RECORDNUMBER (NOT USED) «, t00=0x0007, t01=0x0098}
0x0bb6…0bd0 Head {h00=0x0016, h01=0x0050, text=» MOVE LENGTH,TLEN «, t00=0x0007, t01=0x00ca}
0x0bd0…0bf8 Head {h00=0x0024, h01=0x0050, text=» MOVE WKBCD1,BIN5 MOVE MODIFIER «, t00=0x0007, t01=0x00e4}
0x0bf8…0c1e Head {h00=0x0022, h01=0x0050, text=» EDIT WKSTG1,MODIF AND EDIT IT«, t00=0x0007, t01=0x010c}
0x0c1e…0c5e Head {h00=0x003c, h01=0x0050, text=» COPY WKSTG2,COB11,COB1,WKSTG1,COB0 MOVE IT INTO HEADER «, t00=0x0007, t01=0x0132}
0x0c5e…0c82 Head {h00=0x0020, h01=0x0050, text=» PERF DLLATM DOWNLINELOAD IT«, t00=0x0007, t01=0x0172}
0x0c82…0ca4 Head {h00=0x001e, h01=0x0050, text=» BNOK LOA970 EXIT IF ERROR«, t00=0x0008, t01=0x0008}
0x0ca4…0cca Head {h00=0x0022, h01=0x0050, text=» ADD TLEN,COB4 RECNO+ACT.TLEN «, t00=0x0008, t01=0x002a}
0x0cca…0cfe Head {h00=0x0030, h01=0x0050, text=» TBF MODIFLG,LOA100 MODIFIER TO BE DELETED? «, t00=0x0008, t01=0x0050}
0x0cfe…0d26 Head {h00=0x0024, h01=0x0050, text=» CLEAR MODIFLG IF SO, CLEAR FLAG«, t00=0x0008, t01=0x0084}
0x0d26…0d4e Head {h00=0x0024, h01=0x0050, text=» ADD TLEN,COB2 AND DELETE 2 MORE«, t00=0x0008, t01=0x00ac}
0x0d4e…0d64 Head {h00=0x0012, h01=0x0050, text=» SUB PNT4,COB2«, t00=0x0008, t01=0x00d4}
0x0d64…0d6c Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x00ea}
0x0d6c…0d7a Head {h00=0x000a, h01=0x0050, text=»LOA100«, t00=0x0008, t01=0x00f2}
0x0d7a…0d9a Head {h00=0x001c, h01=0x0050, text=» DLETE FDLBUF,COB0,TLEN «, t00=0x0008, t01=0x0100}
0x0d9a…0db0 Head {h00=0x0012, h01=0x0050, text=» SUB PNT4,COB4«, t00=0x0008, t01=0x0120}
0x0db0…0dc8 Head {h00=0x0014, h01=0x0050, text=» SUB DISPL,TLEN «, t00=0x0008, t01=0x0136}
0x0dc8…0e08 Head {h00=0x003c, h01=0x0050, text=» XCOPY BIN7,COB0,COB2,FDLBUF,PNT4 1.WORD OF NEXT RECORD «, t00=0x0008, t01=0x014e}
0x0e08…0e16 Head {h00=0x000a, h01=0x0050, text=»LOA105«, t00=0x0008, t01=0x018e}
0x0e16…0e50 Head {h00=0x0036, h01=0x0050, text=» CBNL DISPL,=W'255',LOA120 TIME FOR ANOTHER READ? «, t00=0x0009, t01=0x000c}
0x0e50…0e68 Head {h00=0x0014, h01=0x0050, text=» TBT EOF,LOA120 «, t00=0x0009, t01=0x0046}
0x0e68…0e8e Head {h00=0x0022, h01=0x0050, text=» PERF RDNEXT READ NEXT RECORD «, t00=0x0009, t01=0x005e}
0x0e8e…0ea2 Head {h00=0x0010, h01=0x0050, text=» BNOK LOA960«, t00=0x0009, t01=0x0084}
0x0ea2…0ed2 Head {h00=0x002c, h01=0x0050, text=» B LOA105 EXTRA READ MIGHT BE NECESSARY «, t00=0x0009, t01=0x0098}
0x0ed2…0eda Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x00c8}
0x0eda…0ee8 Head {h00=0x000a, h01=0x0050, text=»LOA120«, t00=0x0009, t01=0x00d0}
0x0ee8…0f1e Head {h00=0x0032, h01=0x0050, text=» CBL BIN7,=W'256',LOA080 SAME SUBFILE? (:256) «, t00=0x0009, t01=0x00de}
0x0f1e…0f4c Head {h00=0x002a, h01=0x0050, text=» BG LOA940 SOME POINTER IS OVERWRITTEN«, t00=0x0009, t01=0x0114}
0x0f4c…0f78 Head {h00=0x0028, h01=0x0050, text=» ADD PNT4,COB2 POINT TO NEW MODIFIER«, t00=0x0009, t01=0x0142}
0x0f78…0fae Head {h00=0x0032, h01=0x0050, text=» XCOPY BIN7,COB0,COB2,FDLBUF,PNT4 AND COPY IT «, t00=0x0009, t01=0x016e}
0x0fae…0fea Head {h00=0x0038, h01=0x0050, text=» CBNE BIN7,=X'000A',LOA070 FINISHED IF MODIFIER="*A"«, t00=0x000a, t01=0x0014}
0x0fea…1028 Head {h00=0x003a, h01=0x0050, text=» MOVE VARIOUS,=C'DOWNLINE LOAD CONCLUDED CORRECTLY. ' «, t00=0x000a, t01=0x0050}
0x1028…1044 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x000a, t01=0x008e}
0x1044…105c Head {h00=0x0014, h01=0x0050, text=» MOVE WKB1,COB1 «, t00=0x000a, t01=0x00aa}
0x105c…1074 Head {h00=0x0014, h01=0x0050, text=» PERF CLOSE,WKB1«, t00=0x000a, t01=0x00c2}
0x1074…1086 Head {h00=0x000e, h01=0x0050, text=» CLEAR DLL«, t00=0x000a, t01=0x00da}
0x1086…109c Head {h00=0x0012, h01=0x0050, text=» CMP COB0,COB0«, t00=0x000a, t01=0x00ec}
0x109c…10a8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x0102}
0x10a8…10b0 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x010e}
0x10b0…10be Head {h00=0x000a, h01=0x0050, text=»LOA940«, t00=0x000a, t01=0x0116}
0x10be…10fc Head {h00=0x003a, h01=0x0050, text=» MOVE VARIOUS,=C'DATA ERROR ON DISK ' INVALID RECORDNR«, t00=0x000a, t01=0x0124}
0x10fc…1118 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x000a, t01=0x0162}
0x1118…112a Head {h00=0x000e, h01=0x0050, text=» B LOA980 «, t00=0x000a, t01=0x017e}
0x112a…1132 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0190}
0x1132…1140 Head {h00=0x000a, h01=0x0050, text=»LOA960«, t00=0x000b, t01=0x0008}
0x1140…1178 Head {h00=0x0034, h01=0x0050, text=» MOVE VARIOUS,=C'READ/WRITE ERROR ON DATA DISK '«, t00=0x000b, t01=0x0016}
0x1178…1194 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x000b, t01=0x004e}
0x1194…11a6 Head {h00=0x000e, h01=0x0050, text=» B LOA980 «, t00=0x000b, t01=0x006a}
0x11a6…11ae Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x007c}
0x11ae…11bc Head {h00=0x000a, h01=0x0050, text=»LOA970«, t00=0x000b, t01=0x0084}
0x11bc…11e0 Head {h00=0x0020, h01=0x0050, text=» MOVE VARIOUS,=C'DLL ERROR '«, t00=0x000b, t01=0x0092}
0x11e0…11fc Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x000b, t01=0x00b6}
0x11fc…120a Head {h00=0x000a, h01=0x0050, text=»LOA980«, t00=0x000b, t01=0x00d2}
0x120a…1222 Head {h00=0x0014, h01=0x0050, text=» MOVE WKB1,COB1 «, t00=0x000b, t01=0x00e0}
0x1222…123a Head {h00=0x0014, h01=0x0050, text=» PERF CLOSE,WKB1«, t00=0x000b, t01=0x00f8}
0x123a…1248 Head {h00=0x000a, h01=0x0050, text=»LOA990«, t00=0x000b, t01=0x0110}
0x1248…1254 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x011e}
0x1254…1262 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000b, t01=0x012a}
0x1262…1270 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0138}
0x1270…1284 Head {h00=0x0010, h01=0x0050, text=»TABINT PROC «, t00=0x000b, t01=0x0146}
0x1284…128e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x015a}
0x128e…12ce Head {h00=0x003c, h01=0x0050, text=»* THIS PROCEDURE CREATES VARIOUS TABLES AND OTHER FIELDS«, t00=0x000b, t01=0x0164}
0x12ce…12fa Head {h00=0x0028, h01=0x0050, text=»* IMMEDIATELY AFTER PROGRAM STARTUP.«, t00=0x000c, t01=0x0014}
0x12fa…132a Head {h00=0x002c, h01=0x0050, text=»* THE INPUT IS FOUND ON VOLUME "VOLUME".«, t00=0x000c, t01=0x0040}
0x132a…1356 Head {h00=0x0028, h01=0x0050, text=»* THE INPUTFIL WAS CREATED BY $PDISC«, t00=0x000c, t01=0x0070}
0x1356…1360 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x009c}
0x1360…13a0 Head {h00=0x003c, h01=0x0050, text=»* IN THIS FILE VARIOUS RECORDTYPES MUST/CAN BE PRESENT: «, t00=0x000c, t01=0x00a6}
0x13a0…13c6 Head {h00=0x0022, h01=0x0050, text=»* :1 - DENOMINATION VALUES ETC«, t00=0x000c, t01=0x00e6}
0x13c6…13e6 Head {h00=0x001c, h01=0x0050, text=»* :2 - FUNCTION COMMANDS«, t00=0x000c, t01=0x010c}
0x13e6…142a Head {h00=0x0040, h01=0x0050, text=»* - PRINTER DATA FOR THE ABOVEMENTIONED FUNCTION COMMANDS«, t00=0x000c, t01=0x012c}
0x142a…145e Head {h00=0x0030, h01=0x0050, text=»* :3 - PRINTER DATA FOR F.X. TOP-OF-RECEIPT «, t00=0x000c, t01=0x0170}
0x145e…1488 Head {h00=0x0026, h01=0x0050, text=»* :256 - MARKS THE END OF THE FILE«, t00=0x000d, t01=0x0014}
0x1488…1492 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x003e}
0x1492…14a2 Head {h00=0x000c, h01=0x0050, text=»TABI010 «, t00=0x000d, t01=0x0048}
0x14a2…14e8 Head {h00=0x0042, h01=0x0050, text=» MOVE VARIOUS,=C'SPECIFY CONSTANTFILE (IF NOT "CONSTANT").. ' «, t00=0x000d, t01=0x0058}
0x14e8…1504 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x000d, t01=0x009e}
0x1504…1518 Head {h00=0x0010, h01=0x0050, text=» PERF KBINP «, t00=0x000d, t01=0x00ba}
0x1518…152c Head {h00=0x0010, h01=0x0050, text=» BOK TABI020«, t00=0x000d, t01=0x00ce}
0x152c…1546 Head {h00=0x0016, h01=0x0050, text=» PERF SCRIBE,WRONG«, t00=0x000d, t01=0x00e2}
0x1546…1558 Head {h00=0x000e, h01=0x0050, text=» B TABI010«, t00=0x000d, t01=0x00fc}
0x1558…1562 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x010e}
0x1562…1572 Head {h00=0x000c, h01=0x0050, text=»TABI020 «, t00=0x000d, t01=0x0118}
0x1572…158a Head {h00=0x0014, h01=0x0050, text=» MOVE INFO,=C' '«, t00=0x000d, t01=0x0128}
0x158a…15a2 Head {h00=0x0014, h01=0x0050, text=» PERF SCRIBE,INF«, t00=0x000d, t01=0x0140}
0x15a2…15d4 Head {h00=0x002e, h01=0x0050, text=» CBNE INDEX,COB1,TABI010 TEST FOR <ENTER> «, t00=0x000d, t01=0x0158}
0x15d4…15de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x018a}
0x15de…160a (14, 0, 400) Head {h00=0x0028, h01=0x0050, text=» SUB LENGTH,COB1 DISREGARD ENTER-KEY«, t00=0x000e, t01=0x0004}
0x160a…162a Head {h00=0x001c, h01=0x0050, text=» BNZ TABI025 NOT DEFAULT«, t00=0x000e, t01=0x0030}
0x162a…164a Head {h00=0x001c, h01=0x0050, text=» MOVE BUFIN,=C'CONSTANT'«, t00=0x000e, t01=0x0050}
0x164a…1664 Head {h00=0x0016, h01=0x0050, text=» MOVE LENGTH,=W'8'«, t00=0x000e, t01=0x0070}
0x1664…1674 Head {h00=0x000c, h01=0x0050, text=»TABI025 «, t00=0x000e, t01=0x008a}
0x1674…16b6 Head {h00=0x003e, h01=0x0050, text=» COPY DSFTABLE(COB2),COB0,COB8,INFO,COB0 SCRATCH FILENAME «, t00=0x000e, t01=0x009a}
0x16b6…16f6 Head {h00=0x003c, h01=0x0050, text=» COPY DSFTABLE(COB2),COB0,LENGTH,BUFIN,COB0 SET FILENAME«, t00=0x000e, t01=0x00dc}
0x16f6…1734 Head {h00=0x003a, h01=0x0050, text=» COPY DSFTABLE(COB2),COB8,COB6,VOLUME,COB0 VOLUMENAME «, t00=0x000e, t01=0x011c}
0x1734…1764 Head {h00=0x002c, h01=0x0050, text=» PERF OPEN,COB2,WKB1 OPEN CONSTANT-FILE «, t00=0x000e, t01=0x015a}
0x1764…1778 Head {h00=0x0010, h01=0x0050, text=» BOK TABI030«, t00=0x000e, t01=0x018a}
0x1778…17a0 Head {h00=0x0024, h01=0x0050, text=» MOVE VARIOUS,=C'ASSIGN ERROR ' «, t00=0x000f, t01=0x000e}
0x17a0…17bc Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x000f, t01=0x0036}
0x17bc…17e0 Head {h00=0x0020, h01=0x0050, text=» B TABI990 EXIT AFTER ERROR «, t00=0x000f, t01=0x0052}
0x17e0…17ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0076}
0x17ea…17fa Head {h00=0x000c, h01=0x0050, text=»TABI030 «, t00=0x000f, t01=0x0080}
0x17fa…1812 Head {h00=0x0014, h01=0x0050, text=» MOVE RECNO,COB0«, t00=0x000f, t01=0x0090}
0x1812…1832 Head {h00=0x001c, h01=0x0050, text=»TABI040 READ A RECORD «, t00=0x000f, t01=0x00a8}
0x1832…184a Head {h00=0x0014, h01=0x0050, text=» ADD RECNO,COB1 «, t00=0x000f, t01=0x00c8}
0x184a…1874 Head {h00=0x0026, h01=0x0050, text=» PERF READ,COB2,FDBUF,RECNO,STATUS«, t00=0x000f, t01=0x00e0}
0x1874…18a0 Head {h00=0x0028, h01=0x0050, text=» BNOK TABI980 READ ERROR (PROBABLY) «, t00=0x000f, t01=0x010a}
0x18a0…18ca Head {h00=0x0026, h01=0x0050, text=» MOVE WKSTG4,FDBUF EXTRACT 4 BYTES«, t00=0x000f, t01=0x0136}
0x18ca…18fa Head {h00=0x002c, h01=0x0050, text=» CBE WKSTG4,=C':256',TABI900 EOF FOUND? «, t00=0x000f, t01=0x0160}
0x18fa…1904 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0190}
0x1904…1928 Head {h00=0x0020, h01=0x0050, text=» MOVE STAT,FDBUF NOT YET EOF«, t00=0x0010, t01=0x000a}
0x1928…195a Head {h00=0x002e, h01=0x0050, text=» CBNE STAT,=C':',TABI050 NEW RECORD TYPE? «, t00=0x0010, t01=0x002e}
0x195a…1964 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0060}
0x1964…199a Head {h00=0x0032, h01=0x0050, text=» DLETE WKSTG4,COB0,COB1 DELETE TYPE DELIMITER «, t00=0x0010, t01=0x006a}
0x199a…19c4 Head {h00=0x0026, h01=0x0050, text=» MOVE WKBCD3,WKSTG4 CONVERT TO BCD«, t00=0x0010, t01=0x00a0}
0x19c4…19ee Head {h00=0x0026, h01=0x0050, text=» MOVE INDEX,COB0 RECORD IDENTIFIER«, t00=0x0010, t01=0x00ca}
0x19ee…1a16 Head {h00=0x0024, h01=0x0050, text=» MOVE OLDSET,=D'-1' INIT OLDSET «, t00=0x0010, t01=0x00f4}
0x1a16…1a46 Head {h00=0x002c, h01=0x0050, text=» MOVE DISPL,COB0 INIT DIPLACEMENTPOINTER«, t00=0x0010, t01=0x011c}
0x1a46…1a6e Head {h00=0x0024, h01=0x0050, text=» B TABI040 AND TAKE NEXT RECORD «, t00=0x0010, t01=0x014c}
0x1a6e…1a78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0174}
0x1a78…1a88 Head {h00=0x000c, h01=0x0050, text=»TABI050 «, t00=0x0010, t01=0x017e}
0x1a88…1ab6 Head {h00=0x002a, h01=0x0050, text=»* THE CURRENT TYPE IS FOUND IN WKBCD3 «, t00=0x0010, t01=0x018e}
0x1ab6…1ad0 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN7,WKBCD3 «, t00=0x0011, t01=0x002c}
0x1ad0…1afe Head {h00=0x002a, h01=0x0050, text=» IB BIN7,TABI100, VARIOUS CONSTANTS C «, t00=0x0011, t01=0x0046}
0x1afe…1b24 Head {h00=0x0022, h01=0x0050, text=» TABI200, FUNCTION COMMANDS C«, t00=0x0011, t01=0x0074}
0x1b24…1b46 Head {h00=0x001e, h01=0x0050, text=» TABI300, PRINTER DATA C «, t00=0x0011, t01=0x009a}
0x1b46…1b5c Head {h00=0x0012, h01=0x0050, text=» TABI400, C «, t00=0x0011, t01=0x00bc}
0x1b5c…1b72 Head {h00=0x0012, h01=0x0050, text=» TABI500, C «, t00=0x0011, t01=0x00d2}
0x1b72…1b88 Head {h00=0x0012, h01=0x0050, text=» TABI600, C «, t00=0x0011, t01=0x00e8}
0x1b88…1b9e Head {h00=0x0012, h01=0x0050, text=» TABI700, C «, t00=0x0011, t01=0x00fe}
0x1b9e…1bb0 Head {h00=0x000e, h01=0x0050, text=» TABI800 «, t00=0x0011, t01=0x0114}
0x1bb0…1bd8 Head {h00=0x0024, h01=0x0050, text=» B TABI040 INVALID TYPE, IGNORE «, t00=0x0011, t01=0x0126}
0x1bd8…1be2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x014e}
0x1be2…1bf2 Head {h00=0x000c, h01=0x0050, text=»TABI100 «, t00=0x0011, t01=0x0158}
0x1bf2…1c20 Head {h00=0x002a, h01=0x0050, text=» ADD INDEX,COB1 NEXT RECORD IDENTIFIER«, t00=0x0011, t01=0x0168}
0x1c20…1c56 Head {h00=0x0032, h01=0x0050, text=» IB INDEX,TABI110,TABI110,TABI110,TABI110, C «, t00=0x0012, t01=0x0008}
0x1c56…1c84 Head {h00=0x002a, h01=0x0050, text=» TABI110,TABI110,TABI110,TABI110, C «, t00=0x0012, t01=0x003e}
0x1c84…1c9a Head {h00=0x0012, h01=0x0050, text=» TABI120, C «, t00=0x0012, t01=0x006c}
0x1c9a…1caa Head {h00=0x000c, h01=0x0050, text=» TAB130«, t00=0x0012, t01=0x0082}
0x1caa…1cd2 Head {h00=0x0024, h01=0x0050, text=» B TABI040 INVALID INDEX,IGNORE «, t00=0x0012, t01=0x0092}
0x1cd2…1cdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ba}
0x1cdc…1cec Head {h00=0x000c, h01=0x0050, text=»TABI110 «, t00=0x0012, t01=0x00c4}
0x1cec…1d20 Head {h00=0x0030, h01=0x0050, text=»* 8 CURRENCY VALUES, RECORD IDENTIFIER 1..8 «, t00=0x0012, t01=0x00d4}
0x1d20…1d50 Head {h00=0x002c, h01=0x0050, text=» MOVE DENOM(INDEX),FDBUF CONVERT TO BCD «, t00=0x0012, t01=0x0108}
0x1d50…1d62 Head {h00=0x000e, h01=0x0050, text=» B TABI040«, t00=0x0012, t01=0x0138}
0x1d62…1d6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x014a}
0x1d6c…1d7c Head {h00=0x000c, h01=0x0050, text=»TABI120 «, t00=0x0012, t01=0x0154}
0x1d7c…1da8 Head {h00=0x0028, h01=0x0050, text=»* CURRENCY TEXT, RECORD IDENTIFIER 9«, t00=0x0012, t01=0x0164}
0x1da8…1dc0 Head {h00=0x0014, h01=0x0050, text=» MOVE CURR,FDBUF«, t00=0x0012, t01=0x0190}
0x1dc0…1dd2 Head {h00=0x000e, h01=0x0050, text=» B TABI040«, t00=0x0013, t01=0x0018}
0x1dd2…1ddc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x002a}
0x1ddc…1dea Head {h00=0x000a, h01=0x0050, text=»TAB130«, t00=0x0013, t01=0x0034}
0x1dea…1e14 Head {h00=0x0026, h01=0x0050, text=»* MAXIMUM WITHDRAWAL. NO DECIMALS «, t00=0x0013, t01=0x0042}
0x1e14…1e2e Head {h00=0x0016, h01=0x0050, text=» MOVE DLIMIT,FDBUF«, t00=0x0013, t01=0x006c}
0x1e2e…1e40 Head {h00=0x000e, h01=0x0050, text=» B TABI040«, t00=0x0013, t01=0x0086}
0x1e40…1e4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0098}
0x1e4a…1e5a Head {h00=0x000c, h01=0x0050, text=»TABI200 «, t00=0x0013, t01=0x00a2}
0x1e5a…1e84 Head {h00=0x0026, h01=0x0050, text=»* FUNCTION COMMANDS, PRINTER DATA «, t00=0x0013, t01=0x00b2}
0x1e84…1eac Head {h00=0x0024, h01=0x0050, text=» MOVE COMB,FDBUF EXTRACT SEQ.NBR«, t00=0x0013, t01=0x00dc}
0x1eac…1ed2 Head {h00=0x0022, h01=0x0050, text=» MOVE SET,COMB CONVERT TO BCD «, t00=0x0013, t01=0x0104}
0x1ed2…1f00 Head {h00=0x002a, h01=0x0050, text=» DLETE FDBUF,COB0,COB2 DELETE SEQ.NBR «, t00=0x0013, t01=0x012a}
0x1f00…1f20 Head {h00=0x001c, h01=0x0050, text=» CBNE SET,OLDSET,TABI220«, t00=0x0013, t01=0x0158}
0x1f20…1f4a Head {h00=0x0026, h01=0x0050, text=»* SAME SET, IMPLICITS PRINTER DATA«, t00=0x0013, t01=0x0178}
0x1f4a…1f7e Head {h00=0x0030, h01=0x0050, text=» CBL DISPL,=W'211',TABI210 PREVENT OVERFLOW «, t00=0x0014, t01=0x0012}
0x1f7e…1f9a Head {h00=0x0018, h01=0x0050, text=» MOVE DISPL,=W'210' «, t00=0x0014, t01=0x0046}
0x1f9a…1faa Head {h00=0x000c, h01=0x0050, text=»TABI210 «, t00=0x0014, t01=0x0062}
0x1faa…1fc6 Head {h00=0x0018, h01=0x0050, text=» MOVE WKBIN1,=W'40' «, t00=0x0014, t01=0x0072}
0x1fc6…2004 Head {h00=0x003a, h01=0x0050, text=» XCOPY PTAB(INDEX),DISPL,WKBIN1,FDBUF,COB0 CONCATENATE«, t00=0x0014, t01=0x008e}
0x2004…2038 Head {h00=0x0030, h01=0x0050, text=» ADD DISPL,=W'40' ROOM FOR NEXT PRINTERDATA «, t00=0x0014, t01=0x00cc}
0x2038…206e Head {h00=0x0032, h01=0x0050, text=» MOVE PLEN(INDEX,COB1),DISPL SET CRUDE LENGTH «, t00=0x0014, t01=0x0100}
0x206e…2080 Head {h00=0x000e, h01=0x0050, text=» B TABI040«, t00=0x0014, t01=0x0136}
0x2080…208a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0148}
0x208a…209a Head {h00=0x000c, h01=0x0050, text=»TABI220 «, t00=0x0014, t01=0x0152}
0x209a…20c6 Head {h00=0x0028, h01=0x0050, text=»* NEW SET, IMPLICIT FUNCTION COMMAND«, t00=0x0014, t01=0x0162}
0x20c6…20f4 Head {h00=0x002a, h01=0x0050, text=» ADD INDEX,COB1 NEXT RECORD IDENTIFIER«, t00=0x0014, t01=0x018e}
0x20f4…212a Head {h00=0x0032, h01=0x0050, text=» MOVE OLDSET,SET INITIATE FOR FURTHER TESTING «, t00=0x0015, t01=0x002c}
0x212a…2160 Head {h00=0x0032, h01=0x0050, text=» MOVE FCBLD(INDEX),FDBUF SAVE FUNCTION COMMAND«, t00=0x0015, t01=0x0062}
0x2160…2194 Head {h00=0x0030, h01=0x0050, text=» MOVE DISPL,COB0 PRINTERDATA STARTS IN POS 0«, t00=0x0015, t01=0x0098}
0x2194…21a6 Head {h00=0x000e, h01=0x0050, text=» B TABI040«, t00=0x0015, t01=0x00cc}
0x21a6…21b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00de}
0x21b0…21c0 Head {h00=0x000c, h01=0x0050, text=»TABI300 «, t00=0x0015, t01=0x00e8}
0x21c0…21f0 Head {h00=0x002c, h01=0x0050, text=»* PRINTER DATA, VARIOUS NATIONAL RUBBISH«, t00=0x0015, t01=0x00f8}
0x21f0…2208 Head {h00=0x0014, h01=0x0050, text=» MOVE COMB,FDBUF«, t00=0x0015, t01=0x0128}
0x2208…2232 Head {h00=0x0026, h01=0x0050, text=» MOVE SET,COMB CONVERT SET TO BCD «, t00=0x0015, t01=0x0140}
0x2232…2260 Head {h00=0x002a, h01=0x0050, text=» DLETE FDBUF,COB0,COB2 DELETE SEQ.NBR «, t00=0x0015, t01=0x016a}
0x2260…2280 Head {h00=0x001c, h01=0x0050, text=» CBNE SET,OLDSET,TABI320«, t00=0x0016, t01=0x0008}
0x2280…22b4 Head {h00=0x0030, h01=0x0050, text=» CBL DISPL,=W'211',TABI310 PREVENT OVERFLOW «, t00=0x0016, t01=0x0028}
0x22b4…22e8 Head {h00=0x0030, h01=0x0050, text=» MOVE DISPL,=W'210' BY SETTING FIXED POINTER«, t00=0x0016, t01=0x005c}
0x22e8…22f8 Head {h00=0x000c, h01=0x0050, text=»TABI310 «, t00=0x0016, t01=0x0090}
0x22f8…2314 Head {h00=0x0018, h01=0x0050, text=» MOVE WKBIN1,PRWIDTH«, t00=0x0016, t01=0x00a0}
0x2314…2346 Head {h00=0x002e, h01=0x0050, text=» XCOPY PNAT(INDEX),DISPL,WKBIN1,FDBUF,COB0«, t00=0x0016, t01=0x00bc}
0x2346…237a Head {h00=0x0030, h01=0x0050, text=» ADD DISPL,PRWIDTH ROOM FOR NEXT PRINTERDATA«, t00=0x0016, t01=0x00ee}
0x237a…23b0 Head {h00=0x0032, h01=0x0050, text=» MOVE PLEN(INDEX,COB2),DISPL SET CRUDE LENGTH «, t00=0x0016, t01=0x0122}
0x23b0…23c2 Head {h00=0x000e, h01=0x0050, text=» B TABI040«, t00=0x0016, t01=0x0158}
0x23c2…23cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x016a}
0x23cc…23dc Head {h00=0x000c, h01=0x0050, text=»TABI320 «, t00=0x0016, t01=0x0174}
0x23dc…23fc Head {h00=0x001c, h01=0x0050, text=» ADD INDEX,COB1 NEW SET «, t00=0x0016, t01=0x0184}
0x23fc…2414 Head {h00=0x0014, h01=0x0050, text=» MOVE OLDSET,SET«, t00=0x0017, t01=0x0014}
0x2414…242c Head {h00=0x0014, h01=0x0050, text=» MOVE DISPL,COB0«, t00=0x0017, t01=0x002c}
0x242c…243e Head {h00=0x000e, h01=0x0050, text=» B TABI310«, t00=0x0017, t01=0x0044}
0x243e…244e Head {h00=0x000c, h01=0x0050, text=»TABI400 «, t00=0x0017, t01=0x0056}
0x244e…245e Head {h00=0x000c, h01=0x0050, text=»TABI500 «, t00=0x0017, t01=0x0066}
0x245e…246e Head {h00=0x000c, h01=0x0050, text=»TABI600 «, t00=0x0017, t01=0x0076}
0x246e…247e Head {h00=0x000c, h01=0x0050, text=»TABI700 «, t00=0x0017, t01=0x0086}
0x247e…248e Head {h00=0x000c, h01=0x0050, text=»TABI800 «, t00=0x0017, t01=0x0096}
0x248e…24ba Head {h00=0x0028, h01=0x0050, text=» B TABI040 IGNORE THOSE RECORD TYPES«, t00=0x0017, t01=0x00a6}
0x24ba…24c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00d2}
0x24c4…24e0 Head {h00=0x0018, h01=0x0050, text=»TABI900 :256 FOUND«, t00=0x0017, t01=0x00dc}
0x24e0…2516 Head {h00=0x0032, h01=0x0050, text=» MOVE VARIOUS,=C'CONSTANTS LOADED CORRECTLY. '«, t00=0x0017, t01=0x00f8}
0x2516…2532 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0017, t01=0x012e}
0x2532…255e Head {h00=0x0028, h01=0x0050, text=» PERF CLOSE,COB2 CLOSE CONSTANTFILE «, t00=0x0017, t01=0x014a}
0x255e…256e Head {h00=0x000c, h01=0x0050, text=»TABI910 «, t00=0x0017, t01=0x0176}
0x256e…25ac Head {h00=0x003a, h01=0x0050, text=» MOVE VARIOUS,=C'SPECIFY SERIALNUMBER............... '«, t00=0x0017, t01=0x0186}
0x25ac…25c8 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0018, t01=0x0034}
0x25c8…25dc Head {h00=0x0010, h01=0x0050, text=» PERF KBINP «, t00=0x0018, t01=0x0050}
0x25dc…25f2 Head {h00=0x0012, h01=0x0050, text=» BNOK TABI910 «, t00=0x0018, t01=0x0064}
0x25f2…2612 Head {h00=0x001c, h01=0x0050, text=» CBNE INDEX,COB1,TABI910«, t00=0x0018, t01=0x007a}
0x2612…262a Head {h00=0x0014, h01=0x0050, text=» SUB LENGTH,COB1«, t00=0x0018, t01=0x009a}
0x262a…263e Head {h00=0x0010, h01=0x0050, text=» BNZ TABI915«, t00=0x0018, t01=0x00b2}
0x263e…2658 Head {h00=0x0016, h01=0x0050, text=» MOVE BUFIN,=C'1 '«, t00=0x0018, t01=0x00c6}
0x2658…2668 Head {h00=0x000c, h01=0x0050, text=»TABI915 «, t00=0x0018, t01=0x00e0}
0x2668…2692 Head {h00=0x0026, h01=0x0050, text=» MOVE SRLNBR,BUFIN CONVERT TO BCD «, t00=0x0018, t01=0x00f0}
0x2692…26ce Head {h00=0x0038, h01=0x0050, text=» CBNG SRLNBR,=D'9999',TABI920 CHECK FOR VALID RANGE «, t00=0x0018, t01=0x011a}
0x26ce…26f8 Head {h00=0x0026, h01=0x0050, text=» MOVE SRLNBR,=D'1' SET VALID VALUE«, t00=0x0018, t01=0x0156}
0x26f8…2708 Head {h00=0x000c, h01=0x0050, text=»TABI920 «, t00=0x0018, t01=0x0180}
0x2708…2746 Head {h00=0x003a, h01=0x0050, text=» MOVE VARIOUS,=C'SPECIFY DATE (YYMMDD).............. '«, t00=0x0018, t01=0x0190}
0x2746…2762 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0019, t01=0x003e}
0x2762…2776 Head {h00=0x0010, h01=0x0050, text=» PERF KBINP «, t00=0x0019, t01=0x005a}
0x2776…278c Head {h00=0x0012, h01=0x0050, text=» BNOK TABI920 «, t00=0x0019, t01=0x006e}
0x278c…27ac Head {h00=0x001c, h01=0x0050, text=» CBNE INDEX,COB1,TABI920«, t00=0x0019, t01=0x0084}
0x27ac…27c4 Head {h00=0x0014, h01=0x0050, text=» SUB LENGTH,COB1«, t00=0x0019, t01=0x00a4}
0x27c4…27d8 Head {h00=0x0010, h01=0x0050, text=» BNZ TABI925«, t00=0x0019, t01=0x00bc}
0x27d8…27f8 Head {h00=0x001c, h01=0x0050, text=» MOVE BUFIN,=C'830401 ' «, t00=0x0019, t01=0x00d0}
0x27f8…2812 Head {h00=0x0016, h01=0x0050, text=» MOVE LENGTH,COB6 «, t00=0x0019, t01=0x00f0}
0x2812…2822 Head {h00=0x000c, h01=0x0050, text=»TABI925 «, t00=0x0019, t01=0x010a}
0x2822…2844 Head {h00=0x001e, h01=0x0050, text=» CBNE LENGTH,COB6,TABI920 «, t00=0x0019, t01=0x011a}
0x2844…285c Head {h00=0x0014, h01=0x0050, text=» MOVE DATE,BUFIN«, t00=0x0019, t01=0x013c}
0x285c…2882 Head {h00=0x0022, h01=0x0050, text=» CBNG DATE,=D'891231',TABI930 «, t00=0x0019, t01=0x0154}
0x2882…28a0 Head {h00=0x001a, h01=0x0050, text=» MOVE DATE,=D'891231' «, t00=0x0019, t01=0x017a}
0x28a0…28b0 Head {h00=0x000c, h01=0x0050, text=»TABI930 «, t00=0x001a, t01=0x0008}
0x28b0…28cc Head {h00=0x0018, h01=0x0050, text=» MOVE VARIOUS,=C' ' «, t00=0x001a, t01=0x0018}
0x28cc…28e8 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x001a, t01=0x0034}
0x28e8…28fe Head {h00=0x0012, h01=0x0050, text=» PERF CONVERT «, t00=0x001a, t01=0x0050}
0x28fe…292a Head {h00=0x0028, h01=0x0050, text=» PERF CONDENS FIND THE REAL LENGTHS «, t00=0x001a, t01=0x0066}
0x292a…2940 Head {h00=0x0012, h01=0x0050, text=» CMP COB0,COB0«, t00=0x001a, t01=0x0092}
0x2940…294c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001a, t01=0x00a8}
0x294c…2956 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00b4}
0x2956…2966 Head {h00=0x000c, h01=0x0050, text=»TABI980 «, t00=0x001a, t01=0x00be}
0x2966…298c Head {h00=0x0022, h01=0x0050, text=» MOVE VARIOUS,=C'READ ERROR ' «, t00=0x001a, t01=0x00ce}
0x298c…29a8 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x001a, t01=0x00f4}
0x29a8…29d4 Head {h00=0x0028, h01=0x0050, text=» PERF CLOSE,COB2 CLOSE CONSTANT FILE«, t00=0x001a, t01=0x0110}
0x29d4…29f8 Head {h00=0x0020, h01=0x0050, text=» CMP COB0,COB1 SET CR TO NOK«, t00=0x001a, t01=0x013c}
0x29f8…2a04 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001a, t01=0x0160}
0x2a04…2a0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x016c}
0x2a0e…2a1e Head {h00=0x000c, h01=0x0050, text=»TABI990 «, t00=0x001a, t01=0x0176}
0x2a1e…2a42 Head {h00=0x0020, h01=0x0050, text=» CMP COB0,COB1 SET CR TO NOK«, t00=0x001a, t01=0x0186}
0x2a42…2a4e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001b, t01=0x001a}
0x2a4e…2a5c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001b, t01=0x0026}
0x2a5c…2a6a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0034}
0x2a6a…2a7e Head {h00=0x0010, h01=0x0050, text=»CONDENS PROC«, t00=0x001b, t01=0x0042}
0x2a7e…2a88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0056}
0x2a88…2ace Head {h00=0x0042, h01=0x0050, text=»* THE PROCEDURE CONVERTS THE CRUDE LENGTHS OF THE PRINTERDATA «, t00=0x001b, t01=0x0060}
0x2ace…2b16 Head {h00=0x0044, h01=0x0050, text=»* TO SOME MORE CIVILIZED ONES BY FINDING THE LAST USED CHARACTER«, t00=0x001b, t01=0x00a6}
0x2b16…2b56 Head {h00=0x003c, h01=0x0050, text=»* IN THE LINE. THIS IS ACCOMPLISHED BY A BACKWARD MATCH.«, t00=0x001b, t01=0x00ee}
0x2b56…2b60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x012e}
0x2b60…2b92 Head {h00=0x002e, h01=0x0050, text=» MOVE BIN4,=W'30' NBR OF ELEMENTS IN PTAB «, t00=0x001b, t01=0x0138}
0x2b92…2ba0 Head {h00=0x000a, h01=0x0050, text=»COND10«, t00=0x001b, t01=0x016a}
0x2ba0…2bd8 Head {h00=0x0034, h01=0x0050, text=» CBE PLEN(BIN4,COB1),COB0,COND40 ELEMENT IN USE?«, t00=0x001b, t01=0x0178}
0x2bd8…2c0c Head {h00=0x0030, h01=0x0050, text=» MOVE BIN6,PLEN(BIN4,COB1) MOVE CRUDE LENGTH«, t00=0x001c, t01=0x0020}
0x2c0c…2c2a Head {h00=0x001a, h01=0x0050, text=» SUB BIN6,COB1 ADJUST «, t00=0x001c, t01=0x0054}
0x2c2a…2c38 Head {h00=0x000a, h01=0x0050, text=»COND20«, t00=0x001c, t01=0x0072}
0x2c38…2c74 Head {h00=0x0038, h01=0x0050, text=» XCOPY STAT,COB0,COB1,PTAB(BIN4),BIN6 RIGHTMOST CHR «, t00=0x001c, t01=0x0080}
0x2c74…2ca4 Head {h00=0x002c, h01=0x0050, text=» CBNE STAT,=C' ',COND30 NON-BLANK FOUND?«, t00=0x001c, t01=0x00bc}
0x2ca4…2ccc Head {h00=0x0024, h01=0x0050, text=» SUB BIN6,COB1 NO, TRY NEXT BYTE«, t00=0x001c, t01=0x00ec}
0x2ccc…2cf8 Head {h00=0x0028, h01=0x0050, text=» BNZ COND20 IF ANYTHING LEFT AT ALL «, t00=0x001c, t01=0x0114}
0x2cf8…2d06 Head {h00=0x000a, h01=0x0050, text=»COND30«, t00=0x001c, t01=0x0140}
0x2d06…2d2a Head {h00=0x0020, h01=0x0050, text=» ADD BIN6,COB1 ADJUST AGAIN «, t00=0x001c, t01=0x014e}
0x2d2a…2d60 Head {h00=0x0032, h01=0x0050, text=» MOVE PLEN(BIN4,COB1),BIN6 MOVE CLEANED LENGTH«, t00=0x001c, t01=0x0172}
0x2d60…2d6e Head {h00=0x000a, h01=0x0050, text=»COND40«, t00=0x001d, t01=0x0018}
0x2d6e…2d98 Head {h00=0x0026, h01=0x0050, text=» SUB BIN4,COB1 TRY NEXT PRINTLINE «, t00=0x001d, t01=0x0026}
0x2d98…2dbc Head {h00=0x0020, h01=0x0050, text=» BP COND10 IF ANYTHING LEFT «, t00=0x001d, t01=0x0050}
0x2dbc…2dc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0074}
0x2dc6…2df6 Head {h00=0x002c, h01=0x0050, text=» MOVE BIN4,COB10 NBR OF ELEMENTS IN PNAT«, t00=0x001d, t01=0x007e}
0x2df6…2e06 Head {h00=0x000c, h01=0x0050, text=»COND110 «, t00=0x001d, t01=0x00ae}
0x2e06…2e40 Head {h00=0x0036, h01=0x0050, text=» CBE PLEN(BIN4,COB2),COB0,COND140 ELEMENT IN USE? «, t00=0x001d, t01=0x00be}
0x2e40…2e74 Head {h00=0x0030, h01=0x0050, text=» MOVE BIN6,PLEN(BIN4,COB2) MOVE CRUDE LENGTH«, t00=0x001d, t01=0x00f8}
0x2e74…2e92 Head {h00=0x001a, h01=0x0050, text=» SUB BIN6,COB1 ADJUST «, t00=0x001d, t01=0x012c}
0x2e92…2ea2 Head {h00=0x000c, h01=0x0050, text=»COND120 «, t00=0x001d, t01=0x014a}
0x2ea2…2ede Head {h00=0x0038, h01=0x0050, text=» XCOPY STAT,COB0,COB1,PNAT(BIN4),BIN6 RIGHTMOST CHR «, t00=0x001d, t01=0x015a}
0x2ede…2f0e Head {h00=0x002c, h01=0x0050, text=» CBNE STAT,=C' ',COND130 NON-BLANK FOUND«, t00=0x001e, t01=0x0008}
0x2f0e…2f36 Head {h00=0x0024, h01=0x0050, text=» SUB BIN6,COB1 NO, TRY NEXT BYTE«, t00=0x001e, t01=0x0038}
0x2f36…2f62 Head {h00=0x0028, h01=0x0050, text=» BNZ COND120 IF ANYTHING LEFT AT ALL«, t00=0x001e, t01=0x0060}
0x2f62…2f72 Head {h00=0x000c, h01=0x0050, text=»COND130 «, t00=0x001e, t01=0x008c}
0x2f72…2f94 Head {h00=0x001e, h01=0x0050, text=» ADD BIN6,COB1 ADJUST BACK«, t00=0x001e, t01=0x009c}
0x2f94…2fca Head {h00=0x0032, h01=0x0050, text=» MOVE PLEN(BIN4,COB2),BIN6 MOVE CLEANED LENGTH«, t00=0x001e, t01=0x00be}
0x2fca…2fda Head {h00=0x000c, h01=0x0050, text=»COND140 «, t00=0x001e, t01=0x00f4}
0x2fda…3004 Head {h00=0x0026, h01=0x0050, text=» SUB BIN4,COB1 TRY NEXT PRINTLINE «, t00=0x001e, t01=0x0104}
0x3004…302e Head {h00=0x0026, h01=0x0050, text=» BP COND110 IF THERE WAS MORE LEFT«, t00=0x001e, t01=0x012e}
0x302e…3038 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0158}
0x3038…3044 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001e, t01=0x0162}
0x3044…3052 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001e, t01=0x016e}
0x3052…3060 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x017c}
0x3060…3074 Head {h00=0x0010, h01=0x0050, text=»CONVERT PROC«, t00=0x001e, t01=0x018a}
0x3074…307e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x000e}
0x307e…30ca Head {h00=0x0048, h01=0x0050, text=»* THIS ROUTINE CONVERTS EVTL. SPECIAL CHARACTERS IN THE PRINTERDATA «, t00=0x001f, t01=0x0018}
0x30ca…30fa Head {h00=0x002c, h01=0x0050, text=»* THE FOLLOWING CONVERSIONS TAKE PLACE: «, t00=0x001f, t01=0x0064}
0x30fa…310e Head {h00=0x0010, h01=0x0050, text=»* # -> <LF> «, t00=0x001f, t01=0x0094}
0x310e…3122 Head {h00=0x0010, h01=0x0050, text=»* ! -> <FF> «, t00=0x001f, t01=0x00a8}
0x3122…3136 Head {h00=0x0010, h01=0x0050, text=»* " -> <SO> «, t00=0x001f, t01=0x00bc}
0x3136…3140 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00d0}
0x3140…316a Head {h00=0x0026, h01=0x0050, text=» MOVE BIN4,=W'30' NBR OF ELEMENTS «, t00=0x001f, t01=0x00da}
0x316a…3178 Head {h00=0x000a, h01=0x0050, text=»CONV00«, t00=0x001f, t01=0x0104}
0x3178…31a4 Head {h00=0x0028, h01=0x0050, text=» MOVE COMB,=X'230A' HASH TO LINEFEED«, t00=0x001f, t01=0x0112}
0x31a4…31be Head {h00=0x0016, h01=0x0050, text=» MOVE BIN5,=W'250'«, t00=0x001f, t01=0x013e}
0x31be…31d6 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN6,COB0 «, t00=0x001f, t01=0x0158}
0x31d6…3208 Head {h00=0x002e, h01=0x0050, text=» MATCH PTAB(BIN4),BIN6,BIN5,COMB,COB0,COB1«, t00=0x001f, t01=0x0170}
0x3208…321c Head {h00=0x0010, h01=0x0050, text=» BNOK CONV20«, t00=0x0020, t01=0x0012}
0x321c…3248 Head {h00=0x0028, h01=0x0050, text=» COPY PTAB(BIN4),BIN6,COB1,COMB,COB1«, t00=0x0020, t01=0x0026}
0x3248…326e Head {h00=0x0022, h01=0x0050, text=» B CONV00 THERE MIGHT BE MORE «, t00=0x0020, t01=0x0052}
0x326e…327c Head {h00=0x000a, h01=0x0050, text=»CONV20«, t00=0x0020, t01=0x0078}
0x327c…32ae Head {h00=0x002e, h01=0x0050, text=» MOVE COMB,=X'210C' EXCL.MARK TO FORMFEED «, t00=0x0020, t01=0x0086}
0x32ae…32c8 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN5,=W'250'«, t00=0x0020, t01=0x00b8}
0x32c8…32e0 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN6,COB0 «, t00=0x0020, t01=0x00d2}
0x32e0…3312 Head {h00=0x002e, h01=0x0050, text=» MATCH PTAB(BIN4),BIN6,BIN5,COMB,COB0,COB1«, t00=0x0020, t01=0x00ea}
0x3312…3326 Head {h00=0x0010, h01=0x0050, text=» BNOK CONV40«, t00=0x0020, t01=0x011c}
0x3326…3352 Head {h00=0x0028, h01=0x0050, text=» COPY PTAB(BIN4),BIN6,COB1,COMB,COB1«, t00=0x0020, t01=0x0130}
0x3352…3364 Head {h00=0x000e, h01=0x0050, text=» B CONV20 «, t00=0x0020, t01=0x015c}
0x3364…3372 Head {h00=0x000a, h01=0x0050, text=»CONV40«, t00=0x0020, t01=0x016e}
0x3372…33a6 Head {h00=0x0030, h01=0x0050, text=» MOVE COMB,=X'220E' DOUBLE QUOTE TO SHIFTOUT«, t00=0x0020, t01=0x017c}
0x33a6…33c0 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN5,=W'250'«, t00=0x0021, t01=0x0020}
0x33c0…33d8 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN6,COB0 «, t00=0x0021, t01=0x003a}
0x33d8…340a Head {h00=0x002e, h01=0x0050, text=» MATCH PTAB(BIN4),BIN6,BIN5,COMB,COB0,COB1«, t00=0x0021, t01=0x0052}
0x340a…341e Head {h00=0x0010, h01=0x0050, text=» BNOK CONV60«, t00=0x0021, t01=0x0084}
0x341e…344a Head {h00=0x0028, h01=0x0050, text=» COPY PTAB(BIN4),BIN6,COB1,COMB,COB1«, t00=0x0021, t01=0x0098}
0x344a…345c Head {h00=0x000e, h01=0x0050, text=» B CONV40 «, t00=0x0021, t01=0x00c4}
0x345c…346a Head {h00=0x000a, h01=0x0050, text=»CONV60«, t00=0x0021, t01=0x00d6}
0x346a…3480 Head {h00=0x0012, h01=0x0050, text=» SUB BIN4,COB1«, t00=0x0021, t01=0x00e4}
0x3480…3492 Head {h00=0x000e, h01=0x0050, text=» BP CONV00«, t00=0x0021, t01=0x00fa}
0x3492…349c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x010c}
0x349c…34d0 Head {h00=0x0030, h01=0x0050, text=» MOVE BIN4,=W'10' NUMBER OF ELEMENTS IN PNAT«, t00=0x0021, t01=0x0116}
0x34d0…34e0 Head {h00=0x000c, h01=0x0050, text=»CONV100 «, t00=0x0021, t01=0x014a}
0x34e0…34fa Head {h00=0x0016, h01=0x0050, text=» MOVE BIN5,=W'250'«, t00=0x0021, t01=0x015a}
0x34fa…3512 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN6,COB0 «, t00=0x0021, t01=0x0174}
0x3512…352e Head {h00=0x0018, h01=0x0050, text=» MOVE COMB,=X'230A' «, t00=0x0021, t01=0x018c}
0x352e…3560 Head {h00=0x002e, h01=0x0050, text=» MATCH PNAT(BIN4),BIN6,BIN5,COMB,COB0,COB1«, t00=0x0022, t01=0x0018}
0x3560…3576 Head {h00=0x0012, h01=0x0050, text=» BNOK CONV120 «, t00=0x0022, t01=0x004a}
0x3576…35a2 Head {h00=0x0028, h01=0x0050, text=» COPY PNAT(BIN4),BIN6,COB1,COMB,COB1«, t00=0x0022, t01=0x0060}
0x35a2…35b4 Head {h00=0x000e, h01=0x0050, text=» B CONV100«, t00=0x0022, t01=0x008c}
0x35b4…35c4 Head {h00=0x000c, h01=0x0050, text=»CONV120 «, t00=0x0022, t01=0x009e}
0x35c4…35e0 Head {h00=0x0018, h01=0x0050, text=» MOVE COMB,=X'210C' «, t00=0x0022, t01=0x00ae}
0x35e0…35fa Head {h00=0x0016, h01=0x0050, text=» MOVE BIN5,=W'250'«, t00=0x0022, t01=0x00ca}
0x35fa…3612 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN6,COB0 «, t00=0x0022, t01=0x00e4}
0x3612…3644 Head {h00=0x002e, h01=0x0050, text=» MATCH PNAT(BIN4),BIN6,BIN5,COMB,COB0,COB1«, t00=0x0022, t01=0x00fc}
0x3644…365a Head {h00=0x0012, h01=0x0050, text=» BNOK CONV140 «, t00=0x0022, t01=0x012e}
0x365a…3686 Head {h00=0x0028, h01=0x0050, text=» COPY PNAT(BIN4),BIN6,COB1,COMB,COB1«, t00=0x0022, t01=0x0144}
0x3686…3698 Head {h00=0x000e, h01=0x0050, text=» B CONV120«, t00=0x0022, t01=0x0170}
0x3698…36a0 Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x0182}
0x36a0…36b0 Head {h00=0x000c, h01=0x0050, text=»CONV140 «, t00=0x0022, t01=0x018a}
0x36b0…36cc Head {h00=0x0018, h01=0x0050, text=» MOVE COMB,=X'220E' «, t00=0x0023, t01=0x000a}
0x36cc…36e6 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN5,=W'250'«, t00=0x0023, t01=0x0026}
0x36e6…36fe Head {h00=0x0014, h01=0x0050, text=» MOVE BIN6,COB0 «, t00=0x0023, t01=0x0040}
0x36fe…3730 Head {h00=0x002e, h01=0x0050, text=» MATCH PNAT(BIN4),BIN6,BIN5,COMB,COB0,COB1«, t00=0x0023, t01=0x0058}
0x3730…3746 Head {h00=0x0012, h01=0x0050, text=» BNOK CONV160 «, t00=0x0023, t01=0x008a}
0x3746…3772 Head {h00=0x0028, h01=0x0050, text=» COPY PNAT(BIN4),BIN6,COB1,COMB,COB1«, t00=0x0023, t01=0x00a0}
0x3772…3784 Head {h00=0x000e, h01=0x0050, text=» B CONV140«, t00=0x0023, t01=0x00cc}
0x3784…3794 Head {h00=0x000c, h01=0x0050, text=»CONV160 «, t00=0x0023, t01=0x00de}
0x3794…37aa Head {h00=0x0012, h01=0x0050, text=» SUB BIN4,COB1«, t00=0x0023, t01=0x00ee}
0x37aa…37be Head {h00=0x0010, h01=0x0050, text=» BP CONV100 «, t00=0x0023, t01=0x0104}
0x37be…37c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0118}
0x37c8…37de Head {h00=0x0012, h01=0x0050, text=» CMP COB0,COB0«, t00=0x0023, t01=0x0122}
0x37de…37ea Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0023, t01=0x0138}
0x37ea…37f8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0023, t01=0x0144}
0x37f8…3806 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0152}
0x3806…381a Head {h00=0x0010, h01=0x0050, text=»RDNEXT PROC «, t00=0x0023, t01=0x0160}
0x381a…3846 Head {h00=0x0028, h01=0x0050, text=» ADD RECNO,COB1 POINT TO NEXT RECORD«, t00=0x0023, t01=0x0174}
0x3846…3870 Head {h00=0x0026, h01=0x0050, text=» PERF READ,COB1,FDBUF,RECNO,STATUS«, t00=0x0024, t01=0x0010}
0x3870…3884 Head {h00=0x0010, h01=0x0050, text=» BNOK RDN300«, t00=0x0024, t01=0x003a}
0x3884…388e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x004e}
0x388e…38ce Head {h00=0x003c, h01=0x0050, text=» XCOPY FDLBUF,DISPL,RECLEN,FDBUF,COB0 CONCATENATE BUFFER«, t00=0x0024, t01=0x0058}
0x38ce…38fe Head {h00=0x002c, h01=0x0050, text=» ADD DISPL,RECLEN PREPARE FOR NEXT READ «, t00=0x0024, t01=0x0098}
0x38fe…3932 Head {h00=0x0030, h01=0x0050, text=» MOVE WKSTR6,=X'1C0100000A' <FS>!<:256>!<*A>«, t00=0x0024, t01=0x00c8}
0x3932…395a Head {h00=0x0024, h01=0x0050, text=» MOVE WKB1,COB0 STARTPOINT MATCH«, t00=0x0024, t01=0x00fc}
0x395a…3984 Head {h00=0x0026, h01=0x0050, text=» MOVE WKBIN1,=W'384' BUFFER LENGTH«, t00=0x0024, t01=0x0124}
0x3984…39c6 Head {h00=0x003e, h01=0x0050, text=» MATCH FDLBUF,WKB1,WKBIN1,WKSTR6,COB0,COB5 SEARCH FOR EOF «, t00=0x0024, t01=0x014e}
0x39c6…39e4 Head {h00=0x001a, h01=0x0050, text=» BNOK RDN200 NOT FOUND«, t00=0x0024, t01=0x0190}
0x39e4…3a08 Head {h00=0x0020, h01=0x0050, text=» SET EOF EOF FOUND, SET FLAG«, t00=0x0025, t01=0x001e}
0x3a08…3a16 Head {h00=0x000a, h01=0x0050, text=»RDN200«, t00=0x0025, t01=0x0042}
0x3a16…3a2c Head {h00=0x0012, h01=0x0050, text=» CMP COB0,COB0«, t00=0x0025, t01=0x0050}
0x3a2c…3a3a Head {h00=0x000a, h01=0x0050, text=»RDN300«, t00=0x0025, t01=0x0066}
0x3a3a…3a46 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0025, t01=0x0074}
0x3a46…3a54 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0025, t01=0x0080}
0x3a54…3a62 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x008e}
0x3a62…3a76 Head {h00=0x0010, h01=0x0050, text=»VARIUS FRMT «, t00=0x0025, t01=0x009c}
0x3a76…3a8a Head {h00=0x0010, h01=0x0050, text=» FCOPY ='22'«, t00=0x0025, t01=0x00b0}
0x3a8a…3aa0 Head {h00=0x0012, h01=0x0050, text=» FCOPY VARIOUS«, t00=0x0025, t01=0x00c4}
0x3aa0…3aae Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0025, t01=0x00da}
0x3aae…3ab6 Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x00e8}
0x3ab6…3ac8 Head {h00=0x000e, h01=0x0050, text=»WRONG FRMT«, t00=0x0025, t01=0x00f0}
0x3ac8…3adc Head {h00=0x0010, h01=0x0050, text=» FCOPY ='++'«, t00=0x0025, t01=0x0102}
0x3adc…3af6 Head {h00=0x0016, h01=0x0050, text=» FCOPY ='REJECTED'«, t00=0x0025, t01=0x0116}
0x3af6…3b02 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0025, t01=0x0130}
0x3b02…3b18 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',30 «, t00=0x0025, t01=0x013c}
0x3b18…3b2e Head {h00=0x0012, h01=0x0050, text=» FCOPY =': ' «, t00=0x0025, t01=0x0152}
0x3b2e…3b3c Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0025, t01=0x0168}
0x3b3c…3b44 Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x0176}
0x3b44…3b56 Head {h00=0x000e, h01=0x0050, text=»MODIF FRMT«, t00=0x0025, t01=0x017e}
0x3b56…3b6e Head {h00=0x0014, h01=0x0050, text=» FMEL '9',WKBCD1«, t00=0x0025, t01=0x0190}
0x3b6e…3b7c Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0026, t01=0x0018}
0x3b7c…3b84 Head {h00=0x0004, h01=0x0050, t00=0x0026, t01=0x0026}
0x3b84…3b94 Head {h00=0x000c, h01=0x0050, text=»INF FRMT«, t00=0x0026, t01=0x002e}
0x3b94…3baa Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'22' «, t00=0x0026, t01=0x003e}
0x3baa…3bbe Head {h00=0x0010, h01=0x0050, text=» FCOPY INFO «, t00=0x0026, t01=0x0054}
0x3bbe…3bcc Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0026, t01=0x0068}
0x3bcc…3bd4 Head {h00=0x0004, h01=0x0050, t00=0x0026, t01=0x0076}
0x3bd4…3be0 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0026, t01=0x007e}
0x3be0…3be4 Head {h00=0x4004, h01=0x0000}
0x3be4…3be8 00 26 00 8a ┆ & ┆
0x3be8…3bf0 (39, 1, 8) 20 04 00 00 00 27 00 04 ┆ ' ┆