|
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: 7766 (0x1e56)
Notes: pts_type(SC)
Names: »SPCHK.SC«
└─⟦22f4dea89⟧ Bits:30009702 Philips computer tape "DOS_PTS_4.2_M_FL"
└─⟦this⟧ »NJ-AMT/SPCHK.SC«
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
└─⟦this⟧ »NJ-AMT/SPCHK.SC«
IDENT SPCHK 830110 NJ DDUM KMD08 PDIV ENTRY SPCHK1 ENTRY SPCHK2 ENTRY SPCHK3 ENTRY SPCHK4 ENTRY SPCHK5 ENTRY SPCHK6 ENTRY SPCHK7 ENTRY SPTCHK EXT CHDATO EXT XCOP EXT YYMMDD EXT PACKCL EXT CRKJ EXT KKCH EXT KTPLAN INCLUDE EQUATE STANDARD CHECKS * SPCHK1 PROC ******************** * * SPCHK1 - CDVCHECK * * PERFORMS CHECKDIGIT CHECK ON VALUE IN SPINPUT * IF ERROR, ERRORCODE 6 IS MOVED TO SPBINW4 * ******************** MOVE SPBINW3,CBIN1 INITIAL ERRORCODE MOVE GSWBIN1,SPBINW1 GET LENGTH CBL GSWBIN1,=W'3',CHK1RET FOR LENGTH < 3, NO CHECK CBL GSWBIN1,=W'7',CHK1ER IF 2<LENGTH<7, ERROR CBE GSWBIN1,=W'7',CHK10 IF LENGTH = 7, OK (CIRNR) CBNE GSWBIN1,=W'10',CHK1ER IF LENGTH = 10, OK (CPRNR) CHK10 MOVE GSWBIN2,=W'13' MOVE GSWBCD5,=D'0' MOVE GSWBCD6,SPINPUT GET ITEM TO BE CHECKED TBT GTADMFLG,CHK11 CBE GSWBCD6,=D'0',CHK1ER CHK11 MOVE GSWBCD3,=D'1' BLANK GSWBCD3 COPY GSWBCD3,CBIN5,CBIN1,GSWBCD6,GSWBIN2 GET NEXT DIGIT MUL GSWBCD3,WEIGTH1(GSWBIN2) MULTIPLY WITH WEIGTH ADD GSWBCD5,GSWBCD3 ADD TO OLD SUM SUB GSWBIN2,=W'1' ADJUST WEIGHT INDEX SUB GSWBIN1,=W'1' ADJUST LENGTH OF ITEM CBNE GSWBIN1,=W'0',CHK11 BACK TO NEXT DIGIT MOVE GSWBCD4,GSWBCD5 DIV GSWBCD5,=D'11' DIVIDE BY 11 MUL GSWBCD5,=D'11' MULTIPLY WITH 11 SUB GSWBCD4,GSWBCD5 GET REMAINDER MOD 11 CBE GSWBCD4,=D'0',CHK1RET IF REMAINDER 0, THEN RETURN * CHK1ER MOVE SPBINW4,=W'6' MOVE SPBINW3,CBIN3 SET ERROR VALUE * CHK1RET RET PEND EJECT SPCHK2 PROC ******************** * * SPCHK2 - CHECK DATE * * CHECKS 0<DAY<32 AND 0<MONTH<13 * DATE IS IN THE FORM DDMMYY * INPUT FIELD: SPINPUT * * IF ERROR, ERRORCODE 7 IS MOVED TO SPBINW4 * ******************** MOVE SPBINW3,CBIN1 INITIAL ERRORCODE MOVE GSWBCD3,=D'1' BLANK GSWBCD3 MOVE GSWBCD6,SPINPUT GET DATE MOVE GSWBIN2,=W'10' SET POINTER TO MONTH COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,GSWBIN2 GET MONTH CBG GSWBCD3,=D'12',CH29 CHECK MONTH CBL GSWBCD3,=D'1',CH29 SUB GSWBIN2,=W'2' ADJUST POINTER TO DAY COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,GSWBIN2 GET DAY CBG GSWBCD3,=D'31',CH29 CBL GSWBCD3,=D'1',CH29 B CH2RET CH29 MOVE SPBINW3,CBIN3 INDICATE ERROR MOVE SPBINW4,=W'7' SET ERRORCODE CH2RET MOVE GSWBCD3,=X'FF' RET PEND EJECT SPCHK3 PROC **************** * * SPCHK3 - CHECK MONTH * * CHECKS 0<MONTH<13 * MONTH IS IN THE FORM MM * INPUT FIELD: SPINPUT * * IF ERROR, ERRORCODE 7 IS MOVED TO SPBINW4 * ****************** MOVE GSWBCD3,SPINPUT GET MONTH CBG GSWBCD3,=D'12',CH39 CHECK MONTH CBL GSWBCD3,=D'1',CH39 MOVE SPBINW3,CBIN1 SET ERRORCODE OK B CH3RET CH39 MOVE SPBINW3,CBIN3 INDICATE ERROR MOVE SPBINW4,=W'7' SET ERRORCODE CH3RET RET PEND EJECT SPCHK4 PROC ******************** * * SPCHK4 - CHANGE SIGN ON VALUE, IF KREDIT KEY * ******************** MOVE SPBINW3,CBIN1 CBNE SPBINW2,=W'18',CH4RET MOVE GSWBCD7,SPINPUT IF KREDIT KEY MUL GSWBCD7,=D'-1' MOVE SPINPUT,GSWBCD7 MOVE SPBINW2,=W'3' SIMULATE EOI-KEY CH4RET RET PEND EJECT SPCHK5 PROC ******************** * * SPCHK5 - CHECK LINE NUMBER * ******************* MOVE SPBINW3,CBIN1 MOVE GSWBCD3,SPINPUT GET LINE NUMBER CBG GSWBCD3,=D'96',CH510 SPECIAL FUNCTIONS ? CBE GSWBCD3,=D'91',CH510 MUL GSWBCD3,=D'2' MOVE GSWBCD4,CVOUTOP GET NO OF LINES/PAGE SUB GSWBCD4,GSWBCD3 CBL GSWBCD4,=D'0',CH5ERR LINE NEGATIVE? MOVE GSWBIN1,GSWBCD4 CBG GSWBIN1,CMAXLIN,CH5ERR CBL GSWBIN1,CMINLIN,CH5ERR RET CH5ERR MOVE SPBINW3,CBIN3 MOVE SPBINW4,=W'8' RET CH510 MOVE GSWBIN1,GSWBCD3 RET PEND EJECT SPCHK6 PROC ******************** * * SPCHK6 - CHECK THE SPCHK6 - CHECKDIGIT IN LINE NO, * KONTOKORT * ******************* PERF KKCH MOVE GSWBCD3,SPINPUT GET DIGIT MOVE SPBINW3,CBIN1 CBE GSWBCD3,=D'0',CH6RET NO CHECK IF ZERO CBE GSWBCD3,TTKTCHK,CH6RET OK MOVE SPBINW3,CBIN3 ERROR MOVE SPBINW4,=W'13' CH6RET RET PEND EJECT SPCHK7 PROC RET PEND EJECT SPTCHK PROC ******************** * * SPTCHK - CONDITIONAL TABULATION * CONTROLLED BY 'CTAB' IN FORMATS * ******************** GETCTL 0,SPBINW3 GET APPL-VALUE CBE SPBINW3,=W'84',TCHK84 SUB SPBINW3,=W'16' ADJUST INDEX IB SPBINW3, C TCHK17,TCHK18,TCHK19,TCHK20 SUB SPBINW3,=W'61' +16-77 IB SPBINW3,TCHK78,TCHK79 TCHK00 CORRECT FIELD MOVE SPBINW3,CBIN0 RET * TCHK17 TBT BCPR,TCHK00 B TCHK99 * TCHK18 TCHK19 TCHK20 TBF BCPR,TCHK00 B TCHK99 * TCHK78 MOVE SPBINW3,TTCNTNR SUB SPBINW3,=W'100' CBG SPBINW3,CTR12(GTUWB,CBIN2),TCHK00 CONTINUE TAB B TCHK99 CORRECT FIELD * TCHK79 MOVE SPBINW3,TTCNTNR SUB SPBINW3,=W'100' CBG SPBINW3,CTR12(GTUWB,CBIN2),TCHK99 CORRECT FIELD B TCHK00 CONTINUE TAB * TCHK84 TBF GTTRSEL,TCHK00 B TCHK99 * TCHK99 CONTINUE TAB MOVE SPBINW3,CBIN2 RET PEND END
0x0000…001e (0, 0, 398) Head {h00=0x001a, h01=0x0050, text=» IDENT SPCHK 830110 NJ«, t00=0x0000, t01=0x0004}
0x001e…0032 Head {h00=0x0010, h01=0x0050, text=» DDUM KMD08 «, t00=0x0000, t01=0x0022}
0x0032…0040 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0036}
0x0040…0056 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK1 «, t00=0x0000, t01=0x0044}
0x0056…006c Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK2 «, t00=0x0000, t01=0x005a}
0x006c…0082 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK3 «, t00=0x0000, t01=0x0070}
0x0082…0098 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK4 «, t00=0x0000, t01=0x0086}
0x0098…00ae Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK5 «, t00=0x0000, t01=0x009c}
0x00ae…00c4 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK6 «, t00=0x0000, t01=0x00b2}
0x00c4…00da Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK7 «, t00=0x0000, t01=0x00c8}
0x00da…00f0 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPTCHK «, t00=0x0000, t01=0x00de}
0x00f0…0104 Head {h00=0x0010, h01=0x0050, text=» EXT CHDATO «, t00=0x0000, t01=0x00f4}
0x0104…0116 Head {h00=0x000e, h01=0x0050, text=» EXT XCOP «, t00=0x0000, t01=0x0108}
0x0116…012a Head {h00=0x0010, h01=0x0050, text=» EXT YYMMDD «, t00=0x0000, t01=0x011a}
0x012a…013e Head {h00=0x0010, h01=0x0050, text=» EXT PACKCL «, t00=0x0000, t01=0x012e}
0x013e…0150 Head {h00=0x000e, h01=0x0050, text=» EXT CRKJ «, t00=0x0000, t01=0x0142}
0x0150…0162 Head {h00=0x000e, h01=0x0050, text=» EXT KKCH «, t00=0x0000, t01=0x0154}
0x0162…0176 Head {h00=0x0010, h01=0x0050, text=» EXT KTPLAN «, t00=0x0000, t01=0x0166}
0x0176…018e Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0000, t01=0x017a}
0x018e…01a8 (1, 0, 400) Head {h00=0x0016, h01=0x0050, text=» STANDARD CHECKS«, t00=0x0001, t01=0x0004}
0x01a8…01b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x001e}
0x01b2…01c6 Head {h00=0x0010, h01=0x0050, text=»SPCHK1 PROC «, t00=0x0001, t01=0x0028}
0x01c6…01e2 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0001, t01=0x003c}
0x01e2…01ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0058}
0x01ec…0210 Head {h00=0x0020, h01=0x0050, text=»* SPCHK1 - CDVCHECK«, t00=0x0001, t01=0x0062}
0x0210…021a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0086}
0x021a…025a Head {h00=0x003c, h01=0x0050, text=»* PERFORMS CHECKDIGIT CHECK ON VALUE IN SPINPUT«, t00=0x0001, t01=0x0090}
0x025a…0296 Head {h00=0x0038, h01=0x0050, text=»* IF ERROR, ERRORCODE 6 IS MOVED TO SPBINW4«, t00=0x0001, t01=0x00d0}
0x0296…02a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x010c}
0x02a0…02bc Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0001, t01=0x0116}
0x02bc…02ea Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW3,CBIN1 INITIAL ERRORCODE «, t00=0x0001, t01=0x0132}
0x02ea…0312 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN1,SPBINW1 GET LENGTH«, t00=0x0001, t01=0x0160}
0x0312…034e Head {h00=0x0038, h01=0x0050, text=» CBL GSWBIN1,=W'3',CHK1RET FOR LENGTH < 3, NO CHECK «, t00=0x0001, t01=0x0188}
0x034e…0384 Head {h00=0x0032, h01=0x0050, text=» CBL GSWBIN1,=W'7',CHK1ER IF 2<LENGTH<7, ERROR«, t00=0x0002, t01=0x0034}
0x0384…03c0 Head {h00=0x0038, h01=0x0050, text=» CBE GSWBIN1,=W'7',CHK10 IF LENGTH = 7, OK (CIRNR) «, t00=0x0002, t01=0x006a}
0x03c0…0400 Head {h00=0x003c, h01=0x0050, text=» CBNE GSWBIN1,=W'10',CHK1ER IF LENGTH = 10, OK (CPRNR)«, t00=0x0002, t01=0x00a6}
0x0400…040e Head {h00=0x000a, h01=0x0050, text=»CHK10 «, t00=0x0002, t01=0x00e6}
0x040e…042a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,=W'13'«, t00=0x0002, t01=0x00f4}
0x042a…0446 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'0' «, t00=0x0002, t01=0x0110}
0x0446…047a Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT GET ITEM TO BE CHECKED«, t00=0x0002, t01=0x012c}
0x047a…0496 Head {h00=0x0018, h01=0x0050, text=» TBT GTADMFLG,CHK11 «, t00=0x0002, t01=0x0160}
0x0496…04b8 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD6,=D'0',CHK1ER «, t00=0x0002, t01=0x017c}
0x04b8…04c0 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x000e}
0x04c0…04ee Head {h00=0x002a, h01=0x0050, text=»CHK11 MOVE GSWBCD3,=D'1' BLANK GSWBCD3«, t00=0x0003, t01=0x0016}
0x04ee…052e Head {h00=0x003c, h01=0x0050, text=» COPY GSWBCD3,CBIN5,CBIN1,GSWBCD6,GSWBIN2 GET NEXT DIGIT«, t00=0x0003, t01=0x0044}
0x052e…0568 Head {h00=0x0036, h01=0x0050, text=» MUL GSWBCD3,WEIGTH1(GSWBIN2) MULTIPLY WITH WEIGTH«, t00=0x0003, t01=0x0084}
0x0568…0594 Head {h00=0x0028, h01=0x0050, text=» ADD GSWBCD5,GSWBCD3 ADD TO OLD SUM «, t00=0x0003, t01=0x00be}
0x0594…05c2 Head {h00=0x002a, h01=0x0050, text=» SUB GSWBIN2,=W'1' ADJUST WEIGHT INDEX«, t00=0x0003, t01=0x00ea}
0x05c2…05f2 Head {h00=0x002c, h01=0x0050, text=» SUB GSWBIN1,=W'1' ADJUST LENGTH OF ITEM«, t00=0x0003, t01=0x0118}
0x05f2…0626 Head {h00=0x0030, h01=0x0050, text=» CBNE GSWBIN1,=W'0',CHK11 BACK TO NEXT DIGIT«, t00=0x0003, t01=0x0148}
0x0626…0644 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD4,GSWBCD5 «, t00=0x0003, t01=0x017c}
0x0644…066c Head {h00=0x0024, h01=0x0050, text=» DIV GSWBCD5,=D'11' DIVIDE BY 11«, t00=0x0004, t01=0x000a}
0x066c…0698 Head {h00=0x0028, h01=0x0050, text=» MUL GSWBCD5,=D'11' MULTIPLY WITH 11«, t00=0x0004, t01=0x0032}
0x0698…06ca Head {h00=0x002e, h01=0x0050, text=» SUB GSWBCD4,GSWBCD5 GET REMAINDER MOD 11 «, t00=0x0004, t01=0x005e}
0x06ca…0708 Head {h00=0x003a, h01=0x0050, text=» CBE GSWBCD4,=D'0',CHK1RET IF REMAINDER 0, THEN RETURN«, t00=0x0004, t01=0x0090}
0x0708…0712 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ce}
0x0712…0720 Head {h00=0x000a, h01=0x0050, text=»CHK1ER«, t00=0x0004, t01=0x00d8}
0x0720…073c Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'6' «, t00=0x0004, t01=0x00e6}
0x073c…0768 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,CBIN3 SET ERROR VALUE «, t00=0x0004, t01=0x0102}
0x0768…0772 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x012e}
0x0772…0782 Head {h00=0x000c, h01=0x0050, text=»CHK1RET «, t00=0x0004, t01=0x0138}
0x0782…078e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0004, t01=0x0148}
0x078e…079c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0004, t01=0x0154}
0x079c…07aa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0162}
0x07aa…07be Head {h00=0x0010, h01=0x0050, text=»SPCHK2 PROC «, t00=0x0004, t01=0x0170}
0x07be…07da Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0004, t01=0x0184}
0x07da…07e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0010}
0x07e4…080a Head {h00=0x0022, h01=0x0050, text=»* SPCHK2 - CHECK DATE«, t00=0x0005, t01=0x001a}
0x080a…0814 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0040}
0x0814…0848 Head {h00=0x0030, h01=0x0050, text=»* CHECKS 0<DAY<32 AND 0<MONTH<13«, t00=0x0005, t01=0x004a}
0x0848…0876 Head {h00=0x002a, h01=0x0050, text=»* DATE IS IN THE FORM DDMMYY«, t00=0x0005, t01=0x007e}
0x0876…089e Head {h00=0x0024, h01=0x0050, text=»* INPUT FIELD: SPINPUT «, t00=0x0005, t01=0x00ac}
0x089e…08a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00d4}
0x08a8…08e4 Head {h00=0x0038, h01=0x0050, text=»* IF ERROR, ERRORCODE 7 IS MOVED TO SPBINW4«, t00=0x0005, t01=0x00de}
0x08e4…08ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x011a}
0x08ee…090a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0005, t01=0x0124}
0x090a…0912 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0140}
0x0912…0940 Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW3,CBIN1 INITIAL ERRORCODE «, t00=0x0005, t01=0x0148}
0x0940…096a Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD3,=D'1' BLANK GSWBCD3 «, t00=0x0005, t01=0x0176}
0x096a…0990 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT GET DATE«, t00=0x0006, t01=0x0010}
0x0990…09c2 Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN2,=W'10' SET POINTER TO MONTH «, t00=0x0006, t01=0x0036}
0x09c2…09fe Head {h00=0x0038, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,GSWBIN2 GET MONTH «, t00=0x0006, t01=0x0068}
0x09fe…0a2a Head {h00=0x0028, h01=0x0050, text=» CBG GSWBCD3,=D'12',CH29 CHECK MONTH«, t00=0x0006, t01=0x00a4}
0x0a2a…0a4a Head {h00=0x001c, h01=0x0050, text=» CBL GSWBCD3,=D'1',CH29 «, t00=0x0006, t01=0x00d0}
0x0a4a…0a7a Head {h00=0x002c, h01=0x0050, text=» SUB GSWBIN2,=W'2' ADJUST POINTER TO DAY«, t00=0x0006, t01=0x00f0}
0x0a7a…0ab4 Head {h00=0x0036, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,GSWBIN2 GET DAY «, t00=0x0006, t01=0x0120}
0x0ab4…0ad4 Head {h00=0x001c, h01=0x0050, text=» CBG GSWBCD3,=D'31',CH29«, t00=0x0006, t01=0x015a}
0x0ad4…0af4 Head {h00=0x001c, h01=0x0050, text=» CBL GSWBCD3,=D'1',CH29 «, t00=0x0006, t01=0x017a}
0x0af4…0b06 Head {h00=0x000e, h01=0x0050, text=» B CH2RET «, t00=0x0007, t01=0x000a}
0x0b06…0b12 Head {h00=0x0008, h01=0x0050, text=»CH29«, t00=0x0007, t01=0x001c}
0x0b12…0b3c Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW3,CBIN3 INDICATE ERROR«, t00=0x0007, t01=0x0028}
0x0b3c…0b66 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,=W'7' SET ERRORCODE «, t00=0x0007, t01=0x0052}
0x0b66…0b74 Head {h00=0x000a, h01=0x0050, text=»CH2RET«, t00=0x0007, t01=0x007c}
0x0b74…0b90 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,=X'FF'«, t00=0x0007, t01=0x008a}
0x0b90…0b9c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x00a6}
0x0b9c…0baa Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x00b2}
0x0baa…0bb8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00c0}
0x0bb8…0bcc Head {h00=0x0010, h01=0x0050, text=»SPCHK3 PROC «, t00=0x0007, t01=0x00ce}
0x0bcc…0be4 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0007, t01=0x00e2}
0x0be4…0bee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00fa}
0x0bee…0c14 Head {h00=0x0022, h01=0x0050, text=»* SPCHK3 - CHECK MONTH«, t00=0x0007, t01=0x0104}
0x0c14…0c1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x012a}
0x0c1e…0c44 Head {h00=0x0022, h01=0x0050, text=»* CHECKS 0<MONTH<13 «, t00=0x0007, t01=0x0134}
0x0c44…0c70 Head {h00=0x0028, h01=0x0050, text=»* MONTH IS IN THE FORM MM «, t00=0x0007, t01=0x015a}
0x0c70…0c96 Head {h00=0x0022, h01=0x0050, text=»* INPUT FIELD: SPINPUT«, t00=0x0007, t01=0x0186}
0x0c96…0ca0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x001c}
0x0ca0…0cdc Head {h00=0x0038, h01=0x0050, text=»* IF ERROR, ERRORCODE 7 IS MOVED TO SPBINW4«, t00=0x0008, t01=0x0026}
0x0cdc…0ce6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0062}
0x0ce6…0d00 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0008, t01=0x006c}
0x0d00…0d28 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET MONTH «, t00=0x0008, t01=0x0086}
0x0d28…0d54 Head {h00=0x0028, h01=0x0050, text=» CBG GSWBCD3,=D'12',CH39 CHECK MONTH«, t00=0x0008, t01=0x00ae}
0x0d54…0d74 Head {h00=0x001c, h01=0x0050, text=» CBL GSWBCD3,=D'1',CH39 «, t00=0x0008, t01=0x00da}
0x0d74…0da0 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,CBIN1 SET ERRORCODE OK«, t00=0x0008, t01=0x00fa}
0x0da0…0db2 Head {h00=0x000e, h01=0x0050, text=» B CH3RET «, t00=0x0008, t01=0x0126}
0x0db2…0dbe Head {h00=0x0008, h01=0x0050, text=»CH39«, t00=0x0008, t01=0x0138}
0x0dbe…0de8 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW3,CBIN3 INDICATE ERROR«, t00=0x0008, t01=0x0144}
0x0de8…0e12 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,=W'7' SET ERRORCODE «, t00=0x0008, t01=0x016e}
0x0e12…0e20 Head {h00=0x000a, h01=0x0050, text=»CH3RET«, t00=0x0009, t01=0x0008}
0x0e20…0e2c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x0016}
0x0e2c…0e3a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x0022}
0x0e3a…0e48 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0030}
0x0e48…0e5c Head {h00=0x0010, h01=0x0050, text=»SPCHK4 PROC «, t00=0x0009, t01=0x003e}
0x0e5c…0e78 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0009, t01=0x0052}
0x0e78…0e82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x006e}
0x0e82…0ec2 Head {h00=0x003c, h01=0x0050, text=»* SPCHK4 - CHANGE SIGN ON VALUE, IF KREDIT KEY «, t00=0x0009, t01=0x0078}
0x0ec2…0ecc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00b8}
0x0ecc…0ee8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0009, t01=0x00c2}
0x0ee8…0f04 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x0009, t01=0x00de}
0x0f04…0f28 Head {h00=0x0020, h01=0x0050, text=» CBNE SPBINW2,=W'18',CH4RET «, t00=0x0009, t01=0x00fa}
0x0f28…0f54 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBCD7,SPINPUT IF KREDIT KEY «, t00=0x0009, t01=0x011e}
0x0f54…0f70 Head {h00=0x0018, h01=0x0050, text=» MUL GSWBCD7,=D'-1' «, t00=0x0009, t01=0x014a}
0x0f70…0f8e Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD7 «, t00=0x0009, t01=0x0166}
0x0f8e…0fba Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW2,=W'3' SIMULATE EOI-KEY«, t00=0x0009, t01=0x0184}
0x0fba…0fc8 Head {h00=0x000a, h01=0x0050, text=»CH4RET«, t00=0x000a, t01=0x0020}
0x0fc8…0fd4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x002e}
0x0fd4…0fe2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000a, t01=0x003a}
0x0fe2…0ff0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0048}
0x0ff0…1004 Head {h00=0x0010, h01=0x0050, text=»SPCHK5 PROC «, t00=0x000a, t01=0x0056}
0x1004…1020 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000a, t01=0x006a}
0x1020…102a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0086}
0x102a…1058 Head {h00=0x002a, h01=0x0050, text=»* SPCHK5 - CHECK LINE NUMBER «, t00=0x000a, t01=0x0090}
0x1058…1062 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00be}
0x1062…107e Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x000a, t01=0x00c8}
0x107e…109a Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x000a, t01=0x00e4}
0x109a…10c8 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET LINE NUMBER «, t00=0x000a, t01=0x0100}
0x10c8…10fe Head {h00=0x0032, h01=0x0050, text=» CBG GSWBCD3,=D'96',CH510 SPECIAL FUNCTIONS ? «, t00=0x000a, t01=0x012e}
0x10fe…1120 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD3,=D'91',CH510 «, t00=0x000a, t01=0x0164}
0x1120…113a Head {h00=0x0016, h01=0x0050, text=» MUL GSWBCD3,=D'2'«, t00=0x000a, t01=0x0186}
0x113a…116c Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBCD4,CVOUTOP GET NO OF LINES/PAGE«, t00=0x000b, t01=0x0010}
0x116c…1188 Head {h00=0x0018, h01=0x0050, text=» SUB GSWBCD4,GSWBCD3«, t00=0x000b, t01=0x0042}
0x1188…11b8 Head {h00=0x002c, h01=0x0050, text=» CBL GSWBCD4,=D'0',CH5ERR LINE NEGATIVE?«, t00=0x000b, t01=0x005e}
0x11b8…11d6 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD4 «, t00=0x000b, t01=0x008e}
0x11d6…11fa Head {h00=0x0020, h01=0x0050, text=» CBG GSWBIN1,CMAXLIN,CH5ERR «, t00=0x000b, t01=0x00ac}
0x11fa…121e Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN1,CMINLIN,CH5ERR «, t00=0x000b, t01=0x00d0}
0x121e…122a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x00f4}
0x122a…1238 Head {h00=0x000a, h01=0x0050, text=»CH5ERR«, t00=0x000b, t01=0x0100}
0x1238…1254 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN3 «, t00=0x000b, t01=0x010e}
0x1254…1270 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'8' «, t00=0x000b, t01=0x012a}
0x1270…127c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x0146}
0x127c…128a Head {h00=0x000a, h01=0x0050, text=»CH510 «, t00=0x000b, t01=0x0152}
0x128a…12a8 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD3 «, t00=0x000b, t01=0x0160}
0x12a8…12b4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x017e}
0x12b4…12c2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000b, t01=0x018a}
0x12c2…12d0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0008}
0x12d0…12e4 Head {h00=0x0010, h01=0x0050, text=»SPCHK6 PROC «, t00=0x000c, t01=0x0016}
0x12e4…1300 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x002a}
0x1300…130a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0046}
0x130a…1350 Head {h00=0x0042, h01=0x0050, text=»* SPCHK6 - CHECK THE SPCHK6 - CHECKDIGIT IN LINE NO, «, t00=0x000c, t01=0x0050}
0x1350…136c Head {h00=0x0018, h01=0x0050, text=»* KONTOKORT«, t00=0x000c, t01=0x0096}
0x136c…1376 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00b2}
0x1376…1392 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x000c, t01=0x00bc}
0x1392…13a4 Head {h00=0x000e, h01=0x0050, text=» PERF KKCH«, t00=0x000c, t01=0x00d8}
0x13a4…13cc Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET DIGIT «, t00=0x000c, t01=0x00ea}
0x13cc…13e8 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x000c, t01=0x0112}
0x13e8…141a Head {h00=0x002e, h01=0x0050, text=» CBE GSWBCD3,=D'0',CH6RET NO CHECK IF ZERO«, t00=0x000c, t01=0x012e}
0x141a…1440 Head {h00=0x0022, h01=0x0050, text=» CBE GSWBCD3,TTKTCHK,CH6RET OK«, t00=0x000c, t01=0x0160}
0x1440…1462 Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW3,CBIN3 ERROR «, t00=0x000c, t01=0x0186}
0x1462…147e Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'13'«, t00=0x000d, t01=0x0018}
0x147e…148c Head {h00=0x000a, h01=0x0050, text=»CH6RET«, t00=0x000d, t01=0x0034}
0x148c…1498 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x0042}
0x1498…14a6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x004e}
0x14a6…14b4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x005c}
0x14b4…14c8 Head {h00=0x0010, h01=0x0050, text=»SPCHK7 PROC «, t00=0x000d, t01=0x006a}
0x14c8…14d4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x007e}
0x14d4…14e2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x008a}
0x14e2…14f0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0098}
0x14f0…1504 Head {h00=0x0010, h01=0x0050, text=»SPTCHK PROC «, t00=0x000d, t01=0x00a6}
0x1504…1520 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x00ba}
0x1520…152a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00d6}
0x152a…155c Head {h00=0x002e, h01=0x0050, text=»* SPTCHK - CONDITIONAL TABULATION«, t00=0x000d, t01=0x00e0}
0x155c…158e Head {h00=0x002e, h01=0x0050, text=»* CONTROLLED BY 'CTAB' IN FORMATS«, t00=0x000d, t01=0x0112}
0x158e…1598 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0144}
0x1598…15b4 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x014e}
0x15b4…15dc Head {h00=0x0024, h01=0x0050, text=» GETCTL 0,SPBINW3 GET APPL-VALUE«, t00=0x000d, t01=0x016a}
0x15dc…15fe (14, 0, 400) Head {h00=0x001e, h01=0x0050, text=» CBE SPBINW3,=W'84',TCHK84«, t00=0x000e, t01=0x0004}
0x15fe…1626 Head {h00=0x0024, h01=0x0050, text=» SUB SPBINW3,=W'16' ADJUST INDEX«, t00=0x000e, t01=0x0026}
0x1626…163e Head {h00=0x0014, h01=0x0050, text=» IB SPBINW3, C «, t00=0x000e, t01=0x004e}
0x163e…1664 Head {h00=0x0022, h01=0x0050, text=» TCHK17,TCHK18,TCHK19,TCHK20 «, t00=0x000e, t01=0x0066}
0x1664…1686 Head {h00=0x001e, h01=0x0050, text=» SUB SPBINW3,=W'61' +16-77«, t00=0x000e, t01=0x008c}
0x1686…16a8 Head {h00=0x001e, h01=0x0050, text=» IB SPBINW3,TCHK78,TCHK79 «, t00=0x000e, t01=0x00ae}
0x16a8…16c6 Head {h00=0x001a, h01=0x0050, text=»TCHK00 CORRECT FIELD«, t00=0x000e, t01=0x00d0}
0x16c6…16e2 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN0 «, t00=0x000e, t01=0x00ee}
0x16e2…16ee Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000e, t01=0x010a}
0x16ee…16f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0116}
0x16f8…1706 Head {h00=0x000a, h01=0x0050, text=»TCHK17«, t00=0x000e, t01=0x0120}
0x1706…171e Head {h00=0x0014, h01=0x0050, text=» TBT BCPR,TCHK00«, t00=0x000e, t01=0x012e}
0x171e…1730 Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x000e, t01=0x0146}
0x1730…173a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0158}
0x173a…1748 Head {h00=0x000a, h01=0x0050, text=»TCHK18«, t00=0x000e, t01=0x0162}
0x1748…1756 Head {h00=0x000a, h01=0x0050, text=»TCHK19«, t00=0x000e, t01=0x0170}
0x1756…1764 Head {h00=0x000a, h01=0x0050, text=»TCHK20«, t00=0x000e, t01=0x017e}
0x1764…177c Head {h00=0x0014, h01=0x0050, text=» TBF BCPR,TCHK00«, t00=0x000e, t01=0x018c}
0x177c…178e Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x000f, t01=0x0014}
0x178e…1798 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0026}
0x1798…17a6 Head {h00=0x000a, h01=0x0050, text=»TCHK78«, t00=0x000f, t01=0x0030}
0x17a6…17c4 Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW3,TTCNTNR «, t00=0x000f, t01=0x003e}
0x17c4…17e0 Head {h00=0x0018, h01=0x0050, text=» SUB SPBINW3,=W'100'«, t00=0x000f, t01=0x005c}
0x17e0…181c Head {h00=0x0038, h01=0x0050, text=» CBG SPBINW3,CTR12(GTUWB,CBIN2),TCHK00 CONTINUE TAB «, t00=0x000f, t01=0x0078}
0x181c…183c Head {h00=0x001c, h01=0x0050, text=» B TCHK99 CORRECT FIELD «, t00=0x000f, t01=0x00b4}
0x183c…1846 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00d4}
0x1846…1854 Head {h00=0x000a, h01=0x0050, text=»TCHK79«, t00=0x000f, t01=0x00de}
0x1854…1872 Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW3,TTCNTNR «, t00=0x000f, t01=0x00ec}
0x1872…188e Head {h00=0x0018, h01=0x0050, text=» SUB SPBINW3,=W'100'«, t00=0x000f, t01=0x010a}
0x188e…18ca Head {h00=0x0038, h01=0x0050, text=» CBG SPBINW3,CTR12(GTUWB,CBIN2),TCHK99 CORRECT FIELD«, t00=0x000f, t01=0x0126}
0x18ca…18e8 Head {h00=0x001a, h01=0x0050, text=» B TCHK00 CONTINUE TAB«, t00=0x000f, t01=0x0162}
0x18e8…18f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0180}
0x18f2…1900 Head {h00=0x000a, h01=0x0050, text=»TCHK84«, t00=0x000f, t01=0x018a}
0x1900…191c Head {h00=0x0018, h01=0x0050, text=» TBF GTTRSEL,TCHK00 «, t00=0x0010, t01=0x0008}
0x191c…192e Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x0010, t01=0x0024}
0x192e…1938 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0036}
0x1938…1956 Head {h00=0x001a, h01=0x0050, text=»TCHK99 CONTINUE TAB «, t00=0x0010, t01=0x0040}
0x1956…1972 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN2 «, t00=0x0010, t01=0x005e}
0x1972…197e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x007a}
0x197e…198c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0010, t01=0x0086}
0x198c…1998 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0010, t01=0x0094}
0x1998…199c Head {h00=0x4004, h01=0x0000}
0x199c…19a0 00 10 00 a0 ┆ ┆
0x19a0…19a8 (17, 1, 8) 20 04 00 00 00 11 00 04 ┆ ┆
0x19a8…19f8 (18, 0, 400) 30 30 00 09 01 6c 00 24 00 50 20 41 44 44 20 47 53 57 42 49 4e 35 2c 43 54 52 31 32 28 47 54 55 57 42 2c 43 42 49 4e 31 29 20 00 0a 00 0a 00 28 00 50 20 4d 4f 56 45 20 47 54 44 55 50 46 28 43 42 49 4e 31 29 2c 43 54 52 31 32 4e 52 28 47 53 ┆00 l $ P ADD GSWBIN5,CTR12(GTUWB,CBIN1) ( P MOVE GTDUPF(CBIN1),CTR12NR(GS┆
0x19f8…1a48 57 42 49 4e 35 29 00 0a 00 32 00 24 00 50 20 43 42 45 20 47 54 44 55 50 46 28 43 42 49 4e 31 29 2c 3d 44 27 30 27 2c 54 43 4c 30 33 30 20 00 0a 00 5e 00 2e 00 50 20 4d 4f 56 45 20 47 54 55 53 45 44 28 43 42 49 4e 31 29 2c 43 42 49 4e 35 20 ┆WBIN5) 2 $ P CBE GTDUPF(CBIN1),=D'0',TCL030 ^ . P MOVE GTUSED(CBIN1),CBIN5 ┆
0x1a48…1a98 49 4e 44 49 43 41 54 45 20 55 50 44 41 54 45 44 00 0a 00 86 00 2e 00 50 20 4d 4f 56 45 20 47 54 44 55 50 46 28 43 42 49 4e 34 29 2c 43 31 32 41 43 43 28 47 53 57 42 49 4e 35 2c 43 42 49 4e 31 29 20 00 0a 00 b8 00 24 00 50 20 43 42 45 20 47 ┆INDICATE UPDATED . P MOVE GTDUPF(CBIN4),C12ACC(GSWBIN5,CBIN1) $ P CBE G┆
0x1a98…1ae8 54 44 55 50 46 28 43 42 49 4e 34 29 2c 3d 44 27 30 27 2c 54 43 4c 30 34 30 20 00 0a 00 ea 00 1e 00 50 20 4d 4f 56 45 20 47 54 55 53 45 44 28 43 42 49 4e 34 29 2c 3d 57 27 2d 38 27 00 0a 01 12 00 26 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 ┆TDUPF(CBIN4),=D'0',TCL040 P MOVE GTUSED(CBIN4),=W'-8' & P MOVE GSWSTR┆
0x1ae8…1b38 32 30 2c 3d 43 27 45 4a 2d 45 44 42 20 54 5b 4c 4c 45 52 20 27 20 00 0a 01 34 00 1a 00 50 20 4d 4f 56 45 20 47 54 57 42 43 44 31 2c 47 53 57 42 43 44 35 20 00 0a 01 5e 00 30 00 50 20 50 45 52 46 20 54 52 32 47 45 4e 2c 43 42 49 4e 31 20 47 ┆20,=C'EJ-EDB T[LLER ' 4 P MOVE GTWBCD1,GSWBCD5 ^ 0 P PERF TR2GEN,CBIN1 G┆
0x1b38…1b88 (19, 0, 398) 45 4e 45 52 41 54 45 20 54 52 32 20 57 49 54 48 20 4b 52 45 44 49 54 20 00 0a 01 7c 00 10 00 50 20 42 4e 4f 4b 20 54 43 4c 30 33 35 00 0b 00 20 00 0a 00 50 54 43 4c 30 34 30 00 0b 00 34 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 35 2c ┆ENERATE TR2 WITH KREDIT | P BNOK TCL035 PTCL040 4 P MOVE GSWBIN5,┆
0x1b88…1bd8 47 53 57 42 43 44 35 20 00 0b 00 42 00 24 00 50 20 41 44 44 20 47 53 57 42 49 4e 35 2c 43 54 52 31 32 28 47 54 55 57 42 2c 43 42 49 4e 31 29 20 00 0b 00 60 00 2e 00 50 20 4d 4f 56 45 20 47 54 44 55 50 46 28 43 42 49 4e 34 29 2c 43 31 32 41 ┆GSWBCD5 B $ P ADD GSWBIN5,CTR12(GTUWB,CBIN1) ` . P MOVE GTDUPF(CBIN4),C12A┆
0x1bd8…1c28 43 43 28 47 53 57 42 49 4e 35 2c 43 42 49 4e 32 29 20 00 0b 00 88 00 24 00 50 20 43 42 45 20 47 54 44 55 50 46 28 43 42 49 4e 34 29 2c 3d 44 27 30 27 2c 54 43 4c 30 33 30 20 00 0b 00 ba 00 1e 00 50 20 4d 4f 56 45 20 47 54 55 53 45 44 28 43 ┆CC(GSWBIN5,CBIN2) $ P CBE GTDUPF(CBIN4),=D'0',TCL030 P MOVE GTUSED(C┆
0x1c28…1c78 42 49 4e 34 29 2c 3d 57 27 2d 38 27 00 0b 00 e2 00 26 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 30 2c 3d 43 27 45 4a 2d 45 44 42 20 54 5b 4c 4c 45 52 20 27 20 00 0b 01 04 00 1a 00 50 20 4d 4f 56 45 20 47 54 57 42 43 44 31 2c 47 53 57 42 ┆BIN4),=W'-8' & P MOVE GSWSTR20,=C'EJ-EDB T[LLER ' P MOVE GTWBCD1,GSWB┆
0x1c78…1cc6 43 44 35 20 00 0b 01 2e 00 2e 00 50 20 50 45 52 46 20 54 52 32 47 45 4e 2c 43 42 49 4e 32 20 47 45 4e 45 52 41 54 45 20 54 52 32 20 57 49 54 48 20 44 45 42 45 54 00 0b 01 4c 00 10 00 50 20 42 4e 4f 4b 20 54 43 4c 30 34 30 00 0b 01 7e ┆CD5 . . P PERF TR2GEN,CBIN2 GENERATE TR2 WITH DEBET L P BNOK TCL040 ~┆
0x1cc6…1d16 (20, 0, 400) 00 0e 00 50 20 42 20 54 43 4c 30 33 30 20 00 0c 00 04 00 0a 00 50 20 45 4a 45 43 54 00 0c 00 16 00 0a 00 50 54 43 4c 31 30 30 00 0c 00 24 00 1e 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 39 2c 3d 43 27 54 4f 54 41 4c 20 20 20 27 00 0c 00 32 ┆ P B TCL030 P EJECT PTCL100 $ P MOVE GSWSTR9,=C'TOTAL ' 2┆
0x1d16…1d66 00 16 00 50 20 50 45 52 46 20 43 4c 45 4a 5c 45 4a 20 45 44 42 20 00 0c 00 54 00 18 00 50 20 4d 4f 56 45 20 54 54 45 4a 45 44 42 2c 3d 44 27 30 27 20 00 0c 00 6e 00 0a 00 50 54 43 4c 32 30 35 00 0c 00 8a 00 14 00 50 5c 5c 5c 43 41 53 48 20 ┆ P PERF CLEJ EJ EDB T P MOVE TTEJEDB,=D'0' n PTCL205 P CASH ┆
0x1d66…1db6 4d 4f 56 45 4d 45 4e 54 00 0c 00 98 00 2a 00 50 20 4d 4f 56 45 20 47 54 44 55 50 46 28 43 42 49 4e 31 29 2c 54 54 43 41 53 48 41 43 20 41 43 43 4f 55 4e 54 4e 52 00 0c 00 b0 00 2c 00 50 20 4d 4f 56 45 20 47 54 44 55 50 46 28 43 42 49 4e 34 ┆MOVEMENT * P MOVE GTDUPF(CBIN1),TTCASHAC ACCOUNTNR , P MOVE GTDUPF(CBIN4┆
0x1db6…1e06 29 2c 54 54 43 41 53 48 20 43 55 52 52 45 4e 54 20 43 41 53 48 20 00 0c 00 de 00 2c 00 50 20 53 55 42 20 47 54 44 55 50 46 28 43 42 49 4e 34 29 2c 54 54 53 54 43 41 53 48 20 49 4e 49 54 49 41 4c 20 43 41 53 48 00 0c 01 0e 00 1e 00 50 20 4d ┆),TTCASH CURRENT CASH , P SUB GTDUPF(CBIN4),TTSTCASH INITIAL CASH P M┆
0x1e06…1e56 4f 56 45 20 47 54 55 53 45 44 28 43 42 49 4e 31 29 2c 43 42 49 4e 35 20 00 0c 01 3e 00 1e 00 50 20 4d 4f 56 45 20 47 54 55 53 45 44 28 43 42 49 4e 34 29 2c 3d 57 27 2d 38 27 00 0c 01 60 00 24 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 30 ┆OVE GTUSED(CBIN1),CBIN5 > P MOVE GTUSED(CBIN4),=W'-8' ` $ P MOVE GSWSTR20┆