|
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: 4708 (0x1264)
Notes: pts_type(SC)
Names: »DHBACT.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »DEMO6800/DHBACT.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »DEMO6800/DHBACT.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »PTSDEMO/DHBACT.SC«
IDENT DHBACT BLOCK / DEBLOCK ACCOUNT DDUM DEMODD PDIV ENTRY DHBACT EXPROC PAJRN EXPROC XBFMT EXPROC ZDRWRD DHBACT PROC (DE-)BLOCK ACCOUNT DH000 CBE ADSTATUS,=D'1',DH100 SET SBBACT BLOCKED ACCOUNTRECORD MOVE TDTRSCDE,=D'82' UPDATE TO DEBLOCKED B DH200 DH100 SET SBDACT DEBLOCKED ACCOUNTRECORD MOVE TDTRSCDE,=D'83' UPDATE TO BLOCKED DH200 ** * PRINT LINE TYPE 1 AND 2* ** PERF PAJRN,=W'1' PERF PAJRN,=W'2' DH300 ** * DISPLAY (DE-)BLOCK ACCOUNT SCREEN* * IF ALPHA-KEYBOARD IS AVAILABLE, THE REASON FOR THE ACTION* * CAN BE ENTERED* ** MOVE TCTEXT,=C' ' PERF XBFMT,=W'48' TBT SBCANCEL,DH900 DH400 ADD YDLASSEQ,=D'1' MOVE ADLASSEQ,YDLASSEQ MOVE TDTRSSEQ,YDLASSEQ ** * RESET STATUS* ** CBE ADSTATUS,=D'1',DH500 MOVE ADSTATUS,=D'1' B DH600 DH500 MOVE ADSTATUS,=D'0' ** * REWRITE ACCOUNTRECORD* ** DH600 PERF ZDRWRD,ADACTRNR,NDLRN1 DH900 CLEAR SBDACT CLEAR SBBACT RET PEND * * END
0x0000…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT DHBACT BLOCK / DEBLOCK ACCOUNT «, t00=0x0000, t01=0x0004}
0x0034…0084 Head {h00=0x004c, h01=0x0050, text=» DDUM DEMODD «, t00=0x0000, t01=0x0038}
0x0084…00d4 Head {h00=0x004c, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0088}
0x00d4…0124 Head {h00=0x004c, h01=0x0050, text=» ENTRY DHBACT «, t00=0x0000, t01=0x00d8}
0x0124…0178 Head {h00=0x0050, h01=0x0050, text=» EXPROC PAJRN «, t00=0x0000, t01=0x0128}
0x0178…01cc Head {h00=0x0050, h01=0x0050, text=» EXPROC XBFMT «, t00=0x0000, t01=0x017c}
0x01cc…0220 Head {h00=0x0050, h01=0x0050, text=» EXPROC ZDRWRD «, t00=0x0001, t01=0x0040}
0x0220…0270 Head {h00=0x004c, h01=0x0050, text=»DHBACT PROC (DE-)BLOCK ACCOUNT «, t00=0x0001, t01=0x0094}
0x0270…02c0 Head {h00=0x004c, h01=0x0050, text=»DH000 «, t00=0x0001, t01=0x00e4}
0x02c0…0310 Head {h00=0x004c, h01=0x0050, text=» CBE ADSTATUS,=D'1',DH100 «, t00=0x0001, t01=0x0134}
0x0310…0360 Head {h00=0x004c, h01=0x0050, text=» SET SBBACT BLOCKED ACCOUNTRECORD «, t00=0x0001, t01=0x0184}
0x0360…03b0 Head {h00=0x004c, h01=0x0050, text=» MOVE TDTRSCDE,=D'82' UPDATE TO DEBLOCKED «, t00=0x0002, t01=0x0044}
0x03b0…0400 Head {h00=0x004c, h01=0x0050, text=» B DH200 «, t00=0x0002, t01=0x0094}
0x0400…0450 Head {h00=0x004c, h01=0x0050, text=»DH100 SET SBDACT DEBLOCKED ACCOUNTRECORD «, t00=0x0002, t01=0x00e4}
0x0450…04a0 Head {h00=0x004c, h01=0x0050, text=» MOVE TDTRSCDE,=D'83' UPDATE TO BLOCKED «, t00=0x0002, t01=0x0134}
0x04a0…04f0 Head {h00=0x004c, h01=0x0050, text=»DH200 «, t00=0x0002, t01=0x0184}
0x04f0…0540 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0003, t01=0x0044}
0x0540…0590 Head {h00=0x004c, h01=0x0050, text=»* PRINT LINE TYPE 1 AND 2 *«, t00=0x0003, t01=0x0094}
0x0590…05e0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0003, t01=0x00e4}
0x05e0…05fa Head {h00=0x0016, h01=0x0050, text=» PERF PAJRN,=W'1' «, t00=0x0003, t01=0x0134}
0x05fa…0614 Head {h00=0x0016, h01=0x0050, text=» PERF PAJRN,=W'2' «, t00=0x0003, t01=0x014e}
0x0614…0664 Head {h00=0x004c, h01=0x0050, text=»DH300 «, t00=0x0003, t01=0x0168}
0x0664…06b4 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0004, t01=0x0028}
0x06b4…0704 Head {h00=0x004c, h01=0x0050, text=»* DISPLAY (DE-)BLOCK ACCOUNT SCREEN *«, t00=0x0004, t01=0x0078}
0x0704…0754 Head {h00=0x004c, h01=0x0050, text=»* IF ALPHA-KEYBOARD IS AVAILABLE, THE REASON FOR THE ACTION *«, t00=0x0004, t01=0x00c8}
0x0754…07a4 Head {h00=0x004c, h01=0x0050, text=»* CAN BE ENTERED *«, t00=0x0004, t01=0x0118}
0x07a4…07f4 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0004, t01=0x0168}
0x07f4…0844 Head {h00=0x004c, h01=0x0050, text=» MOVE TCTEXT,=C' ' «, t00=0x0005, t01=0x0028}
0x0844…0894 Head {h00=0x004c, h01=0x0050, text=» PERF XBFMT,=W'48' «, t00=0x0005, t01=0x0078}
0x0894…08e4 Head {h00=0x004c, h01=0x0050, text=» TBT SBCANCEL,DH900 «, t00=0x0005, t01=0x00c8}
0x08e4…0934 Head {h00=0x004c, h01=0x0050, text=»DH400 «, t00=0x0005, t01=0x0118}
0x0934…0984 Head {h00=0x004c, h01=0x0050, text=» ADD YDLASSEQ,=D'1' «, t00=0x0005, t01=0x0168}
0x0984…09d4 Head {h00=0x004c, h01=0x0050, text=» MOVE ADLASSEQ,YDLASSEQ «, t00=0x0006, t01=0x0028}
0x09d4…0a24 Head {h00=0x004c, h01=0x0050, text=» MOVE TDTRSSEQ,YDLASSEQ «, t00=0x0006, t01=0x0078}
0x0a24…0a74 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0006, t01=0x00c8}
0x0a74…0ac4 Head {h00=0x004c, h01=0x0050, text=»* RESET STATUS *«, t00=0x0006, t01=0x0118}
0x0ac4…0b14 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0006, t01=0x0168}
0x0b14…0b36 Head {h00=0x001e, h01=0x0050, text=» CBE ADSTATUS,=D'1',DH500 «, t00=0x0007, t01=0x0028}
0x0b36…0b86 Head {h00=0x004c, h01=0x0050, text=» MOVE ADSTATUS,=D'1' «, t00=0x0007, t01=0x004a}
0x0b86…0b96 Head {h00=0x000c, h01=0x0050, text=» B DH600«, t00=0x0007, t01=0x009a}
0x0b96…0be6 Head {h00=0x004c, h01=0x0050, text=»DH500 «, t00=0x0007, t01=0x00aa}
0x0be6…0c36 Head {h00=0x004c, h01=0x0050, text=» MOVE ADSTATUS,=D'0' «, t00=0x0007, t01=0x00fa}
0x0c36…0c86 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0007, t01=0x014a}
0x0c86…0cd6 Head {h00=0x004c, h01=0x0050, text=»* REWRITE ACCOUNTRECORD *«, t00=0x0008, t01=0x000a}
0x0cd6…0d26 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0008, t01=0x005a}
0x0d26…0d34 Head {h00=0x000a, h01=0x0050, text=»DH600 «, t00=0x0008, t01=0x00aa}
0x0d34…0d84 Head {h00=0x004c, h01=0x0050, text=» PERF ZDRWRD,ADACTRNR,NDLRN1 «, t00=0x0008, t01=0x00b8}
0x0d84…0dd4 Head {h00=0x004c, h01=0x0050, text=»DH900 «, t00=0x0008, t01=0x0108}
0x0dd4…0e24 Head {h00=0x004c, h01=0x0050, text=» CLEAR SBDACT «, t00=0x0008, t01=0x0158}
0x0e24…0e74 Head {h00=0x004c, h01=0x0050, text=» CLEAR SBBACT «, t00=0x0009, t01=0x0018}
0x0e74…0ec4 Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x0009, t01=0x0068}
0x0ec4…0f14 Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x00b8}
0x0f14…0f1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0108}
0x0f1e…0f28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0112}
0x0f28…0f34 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0009, t01=0x011c}
0x0f34…0f38 Head {h00=0x4004, h01=0x0000}
0x0f38…0f3c 00 09 01 28 ┆ (┆
0x0f3c…0f44 (10, 1, 8) 20 04 00 00 00 0a 00 04 ┆ ┆
0x0f44…0f94 (11, 0, 400) 46 4f 52 20 50 42 42 4f 4f 4b 20 4f 52 20 44 4b 44 53 54 4d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 0a 01 76 00 4c 00 50 2a 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆FOR PBBOOK OR DKDSTM * v L P* ┆
0x0f94…0fe4 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 0b 00 36 00 4c 00 50 5c 50 45 52 46 5c 5a 43 52 44 44 2c 41 44 41 43 54 52 4e 52 2c 4e 44 4c 52 4e ┆ * 6 L P PERF ZCRDD,ADACTRNR,NDLRN┆
0x0fe4…1034 31 2c 4b 57 31 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 00 86 00 4c 00 50 5c 54 42 54 5c 53 42 43 41 4e 43 45 4c 2c 44 47 39 39 39 5c 5c 5c 00 00 00 00 ┆1,KW1 L P TBT SBCANCEL,DG999 ┆
0x1034…1084 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 00 d6 00 4c 00 50 5c 54 42 54 5c 53 42 43 48 51 41 43 54 2c 44 47 37 30 30 5c 5c 5c 00 00 00 00 ┆ L P TBT SBCHQACT,DG700 ┆
0x1084…10d4 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 01 26 00 4c 00 50 2a 20 53 41 56 49 4e 47 53 20 41 43 43 4f 55 4e 54 2c 20 50 52 49 4e 54 20 42 ┆ & L P* SAVINGS ACCOUNT, PRINT B┆
0x10d4…1124 (12, 0, 400) 4f 4f 4b 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 0b 01 76 00 4c 00 50 5c 50 45 52 46 5c 50 42 42 4f 4f 4b 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 ┆OOK * v L P PERF PBBOOK ┆
0x1124…1174 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c 00 36 00 4c 00 50 5c 42 5c 44 47 39 39 39 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ 6 L P B DG999 ┆
0x1174…11c4 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c 00 86 00 4c 00 50 2a 20 43 48 45 51 55 45 20 41 43 43 4f 55 4e 54 2c 20 50 52 49 4e 54 20 44 41 ┆ L P* CHEQUE ACCOUNT, PRINT DA┆
0x11c4…1214 49 4c 59 2d 53 54 41 54 45 4d 45 4e 54 53 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 0c 00 d6 00 4c 00 50 44 47 37 30 30 5c 5c 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ILY-STATEMENTS * L PDG700 ┆
0x1214…1264 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c 01 26 00 4c 00 50 5c 50 45 52 46 5c 44 4b 44 53 54 4d 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 ┆ & L P PERF DKDSTM ┆