|
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: 27142 (0x6a06)
Notes: pts_type(SC)
Names: »PRINT.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »DEMO6800/PRINT.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »DEMO6800/PRINT.SC«
IDENT PRINT PRINT JOURNAL - VOUCHER
DDUM DEMODD
PDIV
EXPROC DEFDOC
EXPROC XCLAMP
EXPROC XEERR
EXPROC ZMRDF
ENTRY PAJRN
ENTRY PCVCH
ENTRY PVATTP
ENTRY PWDETP
ENTRY PXSKIP
ENTRY PZPOSD
************************************************************************
**
* PRINT ON THE JOURNAL ROLL*
**
************************************************************************
PAJRN PROC PWLNETYP
PLIT PWLNETYP
PA000
CBNE RDPRTTYP,=D'0',PA050
*
* 6371-PRINTER
*
MOVE WW1,=X'8066'
DSC1 SPDSPRT,X'0D',WW1 SET PRINT PARAMETER
PA050
MOVE WWINDEX1,PWLNETYP
IB WWINDEX1,PA100,PA200,PA300,PA400,PA500, C
PA600,PA700,PA800
**
* LINE TYPE 1, IDENTIFICATION PRINT*
**
PA100
MOVE SPBINW4,=W'43'
PERF ZMRDF,SPBINW4,KW1 READ INTO FCBUFFER
EDWRT SPDSPRT,FCBUFFER
B PA990
**
* PRINT LINE TYPE 2: ACCOUNT NUMBER 1*
**
PA200
EDWRT SPDSPRT,PRT002
B PA990
**
* PRINT LINE TYPE 3: END OF FUNCTION*
**
PA300
GETTIME VCTIME
MOVE NDTIME,VCTIME
DIV NDTIME,=D'100' GET RID OF SECONDS
MOVE SPBINW4,=W'44'
PERF ZMRDF,SPBINW4,KW1 READ INTO FCBUFFER
EDWRT SPDSPRT,FCBUFFER
PERF PXSKIP,SPDSPRT
B PA990
**
* PRINT LINE TYPE 4: AMOUNT*
**
PA400