|
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