|
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: 3940 (0xf64)
Notes: pts_type(SC)
Names: »RGSUB2.SC«
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
└─⟦this⟧ »REMIT2/RGSUB2.SC«
IDENT RGSUB2 03.01.XXX.1
DDUM KMD08
PDIV
ENTRY PACKST
ENTRY PACKCL
EXT EMPTYT
EXT CYTRP
INCLUDE EQUATE
EJECT
PACKST PROC PAR
********************
*
* PACKST - START OF PACKING
* MOVE ENTRIES FROM GTREGF TO GTDUPF,
* USING GTUSED
*
* ALTERED FIELDS: GSWBIN1
* GTDUPF
* GTUSED
********************
MOVE GSWBIN1,CBIN1
PST10
CBE GTUSED(GSWBIN1),CBIN0,PST30
*SOMETHING ENTERED
CALL EMPTYT,GTREGF(GSWBIN1)
BOK PST20 BRANCH IF NOT EMPTY
MOVE GTUSED(GSWBIN1),CBIN0
B PST30
*
PST20
MOVE GTDUPF(GSWBIN1),GTREGF(GSWBIN1) TO DUP FIELD
B PST40
* NOTHING ENTERED
PST30
MOVE GTDUPF(GSWBIN1),=X'FF'
TBF GTLOKSPG,PST40
MOVE GTREGF(GSWBIN1),=X'FF'
* CLEAR IF SPG. FUNCTION
PST40
ADD GSWBIN1,CBIN1
CBL GSWBIN1,PAR,PST10
RET
PEND
EJECT
****************************************************
*
* PACKCL - CLEAR ROUTINE
*
* ALTERED FIELDS:
* GSWBIN1 - SET TO CBINMAX
* GTUSED - ALL ENTRIES SET TO 0
*
***********************************************
PACKCL PROC CLEAR ALL ENTRIES
PERF CYTRP CHECK FOR CYCLE PAGE WRITING
MOVE GSWBIN1,CBIN1 IN GTUSED
PCKCL10
MOVE GTUSED(GSWBIN1),CBIN0 LOOP CBINMAX TIMES
ADD GSWBIN1,CBIN1
CBL GSWBIN1,CBINMAX,PCKCL10
MOVE TT07TXT,=' '
MOVE TT16TXT,=' '
CLEAR TTSMALL
CLEAR TTEORFLG TRANS ERASED
RET
PEND
END