|
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: 3294 (0xcde)
Notes: pts_type(SC)
Names: »BDE.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »BARCLAY/BDE.SC«
└─⟦this⟧ »BARCLAY/BDE.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »BARCLAY/BDE.SC«
IDENT BDE 80.10.09 NJ DDUM NJDDIV * THE MODULE TAKES CARE OF THE * BASIC DATA ENTRY * FUNCTION OF BARCLAYS TERMINAL SYSTEM PDIV ENTRY BDE EXPROC DCSEND,PSTRG EXPROC BDEINP EXPROC UNPCK * * INCLUDE EQUATE * * EJECT BDE PROC * * PROCEDURE FOR PROCESSING BASIC DATA ENTRY * * THIS PROCEDURE IS CALLED UPON VALID * DEPRESSION OF THE <BDE> KEY. * * FIRST STEP TO BE TAKEN: TRANSMIT A SESSION HEADER * MOVE TSTR20,='00020 ' XCOPY TSTR20,CBIN5,CBIN3,TBRANCH,CBIN0 DEST.BRANCH XCOPY TSTR20,CBIN10,CBIN2,TTYPE,CBIN0 SCREEN NUMBER XCOPY TSTR20,CBIN12,CBIN5,TTERMID,CBIN0 TERMINAL ID MOVE TSCRBUF,ETX CLEAR BUFFER WITH ETX XCOPY TSCRBUF,CBIN0,CBIN15,TSTR20,CBIN0 PERF DCSEND,TSCRBUF SEND SESSION HEADER BERR BDE099 ERROR, GET BACK * * NOW THE MENU (OR OTHER DATA) HAS BEEN RECEIVED AND * IS TO BE UNPACKED * BDE010 PERF UNPCK * * NOW WE ARE READY FOR INPUT * PERF BDEINP INPUTROUTINE FOR BDE BERR BDE099 CBE TBIN1,CBIN4,BDE090 FR-KEY DEPRESSED ? MOVE TSTR20,='00020 ' NETWORKHEADER XCOPY TSTR20,CBIN5,CBIN3,TBRANCH,CBIN0 DEST.BRANCH XCOPY TSTR20,CBIN10,CBIN2,TTYPE,CBIN0 TYPE = SCREEN NUMBER XCOPY TSTR20,CBIN12,CBIN5,TTERMID,CBIN0 TERMINAL ID INSRT TSCRBUF,CBIN0,CBIN17,TSTR20,CBIN0 PUT IN FRONT OF DATA PERF DCSEND,TSCRBUF BERR BDE099 B BDE010 NEW ROUND BDE090 CLEAR VAR. FLAGS CMP CBIN0,CBIN0 BDE099 RET PEND END
0x000…01e (0, 0, 400) Head {h00=0x001a, h01=0x0050, text=» IDENT BDE 80.10.09 NJ«, t00=0x0000, t01=0x0004}
0x01e…032 Head {h00=0x0010, h01=0x0050, text=» DDUM NJDDIV«, t00=0x0000, t01=0x0022}
0x032…03a Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0036}
0x03a…042 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003e}
0x042…04a Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0046}
0x04a…052 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x004e}
0x052…05a Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0056}
0x05a…062 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x005e}
0x062…088 Head {h00=0x0022, h01=0x0050, text=»* THE MODULE TAKES CARE OF THE«, t00=0x0000, t01=0x0066}
0x088…0a2 Head {h00=0x0016, h01=0x0050, text=»* BASIC DATA ENTRY«, t00=0x0000, t01=0x008c}
0x0a2…0d0 Head {h00=0x002a, h01=0x0050, text=»* FUNCTION OF BARCLAYS TERMINAL SYSTEM«, t00=0x0000, t01=0x00a6}
0x0d0…0de Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x00d4}
0x0de…0f0 Head {h00=0x000e, h01=0x0050, text=» ENTRY BDE«, t00=0x0000, t01=0x00e2}
0x0f0…10c Head {h00=0x0018, h01=0x0050, text=» EXPROC DCSEND,PSTRG«, t00=0x0000, t01=0x00f4}
0x10c…122 Head {h00=0x0012, h01=0x0050, text=» EXPROC BDEINP«, t00=0x0000, t01=0x0110}
0x122…138 Head {h00=0x0012, h01=0x0050, text=» EXPROC UNPCK «, t00=0x0000, t01=0x0126}
0x138…142 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x013c}
0x142…14c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0146}
0x14c…164 Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0000, t01=0x0150}
0x164…16e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0168}
0x16e…178 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0172}
0x178…186 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x017c}
0x186…196 Head {h00=0x000c, h01=0x0050, text=»BDE PROC«, t00=0x0000, t01=0x018a}
0x196…1a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x000a}
0x1a0…1d4 Head {h00=0x0030, h01=0x0050, text=»* PROCEDURE FOR PROCESSING BASIC DATA ENTRY «, t00=0x0001, t01=0x0014}
0x1d4…1de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0048}
0x1de…20c Head {h00=0x002a, h01=0x0050, text=»* THIS PROCEDURE IS CALLED UPON VALID «, t00=0x0001, t01=0x0052}
0x20c…232 Head {h00=0x0022, h01=0x0050, text=»* DEPRESSION OF THE <BDE> KEY.«, t00=0x0001, t01=0x0080}
0x232…23c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a6}
0x23c…278 Head {h00=0x0038, h01=0x0050, text=»* FIRST STEP TO BE TAKEN: TRANSMIT A SESSION HEADER «, t00=0x0001, t01=0x00b0}
0x278…282 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ec}
0x282…2a0 Head {h00=0x001a, h01=0x0050, text=» MOVE TSTR20,='00020 '«, t00=0x0001, t01=0x00f6}
0x2a0…2de Head {h00=0x003a, h01=0x0050, text=» XCOPY TSTR20,CBIN5,CBIN3,TBRANCH,CBIN0 DEST.BRANCH«, t00=0x0001, t01=0x0114}
0x2de…31c Head {h00=0x003a, h01=0x0050, text=» XCOPY TSTR20,CBIN10,CBIN2,TTYPE,CBIN0 SCREEN NUMBER«, t00=0x0001, t01=0x0152}
0x31c…35a Head {h00=0x003a, h01=0x0050, text=» XCOPY TSTR20,CBIN12,CBIN5,TTERMID,CBIN0 TERMINAL ID«, t00=0x0001, t01=0x0190}
0x35a…38a Head {h00=0x002c, h01=0x0050, text=» MOVE TSCRBUF,ETX CLEAR BUFFER WITH ETX«, t00=0x0002, t01=0x003e}
0x38a…3ba Head {h00=0x002c, h01=0x0050, text=» XCOPY TSCRBUF,CBIN0,CBIN15,TSTR20,CBIN0«, t00=0x0002, t01=0x006e}
0x3ba…3ea Head {h00=0x002c, h01=0x0050, text=» PERF DCSEND,TSCRBUF SEND SESSION HEADER«, t00=0x0002, t01=0x009e}
0x3ea…40e Head {h00=0x0020, h01=0x0050, text=» BERR BDE099 ERROR, GET BACK«, t00=0x0002, t01=0x00ce}
0x40e…418 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00f2}
0x418…454 Head {h00=0x0038, h01=0x0050, text=»* NOW THE MENU (OR OTHER DATA) HAS BEEN RECEIVED AND«, t00=0x0002, t01=0x00fc}
0x454…470 Head {h00=0x0018, h01=0x0050, text=»* IS TO BE UNPACKED «, t00=0x0002, t01=0x0138}
0x470…47a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0154}
0x47a…488 Head {h00=0x000a, h01=0x0050, text=»BDE010«, t00=0x0002, t01=0x015e}
0x488…49c Head {h00=0x0010, h01=0x0050, text=» PERF UNPCK «, t00=0x0002, t01=0x016c}
0x49c…4a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0180}
0x4a6…4ca Head {h00=0x0020, h01=0x0050, text=»* NOW WE ARE READY FOR INPUT«, t00=0x0002, t01=0x018a}
0x4ca…4d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x001e}
0x4d4…4fe Head {h00=0x0026, h01=0x0050, text=» PERF BDEINP INPUTROUTINE FOR BDE «, t00=0x0003, t01=0x0028}
0x4fe…512 Head {h00=0x0010, h01=0x0050, text=» BERR BDE099«, t00=0x0003, t01=0x0052}
0x512…544 Head {h00=0x002e, h01=0x0050, text=» CBE TBIN1,CBIN4,BDE090 FR-KEY DEPRESSED ?«, t00=0x0003, t01=0x0066}
0x544…570 Head {h00=0x0028, h01=0x0050, text=» MOVE TSTR20,='00020 ' NETWORKHEADER«, t00=0x0003, t01=0x0098}
0x570…5ac Head {h00=0x0038, h01=0x0050, text=» XCOPY TSTR20,CBIN5,CBIN3,TBRANCH,CBIN0 DEST.BRANCH «, t00=0x0003, t01=0x00c4}
0x5ac…5f0 Head {h00=0x0040, h01=0x0050, text=» XCOPY TSTR20,CBIN10,CBIN2,TTYPE,CBIN0 TYPE = SCREEN NUMBER «, t00=0x0003, t01=0x0100}
0x5f0…62c Head {h00=0x0038, h01=0x0050, text=» XCOPY TSTR20,CBIN12,CBIN5,TTERMID,CBIN0 TERMINAL ID«, t00=0x0003, t01=0x0144}
0x62c…672 Head {h00=0x0042, h01=0x0050, text=» INSRT TSCRBUF,CBIN0,CBIN17,TSTR20,CBIN0 PUT IN FRONT OF DATA «, t00=0x0003, t01=0x0180}
0x672…68e Head {h00=0x0018, h01=0x0050, text=» PERF DCSEND,TSCRBUF«, t00=0x0004, t01=0x0036}
0x68e…6a2 Head {h00=0x0010, h01=0x0050, text=» BERR BDE099«, t00=0x0004, t01=0x0052}
0x6a2…6be Head {h00=0x0018, h01=0x0050, text=» B BDE010 NEW ROUND «, t00=0x0004, t01=0x0066}
0x6be…6cc Head {h00=0x000a, h01=0x0050, text=»BDE090«, t00=0x0004, t01=0x0082}
0x6cc…6e8 Head {h00=0x0018, h01=0x0050, text=» CLEAR VAR. FLAGS «, t00=0x0004, t01=0x0090}
0x6e8…700 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0004, t01=0x00ac}
0x700…70e Head {h00=0x000a, h01=0x0050, text=»BDE099«, t00=0x0004, t01=0x00c4}
0x70e…71a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0004, t01=0x00d2}
0x71a…728 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0004, t01=0x00de}
0x728…734 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0004, t01=0x00ec}
0x734…738 Head {h00=0x4004, h01=0x0000}
0x738…73c 00 04 00 f8 ┆ ┆
0x73c…744 (5, 1, 8) 20 04 00 00 00 05 00 04 ┆ ┆
0x744…794 (6, 0, 400) 00 ff 01 71 00 25 01 8c 00 0c 00 08 00 03 02 06 01 00 01 71 00 26 00 0c 00 0c 00 08 00 03 02 06 01 01 01 71 00 26 00 1c 00 0c 00 08 00 03 02 06 01 02 01 71 00 26 00 2c 00 0c 00 08 00 03 02 06 01 03 01 1b 00 26 00 3c 00 0c 00 08 00 03 02 06 ┆ q % q & q & q & , & < ┆
0x794…7e4 01 04 00 03 00 26 00 4c 00 0c 00 08 00 03 02 06 01 05 01 06 00 26 00 5c 00 4a 00 46 00 22 00 44 00 c0 3d 11 5a c1 32 3d 09 52 52 52 52 52 52 52 52 52 80 52 11 6a 4c 34 14 47 10 02 34 14 6a 4c 34 12 4e 10 02 34 12 01 3c 4c 01 3d 4c 80 52 3c ┆ & L & J F " D = Z 2= RRRRRRRRR R jL4 G 4 jL4 N 4 <L =L R<┆
0x7e4…834 3d 00 3c 1a 80 52 3c 4b 3d 12 5a f7 32 3d 09 52 52 52 00 26 00 6c 00 0c 00 08 00 03 07 06 01 07 00 08 00 26 00 ba 00 18 00 15 00 0a 14 13 01 20 00 0d 30 30 30 33 30 20 20 20 20 20 30 31 00 26 00 ca 00 0c 00 08 00 03 07 06 01 34 00 02 00 26 ┆= < R<K= Z 2= RRR & l & 00030 01 & 4 &┆
0x834…884 00 e6 00 0e 00 0a 00 04 14 08 01 40 00 02 39 39 00 26 00 f6 00 4a 00 46 00 22 00 44 01 00 52 52 52 52 52 52 80 52 11 6a 4c 34 14 47 10 02 34 14 6a 4c 34 1a 4e 10 02 34 1a 00 4b 4c 01 48 4c 6a 48 15 13 46 10 6a 48 1a 15 41 10 64 4b 10 1e 48 ┆ @ 99 & J F " D RRRRRR R jL4 G 4 jL4 N 4 KL HLjH F jH A dK H┆
0x884…8d4 10 80 52 4b 52 32 6a 45 10 12 4b 19 21 45 00 26 01 08 00 0c 00 08 00 03 07 06 01 45 00 12 00 26 01 56 00 0e 00 0a 00 04 10 08 01 48 20 02 00 18 00 26 01 66 00 0c 00 08 00 03 07 06 01 4a 00 0a 00 26 01 78 00 0c 00 08 00 03 07 06 01 51 00 06 ┆ RKR2jE K !E & E & V H & f J & x Q ┆
0x8d4…8de (7, 0, 10) 01 30 02 10 02 78 0c 68 0c 80 ┆ 0 x h ┆
0x8de…92e (8, 2, 160) 00 1a 00 18 20 20 20 20 20 20 20 20 20 49 44 45 4e 54 20 53 3a 47 54 41 42 20 00 00 00 04 00 0e 00 0a 01 04 c8 53 3a 47 54 41 42 20 00 00 00 22 00 10 00 0c 05 05 c8 53 3a 47 54 41 42 20 00 00 00 00 00 34 00 0e 00 0a 02 04 c8 50 3a 4d 54 41 ┆ IDENT S:GTAB S:GTAB " S:GTAB 4 P:MTA┆
0x92e…97e 42 20 00 00 00 48 00 0c 00 08 02 03 a8 50 3a 45 4e 44 00 00 00 5a 00 1c 00 18 03 0b 00 00 00 01 88 00 00 00 00 02 43 52 0f bc 00 00 00 04 00 00 00 00 00 00 00 6a 00 0e 00 0a 07 04 00 00 00 00 00 0c 00 00 00 00 00 8a 40 04 00 00 00 00 00 9c ┆B H P:END Z CR j @ ┆
0x97e…9ce (9, 2, 382) 00 2e 00 48 20 49 44 45 4e 54 20 54 3a 41 4b 30 30 20 20 54 52 41 20 31 30 2e 30 20 38 30 2d 31 31 2d 30 36 20 46 31 20 4f 31 31 31 31 20 00 01 00 04 00 0e 00 0a 01 04 c8 54 3a 41 4b 30 30 00 00 01 00 36 00 10 00 0c 05 05 c8 54 3a 41 4b 30 ┆ . H IDENT T:AK00 TRA 10.0 80-11-06 F1 O1111 T:AK00 6 T:AK0┆
0x9ce…a1e 30 41 00 4a 00 01 00 48 00 3e 00 3a 02 1c c8 54 3a 44 4b 30 30 00 c8 44 3a 43 42 31 30 00 c8 43 3a 43 42 31 30 00 c8 44 3a 43 42 32 30 00 c8 43 3a 43 42 32 30 00 c8 44 3a 54 42 31 30 00 c8 5a 3a 54 42 31 30 00 00 01 00 5c 00 16 00 12 02 08 ┆0A J H > : T:DK00 D:CB10 C:CB10 D:CB20 C:CB20 D:TB10 Z:TB10 ┆
0xa1e…a6e c8 44 3a 54 42 32 30 41 c8 5a 3a 54 42 32 30 41 00 01 00 9e 00 2a 00 26 03 12 00 00 00 01 00 00 80 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 80 20 00 00 00 00 00 00 00 00 00 01 00 b8 00 2a 00 26 03 12 00 00 00 1f 00 00 00 00 ┆ D:TB20A Z:TB20A * & 0 * & ┆
0xa6e…abe 00 00 00 00 00 00 00 00 c0 50 00 00 00 64 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 e6 00 2c 00 28 03 13 00 00 00 3d 10 2a 00 00 00 00 00 00 00 00 00 02 00 00 4b 30 00 00 00 00 00 80 00 00 00 04 00 00 00 06 00 00 00 08 00 01 01 14 ┆ P d , ( = * K0 ┆
0xabe…afc 00 20 00 1c 03 0d 00 00 00 55 aa 80 00 00 00 0a 00 00 00 0c 00 00 00 0e 00 00 00 10 00 00 00 12 00 01 01 44 00 0e 00 0a 07 04 00 00 00 3d 00 5e 00 00 00 01 01 68 40 04 00 00 00 01 01 7a ┆ U D = ^ h@ z┆
0xafc…b4c (10, 2, 196) 00 2e 00 48 20 49 44 45 4e 54 20 54 3a 44 4b 30 30 20 20 54 52 41 20 31 30 2e 30 20 38 30 2d 31 31 2d 30 36 20 46 31 20 4f 31 31 31 31 20 00 02 00 04 00 0e 00 0a 01 04 c8 54 3a 44 4b 30 30 00 00 02 00 36 00 10 00 0c 05 05 c8 54 3a 44 4b 30 ┆ . H IDENT T:DK00 TRA 10.0 80-11-06 F1 O1111 T:DK00 6 T:DK0┆
0xb4c…b9c 30 44 00 00 00 02 00 48 00 0c 00 08 02 03 88 4b 42 47 4f 30 00 02 00 5c 00 2a 00 26 03 12 00 00 00 01 00 00 00 00 4b 30 00 03 00 04 30 00 00 00 c0 00 00 00 2a 00 00 00 00 2a ff ff 00 00 00 01 00 00 00 02 00 6c 00 10 00 0c 03 05 00 00 00 1f ┆0D H KBGO0 * & K0 0 * * l ┆
0xb9c…bc0 80 00 00 00 00 02 00 02 00 9a 00 0e 00 0a 07 04 00 00 00 01 00 20 00 00 00 02 00 ae 40 04 00 00 00 02 00 c0 ┆ @ ┆
0xbc0…c10 (11, 2, 154) 00 2e 00 48 20 49 44 45 4e 54 20 54 3a 41 54 41 42 20 20 54 52 41 20 31 30 2e 30 20 38 30 2d 31 31 2d 30 36 20 46 31 20 4f 31 31 31 31 20 00 03 00 04 00 0e 00 0a 01 04 c8 54 3a 41 54 41 42 00 00 03 00 36 00 10 00 0c 05 05 c8 54 3a 41 54 41 ┆ . H IDENT T:ATAB TRA 10.0 80-11-06 F1 O1111 T:ATAB 6 T:ATA┆
0xc10…c5a 42 41 00 02 00 03 00 48 00 0e 00 0a 02 04 c8 54 3a 41 4b 30 30 00 00 03 00 5c 00 12 00 0e 03 06 00 00 00 01 40 00 00 04 00 00 00 02 00 03 00 6e 00 0e 00 0a 07 04 00 00 3a 41 00 04 00 00 00 03 00 84 40 04 00 00 00 03 00 96 ┆BA H T:AK00 @ n :A @ ┆
0xc5a…caa (12, 2, 132) 00 2e 00 48 20 49 44 45 4e 54 20 55 3a 42 54 41 42 20 20 54 52 41 20 31 30 2e 30 20 38 30 2d 31 31 2d 30 36 20 46 31 20 4f 31 31 31 31 20 00 04 00 04 00 0e 00 0a 01 04 c8 55 3a 42 54 41 42 00 00 04 00 36 00 10 00 0c 05 05 c8 55 3a 42 54 41 ┆ . H IDENT U:BTAB TRA 10.0 80-11-06 F1 O1111 U:BTAB 6 U:BTA┆
0xcaa…cde 42 42 00 02 00 04 00 48 00 0e 00 0a 03 04 00 00 00 01 00 00 00 02 00 04 00 5c 00 0e 00 0a 07 04 00 00 3a 42 00 02 00 00 00 04 00 6e 40 04 00 00 00 04 00 80 ┆BB H :B n@ ┆