|
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: 4994 (0x1382)
Notes: pts_type(SC)
Names: »KKORT.SC«
└─⟦22f4dea89⟧ Bits:30009702 Philips computer tape "DOS_PTS_4.2_M_FL"
└─⟦this⟧ »NJ-AMT/KKORT.SC«
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
└─⟦this⟧ »NJ-AMT/KKORT.SC«
IDENT KKORT 830504 NJ
DDUM KMD08
PDIV
ENTRY KORT
ENTRY KKCH
*
EXT FRMXSP
EXT FRMTKT
EXT FRMXKT
EXT WRITJT
EXT ABORT
EXT EMPTYT
EXT SPCLRA
EXT SPERR
EXT SPLIN8
EXT GRASPV
EXT CLEAR8
EXT SPCHK5
EXT WRITLO
INCLUDE EQUATE
EJECT
KORT PROC
********************
*
** KORT - PROCEDURE FOR WRITING ON 'KONTOKORT
*
** KASSEFUNCTION OLY (TRANS 1-4, 6, 8-12)
******************
TBF TTEORFLG,KORTNOK NOT CORRECT TRANS
TBT GTREGFLG,KORTNOK MUST NOT BE FIRST TRANS
TBF GTKASSE,KORTNOK ONLY IN KASSEFUNCTIONS(1-12)
CBE GTREGNR,=D'5',KORTNOK NOT TRANS 5
CBE GTREGNR,=D'7',KORTNOK NOT TRANS 7
** ASK FOR OLD SALDO, LINE NO AND LINE CHECKDIGIT
** WRITE 'KONTOKORT' ON JOURNAL
** TRANSPORT LINE IF NEEDED
KORT10
MOVE SPKEY,CBIN1
CLEAR GTSLDFLG
TBF CKTFLAG,KORT12
SET TTKORTFL
KORT12
PERF FRMXSP,CBIN12 SALDO/LINE/CHECK
SET SPPROMPT
PERF SPCLRA WRITE/READ ON SCREEN
CLEAR SPPROMPT
IB SPBINW2,KORTOK,KORTOK,KORT30
KORT20 ERRORKEY
MOVE SPBINW4,=W'4'
PERF SPERR
B KORT10
KORT30 CORRECT ENTERED
TBF CKTFLAG,KORT40 NO SALDO
SET GTSLDFLG
CALL EMPTYT,TTKTSLD GL SALDO PRESENT?
BE KORT40 YES
CLEAR GTSLDFLG NOT PRESENT
TBF CSLDFLG,KORT40 ALLOWED
MOVE SPBINW4,=W'5' NOT ALLOWED
PERF SPERR
B KORT10
KORT40
PERF WRITJT,=W'2' 'KONTOKORT' ON JOURNAL
PERF WRITLO,CBIN2
PERF KKTRP TRANSPORT LINE IF NEEDED
MOVE SPINPUT,TTKTLIN
PERF SPCHK5 GET THE OLD LINE NUMBER
CBG GSWBIN1,=W'89',KORT20
DSC1 KVOUCH,POS,GSWBIN1 POS ON LINE
ADD TTKTSLD,GTDUPF(CBIN4) NEW SALDO
ADD TTKTLIN,=D'1' ADD 1 TO LINE NO
PERF KKCH NEW CHECKDIGIT
PERF FRMTKT
EDWRT KVOUCH,GTSTRFMT
DSC0 .NW,KVOUCH,RLEAS
CLEAR GTLOKSPG
KORTOK
CLEAR TTKORTFL
CMP CBIN0,CBIN0 OK, SET CR=0
RET
KORTNOK
CLEAR TTKORTFL
CMP CBIN1,CBIN0 NOK, SET CR <>0
RET
PEND
EJECT
KKTRP PROC
********************
*
** KKTRP - WRITES KONTOKORT INF ON VOUCHER
** + TRANSPORT IF NECESSARY
*
********************
PERF SPLIN8,CBIN6,CBIN2 WRITE KONTOKORT
TBF GTCYFLG,KON20 IF IN CYCLE
TBF GTCYWRTF,KON20
DSC0 KVOUCH,RLEAS
CLEAR TTTSTFLG
KON20
PERF GRASPV GRASP VOUCHER
PERF CLEAR8
TBF CKTFLAG,KON90
TBF GTSLDFLG,KON90 NO SALDO
CBNE TTKTLIN,=D'27',KON90 TRANSPORT LINE?
PERF FRMXKT,CBIN1 GET TRANSPORT LINE
DSC1 KVOUCH,POS,CMINLIN
EDWRT .NW,KVOUCH,GTSTRFMT EDWRT TRP. LINE
KON30
PERF SPLIN8,CBIN3,CBIN0 'NY SIDE'
WAIT KVOUCH
DSC0 KVOUCH,RLEAS
PERF GRASPV
TESTIO KEYB ANY INPUT?
BOK KON35 YES
CALL ABORT,KEYB NO, ABORT
DSC0 KEYB,SKIB DELETE CYCLIC INPUT BUFFER
MOVE GSWBCD3,CKTTOP SET DEFAULT LINE
MOVE SPINPUT,GSWBCD3
B KON40
KON35
WAIT KEYB
CBE SPBINW2,=W'18',KON40 SLUT KEY
CBNE SPBINW2,=W'4',KON30 ENTER KEY
KON40
MOVE GSWBCD3,SPINPUT GET LINE
MOVE TTKTLIN,GSWBCD3
CBG TTKTLIN,=D'24',KON30 CHECK LINE
CBL TTKTLIN,=D'1',KON30
PERF SPCHK5 CHANGE LINE VALUE
DSC1 KVOUCH,POS,GSWBIN1
PERF FRMXKT,CBIN1
EDWRT KVOUCH,GTSTRFMT
ADD TTKTLIN,=D'1'
KON90
RET
PEND
EJECT
KKCH PROC
********************
*
** KKCH - THIS PROCEDURE COMPUTES A CHECK DIGIT FROM
** AMOUNT (TTKTSLD) AND LINE NR (TTKTLIN) AND
** PUTS IT IN TTKTCHK
** USED FOR KONTOKORT
*
****************
MOVE GSWBCD1,TTKTSLD SAVE
CBNL GSWBCD1,=D'0',KKCH10 NEGATIVE?
MUL GSWBCD1,=D'-1' YES, CHANGE SIGN
KKCH10
MUL GSWBCD1,TTKTLIN MULTIPLY WITH LINE NR
SUB TTKTLIN,=D'1' SUB 1 FROM LINE NR
ADD GSWBCD1,TTKTLIN ADD
ADD TTKTLIN,=D'1' RESTORE LINE NR
MOVE GSWBCD2,GSWBCD1 SAVE
DIV GSWBCD1,=D'7' CALCULATE
MUL GSWBCD1,=D'7' REMAINDER
SUB GSWBCD2,GSWBCD1 MODULUS 7
ADD GSWBCD2,=D'1' ADD 1 ALWAYS
CBL TTKTSLD,=D'0',KKCH20
ADD GSWBCD2,=D'1' ADD 1 IF POSITIVE SALDO
KKCH20
MOVE TTKTCHK,GSWBCD2
RET
PEND
END
0x0000…001e (0, 0, 400) Head {h00=0x001a, h01=0x0050, text=» IDENT KKORT 830504 NJ«, t00=0x0000, t01=0x0004}
0x001e…003c Head {h00=0x001a, h01=0x0050, text=» DDUM KMD08«, t00=0x0000, t01=0x0022}
0x003c…0052 Head {h00=0x0012, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0040}
0x0052…0066 Head {h00=0x0010, h01=0x0050, text=» ENTRY KORT «, t00=0x0000, t01=0x0056}
0x0066…007a Head {h00=0x0010, h01=0x0050, text=» ENTRY KKCH «, t00=0x0000, t01=0x006a}
0x007a…0084 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x007e}
0x0084…008c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0088}
0x008c…00a0 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXSP «, t00=0x0000, t01=0x0090}
0x00a0…00b4 Head {h00=0x0010, h01=0x0050, text=» EXT FRMTKT «, t00=0x0000, t01=0x00a4}
0x00b4…00c8 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXKT «, t00=0x0000, t01=0x00b8}
0x00c8…00dc Head {h00=0x0010, h01=0x0050, text=» EXT WRITJT «, t00=0x0000, t01=0x00cc}
0x00dc…00ee Head {h00=0x000e, h01=0x0050, text=» EXT ABORT«, t00=0x0000, t01=0x00e0}
0x00ee…0102 Head {h00=0x0010, h01=0x0050, text=» EXT EMPTYT «, t00=0x0000, t01=0x00f2}
0x0102…0122 Head {h00=0x001c, h01=0x0050, text=» EXT SPCLRA «, t00=0x0000, t01=0x0106}
0x0122…0140 Head {h00=0x001a, h01=0x0050, text=» EXT SPERR«, t00=0x0000, t01=0x0126}
0x0140…0154 Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0000, t01=0x0144}
0x0154…0168 Head {h00=0x0010, h01=0x0050, text=» EXT GRASPV «, t00=0x0000, t01=0x0158}
0x0168…017c Head {h00=0x0010, h01=0x0050, text=» EXT CLEAR8 «, t00=0x0000, t01=0x016c}
0x017c…0190 Head {h00=0x0010, h01=0x0050, text=» EXT SPCHK5 «, t00=0x0000, t01=0x0180}
0x0190…01a4 (1, 0, 400) Head {h00=0x0010, h01=0x0050, text=» EXT WRITLO «, t00=0x0001, t01=0x0004}
0x01a4…01ac Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0018}
0x01ac…01cc Head {h00=0x001c, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0001, t01=0x0020}
0x01cc…01da Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0040}
0x01da…01ec Head {h00=0x000e, h01=0x0050, text=»KORT PROC «, t00=0x0001, t01=0x004e}
0x01ec…0208 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0001, t01=0x0060}
0x0208…0212 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x007c}
0x0212…0250 Head {h00=0x003a, h01=0x0050, text=»** KORT - PROCEDURE FOR WRITING ON 'KONTOKORT«, t00=0x0001, t01=0x0086}
0x0250…025a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c4}
0x025a…0294 Head {h00=0x0036, h01=0x0050, text=»** KASSEFUNCTION OLY (TRANS 1-4, 6, 8-12)«, t00=0x0001, t01=0x00ce}
0x0294…02ae Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0001, t01=0x0108}
0x02ae…02de Head {h00=0x002c, h01=0x0050, text=» TBF TTEORFLG,KORTNOK NOT CORRECT TRANS «, t00=0x0001, t01=0x0122}
0x02de…0314 Head {h00=0x0032, h01=0x0050, text=» TBT GTREGFLG,KORTNOK MUST NOT BE FIRST TRANS «, t00=0x0001, t01=0x0152}
0x0314…034e Head {h00=0x0036, h01=0x0050, text=» TBF GTKASSE,KORTNOK ONLY IN KASSEFUNCTIONS(1-12) «, t00=0x0001, t01=0x0188}
0x034e…037c Head {h00=0x002a, h01=0x0050, text=» CBE GTREGNR,=D'5',KORTNOK NOT TRANS 5«, t00=0x0002, t01=0x0032}
0x037c…03aa Head {h00=0x002a, h01=0x0050, text=» CBE GTREGNR,=D'7',KORTNOK NOT TRANS 7«, t00=0x0002, t01=0x0060}
0x03aa…03ec Head {h00=0x003e, h01=0x0050, text=»** ASK FOR OLD SALDO, LINE NO AND LINE CHECKDIGIT«, t00=0x0002, t01=0x008e}
0x03ec…041c Head {h00=0x002c, h01=0x0050, text=»** WRITE 'KONTOKORT' ON JOURNAL«, t00=0x0002, t01=0x00d0}
0x041c…0448 Head {h00=0x0028, h01=0x0050, text=»** TRANSPORT LINE IF NEEDED«, t00=0x0002, t01=0x0100}
0x0448…0456 Head {h00=0x000a, h01=0x0050, text=»KORT10«, t00=0x0002, t01=0x012c}
0x0456…0470 Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN1 «, t00=0x0002, t01=0x013a}
0x0470…0488 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSLDFLG «, t00=0x0002, t01=0x0154}
0x0488…04a4 Head {h00=0x0018, h01=0x0050, text=» TBF CKTFLAG,KORT12 «, t00=0x0002, t01=0x016c}
0x04a4…04ba Head {h00=0x0012, h01=0x0050, text=» SET TTKORTFL «, t00=0x0002, t01=0x0188}
0x04ba…04c8 Head {h00=0x000a, h01=0x0050, text=»KORT12«, t00=0x0003, t01=0x000e}
0x04c8…04f4 Head {h00=0x0028, h01=0x0050, text=» PERF FRMXSP,CBIN12 SALDO/LINE/CHECK«, t00=0x0003, t01=0x001c}
0x04f4…050a Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0003, t01=0x0048}
0x050a…0534 Head {h00=0x0026, h01=0x0050, text=» PERF SPCLRA WRITE/READ ON SCREEN «, t00=0x0003, t01=0x005e}
0x0534…054c Head {h00=0x0014, h01=0x0050, text=» CLEAR SPPROMPT «, t00=0x0003, t01=0x0088}
0x054c…0574 Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,KORTOK,KORTOK,KORT30«, t00=0x0003, t01=0x00a0}
0x0574…058e Head {h00=0x0016, h01=0x0050, text=»KORT20 ERRORKEY «, t00=0x0003, t01=0x00c8}
0x058e…05aa Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'4' «, t00=0x0003, t01=0x00e2}
0x05aa…05be Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0003, t01=0x00fe}
0x05be…05d0 Head {h00=0x000e, h01=0x0050, text=» B KORT10 «, t00=0x0003, t01=0x0112}
0x05d0…05f0 Head {h00=0x001c, h01=0x0050, text=»KORT30 CORRECT ENTERED«, t00=0x0003, t01=0x0124}
0x05f0…0614 Head {h00=0x0020, h01=0x0050, text=» TBF CKTFLAG,KORT40 NO SALDO«, t00=0x0003, t01=0x0144}
0x0614…062a Head {h00=0x0012, h01=0x0050, text=» SET GTSLDFLG «, t00=0x0003, t01=0x0168}
0x062a…0658 Head {h00=0x002a, h01=0x0050, text=» CALL EMPTYT,TTKTSLD GL SALDO PRESENT?«, t00=0x0003, t01=0x017e}
0x0658…066e Head {h00=0x0012, h01=0x0050, text=» BE KORT40 YES«, t00=0x0004, t01=0x001c}
0x066e…0692 Head {h00=0x0020, h01=0x0050, text=» CLEAR GTSLDFLG NOT PRESENT «, t00=0x0004, t01=0x0032}
0x0692…06b6 Head {h00=0x0020, h01=0x0050, text=» TBF CSLDFLG,KORT40 ALLOWED «, t00=0x0004, t01=0x0056}
0x06b6…06de Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'5' NOT ALLOWED «, t00=0x0004, t01=0x007a}
0x06de…06f2 Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0004, t01=0x00a2}
0x06f2…0704 Head {h00=0x000e, h01=0x0050, text=» B KORT10 «, t00=0x0004, t01=0x00b6}
0x0704…0712 Head {h00=0x000a, h01=0x0050, text=»KORT40«, t00=0x0004, t01=0x00c8}
0x0712…0744 Head {h00=0x002e, h01=0x0050, text=» PERF WRITJT,=W'2' 'KONTOKORT' ON JOURNAL «, t00=0x0004, t01=0x00d6}
0x0744…075e Head {h00=0x0016, h01=0x0050, text=» PERF WRITLO,CBIN2«, t00=0x0004, t01=0x0108}
0x075e…078a Head {h00=0x0028, h01=0x0050, text=» PERF KKTRP TRANSPORT LINE IF NEEDED«, t00=0x0004, t01=0x0122}
0x078a…07a8 Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,TTKTLIN «, t00=0x0004, t01=0x014e}
0x07a8…07d4 Head {h00=0x0028, h01=0x0050, text=» PERF SPCHK5 GET THE OLD LINE NUMBER«, t00=0x0004, t01=0x016c}
0x07d4…07f6 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,=W'89',KORT20«, t00=0x0005, t01=0x0008}
0x07f6…0822 Head {h00=0x0028, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POS ON LINE«, t00=0x0005, t01=0x002a}
0x0822…084e Head {h00=0x0028, h01=0x0050, text=» ADD TTKTSLD,GTDUPF(CBIN4) NEW SALDO«, t00=0x0005, t01=0x0056}
0x084e…087a Head {h00=0x0028, h01=0x0050, text=» ADD TTKTLIN,=D'1' ADD 1 TO LINE NO «, t00=0x0005, t01=0x0082}
0x087a…089c Head {h00=0x001e, h01=0x0050, text=» PERF KKCH NEW CHECKDIGIT «, t00=0x0005, t01=0x00ae}
0x089c…08b0 Head {h00=0x0010, h01=0x0050, text=» PERF FRMTKT«, t00=0x0005, t01=0x00d0}
0x08b0…08ce Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x0005, t01=0x00e4}
0x08ce…08ec Head {h00=0x001a, h01=0x0050, text=» DSC0 .NW,KVOUCH,RLEAS«, t00=0x0005, t01=0x0102}
0x08ec…0904 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTLOKSPG «, t00=0x0005, t01=0x0120}
0x0904…0912 Head {h00=0x000a, h01=0x0050, text=»KORTOK«, t00=0x0005, t01=0x0138}
0x0912…092a Head {h00=0x0014, h01=0x0050, text=» CLEAR TTKORTFL «, t00=0x0005, t01=0x0146}
0x092a…0950 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0005, t01=0x015e}
0x0950…095c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x0184}
0x095c…096c Head {h00=0x000c, h01=0x0050, text=»KORTNOK «, t00=0x0005, t01=0x0190}
0x096c…0984 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTKORTFL «, t00=0x0006, t01=0x0010}
0x0984…09ac Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR <>0«, t00=0x0006, t01=0x0028}
0x09ac…09b8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x0050}
0x09b8…09c6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x005c}
0x09c6…09d4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x006a}
0x09d4…09e6 Head {h00=0x000e, h01=0x0050, text=»KKTRP PROC«, t00=0x0006, t01=0x0078}
0x09e6…0a02 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0006, t01=0x008a}
0x0a02…0a0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00a6}
0x0a0c…0a46 Head {h00=0x0036, h01=0x0050, text=»** KKTRP - WRITES KONTOKORT INF ON VOUCHER«, t00=0x0006, t01=0x00b0}
0x0a46…0a72 Head {h00=0x0028, h01=0x0050, text=»** + TRANSPORT IF NECESSARY «, t00=0x0006, t01=0x00ea}
0x0a72…0a7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0116}
0x0a7c…0a98 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0006, t01=0x0120}
0x0a98…0ac8 Head {h00=0x002c, h01=0x0050, text=» PERF SPLIN8,CBIN6,CBIN2 WRITE KONTOKORT«, t00=0x0006, t01=0x013c}
0x0ac8…0aee Head {h00=0x0022, h01=0x0050, text=» TBF GTCYFLG,KON20 IF IN CYCLE«, t00=0x0006, t01=0x016c}
0x0aee…0b0a (7, 0, 400) Head {h00=0x0018, h01=0x0050, text=» TBF GTCYWRTF,KON20 «, t00=0x0007, t01=0x0004}
0x0b0a…0b24 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0007, t01=0x0020}
0x0b24…0b3c Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0007, t01=0x003a}
0x0b3c…0b4a Head {h00=0x000a, h01=0x0050, text=»KON20 «, t00=0x0007, t01=0x0052}
0x0b4a…0b6c Head {h00=0x001e, h01=0x0050, text=» PERF GRASPV GRASP VOUCHER«, t00=0x0007, t01=0x0060}
0x0b6c…0b80 Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0007, t01=0x0082}
0x0b80…0b9a Head {h00=0x0016, h01=0x0050, text=» TBF CKTFLAG,KON90«, t00=0x0007, t01=0x0096}
0x0b9a…0bbe Head {h00=0x0020, h01=0x0050, text=» TBF GTSLDFLG,KON90 NO SALDO«, t00=0x0007, t01=0x00b0}
0x0bbe…0bf0 Head {h00=0x002e, h01=0x0050, text=» CBNE TTKTLIN,=D'27',KON90 TRANSPORT LINE?«, t00=0x0007, t01=0x00d4}
0x0bf0…0c1e Head {h00=0x002a, h01=0x0050, text=» PERF FRMXKT,CBIN1 GET TRANSPORT LINE «, t00=0x0007, t01=0x0106}
0x0c1e…0c3e Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,CMINLIN«, t00=0x0007, t01=0x0134}
0x0c3e…0c70 Head {h00=0x002e, h01=0x0050, text=» EDWRT .NW,KVOUCH,GTSTRFMT EDWRT TRP. LINE«, t00=0x0007, t01=0x0154}
0x0c70…0c7e Head {h00=0x000a, h01=0x0050, text=»KON30 «, t00=0x0007, t01=0x0186}
0x0c7e…0ca8 (8, 0, 400) Head {h00=0x0026, h01=0x0050, text=» PERF SPLIN8,CBIN3,CBIN0 'NY SIDE'«, t00=0x0008, t01=0x0004}
0x0ca8…0cbc Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0008, t01=0x002e}
0x0cbc…0cd6 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0008, t01=0x0042}
0x0cd6…0cea Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x0008, t01=0x005c}
0x0cea…0d0a Head {h00=0x001c, h01=0x0050, text=» TESTIO KEYB ANY INPUT? «, t00=0x0008, t01=0x0070}
0x0d0a…0d20 Head {h00=0x0012, h01=0x0050, text=» BOK KON35 YES«, t00=0x0008, t01=0x0090}
0x0d20…0d42 Head {h00=0x001e, h01=0x0050, text=» CALL ABORT,KEYB NO, ABORT«, t00=0x0008, t01=0x00a6}
0x0d42…0d74 Head {h00=0x002e, h01=0x0050, text=» DSC0 KEYB,SKIB DELETE CYCLIC INPUT BUFFER«, t00=0x0008, t01=0x00c8}
0x0d74…0da2 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,CKTTOP SET DEFAULT LINE «, t00=0x0008, t01=0x00fa}
0x0da2…0dc0 Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD3 «, t00=0x0008, t01=0x0128}
0x0dc0…0dd0 Head {h00=0x000c, h01=0x0050, text=» B KON40«, t00=0x0008, t01=0x0146}
0x0dd0…0dde Head {h00=0x000a, h01=0x0050, text=»KON35 «, t00=0x0008, t01=0x0156}
0x0dde…0df0 Head {h00=0x000e, h01=0x0050, text=» WAIT KEYB«, t00=0x0008, t01=0x0164}
0x0df0…0e1a Head {h00=0x0026, h01=0x0050, text=» CBE SPBINW2,=W'18',KON40 SLUT KEY«, t00=0x0008, t01=0x0176}
0x0e1a…0e46 Head {h00=0x0028, h01=0x0050, text=» CBNE SPBINW2,=W'4',KON30 ENTER KEY «, t00=0x0009, t01=0x0010}
0x0e46…0e54 Head {h00=0x000a, h01=0x0050, text=»KON40 «, t00=0x0009, t01=0x003c}
0x0e54…0e7a Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET LINE«, t00=0x0009, t01=0x004a}
0x0e7a…0e98 Head {h00=0x001a, h01=0x0050, text=» MOVE TTKTLIN,GSWBCD3 «, t00=0x0009, t01=0x0070}
0x0e98…0ec4 Head {h00=0x0028, h01=0x0050, text=» CBG TTKTLIN,=D'24',KON30 CHECK LINE«, t00=0x0009, t01=0x008e}
0x0ec4…0ee4 Head {h00=0x001c, h01=0x0050, text=» CBL TTKTLIN,=D'1',KON30«, t00=0x0009, t01=0x00ba}
0x0ee4…0f0a Head {h00=0x0022, h01=0x0050, text=» PERF SPCHK5 CHANGE LINE VALUE«, t00=0x0009, t01=0x00da}
0x0f0a…0f2a Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x0009, t01=0x0100}
0x0f2a…0f44 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXKT,CBIN1«, t00=0x0009, t01=0x0120}
0x0f44…0f62 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x0009, t01=0x013a}
0x0f62…0f7c Head {h00=0x0016, h01=0x0050, text=» ADD TTKTLIN,=D'1'«, t00=0x0009, t01=0x0158}
0x0f7c…0f8a Head {h00=0x000a, h01=0x0050, text=»KON90 «, t00=0x0009, t01=0x0172}
0x0f8a…0f96 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x0180}
0x0f96…0fa4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x018c}
0x0fa4…0fb2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x000a}
0x0fb2…0fc4 Head {h00=0x000e, h01=0x0050, text=»KKCH PROC «, t00=0x000a, t01=0x0018}
0x0fc4…0fe0 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000a, t01=0x002a}
0x0fe0…0fea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0046}
0x0fea…102e Head {h00=0x0040, h01=0x0050, text=»** KKCH - THIS PROCEDURE COMPUTES A CHECK DIGIT FROM«, t00=0x000a, t01=0x0050}
0x102e…106c Head {h00=0x003a, h01=0x0050, text=»** AMOUNT (TTKTSLD) AND LINE NR (TTKTLIN) AND «, t00=0x000a, t01=0x0094}
0x106c…1092 Head {h00=0x0022, h01=0x0050, text=»** PUTS IT IN TTKTCHK «, t00=0x000a, t01=0x00d2}
0x1092…10b8 Head {h00=0x0022, h01=0x0050, text=»** USED FOR KONTOKORT «, t00=0x000a, t01=0x00f8}
0x10b8…10c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x011e}
0x10c2…10da Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x000a, t01=0x0128}
0x10da…10fc Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBCD1,TTKTSLD SAVE«, t00=0x000a, t01=0x0140}
0x10fc…1128 Head {h00=0x0028, h01=0x0050, text=» CBNL GSWBCD1,=D'0',KKCH10 NEGATIVE?«, t00=0x000a, t01=0x0162}
0x1128…1154 Head {h00=0x0028, h01=0x0050, text=» MUL GSWBCD1,=D'-1' YES, CHANGE SIGN«, t00=0x000a, t01=0x018e}
0x1154…1162 Head {h00=0x000a, h01=0x0050, text=»KKCH10«, t00=0x000b, t01=0x002a}
0x1162…1194 Head {h00=0x002e, h01=0x0050, text=» MUL GSWBCD1,TTKTLIN MULTIPLY WITH LINE NR«, t00=0x000b, t01=0x0038}
0x1194…11c2 Head {h00=0x002a, h01=0x0050, text=» SUB TTKTLIN,=D'1' SUB 1 FROM LINE NR «, t00=0x000b, t01=0x006a}
0x11c2…11e2 Head {h00=0x001c, h01=0x0050, text=» ADD GSWBCD1,TTKTLIN ADD«, t00=0x000b, t01=0x0098}
0x11e2…120c Head {h00=0x0026, h01=0x0050, text=» ADD TTKTLIN,=D'1' RESTORE LINE NR«, t00=0x000b, t01=0x00b8}
0x120c…122e Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBCD2,GSWBCD1 SAVE«, t00=0x000b, t01=0x00e2}
0x122e…1252 Head {h00=0x0020, h01=0x0050, text=» DIV GSWBCD1,=D'7' CALCULATE«, t00=0x000b, t01=0x0104}
0x1252…1276 Head {h00=0x0020, h01=0x0050, text=» MUL GSWBCD1,=D'7' REMAINDER«, t00=0x000b, t01=0x0128}
0x1276…129c Head {h00=0x0022, h01=0x0050, text=» SUB GSWBCD2,GSWBCD1 MODULUS 7«, t00=0x000b, t01=0x014c}
0x129c…12c4 Head {h00=0x0024, h01=0x0050, text=» ADD GSWBCD2,=D'1' ADD 1 ALWAYS «, t00=0x000b, t01=0x0172}
0x12c4…12e6 Head {h00=0x001e, h01=0x0050, text=» CBL TTKTSLD,=D'0',KKCH20 «, t00=0x000c, t01=0x000a}
0x12e6…1318 Head {h00=0x002e, h01=0x0050, text=» ADD GSWBCD2,=D'1' ADD 1 IF POSITIVE SALDO«, t00=0x000c, t01=0x002c}
0x1318…1326 Head {h00=0x000a, h01=0x0050, text=»KKCH20«, t00=0x000c, t01=0x005e}
0x1326…1344 Head {h00=0x001a, h01=0x0050, text=» MOVE TTKTCHK,GSWBCD2 «, t00=0x000c, t01=0x006c}
0x1344…1350 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000c, t01=0x008a}
0x1350…135e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000c, t01=0x0096}
0x135e…1372 Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x000c, t01=0x00a4}
0x1372…1376 Head {h00=0x4004, h01=0x0000}
0x1376…137a 00 0c 00 b8 ┆ ┆
0x137a…1382 (13, 1, 8) 20 04 00 00 00 0d 00 04 ┆ ┆