|
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: 26468 (0x6764)
Notes: pts_type(SC)
Names: »RGKLAR.SC«
└─⟦38a30a456⟧ Bits:30009662 Philips computer tape "600104"
└─⟦this⟧ »OD-KOM/RGKLAR.SC«
IDENT RGKLAR 840203/EV DDUM KMD08 PDIV ENTRY RGADM ENTRY CLEJ ENTRY CLEDB ENTRY CLBEH ENTRY RGA120 ENTRY ZERO ENTRY SKIFT ENTRY STRTWR ENTRY STRTID ENTRY SLUTID ENTRY SOPRD ENTRY LAMPOF ENTRY LAMPON ENTRY TCLOSE ENTRY TR2GEN ENTRY WAHEAD ENTRY WALINE ENTRY BCKUP EXT ADM EXT CNFWRT EXT RADEL EXT SETKRE EXT SETDEB EXT WRITJT EXT INITRG EXT SPCLRN EXT SPCLRA EXT PACKCL EXT CLEAR8 EXT SPLIN8 EXT SLUT EXT GRASPV EXT FRMXVO EXT KORT EXT TCONFW EXT CONFWR EXT WRITFD EXT RAREAD EXT RAWRIT EXT ASGVOL EXT ASGFIL EXT CLSVOL EXT CRKJ EXT BACKUP EXT CONRDX EXT WRITID EXT WRITLO EXT WAITF INCLUDE EQUATE EJECT RGADM SET SPPROMPT MOVE SPKEY,CBIN2 ATTFMT ADFRM01 PERF SPCLRA IB SPBINW2,RGADM,RGADM,RGADM,RGADM,RGA100,RGA200,RGA300 B RGADM * RGA100 * ******************************************************** * * OPEN ROUTINE * ******************************************************** * TBT CCONVFLG,RGADM CLEAR GTDYFLG SET SPPROMPT SET SPME MOVE GSWBCD3,=X'FF' ERASE RGA105 ATTFMT OPENFRM PERF SPCLRN IB SPBINW2,RGADM,RGADM,RGA110 B RGADM RGA110 MOVE TTEJEDB,=D'0' MUL TTSTLBNR,=D'-1' SET POSITIVE (OPEN) MUL CMASK(TTASKNR),=D'-1' SET CMASK >0, OPEN MOVE TTCASH,TTSTCASH CBNE TTSTLBNR,=D'0',RGA115 MOVE TTSTLBNR,=D'10001' RGA115 MOVE TTLBNR,TTSTLBNR SUB TTLBNR,=D'1' MOVE TTRECOPN,CRECBCD PERF ZERO PERF TCONFW,TTASKNR STORE INF FROM ADM FUNC. PERF CONFWR PERF WRITJT,=W'5' OPEN MES ON JT SET GTKASSE ADD CTASKNR,CBIN1 RGA120 PERF INITRG START REGISTRATION PERF TCLOSE CLOSE BNOK RGA120 SUB CTASKNR,CBIN1 MOVE GSWSTR20,=C'*' PERF WRITJT,=W'12' B RGADM EJECT TCLOSE PROC CLEAR GTSPECTR NO MORE TR50... MOVE SPKEY,CBIN2 TCL000 SET SPPROMPT ATTFMT CLFRM01 PERF SPCLRA IB SPBINW2,TCLMAK,TCLMAK,TCL010 B TCL000 TCL010 * CLEAR FLAGS CLEAR GTSUMKEY CLEAR TTTSTFLG CLEAR TTCY1FLG CLEAR TTCY2FLG CLEAR TTLSTFLG CLEAR TTPSEFLG CLEAR TTSUMFLG CLEAR TTSUPFLG CLEAR GTCYFLG CLEAR GTSUBFLG MOVE TTSUPMRK,=C' ' MOVE TTSUMMRK,=C' ' MOVE GTTEXT,=C' ' MOVE GTSUM,=D'0' WAIT KVOUCH DSC0 KVOUCH,RLEAS * TR12 ACCUMULATORS MOVE GTREGNR,=D'2' MOVE GTREGDEX,CBIN2 PERF PACKCL MOVE GSWBIN1,CBIN1 TCL025 MOVE GTDUPF(GSWBIN1),=X'FF' ADD GSWBIN1,CBIN1 CBL GSWBIN1,CBINMAX,TCL025 MOVE GSWBCD5,=D'0' TCL030 ADD GSWBCD5,=D'1' ACC NR TCL035 MOVE GSWBIN5,GSWBCD5 CONVERT CBG GSWBIN5,CTR12(TTASKNR,CBIN2),TCL100 ADD GSWBIN5,CTR12(TTASKNR,CBIN1) MOVE GTDUPF(CBIN1),CTR12NR(GSWBIN5) CBE GTDUPF(CBIN1),=D'0',TCL030 MOVE GTUSED(CBIN1),CBIN5 INDICATE UPDATED MOVE GTDUPF(CBIN4),C12ACC(GSWBIN5,CBIN1) CBE GTDUPF(CBIN4),=D'0',TCL040 MOVE GTUSED(CBIN4),=W'-8' MOVE GSWSTR20,=C'EJ-EDB T[LLER ' MOVE GTWBCD1,GSWBCD5 PERF TR2GEN,CBIN1 GENERATE TR2 WITH KREDIT BNOK TCL035 TCL040 MOVE GSWBIN5,GSWBCD5 ADD GSWBIN5,CTR12(TTASKNR,CBIN1) MOVE GTDUPF(CBIN4),C12ACC(GSWBIN5,CBIN2) CBE GTDUPF(CBIN4),=D'0',TCL030 MOVE GTUSED(CBIN4),=W'-8' MOVE GSWSTR20,=C'EJ-EDB T[LLER ' MOVE GTWBCD1,GSWBCD5 PERF TR2GEN,CBIN2 GENERATE TR2 WITH DEBET BNOK TCL040 B TCL030 EJECT TCL100 MOVE GSWSTR9,=C'TOTAL ' PERF CLEJ EJ EDB MOVE TTEJEDB,=D'0' TCL205 CASH MOVEMENT MOVE GTDUPF(CBIN1),TTCASHAC ACCOUNTNR MOVE GTDUPF(CBIN4),TTCASH CURRENT CASH SUB GTDUPF(CBIN4),TTSTCASH INITIAL CASH MOVE GTUSED(CBIN1),CBIN5 MOVE GTUSED(CBIN4),=W'-8' MOVE GSWSTR20,=C'KASSE-KONTO ' MOVE GTWBCD1,=D'0' SET GTTFLG PERF TR2GEN,CBIN0 BNOK TCL205 TBF CCLKTFLG,TCL230 PERF KORT ASK FOR KONTOKORT TCL230 CBE TVERSUR,=D'0',TCL235 MOVE GTDUPF(CBIN1),TVERSUR REMIT ACC MOVE GTDUPF(CBIN4),TTACC(CBIN6,CBIN1) ADD GTDUPF(CBIN4),TTACC(CBIN6,CBIN2) CBE GTDUPF(CBIN4),=D'0',TCL235 MOVE GTUSED(CBIN1),CBIN5 MOVE GTUSED(CBIN4),=W'-8' MUL GTDUPF(CBIN4),=D'-1' MOVE GSWSTR20,=C'VERSUR KONTONR REMIT ' MOVE GTWBCD1,=D'0' PERF TR2GEN,CBIN0 BNOK TCL230 TBF CCLKTFLG,TCL235 PERF KORT * * WRITING OF DISC JOURNAL AND VOUCHER * TCL235 MOVE GSWSTR9,=C'TOTAL ' PERF CLEDB * * BEHOLDNINGST[LLERE * PERF CLBEH * TCL500 MOVE TTSTCASH,TTCASH MOVE TTSTLBNR,TTLBNR ADD TTSTLBNR,=D'1' MUL TTSTLBNR,=D'-1' SET NEGATIVE (CLOSE) MUL CMASK(TTASKNR),=D'-1' SET CMASK < 0, CLOSE CLEAR GTTFLG TCL550 MOVE TTRECOPN,CRECBCD PERF ZERO PERF TCONFW,TTASKNR STORE NEW INITIAL VALUES PERF CONFWR BNOK TCL550 CLEAR GTKASSE TCLRET * ZERONIZE COUNTERS * TRANS 12 COUNTERS CMP CBIN0,CBIN0 DUMMY RET TCLNOK10 TCLMAK CMP CBIN0,CBIN1 RET PEND EJECT RGA200 ************************************************ * * PERFORM OF SELECTED ADM ROUTINE * ************************************************* * MOVE GSWBIN1,GSWBCD3 PERF ADM,GSWBIN1 B RGADM EJECT ZERO PROC * * ZERONIZE COUNTERS * TRANS 12 COUNTERS MOVE GSWBIN1,CTR12(TTASKNR,CBIN1) MOVE GSWBIN2,GSWBIN1 ADD GSWBIN2,CTR12(TTASKNR,CBIN2) TCL610 ADD GSWBIN1,CBIN1 CBG GSWBIN1,GSWBIN2,TCL615 MOVE C12ACC(GSWBIN1,CBIN1),=D'0' MOVE C12ACC(GSWBIN1,CBIN2),=D'0' B TCL610 TCL615 * ACCUMULATORS MOVE GSWBIN1,CBIN0 TCL620 ADD GSWBIN1,CBIN1 MOVE TTACC(GSWBIN1,CBIN1),=D'0' MOVE TTACC(GSWBIN1,CBIN2),=D'0' CBL GSWBIN1,CBIN8,TCL620 RET PEND EJECT CLEJ PROC ***************************************************** * * NOW ALL ACCUMULATORS NOT = 0 * HAS BEEN REGISTRATED * A VOUCHER PRINT OF ALL TR12 ACC * IS NOW PERFORMED ** ******************************************************** MOVE TTLINNR,=D'25' MOVE GSWSTR20,='EJ-EDB T[LLER ' CBE CTR12(TTASKNR,CBIN2),CBIN0,TCLEJRET PERF WAHEAD,CBIN8 MOVE GTWBCD1,=D'0' TCL110 ADD GTWBCD1,=D'1' MOVE GSWBIN5,GTWBCD1 CONVERT CBG GSWBIN5,CTR12(TTASKNR,CBIN2),TCL200 ADD GSWBIN5,CTR12(TTASKNR,CBIN1) MOVE GTDUPF(CBIN4),C12ACC(GSWBIN5,CBIN1) ADD GTDUPF(CBIN4),C12ACC(GSWBIN5,CBIN2) MOVE GTDUPF(CBIN1),CTR12NR(GSWBIN5) CBE GTDUPF(CBIN1),=D'0',TCL110 CBG TTLINNR,=D'0',TCL190 DSC0 KVOUCH,RLEAS MOVE TTLINNR,=D'25' PERF WAHEAD,CBIN8 TCL190 PERF WALINE,CBIN9 B TCL110 TCL200 DSC0 KVOUCH,RLEAS TCLEJRET RET PEND EJECT CLEDB PROC * * WRITING OF DISC JOURNAL AND VOUCHER * MOVE GSWSTR20,=C'EDB-T[LLERE ' PERF WRITJT,=W'6' PERF WAHEAD,CBIN8 MOVE GSWBCD5,=D'0' MOVE GTREGF(CBIN1),=D'0' TOTAL MOVE GTREGF(CBIN2),=D'0' TCL240 TBT GTSPGFLG,TCL242 MOVE GTREGNR,=D'11' TCL242 ADD GSWBCD5,=D'1' TCL245 MOVE GSWBIN5,GSWBCD5 CBG GSWBIN5,CBIN6,TCL300 ADD GTREGF(CBIN1),TTACC(GSWBIN5,CBIN1) ADD GTREGF(CBIN2),TTACC(GSWBIN5,CBIN2) MOVE GTUSED(CBIN4),CBIN0 MOVE GTDUPF(CBIN4),TTACC(GSWBIN5,CBIN1) ADD GTDUPF(CBIN4),TTACC(GSWBIN5,CBIN2) MOVE GTDUPF(CBIN6),TTACC(GSWBIN5,CBIN1) MOVE GTDUPF(CBIN5),TTACC(GSWBIN5,CBIN2) DEBET TBT GTSPGFLG,TCL290 MOVE GTUSED(CBIN6),=W'-53' MOVE GTUSED(CBIN5),=W'-52' MOVE GTDUPF(CBIN1),GSWBCD5 MOVE GTUSED(CBIN1),=W'50' MOVE GTDUPF(CBIN2),=D'2' MARK FOR TOTAL MOVE GTUSED(CBIN2),=W'51' PERF CRKJ TCL250 PERF WRITFD BNOK TCL250 TCL290 MOVE GSWBIN5,GSWBCD5 RESTORE MOVE GTWBCD1,GSWBCD5 PERF WRITJT,=W'7' PERF WALINE,CBIN10 B TCL240 TCL300 PERF PACKCL MOVE GTDUPF(CBIN4),GTREGF(CBIN1) ADD GTDUPF(CBIN4),GTREGF(CBIN2) MOVE GTDUPF(CBIN5),TTACC(CBIN8,CBIN1) ADD GTDUPF(CBIN5),TTACC(CBIN8,CBIN2) PERF WALINE,CBIN11 MOVE GTDUPF(CBIN5),TTACC(CBIN1,CBIN1) MOVE GTDUPF(CBIN6),TTACC(CBIN1,CBIN2) MOVE GSWBIN1,CBIN1 TCL310 ADD GSWBIN1,CBIN1 CBG GSWBIN1,CBIN4,TCL320 ADD GTDUPF(CBIN5),TTACC(GSWBIN1,CBIN1) ADD GTDUPF(CBIN6),TTACC(GSWBIN1,CBIN2) B TCL310 TCL320 TBT GTSPGFLG,TCL329 * ADJUST FOR 'KASSE INDBERETNING' MOVE GSWBCD1,TTCASH SUB GSWBCD1,TTSTCASH CBL GSWBCD1,=D'0',TCL323 SUB GTDUPF(CBIN6),GSWBCD1 B TCL325 TCL323 SUB GTDUPF(CBIN5),GSWBCD1 TCL325 * ADJUST FOR 'VERSUR INDBERETNING' MOVE GSWBCD1,TTACC(CBIN6,CBIN1) ADD GSWBCD1,TTACC(CBIN6,CBIN2) MUL GSWBCD1,=D'-1' 'VEND' CBL GSWBCD1,=D'0',TCL328 SUB GTDUPF(CBIN6),GSWBCD1 B TCL329 TCL328 SUB GTDUPF(CBIN5),GSWBCD1 TCL329 MUL GTDUPF(CBIN5),=D'-1' MUL GTDUPF(CBIN6),=D'-1' MOVE GSWBCD1,TTCASH SUB GSWBCD1,TTSTCASH MOVE GTDUPF(CBIN4),GSWBCD1 PERF WALINE,CBIN12 DSC0 KVOUCH,RLEAS RET PEND EJECT CLBEH PROC * * BEHOLDNINGST[LLERE * TCL400 MOVE TTLINNR,=D'25' MOVE GSWBIN2,CBEH(TTASKNR,CBIN2) CMP GSWBIN2,CBIN0 BE CLBEHRET ADD GSWBIN2,CBEH(TTASKNR,CBIN1) MOVE GTWBCD2,GSWBIN2 TCL405 ATTFMT CLFRM04 SET SPPROMPT PERF SPCLRA IB SPBINW2, C TCL415,TCL415,TCL412,TCL411,TCL415, C TCL415,TCL415,TCL415,TCL413,TCL415, C TCL415,TCL415,TCL413 TCL415 B TCL400 TCL411 TBT GTSPGFLG,TCL400 MOVE GSWSTR20,=C'SLET SALDO ' MOVE GSWBIN6,CBIN1 B TCL420 TCL412 TBT GTSPGFLG,TCL400 MOVE GSWSTR20,=C'SLET PERIODE ' MOVE GSWBIN6,CBIN2 B TCL420 TCL413 MOVE GSWSTR20,=C'SUBTOTAL ' MOVE GSWBIN6,CBIN3 B TCL420 TCL420 MOVE GTWBCD1,=D'0' MOVE GSWBCD6,=D'0' MOVE GSWBCD7,=D'0' TCL425 PERF GRASPV MOVE GSWBIN3,CVOUTOP ADD GSWBIN3,CBIN6 DSC1 KVOUCH,POS,GSWBIN3 PERF CLEAR8 PERF FRMXVO,CBIN13 HEAD ON VOUCHER EDWRT KVOUCH,GTSTRFMT TCL430 ADD GTWBCD1,=D'1' MOVE GSWBIN3,GTWBCD1 ADD GSWBIN3,CBEH(TTASKNR,CBIN1) MOVE GSWBIN4,GTWBCD2 CBG GSWBIN3,GSWBIN4,TCL490 CBE CBACC(GSWBIN3,CBIN1),=D'0',TCL430 * ADD TO TOTAL, PERIODE AND SALDO ADD GSWBCD6,CBACC(GSWBIN3,CBIN2) PERIODE ADD GSWBCD7,CBACC(GSWBIN3,CBIN3) SALDO PERF FRMXVO,CBIN14 EDWRT KVOUCH,GTSTRFMT TBT GTTESTFL,TCL433 IB GSWBIN6,TCL431,TCL432,TCL433 B TCL433 TCL431 MOVE CBACC(GSWBIN3,CBIN3),=D'0' SALDO TCL432 MOVE CBACC(GSWBIN3,CBIN2),=D'0' PERIODE TCL433 SUB TTLINNR,=D'1' CBG TTLINNR,=D'0',TCL430 DSC0 KVOUCH,RLEAS MOVE TTLINNR,=D'25' B TCL425 TCL490 * WRITE TOTAL LINE PERF FRMXVO,CBIN18 EDWRT KVOUCH,GTSTRFMT DSC0 KVOUCH,RLEAS CLBEHRET RET PEND RGA300 PERF ADM,CBIN11 SPG B RGADM ************************************************** * * TR2GEN GENERATES A TRANSACTION 2 * **************************************************** TR2GEN PROC DBKR CLEAR GTSPECTR NOT SPECIAL TRANS MOVE TTDKDEX,DBKR CBNE TTDKDEX,=W'0',TR2DBKR MOVE TTDKDEX,CBIN1 CBL GTDUPF(CBIN4),=D'0',TR2DBKR MOVE TTDKDEX,CBIN2 TR2DBKR PERFI TTDKDEX,SETKRE,SETDEB EDWRT SCREEN,CLFRM02 PERF SLUT RET PEND ******************************************************** * * WAHEAD - GRASP AND WRITE HEADLINE ON VOUCHER * ******************************************************** WAHEAD PROC VOXDEX EDWRT SCREEN,CLFRM03 PERF SPLIN8,CBIN5,CBIN2 PERF GRASPV DSC1 KVOUCH,POS,CVOUTOP PERF CLEAR8 PERF FRMXVO,VOXDEX EDWRT KVOUCH,GTSTRFMT RET PEND ********************************************************* * * WALINE WRITE ACCUMULATORLINE * ********************************************************** WALINE PROC LINDEX PERF FRMXVO,LINDEX EDWRT KVOUCH,GTSTRFMT SUB TTLINNR,=D'1' RET PEND * EJECT SKIFT PROC ************************* * * SKIFT - THIS PROCEDURE TAKES HAND OF SHIFT * OF DISKS, IS ACTIVATED AFTER * 12 ADM * ************************ PERF WAITF,CPFLG SET CSKIFTWN PERF SPLIN8,CBIN8,CBIN2 'DISKETTE SKIFT' TBF CWFLAG,SK15 SUB CRECBCD,=D'1' PERF SLUTID,CPCKBUF,CRECBCD WRITE 'SLUTD' PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR SK11 TBF CBCACTVF,SK15 NOT ACTIVE DC TBT CBCSENDF,SK13 SENDING NOW? CBNL CBCFROM,CRECNR,SK15 NO, ALL SEND? SK13 NOT ALL SEND MOVE CBCOPT,CBIN4 SEND REST MOVE GSWBIN1,=W'30' DELAY GSWBIN1 B SK11 SK15 PERF WRITID,CPCKBUF,CBIN2,CBIN2 'DISKETTESKIFT' PERF CLSVOL,CBIN2 PERF LAMPOF,=W'2047' ADD CVOLNO,=D'1' PERF CNFWRT REWRITE CONFDATA CBL CREGVOL,=W'2',SK120 MOVE GSWBIN2,CBIN6 COMPUTE NOW OUTPUTVOLUME SUB GSWBIN2,CREGVOL MOVE CREGVOL,GSWBIN2 PERF ASGVOL,CBIN2 TRY TO ASSIGN IT BNOK SK120 ERROR B SK124 SK120 PERF LAMPON,=W'512' LAMP 2 PERF SOPRD CBNE GSWBIN2,CBIN9,SK120 PERF ASGFIL,CBIN2 BNOK SK120 SK124 PERF LAMPOF,=W'2047' MOVE CRECNR,CBIN1 MOVE CRECBCD,=D'0' TBF CWFLAG,SK130 PERF STRTWR BOK SK130 PERF CLSVOL,CBIN2 B SK120 SK130 TBF CWFLAG,SK150 MOVE CRECBCD,=D'1' PERF WRITID,CPCKBUF,CBIN2,CBIN1 SK150 PERF CLEAR8 PERF WRITJT,=W'11' PERF WRITLO,CBIN5 CLEAR CSKIFTFL CLEAR CSKIFTWN CLEAR CPFLG DISC FREE TBF CBCACTVF,SK900 MOVE CBCOPT,CBIN1 MOVE CBCFROM,CBIN0 SEND FROM START SK900 RET PEND EJECT * LAMPON PROC $NR PLIT $NR ************************************** * * LAMPON - FIRE LAMPS ON OPR. PANEL. * CALL - PERF LAMPON,<$NR> * * THE LAMPS ARE FIRED CORRESPONDING TO 1-BITS IN PARAM * ***************************************** MOVE GSWBIN2,$NR DSC1 DSSOPO,ON,GSWBIN2 RET PEND * LAMPOF PROC $NR PLIT $NR ***************************************** * * LAMPOF - EXTINGUISH LAMPS ON OPR. PANEL * CALL - PERF LAMPOF,<$NR> * * THE LAMPS ARE EXTINGHUISHED CORRESPONDING TO 1-BITS IN PARAM * ******************************************** MOVE GSWBIN2,$NR DSC1 DSSOPO,OFF,GSWBIN2 RET PEND * SOPRD PROC ********************************************* * * SOPRD - READ SYSTEMS OPERATOR PANEL * ********************************************* SOPR10 MOVE GSWBIN1,CBIN1 KI DSSOPI,SOPINP,DUMTAB,GSWBIN1,GSWBIN2 BNOK SOPR10 RET PEND * STRTWR PROC ********************* * * STRTWR - SET UP AND WRITE START RECORD * * *********************** PERF STRTID,CVOLNO PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR BNOK STRTNOK ADD CRECNR,CBIN1 PERF RADEL,DK02,CRECNR,=D'2' BNOK STRTNOK CMP CBIN0,CBIN0 OK RET STRTNOK CMP CBIN1,CBIN0 RET PEND STRTID PROC VOLID ******************** * * STRTID - SETS UP A START ID IN PACK BUFFER * * CALL - PERF STRTID,<VOLID> * ******************** SET CSWFLAG CBE CRECLGD,=W'128',STRT10 CLEAR CSWFLAG STRT10 MOVE GSWBIN6,CBIN2 EDIT CPCKBUF,PCKINIT EDIT CPCKBUF,STARTFR MOVE GSWBCD3,VOLID EDIT GSWSTR20,FRVOLID MOVE GSWBIN1,=W'40' COPY CPCKBUF,GSWBIN1,CBIN12,GSWSTR20,CBIN0 STRTRET RET PEND SLUTID PROC BUF,SLUTNO ******************** * * SLUTID - SETS UP A SLUTD IN BUFFER * * ******************** SET CSWFLAG CBE CRECLGD,=W'128',SLUT10 CLEAR CSWFLAG SLUT10 EDIT BUF,PCKINIT MOVE GSWBCD3,SLUTNO EDIT BUF,SLUTFRM RET PEND EJECT BCKUP PROC $OPT PLIT $OPT ******************** * * THIS PROCEDURE TAKES CARE OF ADMINISTRATION * OB BACKUP * * CALL: PERF BCKUP,<=W'X'> * $OPT = 1 : WITHOUT BACKUP * $OPT = 2 : WITH BACKUP * * ******************** * MOVE CRECNR,CBIN1 MOVE CRECBCD,=D'1' ADD CVOLNO,=D'1' NEXT VOLUME NO PERF CNFWRT REWRITE CONFIGURATION SUB CVOLNO,=D'1' CBE CBIN1,$OPT,BCK100 NO BACKUP * * * BACKUP * BCK000 PERF LAMPOF,=W'2047' LAMPS OFF BCK005 PERF LAMPON,=W'1024' LAMP 1 PERF LAMPON,=W'128' LAMP 4 PERF LAMPON,=W'16' LAMP 7 TBF CGLREGFL,BCK010 PERF LAMPON,=W'512' LAMP 2 BCK010 PERF SOPRD READ SOP LAMPS IB GSWBIN2, C BSOP10,BSOP09,BSOP08,BSOP07,BSOP06, C BSOP05,BSOP04,BSOP03,BSOP02,BSOP01 BSOP03 BSOP05 BSOP06 BSOP08 BSOP09 BSOP10 B BCK010 OTHER LAMPS * BSOP01 BACKUP FD999001 PERF LAMPOF,=W'2047' LAMPS OFF PERF LAMPON,=W'1024' LAMP 1 PERF BACKUP,DK01,=D'1',=W'32',CCONBUF0,=W'199' BNOK BCK050 ADD CVOLNO,=D'1' PERF WRITID,CPCKBUF,CBIN6,CBIN4 BACKUP OK SUB CVOLNO,=D'1' PERF CONRDX,CCONBUF0,CBIN1 RESTORE BUFFER AREA B BCK000 BCK050 PERF CONRDX,CCONBUF0,CBIN1 RESTORE BUFFER AREA B BCK005 * BSOP02 COPY FD999002 TO FD999005 TBF CGLREGFL,BCK010 ALLOWED? B BCK02 * ***** BCK02 COPY FD999002 TO FD999005 PERF LAMPOF,=W'2047' LAMPS OFF PERF LAMPON,=W'512' LAMP 2 SET CPFLG PERF ASGVOL,CBIN2 ASSIGN REGSET BNOK BCK0290 MOVE CGLRECNR,CBIN0 BCK0250 ADD CGLRECNR,CBIN1 MOVE GSWBIN1,=W'128' LENGTH OF RECORD PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,CGLRECNR BNOK BCK0270 ERROR CBE GTWBCD1,=D'4',BCK0280 NO DATA MOVE GSWSTR20,=C'SLUTD' MOVE GSWBIN5,CBIN0 MATCH GSWSTR20,GSWBIN5,CBIN5,CPCKBUF,CBIN0,CBIN5 BE BCK0280 SLUTD PERF RAWRIT,DK05,=D'5',CPCKBUF,CGLRECNR BOK BCK0250 BCK0270 ERROR PERF LAMPON,=W'2' LAMP 10 BCK0280 FINISH MOVE TTGLREC,CGLRECNR PERF TCONFW,CBIN1 SAVE LAST RECORD NO. BCK0290 CLEAR CPFLG DSC0 DK02,CLOSE CLOSE VOLUME 2 B BCK02R * ***** BCK02R B BCK000 * BSOP04 BACKUP FD999004 PERF LAMPOF,=W'2047' LAMPS OFF PERF LAMPON,=W'128' LAMP 4 PERF BACKUP,DK04,=D'4',=W'30',CKTBUF,=W'128' BNOK BCK005 NOK B BCK000 OK * BSOP07 FINISH PERF LAMPOF,=W'2047' LAMPS OFF PERF ASGVOL,CBIN1 ASSIGN SYSTEM FILES BNOK BCKNOK BCK100 PERF ASGFIL,CBIN2 BNOK BCKNOK ADD CVOLNO,=D'1' PERF STRTWR BOK BCKOK SUB CVOLNO,=D'1' PERF LAMPON,=W'2' LAMP 10 B BCKNOK * BCKNOK CMP CBIN1,CBIN0 NOK RET * BCKOK PERF WRITID,CPCKBUF,CBIN2,CBIN1 CMP CBIN0,CBIN0 RET PEND EJECT * * ************************************************* * * FORMATS * ************************************************* DUMTAB KTAB EORKY1 * FMTFKI FRMT FNL FKI 1 FMEL 'B',TSWBCD2 FMEND * PCKINIT FRMT FBT CSWFLAG,INIT10 FILLR ' ',40 FILLR ' ',40 FILLR X'00',48 FEXIT INIT10 FILLR ' ',40 FILLR ' ',40 FILLR ' ',48 FMEND * FRVOLID FRMT FMEL '999999',CMASKDAT FMEL 'B99999',GSWBCD3 FMEND * SLUTFRM FRMT FCOPY =C'SLUTD' FMEL '99999',GSWBCD3 FMEND * STARTFR FRMT FCOPY =C'Z300 ' FMEL '9999',CKMDNR KOMMUNE NR FILLR C'2',1 FCOPY CVOL(GSWBIN6) FMEL '999',CRELDAY DAG NR FILLR C'1',1 MIXED TRANS FILLR ' ',6 FMEND * ADFRM01 FRMT FSL FCOPY ='KLAR ' FCOPY ='ADM ' FKI 12,MINL=1,MAXL=2 FMEL 'ZZ',GSWBCD3 FMEND * * OPENFRM FRMT FSL FCOPY ='ADM ' FBT GTDYFLG,OPFR05 FTAB 1 FCOPY =C'KASSE]BNING' OPFR05 FNL FBF GTMASTFL,OPFR10 FCOPY =C'DAGS-DATO' FKI 11,MINL=6,MAXL=6,ME,SCHK=2,REWRT,NCLR FMEL '99E-99E-99',CMASKDAT FNL FCOPY =C'DAG NR' FKI 11,MINL=1,MAXL=3,ME,APPL=102 FMEL 'ZZZ',CRELDAY FNL OPFR10 FCOPY ='POST-DATO' FKI 11,MINL=6,MAXL=6,ME,SCHK=2,REWRT,APPL=107 FMEL '99E-99E-99',GTDATO FMEND * CLFRM01 FRMT FSL FCOPY =C'KASSELUKNING' FILLR X'07',1 FLINK FMTFKI FMEND * CLFRM02 FRMT FILLR '1',2 FCOPY =C'KASSELUKNING' FNL FCOPY GSWSTR20 TEXT FMEL 'ZZ',GTWBCD1 COUNTER NR FILLR ' ',4 FCOPY GTDBKRC DEB-KRE FNL FCOPY =C'KONTONR' FILLR ' ',5 FLINK FBELOB FNL FMEL '99999999E-99',GTDUPF(CBIN1) FMEL 'BTTT.TTT.TTT.TT9.99-',GTDUPF(CBIN4) FMEND * CLFRM03 FRMT FILLR '1',2 FBT GTSPGFLG,CLF0301 FCOPY =C'KASSELUKNING' CLF0301 FNL FCOPY GSWSTR20 FMEND * CLFRM04 FRMT FSL FBT GTSPGFLG,CLF0401 FCOPY ='KASSELUKNING' CLF0401 FNL FCOPY ='BEHOLDNINGST[LLERE' FNL FNL FBT GTSPGFLG,CLF0402 FCOPY ='SLET PERIODE ' FTAB 15 FCOPY =' DEB' FNL FCOPY ='SLET SALDO ' FTAB 15 FCOPY =' KRE' CLF0402 FNL FCOPY ='SUBTOTAL ' FTAB 16 FCOPY ='KVIT' FNL FNL FNL FILLR ' ',1 FCOPY ='BILAG' FLINK FMTFKI FMEND * * FBELOB FRMT FCOPY =C'BEL' FILLR X'5C',1 FILLR 'B',1 FMEND * * * END
0x0000…0020 (0, 0, 400) Head {h00=0x001c, h01=0x0050, text=» IDENT RGKLAR 840203/EV «, t00=0x0000, t01=0x0004}
0x0020…0034 Head {h00=0x0010, h01=0x0050, text=» DDUM KMD08 «, t00=0x0000, t01=0x0024}
0x0034…0042 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0038}
0x0042…0056 Head {h00=0x0010, h01=0x0050, text=» ENTRY RGADM«, t00=0x0000, t01=0x0046}
0x0056…006a Head {h00=0x0010, h01=0x0050, text=» ENTRY CLEJ «, t00=0x0000, t01=0x005a}
0x006a…007e Head {h00=0x0010, h01=0x0050, text=» ENTRY CLEDB«, t00=0x0000, t01=0x006e}
0x007e…0092 Head {h00=0x0010, h01=0x0050, text=» ENTRY CLBEH«, t00=0x0000, t01=0x0082}
0x0092…00a8 Head {h00=0x0012, h01=0x0050, text=» ENTRY RGA120 «, t00=0x0000, t01=0x0096}
0x00a8…00bc Head {h00=0x0010, h01=0x0050, text=» ENTRY ZERO «, t00=0x0000, t01=0x00ac}
0x00bc…00d0 Head {h00=0x0010, h01=0x0050, text=» ENTRY SKIFT«, t00=0x0000, t01=0x00c0}
0x00d0…00e6 Head {h00=0x0012, h01=0x0050, text=» ENTRY STRTWR «, t00=0x0000, t01=0x00d4}
0x00e6…00fc Head {h00=0x0012, h01=0x0050, text=» ENTRY STRTID «, t00=0x0000, t01=0x00ea}
0x00fc…0112 Head {h00=0x0012, h01=0x0050, text=» ENTRY SLUTID «, t00=0x0000, t01=0x0100}
0x0112…0126 Head {h00=0x0010, h01=0x0050, text=» ENTRY SOPRD«, t00=0x0000, t01=0x0116}
0x0126…013c Head {h00=0x0012, h01=0x0050, text=» ENTRY LAMPOF «, t00=0x0000, t01=0x012a}
0x013c…0152 Head {h00=0x0012, h01=0x0050, text=» ENTRY LAMPON «, t00=0x0000, t01=0x0140}
0x0152…0168 Head {h00=0x0012, h01=0x0050, text=» ENTRY TCLOSE «, t00=0x0000, t01=0x0156}
0x0168…017e Head {h00=0x0012, h01=0x0050, text=» ENTRY TR2GEN «, t00=0x0000, t01=0x016c}
0x017e…0194 Head {h00=0x0012, h01=0x0050, text=» ENTRY WAHEAD «, t00=0x0000, t01=0x0182}
0x0194…01aa Head {h00=0x0012, h01=0x0050, text=» ENTRY WALINE «, t00=0x0001, t01=0x0008}
0x01aa…01be Head {h00=0x0010, h01=0x0050, text=» ENTRY BCKUP«, t00=0x0001, t01=0x001e}
0x01be…01ce Head {h00=0x000c, h01=0x0050, text=» EXT ADM«, t00=0x0001, t01=0x0032}
0x01ce…01e2 Head {h00=0x0010, h01=0x0050, text=» EXT CNFWRT «, t00=0x0001, t01=0x0042}
0x01e2…01f4 Head {h00=0x000e, h01=0x0050, text=» EXT RADEL«, t00=0x0001, t01=0x0056}
0x01f4…0208 Head {h00=0x0010, h01=0x0050, text=» EXT SETKRE «, t00=0x0001, t01=0x0068}
0x0208…021c Head {h00=0x0010, h01=0x0050, text=» EXT SETDEB «, t00=0x0001, t01=0x007c}
0x021c…0230 Head {h00=0x0010, h01=0x0050, text=» EXT WRITJT «, t00=0x0001, t01=0x0090}
0x0230…0244 Head {h00=0x0010, h01=0x0050, text=» EXT INITRG «, t00=0x0001, t01=0x00a4}
0x0244…0258 Head {h00=0x0010, h01=0x0050, text=» EXT SPCLRN «, t00=0x0001, t01=0x00b8}
0x0258…026c Head {h00=0x0010, h01=0x0050, text=» EXT SPCLRA «, t00=0x0001, t01=0x00cc}
0x026c…0280 Head {h00=0x0010, h01=0x0050, text=» EXT PACKCL «, t00=0x0001, t01=0x00e0}
0x0280…0294 Head {h00=0x0010, h01=0x0050, text=» EXT CLEAR8 «, t00=0x0001, t01=0x00f4}
0x0294…02a8 Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0001, t01=0x0108}
0x02a8…02ba Head {h00=0x000e, h01=0x0050, text=» EXT SLUT «, t00=0x0001, t01=0x011c}
0x02ba…02ce Head {h00=0x0010, h01=0x0050, text=» EXT GRASPV «, t00=0x0001, t01=0x012e}
0x02ce…02e2 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXVO «, t00=0x0001, t01=0x0142}
0x02e2…02f4 Head {h00=0x000e, h01=0x0050, text=» EXT KORT «, t00=0x0001, t01=0x0156}
0x02f4…0308 Head {h00=0x0010, h01=0x0050, text=» EXT TCONFW «, t00=0x0001, t01=0x0168}
0x0308…031c Head {h00=0x0010, h01=0x0050, text=» EXT CONFWR «, t00=0x0001, t01=0x017c}
0x031c…0330 Head {h00=0x0010, h01=0x0050, text=» EXT WRITFD «, t00=0x0001, t01=0x0190}
0x0330…0344 Head {h00=0x0010, h01=0x0050, text=» EXT RAREAD «, t00=0x0002, t01=0x0014}
0x0344…0358 Head {h00=0x0010, h01=0x0050, text=» EXT RAWRIT «, t00=0x0002, t01=0x0028}
0x0358…036c Head {h00=0x0010, h01=0x0050, text=» EXT ASGVOL «, t00=0x0002, t01=0x003c}
0x036c…0380 Head {h00=0x0010, h01=0x0050, text=» EXT ASGFIL «, t00=0x0002, t01=0x0050}
0x0380…0394 Head {h00=0x0010, h01=0x0050, text=» EXT CLSVOL «, t00=0x0002, t01=0x0064}
0x0394…03a6 Head {h00=0x000e, h01=0x0050, text=» EXT CRKJ «, t00=0x0002, t01=0x0078}
0x03a6…03ba Head {h00=0x0010, h01=0x0050, text=» EXT BACKUP «, t00=0x0002, t01=0x008a}
0x03ba…03ce Head {h00=0x0010, h01=0x0050, text=» EXT CONRDX «, t00=0x0002, t01=0x009e}
0x03ce…03e2 Head {h00=0x0010, h01=0x0050, text=» EXT WRITID «, t00=0x0002, t01=0x00b2}
0x03e2…03f6 Head {h00=0x0010, h01=0x0050, text=» EXT WRITLO «, t00=0x0002, t01=0x00c6}
0x03f6…0408 Head {h00=0x000e, h01=0x0050, text=» EXT WAITF«, t00=0x0002, t01=0x00da}
0x0408…0420 Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0002, t01=0x00ec}
0x0420…042e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0104}
0x042e…043c Head {h00=0x000a, h01=0x0050, text=»RGADM «, t00=0x0002, t01=0x0112}
0x043c…0452 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0002, t01=0x0120}
0x0452…046c Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN2 «, t00=0x0002, t01=0x0136}
0x046c…0484 Head {h00=0x0014, h01=0x0050, text=» ATTFMT ADFRM01 «, t00=0x0002, t01=0x0150}
0x0484…0498 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x0002, t01=0x0168}
0x0498…04d8 Head {h00=0x003c, h01=0x0050, text=» IB SPBINW2,RGADM,RGADM,RGADM,RGADM,RGA100,RGA200,RGA300«, t00=0x0002, t01=0x017c}
0x04d8…04e8 Head {h00=0x000c, h01=0x0050, text=» B RGADM«, t00=0x0003, t01=0x002c}
0x04e8…04f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x003c}
0x04f2…0500 Head {h00=0x000a, h01=0x0050, text=»RGA100«, t00=0x0003, t01=0x0046}
0x0500…050a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0054}
0x050a…054a Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0003, t01=0x005e}
0x054a…0554 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x009e}
0x0554…057c Head {h00=0x0024, h01=0x0050, text=»* OPEN ROUTINE«, t00=0x0003, t01=0x00a8}
0x057c…0586 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00d0}
0x0586…05c6 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0003, t01=0x00da}
0x05c6…05d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x011a}
0x05d0…05ec Head {h00=0x0018, h01=0x0050, text=» TBT CCONVFLG,RGADM «, t00=0x0003, t01=0x0124}
0x05ec…0602 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTDYFLG«, t00=0x0003, t01=0x0140}
0x0602…0618 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0003, t01=0x0156}
0x0618…062a Head {h00=0x000e, h01=0x0050, text=» SET SPME «, t00=0x0003, t01=0x016c}
0x062a…064c Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBCD3,=X'FF' ERASE«, t00=0x0003, t01=0x017e}
0x064c…065a Head {h00=0x000a, h01=0x0050, text=»RGA105«, t00=0x0004, t01=0x0010}
0x065a…0672 Head {h00=0x0014, h01=0x0050, text=» ATTFMT OPENFRM «, t00=0x0004, t01=0x001e}
0x0672…0686 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRN«, t00=0x0004, t01=0x0036}
0x0686…06ac Head {h00=0x0022, h01=0x0050, text=» IB SPBINW2,RGADM,RGADM,RGA110«, t00=0x0004, t01=0x004a}
0x06ac…06bc Head {h00=0x000c, h01=0x0050, text=» B RGADM«, t00=0x0004, t01=0x0070}
0x06bc…06ca Head {h00=0x000a, h01=0x0050, text=»RGA110«, t00=0x0004, t01=0x0080}
0x06ca…06e6 Head {h00=0x0018, h01=0x0050, text=» MOVE TTEJEDB,=D'0' «, t00=0x0004, t01=0x008e}
0x06e6…0716 Head {h00=0x002c, h01=0x0050, text=» MUL TTSTLBNR,=D'-1' SET POSITIVE (OPEN)«, t00=0x0004, t01=0x00aa}
0x0716…074c Head {h00=0x0032, h01=0x0050, text=» MUL CMASK(TTASKNR),=D'-1' SET CMASK >0, OPEN «, t00=0x0004, t01=0x00da}
0x074c…076a Head {h00=0x001a, h01=0x0050, text=» MOVE TTCASH,TTSTCASH «, t00=0x0004, t01=0x0110}
0x076a…078e Head {h00=0x0020, h01=0x0050, text=» CBNE TTSTLBNR,=D'0',RGA115 «, t00=0x0004, t01=0x012e}
0x078e…07ae Head {h00=0x001c, h01=0x0050, text=» MOVE TTSTLBNR,=D'10001'«, t00=0x0004, t01=0x0152}
0x07ae…07bc Head {h00=0x000a, h01=0x0050, text=»RGA115«, t00=0x0004, t01=0x0172}
0x07bc…07da Head {h00=0x001a, h01=0x0050, text=» MOVE TTLBNR,TTSTLBNR «, t00=0x0004, t01=0x0180}
0x07da…07f4 Head {h00=0x0016, h01=0x0050, text=» SUB TTLBNR,=D'1' «, t00=0x0005, t01=0x000e}
0x07f4…0812 Head {h00=0x001a, h01=0x0050, text=» MOVE TTRECOPN,CRECBCD«, t00=0x0005, t01=0x0028}
0x0812…0824 Head {h00=0x000e, h01=0x0050, text=» PERF ZERO«, t00=0x0005, t01=0x0046}
0x0824…085a Head {h00=0x0032, h01=0x0050, text=» PERF TCONFW,TTASKNR STORE INF FROM ADM FUNC. «, t00=0x0005, t01=0x0058}
0x085a…086e Head {h00=0x0010, h01=0x0050, text=» PERF CONFWR«, t00=0x0005, t01=0x008e}
0x086e…0898 Head {h00=0x0026, h01=0x0050, text=» PERF WRITJT,=W'5' OPEN MES ON JT «, t00=0x0005, t01=0x00a2}
0x0898…08ac Head {h00=0x0010, h01=0x0050, text=» SET GTKASSE«, t00=0x0005, t01=0x00cc}
0x08ac…08c6 Head {h00=0x0016, h01=0x0050, text=» ADD CTASKNR,CBIN1«, t00=0x0005, t01=0x00e0}
0x08c6…08d4 Head {h00=0x000a, h01=0x0050, text=»RGA120«, t00=0x0005, t01=0x00fa}
0x08d4…08fc Head {h00=0x0024, h01=0x0050, text=» PERF INITRG START REGISTRATION «, t00=0x0005, t01=0x0108}
0x08fc…0916 Head {h00=0x0016, h01=0x0050, text=» PERF TCLOSE CLOSE«, t00=0x0005, t01=0x0130}
0x0916…092a Head {h00=0x0010, h01=0x0050, text=» BNOK RGA120«, t00=0x0005, t01=0x014a}
0x092a…0944 Head {h00=0x0016, h01=0x0050, text=» SUB CTASKNR,CBIN1«, t00=0x0005, t01=0x015e}
0x0944…0960 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR20,=C'*'«, t00=0x0005, t01=0x0178}
0x0960…097c (6, 0, 400) Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'12' «, t00=0x0006, t01=0x0004}
0x097c…098c Head {h00=0x000c, h01=0x0050, text=» B RGADM«, t00=0x0006, t01=0x0020}
0x098c…099a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0030}
0x099a…09ae Head {h00=0x0010, h01=0x0050, text=»TCLOSE PROC «, t00=0x0006, t01=0x003e}
0x09ae…09d6 Head {h00=0x0024, h01=0x0050, text=» CLEAR GTSPECTR NO MORE TR50... «, t00=0x0006, t01=0x0052}
0x09d6…09f0 Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN2 «, t00=0x0006, t01=0x007a}
0x09f0…09fe Head {h00=0x000a, h01=0x0050, text=»TCL000«, t00=0x0006, t01=0x0094}
0x09fe…0a14 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0006, t01=0x00a2}
0x0a14…0a2c Head {h00=0x0014, h01=0x0050, text=» ATTFMT CLFRM01 «, t00=0x0006, t01=0x00b8}
0x0a2c…0a40 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x0006, t01=0x00d0}
0x0a40…0a68 Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,TCLMAK,TCLMAK,TCL010«, t00=0x0006, t01=0x00e4}
0x0a68…0a7a Head {h00=0x000e, h01=0x0050, text=» B TCL000 «, t00=0x0006, t01=0x010c}
0x0a7a…0a88 Head {h00=0x000a, h01=0x0050, text=»TCL010«, t00=0x0006, t01=0x011e}
0x0a88…0aa2 Head {h00=0x0016, h01=0x0050, text=»* CLEAR FLAGS «, t00=0x0006, t01=0x012c}
0x0aa2…0aba Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSUMKEY «, t00=0x0006, t01=0x0146}
0x0aba…0ad2 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0006, t01=0x015e}
0x0ad2…0aea Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY1FLG «, t00=0x0006, t01=0x0176}
0x0aea…0b02 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY2FLG «, t00=0x0006, t01=0x018e}
0x0b02…0b1a Head {h00=0x0014, h01=0x0050, text=» CLEAR TTLSTFLG «, t00=0x0007, t01=0x0016}
0x0b1a…0b32 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTPSEFLG «, t00=0x0007, t01=0x002e}
0x0b32…0b4a Head {h00=0x0014, h01=0x0050, text=» CLEAR TTSUMFLG «, t00=0x0007, t01=0x0046}
0x0b4a…0b62 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTSUPFLG «, t00=0x0007, t01=0x005e}
0x0b62…0b78 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTCYFLG«, t00=0x0007, t01=0x0076}
0x0b78…0b90 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSUBFLG «, t00=0x0007, t01=0x008c}
0x0b90…0bac Head {h00=0x0018, h01=0x0050, text=» MOVE TTSUPMRK,=C' '«, t00=0x0007, t01=0x00a4}
0x0bac…0bc8 Head {h00=0x0018, h01=0x0050, text=» MOVE TTSUMMRK,=C' '«, t00=0x0007, t01=0x00c0}
0x0bc8…0be2 Head {h00=0x0016, h01=0x0050, text=» MOVE GTTEXT,=C' '«, t00=0x0007, t01=0x00dc}
0x0be2…0bfc Head {h00=0x0016, h01=0x0050, text=» MOVE GTSUM,=D'0' «, t00=0x0007, t01=0x00f6}
0x0bfc…0c10 Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0007, t01=0x0110}
0x0c10…0c2a Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0007, t01=0x0124}
0x0c2a…0c56 Head {h00=0x0028, h01=0x0050, text=»* TR12 ACCUMULATORS«, t00=0x0007, t01=0x013e}
0x0c56…0c72 Head {h00=0x0018, h01=0x0050, text=» MOVE GTREGNR,=D'2' «, t00=0x0007, t01=0x016a}
0x0c72…0c8e Head {h00=0x0018, h01=0x0050, text=» MOVE GTREGDEX,CBIN2«, t00=0x0007, t01=0x0186}
0x0c8e…0ca2 Head {h00=0x0010, h01=0x0050, text=» PERF PACKCL«, t00=0x0008, t01=0x0012}
0x0ca2…0cbe Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x0008, t01=0x0026}
0x0cbe…0ccc Head {h00=0x000a, h01=0x0050, text=»TCL025«, t00=0x0008, t01=0x0042}
0x0ccc…0cf0 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(GSWBIN1),=X'FF'«, t00=0x0008, t01=0x0050}
0x0cf0…0d0a Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x0008, t01=0x0074}
0x0d0a…0d2e Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN1,CBINMAX,TCL025 «, t00=0x0008, t01=0x008e}
0x0d2e…0d4a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'0' «, t00=0x0008, t01=0x00b2}
0x0d4a…0d58 Head {h00=0x000a, h01=0x0050, text=»TCL030«, t00=0x0008, t01=0x00ce}
0x0d58…0d7a Head {h00=0x001e, h01=0x0050, text=» ADD GSWBCD5,=D'1' ACC NR «, t00=0x0008, t01=0x00dc}
0x0d7a…0d88 Head {h00=0x000a, h01=0x0050, text=»TCL035«, t00=0x0008, t01=0x00fe}
0x0d88…0dae Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBIN5,GSWBCD5 CONVERT «, t00=0x0008, t01=0x010c}
0x0dae…0dde Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN5,CTR12(TTASKNR,CBIN2),TCL100«, t00=0x0008, t01=0x0132}
0x0dde…0e08 Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN5,CTR12(TTASKNR,CBIN1) «, t00=0x0008, t01=0x0162}
0x0e08…0e34 Head {h00=0x0028, h01=0x0050, text=» MOVE GTDUPF(CBIN1),CTR12NR(GSWBIN5)«, t00=0x0008, t01=0x018c}
0x0e34…0e5c Head {h00=0x0024, h01=0x0050, text=» CBE GTDUPF(CBIN1),=D'0',TCL030 «, t00=0x0009, t01=0x0028}
0x0e5c…0e8e Head {h00=0x002e, h01=0x0050, text=» MOVE GTUSED(CBIN1),CBIN5 INDICATE UPDATED«, t00=0x0009, t01=0x0050}
0x0e8e…0ec0 Head {h00=0x002e, h01=0x0050, text=» MOVE GTDUPF(CBIN4),C12ACC(GSWBIN5,CBIN1) «, t00=0x0009, t01=0x0082}
0x0ec0…0ee8 Head {h00=0x0024, h01=0x0050, text=» CBE GTDUPF(CBIN4),=D'0',TCL040 «, t00=0x0009, t01=0x00b4}
0x0ee8…0f0a Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN4),=W'-8'«, t00=0x0009, t01=0x00dc}
0x0f0a…0f34 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWSTR20,=C'EJ-EDB T[LLER ' «, t00=0x0009, t01=0x00fe}
0x0f34…0f52 Head {h00=0x001a, h01=0x0050, text=» MOVE GTWBCD1,GSWBCD5 «, t00=0x0009, t01=0x0128}
0x0f52…0f86 Head {h00=0x0030, h01=0x0050, text=» PERF TR2GEN,CBIN1 GENERATE TR2 WITH KREDIT «, t00=0x0009, t01=0x0146}
0x0f86…0f9a Head {h00=0x0010, h01=0x0050, text=» BNOK TCL035«, t00=0x0009, t01=0x017a}
0x0f9a…0fa8 Head {h00=0x000a, h01=0x0050, text=»TCL040«, t00=0x0009, t01=0x018e}
0x0fa8…0fc6 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,GSWBCD5 «, t00=0x000a, t01=0x000c}
0x0fc6…0ff0 Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN5,CTR12(TTASKNR,CBIN1) «, t00=0x000a, t01=0x002a}
0x0ff0…1022 Head {h00=0x002e, h01=0x0050, text=» MOVE GTDUPF(CBIN4),C12ACC(GSWBIN5,CBIN2) «, t00=0x000a, t01=0x0054}
0x1022…104a Head {h00=0x0024, h01=0x0050, text=» CBE GTDUPF(CBIN4),=D'0',TCL030 «, t00=0x000a, t01=0x0086}
0x104a…106c Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN4),=W'-8'«, t00=0x000a, t01=0x00ae}
0x106c…1096 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWSTR20,=C'EJ-EDB T[LLER ' «, t00=0x000a, t01=0x00d0}
0x1096…10b4 Head {h00=0x001a, h01=0x0050, text=» MOVE GTWBCD1,GSWBCD5 «, t00=0x000a, t01=0x00fa}
0x10b4…10e6 Head {h00=0x002e, h01=0x0050, text=» PERF TR2GEN,CBIN2 GENERATE TR2 WITH DEBET«, t00=0x000a, t01=0x0118}
0x10e6…10fa Head {h00=0x0010, h01=0x0050, text=» BNOK TCL040«, t00=0x000a, t01=0x014a}
0x10fa…110c Head {h00=0x000e, h01=0x0050, text=» B TCL030 «, t00=0x000a, t01=0x015e}
0x110c…111a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0170}
0x111a…1128 Head {h00=0x000a, h01=0x0050, text=»TCL100«, t00=0x000a, t01=0x017e}
0x1128…114a Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,=C'TOTAL '«, t00=0x000a, t01=0x018c}
0x114a…1164 Head {h00=0x0016, h01=0x0050, text=» PERF CLEJ EJ EDB «, t00=0x000b, t01=0x001e}
0x1164…1180 Head {h00=0x0018, h01=0x0050, text=» MOVE TTEJEDB,=D'0' «, t00=0x000b, t01=0x0038}
0x1180…118e Head {h00=0x000a, h01=0x0050, text=»TCL205«, t00=0x000b, t01=0x0054}
0x118e…11a6 Head {h00=0x0014, h01=0x0050, text=» CASH MOVEMENT«, t00=0x000b, t01=0x0062}
0x11a6…11d4 Head {h00=0x002a, h01=0x0050, text=» MOVE GTDUPF(CBIN1),TTCASHAC ACCOUNTNR«, t00=0x000b, t01=0x007a}
0x11d4…1204 Head {h00=0x002c, h01=0x0050, text=» MOVE GTDUPF(CBIN4),TTCASH CURRENT CASH «, t00=0x000b, t01=0x00a8}
0x1204…1234 Head {h00=0x002c, h01=0x0050, text=» SUB GTDUPF(CBIN4),TTSTCASH INITIAL CASH«, t00=0x000b, t01=0x00d8}
0x1234…1256 Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN1),CBIN5 «, t00=0x000b, t01=0x0108}
0x1256…1278 Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN4),=W'-8'«, t00=0x000b, t01=0x012a}
0x1278…12a0 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR20,=C'KASSE-KONTO ' «, t00=0x000b, t01=0x014c}
0x12a0…12bc Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD1,=D'0' «, t00=0x000b, t01=0x0174}
0x12bc…12d0 Head {h00=0x0010, h01=0x0050, text=» SET GTTFLG «, t00=0x000b, t01=0x0190}
0x12d0…12ea Head {h00=0x0016, h01=0x0050, text=» PERF TR2GEN,CBIN0«, t00=0x000c, t01=0x0014}
0x12ea…12fe Head {h00=0x0010, h01=0x0050, text=» BNOK TCL205«, t00=0x000c, t01=0x002e}
0x12fe…131a Head {h00=0x0018, h01=0x0050, text=» TBF CCLKTFLG,TCL230«, t00=0x000c, t01=0x0042}
0x131a…133e Head {h00=0x0020, h01=0x0050, text=» PERF KORT ASK FOR KONTOKORT«, t00=0x000c, t01=0x005e}
0x133e…134c Head {h00=0x000a, h01=0x0050, text=»TCL230«, t00=0x000c, t01=0x0082}
0x134c…136e Head {h00=0x001e, h01=0x0050, text=» CBE TVERSUR,=D'0',TCL235 «, t00=0x000c, t01=0x0090}
0x136e…139c Head {h00=0x002a, h01=0x0050, text=» MOVE GTDUPF(CBIN1),TVERSUR REMIT ACC «, t00=0x000c, t01=0x00b2}
0x139c…13ca Head {h00=0x002a, h01=0x0050, text=» MOVE GTDUPF(CBIN4),TTACC(CBIN6,CBIN1)«, t00=0x000c, t01=0x00e0}
0x13ca…13f8 Head {h00=0x002a, h01=0x0050, text=» ADD GTDUPF(CBIN4),TTACC(CBIN6,CBIN2) «, t00=0x000c, t01=0x010e}
0x13f8…1420 Head {h00=0x0024, h01=0x0050, text=» CBE GTDUPF(CBIN4),=D'0',TCL235 «, t00=0x000c, t01=0x013c}
0x1420…1442 Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN1),CBIN5 «, t00=0x000c, t01=0x0164}
0x1442…1464 Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN4),=W'-8'«, t00=0x000c, t01=0x0186}
0x1464…1486 Head {h00=0x001e, h01=0x0050, text=» MUL GTDUPF(CBIN4),=D'-1' «, t00=0x000d, t01=0x0018}
0x1486…14b6 Head {h00=0x002c, h01=0x0050, text=» MOVE GSWSTR20,=C'VERSUR KONTONR REMIT '«, t00=0x000d, t01=0x003a}
0x14b6…14d2 Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD1,=D'0' «, t00=0x000d, t01=0x006a}
0x14d2…14ec Head {h00=0x0016, h01=0x0050, text=» PERF TR2GEN,CBIN0«, t00=0x000d, t01=0x0086}
0x14ec…1500 Head {h00=0x0010, h01=0x0050, text=» BNOK TCL230«, t00=0x000d, t01=0x00a0}
0x1500…151c Head {h00=0x0018, h01=0x0050, text=» TBF CCLKTFLG,TCL235«, t00=0x000d, t01=0x00b4}
0x151c…152e Head {h00=0x000e, h01=0x0050, text=» PERF KORT«, t00=0x000d, t01=0x00d0}
0x152e…1538 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00e2}
0x1538…156c Head {h00=0x0030, h01=0x0050, text=»* WRITING OF DISC JOURNAL AND VOUCHER «, t00=0x000d, t01=0x00ec}
0x156c…1576 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0120}
0x1576…1584 Head {h00=0x000a, h01=0x0050, text=»TCL235«, t00=0x000d, t01=0x012a}
0x1584…15a6 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,=C'TOTAL '«, t00=0x000d, t01=0x0138}
0x15a6…15ba Head {h00=0x0010, h01=0x0050, text=» PERF CLEDB «, t00=0x000d, t01=0x015a}
0x15ba…15c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x016e}
0x15c4…15e2 Head {h00=0x001a, h01=0x0050, text=»* BEHOLDNINGST[LLERE «, t00=0x000d, t01=0x0178}
0x15e2…15ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0008}
0x15ec…1600 Head {h00=0x0010, h01=0x0050, text=» PERF CLBEH «, t00=0x000e, t01=0x0012}
0x1600…160a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0026}
0x160a…1618 Head {h00=0x000a, h01=0x0050, text=»TCL500«, t00=0x000e, t01=0x0030}
0x1618…1636 Head {h00=0x001a, h01=0x0050, text=» MOVE TTSTCASH,TTCASH «, t00=0x000e, t01=0x003e}
0x1636…1654 Head {h00=0x001a, h01=0x0050, text=» MOVE TTSTLBNR,TTLBNR «, t00=0x000e, t01=0x005c}
0x1654…1670 Head {h00=0x0018, h01=0x0050, text=» ADD TTSTLBNR,=D'1' «, t00=0x000e, t01=0x007a}
0x1670…16a2 Head {h00=0x002e, h01=0x0050, text=» MUL TTSTLBNR,=D'-1' SET NEGATIVE (CLOSE) «, t00=0x000e, t01=0x0096}
0x16a2…16da Head {h00=0x0034, h01=0x0050, text=» MUL CMASK(TTASKNR),=D'-1' SET CMASK < 0, CLOSE «, t00=0x000e, t01=0x00c8}
0x16da…16f0 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTTFLG «, t00=0x000e, t01=0x0100}
0x16f0…16fe Head {h00=0x000a, h01=0x0050, text=»TCL550«, t00=0x000e, t01=0x0116}
0x16fe…171c Head {h00=0x001a, h01=0x0050, text=» MOVE TTRECOPN,CRECBCD«, t00=0x000e, t01=0x0124}
0x171c…172e Head {h00=0x000e, h01=0x0050, text=» PERF ZERO«, t00=0x000e, t01=0x0142}
0x172e…1764 Head {h00=0x0032, h01=0x0050, text=» PERF TCONFW,TTASKNR STORE NEW INITIAL VALUES «, t00=0x000e, t01=0x0154}
0x1764…1778 Head {h00=0x0010, h01=0x0050, text=» PERF CONFWR«, t00=0x000e, t01=0x018a}
0x1778…178c Head {h00=0x0010, h01=0x0050, text=» BNOK TCL550«, t00=0x000f, t01=0x000e}
0x178c…17a2 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTKASSE«, t00=0x000f, t01=0x0022}
0x17a2…17b0 Head {h00=0x000a, h01=0x0050, text=»TCLRET«, t00=0x000f, t01=0x0038}
0x17b0…17ce Head {h00=0x001a, h01=0x0050, text=»* ZERONIZE COUNTERS «, t00=0x000f, t01=0x0046}
0x17ce…17ec Head {h00=0x001a, h01=0x0050, text=»* TRANS 12 COUNTERS «, t00=0x000f, t01=0x0064}
0x17ec…180a Head {h00=0x001a, h01=0x0050, text=» CMP CBIN0,CBIN0 DUMMY«, t00=0x000f, t01=0x0082}
0x180a…1816 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000f, t01=0x00a0}
0x1816…1826 Head {h00=0x000c, h01=0x0050, text=»TCLNOK10«, t00=0x000f, t01=0x00ac}
0x1826…1834 Head {h00=0x000a, h01=0x0050, text=»TCLMAK«, t00=0x000f, t01=0x00bc}
0x1834…184c Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x000f, t01=0x00ca}
0x184c…1858 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000f, t01=0x00e2}
0x1858…1866 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000f, t01=0x00ee}
0x1866…1874 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x00fc}
0x1874…1882 Head {h00=0x000a, h01=0x0050, text=»RGA200«, t00=0x000f, t01=0x010a}
0x1882…18ba Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x000f, t01=0x0118}
0x18ba…18c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0150}
0x18c4…18fc Head {h00=0x0034, h01=0x0050, text=»* PERFORM OF SELECTED ADM ROUTINE«, t00=0x000f, t01=0x015a}
0x18fc…1906 (16, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0004}
0x1906…1940 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0010, t01=0x000e}
0x1940…194a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0048}
0x194a…1968 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD3 «, t00=0x0010, t01=0x0052}
0x1968…1982 Head {h00=0x0016, h01=0x0050, text=» PERF ADM,GSWBIN1 «, t00=0x0010, t01=0x0070}
0x1982…1992 Head {h00=0x000c, h01=0x0050, text=» B RGADM«, t00=0x0010, t01=0x008a}
0x1992…19a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x009a}
0x19a0…19b2 Head {h00=0x000e, h01=0x0050, text=»ZERO PROC «, t00=0x0010, t01=0x00a8}
0x19b2…19bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ba}
0x19bc…19da Head {h00=0x001a, h01=0x0050, text=»* ZERONIZE COUNTERS «, t00=0x0010, t01=0x00c4}
0x19da…19f8 Head {h00=0x001a, h01=0x0050, text=»* TRANS 12 COUNTERS «, t00=0x0010, t01=0x00e2}
0x19f8…1a22 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN1,CTR12(TTASKNR,CBIN1)«, t00=0x0010, t01=0x0100}
0x1a22…1a40 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN2,GSWBIN1 «, t00=0x0010, t01=0x012a}
0x1a40…1a6a Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN2,CTR12(TTASKNR,CBIN2) «, t00=0x0010, t01=0x0148}
0x1a6a…1a78 Head {h00=0x000a, h01=0x0050, text=»TCL610«, t00=0x0010, t01=0x0172}
0x1a78…1a92 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x0010, t01=0x0180}
0x1a92…1ab6 Head {h00=0x0020, h01=0x0050, text=» CBG GSWBIN1,GSWBIN2,TCL615 «, t00=0x0011, t01=0x000a}
0x1ab6…1ae0 Head {h00=0x0026, h01=0x0050, text=» MOVE C12ACC(GSWBIN1,CBIN1),=D'0' «, t00=0x0011, t01=0x002e}
0x1ae0…1b0a Head {h00=0x0026, h01=0x0050, text=» MOVE C12ACC(GSWBIN1,CBIN2),=D'0' «, t00=0x0011, t01=0x0058}
0x1b0a…1b1c Head {h00=0x000e, h01=0x0050, text=» B TCL610 «, t00=0x0011, t01=0x0082}
0x1b1c…1b2a Head {h00=0x000a, h01=0x0050, text=»TCL615«, t00=0x0011, t01=0x0094}
0x1b2a…1b42 Head {h00=0x0014, h01=0x0050, text=»* ACCUMULATORS«, t00=0x0011, t01=0x00a2}
0x1b42…1b5e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x0011, t01=0x00ba}
0x1b5e…1b6c Head {h00=0x000a, h01=0x0050, text=»TCL620«, t00=0x0011, t01=0x00d6}
0x1b6c…1b86 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x0011, t01=0x00e4}
0x1b86…1bae Head {h00=0x0024, h01=0x0050, text=» MOVE TTACC(GSWBIN1,CBIN1),=D'0'«, t00=0x0011, t01=0x00fe}
0x1bae…1bd6 Head {h00=0x0024, h01=0x0050, text=» MOVE TTACC(GSWBIN1,CBIN2),=D'0'«, t00=0x0011, t01=0x0126}
0x1bd6…1bf8 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBIN1,CBIN8,TCL620 «, t00=0x0011, t01=0x014e}
0x1bf8…1c04 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0011, t01=0x0170}
0x1c04…1c12 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0011, t01=0x017c}
0x1c12…1c20 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x018a}
0x1c20…1c32 Head {h00=0x000e, h01=0x0050, text=»CLEJ PROC «, t00=0x0012, t01=0x0008}
0x1c32…1c70 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0012, t01=0x001a}
0x1c70…1c7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0058}
0x1c7a…1cac Head {h00=0x002e, h01=0x0050, text=»* NOW ALL ACCUMULATORS NOT = 0«, t00=0x0012, t01=0x0062}
0x1cac…1cd6 Head {h00=0x0026, h01=0x0050, text=»* HAS BEEN REGISTRATED«, t00=0x0012, t01=0x0094}
0x1cd6…1d0c Head {h00=0x0032, h01=0x0050, text=»* A VOUCHER PRINT OF ALL TR12 ACC «, t00=0x0012, t01=0x00be}
0x1d0c…1d32 Head {h00=0x0022, h01=0x0050, text=»* IS NOW PERFORMED«, t00=0x0012, t01=0x00f4}
0x1d32…1d3c Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0012, t01=0x011a}
0x1d3c…1d7c Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0012, t01=0x0124}
0x1d7c…1d98 Head {h00=0x0018, h01=0x0050, text=» MOVE TTLINNR,=D'25'«, t00=0x0012, t01=0x0164}
0x1d98…1dc0 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR20,='EJ-EDB T[LLER '«, t00=0x0012, t01=0x0180}
0x1dc0…1df0 Head {h00=0x002c, h01=0x0050, text=» CBE CTR12(TTASKNR,CBIN2),CBIN0,TCLEJRET«, t00=0x0013, t01=0x0018}
0x1df0…1e0a Head {h00=0x0016, h01=0x0050, text=» PERF WAHEAD,CBIN8«, t00=0x0013, t01=0x0048}
0x1e0a…1e26 Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD1,=D'0' «, t00=0x0013, t01=0x0062}
0x1e26…1e34 Head {h00=0x000a, h01=0x0050, text=»TCL110«, t00=0x0013, t01=0x007e}
0x1e34…1e4e Head {h00=0x0016, h01=0x0050, text=» ADD GTWBCD1,=D'1'«, t00=0x0013, t01=0x008c}
0x1e4e…1e74 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBIN5,GTWBCD1 CONVERT «, t00=0x0013, t01=0x00a6}
0x1e74…1ea4 Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN5,CTR12(TTASKNR,CBIN2),TCL200«, t00=0x0013, t01=0x00cc}
0x1ea4…1ece Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN5,CTR12(TTASKNR,CBIN1) «, t00=0x0013, t01=0x00fc}
0x1ece…1f00 Head {h00=0x002e, h01=0x0050, text=» MOVE GTDUPF(CBIN4),C12ACC(GSWBIN5,CBIN1) «, t00=0x0013, t01=0x0126}
0x1f00…1f30 Head {h00=0x002c, h01=0x0050, text=» ADD GTDUPF(CBIN4),C12ACC(GSWBIN5,CBIN2)«, t00=0x0013, t01=0x0158}
0x1f30…1f5c Head {h00=0x0028, h01=0x0050, text=» MOVE GTDUPF(CBIN1),CTR12NR(GSWBIN5)«, t00=0x0013, t01=0x0188}
0x1f5c…1f84 Head {h00=0x0024, h01=0x0050, text=» CBE GTDUPF(CBIN1),=D'0',TCL110 «, t00=0x0014, t01=0x0024}
0x1f84…1fa6 Head {h00=0x001e, h01=0x0050, text=» CBG TTLINNR,=D'0',TCL190 «, t00=0x0014, t01=0x004c}
0x1fa6…1fc0 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0014, t01=0x006e}
0x1fc0…1fdc Head {h00=0x0018, h01=0x0050, text=» MOVE TTLINNR,=D'25'«, t00=0x0014, t01=0x0088}
0x1fdc…1ff6 Head {h00=0x0016, h01=0x0050, text=» PERF WAHEAD,CBIN8«, t00=0x0014, t01=0x00a4}
0x1ff6…2004 Head {h00=0x000a, h01=0x0050, text=»TCL190«, t00=0x0014, t01=0x00be}
0x2004…201e Head {h00=0x0016, h01=0x0050, text=» PERF WALINE,CBIN9«, t00=0x0014, t01=0x00cc}
0x201e…2030 Head {h00=0x000e, h01=0x0050, text=» B TCL110 «, t00=0x0014, t01=0x00e6}
0x2030…203e Head {h00=0x000a, h01=0x0050, text=»TCL200«, t00=0x0014, t01=0x00f8}
0x203e…2058 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0014, t01=0x0106}
0x2058…2068 Head {h00=0x000c, h01=0x0050, text=»TCLEJRET«, t00=0x0014, t01=0x0120}
0x2068…2074 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0014, t01=0x0130}
0x2074…2082 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0014, t01=0x013c}
0x2082…2090 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x014a}
0x2090…20a2 Head {h00=0x000e, h01=0x0050, text=»CLEDB PROC«, t00=0x0014, t01=0x0158}
0x20a2…20ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x016a}
0x20ac…20e0 Head {h00=0x0030, h01=0x0050, text=»* WRITING OF DISC JOURNAL AND VOUCHER «, t00=0x0014, t01=0x0174}
0x20e0…20ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0018}
0x20ea…2112 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR20,=C'EDB-T[LLERE ' «, t00=0x0015, t01=0x0022}
0x2112…212c Head {h00=0x0016, h01=0x0050, text=» PERF WRITJT,=W'6'«, t00=0x0015, t01=0x004a}
0x212c…2146 Head {h00=0x0016, h01=0x0050, text=» PERF WAHEAD,CBIN8«, t00=0x0015, t01=0x0064}
0x2146…2162 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'0' «, t00=0x0015, t01=0x007e}
0x2162…218a Head {h00=0x0024, h01=0x0050, text=» MOVE GTREGF(CBIN1),=D'0' TOTAL «, t00=0x0015, t01=0x009a}
0x218a…21ac Head {h00=0x001e, h01=0x0050, text=» MOVE GTREGF(CBIN2),=D'0' «, t00=0x0015, t01=0x00c2}
0x21ac…21ba Head {h00=0x000a, h01=0x0050, text=»TCL240«, t00=0x0015, t01=0x00e4}
0x21ba…21d6 Head {h00=0x0018, h01=0x0050, text=» TBT GTSPGFLG,TCL242«, t00=0x0015, t01=0x00f2}
0x21d6…21f2 Head {h00=0x0018, h01=0x0050, text=» MOVE GTREGNR,=D'11'«, t00=0x0015, t01=0x010e}
0x21f2…2200 Head {h00=0x000a, h01=0x0050, text=»TCL242«, t00=0x0015, t01=0x012a}
0x2200…221a Head {h00=0x0016, h01=0x0050, text=» ADD GSWBCD5,=D'1'«, t00=0x0015, t01=0x0138}
0x221a…2228 Head {h00=0x000a, h01=0x0050, text=»TCL245«, t00=0x0015, t01=0x0152}
0x2228…2246 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,GSWBCD5 «, t00=0x0015, t01=0x0160}
0x2246…2268 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN5,CBIN6,TCL300 «, t00=0x0015, t01=0x017e}
0x2268…2298 Head {h00=0x002c, h01=0x0050, text=» ADD GTREGF(CBIN1),TTACC(GSWBIN5,CBIN1) «, t00=0x0016, t01=0x0010}
0x2298…22c8 Head {h00=0x002c, h01=0x0050, text=» ADD GTREGF(CBIN2),TTACC(GSWBIN5,CBIN2) «, t00=0x0016, t01=0x0040}
0x22c8…22ea Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN4),CBIN0 «, t00=0x0016, t01=0x0070}
0x22ea…231a Head {h00=0x002c, h01=0x0050, text=» MOVE GTDUPF(CBIN4),TTACC(GSWBIN5,CBIN1)«, t00=0x0016, t01=0x0092}
0x231a…234a Head {h00=0x002c, h01=0x0050, text=» ADD GTDUPF(CBIN4),TTACC(GSWBIN5,CBIN2) «, t00=0x0016, t01=0x00c2}
0x234a…237a Head {h00=0x002c, h01=0x0050, text=» MOVE GTDUPF(CBIN6),TTACC(GSWBIN5,CBIN1)«, t00=0x0016, t01=0x00f2}
0x237a…23b0 Head {h00=0x0032, h01=0x0050, text=» MOVE GTDUPF(CBIN5),TTACC(GSWBIN5,CBIN2) DEBET«, t00=0x0016, t01=0x0122}
0x23b0…23cc Head {h00=0x0018, h01=0x0050, text=» TBT GTSPGFLG,TCL290«, t00=0x0016, t01=0x0158}
0x23cc…23f0 Head {h00=0x0020, h01=0x0050, text=» MOVE GTUSED(CBIN6),=W'-53' «, t00=0x0016, t01=0x0174}
0x23f0…2414 Head {h00=0x0020, h01=0x0050, text=» MOVE GTUSED(CBIN5),=W'-52' «, t00=0x0017, t01=0x0008}
0x2414…2438 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN1),GSWBCD5 «, t00=0x0017, t01=0x002c}
0x2438…245a Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN1),=W'50'«, t00=0x0017, t01=0x0050}
0x245a…248a Head {h00=0x002c, h01=0x0050, text=» MOVE GTDUPF(CBIN2),=D'2' MARK FOR TOTAL«, t00=0x0017, t01=0x0072}
0x248a…24ac Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN2),=W'51'«, t00=0x0017, t01=0x00a2}
0x24ac…24be Head {h00=0x000e, h01=0x0050, text=» PERF CRKJ«, t00=0x0017, t01=0x00c4}
0x24be…24cc Head {h00=0x000a, h01=0x0050, text=»TCL250«, t00=0x0017, t01=0x00d6}
0x24cc…24e0 Head {h00=0x0010, h01=0x0050, text=» PERF WRITFD«, t00=0x0017, t01=0x00e4}
0x24e0…24f4 Head {h00=0x0010, h01=0x0050, text=» BNOK TCL250«, t00=0x0017, t01=0x00f8}
0x24f4…2502 Head {h00=0x000a, h01=0x0050, text=»TCL290«, t00=0x0017, t01=0x010c}
0x2502…2528 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBIN5,GSWBCD5 RESTORE «, t00=0x0017, t01=0x011a}
0x2528…2546 Head {h00=0x001a, h01=0x0050, text=» MOVE GTWBCD1,GSWBCD5 «, t00=0x0017, t01=0x0140}
0x2546…2560 Head {h00=0x0016, h01=0x0050, text=» PERF WRITJT,=W'7'«, t00=0x0017, t01=0x015e}
0x2560…257c Head {h00=0x0018, h01=0x0050, text=» PERF WALINE,CBIN10 «, t00=0x0017, t01=0x0178}
0x257c…258e (24, 0, 400) Head {h00=0x000e, h01=0x0050, text=» B TCL240 «, t00=0x0018, t01=0x0004}
0x258e…259c Head {h00=0x000a, h01=0x0050, text=»TCL300«, t00=0x0018, t01=0x0016}
0x259c…25b0 Head {h00=0x0010, h01=0x0050, text=» PERF PACKCL«, t00=0x0018, t01=0x0024}
0x25b0…25da Head {h00=0x0026, h01=0x0050, text=» MOVE GTDUPF(CBIN4),GTREGF(CBIN1) «, t00=0x0018, t01=0x0038}
0x25da…2602 Head {h00=0x0024, h01=0x0050, text=» ADD GTDUPF(CBIN4),GTREGF(CBIN2)«, t00=0x0018, t01=0x0062}
0x2602…2630 Head {h00=0x002a, h01=0x0050, text=» MOVE GTDUPF(CBIN5),TTACC(CBIN8,CBIN1)«, t00=0x0018, t01=0x008a}
0x2630…265e Head {h00=0x002a, h01=0x0050, text=» ADD GTDUPF(CBIN5),TTACC(CBIN8,CBIN2) «, t00=0x0018, t01=0x00b8}
0x265e…267a Head {h00=0x0018, h01=0x0050, text=» PERF WALINE,CBIN11 «, t00=0x0018, t01=0x00e6}
0x267a…26a8 Head {h00=0x002a, h01=0x0050, text=» MOVE GTDUPF(CBIN5),TTACC(CBIN1,CBIN1)«, t00=0x0018, t01=0x0102}
0x26a8…26d6 Head {h00=0x002a, h01=0x0050, text=» MOVE GTDUPF(CBIN6),TTACC(CBIN1,CBIN2)«, t00=0x0018, t01=0x0130}
0x26d6…26f2 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x0018, t01=0x015e}
0x26f2…2700 Head {h00=0x000a, h01=0x0050, text=»TCL310«, t00=0x0018, t01=0x017a}
0x2700…271a Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x0018, t01=0x0188}
0x271a…273c Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,CBIN4,TCL320 «, t00=0x0019, t01=0x0012}
0x273c…276c Head {h00=0x002c, h01=0x0050, text=» ADD GTDUPF(CBIN5),TTACC(GSWBIN1,CBIN1) «, t00=0x0019, t01=0x0034}
0x276c…279c Head {h00=0x002c, h01=0x0050, text=» ADD GTDUPF(CBIN6),TTACC(GSWBIN1,CBIN2) «, t00=0x0019, t01=0x0064}
0x279c…27ae Head {h00=0x000e, h01=0x0050, text=» B TCL310 «, t00=0x0019, t01=0x0094}
0x27ae…27bc Head {h00=0x000a, h01=0x0050, text=»TCL320«, t00=0x0019, t01=0x00a6}
0x27bc…27d8 Head {h00=0x0018, h01=0x0050, text=» TBT GTSPGFLG,TCL329«, t00=0x0019, t01=0x00b4}
0x27d8…2804 Head {h00=0x0028, h01=0x0050, text=»* ADJUST FOR 'KASSE INDBERETNING' «, t00=0x0019, t01=0x00d0}
0x2804…2820 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD1,TTCASH«, t00=0x0019, t01=0x00fc}
0x2820…283e Head {h00=0x001a, h01=0x0050, text=» SUB GSWBCD1,TTSTCASH «, t00=0x0019, t01=0x0118}
0x283e…2860 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD1,=D'0',TCL323 «, t00=0x0019, t01=0x0136}
0x2860…2882 Head {h00=0x001e, h01=0x0050, text=» SUB GTDUPF(CBIN6),GSWBCD1«, t00=0x0019, t01=0x0158}
0x2882…2894 Head {h00=0x000e, h01=0x0050, text=» B TCL325 «, t00=0x0019, t01=0x017a}
0x2894…28a2 Head {h00=0x000a, h01=0x0050, text=»TCL323«, t00=0x0019, t01=0x018c}
0x28a2…28c4 Head {h00=0x001e, h01=0x0050, text=» SUB GTDUPF(CBIN5),GSWBCD1«, t00=0x001a, t01=0x000a}
0x28c4…28d2 Head {h00=0x000a, h01=0x0050, text=»TCL325«, t00=0x001a, t01=0x002c}
0x28d2…28fe Head {h00=0x0028, h01=0x0050, text=»* ADJUST FOR 'VERSUR INDBERETNING'«, t00=0x001a, t01=0x003a}
0x28fe…2926 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD1,TTACC(CBIN6,CBIN1)«, t00=0x001a, t01=0x0066}
0x2926…294e Head {h00=0x0024, h01=0x0050, text=» ADD GSWBCD1,TTACC(CBIN6,CBIN2) «, t00=0x001a, t01=0x008e}
0x294e…2970 Head {h00=0x001e, h01=0x0050, text=» MUL GSWBCD1,=D'-1' 'VEND'«, t00=0x001a, t01=0x00b6}
0x2970…2992 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD1,=D'0',TCL328 «, t00=0x001a, t01=0x00d8}
0x2992…29b4 Head {h00=0x001e, h01=0x0050, text=» SUB GTDUPF(CBIN6),GSWBCD1«, t00=0x001a, t01=0x00fa}
0x29b4…29c6 Head {h00=0x000e, h01=0x0050, text=» B TCL329 «, t00=0x001a, t01=0x011c}
0x29c6…29d4 Head {h00=0x000a, h01=0x0050, text=»TCL328«, t00=0x001a, t01=0x012e}
0x29d4…29f6 Head {h00=0x001e, h01=0x0050, text=» SUB GTDUPF(CBIN5),GSWBCD1«, t00=0x001a, t01=0x013c}
0x29f6…2a04 Head {h00=0x000a, h01=0x0050, text=»TCL329«, t00=0x001a, t01=0x015e}
0x2a04…2a26 Head {h00=0x001e, h01=0x0050, text=» MUL GTDUPF(CBIN5),=D'-1' «, t00=0x001a, t01=0x016c}
0x2a26…2a48 Head {h00=0x001e, h01=0x0050, text=» MUL GTDUPF(CBIN6),=D'-1' «, t00=0x001a, t01=0x018e}
0x2a48…2a64 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD1,TTCASH«, t00=0x001b, t01=0x0020}
0x2a64…2a82 Head {h00=0x001a, h01=0x0050, text=» SUB GSWBCD1,TTSTCASH «, t00=0x001b, t01=0x003c}
0x2a82…2aa6 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN4),GSWBCD1 «, t00=0x001b, t01=0x005a}
0x2aa6…2ac2 Head {h00=0x0018, h01=0x0050, text=» PERF WALINE,CBIN12 «, t00=0x001b, t01=0x007e}
0x2ac2…2adc Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x001b, t01=0x009a}
0x2adc…2ae8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001b, t01=0x00b4}
0x2ae8…2af6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001b, t01=0x00c0}
0x2af6…2b04 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x00ce}
0x2b04…2b16 Head {h00=0x000e, h01=0x0050, text=»CLBEH PROC«, t00=0x001b, t01=0x00dc}
0x2b16…2b20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00ee}
0x2b20…2b3e Head {h00=0x001a, h01=0x0050, text=»* BEHOLDNINGST[LLERE «, t00=0x001b, t01=0x00f8}
0x2b3e…2b48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0116}
0x2b48…2b56 Head {h00=0x000a, h01=0x0050, text=»TCL400«, t00=0x001b, t01=0x0120}
0x2b56…2b72 Head {h00=0x0018, h01=0x0050, text=» MOVE TTLINNR,=D'25'«, t00=0x001b, t01=0x012e}
0x2b72…2b9c Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN2,CBEH(TTASKNR,CBIN2) «, t00=0x001b, t01=0x014a}
0x2b9c…2bb6 Head {h00=0x0016, h01=0x0050, text=» CMP GSWBIN2,CBIN0«, t00=0x001b, t01=0x0174}
0x2bb6…2bca Head {h00=0x0010, h01=0x0050, text=» BE CLBEHRET«, t00=0x001b, t01=0x018e}
0x2bca…2bf2 Head {h00=0x0024, h01=0x0050, text=» ADD GSWBIN2,CBEH(TTASKNR,CBIN1)«, t00=0x001c, t01=0x0012}
0x2bf2…2c10 Head {h00=0x001a, h01=0x0050, text=» MOVE GTWBCD2,GSWBIN2 «, t00=0x001c, t01=0x003a}
0x2c10…2c1e Head {h00=0x000a, h01=0x0050, text=»TCL405«, t00=0x001c, t01=0x0058}
0x2c1e…2c36 Head {h00=0x0014, h01=0x0050, text=» ATTFMT CLFRM04 «, t00=0x001c, t01=0x0066}
0x2c36…2c4c Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x001c, t01=0x007e}
0x2c4c…2c60 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x001c, t01=0x0094}
0x2c60…2c78 Head {h00=0x0014, h01=0x0050, text=» IB SPBINW2, C «, t00=0x001c, t01=0x00a8}
0x2c78…2ca8 Head {h00=0x002c, h01=0x0050, text=» TCL415,TCL415,TCL412,TCL411,TCL415, C«, t00=0x001c, t01=0x00c0}
0x2ca8…2cd8 Head {h00=0x002c, h01=0x0050, text=» TCL415,TCL415,TCL415,TCL413,TCL415, C«, t00=0x001c, t01=0x00f0}
0x2cd8…2cf6 Head {h00=0x001a, h01=0x0050, text=» TCL415,TCL415,TCL413«, t00=0x001c, t01=0x0120}
0x2cf6…2d04 Head {h00=0x000a, h01=0x0050, text=»TCL415«, t00=0x001c, t01=0x013e}
0x2d04…2d16 Head {h00=0x000e, h01=0x0050, text=» B TCL400 «, t00=0x001c, t01=0x014c}
0x2d16…2d24 Head {h00=0x000a, h01=0x0050, text=»TCL411«, t00=0x001c, t01=0x015e}
0x2d24…2d40 Head {h00=0x0018, h01=0x0050, text=» TBT GTSPGFLG,TCL400«, t00=0x001c, t01=0x016c}
0x2d40…2d66 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWSTR20,=C'SLET SALDO '«, t00=0x001c, t01=0x0188}
0x2d66…2d82 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN6,CBIN1 «, t00=0x001d, t01=0x001e}
0x2d82…2d94 Head {h00=0x000e, h01=0x0050, text=» B TCL420 «, t00=0x001d, t01=0x003a}
0x2d94…2da2 Head {h00=0x000a, h01=0x0050, text=»TCL412«, t00=0x001d, t01=0x004c}
0x2da2…2dbe Head {h00=0x0018, h01=0x0050, text=» TBT GTSPGFLG,TCL400«, t00=0x001d, t01=0x005a}
0x2dbe…2de6 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR20,=C'SLET PERIODE '«, t00=0x001d, t01=0x0076}
0x2de6…2e02 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN6,CBIN2 «, t00=0x001d, t01=0x009e}
0x2e02…2e14 Head {h00=0x000e, h01=0x0050, text=» B TCL420 «, t00=0x001d, t01=0x00ba}
0x2e14…2e22 Head {h00=0x000a, h01=0x0050, text=»TCL413«, t00=0x001d, t01=0x00cc}
0x2e22…2e46 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR20,=C'SUBTOTAL '«, t00=0x001d, t01=0x00da}
0x2e46…2e62 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN6,CBIN3 «, t00=0x001d, t01=0x00fe}
0x2e62…2e74 Head {h00=0x000e, h01=0x0050, text=» B TCL420 «, t00=0x001d, t01=0x011a}
0x2e74…2e82 Head {h00=0x000a, h01=0x0050, text=»TCL420«, t00=0x001d, t01=0x012c}
0x2e82…2e9e Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD1,=D'0' «, t00=0x001d, t01=0x013a}
0x2e9e…2eba Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,=D'0' «, t00=0x001d, t01=0x0156}
0x2eba…2ed6 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'0' «, t00=0x001d, t01=0x0172}
0x2ed6…2ee4 Head {h00=0x000a, h01=0x0050, text=»TCL425«, t00=0x001d, t01=0x018e}
0x2ee4…2ef8 Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x001e, t01=0x000c}
0x2ef8…2f16 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN3,CVOUTOP «, t00=0x001e, t01=0x0020}
0x2f16…2f30 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN3,CBIN6«, t00=0x001e, t01=0x003e}
0x2f30…2f50 Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN3«, t00=0x001e, t01=0x0058}
0x2f50…2f64 Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x001e, t01=0x0078}
0x2f64…2f90 Head {h00=0x0028, h01=0x0050, text=» PERF FRMXVO,CBIN13 HEAD ON VOUCHER «, t00=0x001e, t01=0x008c}
0x2f90…2fae Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x001e, t01=0x00b8}
0x2fae…2fbc Head {h00=0x000a, h01=0x0050, text=»TCL430«, t00=0x001e, t01=0x00d6}
0x2fbc…2fd6 Head {h00=0x0016, h01=0x0050, text=» ADD GTWBCD1,=D'1'«, t00=0x001e, t01=0x00e4}
0x2fd6…2ff4 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN3,GTWBCD1 «, t00=0x001e, t01=0x00fe}
0x2ff4…301c Head {h00=0x0024, h01=0x0050, text=» ADD GSWBIN3,CBEH(TTASKNR,CBIN1)«, t00=0x001e, t01=0x011c}
0x301c…303a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,GTWBCD2 «, t00=0x001e, t01=0x0144}
0x303a…305e Head {h00=0x0020, h01=0x0050, text=» CBG GSWBIN3,GSWBIN4,TCL490 «, t00=0x001e, t01=0x0162}
0x305e…308c Head {h00=0x002a, h01=0x0050, text=» CBE CBACC(GSWBIN3,CBIN1),=D'0',TCL430«, t00=0x001e, t01=0x0186}
0x308c…30ba Head {h00=0x002a, h01=0x0050, text=»* ADD TO TOTAL, PERIODE AND SALDO «, t00=0x001f, t01=0x0024}
0x30ba…30ec Head {h00=0x002e, h01=0x0050, text=» ADD GSWBCD6,CBACC(GSWBIN3,CBIN2) PERIODE «, t00=0x001f, t01=0x0052}
0x30ec…311c Head {h00=0x002c, h01=0x0050, text=» ADD GSWBCD7,CBACC(GSWBIN3,CBIN3) SALDO «, t00=0x001f, t01=0x0084}
0x311c…3138 Head {h00=0x0018, h01=0x0050, text=» PERF FRMXVO,CBIN14 «, t00=0x001f, t01=0x00b4}
0x3138…3156 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x001f, t01=0x00d0}
0x3156…3172 Head {h00=0x0018, h01=0x0050, text=» TBT GTTESTFL,TCL433«, t00=0x001f, t01=0x00ee}
0x3172…319a Head {h00=0x0024, h01=0x0050, text=» IB GSWBIN6,TCL431,TCL432,TCL433«, t00=0x001f, t01=0x010a}
0x319a…31ac Head {h00=0x000e, h01=0x0050, text=» B TCL433 «, t00=0x001f, t01=0x0132}
0x31ac…31ba Head {h00=0x000a, h01=0x0050, text=»TCL431«, t00=0x001f, t01=0x0144}
0x31ba…31e8 Head {h00=0x002a, h01=0x0050, text=» MOVE CBACC(GSWBIN3,CBIN3),=D'0' SALDO«, t00=0x001f, t01=0x0152}
0x31e8…31f6 Head {h00=0x000a, h01=0x0050, text=»TCL432«, t00=0x001f, t01=0x0180}
0x31f6…3226 Head {h00=0x002c, h01=0x0050, text=» MOVE CBACC(GSWBIN3,CBIN2),=D'0' PERIODE«, t00=0x001f, t01=0x018e}
0x3226…3234 Head {h00=0x000a, h01=0x0050, text=»TCL433«, t00=0x0020, t01=0x002e}
0x3234…324e Head {h00=0x0016, h01=0x0050, text=» SUB TTLINNR,=D'1'«, t00=0x0020, t01=0x003c}
0x324e…3270 Head {h00=0x001e, h01=0x0050, text=» CBG TTLINNR,=D'0',TCL430 «, t00=0x0020, t01=0x0056}
0x3270…328a Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0020, t01=0x0078}
0x328a…32a6 Head {h00=0x0018, h01=0x0050, text=» MOVE TTLINNR,=D'25'«, t00=0x0020, t01=0x0092}
0x32a6…32b8 Head {h00=0x000e, h01=0x0050, text=» B TCL425 «, t00=0x0020, t01=0x00ae}
0x32b8…32c6 Head {h00=0x000a, h01=0x0050, text=»TCL490«, t00=0x0020, t01=0x00c0}
0x32c6…32e4 Head {h00=0x001a, h01=0x0050, text=»* WRITE TOTAL LINE«, t00=0x0020, t01=0x00ce}
0x32e4…3300 Head {h00=0x0018, h01=0x0050, text=» PERF FRMXVO,CBIN18 «, t00=0x0020, t01=0x00ec}
0x3300…331e Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x0020, t01=0x0108}
0x331e…3338 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0020, t01=0x0126}
0x3338…3348 Head {h00=0x000c, h01=0x0050, text=»CLBEHRET«, t00=0x0020, t01=0x0140}
0x3348…3354 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0020, t01=0x0150}
0x3354…3362 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0020, t01=0x015c}
0x3362…336a Head {h00=0x0004, h01=0x0050, t00=0x0020, t01=0x016a}
0x336a…3372 Head {h00=0x0004, h01=0x0050, t00=0x0020, t01=0x0172}
0x3372…3380 Head {h00=0x000a, h01=0x0050, text=»RGA300«, t00=0x0020, t01=0x017a}
0x3380…339c Head {h00=0x0018, h01=0x0050, text=» PERF ADM,CBIN11 SPG«, t00=0x0020, t01=0x0188}
0x339c…33ac Head {h00=0x000c, h01=0x0050, text=» B RGADM«, t00=0x0021, t01=0x0014}
0x33ac…33b4 Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x0024}
0x33b4…33ee Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0021, t01=0x002c}
0x33ee…33f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0066}
0x33f8…342a Head {h00=0x002e, h01=0x0050, text=»* TR2GEN GENERATES A TRANSACTION 2«, t00=0x0021, t01=0x0070}
0x342a…3434 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00a2}
0x3434…3470 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0021, t01=0x00ac}
0x3470…3488 Head {h00=0x0014, h01=0x0050, text=»TR2GEN PROC DBKR«, t00=0x0021, t01=0x00e8}
0x3488…34b2 Head {h00=0x0026, h01=0x0050, text=» CLEAR GTSPECTR NOT SPECIAL TRANS «, t00=0x0021, t01=0x0100}
0x34b2…34cc Head {h00=0x0016, h01=0x0050, text=» MOVE TTDKDEX,DBKR«, t00=0x0021, t01=0x012a}
0x34cc…34f0 Head {h00=0x0020, h01=0x0050, text=» CBNE TTDKDEX,=W'0',TR2DBKR «, t00=0x0021, t01=0x0144}
0x34f0…350c Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKDEX,CBIN1 «, t00=0x0021, t01=0x0168}
0x350c…3534 Head {h00=0x0024, h01=0x0050, text=» CBL GTDUPF(CBIN4),=D'0',TR2DBKR«, t00=0x0021, t01=0x0184}
0x3534…3550 Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKDEX,CBIN2 «, t00=0x0022, t01=0x001c}
0x3550…3560 Head {h00=0x000c, h01=0x0050, text=»TR2DBKR «, t00=0x0022, t01=0x0038}
0x3560…3584 Head {h00=0x0020, h01=0x0050, text=» PERFI TTDKDEX,SETKRE,SETDEB«, t00=0x0022, t01=0x0048}
0x3584…35a2 Head {h00=0x001a, h01=0x0050, text=» EDWRT SCREEN,CLFRM02 «, t00=0x0022, t01=0x006c}
0x35a2…35b4 Head {h00=0x000e, h01=0x0050, text=» PERF SLUT«, t00=0x0022, t01=0x008a}
0x35b4…35c0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0022, t01=0x009c}
0x35c0…35ce Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0022, t01=0x00a8}
0x35ce…35d6 Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x00b6}
0x35d6…3616 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0022, t01=0x00be}
0x3616…3620 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00fe}
0x3620…3660 Head {h00=0x003c, h01=0x0050, text=»* WAHEAD - GRASP AND WRITE HEADLINE ON VOUCHER «, t00=0x0022, t01=0x0108}
0x3660…366a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0148}
0x366a…36aa Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0022, t01=0x0152}
0x36aa…36c4 (35, 0, 400) Head {h00=0x0016, h01=0x0050, text=»WAHEAD PROC VOXDEX«, t00=0x0023, t01=0x0004}
0x36c4…36e2 Head {h00=0x001a, h01=0x0050, text=» EDWRT SCREEN,CLFRM03 «, t00=0x0023, t01=0x001e}
0x36e2…3702 Head {h00=0x001c, h01=0x0050, text=» PERF SPLIN8,CBIN5,CBIN2«, t00=0x0023, t01=0x003c}
0x3702…3716 Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x0023, t01=0x005c}
0x3716…3736 Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,CVOUTOP«, t00=0x0023, t01=0x0070}
0x3736…374a Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0023, t01=0x0090}
0x374a…3766 Head {h00=0x0018, h01=0x0050, text=» PERF FRMXVO,VOXDEX «, t00=0x0023, t01=0x00a4}
0x3766…3784 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x0023, t01=0x00c0}
0x3784…3790 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0023, t01=0x00de}
0x3790…379e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0023, t01=0x00ea}
0x379e…37a6 Head {h00=0x0004, h01=0x0050, t00=0x0023, t01=0x00f8}
0x37a6…37e8 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0023, t01=0x0100}
0x37e8…37f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0142}
0x37f2…381e Head {h00=0x0028, h01=0x0050, text=»* WALINE WRITE ACCUMULATORLINE«, t00=0x0023, t01=0x014c}
0x381e…3828 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0178}
0x3828…386a Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0023, t01=0x0182}
0x386a…3884 Head {h00=0x0016, h01=0x0050, text=»WALINE PROC LINDEX«, t00=0x0024, t01=0x0034}
0x3884…38a0 Head {h00=0x0018, h01=0x0050, text=» PERF FRMXVO,LINDEX «, t00=0x0024, t01=0x004e}
0x38a0…38be Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x0024, t01=0x006a}
0x38be…38d8 Head {h00=0x0016, h01=0x0050, text=» SUB TTLINNR,=D'1'«, t00=0x0024, t01=0x0088}
0x38d8…38e4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0024, t01=0x00a2}
0x38e4…38f2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0024, t01=0x00ae}
0x38f2…38fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00bc}
0x38fc…390a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x00c6}
0x390a…391c Head {h00=0x000e, h01=0x0050, text=»SKIFT PROC«, t00=0x0024, t01=0x00d4}
0x391c…393e Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0024, t01=0x00e6}
0x393e…3948 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0108}
0x3948…3986 Head {h00=0x003a, h01=0x0050, text=»* SKIFT - THIS PROCEDURE TAKES HAND OF SHIFT«, t00=0x0024, t01=0x0112}
0x3986…39b6 Head {h00=0x002c, h01=0x0050, text=»* OF DISKS, IS ACTIVATED AFTER «, t00=0x0024, t01=0x0150}
0x39b6…39d0 Head {h00=0x0016, h01=0x0050, text=»* 12 ADM «, t00=0x0024, t01=0x0180}
0x39d0…39da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x000a}
0x39da…39fa Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0025, t01=0x0014}
0x39fa…3a14 Head {h00=0x0016, h01=0x0050, text=» PERF WAITF,CPFLG «, t00=0x0025, t01=0x0034}
0x3a14…3a2a Head {h00=0x0012, h01=0x0050, text=» SET CSKIFTWN «, t00=0x0025, t01=0x004e}
0x3a2a…3a5c Head {h00=0x002e, h01=0x0050, text=» PERF SPLIN8,CBIN8,CBIN2 'DISKETTE SKIFT' «, t00=0x0025, t01=0x0064}
0x3a5c…3a74 Head {h00=0x0014, h01=0x0050, text=» TBF CWFLAG,SK15«, t00=0x0025, t01=0x0096}
0x3a74…3a8e Head {h00=0x0016, h01=0x0050, text=» SUB CRECBCD,=D'1'«, t00=0x0025, t01=0x00ae}
0x3a8e…3ac0 Head {h00=0x002e, h01=0x0050, text=» PERF SLUTID,CPCKBUF,CRECBCD WRITE 'SLUTD'«, t00=0x0025, t01=0x00c8}
0x3ac0…3aee Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR«, t00=0x0025, t01=0x00fa}
0x3aee…3af6 Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x0128}
0x3af6…3b02 Head {h00=0x0008, h01=0x0050, text=»SK11«, t00=0x0025, t01=0x0130}
0x3b02…3b2a Head {h00=0x0024, h01=0x0050, text=» TBF CBCACTVF,SK15 NOT ACTIVE DC«, t00=0x0025, t01=0x013c}
0x3b2a…3b52 Head {h00=0x0024, h01=0x0050, text=» TBT CBCSENDF,SK13 SENDING NOW? «, t00=0x0025, t01=0x0164}
0x3b52…3b82 Head {h00=0x002c, h01=0x0050, text=» CBNL CBCFROM,CRECNR,SK15 NO, ALL SEND? «, t00=0x0025, t01=0x018c}
0x3b82…3b9e Head {h00=0x0018, h01=0x0050, text=»SK13 NOT ALL SEND «, t00=0x0026, t01=0x002c}
0x3b9e…3bc2 Head {h00=0x0020, h01=0x0050, text=» MOVE CBCOPT,CBIN4 SEND REST«, t00=0x0026, t01=0x0048}
0x3bc2…3bde Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'30'«, t00=0x0026, t01=0x006c}
0x3bde…3bf4 Head {h00=0x0012, h01=0x0050, text=» DELAY GSWBIN1«, t00=0x0026, t01=0x0088}
0x3bf4…3c04 Head {h00=0x000c, h01=0x0050, text=» B SK11 «, t00=0x0026, t01=0x009e}
0x3c04…3c0c Head {h00=0x0004, h01=0x0050, t00=0x0026, t01=0x00ae}
0x3c0c…3c18 Head {h00=0x0008, h01=0x0050, text=»SK15«, t00=0x0026, t01=0x00b6}
0x3c18…3c50 Head {h00=0x0034, h01=0x0050, text=» PERF WRITID,CPCKBUF,CBIN2,CBIN2 'DISKETTESKIFT'«, t00=0x0026, t01=0x00c2}
0x3c50…3c6a Head {h00=0x0016, h01=0x0050, text=» PERF CLSVOL,CBIN2«, t00=0x0026, t01=0x00fa}
0x3c6a…3c88 Head {h00=0x001a, h01=0x0050, text=» PERF LAMPOF,=W'2047' «, t00=0x0026, t01=0x0114}
0x3c88…3ca2 Head {h00=0x0016, h01=0x0050, text=» ADD CVOLNO,=D'1' «, t00=0x0026, t01=0x0132}
0x3ca2…3cc8 Head {h00=0x0022, h01=0x0050, text=» PERF CNFWRT REWRITE CONFDATA «, t00=0x0026, t01=0x014c}
0x3cc8…3ce8 Head {h00=0x001c, h01=0x0050, text=» CBL CREGVOL,=W'2',SK120«, t00=0x0026, t01=0x0172}
0x3ce8…3d1c (39, 0, 400) Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBIN2,CBIN6 COMPUTE NOW OUTPUTVOLUME«, t00=0x0027, t01=0x0004}
0x3d1c…3d38 Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN2,CREGVOL«, t00=0x0027, t01=0x0038}
0x3d38…3d56 Head {h00=0x001a, h01=0x0050, text=» MOVE CREGVOL,GSWBIN2 «, t00=0x0027, t01=0x0054}
0x3d56…3d82 Head {h00=0x0028, h01=0x0050, text=» PERF ASGVOL,CBIN2 TRY TO ASSIGN IT «, t00=0x0027, t01=0x0072}
0x3d82…3d9c Head {h00=0x0016, h01=0x0050, text=» BNOK SK120 ERROR «, t00=0x0027, t01=0x009e}
0x3d9c…3dac Head {h00=0x000c, h01=0x0050, text=» B SK124«, t00=0x0027, t01=0x00b8}
0x3dac…3dba Head {h00=0x000a, h01=0x0050, text=»SK120 «, t00=0x0027, t01=0x00c8}
0x3dba…3dde Head {h00=0x0020, h01=0x0050, text=» PERF LAMPON,=W'512' LAMP 2 «, t00=0x0027, t01=0x00d6}
0x3dde…3df2 Head {h00=0x0010, h01=0x0050, text=» PERF SOPRD «, t00=0x0027, t01=0x00fa}
0x3df2…3e14 Head {h00=0x001e, h01=0x0050, text=» CBNE GSWBIN2,CBIN9,SK120 «, t00=0x0027, t01=0x010e}
0x3e14…3e2e Head {h00=0x0016, h01=0x0050, text=» PERF ASGFIL,CBIN2«, t00=0x0027, t01=0x0130}
0x3e2e…3e42 Head {h00=0x0010, h01=0x0050, text=» BNOK SK120 «, t00=0x0027, t01=0x014a}
0x3e42…3e50 Head {h00=0x000a, h01=0x0050, text=»SK124 «, t00=0x0027, t01=0x015e}
0x3e50…3e6e Head {h00=0x001a, h01=0x0050, text=» PERF LAMPOF,=W'2047' «, t00=0x0027, t01=0x016c}
0x3e6e…3e88 Head {h00=0x0016, h01=0x0050, text=» MOVE CRECNR,CBIN1«, t00=0x0027, t01=0x018a}
0x3e88…3ea4 Head {h00=0x0018, h01=0x0050, text=» MOVE CRECBCD,=D'0' «, t00=0x0028, t01=0x0014}
0x3ea4…3ebe Head {h00=0x0016, h01=0x0050, text=» TBF CWFLAG,SK130 «, t00=0x0028, t01=0x0030}
0x3ebe…3ed2 Head {h00=0x0010, h01=0x0050, text=» PERF STRTWR«, t00=0x0028, t01=0x004a}
0x3ed2…3ee4 Head {h00=0x000e, h01=0x0050, text=» BOK SK130«, t00=0x0028, t01=0x005e}
0x3ee4…3efe Head {h00=0x0016, h01=0x0050, text=» PERF CLSVOL,CBIN2«, t00=0x0028, t01=0x0070}
0x3efe…3f0e Head {h00=0x000c, h01=0x0050, text=» B SK120«, t00=0x0028, t01=0x008a}
0x3f0e…3f1c Head {h00=0x000a, h01=0x0050, text=»SK130 «, t00=0x0028, t01=0x009a}
0x3f1c…3f36 Head {h00=0x0016, h01=0x0050, text=» TBF CWFLAG,SK150 «, t00=0x0028, t01=0x00a8}
0x3f36…3f52 Head {h00=0x0018, h01=0x0050, text=» MOVE CRECBCD,=D'1' «, t00=0x0028, t01=0x00c2}
0x3f52…3f7a Head {h00=0x0024, h01=0x0050, text=» PERF WRITID,CPCKBUF,CBIN2,CBIN1«, t00=0x0028, t01=0x00de}
0x3f7a…3f88 Head {h00=0x000a, h01=0x0050, text=»SK150 «, t00=0x0028, t01=0x0106}
0x3f88…3f9c Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0028, t01=0x0114}
0x3f9c…3fb8 Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'11' «, t00=0x0028, t01=0x0128}
0x3fb8…3fd2 Head {h00=0x0016, h01=0x0050, text=» PERF WRITLO,CBIN5«, t00=0x0028, t01=0x0144}
0x3fd2…3fea Head {h00=0x0014, h01=0x0050, text=» CLEAR CSKIFTFL «, t00=0x0028, t01=0x015e}
0x3fea…4002 Head {h00=0x0014, h01=0x0050, text=» CLEAR CSKIFTWN «, t00=0x0028, t01=0x0176}
0x4002…4022 Head {h00=0x001c, h01=0x0050, text=» CLEAR CPFLG DISC FREE «, t00=0x0028, t01=0x018e}
0x4022…402a Head {h00=0x0004, h01=0x0050, t00=0x0029, t01=0x001e}
0x402a…4046 Head {h00=0x0018, h01=0x0050, text=» TBF CBCACTVF,SK900 «, t00=0x0029, t01=0x0026}
0x4046…4060 Head {h00=0x0016, h01=0x0050, text=» MOVE CBCOPT,CBIN1«, t00=0x0029, t01=0x0042}
0x4060…408c Head {h00=0x0028, h01=0x0050, text=» MOVE CBCFROM,CBIN0 SEND FROM START «, t00=0x0029, t01=0x005c}
0x408c…409a Head {h00=0x000a, h01=0x0050, text=»SK900 «, t00=0x0029, t01=0x0088}
0x409a…40a2 Head {h00=0x0004, h01=0x0050, t00=0x0029, t01=0x0096}
0x40a2…40ae Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0029, t01=0x009e}
0x40ae…40bc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0029, t01=0x00aa}
0x40bc…40ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x00b8}
0x40ca…40d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00c6}
0x40d4…40ec Head {h00=0x0014, h01=0x0050, text=»LAMPON PROC $NR «, t00=0x0029, t01=0x00d0}
0x40ec…40fe Head {h00=0x000e, h01=0x0050, text=» PLIT $NR «, t00=0x0029, t01=0x00e8}
0x40fe…412c Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0029, t01=0x00fa}
0x412c…4136 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0128}
0x4136…4162 Head {h00=0x0028, h01=0x0050, text=»* LAMPON - FIRE LAMPS ON OPR. PANEL.«, t00=0x0029, t01=0x0132}
0x4162…4184 Head {h00=0x001e, h01=0x0050, text=»* CALL - PERF LAMPON,<$NR>«, t00=0x0029, t01=0x015e}
0x4184…418e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0180}
0x418e…41cc Head {h00=0x003a, h01=0x0050, text=»* THE LAMPS ARE FIRED CORRESPONDING TO 1-BITS IN PARAM«, t00=0x0029, t01=0x018a}
0x41cc…41d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0038}
0x41d6…4208 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x002a, t01=0x0042}
0x4208…4222 Head {h00=0x0016, h01=0x0050, text=» MOVE GSWBIN2,$NR «, t00=0x002a, t01=0x0074}
0x4222…4242 Head {h00=0x001c, h01=0x0050, text=» DSC1 DSSOPO,ON,GSWBIN2 «, t00=0x002a, t01=0x008e}
0x4242…424e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002a, t01=0x00ae}
0x424e…425c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002a, t01=0x00ba}
0x425c…4266 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00c8}
0x4266…427e Head {h00=0x0014, h01=0x0050, text=»LAMPOF PROC $NR «, t00=0x002a, t01=0x00d2}
0x427e…4290 Head {h00=0x000e, h01=0x0050, text=» PLIT $NR «, t00=0x002a, t01=0x00ea}
0x4290…42c2 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x002a, t01=0x00fc}
0x42c2…42cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x012e}
0x42cc…42fe Head {h00=0x002e, h01=0x0050, text=»* LAMPOF - EXTINGUISH LAMPS ON OPR. PANEL «, t00=0x002a, t01=0x0138}
0x42fe…4320 Head {h00=0x001e, h01=0x0050, text=»* CALL - PERF LAMPOF,<$NR>«, t00=0x002a, t01=0x016a}
0x4320…432a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x018c}
0x432a…4370 Head {h00=0x0042, h01=0x0050, text=»* THE LAMPS ARE EXTINGHUISHED CORRESPONDING TO 1-BITS IN PARAM«, t00=0x002b, t01=0x0008}
0x4370…437a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x004e}
0x437a…43ae Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x002b, t01=0x0058}
0x43ae…43c8 Head {h00=0x0016, h01=0x0050, text=» MOVE GSWBIN2,$NR «, t00=0x002b, t01=0x008c}
0x43c8…43e8 Head {h00=0x001c, h01=0x0050, text=» DSC1 DSSOPO,OFF,GSWBIN2«, t00=0x002b, t01=0x00a6}
0x43e8…43f4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002b, t01=0x00c6}
0x43f4…4402 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002b, t01=0x00d2}
0x4402…440c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00e0}
0x440c…441e Head {h00=0x000e, h01=0x0050, text=»SOPRD PROC«, t00=0x002b, t01=0x00ea}
0x441e…4454 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x002b, t01=0x00fc}
0x4454…445e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0132}
0x445e…448c Head {h00=0x002a, h01=0x0050, text=»* SOPRD - READ SYSTEMS OPERATOR PANEL «, t00=0x002b, t01=0x013c}
0x448c…4496 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x016a}
0x4496…44cc Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x002b, t01=0x0174}
0x44cc…44da Head {h00=0x000a, h01=0x0050, text=»SOPR10«, t00=0x002c, t01=0x001a}
0x44da…44f6 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x002c, t01=0x0028}
0x44f6…4526 Head {h00=0x002c, h01=0x0050, text=» KI DSSOPI,SOPINP,DUMTAB,GSWBIN1,GSWBIN2«, t00=0x002c, t01=0x0044}
0x4526…453a Head {h00=0x0010, h01=0x0050, text=» BNOK SOPR10«, t00=0x002c, t01=0x0074}
0x453a…4546 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002c, t01=0x0088}
0x4546…4554 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002c, t01=0x0094}
0x4554…455e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00a2}
0x455e…4566 Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x00ac}
0x4566…457a Head {h00=0x0010, h01=0x0050, text=»STRTWR PROC «, t00=0x002c, t01=0x00b4}
0x457a…4598 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x002c, t01=0x00c8}
0x4598…45a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00e6}
0x45a2…45dc Head {h00=0x0036, h01=0x0050, text=»* STRTWR - SET UP AND WRITE START RECORD «, t00=0x002c, t01=0x00f0}
0x45dc…45e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x012a}
0x45e6…45f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0134}
0x45f0…4610 Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x002c, t01=0x013e}
0x4610…462c Head {h00=0x0018, h01=0x0050, text=» PERF STRTID,CVOLNO «, t00=0x002c, t01=0x015e}
0x462c…465a Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR«, t00=0x002c, t01=0x017a}
0x465a…4670 Head {h00=0x0012, h01=0x0050, text=» BNOK STRTNOK «, t00=0x002d, t01=0x0018}
0x4670…468a Head {h00=0x0016, h01=0x0050, text=» ADD CRECNR,CBIN1 «, t00=0x002d, t01=0x002e}
0x468a…46b0 Head {h00=0x0022, h01=0x0050, text=» PERF RADEL,DK02,CRECNR,=D'2' «, t00=0x002d, t01=0x0048}
0x46b0…46c6 Head {h00=0x0012, h01=0x0050, text=» BNOK STRTNOK «, t00=0x002d, t01=0x006e}
0x46c6…46e2 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x002d, t01=0x0084}
0x46e2…46ee Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002d, t01=0x00a0}
0x46ee…46fe Head {h00=0x000c, h01=0x0050, text=»STRTNOK «, t00=0x002d, t01=0x00ac}
0x46fe…4716 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x002d, t01=0x00bc}
0x4716…4722 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002d, t01=0x00d4}
0x4722…4730 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002d, t01=0x00e0}
0x4730…4738 Head {h00=0x0004, h01=0x0050, t00=0x002d, t01=0x00ee}
0x4738…4752 Head {h00=0x0016, h01=0x0050, text=»STRTID PROC VOLID «, t00=0x002d, t01=0x00f6}
0x4752…476e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002d, t01=0x0110}
0x476e…4778 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x012c}
0x4778…47b6 Head {h00=0x003a, h01=0x0050, text=»* STRTID - SETS UP A START ID IN PACK BUFFER«, t00=0x002d, t01=0x0136}
0x47b6…47c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0174}
0x47c0…47e4 Head {h00=0x0020, h01=0x0050, text=»* CALL - PERF STRTID,<VOLID>«, t00=0x002d, t01=0x017e}
0x47e4…47ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0012}
0x47ee…480a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002e, t01=0x001c}
0x480a…481e Head {h00=0x0010, h01=0x0050, text=» SET CSWFLAG«, t00=0x002e, t01=0x0038}
0x481e…4842 Head {h00=0x0020, h01=0x0050, text=» CBE CRECLGD,=W'128',STRT10 «, t00=0x002e, t01=0x004c}
0x4842…4858 Head {h00=0x0012, h01=0x0050, text=» CLEAR CSWFLAG«, t00=0x002e, t01=0x0070}
0x4858…4866 Head {h00=0x000a, h01=0x0050, text=»STRT10«, t00=0x002e, t01=0x0086}
0x4866…4882 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN6,CBIN2 «, t00=0x002e, t01=0x0094}
0x4882…48a0 Head {h00=0x001a, h01=0x0050, text=» EDIT CPCKBUF,PCKINIT «, t00=0x002e, t01=0x00b0}
0x48a0…48be Head {h00=0x001a, h01=0x0050, text=» EDIT CPCKBUF,STARTFR «, t00=0x002e, t01=0x00ce}
0x48be…48da Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,VOLID «, t00=0x002e, t01=0x00ec}
0x48da…48f8 Head {h00=0x001a, h01=0x0050, text=» EDIT GSWSTR20,FRVOLID«, t00=0x002e, t01=0x0108}
0x48f8…4914 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'40'«, t00=0x002e, t01=0x0126}
0x4914…4948 Head {h00=0x0030, h01=0x0050, text=» COPY CPCKBUF,GSWBIN1,CBIN12,GSWSTR20,CBIN0 «, t00=0x002e, t01=0x0142}
0x4948…4958 Head {h00=0x000c, h01=0x0050, text=»STRTRET «, t00=0x002e, t01=0x0176}
0x4958…4964 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002e, t01=0x0186}
0x4964…4972 (47, 0, 400) Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002f, t01=0x0004}
0x4972…497a Head {h00=0x0004, h01=0x0050, t00=0x002f, t01=0x0012}
0x497a…4998 Head {h00=0x001a, h01=0x0050, text=»SLUTID PROC BUF,SLUTNO«, t00=0x002f, t01=0x001a}
0x4998…49b4 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002f, t01=0x0038}
0x49b4…49be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0054}
0x49be…49f4 Head {h00=0x0032, h01=0x0050, text=»* SLUTID - SETS UP A SLUTD IN BUFFER «, t00=0x002f, t01=0x005e}
0x49f4…49fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0094}
0x49fe…4a08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x009e}
0x4a08…4a24 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002f, t01=0x00a8}
0x4a24…4a38 Head {h00=0x0010, h01=0x0050, text=» SET CSWFLAG«, t00=0x002f, t01=0x00c4}
0x4a38…4a5c Head {h00=0x0020, h01=0x0050, text=» CBE CRECLGD,=W'128',SLUT10 «, t00=0x002f, t01=0x00d8}
0x4a5c…4a72 Head {h00=0x0012, h01=0x0050, text=» CLEAR CSWFLAG«, t00=0x002f, t01=0x00fc}
0x4a72…4a80 Head {h00=0x000a, h01=0x0050, text=»SLUT10«, t00=0x002f, t01=0x0112}
0x4a80…4a9a Head {h00=0x0016, h01=0x0050, text=» EDIT BUF,PCKINIT «, t00=0x002f, t01=0x0120}
0x4a9a…4ab6 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,SLUTNO«, t00=0x002f, t01=0x013a}
0x4ab6…4ad0 Head {h00=0x0016, h01=0x0050, text=» EDIT BUF,SLUTFRM «, t00=0x002f, t01=0x0156}
0x4ad0…4adc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002f, t01=0x0170}
0x4adc…4aea Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002f, t01=0x017c}
0x4aea…4af8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x018a}
0x4af8…4b10 Head {h00=0x0014, h01=0x0050, text=»BCKUP PROC $OPT «, t00=0x0030, t01=0x0008}
0x4b10…4b22 Head {h00=0x000e, h01=0x0050, text=» PLIT $OPT«, t00=0x0030, t01=0x0020}
0x4b22…4b3e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0030, t01=0x0032}
0x4b3e…4b48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x004e}
0x4b48…4b86 Head {h00=0x003a, h01=0x0050, text=»* THIS PROCEDURE TAKES CARE OF ADMINISTRATION«, t00=0x0030, t01=0x0058}
0x4b86…4ba2 Head {h00=0x0018, h01=0x0050, text=»* OB BACKUP«, t00=0x0030, t01=0x0096}
0x4ba2…4bac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00b2}
0x4bac…4be0 Head {h00=0x0030, h01=0x0050, text=»* CALL: PERF BCKUP,<=W'X'>«, t00=0x0030, t01=0x00bc}
0x4be0…4c0c Head {h00=0x0028, h01=0x0050, text=»* $OPT = 1 : WITHOUT BACKUP«, t00=0x0030, t01=0x00f0}
0x4c0c…4c36 Head {h00=0x0026, h01=0x0050, text=»* $OPT = 2 : WITH BACKUP «, t00=0x0030, t01=0x011c}
0x4c36…4c40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0146}
0x4c40…4c4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0150}
0x4c4a…4c66 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0030, t01=0x015a}
0x4c66…4c70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0176}
0x4c70…4c8a Head {h00=0x0016, h01=0x0050, text=» MOVE CRECNR,CBIN1«, t00=0x0030, t01=0x0180}
0x4c8a…4ca6 Head {h00=0x0018, h01=0x0050, text=» MOVE CRECBCD,=D'1' «, t00=0x0031, t01=0x000a}
0x4ca6…4cce Head {h00=0x0024, h01=0x0050, text=» ADD CVOLNO,=D'1' NEXT VOLUME NO«, t00=0x0031, t01=0x0026}
0x4cce…4cf8 Head {h00=0x0026, h01=0x0050, text=» PERF CNFWRT REWRITE CONFIGURATION«, t00=0x0031, t01=0x004e}
0x4cf8…4d12 Head {h00=0x0016, h01=0x0050, text=» SUB CVOLNO,=D'1' «, t00=0x0031, t01=0x0078}
0x4d12…4d3a Head {h00=0x0024, h01=0x0050, text=» CBE CBIN1,$OPT,BCK100 NO BACKUP«, t00=0x0031, t01=0x0092}
0x4d3a…4d44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00ba}
0x4d44…4d4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00c4}
0x4d4e…4d62 Head {h00=0x0010, h01=0x0050, text=»* BACKUP«, t00=0x0031, t01=0x00ce}
0x4d62…4d6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00e2}
0x4d6c…4d7a Head {h00=0x000a, h01=0x0050, text=»BCK000«, t00=0x0031, t01=0x00ec}
0x4d7a…4da2 Head {h00=0x0024, h01=0x0050, text=» PERF LAMPOF,=W'2047' LAMPS OFF «, t00=0x0031, t01=0x00fa}
0x4da2…4db0 Head {h00=0x000a, h01=0x0050, text=»BCK005«, t00=0x0031, t01=0x0122}
0x4db0…4dd4 Head {h00=0x0020, h01=0x0050, text=» PERF LAMPON,=W'1024' LAMP 1«, t00=0x0031, t01=0x0130}
0x4dd4…4df8 Head {h00=0x0020, h01=0x0050, text=» PERF LAMPON,=W'128' LAMP 4 «, t00=0x0031, t01=0x0154}
0x4df8…4e1a Head {h00=0x001e, h01=0x0050, text=» PERF LAMPON,=W'16' LAMP 7«, t00=0x0031, t01=0x0178}
0x4e1a…4e36 Head {h00=0x0018, h01=0x0050, text=» TBF CGLREGFL,BCK010«, t00=0x0032, t01=0x000a}
0x4e36…4e5a Head {h00=0x0020, h01=0x0050, text=» PERF LAMPON,=W'512' LAMP 2 «, t00=0x0032, t01=0x0026}
0x4e5a…4e68 Head {h00=0x000a, h01=0x0050, text=»BCK010«, t00=0x0032, t01=0x004a}
0x4e68…4e8a Head {h00=0x001e, h01=0x0050, text=» PERF SOPRD READ SOP LAMPS«, t00=0x0032, t01=0x0058}
0x4e8a…4ea2 Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN2, C «, t00=0x0032, t01=0x007a}
0x4ea2…4ed2 Head {h00=0x002c, h01=0x0050, text=» BSOP10,BSOP09,BSOP08,BSOP07,BSOP06, C«, t00=0x0032, t01=0x0092}
0x4ed2…4efe Head {h00=0x0028, h01=0x0050, text=» BSOP05,BSOP04,BSOP03,BSOP02,BSOP01«, t00=0x0032, t01=0x00c2}
0x4efe…4f0c Head {h00=0x000a, h01=0x0050, text=»BSOP03«, t00=0x0032, t01=0x00ee}
0x4f0c…4f1a Head {h00=0x000a, h01=0x0050, text=»BSOP05«, t00=0x0032, t01=0x00fc}
0x4f1a…4f28 Head {h00=0x000a, h01=0x0050, text=»BSOP06«, t00=0x0032, t01=0x010a}
0x4f28…4f36 Head {h00=0x000a, h01=0x0050, text=»BSOP08«, t00=0x0032, t01=0x0118}
0x4f36…4f44 Head {h00=0x000a, h01=0x0050, text=»BSOP09«, t00=0x0032, t01=0x0126}
0x4f44…4f52 Head {h00=0x000a, h01=0x0050, text=»BSOP10«, t00=0x0032, t01=0x0134}
0x4f52…4f70 Head {h00=0x001a, h01=0x0050, text=» B BCK010 OTHER LAMPS «, t00=0x0032, t01=0x0142}
0x4f70…4f7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0160}
0x4f7a…4f9a Head {h00=0x001c, h01=0x0050, text=»BSOP01 BACKUP FD999001«, t00=0x0032, t01=0x016a}
0x4f9a…4fc2 Head {h00=0x0024, h01=0x0050, text=» PERF LAMPOF,=W'2047' LAMPS OFF «, t00=0x0032, t01=0x018a}
0x4fc2…4fe6 Head {h00=0x0020, h01=0x0050, text=» PERF LAMPON,=W'1024' LAMP 1«, t00=0x0033, t01=0x0022}
0x4fe6…501e Head {h00=0x0034, h01=0x0050, text=» PERF BACKUP,DK01,=D'1',=W'32',CCONBUF0,=W'199' «, t00=0x0033, t01=0x0046}
0x501e…5032 Head {h00=0x0010, h01=0x0050, text=» BNOK BCK050«, t00=0x0033, t01=0x007e}
0x5032…504c Head {h00=0x0016, h01=0x0050, text=» ADD CVOLNO,=D'1' «, t00=0x0033, t01=0x0092}
0x504c…507e Head {h00=0x002e, h01=0x0050, text=» PERF WRITID,CPCKBUF,CBIN6,CBIN4 BACKUP OK«, t00=0x0033, t01=0x00ac}
0x507e…5098 Head {h00=0x0016, h01=0x0050, text=» SUB CVOLNO,=D'1' «, t00=0x0033, t01=0x00de}
0x5098…50d0 Head {h00=0x0034, h01=0x0050, text=» PERF CONRDX,CCONBUF0,CBIN1 RESTORE BUFFER AREA «, t00=0x0033, t01=0x00f8}
0x50d0…50e2 Head {h00=0x000e, h01=0x0050, text=» B BCK000 «, t00=0x0033, t01=0x0130}
0x50e2…50f0 Head {h00=0x000a, h01=0x0050, text=»BCK050«, t00=0x0033, t01=0x0142}
0x50f0…5128 Head {h00=0x0034, h01=0x0050, text=» PERF CONRDX,CCONBUF0,CBIN1 RESTORE BUFFER AREA «, t00=0x0033, t01=0x0150}
0x5128…513a Head {h00=0x000e, h01=0x0050, text=» B BCK005 «, t00=0x0033, t01=0x0188}
0x513a…5144 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x000a}
0x5144…516e Head {h00=0x0026, h01=0x0050, text=»BSOP02 COPY FD999002 TO FD999005«, t00=0x0034, t01=0x0014}
0x516e…5194 Head {h00=0x0022, h01=0x0050, text=» TBF CGLREGFL,BCK010 ALLOWED? «, t00=0x0034, t01=0x003e}
0x5194…51a4 Head {h00=0x000c, h01=0x0050, text=» B BCK02«, t00=0x0034, t01=0x0064}
0x51a4…51ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0074}
0x51ae…51bc Head {h00=0x000a, h01=0x0050, text=»***** «, t00=0x0034, t01=0x007e}
0x51bc…51e6 Head {h00=0x0026, h01=0x0050, text=»BCK02 COPY FD999002 TO FD999005 «, t00=0x0034, t01=0x008c}
0x51e6…520e Head {h00=0x0024, h01=0x0050, text=» PERF LAMPOF,=W'2047' LAMPS OFF «, t00=0x0034, t01=0x00b6}
0x520e…5232 Head {h00=0x0020, h01=0x0050, text=» PERF LAMPON,=W'512' LAMP 2 «, t00=0x0034, t01=0x00de}
0x5232…5244 Head {h00=0x000e, h01=0x0050, text=» SET CPFLG«, t00=0x0034, t01=0x0102}
0x5244…526c Head {h00=0x0024, h01=0x0050, text=» PERF ASGVOL,CBIN2 ASSIGN REGSET«, t00=0x0034, t01=0x0114}
0x526c…5282 Head {h00=0x0012, h01=0x0050, text=» BNOK BCK0290 «, t00=0x0034, t01=0x013c}
0x5282…529e Head {h00=0x0018, h01=0x0050, text=» MOVE CGLRECNR,CBIN0«, t00=0x0034, t01=0x0152}
0x529e…52ae Head {h00=0x000c, h01=0x0050, text=»BCK0250 «, t00=0x0034, t01=0x016e}
0x52ae…52ca Head {h00=0x0018, h01=0x0050, text=» ADD CGLRECNR,CBIN1 «, t00=0x0034, t01=0x017e}
0x52ca…52f8 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBIN1,=W'128' LENGTH OF RECORD«, t00=0x0035, t01=0x000a}
0x52f8…5330 Head {h00=0x0034, h01=0x0050, text=» PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,CGLRECNR«, t00=0x0035, t01=0x0038}
0x5330…534c Head {h00=0x0018, h01=0x0050, text=» BNOK BCK0270 ERROR «, t00=0x0035, t01=0x0070}
0x534c…5376 Head {h00=0x0026, h01=0x0050, text=» CBE GTWBCD1,=D'4',BCK0280 NO DATA«, t00=0x0035, t01=0x008c}
0x5376…5396 Head {h00=0x001c, h01=0x0050, text=» MOVE GSWSTR20,=C'SLUTD'«, t00=0x0035, t01=0x00b6}
0x5396…53b2 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0035, t01=0x00d6}
0x53b2…53ec Head {h00=0x0036, h01=0x0050, text=» MATCH GSWSTR20,GSWBIN5,CBIN5,CPCKBUF,CBIN0,CBIN5 «, t00=0x0035, t01=0x00f2}
0x53ec…5406 Head {h00=0x0016, h01=0x0050, text=» BE BCK0280 SLUTD «, t00=0x0035, t01=0x012c}
0x5406…5436 Head {h00=0x002c, h01=0x0050, text=» PERF RAWRIT,DK05,=D'5',CPCKBUF,CGLRECNR«, t00=0x0035, t01=0x0146}
0x5436…544a Head {h00=0x0010, h01=0x0050, text=» BOK BCK0250«, t00=0x0035, t01=0x0176}
0x544a…5462 Head {h00=0x0014, h01=0x0050, text=»BCK0270 ERROR «, t00=0x0035, t01=0x018a}
0x5462…5484 Head {h00=0x001e, h01=0x0050, text=» PERF LAMPON,=W'2' LAMP 10«, t00=0x0036, t01=0x0012}
0x5484…549c Head {h00=0x0014, h01=0x0050, text=»BCK0280 FINISH«, t00=0x0036, t01=0x0034}
0x549c…54ba Head {h00=0x001a, h01=0x0050, text=» MOVE TTGLREC,CGLRECNR«, t00=0x0036, t01=0x004c}
0x54ba…54ea Head {h00=0x002c, h01=0x0050, text=» PERF TCONFW,CBIN1 SAVE LAST RECORD NO. «, t00=0x0036, t01=0x006a}
0x54ea…54fa Head {h00=0x000c, h01=0x0050, text=»BCK0290 «, t00=0x0036, t01=0x009a}
0x54fa…550e Head {h00=0x0010, h01=0x0050, text=» CLEAR CPFLG«, t00=0x0036, t01=0x00aa}
0x550e…5536 Head {h00=0x0024, h01=0x0050, text=» DSC0 DK02,CLOSE CLOSE VOLUME 2 «, t00=0x0036, t01=0x00be}
0x5536…5548 Head {h00=0x000e, h01=0x0050, text=» B BCK02R «, t00=0x0036, t01=0x00e6}
0x5548…5552 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00f8}
0x5552…5560 Head {h00=0x000a, h01=0x0050, text=»***** «, t00=0x0036, t01=0x0102}
0x5560…556e Head {h00=0x000a, h01=0x0050, text=»BCK02R«, t00=0x0036, t01=0x0110}
0x556e…5580 Head {h00=0x000e, h01=0x0050, text=» B BCK000 «, t00=0x0036, t01=0x011e}
0x5580…558a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0130}
0x558a…55aa Head {h00=0x001c, h01=0x0050, text=»BSOP04 BACKUP FD999004«, t00=0x0036, t01=0x013a}
0x55aa…55d2 Head {h00=0x0024, h01=0x0050, text=» PERF LAMPOF,=W'2047' LAMPS OFF «, t00=0x0036, t01=0x015a}
0x55d2…55f6 Head {h00=0x0020, h01=0x0050, text=» PERF LAMPON,=W'128' LAMP 4 «, t00=0x0036, t01=0x0182}
0x55f6…562c Head {h00=0x0032, h01=0x0050, text=» PERF BACKUP,DK04,=D'4',=W'30',CKTBUF,=W'128' «, t00=0x0037, t01=0x0016}
0x562c…5644 Head {h00=0x0014, h01=0x0050, text=» BNOK BCK005 NOK«, t00=0x0037, t01=0x004c}
0x5644…5658 Head {h00=0x0010, h01=0x0050, text=» B BCK000 OK«, t00=0x0037, t01=0x0064}
0x5658…5662 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0078}
0x5662…567a Head {h00=0x0014, h01=0x0050, text=»BSOP07 FINISH «, t00=0x0037, t01=0x0082}
0x567a…56a2 Head {h00=0x0024, h01=0x0050, text=» PERF LAMPOF,=W'2047' LAMPS OFF «, t00=0x0037, t01=0x009a}
0x56a2…56d0 Head {h00=0x002a, h01=0x0050, text=» PERF ASGVOL,CBIN1 ASSIGN SYSTEM FILES«, t00=0x0037, t01=0x00c2}
0x56d0…56e4 Head {h00=0x0010, h01=0x0050, text=» BNOK BCKNOK«, t00=0x0037, t01=0x00f0}
0x56e4…56f2 Head {h00=0x000a, h01=0x0050, text=»BCK100«, t00=0x0037, t01=0x0104}
0x56f2…570c Head {h00=0x0016, h01=0x0050, text=» PERF ASGFIL,CBIN2«, t00=0x0037, t01=0x0112}
0x570c…5720 Head {h00=0x0010, h01=0x0050, text=» BNOK BCKNOK«, t00=0x0037, t01=0x012c}
0x5720…573a Head {h00=0x0016, h01=0x0050, text=» ADD CVOLNO,=D'1' «, t00=0x0037, t01=0x0140}
0x573a…574e Head {h00=0x0010, h01=0x0050, text=» PERF STRTWR«, t00=0x0037, t01=0x015a}
0x574e…5760 Head {h00=0x000e, h01=0x0050, text=» BOK BCKOK«, t00=0x0037, t01=0x016e}
0x5760…577a Head {h00=0x0016, h01=0x0050, text=» SUB CVOLNO,=D'1' «, t00=0x0037, t01=0x0180}
0x577a…579c Head {h00=0x001e, h01=0x0050, text=» PERF LAMPON,=W'2' LAMP 10«, t00=0x0038, t01=0x000a}
0x579c…57ae Head {h00=0x000e, h01=0x0050, text=» B BCKNOK «, t00=0x0038, t01=0x002c}
0x57ae…57b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x003e}
0x57b8…57c6 Head {h00=0x000a, h01=0x0050, text=»BCKNOK«, t00=0x0038, t01=0x0048}
0x57c6…57e2 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0038, t01=0x0056}
0x57e2…57ee Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0038, t01=0x0072}
0x57ee…57f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x007e}
0x57f8…5806 Head {h00=0x000a, h01=0x0050, text=»BCKOK «, t00=0x0038, t01=0x0088}
0x5806…582e Head {h00=0x0024, h01=0x0050, text=» PERF WRITID,CPCKBUF,CBIN2,CBIN1«, t00=0x0038, t01=0x0096}
0x582e…5846 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0038, t01=0x00be}
0x5846…5852 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0038, t01=0x00d6}
0x5852…5860 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0038, t01=0x00e2}
0x5860…586e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x00f0}
0x586e…5878 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00fe}
0x5878…5882 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0108}
0x5882…58bc Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0038, t01=0x0112}
0x58bc…58c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x014c}
0x58c6…58e0 Head {h00=0x0016, h01=0x0050, text=»* FORMATS «, t00=0x0038, t01=0x0156}
0x58e0…58ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0170}
0x58ea…5924 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0038, t01=0x017a}
0x5924…593e Head {h00=0x0016, h01=0x0050, text=»DUMTAB KTAB EORKY1«, t00=0x0039, t01=0x0024}
0x593e…5948 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x003e}
0x5948…595c Head {h00=0x0010, h01=0x0050, text=»FMTFKI FRMT «, t00=0x0039, t01=0x0048}
0x595c…5968 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0039, t01=0x005c}
0x5968…5976 Head {h00=0x000a, h01=0x0050, text=» FKI 1«, t00=0x0039, t01=0x0068}
0x5976…5990 Head {h00=0x0016, h01=0x0050, text=» FMEL 'B',TSWBCD2 «, t00=0x0039, t01=0x0076}
0x5990…599e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0039, t01=0x0090}
0x599e…59a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x009e}
0x59a8…59bc Head {h00=0x0010, h01=0x0050, text=»PCKINIT FRMT«, t00=0x0039, t01=0x00a8}
0x59bc…59d8 Head {h00=0x0018, h01=0x0050, text=» FBT CSWFLAG,INIT10 «, t00=0x0039, t01=0x00bc}
0x59d8…59ee Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',40 «, t00=0x0039, t01=0x00d8}
0x59ee…5a04 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',40 «, t00=0x0039, t01=0x00ee}
0x5a04…5a1c Head {h00=0x0014, h01=0x0050, text=» FILLR X'00',48 «, t00=0x0039, t01=0x0104}
0x5a1c…5a2a Head {h00=0x000a, h01=0x0050, text=» FEXIT«, t00=0x0039, t01=0x011c}
0x5a2a…5a38 Head {h00=0x000a, h01=0x0050, text=»INIT10«, t00=0x0039, t01=0x012a}
0x5a38…5a4e Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',40 «, t00=0x0039, t01=0x0138}
0x5a4e…5a64 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',40 «, t00=0x0039, t01=0x014e}
0x5a64…5a7a Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',48 «, t00=0x0039, t01=0x0164}
0x5a7a…5a88 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0039, t01=0x017a}
0x5a88…5a92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0188}
0x5a92…5aa6 (58, 0, 400) Head {h00=0x0010, h01=0x0050, text=»FRVOLID FRMT«, t00=0x003a, t01=0x0004}
0x5aa6…5ac6 Head {h00=0x001c, h01=0x0050, text=» FMEL '999999',CMASKDAT «, t00=0x003a, t01=0x0018}
0x5ac6…5ae4 Head {h00=0x001a, h01=0x0050, text=» FMEL 'B99999',GSWBCD3«, t00=0x003a, t01=0x0038}
0x5ae4…5af2 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x003a, t01=0x0056}
0x5af2…5afc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0064}
0x5afc…5b10 Head {h00=0x0010, h01=0x0050, text=»SLUTFRM FRMT«, t00=0x003a, t01=0x006e}
0x5b10…5b28 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'SLUTD'«, t00=0x003a, t01=0x0082}
0x5b28…5b46 Head {h00=0x001a, h01=0x0050, text=» FMEL '99999',GSWBCD3 «, t00=0x003a, t01=0x009a}
0x5b46…5b54 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x003a, t01=0x00b8}
0x5b54…5b5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00c6}
0x5b5e…5b72 Head {h00=0x0010, h01=0x0050, text=»STARTFR FRMT«, t00=0x003a, t01=0x00d0}
0x5b72…5b8a Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'Z300 '«, t00=0x003a, t01=0x00e4}
0x5b8a…5bb0 Head {h00=0x0022, h01=0x0050, text=» FMEL '9999',CKMDNR KOMMUNE NR«, t00=0x003a, t01=0x00fc}
0x5bb0…5bc6 Head {h00=0x0012, h01=0x0050, text=» FILLR C'2',1 «, t00=0x003a, t01=0x0122}
0x5bc6…5be2 Head {h00=0x0018, h01=0x0050, text=» FCOPY CVOL(GSWBIN6)«, t00=0x003a, t01=0x0138}
0x5be2…5c04 Head {h00=0x001e, h01=0x0050, text=» FMEL '999',CRELDAY DAG NR«, t00=0x003a, t01=0x0154}
0x5c04…5c26 Head {h00=0x001e, h01=0x0050, text=» FILLR C'1',1 MIXED TRANS «, t00=0x003a, t01=0x0176}
0x5c26…5c3a Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',6«, t00=0x003b, t01=0x0008}
0x5c3a…5c48 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x003b, t01=0x001c}
0x5c48…5c52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x002a}
0x5c52…5c66 Head {h00=0x0010, h01=0x0050, text=»ADFRM01 FRMT«, t00=0x003b, t01=0x0034}
0x5c66…5c72 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x003b, t01=0x0048}
0x5c72…5c8a Head {h00=0x0014, h01=0x0050, text=» FCOPY ='KLAR ' «, t00=0x003b, t01=0x0054}
0x5c8a…5ca2 Head {h00=0x0014, h01=0x0050, text=» FCOPY ='ADM ' «, t00=0x003b, t01=0x006c}
0x5ca2…5cc0 Head {h00=0x001a, h01=0x0050, text=» FKI 12,MINL=1,MAXL=2 «, t00=0x003b, t01=0x0084}
0x5cc0…5cda Head {h00=0x0016, h01=0x0050, text=» FMEL 'ZZ',GSWBCD3«, t00=0x003b, t01=0x00a2}
0x5cda…5ce8 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x003b, t01=0x00bc}
0x5ce8…5cf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00ca}
0x5cf2…5cfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00d4}
0x5cfc…5d10 Head {h00=0x0010, h01=0x0050, text=»OPENFRM FRMT«, t00=0x003b, t01=0x00de}
0x5d10…5d1c Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x003b, t01=0x00f2}
0x5d1c…5d34 Head {h00=0x0014, h01=0x0050, text=» FCOPY ='ADM ' «, t00=0x003b, t01=0x00fe}
0x5d34…5d50 Head {h00=0x0018, h01=0x0050, text=» FBT GTDYFLG,OPFR05 «, t00=0x003b, t01=0x0116}
0x5d50…5d60 Head {h00=0x000c, h01=0x0050, text=» FTAB 1 «, t00=0x003b, t01=0x0132}
0x5d60…5d7e Head {h00=0x001a, h01=0x0050, text=» FCOPY =C'KASSE]BNING'«, t00=0x003b, t01=0x0142}
0x5d7e…5d8c Head {h00=0x000a, h01=0x0050, text=»OPFR05«, t00=0x003b, t01=0x0160}
0x5d8c…5d98 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x003b, t01=0x016e}
0x5d98…5db4 Head {h00=0x0018, h01=0x0050, text=» FBF GTMASTFL,OPFR10«, t00=0x003b, t01=0x017a}
0x5db4…5dd0 Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'DAGS-DATO'«, t00=0x003c, t01=0x0008}
0x5dd0…5e02 Head {h00=0x002e, h01=0x0050, text=» FKI 11,MINL=6,MAXL=6,ME,SCHK=2,REWRT,NCLR«, t00=0x003c, t01=0x0024}
0x5e02…5e26 Head {h00=0x0020, h01=0x0050, text=» FMEL '99E-99E-99',CMASKDAT «, t00=0x003c, t01=0x0056}
0x5e26…5e32 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x003c, t01=0x007a}
0x5e32…5e4c Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'DAG NR' «, t00=0x003c, t01=0x0086}
0x5e4c…5e76 Head {h00=0x0026, h01=0x0050, text=» FKI 11,MINL=1,MAXL=3,ME,APPL=102 «, t00=0x003c, t01=0x00a0}
0x5e76…5e92 Head {h00=0x0018, h01=0x0050, text=» FMEL 'ZZZ',CRELDAY «, t00=0x003c, t01=0x00ca}
0x5e92…5e9e Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x003c, t01=0x00e6}
0x5e9e…5eac Head {h00=0x000a, h01=0x0050, text=»OPFR10«, t00=0x003c, t01=0x00f2}
0x5eac…5ec8 Head {h00=0x0018, h01=0x0050, text=» FCOPY ='POST-DATO' «, t00=0x003c, t01=0x0100}
0x5ec8…5efe Head {h00=0x0032, h01=0x0050, text=» FKI 11,MINL=6,MAXL=6,ME,SCHK=2,REWRT,APPL=107«, t00=0x003c, t01=0x011c}
0x5efe…5f20 Head {h00=0x001e, h01=0x0050, text=» FMEL '99E-99E-99',GTDATO «, t00=0x003c, t01=0x0152}
0x5f20…5f2e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x003c, t01=0x0174}
0x5f2e…5f38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0182}
0x5f38…5f4c Head {h00=0x0010, h01=0x0050, text=»CLFRM01 FRMT«, t00=0x003c, t01=0x018c}
0x5f4c…5f58 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x003d, t01=0x0010}
0x5f58…5f78 Head {h00=0x001c, h01=0x0050, text=» FCOPY =C'KASSELUKNING' «, t00=0x003d, t01=0x001c}
0x5f78…5f8e Head {h00=0x0012, h01=0x0050, text=» FILLR X'07',1«, t00=0x003d, t01=0x003c}
0x5f8e…5fa4 Head {h00=0x0012, h01=0x0050, text=» FLINK FMTFKI «, t00=0x003d, t01=0x0052}
0x5fa4…5fb2 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x003d, t01=0x0068}
0x5fb2…5fbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0076}
0x5fbc…5fd0 Head {h00=0x0010, h01=0x0050, text=»CLFRM02 FRMT«, t00=0x003d, t01=0x0080}
0x5fd0…5fe4 Head {h00=0x0010, h01=0x0050, text=» FILLR '1',2«, t00=0x003d, t01=0x0094}
0x5fe4…6004 Head {h00=0x001c, h01=0x0050, text=» FCOPY =C'KASSELUKNING' «, t00=0x003d, t01=0x00a8}
0x6004…6010 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x003d, t01=0x00c8}
0x6010…602c Head {h00=0x0018, h01=0x0050, text=» FCOPY GSWSTR20 TEXT«, t00=0x003d, t01=0x00d4}
0x602c…6052 Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZ',GTWBCD1 COUNTER NR «, t00=0x003d, t01=0x00f0}
0x6052…6066 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',4«, t00=0x003d, t01=0x0116}
0x6066…6084 Head {h00=0x001a, h01=0x0050, text=» FCOPY GTDBKRC DEB-KRE«, t00=0x003d, t01=0x012a}
0x6084…6090 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x003d, t01=0x0148}
0x6090…60aa Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'KONTONR'«, t00=0x003d, t01=0x0154}
0x60aa…60be Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',5«, t00=0x003d, t01=0x016e}
0x60be…60d4 Head {h00=0x0012, h01=0x0050, text=» FLINK FBELOB «, t00=0x003d, t01=0x0182}
0x60d4…60e0 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x003e, t01=0x0008}
0x60e0…610a Head {h00=0x0026, h01=0x0050, text=» FMEL '99999999E-99',GTDUPF(CBIN1)«, t00=0x003e, t01=0x0014}
0x610a…613c Head {h00=0x002e, h01=0x0050, text=» FMEL 'BTTT.TTT.TTT.TT9.99-',GTDUPF(CBIN4)«, t00=0x003e, t01=0x003e}
0x613c…614a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x003e, t01=0x0070}
0x614a…6154 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x007e}
0x6154…6168 Head {h00=0x0010, h01=0x0050, text=»CLFRM03 FRMT«, t00=0x003e, t01=0x0088}
0x6168…617c Head {h00=0x0010, h01=0x0050, text=» FILLR '1',2«, t00=0x003e, t01=0x009c}
0x617c…619a Head {h00=0x001a, h01=0x0050, text=» FBT GTSPGFLG,CLF0301 «, t00=0x003e, t01=0x00b0}
0x619a…61ba Head {h00=0x001c, h01=0x0050, text=» FCOPY =C'KASSELUKNING' «, t00=0x003e, t01=0x00ce}
0x61ba…61ca Head {h00=0x000c, h01=0x0050, text=»CLF0301 «, t00=0x003e, t01=0x00ee}
0x61ca…61d6 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x003e, t01=0x00fe}
0x61d6…61ee Head {h00=0x0014, h01=0x0050, text=» FCOPY GSWSTR20 «, t00=0x003e, t01=0x010a}
0x61ee…61fc Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x003e, t01=0x0122}
0x61fc…6206 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0130}
0x6206…621a Head {h00=0x0010, h01=0x0050, text=»CLFRM04 FRMT«, t00=0x003e, t01=0x013a}
0x621a…6226 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x003e, t01=0x014e}
0x6226…6244 Head {h00=0x001a, h01=0x0050, text=» FBT GTSPGFLG,CLF0401 «, t00=0x003e, t01=0x015a}
0x6244…6262 Head {h00=0x001a, h01=0x0050, text=» FCOPY ='KASSELUKNING'«, t00=0x003e, t01=0x0178}
0x6262…6272 Head {h00=0x000c, h01=0x0050, text=»CLF0401 «, t00=0x003f, t01=0x0008}
0x6272…627e Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x003f, t01=0x0018}
0x627e…62a2 Head {h00=0x0020, h01=0x0050, text=» FCOPY ='BEHOLDNINGST[LLERE'«, t00=0x003f, t01=0x0024}
0x62a2…62ae Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x003f, t01=0x0048}
0x62ae…62ba Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x003f, t01=0x0054}
0x62ba…62d8 Head {h00=0x001a, h01=0x0050, text=» FBT GTSPGFLG,CLF0402 «, t00=0x003f, t01=0x0060}
0x62d8…62f8 Head {h00=0x001c, h01=0x0050, text=» FCOPY ='SLET PERIODE ' «, t00=0x003f, t01=0x007e}
0x62f8…6308 Head {h00=0x000c, h01=0x0050, text=» FTAB 15«, t00=0x003f, t01=0x009e}
0x6308…631e Head {h00=0x0012, h01=0x0050, text=» FCOPY =' DEB'«, t00=0x003f, t01=0x00ae}
0x631e…632a Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x003f, t01=0x00c4}
0x632a…6348 Head {h00=0x001a, h01=0x0050, text=» FCOPY ='SLET SALDO ' «, t00=0x003f, t01=0x00d0}
0x6348…6358 Head {h00=0x000c, h01=0x0050, text=» FTAB 15«, t00=0x003f, t01=0x00ee}
0x6358…636e Head {h00=0x0012, h01=0x0050, text=» FCOPY =' KRE'«, t00=0x003f, t01=0x00fe}
0x636e…637e Head {h00=0x000c, h01=0x0050, text=»CLF0402 «, t00=0x003f, t01=0x0114}
0x637e…638a Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x003f, t01=0x0124}
0x638a…63a6 Head {h00=0x0018, h01=0x0050, text=» FCOPY ='SUBTOTAL ' «, t00=0x003f, t01=0x0130}
0x63a6…63b6 Head {h00=0x000c, h01=0x0050, text=» FTAB 16«, t00=0x003f, t01=0x014c}
0x63b6…63cc Head {h00=0x0012, h01=0x0050, text=» FCOPY ='KVIT'«, t00=0x003f, t01=0x015c}
0x63cc…63d8 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x003f, t01=0x0172}
0x63d8…63e4 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x003f, t01=0x017e}
0x63e4…63f0 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x003f, t01=0x018a}
0x63f0…6404 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0040, t01=0x0008}
0x6404…641c Head {h00=0x0014, h01=0x0050, text=» FCOPY ='BILAG' «, t00=0x0040, t01=0x001c}
0x641c…6432 Head {h00=0x0012, h01=0x0050, text=» FLINK FMTFKI «, t00=0x0040, t01=0x0034}
0x6432…6440 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0040, t01=0x004a}
0x6440…644a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0058}
0x644a…6454 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0062}
0x6454…6468 Head {h00=0x0010, h01=0x0050, text=»FBELOB FRMT «, t00=0x0040, t01=0x006c}
0x6468…647e Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'BEL'«, t00=0x0040, t01=0x0080}
0x647e…6494 Head {h00=0x0012, h01=0x0050, text=» FILLR X'5C',1«, t00=0x0040, t01=0x0096}
0x6494…64a8 Head {h00=0x0010, h01=0x0050, text=» FILLR 'B',1«, t00=0x0040, t01=0x00ac}
0x64a8…64b6 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0040, t01=0x00c0}
0x64b6…64c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00ce}
0x64c0…64ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00d8}
0x64ca…64d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00e2}
0x64d4…64e0 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0040, t01=0x00ec}
0x64e0…64e4 Head {h00=0x4004, h01=0x0000}
0x64e4…64e8 00 40 00 f8 ┆ @ ┆
0x64e8…64f0 (65, 1, 8) 20 04 00 00 00 41 00 04 ┆ A ┆
0x64f0…6540 (66, 0, 398) 20 3d 43 27 26 30 31 27 00 29 01 8a 00 18 00 50 20 46 4d 45 4c 20 27 39 39 39 39 27 2c 43 4b 4d 44 4e 52 20 00 2a 00 10 00 18 00 50 20 46 42 46 20 47 54 4b 41 53 53 45 2c 54 52 45 43 34 30 20 00 2a 00 2c 00 22 00 50 20 46 42 54 20 47 54 53 ┆ =C'&01' ) P FMEL '9999',CKMDNR * P FBF GTKASSE,TREC40 * , " P FBT GTS┆
0x6540…6590 50 45 43 54 52 2c 54 52 45 43 34 30 20 54 52 20 35 30 2e 2e 2e 20 00 2a 00 48 00 18 00 50 20 46 42 54 20 54 54 52 31 31 46 4c 47 2c 54 52 45 43 31 30 00 2a 00 6e 00 12 00 50 20 46 43 4f 50 59 20 3d 43 27 26 30 32 27 00 2a 00 8a 00 1a 00 50 ┆PECTR,TREC40 TR 50... * H P FBT TTR11FLG,TREC10 * n P FCOPY =C'&02' * P┆
0x6590…65e0 20 46 4d 45 4c 20 27 39 39 39 39 39 39 27 2c 47 54 44 41 54 4f 20 00 2a 00 a0 00 0a 00 50 54 52 45 43 31 30 00 2a 00 be 00 12 00 50 20 46 43 4f 50 59 20 3d 43 27 26 30 33 27 00 2a 00 cc 00 16 00 50 20 46 4d 45 4c 20 27 39 39 39 27 2c 47 54 ┆ FMEL '999999',GTDATO * PTREC10 * P FCOPY =C'&03' * P FMEL '999',GT┆
0x65e0…6630 4d 53 4b 20 00 2a 00 e2 00 18 00 50 20 46 42 54 20 54 54 52 31 31 46 4c 47 2c 54 52 45 43 34 30 00 2a 00 fc 00 12 00 50 20 46 43 4f 50 59 20 3d 43 27 26 30 34 27 00 2a 01 18 00 18 00 50 20 46 4d 45 4c 20 27 39 39 39 39 39 27 2c 54 54 4c 42 ┆MSK * P FBT TTR11FLG,TREC40 * P FCOPY =C'&04' * P FMEL '99999',TTLB┆
0x6630…667e 4e 52 00 2a 01 2e 00 0a 00 50 54 52 45 43 34 30 00 2a 01 4a 00 0a 00 50 20 46 4d 45 4e 44 00 2a 01 58 00 06 00 50 2a 20 00 2a 01 66 00 0e 00 50 50 46 52 4d 31 20 46 52 4d 54 00 2a 01 70 00 10 00 50 20 46 43 4f 50 59 20 3d 43 27 26 27 ┆NR * . PTREC40 * J P FMEND * X P* * f PPFRM1 FRMT * p P FCOPY =C'&'┆
0x667e…66ce (67, 2, 222) 00 2a 01 82 00 16 00 50 20 46 4d 45 4c 20 27 39 39 27 2c 47 53 57 42 43 44 33 00 2b 00 08 00 18 00 50 20 46 42 50 20 47 53 57 42 43 44 33 2c 50 4c 41 42 31 30 20 00 2b 00 22 00 2c 00 50 20 46 4d 45 4c 20 27 54 54 54 54 54 54 54 54 54 54 54 ┆ * P FMEL '99',GSWBCD3 + P FBP GSWBCD3,PLAB10 + " , P FMEL 'TTTTTTTTTTT┆
0x66ce…671e 54 54 39 2d 27 2c 47 54 44 55 50 46 28 47 53 57 42 49 4e 35 29 20 00 2b 00 3e 00 0a 00 50 20 46 45 58 49 54 00 2b 00 6e 00 0a 00 50 50 4c 41 42 31 30 00 2b 00 7c 00 2a 00 50 20 46 4d 45 4c 20 27 54 54 54 54 54 54 54 54 54 54 54 54 54 39 27 ┆TT9-',GTDUPF(GSWBIN5) + > P FEXIT + n PPLAB10 + | * P FMEL 'TTTTTTTTTTTTT9'┆
0x671e…675c 2c 47 54 44 55 50 46 28 47 53 57 42 49 4e 35 29 00 2b 00 8a 00 0a 00 50 20 46 4d 45 4e 44 00 2b 00 b8 00 10 00 50 20 20 20 20 20 20 20 20 20 45 4e 44 00 2b 00 c6 40 04 00 00 00 2b 00 da ┆,GTDUPF(GSWBIN5) + P FMEND + P END + @ + ┆
0x675c…6764 (68, 1, 8) 20 04 00 00 00 2c 00 04 ┆ , ┆