|
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: 3534 (0xdce)
Notes: pts_type(SC)
Names: »FSDISC.SC«
└─⟦f45ea3bc3⟧ Bits:30009713 Philips computer tape "WSM"
└─⟦this⟧ »WSM:CREA/FSDISC.SC«
IDENT FSDISC REL=2.3,830504,870155940230 ***************************************************************** * * LATEST UPDATE 830504 MADE BY CJ * * HISTORY= * 830504/CJ GIVE MESSEAGE ON SYSLINE * ****************************************************************** DDUM WSMDDV PDIV ENTRY FSDISC EXPROC WSMERR,PKTAB,PLIT ***(ERROR-)MESSAGE ROUTINE EXT ICLEAR ---ASSRUT:CLEAR ITEM EXT PCLOSE ---ASSRUT:CLOSE DISC-FILE EXT PWRITE ---ASSRUT:WRITE POOLS ON DISC EXT TESTB ---ASSRUT:TEST BIT POSITION * * DECLARATIONS * CED EQU X'B7' CHANGE ECHO-DEVICE EJECT INCLUDE WSMKEY,LIST INCLUDE KEYT5,LIST EJECT FSDISC PROC * * GET MESSAGE ON SYSLINE * FSD000 MOVE LBIN3,=X'1801' LINE:=24 COL:=01 TBF VD82,FSD010 JMP IF NOT VD82 MOVE LBIN3,=X'0101' LINE:=01 COL:=01 FSD010 CALL ICLEAR,LSTR81 ---INITIAL CLEAR MOVE LSTR81,=C'++NOW STORING ON DISC ' MOVE TB7BIN1,=W'22' MOVE LSTR1,=X'1B' XCOPY LSTR81,TB7BIN1,W1,LSTR1,W0 LOAD CONTROL-CODE ADD TB7BIN1,W1 ADJUST DSC SYSL,6,LBIN3 SET CURSOR ON LAST LINE DSC SYSL,2,TB7BIN1 ERASE LAST LINE DSC SYSL,6,LBIN3 SET CURSOR ON LAST LINE WRITE SYSL,LSTR81,TB7BIN1 WRITE QUESTION ON SYS LINE EJECT * * INITIATE PARAMETER BLOCK (LSTR81) * CALL ICLEAR,LSTR81 ---CLEAR ITEM MOVE LSTR6A,=C' DSDS' TYPE = D(EFINITION) TYPE = S(ECTION) FSD100 XCOPY LSTR81,W5,W1,LSTR6A,GBIN1 STORE TYPE OF DATA = S XCOPY LSTR81,W6,W6,BPOOL(GBIN3),W6 IDENT=DEF,SEC OR TABLE NAME MOVE LBIN1,W12 WORKPOINTER:=12 ADD LBIN1,W14 GIVING 26 XCOPY LSTR81,LBIN1,W8,GSTR8A,W0 STORE FILENAME ADD LBIN1,W8 ADJUST POINTER XCOPY LSTR81,LBIN1,W6,GSTR6C,W0 STORE VOLUME ID FSD200 XCOPY LSTR81,W12,W1,W1,W1 FILECODE:=1 CALL PWRITE,LSTR81,BPOOL(GBIN3) ---WRITE POOLS ON DISC BOK FSD500 EJECT * * ERROR AT WRITE * XCOPY LBIN3,W0,W2,LSTR81,W20 UNPACK RETCODE BIN CALL PCLOSE,LSTR81,BPOOL(GBIN3) ---CLOSE DISC-FILE MOVE LBIN2,W0 BIT-INDEX:=0 MOVE LSTR1,=X'31' LOAD '1' MOVE LSTR16,=X'30' LOAD WITH '0':S FSD210 CALL TESTB,LBIN3,LBIN2 ---TEST BIT (INDEX) BOK FSD220 JMP IF FALSE = 0 XCOPY LSTR16,LBIN2,W1,LSTR1,W0 LOAD '1' WHEN TRUE = 1 FSD220 ADD LBIN2,W1 NEXT BITINDEX CBNG LBIN2,W15,FSD210 GO ON UNTIL > 15 FSD230 MOVE LBIN1,W0 NO CLEAR MOVE LBIN4,W8 ERRORMESSAGE NO:8 PERF WSMERR,KEYT5,=W'0' ***(ERROR-)MESSAGE /ROUTINE IB LBIN2,FSD000,FSD300, CLR,CAN C FSD300,FSD500 RET,ENT DISPLAY 0,W1,W0 DISPLAY ENTIRE FORMAT B FSD230 POWER OFF FSD300 MOVE GBIN2,W1 INDICATE RETUR % CANCEL FSD500 CALL PCLOSE,LSTR81,BPOOL(GBIN3) ---CLOSE DISC-FILE MOVE LBIN3,=X'1801' LINE:=24 COL:=01 TBF VD82,FSD600 JMP IF NOT VD82 MOVE LBIN3,=X'0101' LINE:=01 COL:=01 FSD600 DSC SYSL,6,LBIN3 SET CURSOR ON LAST LINE DSC SYSL,2,TB7BIN1 CLEAR SYSLINE FSD999 RET PEND END
0x000…032 (0, 0, 400) Head {h00=0x002e, h01=0x0050, text=» IDENT FSDISC REL=2.3,830504,870155940230 «, t00=0x0000, t01=0x0004}
0x032…03a Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0036}
0x03a…084 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0000, t01=0x003e}
0x084…08e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0088}
0x08e…0ba Head {h00=0x0028, h01=0x0050, text=»* LATEST UPDATE 830504 MADE BY CJ«, t00=0x0000, t01=0x0092}
0x0ba…0c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00be}
0x0c4…0da Head {h00=0x0012, h01=0x0050, text=»* HISTORY= «, t00=0x0000, t01=0x00c8}
0x0da…112 Head {h00=0x0034, h01=0x0050, text=»* 830504/CJ GIVE MESSEAGE ON SYSLINE«, t00=0x0000, t01=0x00de}
0x112…11c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0116}
0x11c…166 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0000, t01=0x0120}
0x166…16e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x016a}
0x16e…182 Head {h00=0x0010, h01=0x0050, text=» DDUM WSMDDV«, t00=0x0000, t01=0x0172}
0x182…190 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0186}
0x190…1a6 (1, 0, 400) Head {h00=0x0012, h01=0x0050, text=» ENTRY FSDISC «, t00=0x0001, t01=0x0004}
0x1a6…1e2 Head {h00=0x0038, h01=0x0050, text=» EXPROC WSMERR,PKTAB,PLIT ***(ERROR-)MESSAGE ROUTINE«, t00=0x0001, t01=0x001a}
0x1e2…20a Head {h00=0x0024, h01=0x0050, text=» EXT ICLEAR ---ASSRUT:CLEAR ITEM«, t00=0x0001, t01=0x0056}
0x20a…238 Head {h00=0x002a, h01=0x0050, text=» EXT PCLOSE ---ASSRUT:CLOSE DISC-FILE «, t00=0x0001, t01=0x007e}
0x238…26a Head {h00=0x002e, h01=0x0050, text=» EXT PWRITE ---ASSRUT:WRITE POOLS ON DISC«, t00=0x0001, t01=0x00ac}
0x26a…298 Head {h00=0x002a, h01=0x0050, text=» EXT TESTB ---ASSRUT:TEST BIT POSITION«, t00=0x0001, t01=0x00de}
0x298…2a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x010c}
0x2a2…2bc Head {h00=0x0016, h01=0x0050, text=»* DECLARATIONS «, t00=0x0001, t01=0x0116}
0x2bc…2c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0130}
0x2c6…2ee Head {h00=0x0024, h01=0x0050, text=»CED EQU X'B7' CHANGE ECHO-DEVICE«, t00=0x0001, t01=0x013a}
0x2ee…2f6 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0162}
0x2f6…304 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x016a}
0x304…320 Head {h00=0x0018, h01=0x0050, text=» INCLUDE WSMKEY,LIST«, t00=0x0001, t01=0x0178}
0x320…33c (2, 0, 400) Head {h00=0x0018, h01=0x0050, text=» INCLUDE KEYT5,LIST «, t00=0x0002, t01=0x0004}
0x33c…34a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0020}
0x34a…35e Head {h00=0x0010, h01=0x0050, text=»FSDISC PROC «, t00=0x0002, t01=0x002e}
0x35e…366 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0042}
0x366…370 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x004a}
0x370…392 Head {h00=0x001e, h01=0x0050, text=»* GET MESSAGE ON SYSLINE «, t00=0x0002, t01=0x0054}
0x392…39c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0076}
0x39c…3aa Head {h00=0x000a, h01=0x0050, text=»FSD000«, t00=0x0002, t01=0x0080}
0x3aa…3d8 Head {h00=0x002a, h01=0x0050, text=» MOVE LBIN3,=X'1801' LINE:=24 COL:=01 «, t00=0x0002, t01=0x008e}
0x3d8…400 Head {h00=0x0024, h01=0x0050, text=» TBF VD82,FSD010 JMP IF NOT VD82«, t00=0x0002, t01=0x00bc}
0x400…42e Head {h00=0x002a, h01=0x0050, text=» MOVE LBIN3,=X'0101' LINE:=01 COL:=01 «, t00=0x0002, t01=0x00e4}
0x42e…43c Head {h00=0x000a, h01=0x0050, text=»FSD010«, t00=0x0002, t01=0x0112}
0x43c…468 Head {h00=0x0028, h01=0x0050, text=» CALL ICLEAR,LSTR81 ---INITIAL CLEAR«, t00=0x0002, t01=0x0120}
0x468…498 Head {h00=0x002c, h01=0x0050, text=» MOVE LSTR81,=C'++NOW STORING ON DISC ' «, t00=0x0002, t01=0x014c}
0x498…4b4 Head {h00=0x0018, h01=0x0050, text=» MOVE TB7BIN1,=W'22'«, t00=0x0002, t01=0x017c}
0x4b4…4ce Head {h00=0x0016, h01=0x0050, text=» MOVE LSTR1,=X'1B'«, t00=0x0003, t01=0x0008}
0x4ce…50a Head {h00=0x0038, h01=0x0050, text=» XCOPY LSTR81,TB7BIN1,W1,LSTR1,W0 LOAD CONTROL-CODE «, t00=0x0003, t01=0x0022}
0x50a…528 Head {h00=0x001a, h01=0x0050, text=» ADD TB7BIN1,W1 ADJUST«, t00=0x0003, t01=0x005e}
0x528…55a Head {h00=0x002e, h01=0x0050, text=» DSC SYSL,6,LBIN3 SET CURSOR ON LAST LINE «, t00=0x0003, t01=0x007c}
0x55a…586 Head {h00=0x0028, h01=0x0050, text=» DSC SYSL,2,TB7BIN1 ERASE LAST LINE «, t00=0x0003, t01=0x00ae}
0x586…5b8 Head {h00=0x002e, h01=0x0050, text=» DSC SYSL,6,LBIN3 SET CURSOR ON LAST LINE «, t00=0x0003, t01=0x00da}
0x5b8…5f6 Head {h00=0x003a, h01=0x0050, text=» WRITE SYSL,LSTR81,TB7BIN1 WRITE QUESTION ON SYS LINE «, t00=0x0003, t01=0x010c}
0x5f6…604 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x014a}
0x604…60e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0158}
0x60e…640 Head {h00=0x002e, h01=0x0050, text=»* INITIATE PARAMETER BLOCK (LSTR81) «, t00=0x0003, t01=0x0162}
0x640…64a (4, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0004}
0x64a…674 Head {h00=0x0026, h01=0x0050, text=» CALL ICLEAR,LSTR81 ---CLEAR ITEM «, t00=0x0004, t01=0x000e}
0x674…6a6 Head {h00=0x002e, h01=0x0050, text=» MOVE LSTR6A,=C' DSDS' TYPE = D(EFINITION)«, t00=0x0004, t01=0x0038}
0x6a6…6c2 Head {h00=0x0018, h01=0x0050, text=» TYPE = S(ECTION) «, t00=0x0004, t01=0x006a}
0x6c2…6d0 Head {h00=0x000a, h01=0x0050, text=»FSD100«, t00=0x0004, t01=0x0086}
0x6d0…710 Head {h00=0x003c, h01=0x0050, text=» XCOPY LSTR81,W5,W1,LSTR6A,GBIN1 STORE TYPE OF DATA = S «, t00=0x0004, t01=0x0094}
0x710…758 Head {h00=0x0044, h01=0x0050, text=» XCOPY LSTR81,W6,W6,BPOOL(GBIN3),W6 IDENT=DEF,SEC OR TABLE NAME «, t00=0x0004, t01=0x00d4}
0x758…780 Head {h00=0x0024, h01=0x0050, text=» MOVE LBIN1,W12 WORKPOINTER:=12 «, t00=0x0004, t01=0x011c}
0x780…7a0 Head {h00=0x001c, h01=0x0050, text=» ADD LBIN1,W14 GIVING 26«, t00=0x0004, t01=0x0144}
0x7a0…7d8 Head {h00=0x0034, h01=0x0050, text=» XCOPY LSTR81,LBIN1,W8,GSTR8A,W0 STORE FILENAME «, t00=0x0004, t01=0x0164}
0x7d8…7fc Head {h00=0x0020, h01=0x0050, text=» ADD LBIN1,W8 ADJUST POINTER«, t00=0x0005, t01=0x000c}
0x7fc…834 Head {h00=0x0034, h01=0x0050, text=» XCOPY LSTR81,LBIN1,W6,GSTR6C,W0 STORE VOLUME ID«, t00=0x0005, t01=0x0030}
0x834…842 Head {h00=0x000a, h01=0x0050, text=»FSD200«, t00=0x0005, t01=0x0068}
0x842…870 Head {h00=0x002a, h01=0x0050, text=» XCOPY LSTR81,W12,W1,W1,W1 FILECODE:=1«, t00=0x0005, t01=0x0076}
0x870…8b0 Head {h00=0x003c, h01=0x0050, text=» CALL PWRITE,LSTR81,BPOOL(GBIN3) ---WRITE POOLS ON DISC «, t00=0x0005, t01=0x00a4}
0x8b0…8c4 Head {h00=0x0010, h01=0x0050, text=» BOK FSD500 «, t00=0x0005, t01=0x00e4}
0x8c4…8d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x00f8}
0x8d2…8dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0106}
0x8dc…8f8 Head {h00=0x0018, h01=0x0050, text=»* ERROR AT WRITE«, t00=0x0005, t01=0x0110}
0x8f8…902 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x012c}
0x902…93a Head {h00=0x0034, h01=0x0050, text=» XCOPY LBIN3,W0,W2,LSTR81,W20 UNPACK RETCODE BIN«, t00=0x0005, t01=0x0136}
0x93a…976 Head {h00=0x0038, h01=0x0050, text=» CALL PCLOSE,LSTR81,BPOOL(GBIN3) ---CLOSE DISC-FILE «, t00=0x0005, t01=0x016e}
0x976…99a Head {h00=0x0020, h01=0x0050, text=» MOVE LBIN2,W0 BIT-INDEX:=0 «, t00=0x0006, t01=0x001a}
0x99a…9be Head {h00=0x0020, h01=0x0050, text=» MOVE LSTR1,=X'31' LOAD '1' «, t00=0x0006, t01=0x003e}
0x9be…9ea Head {h00=0x0028, h01=0x0050, text=» MOVE LSTR16,=X'30' LOAD WITH '0':S «, t00=0x0006, t01=0x0062}
0x9ea…9f8 Head {h00=0x000a, h01=0x0050, text=»FSD210«, t00=0x0006, t01=0x008e}
0x9f8…a2c Head {h00=0x0030, h01=0x0050, text=» CALL TESTB,LBIN3,LBIN2 ---TEST BIT (INDEX) «, t00=0x0006, t01=0x009c}
0xa2c…a50 Head {h00=0x0020, h01=0x0050, text=» BOK FSD220 JMP IF FALSE = 0«, t00=0x0006, t01=0x00d0}
0xa50…a8e Head {h00=0x003a, h01=0x0050, text=» XCOPY LSTR16,LBIN2,W1,LSTR1,W0 LOAD '1' WHEN TRUE = 1«, t00=0x0006, t01=0x00f4}
0xa8e…a9c Head {h00=0x000a, h01=0x0050, text=»FSD220«, t00=0x0006, t01=0x0132}
0xa9c…ac0 Head {h00=0x0020, h01=0x0050, text=» ADD LBIN2,W1 NEXT BITINDEX «, t00=0x0006, t01=0x0140}
0xac0…af0 Head {h00=0x002c, h01=0x0050, text=» CBNG LBIN2,W15,FSD210 GO ON UNTIL > 15 «, t00=0x0006, t01=0x0164}
0xaf0…afe (7, 0, 400) Head {h00=0x000a, h01=0x0050, text=»FSD230«, t00=0x0007, t01=0x0004}
0xafe…b1e Head {h00=0x001c, h01=0x0050, text=» MOVE LBIN1,W0 NO CLEAR «, t00=0x0007, t01=0x0012}
0xb1e…b46 Head {h00=0x0024, h01=0x0050, text=» MOVE LBIN4,W8 ERRORMESSAGE NO:8«, t00=0x0007, t01=0x0032}
0xb46…b82 Head {h00=0x0038, h01=0x0050, text=» PERF WSMERR,KEYT5,=W'0' ***(ERROR-)MESSAGE /ROUTINE«, t00=0x0007, t01=0x005a}
0xb82…bac Head {h00=0x0026, h01=0x0050, text=» IB LBIN2,FSD000,FSD300, CLR,CAN C«, t00=0x0007, t01=0x0096}
0xbac…bcc Head {h00=0x001c, h01=0x0050, text=» FSD300,FSD500 RET,ENT «, t00=0x0007, t01=0x00c0}
0xbcc…bfa Head {h00=0x002a, h01=0x0050, text=» DISPLAY 0,W1,W0 DISPLAY ENTIRE FORMAT«, t00=0x0007, t01=0x00e0}
0xbfa…c16 Head {h00=0x0018, h01=0x0050, text=» B FSD230 POWER OFF «, t00=0x0007, t01=0x010e}
0xc16…c24 Head {h00=0x000a, h01=0x0050, text=»FSD300«, t00=0x0007, t01=0x012a}
0xc24…c52 Head {h00=0x002a, h01=0x0050, text=» MOVE GBIN2,W1 INDICATE RETUR % CANCEL«, t00=0x0007, t01=0x0138}
0xc52…c60 Head {h00=0x000a, h01=0x0050, text=»FSD500«, t00=0x0007, t01=0x0166}
0xc60…c9c Head {h00=0x0038, h01=0x0050, text=» CALL PCLOSE,LSTR81,BPOOL(GBIN3) ---CLOSE DISC-FILE «, t00=0x0007, t01=0x0174}
0xc9c…cca Head {h00=0x002a, h01=0x0050, text=» MOVE LBIN3,=X'1801' LINE:=24 COL:=01 «, t00=0x0008, t01=0x0020}
0xcca…cf2 Head {h00=0x0024, h01=0x0050, text=» TBF VD82,FSD600 JMP IF NOT VD82«, t00=0x0008, t01=0x004e}
0xcf2…d20 Head {h00=0x002a, h01=0x0050, text=» MOVE LBIN3,=X'0101' LINE:=01 COL:=01 «, t00=0x0008, t01=0x0076}
0xd20…d2e Head {h00=0x000a, h01=0x0050, text=»FSD600«, t00=0x0008, t01=0x00a4}
0xd2e…d60 Head {h00=0x002e, h01=0x0050, text=» DSC SYSL,6,LBIN3 SET CURSOR ON LAST LINE «, t00=0x0008, t01=0x00b2}
0xd60…d8a Head {h00=0x0026, h01=0x0050, text=» DSC SYSL,2,TB7BIN1 CLEAR SYSLINE «, t00=0x0008, t01=0x00e4}
0xd8a…d98 Head {h00=0x000a, h01=0x0050, text=»FSD999«, t00=0x0008, t01=0x010e}
0xd98…da4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0008, t01=0x011c}
0xda4…db2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0008, t01=0x0128}
0xdb2…dbe Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0008, t01=0x0136}
0xdbe…dc2 Head {h00=0x4004, h01=0x0000}
0xdc2…dc6 00 08 01 42 ┆ B┆
0xdc6…dce (9, 1, 8) 20 04 00 00 00 09 00 04 ┆ ┆