|
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: 1906 (0x772)
Notes: pts_type(SC)
Names: »RGSUB2.SC«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦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
********************
*
* 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,CBINMAX,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,=C' ' CLEAR TEXTS
MOVE TT16TXT,=C' '
CLEAR TTSMALL
CLEAR TTEORFLG TRANS ERASED
RET
PEND
END
0x000…022 (0, 0, 398) Head {h00=0x001e, h01=0x0050, text=» IDENT RGSUB2 03.01.XXX.1«, t00=0x0000, t01=0x0004}
0x022…040 Head {h00=0x001a, h01=0x0050, text=» DDUM KMD08«, t00=0x0000, t01=0x0026}
0x040…056 Head {h00=0x0012, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0044}
0x056…06c Head {h00=0x0012, h01=0x0050, text=» ENTRY PACKST «, t00=0x0000, t01=0x005a}
0x06c…082 Head {h00=0x0012, h01=0x0050, text=» ENTRY PACKCL «, t00=0x0000, t01=0x0070}
0x082…096 Head {h00=0x0010, h01=0x0050, text=» EXT EMPTYT «, t00=0x0000, t01=0x0086}
0x096…0a8 Head {h00=0x000e, h01=0x0050, text=» EXT CYTRP«, t00=0x0000, t01=0x009a}
0x0a8…0c8 Head {h00=0x001c, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0000, t01=0x00ac}
0x0c8…0d6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x00cc}
0x0d6…0ea Head {h00=0x0010, h01=0x0050, text=»PACKST PROC «, t00=0x0000, t01=0x00da}
0x0ea…106 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0000, t01=0x00ee}
0x106…110 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010a}
0x110…13c Head {h00=0x0028, h01=0x0050, text=»* PACKST - START OF PACKING«, t00=0x0000, t01=0x0114}
0x13c…172 Head {h00=0x0032, h01=0x0050, text=»* MOVE ENTRIES FROM GTREGF TO GTDUPF,«, t00=0x0000, t01=0x0140}
0x172…192 Head {h00=0x001c, h01=0x0050, text=»* USING GTUSED «, t00=0x0000, t01=0x0176}
0x192…19c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0008}
0x19c…1be Head {h00=0x001e, h01=0x0050, text=»* ALTERED FIELDS: GSWBIN1 «, t00=0x0001, t01=0x0012}
0x1be…1de Head {h00=0x001c, h01=0x0050, text=»* GTDUPF«, t00=0x0001, t01=0x0034}
0x1de…1fe Head {h00=0x001c, h01=0x0050, text=»* GTUSED«, t00=0x0001, t01=0x0054}
0x1fe…21a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0001, t01=0x0074}
0x21a…236 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x0001, t01=0x0090}
0x236…244 Head {h00=0x000a, h01=0x0050, text=»PST10 «, t00=0x0001, t01=0x00ac}
0x244…26c Head {h00=0x0024, h01=0x0050, text=» CBE GTUSED(GSWBIN1),CBIN0,PST30«, t00=0x0001, t01=0x00ba}
0x26c…286 Head {h00=0x0016, h01=0x0050, text=»*SOMETHING ENTERED«, t00=0x0001, t01=0x00e2}
0x286…2aa Head {h00=0x0020, h01=0x0050, text=» CALL EMPTYT,GTREGF(GSWBIN1)«, t00=0x0001, t01=0x00fc}
0x2aa…2d0 Head {h00=0x0022, h01=0x0050, text=» BOK PST20 BRANCH IF NOT EMPTY«, t00=0x0001, t01=0x0120}
0x2d0…2f4 Head {h00=0x0020, h01=0x0050, text=» MOVE GTUSED(GSWBIN1),CBIN0 «, t00=0x0001, t01=0x0146}
0x2f4…304 Head {h00=0x000c, h01=0x0050, text=» B PST30«, t00=0x0001, t01=0x016a}
0x304…30e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x017a}
0x30e…31c Head {h00=0x000a, h01=0x0050, text=»PST20 «, t00=0x0001, t01=0x0184}
0x31c…356 (2, 0, 400) Head {h00=0x0036, h01=0x0050, text=» MOVE GTDUPF(GSWBIN1),GTREGF(GSWBIN1) TO DUP FIELD«, t00=0x0002, t01=0x0004}
0x356…366 Head {h00=0x000c, h01=0x0050, text=» B PST40«, t00=0x0002, t01=0x003e}
0x366…380 Head {h00=0x0016, h01=0x0050, text=»* NOTHING ENTERED «, t00=0x0002, t01=0x004e}
0x380…38e Head {h00=0x000a, h01=0x0050, text=»PST30 «, t00=0x0002, t01=0x0068}
0x38e…3b2 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(GSWBIN1),=X'FF'«, t00=0x0002, t01=0x0076}
0x3b2…3ce Head {h00=0x0018, h01=0x0050, text=» TBF GTLOKSPG,PST40 «, t00=0x0002, t01=0x009a}
0x3ce…3f2 Head {h00=0x0020, h01=0x0050, text=» MOVE GTREGF(GSWBIN1),=X'FF'«, t00=0x0002, t01=0x00b6}
0x3f2…416 Head {h00=0x0020, h01=0x0050, text=»* CLEAR IF SPG. FUNCTION«, t00=0x0002, t01=0x00da}
0x416…424 Head {h00=0x000a, h01=0x0050, text=»PST40 «, t00=0x0002, t01=0x00fe}
0x424…43e Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x0002, t01=0x010c}
0x43e…460 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBIN1,CBINMAX,PST10«, t00=0x0002, t01=0x0126}
0x460…46c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0002, t01=0x0148}
0x46c…47a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0002, t01=0x0154}
0x47a…488 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0162}
0x488…4c4 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0002, t01=0x0170}
0x4c4…4ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x001c}
0x4ce…4ee Head {h00=0x001c, h01=0x0050, text=»* PACKCL - CLEAR ROUTINE«, t00=0x0003, t01=0x0026}
0x4ee…4f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0046}
0x4f8…512 Head {h00=0x0016, h01=0x0050, text=»* ALTERED FIELDS: «, t00=0x0003, t01=0x0050}
0x512…540 Head {h00=0x002a, h01=0x0050, text=»* GSWBIN1 - SET TO CBINMAX «, t00=0x0003, t01=0x006a}
0x540…572 Head {h00=0x002e, h01=0x0050, text=»* GTUSED - ALL ENTRIES SET TO 0«, t00=0x0003, t01=0x0098}
0x572…57c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ca}
0x57c…5b4 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0003, t01=0x00d4}
0x5b4…5da Head {h00=0x0022, h01=0x0050, text=»PACKCL PROC CLEAR ALL ENTRIES«, t00=0x0003, t01=0x010c}
0x5da…60a Head {h00=0x002c, h01=0x0050, text=» PERF CYTRP CHECK FOR CYCLE PAGE WRITING«, t00=0x0003, t01=0x0132}
0x60a…630 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 IN GTUSED «, t00=0x0003, t01=0x0162}
0x630…640 Head {h00=0x000c, h01=0x0050, text=»PCKCL10 «, t00=0x0003, t01=0x0188}
0x640…678 Head {h00=0x0034, h01=0x0050, text=» MOVE GTUSED(GSWBIN1),CBIN0 LOOP CBINMAX TIMES «, t00=0x0004, t01=0x0008}
0x678…692 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x0004, t01=0x0040}
0x692…6b6 Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN1,CBINMAX,PCKCL10«, t00=0x0004, t01=0x005a}
0x6b6…6de Head {h00=0x0024, h01=0x0050, text=» MOVE TT07TXT,=C' ' CLEAR TEXTS «, t00=0x0004, t01=0x007e}
0x6de…6fa Head {h00=0x0018, h01=0x0050, text=» MOVE TT16TXT,=C' ' «, t00=0x0004, t01=0x00a6}
0x6fa…710 Head {h00=0x0012, h01=0x0050, text=» CLEAR TTSMALL«, t00=0x0004, t01=0x00c2}
0x710…734 Head {h00=0x0020, h01=0x0050, text=» CLEAR TTEORFLG TRANS ERASED«, t00=0x0004, t01=0x00d8}
0x734…740 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0004, t01=0x00fc}
0x740…74e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0004, t01=0x0108}
0x74e…762 Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x0004, t01=0x0116}
0x762…766 Head {h00=0x4004, h01=0x0000}
0x766…76a 00 04 01 2a ┆ *┆
0x76a…772 (5, 1, 8) 20 04 00 00 00 05 00 04 ┆ ┆