DataMuseum.dk

Presents historical artifacts from the history of:

Philips Data Systems

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Philips Data Systems

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦941192c76⟧

    Length: 1498 (0x5da)
    Notes: pts_type(SC)
    Names: »DCTASK.SC«

Derivation

└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
    └─⟦this⟧ »DEN10/DCTASK.SC« 
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
    └─⟦this⟧ »SHBAPL/DCTASK.SC« 
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
    └─⟦this⟧ »DEN10/DCTASK.SC« 

PTS(SC)

	IDENT DCTASK   REL=1.0 VER=1 801027-SHB
	DDUM DEDDIV
	PDIV 
	ENTRY	DCTASK 
	EXT	TESTB
TRPARA	EQU	X'00'
SKIP	EQU	X'02'
STIMO	EQU	X'0B' 

	EJECT
DCTASK
	MOVE	DCWRK,TCUADR
	DSC1	DSDC,TRPARA,DCWRK 
DCTSKR
	MOVE	REQLEN,W10
	READ	DSDC,DCBUF,REQLEN 
	XSTAT	DSDC,REQLEN
	CALL	TESTB,REQLEN,W2	STATUS CHANGE 
	BZ	DCTSKR	NO 
	CALL	TESTB,REQLEN,W10	CARRIER OFF
	BZ	DCTSK5
DCTSK4
	SET	DCSTAT 
	B	DCTSKR 
DCTSK5
	CLEAR	DCSTAT 
	CALL	TESTB,REQLEN,W9	TIME OUT
	BZ	DCTSKR
	B	DCTSK4 
	END

HexDump

0x000…030 (0, 0, 400) Head {h00=0x002c, h01=0x0050, text=» IDENT DCTASK   REL=1.0 VER=1 801027-SHB«, t00=0x0000, t01=0x0004}
0x030…044             Head {h00=0x0010, h01=0x0050, text=» DDUM DEDDIV«, t00=0x0000, t01=0x0034}
0x044…052             Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0048}
0x052…068             Head {h00=0x0012, h01=0x000d, text=» ENTRY DCTASK «, t00=0x0000, t01=0x0056}
0x068…07a             Head {h00=0x000e, h01=0x0050, text=» EXT TESTB«, t00=0x0000, t01=0x006c}
0x07a…092             Head {h00=0x0014, h01=0x0050, text=»TRPARA EQU X'00'«, t00=0x0000, t01=0x007e}
0x092…0a8             Head {h00=0x0012, h01=0x0050, text=»SKIP EQU X'02'«, t00=0x0000, t01=0x0096}
0x0a8…0c0             Head {h00=0x0014, h01=0x0050, text=»STIMO EQU X'0B' «, t00=0x0000, t01=0x00ac}
0x0c0…0c8             Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00c4}
0x0c8…0d6             Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x00cc}
0x0d6…0e4             Head {h00=0x000a, h01=0x0050, text=»DCTASK«, t00=0x0000, t01=0x00da}
0x0e4…0fe             Head {h00=0x0016, h01=0x0050, text=» MOVE DCWRK,TCUADR«, t00=0x0000, t01=0x00e8}
0x0fe…11e             Head {h00=0x001c, h01=0x0050, text=» DSC1 DSDC,TRPARA,DCWRK «, t00=0x0000, t01=0x0102}
0x11e…12c             Head {h00=0x000a, h01=0x0050, text=»DCTSKR«, t00=0x0000, t01=0x0122}
0x12c…144             Head {h00=0x0014, h01=0x0050, text=» MOVE REQLEN,W10«, t00=0x0000, t01=0x0130}
0x144…164             Head {h00=0x001c, h01=0x0050, text=» READ DSDC,DCBUF,REQLEN «, t00=0x0000, t01=0x0148}
0x164…17e             Head {h00=0x0016, h01=0x0050, text=» XSTAT DSDC,REQLEN«, t00=0x0000, t01=0x0168}
0x17e…1aa             Head {h00=0x0028, h01=0x0050, text=» CALL TESTB,REQLEN,W2 STATUS CHANGE «, t00=0x0000, t01=0x0182}
0x1aa…1c0             Head {h00=0x0012, h01=0x0050, text=» BZ DCTSKR NO «, t00=0x0001, t01=0x001e}
0x1c0…1ea             Head {h00=0x0026, h01=0x0050, text=» CALL TESTB,REQLEN,W10 CARRIER OFF«, t00=0x0001, t01=0x0034}
0x1ea…1fc             Head {h00=0x000e, h01=0x0050, text=» BZ DCTSK5«, t00=0x0001, t01=0x005e}
0x1fc…20a             Head {h00=0x000a, h01=0x0050, text=»DCTSK4«, t00=0x0001, t01=0x0070}
0x20a…21e             Head {h00=0x0010, h01=0x0050, text=» SET DCSTAT «, t00=0x0001, t01=0x007e}
0x21e…230             Head {h00=0x000e, h01=0x0050, text=» B DCTSKR «, t00=0x0001, t01=0x0092}
0x230…23e             Head {h00=0x000a, h01=0x0050, text=»DCTSK5«, t00=0x0001, t01=0x00a4}
0x23e…254             Head {h00=0x0012, h01=0x0050, text=» CLEAR DCSTAT «, t00=0x0001, t01=0x00b2}
0x254…27a             Head {h00=0x0022, h01=0x0050, text=» CALL TESTB,REQLEN,W9 TIME OUT«, t00=0x0001, t01=0x00c8}
0x27a…28c             Head {h00=0x000e, h01=0x0050, text=» BZ DCTSKR«, t00=0x0001, t01=0x00ee}
0x28c…29e             Head {h00=0x000e, h01=0x0050, text=» B DCTSK4 «, t00=0x0001, t01=0x0100}
0x29e…2aa             Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0001, t01=0x0112}
0x2aa…2ae             Head {h00=0x4004, h01=0x0000}
0x2ae…2b2             00 01 01 1e                                                                                                                                                                                                                                       ┆    ┆
0x2b2…2ba (2, 1, 8)   20 04 00 00 00 02 00 04                                                                                                                                                                                                                           ┆        ┆
0x2ba…30a (3, 0, 400) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 33 20 43 41 53 45 54 54 45 20 4f 55 54 50 55 54 00 02 01 8a 00 38 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆                            = 3 CASETTE OUTPUT     8 P*                         ┆
0x30a…35a             20 20 20 20 20 20 20 20 3d 20 34 20 50 52 49 4e 54 4f 55 54 20 4c 50 2f 47 50 00 03 00 36 00 32 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 35 20 44 49 53 43 46 49 4c 45   ┆        = 4 PRINTOUT LP/GP   6 2 P*                                 = 5 DISCFILE┆
0x35a…3aa             00 03 00 72 00 3a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 36 20 46 4c 4f 50 50 59 44 49 53 43 20 46 49 4c 45 20 00 03 00 a8 00 44 00 50 2a 20 20 20 20 20 20 20 20 20   ┆   r : P*                                 = 6 FLOPPYDISC FILE      D P*         ┆
0x3aa…3fa             20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 37 20 44 45 4c 45 54 45 20 42 41 54 43 48 45 53 20 4f 4e 20 55 53 45 52 46 49 4c 45 00 03 00 e6 00 46 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆                        = 7 DELETE BATCHES ON USERFILE     F P*                 ┆
0x3fa…44a             20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 38 20 46 52 45 45 5a 45 20 42 41 54 43 48 45 53 20 4f 4e 20 55 53 45 52 20 46 49 4c 45 20 00 03 01 2e 00 06 00 50 2a 20 00 03 01 78 00 38 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆                = 8 FREEZE BATCHES ON USER FILE    .   P*    x 8 P*             ┆
0x44a…49a (4, 0, 400) 20 20 20 20 20 20 20 20 20 20 20 20 20 54 59 50 45 20 20 20 3d 20 54 59 50 45 20 4f 46 20 48 41 4e 44 4c 49 4e 47 00 03 01 82 00 2e 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆             TYPE   = TYPE OF HANDLING     . P*                                 ┆
0x49a…4ea             3d 20 31 20 4f 50 45 4e 00 04 00 2e 00 3a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 32 20 42 41 54 43 48 48 45 41 44 2d 52 45 43 4f 52 44 00 04 00 60 00 36 00 50 2a 20   ┆= 1 OPEN   . : P*                                 = 2 BATCHHEAD-RECORD   ` 6 P* ┆
0x4ea…53a             20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 33 20 44 41 54 41 20 52 45 43 4f 52 44 20 00 04 00 9e 00 38 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆                                = 3 DATA RECORD      8 P*                       ┆
0x53a…58a             20 20 20 20 20 20 20 20 20 20 3d 20 34 20 42 41 4c 41 4e 43 45 20 52 45 43 4f 52 44 00 04 00 d8 00 30 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 35 20 43 4c 4f 53 45 20   ┆          = 4 BALANCE RECORD     0 P*                                 = 5 CLOSE ┆
0x58a…5da             00 04 01 14 00 06 00 50 2a 20 00 04 01 48 00 34 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 54 43 4f 4e 20 3d 20 52 45 54 55 52 4e 2d 43 4f 44 45 20 00 04 01 52 00 2c 00 50 2a 20 20 20 20 20   ┆       P*    H 4 P*                          RETCON = RETURN-CODE    R , P*     ┆

Reduced view