|
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: 1340 (0x53c)
Notes: pts_type(SC)
Names: »DOQCCY.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »DEMO6800/DOQCCY.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »DEMO6800/DOQCCY.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »PTSDEMO/DOQCCY.SC«
IDENT DOQCCY CURRENCY INQUIRY
DDIV DEMODD
PDIV
EXPROC EPPCCY
EXPROC PAJRN
EXPROC XBFMT
ENTRY DOQCCY
**********************************************************************
*
* CURRENCY INQUIRY
*
**********************************************************************
DOQCCY PROC
SET SBQCCY
PERF PAJRN,=W'1'
TBF SBFT80,DO100 NOCOMPACT TERMINAL
PERF XBFMT,=W'72'
B DO200
DO100
PERF XBFMT,=W'57'
DO200
TBT SBCANCEL,DO999
*
* PRINT LINES
*
ADD YDLASSEQ,=D'1'
MOVE TDTRSSEQ,YDLASSEQ
PERF EPPCCY
DO999
CLEAR SBQCCY
RET
PEND
**********************************************************************
END
0x000…042 (0, 0, 400) Head {h00=0x003e, h01=0x003a, text=» IDENT DOQCCY CURRENCY INQUIRY«, t00=0x0000, t01=0x0004}
0x042…056 Head {h00=0x0010, h01=0x000c, text=» DDIV DEMODD«, t00=0x0000, t01=0x0046}
0x056…064 Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x005a}
0x064…07a Head {h00=0x0012, h01=0x0050, text=» EXPROC EPPCCY«, t00=0x0000, t01=0x0068}
0x07a…090 Head {h00=0x0012, h01=0x0050, text=» EXPROC PAJRN «, t00=0x0000, t01=0x007e}
0x090…0a6 Head {h00=0x0012, h01=0x0050, text=» EXPROC XBFMT «, t00=0x0000, t01=0x0094}
0x0a6…0bc Head {h00=0x0012, h01=0x000d, text=» ENTRY DOQCCY «, t00=0x0000, t01=0x00aa}
0x0bc…10a Head {h00=0x004a, h01=0x0046, text=»**********************************************************************«, t00=0x0000, t01=0x00c0}
0x10a…114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010e}
0x114…12e Head {h00=0x0016, h01=0x0050, text=»* CURRENCY INQUIRY«, t00=0x0000, t01=0x0118}
0x12e…138 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0132}
0x138…186 Head {h00=0x004a, h01=0x0046, text=»**********************************************************************«, t00=0x0000, t01=0x013c}
0x186…19a Head {h00=0x0010, h01=0x000b, text=»DOQCCY PROC «, t00=0x0000, t01=0x018a}
0x19a…1ae Head {h00=0x0010, h01=0x000b, text=» SET SBQCCY «, t00=0x0001, t01=0x000e}
0x1ae…1d4 Head {h00=0x0022, h01=0x0050, text=» PERF PAJRN,=W'1' «, t00=0x0001, t01=0x0022}
0x1d4…200 Head {h00=0x0028, h01=0x0050, text=» TBF SBFT80,DO100 NOCOMPACT TERMINAL«, t00=0x0001, t01=0x0048}
0x200…21a Head {h00=0x0016, h01=0x0050, text=» PERF XBFMT,=W'72'«, t00=0x0001, t01=0x0074}
0x21a…22a Head {h00=0x000c, h01=0x0050, text=» B DO200«, t00=0x0001, t01=0x008e}
0x22a…238 Head {h00=0x000a, h01=0x0050, text=»DO100 «, t00=0x0001, t01=0x009e}
0x238…252 Head {h00=0x0016, h01=0x0012, text=» PERF XBFMT,=W'57'«, t00=0x0001, t01=0x00ac}
0x252…260 Head {h00=0x000a, h01=0x0050, text=»DO200 «, t00=0x0001, t01=0x00c6}
0x260…27c Head {h00=0x0018, h01=0x0013, text=» TBT SBCANCEL,DO999 «, t00=0x0001, t01=0x00d4}
0x27c…286 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0001, t01=0x00f0}
0x286…29e Head {h00=0x0014, h01=0x000f, text=»* PRINT LINES «, t00=0x0001, t01=0x00fa}
0x29e…2a8 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0001, t01=0x0112}
0x2a8…2c4 Head {h00=0x0018, h01=0x0013, text=» ADD YDLASSEQ,=D'1' «, t00=0x0001, t01=0x011c}
0x2c4…2e4 Head {h00=0x001c, h01=0x0050, text=» MOVE TDTRSSEQ,YDLASSEQ «, t00=0x0001, t01=0x0138}
0x2e4…304 Head {h00=0x001c, h01=0x0050, text=» PERF EPPCCY«, t00=0x0001, t01=0x0158}
0x304…312 Head {h00=0x000a, h01=0x0005, text=»DO999 «, t00=0x0001, t01=0x0178}
0x312…328 Head {h00=0x0012, h01=0x000d, text=» CLEAR SBQCCY «, t00=0x0001, t01=0x0186}
0x328…334 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0002, t01=0x000c}
0x334…342 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0002, t01=0x0018}
0x342…390 Head {h00=0x004a, h01=0x0046, text=»**********************************************************************«, t00=0x0002, t01=0x0026}
0x390…39c Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0002, t01=0x0074}
0x39c…3a0 Head {h00=0x4004, h01=0x0000}
0x3a0…3a4 00 02 00 80 ┆ ┆
0x3a4…3ac (3, 1, 8) 20 04 00 00 00 03 00 04 ┆ ┆
0x3ac…3fc (4, 0, 400) 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 64 00 54 00 50 5c 42 4f 4b 5c 51 49 30 37 30 5c 52 45 43 4f 52 44 20 49 53 20 55 53 45 44 5c 5c 00 00 00 00 00 00 00 00 00 ┆ d T P BOK QI070 RECORD IS USED ┆
0x3fc…44c 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 2c 00 4c 00 50 2a 20 4e 4f 20 44 41 54 41 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ , L P* NO DATA ┆
0x44c…49c 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 0c 00 84 00 54 00 50 5c 41 44 44 5c 57 57 43 4f 55 4e 54 2c 3d 57 27 31 27 5c 4f 4e 45 20 4d 4f 52 45 20 ┆ * T P ADD WWCOUNT,=W'1' ONE MORE ┆
0x49c…4ec 46 52 45 45 20 52 45 43 4f 52 44 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 00 0c 00 d4 00 54 00 50 5c 43 42 47 5c 57 57 43 4f 55 4e 54 2c 3d 57 27 35 30 27 2c ┆FREE RECORD T P CBG WWCOUNT,=W'50',┆
0x4ec…53c 51 49 31 30 30 5c 52 45 43 4f 56 45 52 59 20 43 4f 4d 50 4c 45 54 45 44 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 0c 01 2c 00 54 00 50 5c 42 5c 51 49 30 35 30 5c 52 45 41 ┆QI100 RECOVERY COMPLETED , T P B QI050 REA┆