|
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: 17428 (0x4414)
Notes: pts_type(SC)
Names: »SUBS.SC«
└─⟦cd4bbebb4⟧ Bits:30009680 Philips computer tape "600221"
└─⟦this⟧ »ATM/SUBS.SC«
IDENT SUBS 830801 NJ ************************************************************************ * THIS ROUTINE CONTAINS VARIOUS SUBROUTINES USED WITHIN * THE ATM DEMO PACKAGE T A B S I M. ************************************************************************ DDUM DDIV PDIV ENTRY LOADER ENTRY TABINT ENTRY SETKLK ENTRY LDMONI ENTRY BUNDT ENTRY LUK 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 "ATM002")... ' 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'ATM002 ' 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 * 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 B LOA980 LOA960 MOVE VARIOUS,=C'READ/WRITE ERROR ON DATA DISK ' B LOA980 LOA970 MOVE VARIOUS,=C'DLL ERROR ' LOA980 PERF SCRIBE,VARIUS 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'L@BENR. DEPONERING................. ' PERF SCRIBE,VARIUS PERF KBINP BNOK TABI910 CBNE INDEX,COB1,TABI910 SUB LENGTH,COB1 BNZ TABI915 MOVE BUFIN,=C'1 ' TABI915 MOVE SRLNBR(COB2),BUFIN CONVERT TO BCD CBNG SRLNBR(COB2),=D'9999',TABI920 CHECK FOR VALID RANGE MOVE SRLNBR(COB2),=D'1' SET VALID VALUE TABI920 MOVE VARIOUS,=C'DAGENS DATO: (DDMM]]).............. ' PERF SCRIBE,VARIUS PERF KBINP BNOK TABI920 CBNE INDEX,COB1,TABI920 SUB LENGTH,COB1 BNZ TABI925 MOVE BUFIN,=C'150883' MOVE LENGTH,COB6 TABI925 CBNE LENGTH,COB6,TABI920 MOVE DATE,BUFIN TABI930 PERF SETKL TAB940 MOVE VARIOUS,=C'L@PENR. UTTAK .......... ' PERF SCRIBE,VARIUS PERF KBINP BNOK TAB940 CBNE INDEX,COB1,TAB940 SUB LENGTH,COB1 BZ TAB940 MOVE SRLNBR(COB1),BUFIN PERF SEDLER * 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 SETKL PROC SETKL0 MOVE VARIOUS,=C'HVA ER KLOKKEN? .......... ' PERF SCRIBE,VARIUS PERF KBINP BNOK SETKL0 CBNE INDEX,COB1,SETKL0 SUB LENGTH,COB1 CBNE LENGTH,COB4,SETKL0 MOVE KL,BUFIN RET PEND SEDLER PROC SEDL00 MOVE VARIOUS,=C'BEL@BS[NDRING SKUFFE 1 (+/-) ..... ' PERF SCRIBE,VARIUS PERF KBINP BNOK SEDL00 CBNE INDEX,COB1,SEDL00 SUB LENGTH,COB1 BZ SEDL10 NO CHANGE IN DRAWER 1 MOVE WKBCD1,BUFIN ADD BEHOLDN(COB1,COB1),WKBCD1 SEDL10 MOVE VARIOUS,=C'BEL@PS[NDRING SKIFFE 2(+/-) ..... ' PERF SCRIBE,VARIUS PERF KBINP BNOK SEDL10 CBNE INDEX,COB1,SEDL10 SUB LENGTH,COB1 BZ SEDL20 NO CHANGE IN DRAWER 2 MOVE WKBCD1,BUFIN ADD BEHOLDN(COB2,COB1),WKBCD1 SEDL20 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 * MOVE BIN4,=W'30' NBR OF ELEMENTS CONV00 MOVE FDBUF,PTAB(BIN4) MOVE WKBIN3,=W'250' PERF CONV1,FDBUF,WKBIN3 MOVE PTAB(BIN4),FDBUF MOVE FDBUF,PNAT(BIN4) * MOVE WKBIN3,=W'250' PERF CONV1,FDBUF,WKBIN3 MOVE PNAT(BIN4),FDBUF SUB BIN4,COB1 BP CONV00 * CMP COB0,COB0 RET PEND EJECT CONV1 PROC FELT,LEN PSTRG FELT PBIN LEN * * THIS PROCEDURE USES THE STRING 'CONV' TO CONVERT ANY SPECIAL * CHARACTERS IN ANY STRING WITH THE LENGTH AS SPECIFIED BY <LEN> * INTO A HEX VALUE BETWEEN 01 AND 1F * MOVE WKBIN1,=W'31' LENGTH OF CONV - 1 CONV110 XCOPY WKSTR7,COB0,COB1,CONV,WKBIN1 CBNE WKSTR7,=C'*',CONV120 HEX VALUE NOT USED * SCAN FIELD FOR OCCURRENCE OF A CHR AS DEFINED * IN CONV(WKBIN1) CONV120 MOVE WKBIN2,COB0 MATCH FELT,WKBIN2,LEN,WKSTR7,COB0,COB1 BNOK CONV130 NOT FOUND, TRY NEXT CHR XCOPY FELT,WKBIN2,COB1,WKBIN1,COB1 B CONV120 THERE MIGHT BE MORE CONV130 SUB WKBIN1,COB1 BP CONV110 CMP COB0,COB0 RET PEND EJECT RDNEXT PROC ADD RECNO,COB1 POINT TO NEXT RECORD PERF READ,COB1,FDBUF,RECNO,STATUS BNOK RDN300 TBF BEBANK,RDN100 BERGEN BANK? XCOPY MESS,COB0,COB1,FDBUF,COB0 EXAMINE FIRST CHR CBE MESS,=C'*',RDN020 CBE MESS,=C':',RDN030 * NOW WE HAVE A PHYSICAL RECORD, WHICH MIGHT BE * A PART OF A LARGER ONE * IF CONVERSION IS REQUIRED FROM .XXXX , THIS IS THE PLACE TO DO IT RDN008 B RDN100 RDN020 XCOPY NEWWC,COB0,COB1,FDBUF,COB1 NEW WRITE COMMAND B RDN200 RDN030 B RDN200 NEW RECORD RDN100 * 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 DECHEX PROC FIELD,DISP,LEN PSTRG FIELD PBIN DISP PBIN LEN * * THIS PROCEDURE CONVERTS 3 CHRS AT A TIME FROM NUMERIC * TO THE SAME VALUE IN HEX * EXAMPLE* 068 IS CONVERTED INTO X'44' * THE 2 NOW UNUSED CHRS ARE DELETED * DECH00 XCOPY WKD3A,COB0,COB3,FIELD,DISPL GET 3 BYTES MOVE WKBCD1,WKD3A CONVERT TO DEC MOVE WKBIN2,WKBCD1 CONVERT TO HEX XCOPY FIELD,DISP,COB1,WKBIN2,COB1 MOVE BACK INTO FIELD ADD DISP,COB1 POINT TO 1. CHR TO BE DELETED DELETE FIELD,DISP,COB2 DELETE 2 BYTES SUB LEN,COB3 DECREASE LENGTH CBL LEN,COB3,DECH10 MORE LEFT TO CONVERT? PERF DECHEX,FIELD,DISP,LEN RECURSIVE CALL DECH10 RET PEND EJECT SETKLK PROC RET PEND LDMONI PROC RET PEND BUNDT PROC RET PEND LUK PROC 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…001e (0, 0, 398) Head {h00=0x001a, h01=0x0050, text=» IDENT SUBS 830801 NJ «, t00=0x0000, t01=0x0004}
0x001e…0026 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0022}
0x0026…0076 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x002a}
0x0076…00ba Head {h00=0x0040, h01=0x0050, text=»* THIS ROUTINE CONTAINS VARIOUS SUBROUTINES USED WITHIN «, t00=0x0000, t01=0x007a}
0x00ba…00ea Head {h00=0x002c, h01=0x0050, text=»* THE ATM DEMO PACKAGE T A B S I M. «, t00=0x0000, t01=0x00be}
0x00ea…013a Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x00ee}
0x013a…0142 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x013e}
0x0142…0154 Head {h00=0x000e, h01=0x0050, text=» DDUM DDIV«, t00=0x0000, t01=0x0146}
0x0154…0162 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0158}
0x0162…0178 Head {h00=0x0012, h01=0x0050, text=» ENTRY LOADER «, t00=0x0000, t01=0x0166}
0x0178…018e Head {h00=0x0012, h01=0x0050, text=» ENTRY TABINT «, t00=0x0000, t01=0x017c}
0x018e…01a4 (1, 0, 400) Head {h00=0x0012, h01=0x0050, text=» ENTRY SETKLK «, t00=0x0001, t01=0x0004}
0x01a4…01ba Head {h00=0x0012, h01=0x0050, text=» ENTRY LDMONI «, t00=0x0001, t01=0x001a}
0x01ba…01ce Head {h00=0x0010, h01=0x0050, text=» ENTRY BUNDT«, t00=0x0001, t01=0x0030}
0x01ce…01e0 Head {h00=0x000e, h01=0x0050, text=» ENTRY LUK«, t00=0x0001, t01=0x0044}
0x01e0…01e8 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0056}
0x01e8…01f0 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x005e}
0x01f0…020c Head {h00=0x0018, h01=0x0050, text=» EXPROC SCRIBE,PFRMT«, t00=0x0001, t01=0x0066}
0x020c…0222 Head {h00=0x0012, h01=0x0050, text=» EXPROC KBINP «, t00=0x0001, t01=0x0082}
0x0222…0238 Head {h00=0x0012, h01=0x0050, text=» EXPROC DLLATM«, t00=0x0001, t01=0x0098}
0x0238…024c Head {h00=0x0010, h01=0x0050, text=» EXPROC OPEN«, t00=0x0001, t01=0x00ae}
0x024c…0262 Head {h00=0x0012, h01=0x0050, text=» EXPROC CLOSE «, t00=0x0001, t01=0x00c2}
0x0262…0276 Head {h00=0x0010, h01=0x0050, text=» EXPROC READ«, t00=0x0001, t01=0x00d8}
0x0276…028c Head {h00=0x0012, h01=0x0050, text=» EXPROC OPRCMD«, t00=0x0001, t01=0x00ec}
0x028c…0294 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0102}
0x0294…02a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x010a}
0x02a2…02aa Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0118}
0x02aa…02be Head {h00=0x0010, h01=0x0050, text=»LOADER PROC «, t00=0x0001, t01=0x0120}
0x02be…02c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0134}
0x02c8…0310 Head {h00=0x0044, h01=0x0050, text=»* THIS ROUTINE DOWNLINELOADS THE STATES, SCREENS ETC TO THE ATM.«, t00=0x0001, t01=0x013e}
0x0310…0356 Head {h00=0x0042, h01=0x0050, text=»* THE INPUT IS TO RESIDE ON A FLOPPY FILE, CREATED BY THE ATM-«, t00=0x0001, t01=0x0186}
0x0356…039a Head {h00=0x0040, h01=0x0050, text=»* CONFIGURATOR. INPUT TO THE CONFIGURATOR IS CREATED BY THE «, t00=0x0002, t01=0x003c}
0x039a…03b2 Head {h00=0x0014, h01=0x0050, text=»* NORMAL EDITOR.«, t00=0x0002, t01=0x0080}
0x03b2…03bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0098}
0x03bc…03ca Head {h00=0x000a, h01=0x0050, text=»LOA010«, t00=0x0002, t01=0x00a2}
0x03ca…040a Head {h00=0x003c, h01=0x0050, text=» MOVE VARIOUS,=C'SPECIFY DLL-FILE (IF NOT "ATM002")... '«, t00=0x0002, t01=0x00b0}
0x040a…0426 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0002, t01=0x00f0}
0x0426…043a Head {h00=0x0010, h01=0x0050, text=» PERF KBINP «, t00=0x0002, t01=0x010c}
0x043a…044e Head {h00=0x0010, h01=0x0050, text=» BOK LOA020 «, t00=0x0002, t01=0x0120}
0x044e…0474 Head {h00=0x0022, h01=0x0050, text=» PERF SCRIBE,WRONG INPUT ERROR«, t00=0x0002, t01=0x0134}
0x0474…0490 Head {h00=0x0018, h01=0x0050, text=» B LOA010 TRY AGAIN «, t00=0x0002, t01=0x015a}
0x0490…049e Head {h00=0x000a, h01=0x0050, text=»LOA020«, t00=0x0002, t01=0x0176}
0x049e…04b6 Head {h00=0x0014, h01=0x0050, text=» MOVE INFO,=C' '«, t00=0x0002, t01=0x0184}
0x04b6…04ce Head {h00=0x0014, h01=0x0050, text=» PERF SCRIBE,INF«, t00=0x0003, t01=0x000c}
0x04ce…04fa Head {h00=0x0028, h01=0x0050, text=» CBNE INDEX,COB1,LOA010 NOT <ENTER> «, t00=0x0003, t01=0x0024}
0x04fa…0528 Head {h00=0x002a, h01=0x0050, text=» SUB LENGTH,COB1 THROW AWAY ENTER-KEY «, t00=0x0003, t01=0x0050}
0x0528…0548 Head {h00=0x001c, h01=0x0050, text=» BNZ LOA025 NOT DEFAULT«, t00=0x0003, t01=0x007e}
0x0548…0568 Head {h00=0x001c, h01=0x0050, text=» MOVE BUFIN,=C'ATM002 ' «, t00=0x0003, t01=0x009e}
0x0568…0582 Head {h00=0x0016, h01=0x0050, text=» MOVE LENGTH,COB6 «, t00=0x0003, t01=0x00be}
0x0582…0590 Head {h00=0x000a, h01=0x0050, text=»LOA025«, t00=0x0003, t01=0x00d8}
0x0590…05c0 Head {h00=0x002c, h01=0x0050, text=» COPY DSFTABLE(COB1),COB0,COB8,INFO,COB0«, t00=0x0003, t01=0x00e6}
0x05c0…0604 Head {h00=0x0040, h01=0x0050, text=» COPY DSFTABLE(COB1),COB0,LENGTH,BUFIN,COB0 CHANGE FILENAME «, t00=0x0003, t01=0x0116}
0x0604…0636 Head {h00=0x002e, h01=0x0050, text=» COPY DSFTABLE(COB1),COB8,COB6,VOLUME,COB0«, t00=0x0003, t01=0x015a}
0x0636…0648 Head {h00=0x000e, h01=0x0050, text=» CLEAR EOF«, t00=0x0003, t01=0x018c}
0x0648…0674 Head {h00=0x0028, h01=0x0050, text=» PERF OPEN,COB1,WKB1 OPEN SOURCEFILE«, t00=0x0004, t01=0x000e}
0x0674…0688 Head {h00=0x0010, h01=0x0050, text=» BOK LOA030 «, t00=0x0004, t01=0x003a}
0x0688…06ae Head {h00=0x0022, h01=0x0050, text=» MOVE VARIOUS,=C'ASSIGNERROR '«, t00=0x0004, t01=0x004e}
0x06ae…06ca Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0004, t01=0x0074}
0x06ca…06e0 Head {h00=0x0012, h01=0x0050, text=» B LOA990 EXIT«, t00=0x0004, t01=0x0090}
0x06e0…06ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a6}
0x06ea…070e Head {h00=0x0020, h01=0x0050, text=»LOA030 FILE IS NOW OPENED «, t00=0x0004, t01=0x00b0}
0x070e…0740 Head {h00=0x002e, h01=0x0050, text=» MOVE WKSTR7,=C'2' TAKE ATM OUT OF SERVICE«, t00=0x0004, t01=0x00d4}
0x0740…076a Head {h00=0x0026, h01=0x0050, text=» PERF OPRCMD SEND, + RCV SOLL.STAT«, t00=0x0004, t01=0x0106}
0x076a…0788 Head {h00=0x001a, h01=0x0050, text=» BNOK LOA030 TRY AGAIN«, t00=0x0004, t01=0x0130}
0x0788…07c0 Head {h00=0x0034, h01=0x0050, text=» MOVE VARIOUS,=C'* DOWNLINELOAD IN PROGRESS * ' «, t00=0x0004, t01=0x014e}
0x07c0…07dc Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0004, t01=0x0186}
0x07dc…0806 Head {h00=0x0026, h01=0x0050, text=» SET DLL INDICATE DLL IN PROGRESS «, t00=0x0005, t01=0x0012}
0x0806…0840 Head {h00=0x0036, h01=0x0050, text=» MOVE WKSTG2,=X'4131201B3142331C1C1C31001C' HEADER«, t00=0x0005, t01=0x003c}
0x0840…086c Head {h00=0x0028, h01=0x0050, text=» MOVE PNT4,COB0 READ 1. LOGICAL PART«, t00=0x0005, t01=0x0076}
0x086c…0884 Head {h00=0x0014, h01=0x0050, text=» MOVE RECNO,COB0«, t00=0x0005, t01=0x00a2}
0x0884…089c Head {h00=0x0014, h01=0x0050, text=» MOVE DISPL,COB0«, t00=0x0005, t01=0x00ba}
0x089c…08b6 Head {h00=0x0016, h01=0x0050, text=» MOVE FDLBUF,=C' '«, t00=0x0005, t01=0x00d2}
0x08b6…08c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ec}
0x08c0…08e6 Head {h00=0x0022, h01=0x0050, text=» PERF RDNEXT READ FIRST RECORD«, t00=0x0005, t01=0x00f6}
0x08e6…08fa Head {h00=0x0010, h01=0x0050, text=» BNOK LOA960«, t00=0x0005, t01=0x011c}
0x08fa…0904 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0130}
0x0904…092c Head {h00=0x0024, h01=0x0050, text=»LOA070 PNT4 POINTS TO MODIFIER«, t00=0x0005, t01=0x013a}
0x092c…095c Head {h00=0x002c, h01=0x0050, text=» SET MODIFLG INDICATE WE HAVE A MODIFIER«, t00=0x0005, t01=0x0162}
0x095c…0994 (6, 0, 400) Head {h00=0x0034, h01=0x0050, text=» XCOPY BIN5,COB0,COB2,FDLBUF,PNT4 MOVE MODIFIER «, t00=0x0006, t01=0x0004}
0x0994…09aa Head {h00=0x0012, h01=0x0050, text=» ADD PNT4,COB2«, t00=0x0006, t01=0x003c}
0x09aa…09d4 Head {h00=0x0026, h01=0x0050, text=»LOA080 PNT4 POINTS TO RECORDNBR «, t00=0x0006, t01=0x0052}
0x09d4…0a0c Head {h00=0x0034, h01=0x0050, text=» XCOPY BIN6,COB0,COB2,FDLBUF,PNT4 MOVE RECORDNBR«, t00=0x0006, t01=0x007c}
0x0a0c…0a22 Head {h00=0x0012, h01=0x0050, text=» ADD PNT4,COB2«, t00=0x0006, t01=0x00b4}
0x0a22…0a56 Head {h00=0x0030, h01=0x0050, text=» XCOPY TLEN,COB0,COB2,FDLBUF,PNT4 MOVE TLEN «, t00=0x0006, t01=0x00ca}
0x0a56…0a7a Head {h00=0x0020, h01=0x0050, text=» ADD PNT4,COB2 POINT TO DATA«, t00=0x0006, t01=0x00fe}
0x0a7a…0aae Head {h00=0x0030, h01=0x0050, text=» SUB TLEN,COB4 DISREGARD RECNO+TLEN JUST NOW«, t00=0x0006, t01=0x0122}
0x0aae…0ad6 Head {h00=0x0024, h01=0x0050, text=» MOVE BUFIN,=X'00' CLEAR BUFFER «, t00=0x0006, t01=0x0156}
0x0ad6…0b00 Head {h00=0x0026, h01=0x0050, text=» XCOPY BUFIN,COB0,TLEN,FDLBUF,PNT4«, t00=0x0006, t01=0x017e}
0x0b00…0b2e Head {h00=0x002a, h01=0x0050, text=»* 'TLEN' CONTAINS DATATLEN IN 'BUFIN' «, t00=0x0007, t01=0x0018}
0x0b2e…0b50 Head {h00=0x001e, h01=0x0050, text=»* 'BIN5' CONTAINS MODIFIER«, t00=0x0007, t01=0x0046}
0x0b50…0b82 Head {h00=0x002e, h01=0x0050, text=»* 'BIN6' CONTAINS RECORDNUMBER (NOT USED) «, t00=0x0007, t01=0x0068}
0x0b82…0b9c Head {h00=0x0016, h01=0x0050, text=» MOVE LENGTH,TLEN «, t00=0x0007, t01=0x009a}
0x0b9c…0bc4 Head {h00=0x0024, h01=0x0050, text=» MOVE WKBCD1,BIN5 MOVE MODIFIER «, t00=0x0007, t01=0x00b4}
0x0bc4…0bea Head {h00=0x0022, h01=0x0050, text=» EDIT WKSTG1,MODIF AND EDIT IT«, t00=0x0007, t01=0x00dc}
0x0bea…0c2a Head {h00=0x003c, h01=0x0050, text=» COPY WKSTG2,COB11,COB1,WKSTG1,COB0 MOVE IT INTO HEADER «, t00=0x0007, t01=0x0102}
0x0c2a…0c4e Head {h00=0x0020, h01=0x0050, text=» PERF DLLATM DOWNLINELOAD IT«, t00=0x0007, t01=0x0142}
0x0c4e…0c70 Head {h00=0x001e, h01=0x0050, text=» BNOK LOA970 EXIT IF ERROR«, t00=0x0007, t01=0x0166}
0x0c70…0c96 Head {h00=0x0022, h01=0x0050, text=» ADD TLEN,COB4 RECNO+ACT.TLEN «, t00=0x0007, t01=0x0188}
0x0c96…0cca Head {h00=0x0030, h01=0x0050, text=» TBF MODIFLG,LOA100 MODIFIER TO BE DELETED? «, t00=0x0008, t01=0x001e}
0x0cca…0cf2 Head {h00=0x0024, h01=0x0050, text=» CLEAR MODIFLG IF SO, CLEAR FLAG«, t00=0x0008, t01=0x0052}
0x0cf2…0d1a Head {h00=0x0024, h01=0x0050, text=» ADD TLEN,COB2 AND DELETE 2 MORE«, t00=0x0008, t01=0x007a}
0x0d1a…0d30 Head {h00=0x0012, h01=0x0050, text=» SUB PNT4,COB2«, t00=0x0008, t01=0x00a2}
0x0d30…0d38 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x00b8}
0x0d38…0d46 Head {h00=0x000a, h01=0x0050, text=»LOA100«, t00=0x0008, t01=0x00c0}
0x0d46…0d66 Head {h00=0x001c, h01=0x0050, text=» DLETE FDLBUF,COB0,TLEN «, t00=0x0008, t01=0x00ce}
0x0d66…0d7c Head {h00=0x0012, h01=0x0050, text=» SUB PNT4,COB4«, t00=0x0008, t01=0x00ee}
0x0d7c…0d94 Head {h00=0x0014, h01=0x0050, text=» SUB DISPL,TLEN «, t00=0x0008, t01=0x0104}
0x0d94…0dd4 Head {h00=0x003c, h01=0x0050, text=» XCOPY BIN7,COB0,COB2,FDLBUF,PNT4 1.WORD OF NEXT RECORD «, t00=0x0008, t01=0x011c}
0x0dd4…0de2 Head {h00=0x000a, h01=0x0050, text=»LOA105«, t00=0x0008, t01=0x015c}
0x0de2…0e1c Head {h00=0x0036, h01=0x0050, text=» CBNL DISPL,=W'255',LOA120 TIME FOR ANOTHER READ? «, t00=0x0008, t01=0x016a}
0x0e1c…0e34 Head {h00=0x0014, h01=0x0050, text=» TBT EOF,LOA120 «, t00=0x0009, t01=0x0014}
0x0e34…0e5a Head {h00=0x0022, h01=0x0050, text=» PERF RDNEXT READ NEXT RECORD «, t00=0x0009, t01=0x002c}
0x0e5a…0e6e Head {h00=0x0010, h01=0x0050, text=» BNOK LOA960«, t00=0x0009, t01=0x0052}
0x0e6e…0e9e Head {h00=0x002c, h01=0x0050, text=» B LOA105 EXTRA READ MIGHT BE NECESSARY «, t00=0x0009, t01=0x0066}
0x0e9e…0ea6 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0096}
0x0ea6…0eb4 Head {h00=0x000a, h01=0x0050, text=»LOA120«, t00=0x0009, t01=0x009e}
0x0eb4…0eea Head {h00=0x0032, h01=0x0050, text=» CBL BIN7,=W'256',LOA080 SAME SUBFILE? (:256) «, t00=0x0009, t01=0x00ac}
0x0eea…0f18 Head {h00=0x002a, h01=0x0050, text=» BG LOA940 SOME POINTER IS OVERWRITTEN«, t00=0x0009, t01=0x00e2}
0x0f18…0f44 Head {h00=0x0028, h01=0x0050, text=» ADD PNT4,COB2 POINT TO NEW MODIFIER«, t00=0x0009, t01=0x0110}
0x0f44…0f7a Head {h00=0x0032, h01=0x0050, text=» XCOPY BIN7,COB0,COB2,FDLBUF,PNT4 AND COPY IT «, t00=0x0009, t01=0x013c}
0x0f7a…0fb6 Head {h00=0x0038, h01=0x0050, text=» CBNE BIN7,=X'000A',LOA070 FINISHED IF MODIFIER="*A"«, t00=0x0009, t01=0x0172}
0x0fb6…0ff4 Head {h00=0x003a, h01=0x0050, text=» MOVE VARIOUS,=C'DOWNLINE LOAD CONCLUDED CORRECTLY. ' «, t00=0x000a, t01=0x001e}
0x0ff4…1010 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x000a, t01=0x005c}
0x1010…1028 Head {h00=0x0014, h01=0x0050, text=» MOVE WKB1,COB1 «, t00=0x000a, t01=0x0078}
0x1028…1040 Head {h00=0x0014, h01=0x0050, text=» PERF CLOSE,WKB1«, t00=0x000a, t01=0x0090}
0x1040…1052 Head {h00=0x000e, h01=0x0050, text=» CLEAR DLL«, t00=0x000a, t01=0x00a8}
0x1052…1068 Head {h00=0x0012, h01=0x0050, text=» CMP COB0,COB0«, t00=0x000a, t01=0x00ba}
0x1068…1074 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x00d0}
0x1074…107c Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00dc}
0x107c…108a Head {h00=0x000a, h01=0x0050, text=»LOA940«, t00=0x000a, t01=0x00e4}
0x108a…10c8 Head {h00=0x003a, h01=0x0050, text=» MOVE VARIOUS,=C'DATA ERROR ON DISK ' INVALID RECORDNR«, t00=0x000a, t01=0x00f2}
0x10c8…10da Head {h00=0x000e, h01=0x0050, text=» B LOA980 «, t00=0x000a, t01=0x0130}
0x10da…10e2 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0142}
0x10e2…10f0 Head {h00=0x000a, h01=0x0050, text=»LOA960«, t00=0x000a, t01=0x014a}
0x10f0…1128 Head {h00=0x0034, h01=0x0050, text=» MOVE VARIOUS,=C'READ/WRITE ERROR ON DATA DISK '«, t00=0x000a, t01=0x0158}
0x1128…113a Head {h00=0x000e, h01=0x0050, text=» B LOA980 «, t00=0x000a, t01=0x0190}
0x113a…1142 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0012}
0x1142…1150 Head {h00=0x000a, h01=0x0050, text=»LOA970«, t00=0x000b, t01=0x001a}
0x1150…1174 Head {h00=0x0020, h01=0x0050, text=» MOVE VARIOUS,=C'DLL ERROR '«, t00=0x000b, t01=0x0028}
0x1174…1182 Head {h00=0x000a, h01=0x0050, text=»LOA980«, t00=0x000b, t01=0x004c}
0x1182…119e Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x000b, t01=0x005a}
0x119e…11b6 Head {h00=0x0014, h01=0x0050, text=» MOVE WKB1,COB1 «, t00=0x000b, t01=0x0076}
0x11b6…11ce Head {h00=0x0014, h01=0x0050, text=» PERF CLOSE,WKB1«, t00=0x000b, t01=0x008e}
0x11ce…11dc Head {h00=0x000a, h01=0x0050, text=»LOA990«, t00=0x000b, t01=0x00a6}
0x11dc…11e8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x00b4}
0x11e8…11f6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000b, t01=0x00c0}
0x11f6…1204 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x00ce}
0x1204…1218 Head {h00=0x0010, h01=0x0050, text=»TABINT PROC «, t00=0x000b, t01=0x00dc}
0x1218…1222 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00f0}
0x1222…1262 Head {h00=0x003c, h01=0x0050, text=»* THIS PROCEDURE CREATES VARIOUS TABLES AND OTHER FIELDS«, t00=0x000b, t01=0x00fa}
0x1262…128e Head {h00=0x0028, h01=0x0050, text=»* IMMEDIATELY AFTER PROGRAM STARTUP.«, t00=0x000b, t01=0x013a}
0x128e…12be Head {h00=0x002c, h01=0x0050, text=»* THE INPUT IS FOUND ON VOLUME "VOLUME".«, t00=0x000b, t01=0x0166}
0x12be…12ea Head {h00=0x0028, h01=0x0050, text=»* THE INPUTFIL WAS CREATED BY $PDISC«, t00=0x000c, t01=0x0008}
0x12ea…12f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0034}
0x12f4…1334 Head {h00=0x003c, h01=0x0050, text=»* IN THIS FILE VARIOUS RECORDTYPES MUST/CAN BE PRESENT: «, t00=0x000c, t01=0x003e}
0x1334…135a Head {h00=0x0022, h01=0x0050, text=»* :1 - DENOMINATION VALUES ETC«, t00=0x000c, t01=0x007e}
0x135a…137a Head {h00=0x001c, h01=0x0050, text=»* :2 - FUNCTION COMMANDS«, t00=0x000c, t01=0x00a4}
0x137a…13be Head {h00=0x0040, h01=0x0050, text=»* - PRINTER DATA FOR THE ABOVEMENTIONED FUNCTION COMMANDS«, t00=0x000c, t01=0x00c4}
0x13be…13f2 Head {h00=0x0030, h01=0x0050, text=»* :3 - PRINTER DATA FOR F.X. TOP-OF-RECEIPT «, t00=0x000c, t01=0x0108}
0x13f2…141c Head {h00=0x0026, h01=0x0050, text=»* :256 - MARKS THE END OF THE FILE«, t00=0x000c, t01=0x013c}
0x141c…1426 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0166}
0x1426…1436 Head {h00=0x000c, h01=0x0050, text=»TABI010 «, t00=0x000c, t01=0x0170}
0x1436…147c Head {h00=0x0042, h01=0x0050, text=» MOVE VARIOUS,=C'SPECIFY CONSTANTFILE (IF NOT "CONSTANT").. ' «, t00=0x000c, t01=0x0180}
0x147c…1498 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x000d, t01=0x0036}
0x1498…14ac Head {h00=0x0010, h01=0x0050, text=» PERF KBINP «, t00=0x000d, t01=0x0052}
0x14ac…14c0 Head {h00=0x0010, h01=0x0050, text=» BOK TABI020«, t00=0x000d, t01=0x0066}
0x14c0…14da Head {h00=0x0016, h01=0x0050, text=» PERF SCRIBE,WRONG«, t00=0x000d, t01=0x007a}
0x14da…14ec Head {h00=0x000e, h01=0x0050, text=» B TABI010«, t00=0x000d, t01=0x0094}
0x14ec…14f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00a6}
0x14f6…1506 Head {h00=0x000c, h01=0x0050, text=»TABI020 «, t00=0x000d, t01=0x00b0}
0x1506…151e Head {h00=0x0014, h01=0x0050, text=» MOVE INFO,=C' '«, t00=0x000d, t01=0x00c0}
0x151e…1536 Head {h00=0x0014, h01=0x0050, text=» PERF SCRIBE,INF«, t00=0x000d, t01=0x00d8}
0x1536…1568 Head {h00=0x002e, h01=0x0050, text=» CBNE INDEX,COB1,TABI010 TEST FOR <ENTER> «, t00=0x000d, t01=0x00f0}
0x1568…1572 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0122}
0x1572…159e Head {h00=0x0028, h01=0x0050, text=» SUB LENGTH,COB1 DISREGARD ENTER-KEY«, t00=0x000d, t01=0x012c}
0x159e…15be Head {h00=0x001c, h01=0x0050, text=» BNZ TABI025 NOT DEFAULT«, t00=0x000d, t01=0x0158}
0x15be…15de Head {h00=0x001c, h01=0x0050, text=» MOVE BUFIN,=C'CONSTANT'«, t00=0x000d, t01=0x0178}
0x15de…15f8 Head {h00=0x0016, h01=0x0050, text=» MOVE LENGTH,=W'8'«, t00=0x000e, t01=0x0008}
0x15f8…1608 Head {h00=0x000c, h01=0x0050, text=»TABI025 «, t00=0x000e, t01=0x0022}
0x1608…164a Head {h00=0x003e, h01=0x0050, text=» COPY DSFTABLE(COB2),COB0,COB8,INFO,COB0 SCRATCH FILENAME «, t00=0x000e, t01=0x0032}
0x164a…168a Head {h00=0x003c, h01=0x0050, text=» COPY DSFTABLE(COB2),COB0,LENGTH,BUFIN,COB0 SET FILENAME«, t00=0x000e, t01=0x0074}
0x168a…16c8 Head {h00=0x003a, h01=0x0050, text=» COPY DSFTABLE(COB2),COB8,COB6,VOLUME,COB0 VOLUMENAME «, t00=0x000e, t01=0x00b4}
0x16c8…16f8 Head {h00=0x002c, h01=0x0050, text=» PERF OPEN,COB2,WKB1 OPEN CONSTANT-FILE «, t00=0x000e, t01=0x00f2}
0x16f8…170c Head {h00=0x0010, h01=0x0050, text=» BOK TABI030«, t00=0x000e, t01=0x0122}
0x170c…1734 Head {h00=0x0024, h01=0x0050, text=» MOVE VARIOUS,=C'ASSIGN ERROR ' «, t00=0x000e, t01=0x0136}
0x1734…1750 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x000e, t01=0x015e}
0x1750…1774 Head {h00=0x0020, h01=0x0050, text=» B TABI990 EXIT AFTER ERROR «, t00=0x000e, t01=0x017a}
0x1774…177e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x000e}
0x177e…178e Head {h00=0x000c, h01=0x0050, text=»TABI030 «, t00=0x000f, t01=0x0018}
0x178e…17a6 Head {h00=0x0014, h01=0x0050, text=» MOVE RECNO,COB0«, t00=0x000f, t01=0x0028}
0x17a6…17c6 Head {h00=0x001c, h01=0x0050, text=»TABI040 READ A RECORD «, t00=0x000f, t01=0x0040}
0x17c6…17de Head {h00=0x0014, h01=0x0050, text=» ADD RECNO,COB1 «, t00=0x000f, t01=0x0060}
0x17de…1808 Head {h00=0x0026, h01=0x0050, text=» PERF READ,COB2,FDBUF,RECNO,STATUS«, t00=0x000f, t01=0x0078}
0x1808…1834 Head {h00=0x0028, h01=0x0050, text=» BNOK TABI980 READ ERROR (PROBABLY) «, t00=0x000f, t01=0x00a2}
0x1834…185e Head {h00=0x0026, h01=0x0050, text=» MOVE WKSTG4,FDBUF EXTRACT 4 BYTES«, t00=0x000f, t01=0x00ce}
0x185e…188e Head {h00=0x002c, h01=0x0050, text=» CBE WKSTG4,=C':256',TABI900 EOF FOUND? «, t00=0x000f, t01=0x00f8}
0x188e…1898 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0128}
0x1898…18bc Head {h00=0x0020, h01=0x0050, text=» MOVE STAT,FDBUF NOT YET EOF«, t00=0x000f, t01=0x0132}
0x18bc…18ee Head {h00=0x002e, h01=0x0050, text=» CBNE STAT,=C':',TABI050 NEW RECORD TYPE? «, t00=0x000f, t01=0x0156}
0x18ee…18f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0188}
0x18f8…192e (16, 0, 400) Head {h00=0x0032, h01=0x0050, text=» DLETE WKSTG4,COB0,COB1 DELETE TYPE DELIMITER «, t00=0x0010, t01=0x0004}
0x192e…1958 Head {h00=0x0026, h01=0x0050, text=» MOVE WKBCD3,WKSTG4 CONVERT TO BCD«, t00=0x0010, t01=0x003a}
0x1958…1982 Head {h00=0x0026, h01=0x0050, text=» MOVE INDEX,COB0 RECORD IDENTIFIER«, t00=0x0010, t01=0x0064}
0x1982…19aa Head {h00=0x0024, h01=0x0050, text=» MOVE OLDSET,=D'-1' INIT OLDSET «, t00=0x0010, t01=0x008e}
0x19aa…19da Head {h00=0x002c, h01=0x0050, text=» MOVE DISPL,COB0 INIT DIPLACEMENTPOINTER«, t00=0x0010, t01=0x00b6}
0x19da…1a02 Head {h00=0x0024, h01=0x0050, text=» B TABI040 AND TAKE NEXT RECORD «, t00=0x0010, t01=0x00e6}
0x1a02…1a0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x010e}
0x1a0c…1a1c Head {h00=0x000c, h01=0x0050, text=»TABI050 «, t00=0x0010, t01=0x0118}
0x1a1c…1a4a Head {h00=0x002a, h01=0x0050, text=»* THE CURRENT TYPE IS FOUND IN WKBCD3 «, t00=0x0010, t01=0x0128}
0x1a4a…1a64 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN7,WKBCD3 «, t00=0x0010, t01=0x0156}
0x1a64…1a92 Head {h00=0x002a, h01=0x0050, text=» IB BIN7,TABI100, VARIOUS CONSTANTS C «, t00=0x0010, t01=0x0170}
0x1a92…1ab8 Head {h00=0x0022, h01=0x0050, text=» TABI200, FUNCTION COMMANDS C«, t00=0x0011, t01=0x000e}
0x1ab8…1ada Head {h00=0x001e, h01=0x0050, text=» TABI300, PRINTER DATA C «, t00=0x0011, t01=0x0034}
0x1ada…1af0 Head {h00=0x0012, h01=0x0050, text=» TABI400, C «, t00=0x0011, t01=0x0056}
0x1af0…1b06 Head {h00=0x0012, h01=0x0050, text=» TABI500, C «, t00=0x0011, t01=0x006c}
0x1b06…1b1c Head {h00=0x0012, h01=0x0050, text=» TABI600, C «, t00=0x0011, t01=0x0082}
0x1b1c…1b32 Head {h00=0x0012, h01=0x0050, text=» TABI700, C «, t00=0x0011, t01=0x0098}
0x1b32…1b44 Head {h00=0x000e, h01=0x0050, text=» TABI800 «, t00=0x0011, t01=0x00ae}
0x1b44…1b6c Head {h00=0x0024, h01=0x0050, text=» B TABI040 INVALID TYPE, IGNORE «, t00=0x0011, t01=0x00c0}
0x1b6c…1b76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00e8}
0x1b76…1b86 Head {h00=0x000c, h01=0x0050, text=»TABI100 «, t00=0x0011, t01=0x00f2}
0x1b86…1bb4 Head {h00=0x002a, h01=0x0050, text=» ADD INDEX,COB1 NEXT RECORD IDENTIFIER«, t00=0x0011, t01=0x0102}
0x1bb4…1bea Head {h00=0x0032, h01=0x0050, text=» IB INDEX,TABI110,TABI110,TABI110,TABI110, C «, t00=0x0011, t01=0x0130}
0x1bea…1c18 Head {h00=0x002a, h01=0x0050, text=» TABI110,TABI110,TABI110,TABI110, C «, t00=0x0011, t01=0x0166}
0x1c18…1c2e (18, 0, 400) Head {h00=0x0012, h01=0x0050, text=» TABI120, C «, t00=0x0012, t01=0x0004}
0x1c2e…1c3e Head {h00=0x000c, h01=0x0050, text=» TAB130«, t00=0x0012, t01=0x001a}
0x1c3e…1c66 Head {h00=0x0024, h01=0x0050, text=» B TABI040 INVALID INDEX,IGNORE «, t00=0x0012, t01=0x002a}
0x1c66…1c70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0052}
0x1c70…1c80 Head {h00=0x000c, h01=0x0050, text=»TABI110 «, t00=0x0012, t01=0x005c}
0x1c80…1cb4 Head {h00=0x0030, h01=0x0050, text=»* 8 CURRENCY VALUES, RECORD IDENTIFIER 1..8 «, t00=0x0012, t01=0x006c}
0x1cb4…1ce4 Head {h00=0x002c, h01=0x0050, text=» MOVE DENOM(INDEX),FDBUF CONVERT TO BCD «, t00=0x0012, t01=0x00a0}
0x1ce4…1cf6 Head {h00=0x000e, h01=0x0050, text=» B TABI040«, t00=0x0012, t01=0x00d0}
0x1cf6…1d00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00e2}
0x1d00…1d10 Head {h00=0x000c, h01=0x0050, text=»TABI120 «, t00=0x0012, t01=0x00ec}
0x1d10…1d3c Head {h00=0x0028, h01=0x0050, text=»* CURRENCY TEXT, RECORD IDENTIFIER 9«, t00=0x0012, t01=0x00fc}
0x1d3c…1d54 Head {h00=0x0014, h01=0x0050, text=» MOVE CURR,FDBUF«, t00=0x0012, t01=0x0128}
0x1d54…1d66 Head {h00=0x000e, h01=0x0050, text=» B TABI040«, t00=0x0012, t01=0x0140}
0x1d66…1d70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0152}
0x1d70…1d7e Head {h00=0x000a, h01=0x0050, text=»TAB130«, t00=0x0012, t01=0x015c}
0x1d7e…1da8 Head {h00=0x0026, h01=0x0050, text=»* MAXIMUM WITHDRAWAL. NO DECIMALS «, t00=0x0012, t01=0x016a}
0x1da8…1dc2 (19, 0, 400) Head {h00=0x0016, h01=0x0050, text=» MOVE DLIMIT,FDBUF«, t00=0x0013, t01=0x0004}
0x1dc2…1dd4 Head {h00=0x000e, h01=0x0050, text=» B TABI040«, t00=0x0013, t01=0x001e}
0x1dd4…1dde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0030}
0x1dde…1dee Head {h00=0x000c, h01=0x0050, text=»TABI200 «, t00=0x0013, t01=0x003a}
0x1dee…1e18 Head {h00=0x0026, h01=0x0050, text=»* FUNCTION COMMANDS, PRINTER DATA «, t00=0x0013, t01=0x004a}
0x1e18…1e40 Head {h00=0x0024, h01=0x0050, text=» MOVE COMB,FDBUF EXTRACT SEQ.NBR«, t00=0x0013, t01=0x0074}
0x1e40…1e66 Head {h00=0x0022, h01=0x0050, text=» MOVE SET,COMB CONVERT TO BCD «, t00=0x0013, t01=0x009c}
0x1e66…1e94 Head {h00=0x002a, h01=0x0050, text=» DLETE FDBUF,COB0,COB2 DELETE SEQ.NBR «, t00=0x0013, t01=0x00c2}
0x1e94…1eb4 Head {h00=0x001c, h01=0x0050, text=» CBNE SET,OLDSET,TABI220«, t00=0x0013, t01=0x00f0}
0x1eb4…1ede Head {h00=0x0026, h01=0x0050, text=»* SAME SET, IMPLICITS PRINTER DATA«, t00=0x0013, t01=0x0110}
0x1ede…1f12 Head {h00=0x0030, h01=0x0050, text=» CBL DISPL,=W'211',TABI210 PREVENT OVERFLOW «, t00=0x0013, t01=0x013a}
0x1f12…1f2e Head {h00=0x0018, h01=0x0050, text=» MOVE DISPL,=W'210' «, t00=0x0013, t01=0x016e}
0x1f2e…1f3e Head {h00=0x000c, h01=0x0050, text=»TABI210 «, t00=0x0013, t01=0x018a}
0x1f3e…1f5a Head {h00=0x0018, h01=0x0050, text=» MOVE WKBIN1,=W'40' «, t00=0x0014, t01=0x000a}
0x1f5a…1f98 Head {h00=0x003a, h01=0x0050, text=» XCOPY PTAB(INDEX),DISPL,WKBIN1,FDBUF,COB0 CONCATENATE«, t00=0x0014, t01=0x0026}
0x1f98…1fcc Head {h00=0x0030, h01=0x0050, text=» ADD DISPL,=W'40' ROOM FOR NEXT PRINTERDATA «, t00=0x0014, t01=0x0064}
0x1fcc…2002 Head {h00=0x0032, h01=0x0050, text=» MOVE PLEN(INDEX,COB1),DISPL SET CRUDE LENGTH «, t00=0x0014, t01=0x0098}
0x2002…2014 Head {h00=0x000e, h01=0x0050, text=» B TABI040«, t00=0x0014, t01=0x00ce}
0x2014…201e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00e0}
0x201e…202e Head {h00=0x000c, h01=0x0050, text=»TABI220 «, t00=0x0014, t01=0x00ea}
0x202e…205a Head {h00=0x0028, h01=0x0050, text=»* NEW SET, IMPLICIT FUNCTION COMMAND«, t00=0x0014, t01=0x00fa}
0x205a…2088 Head {h00=0x002a, h01=0x0050, text=» ADD INDEX,COB1 NEXT RECORD IDENTIFIER«, t00=0x0014, t01=0x0126}
0x2088…20be Head {h00=0x0032, h01=0x0050, text=» MOVE OLDSET,SET INITIATE FOR FURTHER TESTING «, t00=0x0014, t01=0x0154}
0x20be…20f4 Head {h00=0x0032, h01=0x0050, text=» MOVE FCBLD(INDEX),FDBUF SAVE FUNCTION COMMAND«, t00=0x0014, t01=0x018a}
0x20f4…2128 Head {h00=0x0030, h01=0x0050, text=» MOVE DISPL,COB0 PRINTERDATA STARTS IN POS 0«, t00=0x0015, t01=0x0030}
0x2128…213a Head {h00=0x000e, h01=0x0050, text=» B TABI040«, t00=0x0015, t01=0x0064}
0x213a…2144 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0076}
0x2144…2154 Head {h00=0x000c, h01=0x0050, text=»TABI300 «, t00=0x0015, t01=0x0080}
0x2154…2184 Head {h00=0x002c, h01=0x0050, text=»* PRINTER DATA, VARIOUS NATIONAL RUBBISH«, t00=0x0015, t01=0x0090}
0x2184…219c Head {h00=0x0014, h01=0x0050, text=» MOVE COMB,FDBUF«, t00=0x0015, t01=0x00c0}
0x219c…21c6 Head {h00=0x0026, h01=0x0050, text=» MOVE SET,COMB CONVERT SET TO BCD «, t00=0x0015, t01=0x00d8}
0x21c6…21f4 Head {h00=0x002a, h01=0x0050, text=» DLETE FDBUF,COB0,COB2 DELETE SEQ.NBR «, t00=0x0015, t01=0x0102}
0x21f4…2214 Head {h00=0x001c, h01=0x0050, text=» CBNE SET,OLDSET,TABI320«, t00=0x0015, t01=0x0130}
0x2214…2248 Head {h00=0x0030, h01=0x0050, text=» CBL DISPL,=W'211',TABI310 PREVENT OVERFLOW «, t00=0x0015, t01=0x0150}
0x2248…227c Head {h00=0x0030, h01=0x0050, text=» MOVE DISPL,=W'210' BY SETTING FIXED POINTER«, t00=0x0015, t01=0x0184}
0x227c…228c Head {h00=0x000c, h01=0x0050, text=»TABI310 «, t00=0x0016, t01=0x0028}
0x228c…22a8 Head {h00=0x0018, h01=0x0050, text=» MOVE WKBIN1,PRWIDTH«, t00=0x0016, t01=0x0038}
0x22a8…22da Head {h00=0x002e, h01=0x0050, text=» XCOPY PNAT(INDEX),DISPL,WKBIN1,FDBUF,COB0«, t00=0x0016, t01=0x0054}
0x22da…230e Head {h00=0x0030, h01=0x0050, text=» ADD DISPL,PRWIDTH ROOM FOR NEXT PRINTERDATA«, t00=0x0016, t01=0x0086}
0x230e…2344 Head {h00=0x0032, h01=0x0050, text=» MOVE PLEN(INDEX,COB2),DISPL SET CRUDE LENGTH «, t00=0x0016, t01=0x00ba}
0x2344…2356 Head {h00=0x000e, h01=0x0050, text=» B TABI040«, t00=0x0016, t01=0x00f0}
0x2356…2360 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0102}
0x2360…2370 Head {h00=0x000c, h01=0x0050, text=»TABI320 «, t00=0x0016, t01=0x010c}
0x2370…2390 Head {h00=0x001c, h01=0x0050, text=» ADD INDEX,COB1 NEW SET «, t00=0x0016, t01=0x011c}
0x2390…23a8 Head {h00=0x0014, h01=0x0050, text=» MOVE OLDSET,SET«, t00=0x0016, t01=0x013c}
0x23a8…23c0 Head {h00=0x0014, h01=0x0050, text=» MOVE DISPL,COB0«, t00=0x0016, t01=0x0154}
0x23c0…23d2 Head {h00=0x000e, h01=0x0050, text=» B TABI310«, t00=0x0016, t01=0x016c}
0x23d2…23e2 Head {h00=0x000c, h01=0x0050, text=»TABI400 «, t00=0x0016, t01=0x017e}
0x23e2…23f2 Head {h00=0x000c, h01=0x0050, text=»TABI500 «, t00=0x0016, t01=0x018e}
0x23f2…2402 Head {h00=0x000c, h01=0x0050, text=»TABI600 «, t00=0x0017, t01=0x000e}
0x2402…2412 Head {h00=0x000c, h01=0x0050, text=»TABI700 «, t00=0x0017, t01=0x001e}
0x2412…2422 Head {h00=0x000c, h01=0x0050, text=»TABI800 «, t00=0x0017, t01=0x002e}
0x2422…244e Head {h00=0x0028, h01=0x0050, text=» B TABI040 IGNORE THOSE RECORD TYPES«, t00=0x0017, t01=0x003e}
0x244e…2458 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x006a}
0x2458…2474 Head {h00=0x0018, h01=0x0050, text=»TABI900 :256 FOUND«, t00=0x0017, t01=0x0074}
0x2474…24aa Head {h00=0x0032, h01=0x0050, text=» MOVE VARIOUS,=C'CONSTANTS LOADED CORRECTLY. '«, t00=0x0017, t01=0x0090}
0x24aa…24c6 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0017, t01=0x00c6}
0x24c6…24f2 Head {h00=0x0028, h01=0x0050, text=» PERF CLOSE,COB2 CLOSE CONSTANTFILE «, t00=0x0017, t01=0x00e2}
0x24f2…2502 Head {h00=0x000c, h01=0x0050, text=»TABI910 «, t00=0x0017, t01=0x010e}
0x2502…2540 Head {h00=0x003a, h01=0x0050, text=» MOVE VARIOUS,=C'L@BENR. DEPONERING................. '«, t00=0x0017, t01=0x011e}
0x2540…255c Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0017, t01=0x015c}
0x255c…2570 Head {h00=0x0010, h01=0x0050, text=» PERF KBINP «, t00=0x0017, t01=0x0178}
0x2570…2586 Head {h00=0x0012, h01=0x0050, text=» BNOK TABI910 «, t00=0x0017, t01=0x018c}
0x2586…25a6 Head {h00=0x001c, h01=0x0050, text=» CBNE INDEX,COB1,TABI910«, t00=0x0018, t01=0x0012}
0x25a6…25be Head {h00=0x0014, h01=0x0050, text=» SUB LENGTH,COB1«, t00=0x0018, t01=0x0032}
0x25be…25d2 Head {h00=0x0010, h01=0x0050, text=» BNZ TABI915«, t00=0x0018, t01=0x004a}
0x25d2…25ec Head {h00=0x0016, h01=0x0050, text=» MOVE BUFIN,=C'1 '«, t00=0x0018, t01=0x005e}
0x25ec…25fc Head {h00=0x000c, h01=0x0050, text=»TABI915 «, t00=0x0018, t01=0x0078}
0x25fc…262c Head {h00=0x002c, h01=0x0050, text=» MOVE SRLNBR(COB2),BUFIN CONVERT TO BCD «, t00=0x0018, t01=0x0088}
0x262c…266e Head {h00=0x003e, h01=0x0050, text=» CBNG SRLNBR(COB2),=D'9999',TABI920 CHECK FOR VALID RANGE «, t00=0x0018, t01=0x00b8}
0x266e…269e Head {h00=0x002c, h01=0x0050, text=» MOVE SRLNBR(COB2),=D'1' SET VALID VALUE«, t00=0x0018, t01=0x00fa}
0x269e…26ae Head {h00=0x000c, h01=0x0050, text=»TABI920 «, t00=0x0018, t01=0x012a}
0x26ae…26ec Head {h00=0x003a, h01=0x0050, text=» MOVE VARIOUS,=C'DAGENS DATO: (DDMM]]).............. '«, t00=0x0018, t01=0x013a}
0x26ec…2708 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0018, t01=0x0178}
0x2708…271c (25, 0, 398) Head {h00=0x0010, h01=0x0050, text=» PERF KBINP «, t00=0x0019, t01=0x0004}
0x271c…2732 Head {h00=0x0012, h01=0x0050, text=» BNOK TABI920 «, t00=0x0019, t01=0x0018}
0x2732…2752 Head {h00=0x001c, h01=0x0050, text=» CBNE INDEX,COB1,TABI920«, t00=0x0019, t01=0x002e}
0x2752…276a Head {h00=0x0014, h01=0x0050, text=» SUB LENGTH,COB1«, t00=0x0019, t01=0x004e}
0x276a…277e Head {h00=0x0010, h01=0x0050, text=» BNZ TABI925«, t00=0x0019, t01=0x0066}
0x277e…279c Head {h00=0x001a, h01=0x0050, text=» MOVE BUFIN,=C'150883'«, t00=0x0019, t01=0x007a}
0x279c…27b6 Head {h00=0x0016, h01=0x0050, text=» MOVE LENGTH,COB6 «, t00=0x0019, t01=0x0098}
0x27b6…27c6 Head {h00=0x000c, h01=0x0050, text=»TABI925 «, t00=0x0019, t01=0x00b2}
0x27c6…27e8 Head {h00=0x001e, h01=0x0050, text=» CBNE LENGTH,COB6,TABI920 «, t00=0x0019, t01=0x00c2}
0x27e8…2800 Head {h00=0x0014, h01=0x0050, text=» MOVE DATE,BUFIN«, t00=0x0019, t01=0x00e4}
0x2800…2810 Head {h00=0x000c, h01=0x0050, text=»TABI930 «, t00=0x0019, t01=0x00fc}
0x2810…2824 Head {h00=0x0010, h01=0x0050, text=» PERF SETKL «, t00=0x0019, t01=0x010c}
0x2824…2832 Head {h00=0x000a, h01=0x0050, text=»TAB940«, t00=0x0019, t01=0x0120}
0x2832…2866 Head {h00=0x0030, h01=0x0050, text=» MOVE VARIOUS,=C'L@PENR. UTTAK .......... ' «, t00=0x0019, t01=0x012e}
0x2866…2882 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0019, t01=0x0162}
0x2882…2896 Head {h00=0x0010, h01=0x0050, text=» PERF KBINP «, t00=0x0019, t01=0x017e}
0x2896…28aa (26, 0, 400) Head {h00=0x0010, h01=0x0050, text=» BNOK TAB940«, t00=0x001a, t01=0x0004}
0x28aa…28ca Head {h00=0x001c, h01=0x0050, text=» CBNE INDEX,COB1,TAB940 «, t00=0x001a, t01=0x0018}
0x28ca…28e2 Head {h00=0x0014, h01=0x0050, text=» SUB LENGTH,COB1«, t00=0x001a, t01=0x0038}
0x28e2…28f4 Head {h00=0x000e, h01=0x0050, text=» BZ TAB940«, t00=0x001a, t01=0x0050}
0x28f4…2914 Head {h00=0x001c, h01=0x0050, text=» MOVE SRLNBR(COB1),BUFIN«, t00=0x001a, t01=0x0062}
0x2914…2928 Head {h00=0x0010, h01=0x0050, text=» PERF SEDLER«, t00=0x001a, t01=0x0082}
0x2928…2932 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0096}
0x2932…294e Head {h00=0x0018, h01=0x0050, text=» MOVE VARIOUS,=C' ' «, t00=0x001a, t01=0x00a0}
0x294e…296a Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x001a, t01=0x00bc}
0x296a…2980 Head {h00=0x0012, h01=0x0050, text=» PERF CONVERT «, t00=0x001a, t01=0x00d8}
0x2980…29ac Head {h00=0x0028, h01=0x0050, text=» PERF CONDENS FIND THE REAL LENGTHS «, t00=0x001a, t01=0x00ee}
0x29ac…29c2 Head {h00=0x0012, h01=0x0050, text=» CMP COB0,COB0«, t00=0x001a, t01=0x011a}
0x29c2…29ce Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001a, t01=0x0130}
0x29ce…29d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x013c}
0x29d8…29e8 Head {h00=0x000c, h01=0x0050, text=»TABI980 «, t00=0x001a, t01=0x0146}
0x29e8…2a0e Head {h00=0x0022, h01=0x0050, text=» MOVE VARIOUS,=C'READ ERROR ' «, t00=0x001a, t01=0x0156}
0x2a0e…2a2a Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x001a, t01=0x017c}
0x2a2a…2a56 Head {h00=0x0028, h01=0x0050, text=» PERF CLOSE,COB2 CLOSE CONSTANT FILE«, t00=0x001b, t01=0x0008}
0x2a56…2a7a Head {h00=0x0020, h01=0x0050, text=» CMP COB0,COB1 SET CR TO NOK«, t00=0x001b, t01=0x0034}
0x2a7a…2a86 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001b, t01=0x0058}
0x2a86…2a90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0064}
0x2a90…2aa0 Head {h00=0x000c, h01=0x0050, text=»TABI990 «, t00=0x001b, t01=0x006e}
0x2aa0…2ac4 Head {h00=0x0020, h01=0x0050, text=» CMP COB0,COB1 SET CR TO NOK«, t00=0x001b, t01=0x007e}
0x2ac4…2ad0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001b, t01=0x00a2}
0x2ad0…2ade Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001b, t01=0x00ae}
0x2ade…2aec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x00bc}
0x2aec…2afe Head {h00=0x000e, h01=0x0050, text=»SETKL PROC«, t00=0x001b, t01=0x00ca}
0x2afe…2b0c Head {h00=0x000a, h01=0x0050, text=»SETKL0«, t00=0x001b, t01=0x00dc}
0x2b0c…2b42 Head {h00=0x0032, h01=0x0050, text=» MOVE VARIOUS,=C'HVA ER KLOKKEN? .......... ' «, t00=0x001b, t01=0x00ea}
0x2b42…2b5e Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x001b, t01=0x0120}
0x2b5e…2b72 Head {h00=0x0010, h01=0x0050, text=» PERF KBINP «, t00=0x001b, t01=0x013c}
0x2b72…2b86 Head {h00=0x0010, h01=0x0050, text=» BNOK SETKL0«, t00=0x001b, t01=0x0150}
0x2b86…2ba6 Head {h00=0x001c, h01=0x0050, text=» CBNE INDEX,COB1,SETKL0 «, t00=0x001b, t01=0x0164}
0x2ba6…2bbe Head {h00=0x0014, h01=0x0050, text=» SUB LENGTH,COB1«, t00=0x001b, t01=0x0184}
0x2bbe…2bde Head {h00=0x001c, h01=0x0050, text=» CBNE LENGTH,COB4,SETKL0«, t00=0x001c, t01=0x000c}
0x2bde…2bf4 Head {h00=0x0012, h01=0x0050, text=» MOVE KL,BUFIN«, t00=0x001c, t01=0x002c}
0x2bf4…2c00 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001c, t01=0x0042}
0x2c00…2c0e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001c, t01=0x004e}
0x2c0e…2c16 Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x005c}
0x2c16…2c1e Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x0064}
0x2c1e…2c32 Head {h00=0x0010, h01=0x0050, text=»SEDLER PROC «, t00=0x001c, t01=0x006c}
0x2c32…2c40 Head {h00=0x000a, h01=0x0050, text=»SEDL00«, t00=0x001c, t01=0x0080}
0x2c40…2c7e Head {h00=0x003a, h01=0x0050, text=» MOVE VARIOUS,=C'BEL@BS[NDRING SKUFFE 1 (+/-) ..... ' «, t00=0x001c, t01=0x008e}
0x2c7e…2c9a Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x001c, t01=0x00cc}
0x2c9a…2cae Head {h00=0x0010, h01=0x0050, text=» PERF KBINP «, t00=0x001c, t01=0x00e8}
0x2cae…2cc2 Head {h00=0x0010, h01=0x0050, text=» BNOK SEDL00«, t00=0x001c, t01=0x00fc}
0x2cc2…2ce2 Head {h00=0x001c, h01=0x0050, text=» CBNE INDEX,COB1,SEDL00 «, t00=0x001c, t01=0x0110}
0x2ce2…2cfa Head {h00=0x0014, h01=0x0050, text=» SUB LENGTH,COB1«, t00=0x001c, t01=0x0130}
0x2cfa…2d22 Head {h00=0x0024, h01=0x0050, text=» BZ SEDL10 NO CHANGE IN DRAWER 1«, t00=0x001c, t01=0x0148}
0x2d22…2d3c Head {h00=0x0016, h01=0x0050, text=» MOVE WKBCD1,BUFIN«, t00=0x001c, t01=0x0170}
0x2d3c…2d62 Head {h00=0x0022, h01=0x0050, text=» ADD BEHOLDN(COB1,COB1),WKBCD1«, t00=0x001c, t01=0x018a}
0x2d62…2d70 Head {h00=0x000a, h01=0x0050, text=»SEDL10«, t00=0x001d, t01=0x0020}
0x2d70…2dac Head {h00=0x0038, h01=0x0050, text=» MOVE VARIOUS,=C'BEL@PS[NDRING SKIFFE 2(+/-) ..... '«, t00=0x001d, t01=0x002e}
0x2dac…2dc8 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x001d, t01=0x006a}
0x2dc8…2ddc Head {h00=0x0010, h01=0x0050, text=» PERF KBINP «, t00=0x001d, t01=0x0086}
0x2ddc…2df0 Head {h00=0x0010, h01=0x0050, text=» BNOK SEDL10«, t00=0x001d, t01=0x009a}
0x2df0…2e10 Head {h00=0x001c, h01=0x0050, text=» CBNE INDEX,COB1,SEDL10 «, t00=0x001d, t01=0x00ae}
0x2e10…2e28 Head {h00=0x0014, h01=0x0050, text=» SUB LENGTH,COB1«, t00=0x001d, t01=0x00ce}
0x2e28…2e50 Head {h00=0x0024, h01=0x0050, text=» BZ SEDL20 NO CHANGE IN DRAWER 2«, t00=0x001d, t01=0x00e6}
0x2e50…2e6a Head {h00=0x0016, h01=0x0050, text=» MOVE WKBCD1,BUFIN«, t00=0x001d, t01=0x010e}
0x2e6a…2e90 Head {h00=0x0022, h01=0x0050, text=» ADD BEHOLDN(COB2,COB1),WKBCD1«, t00=0x001d, t01=0x0128}
0x2e90…2e9e Head {h00=0x000a, h01=0x0050, text=»SEDL20«, t00=0x001d, t01=0x014e}
0x2e9e…2eaa Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001d, t01=0x015c}
0x2eaa…2eb8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001d, t01=0x0168}
0x2eb8…2ec6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0176}
0x2ec6…2eda Head {h00=0x0010, h01=0x0050, text=»CONDENS PROC«, t00=0x001d, t01=0x0184}
0x2eda…2ee4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0008}
0x2ee4…2f2a Head {h00=0x0042, h01=0x0050, text=»* THE PROCEDURE CONVERTS THE CRUDE LENGTHS OF THE PRINTERDATA «, t00=0x001e, t01=0x0012}
0x2f2a…2f72 Head {h00=0x0044, h01=0x0050, text=»* TO SOME MORE CIVILIZED ONES BY FINDING THE LAST USED CHARACTER«, t00=0x001e, t01=0x0058}
0x2f72…2fb2 Head {h00=0x003c, h01=0x0050, text=»* IN THE LINE. THIS IS ACCOMPLISHED BY A BACKWARD MATCH.«, t00=0x001e, t01=0x00a0}
0x2fb2…2fbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00e0}
0x2fbc…2fee Head {h00=0x002e, h01=0x0050, text=» MOVE BIN4,=W'30' NBR OF ELEMENTS IN PTAB «, t00=0x001e, t01=0x00ea}
0x2fee…2ffc Head {h00=0x000a, h01=0x0050, text=»COND10«, t00=0x001e, t01=0x011c}
0x2ffc…3034 Head {h00=0x0034, h01=0x0050, text=» CBE PLEN(BIN4,COB1),COB0,COND40 ELEMENT IN USE?«, t00=0x001e, t01=0x012a}
0x3034…3068 Head {h00=0x0030, h01=0x0050, text=» MOVE BIN6,PLEN(BIN4,COB1) MOVE CRUDE LENGTH«, t00=0x001e, t01=0x0162}
0x3068…3086 Head {h00=0x001a, h01=0x0050, text=» SUB BIN6,COB1 ADJUST «, t00=0x001f, t01=0x0008}
0x3086…3094 Head {h00=0x000a, h01=0x0050, text=»COND20«, t00=0x001f, t01=0x0026}
0x3094…30d0 Head {h00=0x0038, h01=0x0050, text=» XCOPY STAT,COB0,COB1,PTAB(BIN4),BIN6 RIGHTMOST CHR «, t00=0x001f, t01=0x0034}
0x30d0…3100 Head {h00=0x002c, h01=0x0050, text=» CBNE STAT,=C' ',COND30 NON-BLANK FOUND?«, t00=0x001f, t01=0x0070}
0x3100…3128 Head {h00=0x0024, h01=0x0050, text=» SUB BIN6,COB1 NO, TRY NEXT BYTE«, t00=0x001f, t01=0x00a0}
0x3128…3154 Head {h00=0x0028, h01=0x0050, text=» BNZ COND20 IF ANYTHING LEFT AT ALL «, t00=0x001f, t01=0x00c8}
0x3154…3162 Head {h00=0x000a, h01=0x0050, text=»COND30«, t00=0x001f, t01=0x00f4}
0x3162…3186 Head {h00=0x0020, h01=0x0050, text=» ADD BIN6,COB1 ADJUST AGAIN «, t00=0x001f, t01=0x0102}
0x3186…31bc Head {h00=0x0032, h01=0x0050, text=» MOVE PLEN(BIN4,COB1),BIN6 MOVE CLEANED LENGTH«, t00=0x001f, t01=0x0126}
0x31bc…31ca Head {h00=0x000a, h01=0x0050, text=»COND40«, t00=0x001f, t01=0x015c}
0x31ca…31f4 Head {h00=0x0026, h01=0x0050, text=» SUB BIN4,COB1 TRY NEXT PRINTLINE «, t00=0x001f, t01=0x016a}
0x31f4…3218 (32, 0, 400) Head {h00=0x0020, h01=0x0050, text=» BP COND10 IF ANYTHING LEFT «, t00=0x0020, t01=0x0004}
0x3218…3222 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0028}
0x3222…3252 Head {h00=0x002c, h01=0x0050, text=» MOVE BIN4,COB10 NBR OF ELEMENTS IN PNAT«, t00=0x0020, t01=0x0032}
0x3252…3262 Head {h00=0x000c, h01=0x0050, text=»COND110 «, t00=0x0020, t01=0x0062}
0x3262…329c Head {h00=0x0036, h01=0x0050, text=» CBE PLEN(BIN4,COB2),COB0,COND140 ELEMENT IN USE? «, t00=0x0020, t01=0x0072}
0x329c…32d0 Head {h00=0x0030, h01=0x0050, text=» MOVE BIN6,PLEN(BIN4,COB2) MOVE CRUDE LENGTH«, t00=0x0020, t01=0x00ac}
0x32d0…32ee Head {h00=0x001a, h01=0x0050, text=» SUB BIN6,COB1 ADJUST «, t00=0x0020, t01=0x00e0}
0x32ee…32fe Head {h00=0x000c, h01=0x0050, text=»COND120 «, t00=0x0020, t01=0x00fe}
0x32fe…333a Head {h00=0x0038, h01=0x0050, text=» XCOPY STAT,COB0,COB1,PNAT(BIN4),BIN6 RIGHTMOST CHR «, t00=0x0020, t01=0x010e}
0x333a…336a Head {h00=0x002c, h01=0x0050, text=» CBNE STAT,=C' ',COND130 NON-BLANK FOUND«, t00=0x0020, t01=0x014a}
0x336a…3392 Head {h00=0x0024, h01=0x0050, text=» SUB BIN6,COB1 NO, TRY NEXT BYTE«, t00=0x0020, t01=0x017a}
0x3392…33be Head {h00=0x0028, h01=0x0050, text=» BNZ COND120 IF ANYTHING LEFT AT ALL«, t00=0x0021, t01=0x0012}
0x33be…33ce Head {h00=0x000c, h01=0x0050, text=»COND130 «, t00=0x0021, t01=0x003e}
0x33ce…33f0 Head {h00=0x001e, h01=0x0050, text=» ADD BIN6,COB1 ADJUST BACK«, t00=0x0021, t01=0x004e}
0x33f0…3426 Head {h00=0x0032, h01=0x0050, text=» MOVE PLEN(BIN4,COB2),BIN6 MOVE CLEANED LENGTH«, t00=0x0021, t01=0x0070}
0x3426…3436 Head {h00=0x000c, h01=0x0050, text=»COND140 «, t00=0x0021, t01=0x00a6}
0x3436…3460 Head {h00=0x0026, h01=0x0050, text=» SUB BIN4,COB1 TRY NEXT PRINTLINE «, t00=0x0021, t01=0x00b6}
0x3460…348a Head {h00=0x0026, h01=0x0050, text=» BP COND110 IF THERE WAS MORE LEFT«, t00=0x0021, t01=0x00e0}
0x348a…3494 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x010a}
0x3494…34a0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0021, t01=0x0114}
0x34a0…34ae Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0021, t01=0x0120}
0x34ae…34bc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x012e}
0x34bc…34d0 Head {h00=0x0010, h01=0x0050, text=»CONVERT PROC«, t00=0x0021, t01=0x013c}
0x34d0…34da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0150}
0x34da…3526 Head {h00=0x0048, h01=0x0050, text=»* THIS ROUTINE CONVERTS EVTL. SPECIAL CHARACTERS IN THE PRINTERDATA «, t00=0x0021, t01=0x015a}
0x3526…3530 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0016}
0x3530…355a Head {h00=0x0026, h01=0x0050, text=» MOVE BIN4,=W'30' NBR OF ELEMENTS «, t00=0x0022, t01=0x0020}
0x355a…3568 Head {h00=0x000a, h01=0x0050, text=»CONV00«, t00=0x0022, t01=0x004a}
0x3568…3586 Head {h00=0x001a, h01=0x0050, text=» MOVE FDBUF,PTAB(BIN4)«, t00=0x0022, t01=0x0058}
0x3586…35a2 Head {h00=0x0018, h01=0x0050, text=» MOVE WKBIN3,=W'250'«, t00=0x0022, t01=0x0076}
0x35a2…35c2 Head {h00=0x001c, h01=0x0050, text=» PERF CONV1,FDBUF,WKBIN3«, t00=0x0022, t01=0x0092}
0x35c2…35e0 Head {h00=0x001a, h01=0x0050, text=» MOVE PTAB(BIN4),FDBUF«, t00=0x0022, t01=0x00b2}
0x35e0…35fe Head {h00=0x001a, h01=0x0050, text=» MOVE FDBUF,PNAT(BIN4)«, t00=0x0022, t01=0x00d0}
0x35fe…3608 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00ee}
0x3608…3624 Head {h00=0x0018, h01=0x0050, text=» MOVE WKBIN3,=W'250'«, t00=0x0022, t01=0x00f8}
0x3624…3644 Head {h00=0x001c, h01=0x0050, text=» PERF CONV1,FDBUF,WKBIN3«, t00=0x0022, t01=0x0114}
0x3644…3662 Head {h00=0x001a, h01=0x0050, text=» MOVE PNAT(BIN4),FDBUF«, t00=0x0022, t01=0x0134}
0x3662…3678 Head {h00=0x0012, h01=0x0050, text=» SUB BIN4,COB1«, t00=0x0022, t01=0x0152}
0x3678…368a Head {h00=0x000e, h01=0x0050, text=» BP CONV00«, t00=0x0022, t01=0x0168}
0x368a…3694 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x017a}
0x3694…36aa Head {h00=0x0012, h01=0x0050, text=» CMP COB0,COB0«, t00=0x0022, t01=0x0184}
0x36aa…36b6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0023, t01=0x000a}
0x36b6…36c4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0023, t01=0x0016}
0x36c4…36d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0024}
0x36d2…36ee Head {h00=0x0018, h01=0x0050, text=»CONV1 PROC FELT,LEN «, t00=0x0023, t01=0x0032}
0x36ee…3702 Head {h00=0x0010, h01=0x0050, text=» PSTRG FELT «, t00=0x0023, t01=0x004e}
0x3702…3714 Head {h00=0x000e, h01=0x0050, text=» PBIN LEN «, t00=0x0023, t01=0x0062}
0x3714…371e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0074}
0x371e…3764 Head {h00=0x0042, h01=0x0050, text=»* THIS PROCEDURE USES THE STRING 'CONV' TO CONVERT ANY SPECIAL«, t00=0x0023, t01=0x007e}
0x3764…37ac Head {h00=0x0044, h01=0x0050, text=»* CHARACTERS IN ANY STRING WITH THE LENGTH AS SPECIFIED BY <LEN>«, t00=0x0023, t01=0x00c4}
0x37ac…37d8 Head {h00=0x0028, h01=0x0050, text=»* INTO A HEX VALUE BETWEEN 01 AND 1F«, t00=0x0023, t01=0x010c}
0x37d8…37e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0138}
0x37e2…3810 Head {h00=0x002a, h01=0x0050, text=» MOVE WKBIN1,=W'31' LENGTH OF CONV - 1«, t00=0x0023, t01=0x0142}
0x3810…3820 Head {h00=0x000c, h01=0x0050, text=»CONV110 «, t00=0x0023, t01=0x0170}
0x3820…384c Head {h00=0x0028, h01=0x0050, text=» XCOPY WKSTR7,COB0,COB1,CONV,WKBIN1 «, t00=0x0023, t01=0x0180}
0x384c…3882 Head {h00=0x0032, h01=0x0050, text=» CBNE WKSTR7,=C'*',CONV120 HEX VALUE NOT USED «, t00=0x0024, t01=0x001c}
0x3882…38ba Head {h00=0x0034, h01=0x0050, text=»* SCAN FIELD FOR OCCURRENCE OF A CHR AS DEFINED «, t00=0x0024, t01=0x0052}
0x38ba…38d4 Head {h00=0x0016, h01=0x0050, text=»* IN CONV(WKBIN1) «, t00=0x0024, t01=0x008a}
0x38d4…38e4 Head {h00=0x000c, h01=0x0050, text=»CONV120 «, t00=0x0024, t01=0x00a4}
0x38e4…38fe Head {h00=0x0016, h01=0x0050, text=» MOVE WKBIN2,COB0 «, t00=0x0024, t01=0x00b4}
0x38fe…392e Head {h00=0x002c, h01=0x0050, text=» MATCH FELT,WKBIN2,LEN,WKSTR7,COB0,COB1 «, t00=0x0024, t01=0x00ce}
0x392e…395c Head {h00=0x002a, h01=0x0050, text=» BNOK CONV130 NOT FOUND, TRY NEXT CHR «, t00=0x0024, t01=0x00fe}
0x395c…3988 Head {h00=0x0028, h01=0x0050, text=» XCOPY FELT,WKBIN2,COB1,WKBIN1,COB1 «, t00=0x0024, t01=0x012c}
0x3988…39ae Head {h00=0x0022, h01=0x0050, text=» B CONV120 THERE MIGHT BE MORE«, t00=0x0024, t01=0x0158}
0x39ae…39be Head {h00=0x000c, h01=0x0050, text=»CONV130 «, t00=0x0024, t01=0x017e}
0x39be…39d6 Head {h00=0x0014, h01=0x0050, text=» SUB WKBIN1,COB1«, t00=0x0024, t01=0x018e}
0x39d6…39ea Head {h00=0x0010, h01=0x0050, text=» BP CONV110 «, t00=0x0025, t01=0x0016}
0x39ea…3a00 Head {h00=0x0012, h01=0x0050, text=» CMP COB0,COB0«, t00=0x0025, t01=0x002a}
0x3a00…3a0c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0025, t01=0x0040}
0x3a0c…3a1a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0025, t01=0x004c}
0x3a1a…3a28 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x005a}
0x3a28…3a3c Head {h00=0x0010, h01=0x0050, text=»RDNEXT PROC «, t00=0x0025, t01=0x0068}
0x3a3c…3a68 Head {h00=0x0028, h01=0x0050, text=» ADD RECNO,COB1 POINT TO NEXT RECORD«, t00=0x0025, t01=0x007c}
0x3a68…3a92 Head {h00=0x0026, h01=0x0050, text=» PERF READ,COB1,FDBUF,RECNO,STATUS«, t00=0x0025, t01=0x00a8}
0x3a92…3aa6 Head {h00=0x0010, h01=0x0050, text=» BNOK RDN300«, t00=0x0025, t01=0x00d2}
0x3aa6…3ace Head {h00=0x0024, h01=0x0050, text=» TBF BEBANK,RDN100 BERGEN BANK? «, t00=0x0025, t01=0x00e6}
0x3ace…3b08 Head {h00=0x0036, h01=0x0050, text=» XCOPY MESS,COB0,COB1,FDBUF,COB0 EXAMINE FIRST CHR«, t00=0x0025, t01=0x010e}
0x3b08…3b26 Head {h00=0x001a, h01=0x0050, text=» CBE MESS,=C'*',RDN020«, t00=0x0025, t01=0x0148}
0x3b26…3b44 Head {h00=0x001a, h01=0x0050, text=» CBE MESS,=C':',RDN030«, t00=0x0025, t01=0x0166}
0x3b44…3b7c Head {h00=0x0034, h01=0x0050, text=»* NOW WE HAVE A PHYSICAL RECORD, WHICH MIGHT BE «, t00=0x0025, t01=0x0184}
0x3b7c…3b9c Head {h00=0x001c, h01=0x0050, text=»* A PART OF A LARGER ONE«, t00=0x0026, t01=0x002c}
0x3b9c…3be8 Head {h00=0x0048, h01=0x0050, text=»* IF CONVERSION IS REQUIRED FROM .XXXX , THIS IS THE PLACE TO DO IT «, t00=0x0026, t01=0x004c}
0x3be8…3bf6 Head {h00=0x000a, h01=0x0050, text=»RDN008«, t00=0x0026, t01=0x0098}
0x3bf6…3c08 Head {h00=0x000e, h01=0x0050, text=» B RDN100 «, t00=0x0026, t01=0x00a6}
0x3c08…3c16 Head {h00=0x000a, h01=0x0050, text=»RDN020«, t00=0x0026, t01=0x00b8}
0x3c16…3c52 Head {h00=0x0038, h01=0x0050, text=» XCOPY NEWWC,COB0,COB1,FDBUF,COB1 NEW WRITE COMMAND «, t00=0x0026, t01=0x00c6}
0x3c52…3c64 Head {h00=0x000e, h01=0x0050, text=» B RDN200 «, t00=0x0026, t01=0x0102}
0x3c64…3c72 Head {h00=0x000a, h01=0x0050, text=»RDN030«, t00=0x0026, t01=0x0114}
0x3c72…3c8e Head {h00=0x0018, h01=0x0050, text=» B RDN200 NEW RECORD«, t00=0x0026, t01=0x0122}
0x3c8e…3c9c Head {h00=0x000a, h01=0x0050, text=»RDN100«, t00=0x0026, t01=0x013e}
0x3c9c…3ca6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x014c}
0x3ca6…3ce6 Head {h00=0x003c, h01=0x0050, text=» XCOPY FDLBUF,DISPL,RECLEN,FDBUF,COB0 CONCATENATE BUFFER«, t00=0x0026, t01=0x0156}
0x3ce6…3d16 Head {h00=0x002c, h01=0x0050, text=» ADD DISPL,RECLEN PREPARE FOR NEXT READ «, t00=0x0027, t01=0x0008}
0x3d16…3d4a Head {h00=0x0030, h01=0x0050, text=» MOVE WKSTR6,=X'1C0100000A' <FS>!<:256>!<*A>«, t00=0x0027, t01=0x0038}
0x3d4a…3d72 Head {h00=0x0024, h01=0x0050, text=» MOVE WKB1,COB0 STARTPOINT MATCH«, t00=0x0027, t01=0x006c}
0x3d72…3d9c Head {h00=0x0026, h01=0x0050, text=» MOVE WKBIN1,=W'384' BUFFER LENGTH«, t00=0x0027, t01=0x0094}
0x3d9c…3dde Head {h00=0x003e, h01=0x0050, text=» MATCH FDLBUF,WKB1,WKBIN1,WKSTR6,COB0,COB5 SEARCH FOR EOF «, t00=0x0027, t01=0x00be}
0x3dde…3dfc Head {h00=0x001a, h01=0x0050, text=» BNOK RDN200 NOT FOUND«, t00=0x0027, t01=0x0100}
0x3dfc…3e20 Head {h00=0x0020, h01=0x0050, text=» SET EOF EOF FOUND, SET FLAG«, t00=0x0027, t01=0x011e}
0x3e20…3e2e Head {h00=0x000a, h01=0x0050, text=»RDN200«, t00=0x0027, t01=0x0142}
0x3e2e…3e44 Head {h00=0x0012, h01=0x0050, text=» CMP COB0,COB0«, t00=0x0027, t01=0x0150}
0x3e44…3e52 Head {h00=0x000a, h01=0x0050, text=»RDN300«, t00=0x0027, t01=0x0166}
0x3e52…3e5e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0027, t01=0x0174}
0x3e5e…3e6c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0027, t01=0x0180}
0x3e6c…3e7a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x018e}
0x3e7a…3e9c Head {h00=0x001e, h01=0x0050, text=»DECHEX PROC FIELD,DISP,LEN«, t00=0x0028, t01=0x000c}
0x3e9c…3eb0 Head {h00=0x0010, h01=0x0050, text=» PSTRG FIELD«, t00=0x0028, t01=0x002e}
0x3eb0…3ec2 Head {h00=0x000e, h01=0x0050, text=» PBIN DISP«, t00=0x0028, t01=0x0042}
0x3ec2…3ed4 Head {h00=0x000e, h01=0x0050, text=» PBIN LEN «, t00=0x0028, t01=0x0054}
0x3ed4…3ede Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0066}
0x3ede…3f1e Head {h00=0x003c, h01=0x0050, text=»* THIS PROCEDURE CONVERTS 3 CHRS AT A TIME FROM NUMERIC «, t00=0x0028, t01=0x0070}
0x3f1e…3f40 Head {h00=0x001e, h01=0x0050, text=»* TO THE SAME VALUE IN HEX«, t00=0x0028, t01=0x00b0}
0x3f40…3f6e Head {h00=0x002a, h01=0x0050, text=»* EXAMPLE* 068 IS CONVERTED INTO X'44'«, t00=0x0028, t01=0x00d2}
0x3f6e…3f9a Head {h00=0x0028, h01=0x0050, text=»* THE 2 NOW UNUSED CHRS ARE DELETED «, t00=0x0028, t01=0x0100}
0x3f9a…3fa4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x012c}
0x3fa4…3fb2 Head {h00=0x000a, h01=0x0050, text=»DECH00«, t00=0x0028, t01=0x0136}
0x3fb2…3fe8 Head {h00=0x0032, h01=0x0050, text=» XCOPY WKD3A,COB0,COB3,FIELD,DISPL GET 3 BYTES«, t00=0x0028, t01=0x0144}
0x3fe8…4012 Head {h00=0x0026, h01=0x0050, text=» MOVE WKBCD1,WKD3A CONVERT TO DEC «, t00=0x0028, t01=0x017a}
0x4012…403c Head {h00=0x0026, h01=0x0050, text=» MOVE WKBIN2,WKBCD1 CONVERT TO HEX«, t00=0x0029, t01=0x0014}
0x403c…407c Head {h00=0x003c, h01=0x0050, text=» XCOPY FIELD,DISP,COB1,WKBIN2,COB1 MOVE BACK INTO FIELD «, t00=0x0029, t01=0x003e}
0x407c…40b0 Head {h00=0x0030, h01=0x0050, text=» ADD DISP,COB1 POINT TO 1. CHR TO BE DELETED«, t00=0x0029, t01=0x007e}
0x40b0…40de Head {h00=0x002a, h01=0x0050, text=» DELETE FIELD,DISP,COB2 DELETE 2 BYTES«, t00=0x0029, t01=0x00b2}
0x40de…4104 Head {h00=0x0022, h01=0x0050, text=» SUB LEN,COB3 DECREASE LENGTH «, t00=0x0029, t01=0x00e0}
0x4104…4136 Head {h00=0x002e, h01=0x0050, text=» CBL LEN,COB3,DECH10 MORE LEFT TO CONVERT?«, t00=0x0029, t01=0x0106}
0x4136…4168 Head {h00=0x002e, h01=0x0050, text=» PERF DECHEX,FIELD,DISP,LEN RECURSIVE CALL«, t00=0x0029, t01=0x0138}
0x4168…4176 Head {h00=0x000a, h01=0x0050, text=»DECH10«, t00=0x0029, t01=0x016a}
0x4176…4182 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0029, t01=0x0178}
0x4182…4190 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0029, t01=0x0184}
0x4190…419e (42, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x0004}
0x419e…41b2 Head {h00=0x0010, h01=0x0050, text=»SETKLK PROC «, t00=0x002a, t01=0x0012}
0x41b2…41be Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002a, t01=0x0026}
0x41be…41cc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002a, t01=0x0032}
0x41cc…41d4 Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x0040}
0x41d4…41dc Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x0048}
0x41dc…41f0 Head {h00=0x0010, h01=0x0050, text=»LDMONI PROC «, t00=0x002a, t01=0x0050}
0x41f0…41fc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002a, t01=0x0064}
0x41fc…420a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002a, t01=0x0070}
0x420a…4212 Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x007e}
0x4212…4224 Head {h00=0x000e, h01=0x0050, text=»BUNDT PROC«, t00=0x002a, t01=0x0086}
0x4224…4230 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002a, t01=0x0098}
0x4230…423e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002a, t01=0x00a4}
0x423e…4246 Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x00b2}
0x4246…424e Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x00ba}
0x424e…425e Head {h00=0x000c, h01=0x0050, text=»LUK PROC«, t00=0x002a, t01=0x00c2}
0x425e…426a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002a, t01=0x00d2}
0x426a…4278 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002a, t01=0x00de}
0x4278…4286 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x00ec}
0x4286…429a Head {h00=0x0010, h01=0x0050, text=»VARIUS FRMT «, t00=0x002a, t01=0x00fa}
0x429a…42ae Head {h00=0x0010, h01=0x0050, text=» FCOPY ='22'«, t00=0x002a, t01=0x010e}
0x42ae…42c4 Head {h00=0x0012, h01=0x0050, text=» FCOPY VARIOUS«, t00=0x002a, t01=0x0122}
0x42c4…42d2 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x002a, t01=0x0138}
0x42d2…42da Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x0146}
0x42da…42ec Head {h00=0x000e, h01=0x0050, text=»WRONG FRMT«, t00=0x002a, t01=0x014e}
0x42ec…4300 Head {h00=0x0010, h01=0x0050, text=» FCOPY ='++'«, t00=0x002a, t01=0x0160}
0x4300…431a Head {h00=0x0016, h01=0x0050, text=» FCOPY ='REJECTED'«, t00=0x002a, t01=0x0174}
0x431a…4326 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x002a, t01=0x018e}
0x4326…433c Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',30 «, t00=0x002b, t01=0x000a}
0x433c…4352 Head {h00=0x0012, h01=0x0050, text=» FCOPY =': ' «, t00=0x002b, t01=0x0020}
0x4352…4360 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x002b, t01=0x0036}
0x4360…4368 Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x0044}
0x4368…437a Head {h00=0x000e, h01=0x0050, text=»MODIF FRMT«, t00=0x002b, t01=0x004c}
0x437a…4392 Head {h00=0x0014, h01=0x0050, text=» FMEL '9',WKBCD1«, t00=0x002b, t01=0x005e}
0x4392…43a0 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x002b, t01=0x0076}
0x43a0…43a8 Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x0084}
0x43a8…43b8 Head {h00=0x000c, h01=0x0050, text=»INF FRMT«, t00=0x002b, t01=0x008c}
0x43b8…43ce Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'22' «, t00=0x002b, t01=0x009c}
0x43ce…43e2 Head {h00=0x0010, h01=0x0050, text=» FCOPY INFO «, t00=0x002b, t01=0x00b2}
0x43e2…43f0 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x002b, t01=0x00c6}
0x43f0…43f8 Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x00d4}
0x43f8…4404 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x002b, t01=0x00dc}
0x4404…4408 Head {h00=0x4004, h01=0x0000}
0x4408…440c 00 2b 00 e8 ┆ + ┆
0x440c…4414 (44, 1, 8) 20 04 00 00 00 2c 00 04 ┆ , ┆