|
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: 6520 (0x1978)
Notes: pts_type(SC)
Names: »DFOACT.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »PTSDEMO/DFOACT.SC«
IDENT DFOACT OPEN ACCOUNT
************************************************************************
* MODULE-NAME :*
* DFOACT OPEN ACCOUNT-NUMBER*
* PROCEDURES USED :*
* PAJRN WRITE JOURNAL*
* XBFMT SCREEN-CONTROL*
* XEERR ERROR-ROUTINE*
* ZEINSD WRITE ACCOUNT-RECORD*
* SPAP13 CHECKS IF CARD-NUMBRE ALREADY EXISTS *
* ZCRDD READ ACCOUNT-RECORD *
**
************************************************************************
DDUM DEMODD
PDIV
ENTRY DFOACT
ENTRY SPAP13
EXPROC XHMSU WRITE BADGE CARD
EXPROC PAJRN
EXPROC XBFMT
EXPROC ZCRDD
EXPROC ZEINSD
EXPROC XEERR
EJECT
************************************************************************
*
* OPEN ACCOUNT (CHEQUE OR SAVINGS)
*
************************************************************************
DFOACT PROC
DF000
TBT SBCHEQUE,DF100
ADD YDLASSAV,=D'2'
CBG YDLASSAV,=D'168999',DF900
MOVE IDACTNR1,YDLASSAV
B DF200
DF100
ADD YDLASCHQ,=D'2'
CBG YDLASCHQ,=D'168999',DF900
MOVE IDACTNR1,YDLASCHQ
DF200
* PRINT JOURNAL-ROLL*
SET SBOACT
PERF PAJRN,=W'1' LINE TYPE 1
MOVE TDTRSCDE,=D'080'
PERF PAJRN,=W'2'
*
* DISPLAY THE OPEN ACCOUNT SCREEN
*
DF300
PERF XBFMT,=D'39'
TBT SBCANCEL,DF999
TBT SBZEK,DF330 WRITE MAG.ZTRIP IF ZEKOSA
TBF SBCHEQUE,DF350
DF330
*
* FOR CHEQUE ACCOUNTS OR SAVINGS WITH ZEKOSA:
* TO GET A CARDNUMBER-KEY WITHOUT BCD 'F' CHARACTERS,
* ADCARDNR IS MULTIPLIED BY 1.
* IN THIS WAY EACH 'F' IS REPLACED BY '0'
*
MUL ADCARDNR,=D'1'
TBT SBZEK,DF340
TBF SBCARD,DF350 NO 'CARD'
DF340
PERF XHMSU,ADCARDNR WRITE BADGE CARD
*
* INITIATE ACCOUNT-RECORD AND TRANSACTION-RECORD*
*
DF350
MOVE ADACTRNR,IDACTNR1
MUL ADACTRNR,KDSHIFT
ADD YDLASSEQ,=D'1'
MOVE ADLASSEQ,YDLASSEQ
MOVE TDTRSSEQ,ADLASSEQ
DF400
* WRITE ACCOUNT-RECORD*
PERF ZEINSD,ADACTRNR
B DF999
DF900
PERF XEERR,=D'29',KW1 ERROR-MESSAGE , ANSWER MUST
* BE "CANCEL"*
DF999
CLEAR SBOACT
RET
PEND
EJECT
************************************************************************
*
* PROCEDURE NAME: SPAP13
* THIS ROUTINE CHECKS THE CARD-NUMBER KEYED IN IN OPEN-CHEQUE-
* ACCOUNT ( DFOACT ) AS FOLLOWS :
* - CARD-NUMBER IN THE RANGE 1001-9999
* - CARD-NUMBER MAY NOT ALREADY EXIST
************************************************************************
SPAP13 PROC XWRET
PBIN XWRET
S13000
CBL ADCARDNR,=D'1001',S13200
CBG ADCARDNR,=D'9999',S13200
MOVE ADACTRNR,ADCARDNR
*
* SEE IF RECORD IS AVAILABLE ALREADY
* THE RECORD MUST NOT BE COPIED TO THE UWB,
* SO SBNOCOPY IS SET FIRST
*
SET SBNOCOPY DON'T COPY TO UWB
PERF ZCRDD,ADACTRNR,NDLRN1,KW2 READ VIA INDEX 2
TBT SBCANCEL,S13999
TBT SBRECAVB,S13100
B S13999
S13100
MOVE SPBINW4,=W'29'
MOVE XWRET,=W'1'
B S13999
S13200
MOVE SPBINW4,=W'1' VALUE NOT IN RANGE
MOVE XWRET,=W'1'
S13999
RET
PEND
************************************************************************
END
0x0000…002e (0, 0, 400) Head {h00=0x002a, h01=0x0050, text=» IDENT DFOACT OPEN ACCOUNT«, t00=0x0000, t01=0x0004}
0x002e…007e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x0032}
0x007e…00ce Head {h00=0x004c, h01=0x0050, text=»* MODULE-NAME : *«, t00=0x0000, t01=0x0082}
0x00ce…011e Head {h00=0x004c, h01=0x0050, text=»* DFOACT OPEN ACCOUNT-NUMBER *«, t00=0x0000, t01=0x00d2}
0x011e…016e Head {h00=0x004c, h01=0x0050, text=»* PROCEDURES USED : *«, t00=0x0000, t01=0x0122}
0x016e…01be Head {h00=0x004c, h01=0x0050, text=»* PAJRN WRITE JOURNAL *«, t00=0x0000, t01=0x0172}
0x01be…020e Head {h00=0x004c, h01=0x0050, text=»* XBFMT SCREEN-CONTROL *«, t00=0x0001, t01=0x0032}
0x020e…025e Head {h00=0x004c, h01=0x0050, text=»* XEERR ERROR-ROUTINE *«, t00=0x0001, t01=0x0082}
0x025e…02ae Head {h00=0x004c, h01=0x0050, text=»* ZEINSD WRITE ACCOUNT-RECORD *«, t00=0x0001, t01=0x00d2}
0x02ae…02fe Head {h00=0x004c, h01=0x0050, text=»* SPAP13 CHECKS IF CARD-NUMBRE ALREADY EXISTS * «, t00=0x0001, t01=0x0122}
0x02fe…034e Head {h00=0x004c, h01=0x0050, text=»* ZCRDD READ ACCOUNT-RECORD *«, t00=0x0001, t01=0x0172}
0x034e…039e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0002, t01=0x0032}
0x039e…03ee Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0002, t01=0x0082}
0x03ee…043e Head {h00=0x004c, h01=0x0050, text=» DDUM DEMODD «, t00=0x0002, t01=0x00d2}
0x043e…048e Head {h00=0x004c, h01=0x0050, text=» PDIV «, t00=0x0002, t01=0x0122}
0x048e…04de Head {h00=0x004c, h01=0x0050, text=» ENTRY DFOACT «, t00=0x0002, t01=0x0172}
0x04de…04f4 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPAP13 «, t00=0x0003, t01=0x0032}
0x04f4…051a Head {h00=0x0022, h01=0x0050, text=» EXPROC XHMSU WRITE BADGE CARD«, t00=0x0003, t01=0x0048}
0x051a…056e Head {h00=0x0050, h01=0x0050, text=» EXPROC PAJRN «, t00=0x0003, t01=0x006e}
0x056e…05c2 Head {h00=0x0050, h01=0x0050, text=» EXPROC XBFMT «, t00=0x0003, t01=0x00c2}
0x05c2…05d8 Head {h00=0x0012, h01=0x0050, text=» EXPROC ZCRDD «, t00=0x0003, t01=0x0116}
0x05d8…05ee Head {h00=0x0012, h01=0x0050, text=» EXPROC ZEINSD«, t00=0x0003, t01=0x012c}
0x05ee…0642 Head {h00=0x0050, h01=0x0050, text=» EXPROC XEERR «, t00=0x0003, t01=0x0142}
0x0642…0692 Head {h00=0x004c, h01=0x0050, text=» EJECT «, t00=0x0004, t01=0x0008}
0x0692…06e2 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0004, t01=0x0058}
0x06e2…06ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a8}
0x06ec…0716 Head {h00=0x0026, h01=0x0050, text=»* OPEN ACCOUNT (CHEQUE OR SAVINGS)«, t00=0x0004, t01=0x00b2}
0x0716…0720 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00dc}
0x0720…0770 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0004, t01=0x00e6}
0x0770…07c0 Head {h00=0x004c, h01=0x0050, text=»DFOACT PROC «, t00=0x0004, t01=0x0136}
0x07c0…0810 Head {h00=0x004c, h01=0x0050, text=»DF000 «, t00=0x0004, t01=0x0186}
0x0810…0860 Head {h00=0x004c, h01=0x0050, text=» TBT SBCHEQUE,DF100 «, t00=0x0005, t01=0x0046}
0x0860…08b0 Head {h00=0x004c, h01=0x0050, text=» ADD YDLASSAV,=D'2' «, t00=0x0005, t01=0x0096}
0x08b0…08fe Head {h00=0x004a, h01=0x0050, text=» CBG YDLASSAV,=D'168999',DF900 «, t00=0x0005, t01=0x00e6}
0x08fe…094e Head {h00=0x004c, h01=0x0050, text=» MOVE IDACTNR1,YDLASSAV «, t00=0x0005, t01=0x0134}
0x094e…099e Head {h00=0x004c, h01=0x0050, text=» B DF200 «, t00=0x0005, t01=0x0184}
0x099e…09ee Head {h00=0x004c, h01=0x0050, text=»DF100 «, t00=0x0006, t01=0x0044}
0x09ee…0a3c Head {h00=0x004a, h01=0x0050, text=» ADD YDLASCHQ,=D'2' «, t00=0x0006, t01=0x0094}
0x0a3c…0a8a Head {h00=0x004a, h01=0x0050, text=» CBG YDLASCHQ,=D'168999',DF900 «, t00=0x0006, t01=0x00e2}
0x0a8a…0ada Head {h00=0x004c, h01=0x0050, text=» MOVE IDACTNR1,YDLASCHQ «, t00=0x0006, t01=0x0130}
0x0ada…0b2a Head {h00=0x004c, h01=0x0050, text=»DF200 «, t00=0x0006, t01=0x0180}
0x0b2a…0b7a Head {h00=0x004c, h01=0x0050, text=»* PRINT JOURNAL-ROLL *«, t00=0x0007, t01=0x0040}
0x0b7a…0b8e Head {h00=0x0010, h01=0x0050, text=» SET SBOACT «, t00=0x0007, t01=0x0090}
0x0b8e…0bb4 Head {h00=0x0022, h01=0x0050, text=» PERF PAJRN,=W'1' LINE TYPE 1 «, t00=0x0007, t01=0x00a4}
0x0bb4…0c04 Head {h00=0x004c, h01=0x0050, text=» MOVE TDTRSCDE,=D'080' «, t00=0x0007, t01=0x00ca}
0x0c04…0c56 Head {h00=0x004e, h01=0x0050, text=» PERF PAJRN,=W'2' «, t00=0x0007, t01=0x011a}
0x0c56…0c60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x016c}
0x0c60…0c8a Head {h00=0x0026, h01=0x0050, text=»* DISPLAY THE OPEN ACCOUNT SCREEN «, t00=0x0007, t01=0x0176}
0x0c8a…0c94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0010}
0x0c94…0ce4 Head {h00=0x004c, h01=0x0050, text=»DF300 «, t00=0x0008, t01=0x001a}
0x0ce4…0d34 Head {h00=0x004c, h01=0x0050, text=» PERF XBFMT,=D'39' «, t00=0x0008, t01=0x006a}
0x0d34…0d84 Head {h00=0x004c, h01=0x0050, text=» TBT SBCANCEL,DF999 «, t00=0x0008, t01=0x00ba}
0x0d84…0db6 Head {h00=0x002e, h01=0x0050, text=» TBT SBZEK,DF330 WRITE MAG.ZTRIP IF ZEKOSA«, t00=0x0008, t01=0x010a}
0x0db6…0dd2 Head {h00=0x0018, h01=0x0050, text=» TBF SBCHEQUE,DF350 «, t00=0x0008, t01=0x013c}
0x0dd2…0de0 Head {h00=0x000a, h01=0x0050, text=»DF330 «, t00=0x0008, t01=0x0158}
0x0de0…0dea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0166}
0x0dea…0e20 Head {h00=0x0032, h01=0x0050, text=»* FOR CHEQUE ACCOUNTS OR SAVINGS WITH ZEKOSA: «, t00=0x0008, t01=0x0170}
0x0e20…0e5e Head {h00=0x003a, h01=0x0050, text=»* TO GET A CARDNUMBER-KEY WITHOUT BCD 'F' CHARACTERS, «, t00=0x0009, t01=0x0016}
0x0e5e…0e84 Head {h00=0x0022, h01=0x0050, text=»* ADCARDNR IS MULTIPLIED BY 1.«, t00=0x0009, t01=0x0054}
0x0e84…0eb6 Head {h00=0x002e, h01=0x0050, text=»* IN THIS WAY EACH 'F' IS REPLACED BY '0' «, t00=0x0009, t01=0x007a}
0x0eb6…0ec0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ac}
0x0ec0…0edc Head {h00=0x0018, h01=0x0050, text=» MUL ADCARDNR,=D'1' «, t00=0x0009, t01=0x00b6}
0x0edc…0ef4 Head {h00=0x0014, h01=0x0050, text=» TBT SBZEK,DF340«, t00=0x0009, t01=0x00d2}
0x0ef4…0f18 Head {h00=0x0020, h01=0x0050, text=» TBF SBCARD,DF350 NO 'CARD' «, t00=0x0009, t01=0x00ea}
0x0f18…0f26 Head {h00=0x000a, h01=0x0050, text=»DF340 «, t00=0x0009, t01=0x010e}
0x0f26…0f54 Head {h00=0x002a, h01=0x0050, text=» PERF XHMSU,ADCARDNR WRITE BADGE CARD «, t00=0x0009, t01=0x011c}
0x0f54…0f5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x014a}
0x0f5e…0fae Head {h00=0x004c, h01=0x0050, text=»* INITIATE ACCOUNT-RECORD AND TRANSACTION-RECORD *«, t00=0x0009, t01=0x0154}
0x0fae…0fb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0014}
0x0fb8…0fc6 Head {h00=0x000a, h01=0x0050, text=»DF350 «, t00=0x000a, t01=0x001e}
0x0fc6…0fe6 Head {h00=0x001c, h01=0x0050, text=» MOVE ADACTRNR,IDACTNR1 «, t00=0x000a, t01=0x002c}
0x0fe6…1004 Head {h00=0x001a, h01=0x0050, text=» MUL ADACTRNR,KDSHIFT «, t00=0x000a, t01=0x004c}
0x1004…1056 Head {h00=0x004e, h01=0x0050, text=» ADD YDLASSEQ,=D'1' «, t00=0x000a, t01=0x006a}
0x1056…10a6 Head {h00=0x004c, h01=0x0050, text=» MOVE ADLASSEQ,YDLASSEQ «, t00=0x000a, t01=0x00bc}
0x10a6…10f6 Head {h00=0x004c, h01=0x0050, text=» MOVE TDTRSSEQ,ADLASSEQ «, t00=0x000a, t01=0x010c}
0x10f6…1146 Head {h00=0x004c, h01=0x0050, text=»DF400 «, t00=0x000a, t01=0x015c}
0x1146…1196 Head {h00=0x004c, h01=0x0050, text=»* WRITE ACCOUNT-RECORD *«, t00=0x000b, t01=0x001c}
0x1196…11e6 Head {h00=0x004c, h01=0x0050, text=» PERF ZEINSD,ADACTRNR «, t00=0x000b, t01=0x006c}
0x11e6…1236 Head {h00=0x004c, h01=0x0050, text=» B DF999 «, t00=0x000b, t01=0x00bc}
0x1236…1286 Head {h00=0x004c, h01=0x0050, text=»DF900 «, t00=0x000b, t01=0x010c}
0x1286…12d6 Head {h00=0x004c, h01=0x0050, text=» PERF XEERR,=D'29',KW1 ERROR-MESSAGE , ANSWER MUST «, t00=0x000b, t01=0x015c}
0x12d6…1326 Head {h00=0x004c, h01=0x0050, text=»* BE "CANCEL" *«, t00=0x000c, t01=0x001c}
0x1326…1376 Head {h00=0x004c, h01=0x0050, text=»DF999 «, t00=0x000c, t01=0x006c}
0x1376…138c Head {h00=0x0012, h01=0x0050, text=» CLEAR SBOACT «, t00=0x000c, t01=0x00bc}
0x138c…13dc Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x000c, t01=0x00d2}
0x13dc…142c Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x000c, t01=0x0122}
0x142c…143a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0172}
0x143a…148a Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x000c, t01=0x0180}
0x148a…1494 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0040}
0x1494…14b6 Head {h00=0x001e, h01=0x0050, text=»* PROCEDURE NAME: SPAP13 «, t00=0x000d, t01=0x004a}
0x14b6…1502 Head {h00=0x0048, h01=0x0050, text=»* THIS ROUTINE CHECKS THE CARD-NUMBER KEYED IN IN OPEN-CHEQUE-«, t00=0x000d, t01=0x006c}
0x1502…1532 Head {h00=0x002c, h01=0x0050, text=»* ACCOUNT ( DFOACT ) AS FOLLOWS :«, t00=0x000d, t01=0x00b8}
0x1532…1568 Head {h00=0x0032, h01=0x0050, text=»* - CARD-NUMBER IN THE RANGE 1001-9999«, t00=0x000d, t01=0x00e8}
0x1568…159c Head {h00=0x0030, h01=0x0050, text=»* - CARD-NUMBER MAY NOT ALREADY EXIST«, t00=0x000d, t01=0x011e}
0x159c…15ec Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x000d, t01=0x0152}
0x15ec…1606 Head {h00=0x0016, h01=0x0050, text=»SPAP13 PROC XWRET «, t00=0x000e, t01=0x0012}
0x1606…161a Head {h00=0x0010, h01=0x0050, text=» PBIN XWRET «, t00=0x000e, t01=0x002c}
0x161a…1628 Head {h00=0x000a, h01=0x0050, text=»S13000«, t00=0x000e, t01=0x0040}
0x1628…164e Head {h00=0x0022, h01=0x0050, text=» CBL ADCARDNR,=D'1001',S13200 «, t00=0x000e, t01=0x004e}
0x164e…1674 Head {h00=0x0022, h01=0x0050, text=» CBG ADCARDNR,=D'9999',S13200 «, t00=0x000e, t01=0x0074}
0x1674…16a0 Head {h00=0x0028, h01=0x0050, text=» MOVE ADACTRNR,ADCARDNR«, t00=0x000e, t01=0x009a}
0x16a0…16aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c6}
0x16aa…16d6 Head {h00=0x0028, h01=0x0050, text=»* SEE IF RECORD IS AVAILABLE ALREADY«, t00=0x000e, t01=0x00d0}
0x16d6…170a Head {h00=0x0030, h01=0x0050, text=»* THE RECORD MUST NOT BE COPIED TO THE UWB, «, t00=0x000e, t01=0x00fc}
0x170a…172c Head {h00=0x001e, h01=0x0050, text=»* SO SBNOCOPY IS SET FIRST«, t00=0x000e, t01=0x0130}
0x172c…1736 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0152}
0x1736…175e Head {h00=0x0024, h01=0x0050, text=» SET SBNOCOPY DON'T COPY TO UWB «, t00=0x000e, t01=0x015c}
0x175e…17aa Head {h00=0x0048, h01=0x0050, text=» PERF ZCRDD,ADACTRNR,NDLRN1,KW2 READ VIA INDEX 2 «, t00=0x000e, t01=0x0184}
0x17aa…17c6 Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,S13999«, t00=0x000f, t01=0x0040}
0x17c6…17e2 Head {h00=0x0018, h01=0x0050, text=» TBT SBRECAVB,S13100«, t00=0x000f, t01=0x005c}
0x17e2…17f4 Head {h00=0x000e, h01=0x0050, text=» B S13999 «, t00=0x000f, t01=0x0078}
0x17f4…1802 Head {h00=0x000a, h01=0x0050, text=»S13100«, t00=0x000f, t01=0x008a}
0x1802…181e Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'29'«, t00=0x000f, t01=0x0098}
0x181e…1838 Head {h00=0x0016, h01=0x0050, text=» MOVE XWRET,=W'1' «, t00=0x000f, t01=0x00b4}
0x1838…184a Head {h00=0x000e, h01=0x0050, text=» B S13999 «, t00=0x000f, t01=0x00ce}
0x184a…1858 Head {h00=0x000a, h01=0x0050, text=»S13200«, t00=0x000f, t01=0x00e0}
0x1858…1886 Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW4,=W'1' VALUE NOT IN RANGE«, t00=0x000f, t01=0x00ee}
0x1886…18a0 Head {h00=0x0016, h01=0x0050, text=» MOVE XWRET,=W'1' «, t00=0x000f, t01=0x011c}
0x18a0…18ae Head {h00=0x000a, h01=0x0050, text=»S13999«, t00=0x000f, t01=0x0136}
0x18ae…18ba Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000f, t01=0x0144}
0x18ba…18c8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000f, t01=0x0150}
0x18c8…1918 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x000f, t01=0x015e}
0x1918…1968 Head {h00=0x004c, h01=0x0050, text=» END «, t00=0x0010, t01=0x001e}
0x1968…196c Head {h00=0x4004, h01=0x0000}
0x196c…1970 00 10 00 6e ┆ n┆
0x1970…1978 (17, 1, 8) 20 04 00 00 00 11 00 04 ┆ ┆