|
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: 17238 (0x4356)
Notes: pts_type(SC)
Names: »SUBS.SC«
└─⟦cd4bbebb4⟧ Bits:30009680 Philips computer tape "600221"
└─⟦this⟧ »BEBATM/SUBS.SC«
IDENT SUBS 830809 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 SETKL ENTRY SEDLER ENTRY BUNT 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 "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 * :4 - STATUS TEXTS * :256 - MARKS THE END OF THE FILE * TABI010 MOVE VARIOUS,=C'SPECIFY CONSTANTFILE (IF NOT "CONSTANT").. ' PERF SCRIBE,VARIUS PERF KBINP BOK TABI012 PERF SCRIBE,WRONG B TABI010 * TABI012 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, STATUS MSG 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 HILIMIT,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 MOVE STATTXT(INDEX),FDBUF B TABI040 * 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 * 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 BUNT 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 830809 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…01a2 (1, 0, 400) Head {h00=0x0010, h01=0x0050, text=» ENTRY SETKL«, t00=0x0001, t01=0x0004}
0x01a2…01b8 Head {h00=0x0012, h01=0x0050, text=» ENTRY SEDLER «, t00=0x0001, t01=0x0018}
0x01b8…01cc Head {h00=0x0010, h01=0x0050, text=» ENTRY BUNT «, t00=0x0001, t01=0x002e}
0x01cc…01de Head {h00=0x000e, h01=0x0050, text=» ENTRY LUK«, t00=0x0001, t01=0x0042}
0x01de…01e6 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0054}
0x01e6…01ee Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x005c}
0x01ee…020a Head {h00=0x0018, h01=0x0050, text=» EXPROC SCRIBE,PFRMT«, t00=0x0001, t01=0x0064}
0x020a…0220 Head {h00=0x0012, h01=0x0050, text=» EXPROC KBINP «, t00=0x0001, t01=0x0080}
0x0220…0236 Head {h00=0x0012, h01=0x0050, text=» EXPROC DLLATM«, t00=0x0001, t01=0x0096}
0x0236…024a Head {h00=0x0010, h01=0x0050, text=» EXPROC OPEN«, t00=0x0001, t01=0x00ac}
0x024a…0260 Head {h00=0x0012, h01=0x0050, text=» EXPROC CLOSE «, t00=0x0001, t01=0x00c0}
0x0260…0274 Head {h00=0x0010, h01=0x0050, text=» EXPROC READ«, t00=0x0001, t01=0x00d6}
0x0274…028a Head {h00=0x0012, h01=0x0050, text=» EXPROC OPRCMD«, t00=0x0001, t01=0x00ea}
0x028a…0292 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0100}
0x0292…02a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0108}
0x02a0…02b4 Head {h00=0x0010, h01=0x0050, text=»LOADER PROC «, t00=0x0001, t01=0x0116}
0x02b4…02be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x012a}
0x02be…0306 Head {h00=0x0044, h01=0x0050, text=»* THIS ROUTINE DOWNLINELOADS THE STATES, SCREENS ETC TO THE ATM.«, t00=0x0001, t01=0x0134}
0x0306…034c Head {h00=0x0042, h01=0x0050, text=»* THE INPUT IS TO RESIDE ON A FLOPPY FILE, CREATED BY THE ATM-«, t00=0x0001, t01=0x017c}
0x034c…0390 Head {h00=0x0040, h01=0x0050, text=»* CONFIGURATOR. INPUT TO THE CONFIGURATOR IS CREATED BY THE «, t00=0x0002, t01=0x0032}
0x0390…03a8 Head {h00=0x0014, h01=0x0050, text=»* NORMAL EDITOR.«, t00=0x0002, t01=0x0076}
0x03a8…03b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x008e}
0x03b2…03c0 Head {h00=0x000a, h01=0x0050, text=»LOA010«, t00=0x0002, t01=0x0098}
0x03c0…0400 Head {h00=0x003c, h01=0x0050, text=» MOVE VARIOUS,=C'SPECIFY DLL-FILE (IF NOT "MASTER")... '«, t00=0x0002, t01=0x00a6}
0x0400…041c Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0002, t01=0x00e6}
0x041c…0430 Head {h00=0x0010, h01=0x0050, text=» PERF KBINP «, t00=0x0002, t01=0x0102}
0x0430…0444 Head {h00=0x0010, h01=0x0050, text=» BOK LOA020 «, t00=0x0002, t01=0x0116}
0x0444…046a Head {h00=0x0022, h01=0x0050, text=» PERF SCRIBE,WRONG INPUT ERROR«, t00=0x0002, t01=0x012a}
0x046a…0486 Head {h00=0x0018, h01=0x0050, text=» B LOA010 TRY AGAIN «, t00=0x0002, t01=0x0150}
0x0486…0494 Head {h00=0x000a, h01=0x0050, text=»LOA020«, t00=0x0002, t01=0x016c}
0x0494…04ac Head {h00=0x0014, h01=0x0050, text=» MOVE INFO,=C' '«, t00=0x0002, t01=0x017a}
0x04ac…04c4 (3, 0, 398) Head {h00=0x0014, h01=0x0050, text=» PERF SCRIBE,INF«, t00=0x0003, t01=0x0004}
0x04c4…04f0 Head {h00=0x0028, h01=0x0050, text=» CBNE INDEX,COB1,LOA010 NOT <ENTER> «, t00=0x0003, t01=0x001c}
0x04f0…051e Head {h00=0x002a, h01=0x0050, text=» SUB LENGTH,COB1 THROW AWAY ENTER-KEY «, t00=0x0003, t01=0x0048}
0x051e…053e Head {h00=0x001c, h01=0x0050, text=» BNZ LOA025 NOT DEFAULT«, t00=0x0003, t01=0x0076}
0x053e…055e Head {h00=0x001c, h01=0x0050, text=» MOVE BUFIN,=C'MASTER ' «, t00=0x0003, t01=0x0096}
0x055e…0578 Head {h00=0x0016, h01=0x0050, text=» MOVE LENGTH,COB6 «, t00=0x0003, t01=0x00b6}
0x0578…0586 Head {h00=0x000a, h01=0x0050, text=»LOA025«, t00=0x0003, t01=0x00d0}
0x0586…05b6 Head {h00=0x002c, h01=0x0050, text=» COPY DSFTABLE(COB1),COB0,COB8,INFO,COB0«, t00=0x0003, t01=0x00de}
0x05b6…05fa Head {h00=0x0040, h01=0x0050, text=» COPY DSFTABLE(COB1),COB0,LENGTH,BUFIN,COB0 CHANGE FILENAME «, t00=0x0003, t01=0x010e}
0x05fa…062c Head {h00=0x002e, h01=0x0050, text=» COPY DSFTABLE(COB1),COB8,COB6,VOLUME,COB0«, t00=0x0003, t01=0x0152}
0x062c…063e Head {h00=0x000e, h01=0x0050, text=» CLEAR EOF«, t00=0x0003, t01=0x0184}
0x063e…066a Head {h00=0x0028, h01=0x0050, text=» PERF OPEN,COB1,WKB1 OPEN SOURCEFILE«, t00=0x0004, t01=0x0008}
0x066a…067e Head {h00=0x0010, h01=0x0050, text=» BOK LOA030 «, t00=0x0004, t01=0x0034}
0x067e…06a4 Head {h00=0x0022, h01=0x0050, text=» MOVE VARIOUS,=C'ASSIGNERROR '«, t00=0x0004, t01=0x0048}
0x06a4…06c0 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0004, t01=0x006e}
0x06c0…06d6 Head {h00=0x0012, h01=0x0050, text=» B LOA990 EXIT«, t00=0x0004, t01=0x008a}
0x06d6…06e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a0}
0x06e0…0704 Head {h00=0x0020, h01=0x0050, text=»LOA030 FILE IS NOW OPENED «, t00=0x0004, t01=0x00aa}
0x0704…0736 Head {h00=0x002e, h01=0x0050, text=» MOVE WKSTR7,=C'2' TAKE ATM OUT OF SERVICE«, t00=0x0004, t01=0x00ce}
0x0736…0760 Head {h00=0x0026, h01=0x0050, text=» PERF OPRCMD SEND, + RCV SOLL.STAT«, t00=0x0004, t01=0x0100}
0x0760…077e Head {h00=0x001a, h01=0x0050, text=» BNOK LOA030 TRY AGAIN«, t00=0x0004, t01=0x012a}
0x077e…07b6 Head {h00=0x0034, h01=0x0050, text=» MOVE VARIOUS,=C'* DOWNLINELOAD IN PROGRESS * ' «, t00=0x0004, t01=0x0148}
0x07b6…07d2 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0004, t01=0x0180}
0x07d2…07fc Head {h00=0x0026, h01=0x0050, text=» SET DLL INDICATE DLL IN PROGRESS «, t00=0x0005, t01=0x000c}
0x07fc…0836 Head {h00=0x0036, h01=0x0050, text=» MOVE WKSTG2,=X'4131201B3142331C1C1C31001C' HEADER«, t00=0x0005, t01=0x0036}
0x0836…0862 Head {h00=0x0028, h01=0x0050, text=» MOVE PNT4,COB0 READ 1. LOGICAL PART«, t00=0x0005, t01=0x0070}
0x0862…087a Head {h00=0x0014, h01=0x0050, text=» MOVE RECNO,COB0«, t00=0x0005, t01=0x009c}
0x087a…0892 Head {h00=0x0014, h01=0x0050, text=» MOVE DISPL,COB0«, t00=0x0005, t01=0x00b4}
0x0892…08ac Head {h00=0x0016, h01=0x0050, text=» MOVE FDLBUF,=C' '«, t00=0x0005, t01=0x00cc}
0x08ac…08b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00e6}
0x08b6…08dc Head {h00=0x0022, h01=0x0050, text=» PERF RDNEXT READ FIRST RECORD«, t00=0x0005, t01=0x00f0}
0x08dc…08f0 Head {h00=0x0010, h01=0x0050, text=» BNOK LOA960«, t00=0x0005, t01=0x0116}
0x08f0…0914 Head {h00=0x0020, h01=0x0050, text=» PERF RDNEXT READ 2. RECORD «, t00=0x0005, t01=0x012a}
0x0914…0928 Head {h00=0x0010, h01=0x0050, text=» BNOK LOA960«, t00=0x0005, t01=0x014e}
0x0928…094c Head {h00=0x0020, h01=0x0050, text=» PERF RDNEXT READ 3. RECORD «, t00=0x0005, t01=0x0162}
0x094c…0960 Head {h00=0x0010, h01=0x0050, text=» BNOK LOA960«, t00=0x0005, t01=0x0186}
0x0960…096a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x000a}
0x096a…0992 Head {h00=0x0024, h01=0x0050, text=»LOA070 PNT4 POINTS TO MODIFIER«, t00=0x0006, t01=0x0014}
0x0992…09c2 Head {h00=0x002c, h01=0x0050, text=» SET MODIFLG INDICATE WE HAVE A MODIFIER«, t00=0x0006, t01=0x003c}
0x09c2…09fa Head {h00=0x0034, h01=0x0050, text=» XCOPY BIN5,COB0,COB2,FDLBUF,PNT4 MOVE MODIFIER «, t00=0x0006, t01=0x006c}
0x09fa…0a10 Head {h00=0x0012, h01=0x0050, text=» ADD PNT4,COB2«, t00=0x0006, t01=0x00a4}
0x0a10…0a3a Head {h00=0x0026, h01=0x0050, text=»LOA080 PNT4 POINTS TO RECORDNBR «, t00=0x0006, t01=0x00ba}
0x0a3a…0a72 Head {h00=0x0034, h01=0x0050, text=» XCOPY BIN6,COB0,COB2,FDLBUF,PNT4 MOVE RECORDNBR«, t00=0x0006, t01=0x00e4}
0x0a72…0a88 Head {h00=0x0012, h01=0x0050, text=» ADD PNT4,COB2«, t00=0x0006, t01=0x011c}
0x0a88…0abc Head {h00=0x0030, h01=0x0050, text=» XCOPY TLEN,COB0,COB2,FDLBUF,PNT4 MOVE TLEN «, t00=0x0006, t01=0x0132}
0x0abc…0ae0 Head {h00=0x0020, h01=0x0050, text=» ADD PNT4,COB2 POINT TO DATA«, t00=0x0006, t01=0x0166}
0x0ae0…0b14 Head {h00=0x0030, h01=0x0050, text=» SUB TLEN,COB4 DISREGARD RECNO+TLEN JUST NOW«, t00=0x0006, t01=0x018a}
0x0b14…0b3c Head {h00=0x0024, h01=0x0050, text=» MOVE BUFIN,=X'00' CLEAR BUFFER «, t00=0x0007, t01=0x002e}
0x0b3c…0b66 Head {h00=0x0026, h01=0x0050, text=» XCOPY BUFIN,COB0,TLEN,FDLBUF,PNT4«, t00=0x0007, t01=0x0056}
0x0b66…0b94 Head {h00=0x002a, h01=0x0050, text=»* 'TLEN' CONTAINS DATATLEN IN 'BUFIN' «, t00=0x0007, t01=0x0080}
0x0b94…0bb6 Head {h00=0x001e, h01=0x0050, text=»* 'BIN5' CONTAINS MODIFIER«, t00=0x0007, t01=0x00ae}
0x0bb6…0be8 Head {h00=0x002e, h01=0x0050, text=»* 'BIN6' CONTAINS RECORDNUMBER (NOT USED) «, t00=0x0007, t01=0x00d0}
0x0be8…0c02 Head {h00=0x0016, h01=0x0050, text=» MOVE LENGTH,TLEN «, t00=0x0007, t01=0x0102}
0x0c02…0c2a Head {h00=0x0024, h01=0x0050, text=» MOVE WKBCD1,BIN5 MOVE MODIFIER «, t00=0x0007, t01=0x011c}
0x0c2a…0c50 Head {h00=0x0022, h01=0x0050, text=» EDIT WKSTG1,MODIF AND EDIT IT«, t00=0x0007, t01=0x0144}
0x0c50…0c90 Head {h00=0x003c, h01=0x0050, text=» COPY WKSTG2,COB11,COB1,WKSTG1,COB0 MOVE IT INTO HEADER «, t00=0x0007, t01=0x016a}
0x0c90…0cb4 Head {h00=0x0020, h01=0x0050, text=» PERF DLLATM DOWNLINELOAD IT«, t00=0x0008, t01=0x001a}
0x0cb4…0cd6 Head {h00=0x001e, h01=0x0050, text=» BNOK LOA970 EXIT IF ERROR«, t00=0x0008, t01=0x003e}
0x0cd6…0cfc Head {h00=0x0022, h01=0x0050, text=» ADD TLEN,COB4 RECNO+ACT.TLEN «, t00=0x0008, t01=0x0060}
0x0cfc…0d30 Head {h00=0x0030, h01=0x0050, text=» TBF MODIFLG,LOA100 MODIFIER TO BE DELETED? «, t00=0x0008, t01=0x0086}
0x0d30…0d58 Head {h00=0x0024, h01=0x0050, text=» CLEAR MODIFLG IF SO, CLEAR FLAG«, t00=0x0008, t01=0x00ba}
0x0d58…0d80 Head {h00=0x0024, h01=0x0050, text=» ADD TLEN,COB2 AND DELETE 2 MORE«, t00=0x0008, t01=0x00e2}
0x0d80…0d96 Head {h00=0x0012, h01=0x0050, text=» SUB PNT4,COB2«, t00=0x0008, t01=0x010a}
0x0d96…0d9e Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0120}
0x0d9e…0dac Head {h00=0x000a, h01=0x0050, text=»LOA100«, t00=0x0008, t01=0x0128}
0x0dac…0dcc Head {h00=0x001c, h01=0x0050, text=» DLETE FDLBUF,COB0,TLEN «, t00=0x0008, t01=0x0136}
0x0dcc…0de2 Head {h00=0x0012, h01=0x0050, text=» SUB PNT4,COB4«, t00=0x0008, t01=0x0156}
0x0de2…0dfa Head {h00=0x0014, h01=0x0050, text=» SUB DISPL,TLEN «, t00=0x0008, t01=0x016c}
0x0dfa…0e3a Head {h00=0x003c, h01=0x0050, text=» XCOPY BIN7,COB0,COB2,FDLBUF,PNT4 1.WORD OF NEXT RECORD «, t00=0x0008, t01=0x0184}
0x0e3a…0e48 Head {h00=0x000a, h01=0x0050, text=»LOA105«, t00=0x0009, t01=0x0034}
0x0e48…0e82 Head {h00=0x0036, h01=0x0050, text=» CBNL DISPL,=W'255',LOA120 TIME FOR ANOTHER READ? «, t00=0x0009, t01=0x0042}
0x0e82…0e9a Head {h00=0x0014, h01=0x0050, text=» TBT EOF,LOA120 «, t00=0x0009, t01=0x007c}
0x0e9a…0ec0 Head {h00=0x0022, h01=0x0050, text=» PERF RDNEXT READ NEXT RECORD «, t00=0x0009, t01=0x0094}
0x0ec0…0ed4 Head {h00=0x0010, h01=0x0050, text=» BNOK LOA960«, t00=0x0009, t01=0x00ba}
0x0ed4…0f04 Head {h00=0x002c, h01=0x0050, text=» B LOA105 EXTRA READ MIGHT BE NECESSARY «, t00=0x0009, t01=0x00ce}
0x0f04…0f0c Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x00fe}
0x0f0c…0f1a Head {h00=0x000a, h01=0x0050, text=»LOA120«, t00=0x0009, t01=0x0106}
0x0f1a…0f50 Head {h00=0x0032, h01=0x0050, text=» CBL BIN7,=W'256',LOA080 SAME SUBFILE? (:256) «, t00=0x0009, t01=0x0114}
0x0f50…0f7e Head {h00=0x002a, h01=0x0050, text=» BG LOA940 SOME POINTER IS OVERWRITTEN«, t00=0x0009, t01=0x014a}
0x0f7e…0faa Head {h00=0x0028, h01=0x0050, text=» ADD PNT4,COB2 POINT TO NEW MODIFIER«, t00=0x0009, t01=0x0178}
0x0faa…0fe0 Head {h00=0x0032, h01=0x0050, text=» XCOPY BIN7,COB0,COB2,FDLBUF,PNT4 AND COPY IT «, t00=0x000a, t01=0x0014}
0x0fe0…101c Head {h00=0x0038, h01=0x0050, text=» CBNE BIN7,=X'000A',LOA070 FINISHED IF MODIFIER="*A"«, t00=0x000a, t01=0x004a}
0x101c…105a Head {h00=0x003a, h01=0x0050, text=» MOVE VARIOUS,=C'DOWNLINE LOAD CONCLUDED CORRECTLY. ' «, t00=0x000a, t01=0x0086}
0x105a…1076 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x000a, t01=0x00c4}
0x1076…108e Head {h00=0x0014, h01=0x0050, text=» MOVE WKB1,COB1 «, t00=0x000a, t01=0x00e0}
0x108e…10a6 Head {h00=0x0014, h01=0x0050, text=» PERF CLOSE,WKB1«, t00=0x000a, t01=0x00f8}
0x10a6…10b8 Head {h00=0x000e, h01=0x0050, text=» CLEAR DLL«, t00=0x000a, t01=0x0110}
0x10b8…10ce Head {h00=0x0012, h01=0x0050, text=» CMP COB0,COB0«, t00=0x000a, t01=0x0122}
0x10ce…10da Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x0138}
0x10da…10e2 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0144}
0x10e2…10f0 Head {h00=0x000a, h01=0x0050, text=»LOA940«, t00=0x000a, t01=0x014c}
0x10f0…112e Head {h00=0x003a, h01=0x0050, text=» MOVE VARIOUS,=C'DATA ERROR ON DISK ' INVALID RECORDNR«, t00=0x000a, t01=0x015a}
0x112e…114a Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x000b, t01=0x0008}
0x114a…115c Head {h00=0x000e, h01=0x0050, text=» B LOA980 «, t00=0x000b, t01=0x0024}
0x115c…1164 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0036}
0x1164…1172 Head {h00=0x000a, h01=0x0050, text=»LOA960«, t00=0x000b, t01=0x003e}
0x1172…11aa Head {h00=0x0034, h01=0x0050, text=» MOVE VARIOUS,=C'READ/WRITE ERROR ON DATA DISK '«, t00=0x000b, t01=0x004c}
0x11aa…11c6 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x000b, t01=0x0084}
0x11c6…11d8 Head {h00=0x000e, h01=0x0050, text=» B LOA980 «, t00=0x000b, t01=0x00a0}
0x11d8…11e0 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00b2}
0x11e0…11ee Head {h00=0x000a, h01=0x0050, text=»LOA970«, t00=0x000b, t01=0x00ba}
0x11ee…1212 Head {h00=0x0020, h01=0x0050, text=» MOVE VARIOUS,=C'DLL ERROR '«, t00=0x000b, t01=0x00c8}
0x1212…122e Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x000b, t01=0x00ec}
0x122e…123c Head {h00=0x000a, h01=0x0050, text=»LOA980«, t00=0x000b, t01=0x0108}
0x123c…1254 Head {h00=0x0014, h01=0x0050, text=» MOVE WKB1,COB1 «, t00=0x000b, t01=0x0116}
0x1254…126c Head {h00=0x0014, h01=0x0050, text=» PERF CLOSE,WKB1«, t00=0x000b, t01=0x012e}
0x126c…127a Head {h00=0x000a, h01=0x0050, text=»LOA990«, t00=0x000b, t01=0x0146}
0x127a…1286 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x0154}
0x1286…1294 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000b, t01=0x0160}
0x1294…12a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x016e}
0x12a2…12b6 Head {h00=0x0010, h01=0x0050, text=»TABINT PROC «, t00=0x000b, t01=0x017c}
0x12b6…12c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0190}
0x12c0…1300 Head {h00=0x003c, h01=0x0050, text=»* THIS PROCEDURE CREATES VARIOUS TABLES AND OTHER FIELDS«, t00=0x000c, t01=0x000a}
0x1300…132c Head {h00=0x0028, h01=0x0050, text=»* IMMEDIATELY AFTER PROGRAM STARTUP.«, t00=0x000c, t01=0x004a}
0x132c…135c Head {h00=0x002c, h01=0x0050, text=»* THE INPUT IS FOUND ON VOLUME "VOLUME".«, t00=0x000c, t01=0x0076}
0x135c…1388 Head {h00=0x0028, h01=0x0050, text=»* THE INPUTFIL WAS CREATED BY $PDISC«, t00=0x000c, t01=0x00a6}
0x1388…1392 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00d2}
0x1392…13d2 Head {h00=0x003c, h01=0x0050, text=»* IN THIS FILE VARIOUS RECORDTYPES MUST/CAN BE PRESENT: «, t00=0x000c, t01=0x00dc}
0x13d2…13f8 Head {h00=0x0022, h01=0x0050, text=»* :1 - DENOMINATION VALUES ETC«, t00=0x000c, t01=0x011c}
0x13f8…1418 Head {h00=0x001c, h01=0x0050, text=»* :2 - FUNCTION COMMANDS«, t00=0x000c, t01=0x0142}
0x1418…145c Head {h00=0x0040, h01=0x0050, text=»* - PRINTER DATA FOR THE ABOVEMENTIONED FUNCTION COMMANDS«, t00=0x000c, t01=0x0162}
0x145c…1490 Head {h00=0x0030, h01=0x0050, text=»* :3 - PRINTER DATA FOR F.X. TOP-OF-RECEIPT «, t00=0x000d, t01=0x0016}
0x1490…14ac Head {h00=0x0018, h01=0x0050, text=»* :4 - STATUS TEXTS «, t00=0x000d, t01=0x004a}
0x14ac…14d6 Head {h00=0x0026, h01=0x0050, text=»* :256 - MARKS THE END OF THE FILE«, t00=0x000d, t01=0x0066}
0x14d6…14e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0090}
0x14e0…14f0 Head {h00=0x000c, h01=0x0050, text=»TABI010 «, t00=0x000d, t01=0x009a}
0x14f0…1536 Head {h00=0x0042, h01=0x0050, text=» MOVE VARIOUS,=C'SPECIFY CONSTANTFILE (IF NOT "CONSTANT").. ' «, t00=0x000d, t01=0x00aa}
0x1536…1552 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x000d, t01=0x00f0}
0x1552…1566 Head {h00=0x0010, h01=0x0050, text=» PERF KBINP «, t00=0x000d, t01=0x010c}
0x1566…157a Head {h00=0x0010, h01=0x0050, text=» BOK TABI012«, t00=0x000d, t01=0x0120}
0x157a…1594 Head {h00=0x0016, h01=0x0050, text=» PERF SCRIBE,WRONG«, t00=0x000d, t01=0x0134}
0x1594…15a6 Head {h00=0x000e, h01=0x0050, text=» B TABI010«, t00=0x000d, t01=0x014e}
0x15a6…15b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0160}
0x15b0…15c0 Head {h00=0x000c, h01=0x0050, text=»TABI012 «, t00=0x000d, t01=0x016a}
0x15c0…15d0 Head {h00=0x000c, h01=0x0050, text=»TABI020 «, t00=0x000d, t01=0x017a}
0x15d0…15e8 Head {h00=0x0014, h01=0x0050, text=» MOVE INFO,=C' '«, t00=0x000d, t01=0x018a}
0x15e8…1600 Head {h00=0x0014, h01=0x0050, text=» PERF SCRIBE,INF«, t00=0x000e, t01=0x0012}
0x1600…1632 Head {h00=0x002e, h01=0x0050, text=» CBNE INDEX,COB1,TABI010 TEST FOR <ENTER> «, t00=0x000e, t01=0x002a}
0x1632…163c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x005c}
0x163c…1668 Head {h00=0x0028, h01=0x0050, text=» SUB LENGTH,COB1 DISREGARD ENTER-KEY«, t00=0x000e, t01=0x0066}
0x1668…1688 Head {h00=0x001c, h01=0x0050, text=» BNZ TABI025 NOT DEFAULT«, t00=0x000e, t01=0x0092}
0x1688…16a8 Head {h00=0x001c, h01=0x0050, text=» MOVE BUFIN,=C'CONSTANT'«, t00=0x000e, t01=0x00b2}
0x16a8…16c2 Head {h00=0x0016, h01=0x0050, text=» MOVE LENGTH,=W'8'«, t00=0x000e, t01=0x00d2}
0x16c2…16d2 Head {h00=0x000c, h01=0x0050, text=»TABI025 «, t00=0x000e, t01=0x00ec}
0x16d2…1714 Head {h00=0x003e, h01=0x0050, text=» COPY DSFTABLE(COB2),COB0,COB8,INFO,COB0 SCRATCH FILENAME «, t00=0x000e, t01=0x00fc}
0x1714…1754 Head {h00=0x003c, h01=0x0050, text=» COPY DSFTABLE(COB2),COB0,LENGTH,BUFIN,COB0 SET FILENAME«, t00=0x000e, t01=0x013e}
0x1754…1792 Head {h00=0x003a, h01=0x0050, text=» COPY DSFTABLE(COB2),COB8,COB6,VOLUME,COB0 VOLUMENAME «, t00=0x000e, t01=0x017e}
0x1792…17c2 Head {h00=0x002c, h01=0x0050, text=» PERF OPEN,COB2,WKB1 OPEN CONSTANT-FILE «, t00=0x000f, t01=0x002c}
0x17c2…17d6 Head {h00=0x0010, h01=0x0050, text=» BOK TABI030«, t00=0x000f, t01=0x005c}
0x17d6…17fe Head {h00=0x0024, h01=0x0050, text=» MOVE VARIOUS,=C'ASSIGN ERROR ' «, t00=0x000f, t01=0x0070}
0x17fe…181a Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x000f, t01=0x0098}
0x181a…183e Head {h00=0x0020, h01=0x0050, text=» B TABI990 EXIT AFTER ERROR «, t00=0x000f, t01=0x00b4}
0x183e…1848 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00d8}
0x1848…1858 Head {h00=0x000c, h01=0x0050, text=»TABI030 «, t00=0x000f, t01=0x00e2}
0x1858…1870 Head {h00=0x0014, h01=0x0050, text=» MOVE RECNO,COB0«, t00=0x000f, t01=0x00f2}
0x1870…1890 Head {h00=0x001c, h01=0x0050, text=»TABI040 READ A RECORD «, t00=0x000f, t01=0x010a}
0x1890…18a8 Head {h00=0x0014, h01=0x0050, text=» ADD RECNO,COB1 «, t00=0x000f, t01=0x012a}
0x18a8…18d2 Head {h00=0x0026, h01=0x0050, text=» PERF READ,COB2,FDBUF,RECNO,STATUS«, t00=0x000f, t01=0x0142}
0x18d2…18fe Head {h00=0x0028, h01=0x0050, text=» BNOK TABI980 READ ERROR (PROBABLY) «, t00=0x000f, t01=0x016c}
0x18fe…1928 Head {h00=0x0026, h01=0x0050, text=» MOVE WKSTG4,FDBUF EXTRACT 4 BYTES«, t00=0x0010, t01=0x0008}
0x1928…1958 Head {h00=0x002c, h01=0x0050, text=» CBE WKSTG4,=C':256',TABI900 EOF FOUND? «, t00=0x0010, t01=0x0032}
0x1958…1962 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0062}
0x1962…1986 Head {h00=0x0020, h01=0x0050, text=» MOVE STAT,FDBUF NOT YET EOF«, t00=0x0010, t01=0x006c}
0x1986…19b8 Head {h00=0x002e, h01=0x0050, text=» CBNE STAT,=C':',TABI050 NEW RECORD TYPE? «, t00=0x0010, t01=0x0090}
0x19b8…19c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00c2}
0x19c2…19f8 Head {h00=0x0032, h01=0x0050, text=» DLETE WKSTG4,COB0,COB1 DELETE TYPE DELIMITER «, t00=0x0010, t01=0x00cc}
0x19f8…1a22 Head {h00=0x0026, h01=0x0050, text=» MOVE WKBCD3,WKSTG4 CONVERT TO BCD«, t00=0x0010, t01=0x0102}
0x1a22…1a4c Head {h00=0x0026, h01=0x0050, text=» MOVE INDEX,COB0 RECORD IDENTIFIER«, t00=0x0010, t01=0x012c}
0x1a4c…1a74 Head {h00=0x0024, h01=0x0050, text=» MOVE OLDSET,=D'-1' INIT OLDSET «, t00=0x0010, t01=0x0156}
0x1a74…1aa4 Head {h00=0x002c, h01=0x0050, text=» MOVE DISPL,COB0 INIT DIPLACEMENTPOINTER«, t00=0x0010, t01=0x017e}
0x1aa4…1acc Head {h00=0x0024, h01=0x0050, text=» B TABI040 AND TAKE NEXT RECORD «, t00=0x0011, t01=0x001e}
0x1acc…1ad6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0046}
0x1ad6…1ae6 Head {h00=0x000c, h01=0x0050, text=»TABI050 «, t00=0x0011, t01=0x0050}
0x1ae6…1b14 Head {h00=0x002a, h01=0x0050, text=»* THE CURRENT TYPE IS FOUND IN WKBCD3 «, t00=0x0011, t01=0x0060}
0x1b14…1b2e Head {h00=0x0016, h01=0x0050, text=» MOVE BIN7,WKBCD3 «, t00=0x0011, t01=0x008e}
0x1b2e…1b5c Head {h00=0x002a, h01=0x0050, text=» IB BIN7,TABI100, VARIOUS CONSTANTS C «, t00=0x0011, t01=0x00a8}
0x1b5c…1b82 Head {h00=0x0022, h01=0x0050, text=» TABI200, FUNCTION COMMANDS C«, t00=0x0011, t01=0x00d6}
0x1b82…1ba4 Head {h00=0x001e, h01=0x0050, text=» TABI300, PRINTER DATA C «, t00=0x0011, t01=0x00fc}
0x1ba4…1bc4 Head {h00=0x001c, h01=0x0050, text=» TABI400, STATUS MSG C «, t00=0x0011, t01=0x011e}
0x1bc4…1bda Head {h00=0x0012, h01=0x0050, text=» TABI500, C «, t00=0x0011, t01=0x013e}
0x1bda…1bf0 Head {h00=0x0012, h01=0x0050, text=» TABI600, C «, t00=0x0011, t01=0x0154}
0x1bf0…1c06 Head {h00=0x0012, h01=0x0050, text=» TABI700, C «, t00=0x0011, t01=0x016a}
0x1c06…1c18 Head {h00=0x000e, h01=0x0050, text=» TABI800 «, t00=0x0011, t01=0x0180}
0x1c18…1c40 (18, 0, 400) Head {h00=0x0024, h01=0x0050, text=» B TABI040 INVALID TYPE, IGNORE «, t00=0x0012, t01=0x0004}
0x1c40…1c4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x002c}
0x1c4a…1c5a Head {h00=0x000c, h01=0x0050, text=»TABI100 «, t00=0x0012, t01=0x0036}
0x1c5a…1c88 Head {h00=0x002a, h01=0x0050, text=» ADD INDEX,COB1 NEXT RECORD IDENTIFIER«, t00=0x0012, t01=0x0046}
0x1c88…1cbe Head {h00=0x0032, h01=0x0050, text=» IB INDEX,TABI110,TABI110,TABI110,TABI110, C «, t00=0x0012, t01=0x0074}
0x1cbe…1cec Head {h00=0x002a, h01=0x0050, text=» TABI110,TABI110,TABI110,TABI110, C «, t00=0x0012, t01=0x00aa}
0x1cec…1d02 Head {h00=0x0012, h01=0x0050, text=» TABI120, C «, t00=0x0012, t01=0x00d8}
0x1d02…1d12 Head {h00=0x000c, h01=0x0050, text=» TAB130«, t00=0x0012, t01=0x00ee}
0x1d12…1d3a Head {h00=0x0024, h01=0x0050, text=» B TABI040 INVALID INDEX,IGNORE «, t00=0x0012, t01=0x00fe}
0x1d3a…1d44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0126}
0x1d44…1d54 Head {h00=0x000c, h01=0x0050, text=»TABI110 «, t00=0x0012, t01=0x0130}
0x1d54…1d88 Head {h00=0x0030, h01=0x0050, text=»* 8 CURRENCY VALUES, RECORD IDENTIFIER 1..8 «, t00=0x0012, t01=0x0140}
0x1d88…1db8 Head {h00=0x002c, h01=0x0050, text=» MOVE DENOM(INDEX),FDBUF CONVERT TO BCD «, t00=0x0012, t01=0x0174}
0x1db8…1dca Head {h00=0x000e, h01=0x0050, text=» B TABI040«, t00=0x0013, t01=0x0014}
0x1dca…1dd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0026}
0x1dd4…1de4 Head {h00=0x000c, h01=0x0050, text=»TABI120 «, t00=0x0013, t01=0x0030}
0x1de4…1e10 Head {h00=0x0028, h01=0x0050, text=»* CURRENCY TEXT, RECORD IDENTIFIER 9«, t00=0x0013, t01=0x0040}
0x1e10…1e28 Head {h00=0x0014, h01=0x0050, text=» MOVE CURR,FDBUF«, t00=0x0013, t01=0x006c}
0x1e28…1e3a Head {h00=0x000e, h01=0x0050, text=» B TABI040«, t00=0x0013, t01=0x0084}
0x1e3a…1e44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0096}
0x1e44…1e52 Head {h00=0x000a, h01=0x0050, text=»TAB130«, t00=0x0013, t01=0x00a0}
0x1e52…1e7c Head {h00=0x0026, h01=0x0050, text=»* MAXIMUM WITHDRAWAL. NO DECIMALS «, t00=0x0013, t01=0x00ae}
0x1e7c…1e98 Head {h00=0x0018, h01=0x0050, text=» MOVE HILIMIT,FDBUF «, t00=0x0013, t01=0x00d8}
0x1e98…1eaa Head {h00=0x000e, h01=0x0050, text=» B TABI040«, t00=0x0013, t01=0x00f4}
0x1eaa…1eb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0106}
0x1eb4…1ec4 Head {h00=0x000c, h01=0x0050, text=»TABI200 «, t00=0x0013, t01=0x0110}
0x1ec4…1eee Head {h00=0x0026, h01=0x0050, text=»* FUNCTION COMMANDS, PRINTER DATA «, t00=0x0013, t01=0x0120}
0x1eee…1f16 Head {h00=0x0024, h01=0x0050, text=» MOVE COMB,FDBUF EXTRACT SEQ.NBR«, t00=0x0013, t01=0x014a}
0x1f16…1f3c Head {h00=0x0022, h01=0x0050, text=» MOVE SET,COMB CONVERT TO BCD «, t00=0x0013, t01=0x0172}
0x1f3c…1f6a Head {h00=0x002a, h01=0x0050, text=» DLETE FDBUF,COB0,COB2 DELETE SEQ.NBR «, t00=0x0014, t01=0x0008}
0x1f6a…1f8a Head {h00=0x001c, h01=0x0050, text=» CBNE SET,OLDSET,TABI220«, t00=0x0014, t01=0x0036}
0x1f8a…1fb4 Head {h00=0x0026, h01=0x0050, text=»* SAME SET, IMPLICITS PRINTER DATA«, t00=0x0014, t01=0x0056}
0x1fb4…1fe8 Head {h00=0x0030, h01=0x0050, text=» CBL DISPL,=W'211',TABI210 PREVENT OVERFLOW «, t00=0x0014, t01=0x0080}
0x1fe8…2004 Head {h00=0x0018, h01=0x0050, text=» MOVE DISPL,=W'210' «, t00=0x0014, t01=0x00b4}
0x2004…2014 Head {h00=0x000c, h01=0x0050, text=»TABI210 «, t00=0x0014, t01=0x00d0}
0x2014…2030 Head {h00=0x0018, h01=0x0050, text=» MOVE WKBIN1,=W'40' «, t00=0x0014, t01=0x00e0}
0x2030…206e Head {h00=0x003a, h01=0x0050, text=» XCOPY PTAB(INDEX),DISPL,WKBIN1,FDBUF,COB0 CONCATENATE«, t00=0x0014, t01=0x00fc}
0x206e…20a2 Head {h00=0x0030, h01=0x0050, text=» ADD DISPL,=W'40' ROOM FOR NEXT PRINTERDATA «, t00=0x0014, t01=0x013a}
0x20a2…20d8 Head {h00=0x0032, h01=0x0050, text=» MOVE PLEN(INDEX,COB1),DISPL SET CRUDE LENGTH «, t00=0x0014, t01=0x016e}
0x20d8…20ea Head {h00=0x000e, h01=0x0050, text=» B TABI040«, t00=0x0015, t01=0x0014}
0x20ea…20f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0026}
0x20f4…2104 Head {h00=0x000c, h01=0x0050, text=»TABI220 «, t00=0x0015, t01=0x0030}
0x2104…2130 Head {h00=0x0028, h01=0x0050, text=»* NEW SET, IMPLICIT FUNCTION COMMAND«, t00=0x0015, t01=0x0040}
0x2130…215e Head {h00=0x002a, h01=0x0050, text=» ADD INDEX,COB1 NEXT RECORD IDENTIFIER«, t00=0x0015, t01=0x006c}
0x215e…2194 Head {h00=0x0032, h01=0x0050, text=» MOVE OLDSET,SET INITIATE FOR FURTHER TESTING «, t00=0x0015, t01=0x009a}
0x2194…21ca Head {h00=0x0032, h01=0x0050, text=» MOVE FCBLD(INDEX),FDBUF SAVE FUNCTION COMMAND«, t00=0x0015, t01=0x00d0}
0x21ca…21fe Head {h00=0x0030, h01=0x0050, text=» MOVE DISPL,COB0 PRINTERDATA STARTS IN POS 0«, t00=0x0015, t01=0x0106}
0x21fe…2210 Head {h00=0x000e, h01=0x0050, text=» B TABI040«, t00=0x0015, t01=0x013a}
0x2210…221a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x014c}
0x221a…222a Head {h00=0x000c, h01=0x0050, text=»TABI300 «, t00=0x0015, t01=0x0156}
0x222a…225a Head {h00=0x002c, h01=0x0050, text=»* PRINTER DATA, VARIOUS NATIONAL RUBBISH«, t00=0x0015, t01=0x0166}
0x225a…2272 Head {h00=0x0014, h01=0x0050, text=» MOVE COMB,FDBUF«, t00=0x0016, t01=0x0008}
0x2272…229c Head {h00=0x0026, h01=0x0050, text=» MOVE SET,COMB CONVERT SET TO BCD «, t00=0x0016, t01=0x0020}
0x229c…22ca Head {h00=0x002a, h01=0x0050, text=» DLETE FDBUF,COB0,COB2 DELETE SEQ.NBR «, t00=0x0016, t01=0x004a}
0x22ca…22ea Head {h00=0x001c, h01=0x0050, text=» CBNE SET,OLDSET,TABI320«, t00=0x0016, t01=0x0078}
0x22ea…231e Head {h00=0x0030, h01=0x0050, text=» CBL DISPL,=W'211',TABI310 PREVENT OVERFLOW «, t00=0x0016, t01=0x0098}
0x231e…2352 Head {h00=0x0030, h01=0x0050, text=» MOVE DISPL,=W'210' BY SETTING FIXED POINTER«, t00=0x0016, t01=0x00cc}
0x2352…2362 Head {h00=0x000c, h01=0x0050, text=»TABI310 «, t00=0x0016, t01=0x0100}
0x2362…237e Head {h00=0x0018, h01=0x0050, text=» MOVE WKBIN1,PRWIDTH«, t00=0x0016, t01=0x0110}
0x237e…23b0 Head {h00=0x002e, h01=0x0050, text=» XCOPY PNAT(INDEX),DISPL,WKBIN1,FDBUF,COB0«, t00=0x0016, t01=0x012c}
0x23b0…23e4 Head {h00=0x0030, h01=0x0050, text=» ADD DISPL,PRWIDTH ROOM FOR NEXT PRINTERDATA«, t00=0x0016, t01=0x015e}
0x23e4…241a (23, 0, 400) Head {h00=0x0032, h01=0x0050, text=» MOVE PLEN(INDEX,COB2),DISPL SET CRUDE LENGTH «, t00=0x0017, t01=0x0004}
0x241a…242c Head {h00=0x000e, h01=0x0050, text=» B TABI040«, t00=0x0017, t01=0x003a}
0x242c…2436 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x004c}
0x2436…2446 Head {h00=0x000c, h01=0x0050, text=»TABI320 «, t00=0x0017, t01=0x0056}
0x2446…2466 Head {h00=0x001c, h01=0x0050, text=» ADD INDEX,COB1 NEW SET «, t00=0x0017, t01=0x0066}
0x2466…247e Head {h00=0x0014, h01=0x0050, text=» MOVE OLDSET,SET«, t00=0x0017, t01=0x0086}
0x247e…2496 Head {h00=0x0014, h01=0x0050, text=» MOVE DISPL,COB0«, t00=0x0017, t01=0x009e}
0x2496…24a8 Head {h00=0x000e, h01=0x0050, text=» B TABI310«, t00=0x0017, t01=0x00b6}
0x24a8…24b8 Head {h00=0x000c, h01=0x0050, text=»TABI400 «, t00=0x0017, t01=0x00c8}
0x24b8…24da Head {h00=0x001e, h01=0x0050, text=» MOVE STATTXT(INDEX),FDBUF«, t00=0x0017, t01=0x00d8}
0x24da…24ec Head {h00=0x000e, h01=0x0050, text=» B TABI040«, t00=0x0017, t01=0x00fa}
0x24ec…24f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x010c}
0x24f6…2506 Head {h00=0x000c, h01=0x0050, text=»TABI500 «, t00=0x0017, t01=0x0116}
0x2506…2516 Head {h00=0x000c, h01=0x0050, text=»TABI600 «, t00=0x0017, t01=0x0126}
0x2516…2526 Head {h00=0x000c, h01=0x0050, text=»TABI700 «, t00=0x0017, t01=0x0136}
0x2526…2536 Head {h00=0x000c, h01=0x0050, text=»TABI800 «, t00=0x0017, t01=0x0146}
0x2536…2562 Head {h00=0x0028, h01=0x0050, text=» B TABI040 IGNORE THOSE RECORD TYPES«, t00=0x0017, t01=0x0156}
0x2562…256c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0182}
0x256c…2588 Head {h00=0x0018, h01=0x0050, text=»TABI900 :256 FOUND«, t00=0x0017, t01=0x018c}
0x2588…25be Head {h00=0x0032, h01=0x0050, text=» MOVE VARIOUS,=C'CONSTANTS LOADED CORRECTLY. '«, t00=0x0018, t01=0x0018}
0x25be…25da Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0018, t01=0x004e}
0x25da…2606 Head {h00=0x0028, h01=0x0050, text=» PERF CLOSE,COB2 CLOSE CONSTANTFILE «, t00=0x0018, t01=0x006a}
0x2606…2616 Head {h00=0x000c, h01=0x0050, text=»TABI910 «, t00=0x0018, t01=0x0096}
0x2616…2654 Head {h00=0x003a, h01=0x0050, text=» MOVE VARIOUS,=C'L@BENR. DEPONERING................. '«, t00=0x0018, t01=0x00a6}
0x2654…2670 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0018, t01=0x00e4}
0x2670…2684 Head {h00=0x0010, h01=0x0050, text=» PERF KBINP «, t00=0x0018, t01=0x0100}
0x2684…269a Head {h00=0x0012, h01=0x0050, text=» BNOK TABI910 «, t00=0x0018, t01=0x0114}
0x269a…26ba Head {h00=0x001c, h01=0x0050, text=» CBNE INDEX,COB1,TABI910«, t00=0x0018, t01=0x012a}
0x26ba…26d2 Head {h00=0x0014, h01=0x0050, text=» SUB LENGTH,COB1«, t00=0x0018, t01=0x014a}
0x26d2…26e6 Head {h00=0x0010, h01=0x0050, text=» BNZ TABI915«, t00=0x0018, t01=0x0162}
0x26e6…2700 Head {h00=0x0016, h01=0x0050, text=» MOVE BUFIN,=C'1 '«, t00=0x0018, t01=0x0176}
0x2700…2710 Head {h00=0x000c, h01=0x0050, text=»TABI915 «, t00=0x0018, t01=0x0190}
0x2710…2740 Head {h00=0x002c, h01=0x0050, text=» MOVE SRLNBR(COB2),BUFIN CONVERT TO BCD «, t00=0x0019, t01=0x0010}
0x2740…2782 Head {h00=0x003e, h01=0x0050, text=» CBNG SRLNBR(COB2),=D'9999',TABI920 CHECK FOR VALID RANGE «, t00=0x0019, t01=0x0040}
0x2782…27b2 Head {h00=0x002c, h01=0x0050, text=» MOVE SRLNBR(COB2),=D'1' SET VALID VALUE«, t00=0x0019, t01=0x0082}
0x27b2…27c2 Head {h00=0x000c, h01=0x0050, text=»TABI920 «, t00=0x0019, t01=0x00b2}
0x27c2…2800 Head {h00=0x003a, h01=0x0050, text=» MOVE VARIOUS,=C'DAGENS DATO: (DDMM]]).............. '«, t00=0x0019, t01=0x00c2}
0x2800…281c Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0019, t01=0x0100}
0x281c…2830 Head {h00=0x0010, h01=0x0050, text=» PERF KBINP «, t00=0x0019, t01=0x011c}
0x2830…2846 Head {h00=0x0012, h01=0x0050, text=» BNOK TABI920 «, t00=0x0019, t01=0x0130}
0x2846…2866 Head {h00=0x001c, h01=0x0050, text=» CBNE INDEX,COB1,TABI920«, t00=0x0019, t01=0x0146}
0x2866…287e Head {h00=0x0014, h01=0x0050, text=» SUB LENGTH,COB1«, t00=0x0019, t01=0x0166}
0x287e…2892 Head {h00=0x0010, h01=0x0050, text=» BNZ TABI925«, t00=0x0019, t01=0x017e}
0x2892…28b0 (26, 0, 400) Head {h00=0x001a, h01=0x0050, text=» MOVE BUFIN,=C'150883'«, t00=0x001a, t01=0x0004}
0x28b0…28ca Head {h00=0x0016, h01=0x0050, text=» MOVE LENGTH,COB6 «, t00=0x001a, t01=0x0022}
0x28ca…28da Head {h00=0x000c, h01=0x0050, text=»TABI925 «, t00=0x001a, t01=0x003c}
0x28da…28fc Head {h00=0x001e, h01=0x0050, text=» CBNE LENGTH,COB6,TABI920 «, t00=0x001a, t01=0x004c}
0x28fc…2914 Head {h00=0x0014, h01=0x0050, text=» MOVE DATE,BUFIN«, t00=0x001a, t01=0x006e}
0x2914…2924 Head {h00=0x000c, h01=0x0050, text=»TABI930 «, t00=0x001a, t01=0x0086}
0x2924…2938 Head {h00=0x0010, h01=0x0050, text=» PERF SETKL «, t00=0x001a, t01=0x0096}
0x2938…2946 Head {h00=0x000a, h01=0x0050, text=»TAB940«, t00=0x001a, t01=0x00aa}
0x2946…297a Head {h00=0x0030, h01=0x0050, text=» MOVE VARIOUS,=C'L@PENR. UTTAK .......... ' «, t00=0x001a, t01=0x00b8}
0x297a…2996 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x001a, t01=0x00ec}
0x2996…29aa Head {h00=0x0010, h01=0x0050, text=» PERF KBINP «, t00=0x001a, t01=0x0108}
0x29aa…29be Head {h00=0x0010, h01=0x0050, text=» BNOK TAB940«, t00=0x001a, t01=0x011c}
0x29be…29de Head {h00=0x001c, h01=0x0050, text=» CBNE INDEX,COB1,TAB940 «, t00=0x001a, t01=0x0130}
0x29de…29f6 Head {h00=0x0014, h01=0x0050, text=» SUB LENGTH,COB1«, t00=0x001a, t01=0x0150}
0x29f6…2a08 Head {h00=0x000e, h01=0x0050, text=» BZ TAB940«, t00=0x001a, t01=0x0168}
0x2a08…2a28 Head {h00=0x001c, h01=0x0050, text=» MOVE SRLNBR(COB1),BUFIN«, t00=0x001a, t01=0x017a}
0x2a28…2a3c Head {h00=0x0010, h01=0x0050, text=» PERF SEDLER«, t00=0x001b, t01=0x000a}
0x2a3c…2a46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x001e}
0x2a46…2a62 Head {h00=0x0018, h01=0x0050, text=» MOVE VARIOUS,=C' ' «, t00=0x001b, t01=0x0028}
0x2a62…2a7e Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x001b, t01=0x0044}
0x2a7e…2a94 Head {h00=0x0012, h01=0x0050, text=» PERF CONVERT «, t00=0x001b, t01=0x0060}
0x2a94…2ac0 Head {h00=0x0028, h01=0x0050, text=» PERF CONDENS FIND THE REAL LENGTHS «, t00=0x001b, t01=0x0076}
0x2ac0…2ad6 Head {h00=0x0012, h01=0x0050, text=» CMP COB0,COB0«, t00=0x001b, t01=0x00a2}
0x2ad6…2ae2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001b, t01=0x00b8}
0x2ae2…2aec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00c4}
0x2aec…2afc Head {h00=0x000c, h01=0x0050, text=»TABI980 «, t00=0x001b, t01=0x00ce}
0x2afc…2b22 Head {h00=0x0022, h01=0x0050, text=» MOVE VARIOUS,=C'READ ERROR ' «, t00=0x001b, t01=0x00de}
0x2b22…2b3e Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x001b, t01=0x0104}
0x2b3e…2b6a Head {h00=0x0028, h01=0x0050, text=» PERF CLOSE,COB2 CLOSE CONSTANT FILE«, t00=0x001b, t01=0x0120}
0x2b6a…2b8e Head {h00=0x0020, h01=0x0050, text=» CMP COB0,COB1 SET CR TO NOK«, t00=0x001b, t01=0x014c}
0x2b8e…2b9a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001b, t01=0x0170}
0x2b9a…2ba4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x017c}
0x2ba4…2bb4 Head {h00=0x000c, h01=0x0050, text=»TABI990 «, t00=0x001b, t01=0x0186}
0x2bb4…2bd8 Head {h00=0x0020, h01=0x0050, text=» CMP COB0,COB1 SET CR TO NOK«, t00=0x001c, t01=0x0008}
0x2bd8…2be4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001c, t01=0x002c}
0x2be4…2bf2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001c, t01=0x0038}
0x2bf2…2c00 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0046}
0x2c00…2c12 Head {h00=0x000e, h01=0x0050, text=»SETKL PROC«, t00=0x001c, t01=0x0054}
0x2c12…2c20 Head {h00=0x000a, h01=0x0050, text=»SETKL0«, t00=0x001c, t01=0x0066}
0x2c20…2c56 Head {h00=0x0032, h01=0x0050, text=» MOVE VARIOUS,=C'HVA ER KLOKKEN? .......... ' «, t00=0x001c, t01=0x0074}
0x2c56…2c72 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x001c, t01=0x00aa}
0x2c72…2c86 Head {h00=0x0010, h01=0x0050, text=» PERF KBINP «, t00=0x001c, t01=0x00c6}
0x2c86…2c9a Head {h00=0x0010, h01=0x0050, text=» BNOK SETKL0«, t00=0x001c, t01=0x00da}
0x2c9a…2cba Head {h00=0x001c, h01=0x0050, text=» CBNE INDEX,COB1,SETKL0 «, t00=0x001c, t01=0x00ee}
0x2cba…2cd2 Head {h00=0x0014, h01=0x0050, text=» SUB LENGTH,COB1«, t00=0x001c, t01=0x010e}
0x2cd2…2cf2 Head {h00=0x001c, h01=0x0050, text=» CBNE LENGTH,COB4,SETKL0«, t00=0x001c, t01=0x0126}
0x2cf2…2d08 Head {h00=0x0012, h01=0x0050, text=» MOVE KL,BUFIN«, t00=0x001c, t01=0x0146}
0x2d08…2d14 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001c, t01=0x015c}
0x2d14…2d22 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001c, t01=0x0168}
0x2d22…2d2a Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x0176}
0x2d2a…2d32 Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x017e}
0x2d32…2d46 Head {h00=0x0010, h01=0x0050, text=»SEDLER PROC «, t00=0x001c, t01=0x0186}
0x2d46…2d54 Head {h00=0x000a, h01=0x0050, text=»SEDL00«, t00=0x001d, t01=0x000a}
0x2d54…2d92 Head {h00=0x003a, h01=0x0050, text=» MOVE VARIOUS,=C'BEL@BS[NDRING SKUFFE 1 (+/-) ..... ' «, t00=0x001d, t01=0x0018}
0x2d92…2dae Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x001d, t01=0x0056}
0x2dae…2dc2 Head {h00=0x0010, h01=0x0050, text=» PERF KBINP «, t00=0x001d, t01=0x0072}
0x2dc2…2dd6 Head {h00=0x0010, h01=0x0050, text=» BNOK SEDL00«, t00=0x001d, t01=0x0086}
0x2dd6…2df6 Head {h00=0x001c, h01=0x0050, text=» CBNE INDEX,COB1,SEDL00 «, t00=0x001d, t01=0x009a}
0x2df6…2e0e Head {h00=0x0014, h01=0x0050, text=» SUB LENGTH,COB1«, t00=0x001d, t01=0x00ba}
0x2e0e…2e36 Head {h00=0x0024, h01=0x0050, text=» BZ SEDL10 NO CHANGE IN DRAWER 1«, t00=0x001d, t01=0x00d2}
0x2e36…2e50 Head {h00=0x0016, h01=0x0050, text=» MOVE WKBCD1,BUFIN«, t00=0x001d, t01=0x00fa}
0x2e50…2e76 Head {h00=0x0022, h01=0x0050, text=» ADD BEHOLDN(COB1,COB1),WKBCD1«, t00=0x001d, t01=0x0114}
0x2e76…2e84 Head {h00=0x000a, h01=0x0050, text=»SEDL10«, t00=0x001d, t01=0x013a}
0x2e84…2ec0 Head {h00=0x0038, h01=0x0050, text=» MOVE VARIOUS,=C'BEL@PS[NDRING SKIFFE 2(+/-) ..... '«, t00=0x001d, t01=0x0148}
0x2ec0…2edc Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x001d, t01=0x0184}
0x2edc…2ef0 Head {h00=0x0010, h01=0x0050, text=» PERF KBINP «, t00=0x001e, t01=0x0010}
0x2ef0…2f04 Head {h00=0x0010, h01=0x0050, text=» BNOK SEDL10«, t00=0x001e, t01=0x0024}
0x2f04…2f24 Head {h00=0x001c, h01=0x0050, text=» CBNE INDEX,COB1,SEDL10 «, t00=0x001e, t01=0x0038}
0x2f24…2f3c Head {h00=0x0014, h01=0x0050, text=» SUB LENGTH,COB1«, t00=0x001e, t01=0x0058}
0x2f3c…2f64 Head {h00=0x0024, h01=0x0050, text=» BZ SEDL20 NO CHANGE IN DRAWER 2«, t00=0x001e, t01=0x0070}
0x2f64…2f7e Head {h00=0x0016, h01=0x0050, text=» MOVE WKBCD1,BUFIN«, t00=0x001e, t01=0x0098}
0x2f7e…2fa4 Head {h00=0x0022, h01=0x0050, text=» ADD BEHOLDN(COB2,COB1),WKBCD1«, t00=0x001e, t01=0x00b2}
0x2fa4…2fb2 Head {h00=0x000a, h01=0x0050, text=»SEDL20«, t00=0x001e, t01=0x00d8}
0x2fb2…2fbe Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001e, t01=0x00e6}
0x2fbe…2fcc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001e, t01=0x00f2}
0x2fcc…2fda Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0100}
0x2fda…2fee Head {h00=0x0010, h01=0x0050, text=»CONDENS PROC«, t00=0x001e, t01=0x010e}
0x2fee…2ff8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0122}
0x2ff8…303e Head {h00=0x0042, h01=0x0050, text=»* THE PROCEDURE CONVERTS THE CRUDE LENGTHS OF THE PRINTERDATA «, t00=0x001e, t01=0x012c}
0x303e…3086 Head {h00=0x0044, h01=0x0050, text=»* TO SOME MORE CIVILIZED ONES BY FINDING THE LAST USED CHARACTER«, t00=0x001e, t01=0x0172}
0x3086…30c6 Head {h00=0x003c, h01=0x0050, text=»* IN THE LINE. THIS IS ACCOMPLISHED BY A BACKWARD MATCH.«, t00=0x001f, t01=0x002a}
0x30c6…30d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x006a}
0x30d0…3102 Head {h00=0x002e, h01=0x0050, text=» MOVE BIN4,=W'30' NBR OF ELEMENTS IN PTAB «, t00=0x001f, t01=0x0074}
0x3102…3110 Head {h00=0x000a, h01=0x0050, text=»COND10«, t00=0x001f, t01=0x00a6}
0x3110…3148 Head {h00=0x0034, h01=0x0050, text=» CBE PLEN(BIN4,COB1),COB0,COND40 ELEMENT IN USE?«, t00=0x001f, t01=0x00b4}
0x3148…317c Head {h00=0x0030, h01=0x0050, text=» MOVE BIN6,PLEN(BIN4,COB1) MOVE CRUDE LENGTH«, t00=0x001f, t01=0x00ec}
0x317c…319a Head {h00=0x001a, h01=0x0050, text=» SUB BIN6,COB1 ADJUST «, t00=0x001f, t01=0x0120}
0x319a…31a8 Head {h00=0x000a, h01=0x0050, text=»COND20«, t00=0x001f, t01=0x013e}
0x31a8…31e4 Head {h00=0x0038, h01=0x0050, text=» XCOPY STAT,COB0,COB1,PTAB(BIN4),BIN6 RIGHTMOST CHR «, t00=0x001f, t01=0x014c}
0x31e4…3214 Head {h00=0x002c, h01=0x0050, text=» CBNE STAT,=C' ',COND30 NON-BLANK FOUND?«, t00=0x001f, t01=0x0188}
0x3214…323c Head {h00=0x0024, h01=0x0050, text=» SUB BIN6,COB1 NO, TRY NEXT BYTE«, t00=0x0020, t01=0x0028}
0x323c…3268 Head {h00=0x0028, h01=0x0050, text=» BNZ COND20 IF ANYTHING LEFT AT ALL «, t00=0x0020, t01=0x0050}
0x3268…3276 Head {h00=0x000a, h01=0x0050, text=»COND30«, t00=0x0020, t01=0x007c}
0x3276…329a Head {h00=0x0020, h01=0x0050, text=» ADD BIN6,COB1 ADJUST AGAIN «, t00=0x0020, t01=0x008a}
0x329a…32d0 Head {h00=0x0032, h01=0x0050, text=» MOVE PLEN(BIN4,COB1),BIN6 MOVE CLEANED LENGTH«, t00=0x0020, t01=0x00ae}
0x32d0…32de Head {h00=0x000a, h01=0x0050, text=»COND40«, t00=0x0020, t01=0x00e4}
0x32de…3308 Head {h00=0x0026, h01=0x0050, text=» SUB BIN4,COB1 TRY NEXT PRINTLINE «, t00=0x0020, t01=0x00f2}
0x3308…332c Head {h00=0x0020, h01=0x0050, text=» BP COND10 IF ANYTHING LEFT «, t00=0x0020, t01=0x011c}
0x332c…3336 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0140}
0x3336…3366 Head {h00=0x002c, h01=0x0050, text=» MOVE BIN4,COB10 NBR OF ELEMENTS IN PNAT«, t00=0x0020, t01=0x014a}
0x3366…3376 Head {h00=0x000c, h01=0x0050, text=»COND110 «, t00=0x0020, t01=0x017a}
0x3376…33b0 Head {h00=0x0036, h01=0x0050, text=» CBE PLEN(BIN4,COB2),COB0,COND140 ELEMENT IN USE? «, t00=0x0020, t01=0x018a}
0x33b0…33e4 Head {h00=0x0030, h01=0x0050, text=» MOVE BIN6,PLEN(BIN4,COB2) MOVE CRUDE LENGTH«, t00=0x0021, t01=0x0034}
0x33e4…3402 Head {h00=0x001a, h01=0x0050, text=» SUB BIN6,COB1 ADJUST «, t00=0x0021, t01=0x0068}
0x3402…3412 Head {h00=0x000c, h01=0x0050, text=»COND120 «, t00=0x0021, t01=0x0086}
0x3412…344e Head {h00=0x0038, h01=0x0050, text=» XCOPY STAT,COB0,COB1,PNAT(BIN4),BIN6 RIGHTMOST CHR «, t00=0x0021, t01=0x0096}
0x344e…347e Head {h00=0x002c, h01=0x0050, text=» CBNE STAT,=C' ',COND130 NON-BLANK FOUND«, t00=0x0021, t01=0x00d2}
0x347e…34a6 Head {h00=0x0024, h01=0x0050, text=» SUB BIN6,COB1 NO, TRY NEXT BYTE«, t00=0x0021, t01=0x0102}
0x34a6…34d2 Head {h00=0x0028, h01=0x0050, text=» BNZ COND120 IF ANYTHING LEFT AT ALL«, t00=0x0021, t01=0x012a}
0x34d2…34e2 Head {h00=0x000c, h01=0x0050, text=»COND130 «, t00=0x0021, t01=0x0156}
0x34e2…3504 Head {h00=0x001e, h01=0x0050, text=» ADD BIN6,COB1 ADJUST BACK«, t00=0x0021, t01=0x0166}
0x3504…353a Head {h00=0x0032, h01=0x0050, text=» MOVE PLEN(BIN4,COB2),BIN6 MOVE CLEANED LENGTH«, t00=0x0021, t01=0x0188}
0x353a…354a Head {h00=0x000c, h01=0x0050, text=»COND140 «, t00=0x0022, t01=0x002e}
0x354a…3574 Head {h00=0x0026, h01=0x0050, text=» SUB BIN4,COB1 TRY NEXT PRINTLINE «, t00=0x0022, t01=0x003e}
0x3574…359e Head {h00=0x0026, h01=0x0050, text=» BP COND110 IF THERE WAS MORE LEFT«, t00=0x0022, t01=0x0068}
0x359e…35a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0092}
0x35a8…35b4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0022, t01=0x009c}
0x35b4…35c2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0022, t01=0x00a8}
0x35c2…35d0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x00b6}
0x35d0…35e4 Head {h00=0x0010, h01=0x0050, text=»CONVERT PROC«, t00=0x0022, t01=0x00c4}
0x35e4…35ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00d8}
0x35ee…363a Head {h00=0x0048, h01=0x0050, text=»* THIS ROUTINE CONVERTS EVTL. SPECIAL CHARACTERS IN THE PRINTERDATA «, t00=0x0022, t01=0x00e2}
0x363a…366a Head {h00=0x002c, h01=0x0050, text=»* THE FOLLOWING CONVERSIONS TAKE PLACE: «, t00=0x0022, t01=0x012e}
0x366a…367e Head {h00=0x0010, h01=0x0050, text=»* # -> <LF> «, t00=0x0022, t01=0x015e}
0x367e…3692 Head {h00=0x0010, h01=0x0050, text=»* ! -> <FF> «, t00=0x0022, t01=0x0172}
0x3692…36a6 Head {h00=0x0010, h01=0x0050, text=»* " -> <SO> «, t00=0x0022, t01=0x0186}
0x36a6…36b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x000a}
0x36b0…36da Head {h00=0x0026, h01=0x0050, text=» MOVE BIN4,=W'30' NBR OF ELEMENTS «, t00=0x0023, t01=0x0014}
0x36da…36e8 Head {h00=0x000a, h01=0x0050, text=»CONV00«, t00=0x0023, t01=0x003e}
0x36e8…3714 Head {h00=0x0028, h01=0x0050, text=» MOVE COMB,=X'230A' HASH TO LINEFEED«, t00=0x0023, t01=0x004c}
0x3714…372e Head {h00=0x0016, h01=0x0050, text=» MOVE BIN5,=W'250'«, t00=0x0023, t01=0x0078}
0x372e…3746 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN6,COB0 «, t00=0x0023, t01=0x0092}
0x3746…3778 Head {h00=0x002e, h01=0x0050, text=» MATCH PTAB(BIN4),BIN6,BIN5,COMB,COB0,COB1«, t00=0x0023, t01=0x00aa}
0x3778…378c Head {h00=0x0010, h01=0x0050, text=» BNOK CONV20«, t00=0x0023, t01=0x00dc}
0x378c…37b8 Head {h00=0x0028, h01=0x0050, text=» COPY PTAB(BIN4),BIN6,COB1,COMB,COB1«, t00=0x0023, t01=0x00f0}
0x37b8…37de Head {h00=0x0022, h01=0x0050, text=» B CONV00 THERE MIGHT BE MORE «, t00=0x0023, t01=0x011c}
0x37de…37ec Head {h00=0x000a, h01=0x0050, text=»CONV20«, t00=0x0023, t01=0x0142}
0x37ec…381e Head {h00=0x002e, h01=0x0050, text=» MOVE COMB,=X'210C' EXCL.MARK TO FORMFEED «, t00=0x0023, t01=0x0150}
0x381e…3838 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN5,=W'250'«, t00=0x0023, t01=0x0182}
0x3838…3850 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN6,COB0 «, t00=0x0024, t01=0x000c}
0x3850…3882 Head {h00=0x002e, h01=0x0050, text=» MATCH PTAB(BIN4),BIN6,BIN5,COMB,COB0,COB1«, t00=0x0024, t01=0x0024}
0x3882…3896 Head {h00=0x0010, h01=0x0050, text=» BNOK CONV40«, t00=0x0024, t01=0x0056}
0x3896…38c2 Head {h00=0x0028, h01=0x0050, text=» COPY PTAB(BIN4),BIN6,COB1,COMB,COB1«, t00=0x0024, t01=0x006a}
0x38c2…38d4 Head {h00=0x000e, h01=0x0050, text=» B CONV20 «, t00=0x0024, t01=0x0096}
0x38d4…38e2 Head {h00=0x000a, h01=0x0050, text=»CONV40«, t00=0x0024, t01=0x00a8}
0x38e2…3916 Head {h00=0x0030, h01=0x0050, text=» MOVE COMB,=X'220E' DOUBLE QUOTE TO SHIFTOUT«, t00=0x0024, t01=0x00b6}
0x3916…3930 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN5,=W'250'«, t00=0x0024, t01=0x00ea}
0x3930…3948 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN6,COB0 «, t00=0x0024, t01=0x0104}
0x3948…397a Head {h00=0x002e, h01=0x0050, text=» MATCH PTAB(BIN4),BIN6,BIN5,COMB,COB0,COB1«, t00=0x0024, t01=0x011c}
0x397a…398e Head {h00=0x0010, h01=0x0050, text=» BNOK CONV60«, t00=0x0024, t01=0x014e}
0x398e…39ba Head {h00=0x0028, h01=0x0050, text=» COPY PTAB(BIN4),BIN6,COB1,COMB,COB1«, t00=0x0024, t01=0x0162}
0x39ba…39cc Head {h00=0x000e, h01=0x0050, text=» B CONV40 «, t00=0x0024, t01=0x018e}
0x39cc…39da Head {h00=0x000a, h01=0x0050, text=»CONV60«, t00=0x0025, t01=0x0010}
0x39da…39f0 Head {h00=0x0012, h01=0x0050, text=» SUB BIN4,COB1«, t00=0x0025, t01=0x001e}
0x39f0…3a02 Head {h00=0x000e, h01=0x0050, text=» BP CONV00«, t00=0x0025, t01=0x0034}
0x3a02…3a0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0046}
0x3a0c…3a40 Head {h00=0x0030, h01=0x0050, text=» MOVE BIN4,=W'10' NUMBER OF ELEMENTS IN PNAT«, t00=0x0025, t01=0x0050}
0x3a40…3a50 Head {h00=0x000c, h01=0x0050, text=»CONV100 «, t00=0x0025, t01=0x0084}
0x3a50…3a6a Head {h00=0x0016, h01=0x0050, text=» MOVE BIN5,=W'250'«, t00=0x0025, t01=0x0094}
0x3a6a…3a82 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN6,COB0 «, t00=0x0025, t01=0x00ae}
0x3a82…3a9e Head {h00=0x0018, h01=0x0050, text=» MOVE COMB,=X'230A' «, t00=0x0025, t01=0x00c6}
0x3a9e…3ad0 Head {h00=0x002e, h01=0x0050, text=» MATCH PNAT(BIN4),BIN6,BIN5,COMB,COB0,COB1«, t00=0x0025, t01=0x00e2}
0x3ad0…3ae6 Head {h00=0x0012, h01=0x0050, text=» BNOK CONV120 «, t00=0x0025, t01=0x0114}
0x3ae6…3b12 Head {h00=0x0028, h01=0x0050, text=» COPY PNAT(BIN4),BIN6,COB1,COMB,COB1«, t00=0x0025, t01=0x012a}
0x3b12…3b24 Head {h00=0x000e, h01=0x0050, text=» B CONV100«, t00=0x0025, t01=0x0156}
0x3b24…3b34 Head {h00=0x000c, h01=0x0050, text=»CONV120 «, t00=0x0025, t01=0x0168}
0x3b34…3b50 Head {h00=0x0018, h01=0x0050, text=» MOVE COMB,=X'210C' «, t00=0x0025, t01=0x0178}
0x3b50…3b6a (38, 0, 398) Head {h00=0x0016, h01=0x0050, text=» MOVE BIN5,=W'250'«, t00=0x0026, t01=0x0004}
0x3b6a…3b82 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN6,COB0 «, t00=0x0026, t01=0x001e}
0x3b82…3bb4 Head {h00=0x002e, h01=0x0050, text=» MATCH PNAT(BIN4),BIN6,BIN5,COMB,COB0,COB1«, t00=0x0026, t01=0x0036}
0x3bb4…3bca Head {h00=0x0012, h01=0x0050, text=» BNOK CONV140 «, t00=0x0026, t01=0x0068}
0x3bca…3bf6 Head {h00=0x0028, h01=0x0050, text=» COPY PNAT(BIN4),BIN6,COB1,COMB,COB1«, t00=0x0026, t01=0x007e}
0x3bf6…3c08 Head {h00=0x000e, h01=0x0050, text=» B CONV120«, t00=0x0026, t01=0x00aa}
0x3c08…3c10 Head {h00=0x0004, h01=0x0050, t00=0x0026, t01=0x00bc}
0x3c10…3c20 Head {h00=0x000c, h01=0x0050, text=»CONV140 «, t00=0x0026, t01=0x00c4}
0x3c20…3c3c Head {h00=0x0018, h01=0x0050, text=» MOVE COMB,=X'220E' «, t00=0x0026, t01=0x00d4}
0x3c3c…3c56 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN5,=W'250'«, t00=0x0026, t01=0x00f0}
0x3c56…3c6e Head {h00=0x0014, h01=0x0050, text=» MOVE BIN6,COB0 «, t00=0x0026, t01=0x010a}
0x3c6e…3ca0 Head {h00=0x002e, h01=0x0050, text=» MATCH PNAT(BIN4),BIN6,BIN5,COMB,COB0,COB1«, t00=0x0026, t01=0x0122}
0x3ca0…3cb6 Head {h00=0x0012, h01=0x0050, text=» BNOK CONV160 «, t00=0x0026, t01=0x0154}
0x3cb6…3ce2 Head {h00=0x0028, h01=0x0050, text=» COPY PNAT(BIN4),BIN6,COB1,COMB,COB1«, t00=0x0026, t01=0x016a}
0x3ce2…3cf4 Head {h00=0x000e, h01=0x0050, text=» B CONV140«, t00=0x0027, t01=0x0008}
0x3cf4…3d04 Head {h00=0x000c, h01=0x0050, text=»CONV160 «, t00=0x0027, t01=0x001a}
0x3d04…3d1a Head {h00=0x0012, h01=0x0050, text=» SUB BIN4,COB1«, t00=0x0027, t01=0x002a}
0x3d1a…3d2e Head {h00=0x0010, h01=0x0050, text=» BP CONV100 «, t00=0x0027, t01=0x0040}
0x3d2e…3d38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0054}
0x3d38…3d4e Head {h00=0x0012, h01=0x0050, text=» CMP COB0,COB0«, t00=0x0027, t01=0x005e}
0x3d4e…3d5a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0027, t01=0x0074}
0x3d5a…3d68 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0027, t01=0x0080}
0x3d68…3d76 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x008e}
0x3d76…3d8a Head {h00=0x0010, h01=0x0050, text=»RDNEXT PROC «, t00=0x0027, t01=0x009c}
0x3d8a…3db6 Head {h00=0x0028, h01=0x0050, text=» ADD RECNO,COB1 POINT TO NEXT RECORD«, t00=0x0027, t01=0x00b0}
0x3db6…3de0 Head {h00=0x0026, h01=0x0050, text=» PERF READ,COB1,FDBUF,RECNO,STATUS«, t00=0x0027, t01=0x00dc}
0x3de0…3df4 Head {h00=0x0010, h01=0x0050, text=» BNOK RDN300«, t00=0x0027, t01=0x0106}
0x3df4…3dfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x011a}
0x3dfe…3e3e Head {h00=0x003c, h01=0x0050, text=» XCOPY FDLBUF,DISPL,RECLEN,FDBUF,COB0 CONCATENATE BUFFER«, t00=0x0027, t01=0x0124}
0x3e3e…3e6e Head {h00=0x002c, h01=0x0050, text=» ADD DISPL,RECLEN PREPARE FOR NEXT READ «, t00=0x0027, t01=0x0164}
0x3e6e…3ea2 (40, 0, 398) Head {h00=0x0030, h01=0x0050, text=» MOVE WKSTR6,=X'1C0100000A' <FS>!<:256>!<*A>«, t00=0x0028, t01=0x0004}
0x3ea2…3eca Head {h00=0x0024, h01=0x0050, text=» MOVE WKB1,COB0 STARTPOINT MATCH«, t00=0x0028, t01=0x0038}
0x3eca…3ef4 Head {h00=0x0026, h01=0x0050, text=» MOVE WKBIN1,=W'384' BUFFER LENGTH«, t00=0x0028, t01=0x0060}
0x3ef4…3f36 Head {h00=0x003e, h01=0x0050, text=» MATCH FDLBUF,WKB1,WKBIN1,WKSTR6,COB0,COB5 SEARCH FOR EOF «, t00=0x0028, t01=0x008a}
0x3f36…3f54 Head {h00=0x001a, h01=0x0050, text=» BNOK RDN200 NOT FOUND«, t00=0x0028, t01=0x00cc}
0x3f54…3f78 Head {h00=0x0020, h01=0x0050, text=» SET EOF EOF FOUND, SET FLAG«, t00=0x0028, t01=0x00ea}
0x3f78…3f86 Head {h00=0x000a, h01=0x0050, text=»RDN200«, t00=0x0028, t01=0x010e}
0x3f86…3f9c Head {h00=0x0012, h01=0x0050, text=» CMP COB0,COB0«, t00=0x0028, t01=0x011c}
0x3f9c…3faa Head {h00=0x000a, h01=0x0050, text=»RDN300«, t00=0x0028, t01=0x0132}
0x3faa…3fb6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0028, t01=0x0140}
0x3fb6…3fc4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0028, t01=0x014c}
0x3fc4…3fd6 Head {h00=0x000e, h01=0x0050, text=»BUNT PROC «, t00=0x0028, t01=0x015a}
0x3fd6…3fe2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0028, t01=0x016c}
0x3fe2…3ff0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0028, t01=0x0178}
0x3ff0…3ff8 Head {h00=0x0004, h01=0x0050, t00=0x0028, t01=0x0186}
0x3ff8…4000 Head {h00=0x0004, h01=0x0050, t00=0x0028, t01=0x018e}
0x4000…4010 Head {h00=0x000c, h01=0x0050, text=»LUK PROC«, t00=0x0029, t01=0x0008}
0x4010…401c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0029, t01=0x0018}
0x401c…402a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0029, t01=0x0024}
0x402a…4038 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x0032}
0x4038…404c Head {h00=0x0010, h01=0x0050, text=»VARIUS FRMT «, t00=0x0029, t01=0x0040}
0x404c…4060 Head {h00=0x0010, h01=0x0050, text=» FCOPY ='22'«, t00=0x0029, t01=0x0054}
0x4060…4076 Head {h00=0x0012, h01=0x0050, text=» FCOPY VARIOUS«, t00=0x0029, t01=0x0068}
0x4076…4084 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0029, t01=0x007e}
0x4084…408c Head {h00=0x0004, h01=0x0050, t00=0x0029, t01=0x008c}
0x408c…409e Head {h00=0x000e, h01=0x0050, text=»WRONG FRMT«, t00=0x0029, t01=0x0094}
0x409e…40b2 Head {h00=0x0010, h01=0x0050, text=» FCOPY ='++'«, t00=0x0029, t01=0x00a6}
0x40b2…40cc Head {h00=0x0016, h01=0x0050, text=» FCOPY ='REJECTED'«, t00=0x0029, t01=0x00ba}
0x40cc…40d8 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0029, t01=0x00d4}
0x40d8…40ee Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',30 «, t00=0x0029, t01=0x00e0}
0x40ee…4104 Head {h00=0x0012, h01=0x0050, text=» FCOPY =': ' «, t00=0x0029, t01=0x00f6}
0x4104…4112 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0029, t01=0x010c}
0x4112…411a Head {h00=0x0004, h01=0x0050, t00=0x0029, t01=0x011a}
0x411a…412c Head {h00=0x000e, h01=0x0050, text=»MODIF FRMT«, t00=0x0029, t01=0x0122}
0x412c…4144 Head {h00=0x0014, h01=0x0050, text=» FMEL '9',WKBCD1«, t00=0x0029, t01=0x0134}
0x4144…4152 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0029, t01=0x014c}
0x4152…415a Head {h00=0x0004, h01=0x0050, t00=0x0029, t01=0x015a}
0x415a…416a Head {h00=0x000c, h01=0x0050, text=»INF FRMT«, t00=0x0029, t01=0x0162}
0x416a…4180 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'22' «, t00=0x0029, t01=0x0172}
0x4180…4194 Head {h00=0x0010, h01=0x0050, text=» FCOPY INFO «, t00=0x0029, t01=0x0188}
0x4194…41a2 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x002a, t01=0x000c}
0x41a2…41aa Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x001a}
0x41aa…41b6 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x002a, t01=0x0022}
0x41b6…41ba Head {h00=0x4004, h01=0x0000}
0x41ba…41be 00 2a 00 2e ┆ * .┆
0x41be…41c6 (43, 1, 8) 20 04 00 00 00 2b 00 04 ┆ + ┆
0x41c6…4216 (44, 0, 400) 20 20 4e 45 57 41 44 32 3d 20 4e 45 57 20 57 2e 42 2e 2d 41 44 44 52 45 53 53 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 01 0b 01 86 00 36 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 54 41 44 49 53 50 3d 44 49 53 50 4c 41 43 45 4d 45 4e 54 20 ┆ NEWAD2= NEW W.B.-ADDRESS ** 6 P** TADISP=DISPLACEMENT ┆
0x4216…4266 54 4f 20 57 42 2d 41 44 44 52 20 20 20 20 20 2a 2a 20 01 0c 00 30 00 36 00 50 2a 2a 20 20 57 4f 52 4b 2e 52 45 47 53 3a 20 41 31 2c 41 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 01 0c 00 6a ┆TO WB-ADDR ** 0 6 P** WORK.REGS: A1,A2 ** j┆
0x4266…42b6 00 36 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 01 0c 00 a4 00 08 00 50 5c 5c 5c 20 01 0c 00 de 00 10 00 50 43 48 41 44 52 5c ┆ 6 P************************************************* P PCHADR ┆
0x42b6…4306 45 51 55 5c 2a 20 01 0c 00 ea 00 12 00 50 5c 49 46 54 20 4d 4d 55 50 41 47 3d 30 20 01 0c 00 fe 00 1c 00 50 5c 4c 44 52 2a 5c 41 31 2c 41 36 5c 54 3a 41 2d 41 44 44 52 45 53 53 20 01 0c 01 14 00 32 00 50 5c 41 44 5c 41 31 2c 54 41 44 49 53 ┆EQU * P IFT MMUPAG=0 P LDR* A1,A6 T:A-ADDRESS 2 P AD A1,TADIS┆
0x4306…4356 50 2b 53 54 4b 45 4e 44 5c 41 44 44 52 45 53 53 20 20 54 4f 20 57 2e 42 2e 2d 41 44 44 52 45 53 53 20 01 0c 01 34 00 18 00 50 5c 4c 44 5c 41 32 2c 4e 45 57 41 44 32 2b 53 54 4b 45 4e 44 01 0c 01 6a 00 0e 00 50 5c 53 54 52 5c 41 32 2c 41 31 ┆P+STKEND ADDRESS TO W.B.-ADDRESS 4 P LD A2,NEWAD2+STKEND j P STR A2,A1┆