|
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: 4624 (0x1210)
Notes: pts_type(SC)
Names: »DELITT.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DU/DELITT.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DU/DELITT.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DU/DELITT.SC«
* DELITT EJECT ENT EQU X'8C' ENTER CAN EQU X'91' CANCEL RET EQU X'92' RETURN PRG EQU X'94' PROGRAM TOT EQU X'93' TOTAL STS EQU X'96' STATUS PRT EQU X'98' PRINT KEP EQU X'8D' KEEP FIELDCONTENTS ERS EQU X'8E' ERASE CONTENTS HOM EQU X'85' GO HOME COR EQU X'99' CORRECTION RIN EQU X'87' RECORD INSERT RDL EQU X'89' RECORD DELETE RFW EQU X'83' RECORD FORWARD RBW EQU X'81' RECORD BACKWARD EOI EQU X'80' FIELD FORWARD PLS EQU X'9C' FIELD FORWARD PLUS MIN EQU X'9D' FIELD FORWARD MINUS BTB EQU X'8A' BACKTAB CLR EQU X'8F' CLEAR DUP EQU X'90' DUPLICATE FRC EQU X'95' FORCE SKP EQU X'88' SKIP REST OF FIELD CFW EQU X'86' CURSOR FORWARD CBW EQU X'84' CURSOR BACKWARD BSP EQU X'8B' BACKSPACE VAL EQU X'97' FORCE VALIDATION NOK EQU X'FF' NOKEY EJECT * * KEYTABLES * * USAGE: DATA ENTRY SCREEN * DEKTAB1 KTAB BSP,CLR,NOK,EOI,CAN,RET, C PLS,BTB,HOM,ERS, C KEP,NOK,NOK,STS,PRT, C DUP,CFW,ENT,RFW,RBW,COR,RDL,TOT,PRG * DEKTAB2 KTAB BSP,NOK,CLR,EOI,CAN,RET, C PLS,BTB,HOM,NOK, C NOK,NOK,NOK,NOK,PRT, C NOK,CBW,ENT * DEKTAB3 KTAB CFW,CBW,RIN,RDL,NOK, C CLR,SKP,EOI,CAN,RET, C PLS,BTB,HOM,NOK, C NOK,NOK,NOK,NOK,PRT, C NOK,NOK,ENT * DEKTAB4 KTAB CLR,CAN,RET,CFW * DEKTAB5 KTAB CLR,STS,PRT,CAN,RET,NOK, C RFW,RBW,COR,RDL,TOT,NOK,RIN * DEKTAB6 KTAB CAN,RET * DEKTAB7 KTAB CLR,CAN,RET,CFW,ENT * DEKTAB8 KTAB CAN,NOK,ENT * DEKTABA KTAB BSP,NOK,CLR,EOI,CAN,RET, C PLS,BTB,HOM,NOK, C NOK,NOK,NOK,MIN,PRT, C NOK,CBW,ENT * DEKTABB KTAB CFW,CBW,RIN,RDL,NOK, C CLR,SKP,EOI,CAN,RET, C PLS,BTB,HOM,NOK, C NOK,NOK,NOK,MIN,PRT, C NOK,NOK,ENT * DEKTABD KTAB CLR,CAN,RET,CFW,VAL,FRC *
0x0000…0018 (0, 0, 400) Head {h00=0x0014, h01=0x0050, text=»* DELITT «, t00=0x0000, t01=0x0004}
0x0018…0026 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0000, t01=0x001c}
0x0026…0042 Head {h00=0x0018, h01=0x0013, text=»ENT EQU X'8C' ENTER «, t00=0x0000, t01=0x002a}
0x0042…005e Head {h00=0x0018, h01=0x0014, text=»CAN EQU X'91' CANCEL«, t00=0x0000, t01=0x0046}
0x005e…007a Head {h00=0x0018, h01=0x0050, text=»RET EQU X'92' RETURN«, t00=0x0000, t01=0x0062}
0x007a…0098 Head {h00=0x001a, h01=0x0015, text=»PRG EQU X'94' PROGRAM «, t00=0x0000, t01=0x007e}
0x0098…00b4 Head {h00=0x0018, h01=0x0050, text=»TOT EQU X'93' TOTAL «, t00=0x0000, t01=0x009c}
0x00b4…00d0 Head {h00=0x0018, h01=0x0050, text=»STS EQU X'96' STATUS«, t00=0x0000, t01=0x00b8}
0x00d0…00ec Head {h00=0x0018, h01=0x0050, text=»PRT EQU X'98' PRINT «, t00=0x0000, t01=0x00d4}
0x00ec…0114 Head {h00=0x0024, h01=0x0050, text=»KEP EQU X'8D' KEEP FIELDCONTENTS«, t00=0x0000, t01=0x00f0}
0x0114…0138 Head {h00=0x0020, h01=0x0050, text=»ERS EQU X'8E' ERASE CONTENTS«, t00=0x0000, t01=0x0118}
0x0138…0156 Head {h00=0x001a, h01=0x0015, text=»HOM EQU X'85' GO HOME «, t00=0x0000, t01=0x013c}
0x0156…0176 Head {h00=0x001c, h01=0x0050, text=»COR EQU X'99' CORRECTION«, t00=0x0000, t01=0x015a}
0x0176…019a Head {h00=0x0020, h01=0x001b, text=»RIN EQU X'87' RECORD INSERT «, t00=0x0000, t01=0x017a}
0x019a…01be Head {h00=0x0020, h01=0x001b, text=»RDL EQU X'89' RECORD DELETE «, t00=0x0001, t01=0x000e}
0x01be…01e2 Head {h00=0x0020, h01=0x001c, text=»RFW EQU X'83' RECORD FORWARD«, t00=0x0001, t01=0x0032}
0x01e2…0208 Head {h00=0x0022, h01=0x001d, text=»RBW EQU X'81' RECORD BACKWARD «, t00=0x0001, t01=0x0056}
0x0208…022c Head {h00=0x0020, h01=0x001b, text=»EOI EQU X'80' FIELD FORWARD «, t00=0x0001, t01=0x007c}
0x022c…0254 Head {h00=0x0024, h01=0x0050, text=»PLS EQU X'9C' FIELD FORWARD PLUS«, t00=0x0001, t01=0x00a0}
0x0254…027e Head {h00=0x0026, h01=0x0050, text=»MIN EQU X'9D' FIELD FORWARD MINUS «, t00=0x0001, t01=0x00c8}
0x027e…029c Head {h00=0x001a, h01=0x0050, text=»BTB EQU X'8A' BACKTAB «, t00=0x0001, t01=0x00f2}
0x029c…02b8 Head {h00=0x0018, h01=0x0013, text=»CLR EQU X'8F' CLEAR «, t00=0x0001, t01=0x0110}
0x02b8…02d8 Head {h00=0x001c, h01=0x0050, text=»DUP EQU X'90' DUPLICATE «, t00=0x0001, t01=0x012c}
0x02d8…02f4 Head {h00=0x0018, h01=0x0050, text=»FRC EQU X'95' FORCE «, t00=0x0001, t01=0x014c}
0x02f4…031c Head {h00=0x0024, h01=0x0020, text=»SKP EQU X'88' SKIP REST OF FIELD«, t00=0x0001, t01=0x0168}
0x031c…0340 Head {h00=0x0020, h01=0x001c, text=»CFW EQU X'86' CURSOR FORWARD«, t00=0x0001, t01=0x0190}
0x0340…0366 Head {h00=0x0022, h01=0x001d, text=»CBW EQU X'84' CURSOR BACKWARD «, t00=0x0002, t01=0x0024}
0x0366…0386 Head {h00=0x001c, h01=0x0050, text=»BSP EQU X'8B' BACKSPACE «, t00=0x0002, t01=0x004a}
0x0386…03ac Head {h00=0x0022, h01=0x0050, text=»VAL EQU X'97' FORCE VALIDATION«, t00=0x0002, t01=0x006a}
0x03ac…03c8 Head {h00=0x0018, h01=0x0013, text=»NOK EQU X'FF' NOKEY «, t00=0x0002, t01=0x0090}
0x03c8…03d6 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0002, t01=0x00ac}
0x03d6…03e0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x00ba}
0x03e0…03fa Head {h00=0x0016, h01=0x0012, text=»* KEYTABLES«, t00=0x0002, t01=0x00c4}
0x03fa…0404 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x00de}
0x0404…042e Head {h00=0x0026, h01=0x0050, text=»* USAGE: DATA ENTRY SCREEN «, t00=0x0002, t01=0x00e8}
0x042e…0438 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0112}
0x0438…0468 Head {h00=0x002c, h01=0x0050, text=»DEKTAB1 KTAB BSP,CLR,NOK,EOI,CAN,RET, C«, t00=0x0002, t01=0x011c}
0x0468…0486 Head {h00=0x001a, h01=0x0050, text=» PLS,BTB,HOM,ERS, C «, t00=0x0002, t01=0x014c}
0x0486…04a8 Head {h00=0x001e, h01=0x0050, text=» KEP,NOK,NOK,STS,PRT, C «, t00=0x0002, t01=0x016a}
0x04a8…04d6 Head {h00=0x002a, h01=0x0050, text=» DUP,CFW,ENT,RFW,RBW,COR,RDL,TOT,PRG «, t00=0x0002, t01=0x018c}
0x04d6…04e0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x002a}
0x04e0…0510 Head {h00=0x002c, h01=0x0050, text=»DEKTAB2 KTAB BSP,NOK,CLR,EOI,CAN,RET, C«, t00=0x0003, t01=0x0034}
0x0510…052e Head {h00=0x001a, h01=0x0050, text=» PLS,BTB,HOM,NOK, C «, t00=0x0003, t01=0x0064}
0x052e…0550 Head {h00=0x001e, h01=0x0019, text=» NOK,NOK,NOK,NOK,PRT, C «, t00=0x0003, t01=0x0082}
0x0550…0566 Head {h00=0x0012, h01=0x000d, text=» NOK,CBW,ENT «, t00=0x0003, t01=0x00a4}
0x0566…0570 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x00ba}
0x0570…059c Head {h00=0x0028, h01=0x0050, text=»DEKTAB3 KTAB CFW,CBW,RIN,RDL,NOK, C«, t00=0x0003, t01=0x00c4}
0x059c…05be Head {h00=0x001e, h01=0x0050, text=» CLR,SKP,EOI,CAN,RET, C «, t00=0x0003, t01=0x00f0}
0x05be…05dc Head {h00=0x001a, h01=0x0050, text=» PLS,BTB,HOM,NOK, C «, t00=0x0003, t01=0x0112}
0x05dc…05fe Head {h00=0x001e, h01=0x0019, text=» NOK,NOK,NOK,NOK,PRT, C «, t00=0x0003, t01=0x0130}
0x05fe…0614 Head {h00=0x0012, h01=0x000d, text=» NOK,NOK,ENT «, t00=0x0003, t01=0x0152}
0x0614…061e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0168}
0x061e…0642 Head {h00=0x0020, h01=0x0050, text=»DEKTAB4 KTAB CLR,CAN,RET,CFW«, t00=0x0003, t01=0x0172}
0x0642…064c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0008}
0x064c…067c Head {h00=0x002c, h01=0x0050, text=»DEKTAB5 KTAB CLR,STS,PRT,CAN,RET,NOK, C«, t00=0x0004, t01=0x0012}
0x067c…06a2 Head {h00=0x0022, h01=0x0050, text=» RFW,RBW,COR,RDL,TOT,NOK,RIN «, t00=0x0004, t01=0x0042}
0x06a2…06ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0068}
0x06ac…06c8 Head {h00=0x0018, h01=0x0050, text=»DEKTAB6 KTAB CAN,RET«, t00=0x0004, t01=0x0072}
0x06c8…06d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x008e}
0x06d2…06fa Head {h00=0x0024, h01=0x0050, text=»DEKTAB7 KTAB CLR,CAN,RET,CFW,ENT«, t00=0x0004, t01=0x0098}
0x06fa…0704 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00c0}
0x0704…0724 Head {h00=0x001c, h01=0x0050, text=»DEKTAB8 KTAB CAN,NOK,ENT«, t00=0x0004, t01=0x00ca}
0x0724…072e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x00ea}
0x072e…075e Head {h00=0x002c, h01=0x0050, text=»DEKTABA KTAB BSP,NOK,CLR,EOI,CAN,RET, C«, t00=0x0004, t01=0x00f4}
0x075e…077c Head {h00=0x001a, h01=0x0050, text=» PLS,BTB,HOM,NOK, C «, t00=0x0004, t01=0x0124}
0x077c…079e Head {h00=0x001e, h01=0x0050, text=» NOK,NOK,NOK,MIN,PRT, C «, t00=0x0004, t01=0x0142}
0x079e…07b4 Head {h00=0x0012, h01=0x000d, text=» NOK,CBW,ENT «, t00=0x0004, t01=0x0164}
0x07b4…07be Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x017a}
0x07be…07ea Head {h00=0x0028, h01=0x0050, text=»DEKTABB KTAB CFW,CBW,RIN,RDL,NOK, C«, t00=0x0004, t01=0x0184}
0x07ea…080c Head {h00=0x001e, h01=0x0050, text=» CLR,SKP,EOI,CAN,RET, C «, t00=0x0005, t01=0x0020}
0x080c…082a Head {h00=0x001a, h01=0x0050, text=» PLS,BTB,HOM,NOK, C «, t00=0x0005, t01=0x0042}
0x082a…084c Head {h00=0x001e, h01=0x0050, text=» NOK,NOK,NOK,MIN,PRT, C «, t00=0x0005, t01=0x0060}
0x084c…0862 Head {h00=0x0012, h01=0x000d, text=» NOK,NOK,ENT «, t00=0x0005, t01=0x0082}
0x0862…086c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0098}
0x086c…0898 Head {h00=0x0028, h01=0x0050, text=»DEKTABD KTAB CLR,CAN,RET,CFW,VAL,FRC«, t00=0x0005, t01=0x00a2}
0x0898…08a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ce}
0x08a2…08a6 Head {h00=0x4004, h01=0x0000}
0x08a6…08aa 00 05 00 d8 ┆ ┆
0x08aa…08b2 (6, 1, 8) 20 04 00 00 00 06 00 04 ┆ ┆
0x08b2…0902 (7, 0, 400) 00 1e 00 50 5c 4d 4f 56 45 5c 42 49 4e 32 2c 3d 57 27 34 39 35 27 5c 46 4c 4f 50 50 59 20 00 07 00 04 00 18 00 50 5c 43 42 47 5c 46 43 4f 44 2c 3d 58 27 46 37 27 2c 46 33 31 00 07 00 26 00 22 00 50 5c 4d 4f 56 45 5c 42 49 4e 32 2c 3d 57 27 ┆ P MOVE BIN2,=W'495' FLOPPY P CBG FCOD,=X'F7',F31 & " P MOVE BIN2,=W'┆
0x0902…0952 36 34 30 30 27 5c 43 41 52 54 52 49 44 47 45 20 00 07 00 42 00 08 00 50 46 33 31 20 00 07 00 68 00 24 00 50 2a 20 20 43 41 4c 43 55 4c 41 54 45 20 4e 4f 2e 20 4f 46 20 46 52 45 45 20 53 45 43 54 4f 52 53 00 07 00 74 00 16 00 50 5c 4d 4f 56 ┆6400' CARTRIDGE B PF31 h $ P* CALCULATE NO. OF FREE SECTORS t P MOV┆
0x0952…09a2 45 5c 42 49 4e 33 2c 3d 58 27 44 30 27 20 00 07 00 9c 00 1a 00 50 5c 43 41 4c 4c 5c 43 48 41 4e 46 43 2c 44 49 53 4b 2c 42 49 4e 33 00 07 00 b6 00 14 00 50 5c 44 53 43 30 5c 44 49 53 4b 2c 43 4c 4f 53 45 00 07 00 d4 00 28 00 50 5c 41 53 53 ┆E BIN3,=X'D0' P CALL CHANFC,DISK,BIN3 P DSC0 DISK,CLOSE ( P ASS┆
0x09a2…09f2 49 47 4e 5c 44 49 53 4b 2c 30 2c 52 45 54 43 4f 44 2c 53 59 53 46 49 4c 2c 56 4f 4c 4e 41 4d 20 00 07 00 ec 00 1c 00 50 5c 42 4f 4b 5c 46 33 32 5c 53 59 53 46 49 4c 45 20 45 58 49 53 54 53 20 00 07 01 18 00 22 00 50 2a 20 20 53 59 53 46 49 ┆IGN DISK,0,RETCOD,SYSFIL,VOLNAM P BOK F32 SYSFILE EXISTS " P* SYSFI┆
0x09f2…0a42 4c 20 4d 55 53 54 20 45 58 49 53 54 20 4f 4e 20 53 59 53 56 4f 4c 00 07 01 38 00 16 00 50 5c 43 4d 50 5c 56 4f 4c 4e 41 4d 2c 53 59 53 56 4f 4c 00 07 01 5e 00 0e 00 50 5c 42 45 5c 44 45 52 52 39 20 00 07 01 78 00 1a 00 50 5c 42 5c 46 33 33 ┆L MUST EXIST ON SYSVOL 8 P CMP VOLNAM,SYSVOL ^ P BE DERR9 x P B F33┆
0x0a42…0a92 (8, 0, 398) 5c 49 46 20 4f 54 48 45 52 20 56 4f 4c 55 4d 45 00 07 01 8a 00 08 00 50 46 33 32 20 00 08 00 18 00 14 00 50 5c 4d 4f 56 45 5c 52 45 43 4e 55 4d 2c 57 31 20 00 08 00 24 00 22 00 50 5c 52 52 45 41 44 5c 44 49 53 4b 2c 52 42 55 46 2c 53 59 53 ┆ IF OTHER VOLUME PF32 P MOVE RECNUM,W1 $ " P RREAD DISK,RBUF,SYS┆
0x0a92…0ae2 4c 45 4e 2c 52 45 43 4e 55 4d 00 08 00 3c 00 12 00 50 5c 42 45 52 52 5c 44 49 53 4b 45 52 52 20 00 08 00 62 00 24 00 50 2a 20 20 4e 4f 2e 20 4f 46 20 52 45 43 4f 52 44 53 20 49 4e 20 53 59 53 54 45 4d 46 49 4c 45 20 00 08 00 78 00 20 00 50 ┆LEN,RECNUM < P BERR DISKERR b $ P* NO. OF RECORDS IN SYSTEMFILE x P┆
0x0ae2…0b32 5c 58 43 4f 50 59 5c 43 52 45 52 45 43 2c 57 30 2c 57 32 2c 52 42 55 46 2c 57 31 20 00 08 00 a0 00 12 00 50 5c 44 49 56 5c 43 52 45 52 45 43 2c 57 32 00 08 00 c4 00 14 00 50 5c 53 55 42 5c 42 49 4e 32 2c 43 52 45 52 45 43 00 08 00 da 00 08 ┆ XCOPY CREREC,W0,W2,RBUF,W1 P DIV CREREC,W2 P SUB BIN2,CREREC ┆
0x0b32…0b82 00 50 46 33 33 20 00 08 00 f2 00 10 00 50 5c 41 54 54 46 4d 54 5c 46 55 53 45 00 08 00 fe 00 12 00 50 5c 53 45 54 5c 44 45 50 52 4f 4d 50 54 20 00 08 01 12 00 0a 00 50 43 41 4e 43 32 32 00 08 01 28 00 18 00 50 5c 4d 4f 56 45 5c 46 49 4c 4e ┆ PF33 P ATTFMT FUSE P SET DEPROMPT PCANC22 ( P MOVE FILN┆
0x0b82…0bd0 41 4d 2c 55 53 45 46 49 4c 20 00 08 01 36 00 10 00 50 5c 50 45 52 46 5c 44 45 43 4c 52 41 00 08 01 52 00 1e 00 50 5c 49 42 5c 44 45 42 49 4e 57 32 2c 43 41 4e 43 32 32 2c 43 32 30 2c 46 35 30 00 08 01 66 00 0a 00 50 5c 42 5c 43 31 32 ┆AM,USEFIL 6 P PERF DECLRA R P IB DEBINW2,CANC22,C20,F50 f P B C12┆
0x0bd0…0c20 (9, 0, 400) 00 08 01 88 00 08 00 50 46 34 30 20 00 09 00 08 00 28 00 50 5c 43 42 45 5c 50 52 4e 55 4d 2c 3d 44 27 34 27 2c 46 34 35 5c 49 46 20 43 4f 50 59 20 53 59 53 46 49 4c 20 00 09 00 14 00 26 00 50 5c 43 42 45 5c 46 54 59 50 45 2c 3d 44 27 31 27 ┆ PF40 ( P CBE PRNUM,=D'4',F45 IF COPY SYSFIL & P CBE FTYPE,=D'1'┆
0x0c20…0c70 2c 46 34 35 5c 49 46 20 53 59 53 54 45 4d 46 49 4c 45 00 09 00 40 00 18 00 50 5c 4d 4f 56 45 5c 46 49 4c 4e 41 4d 2c 44 43 46 49 4c 45 20 00 09 00 6a 00 0a 00 50 5c 42 5c 46 35 30 00 09 00 86 00 08 00 50 46 34 35 20 00 09 00 94 00 18 00 50 ┆,F45 IF SYSTEMFILE @ P MOVE FILNAM,DCFILE j P B F50 PF45 P┆
0x0c70…0cc0 5c 4d 4f 56 45 5c 46 49 4c 4e 41 4d 2c 53 59 53 46 49 4c 20 00 09 00 a0 00 18 00 50 5c 4d 4f 56 45 5c 56 4f 4c 4e 41 4d 2c 53 59 53 56 4f 4c 20 00 09 00 bc 00 1a 00 50 5c 43 42 4e 45 5c 50 52 4e 55 4d 2c 3d 44 27 34 27 2c 46 35 30 20 00 09 ┆ MOVE FILNAM,SYSFIL P MOVE VOLNAM,SYSVOL P CBNE PRNUM,=D'4',F50 ┆
0x0cc0…0d10 00 d8 00 26 00 50 5c 4d 4f 56 45 5c 56 4f 4c 4e 41 4d 2c 4f 55 54 50 55 54 5c 49 46 20 43 4f 50 59 20 53 59 53 46 49 4c 00 09 00 f6 00 08 00 50 46 35 30 20 00 09 01 20 00 2e 00 50 5c 58 43 4f 50 59 5c 50 42 4c 4f 43 4b 2c 57 37 2c 57 31 2c ┆ & P MOVE VOLNAM,OUTPUT IF COPY SYSFIL PF50 . P XCOPY PBLOCK,W7,W1,┆
0x0d10…0d60 46 43 4f 44 2c 57 31 5c 44 49 53 4b 2d 46 49 4c 45 20 43 4f 44 45 00 09 01 2c 00 14 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 09 01 5e 00 12 00 50 2a 20 20 43 52 45 41 54 45 20 46 49 4c 45 00 09 01 76 00 14 00 50 2a 2a 2a 2a ┆FCOD,W1 DISK-FILE CODE , P**************** ^ P* CREATE FILE v P****┆
0x0d60…0db0 (10, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 09 01 8c 00 12 00 50 5c 45 52 41 53 45 5c 30 2c 57 31 2c 57 34 00 0a 00 14 00 16 00 50 5c 4d 4f 56 45 5c 53 54 52 31 41 2c 3d 43 27 53 27 20 00 0a 00 2a 00 2a 00 50 5c 58 43 4f 50 59 5c 50 42 4c 4f 43 ┆************ P ERASE 0,W1,W4 P MOVE STR1A,=C'S' * * P XCOPY PBLOC┆
0x0db0…0e00 4b 2c 57 36 2c 57 31 2c 53 54 52 31 41 2c 57 30 5c 46 2e 4f 52 47 3d 27 53 27 00 0a 00 44 00 2c 00 50 5c 58 43 4f 50 59 5c 50 42 4c 4f 43 4b 2c 57 38 2c 57 38 2c 46 49 4c 4e 41 4d 2c 57 30 5c 46 49 4c 45 2d 4e 41 4d 45 20 00 0a 00 72 00 2e ┆K,W6,W1,STR1A,W0 F.ORG='S' D , P XCOPY PBLOCK,W8,W8,FILNAM,W0 FILE-NAME r .┆
0x0e00…0e50 00 50 5c 58 43 4f 50 59 5c 50 42 4c 4f 43 4b 2c 57 31 36 2c 57 36 2c 56 4f 4c 4e 41 4d 2c 57 30 5c 56 4f 4c 2d 4e 41 4d 45 20 31 20 00 0a 00 a2 00 16 00 50 5c 4d 4f 56 45 5c 42 49 4e 31 2c 3d 57 27 34 39 27 20 00 0a 00 d4 00 22 00 50 5c 58 ┆ P XCOPY PBLOCK,W16,W6,VOLNAM,W0 VOL-NAME 1 P MOVE BIN1,=W'49' " P X┆
0x0e50…0ea0 43 4f 50 59 5c 50 42 4c 4f 43 4b 2c 42 49 4e 31 2c 57 31 2c 57 31 2c 57 31 5c 42 46 00 0a 00 ee 00 16 00 50 5c 4d 4f 56 45 5c 42 49 4e 32 2c 3d 57 27 35 30 27 20 00 0a 01 14 00 32 00 50 5c 58 43 4f 50 59 5c 50 42 4c 4f 43 4b 2c 42 49 4e 32 ┆COPY PBLOCK,BIN1,W1,W1,W1 BF P MOVE BIN2,=W'50' 2 P XCOPY PBLOCK,BIN2┆
0x0ea0…0ef0 2c 57 32 2c 55 53 45 4c 45 4e 2c 57 30 5c 52 45 43 4f 52 44 20 4c 45 4e 47 54 48 20 00 0a 01 2e 00 24 00 50 5c 43 42 45 5c 46 54 59 50 45 2c 3d 44 27 32 27 2c 46 35 33 5c 49 46 20 55 53 45 52 46 49 4c 45 00 0a 01 64 00 22 00 50 5c 58 43 4f ┆,W2,USELEN,W0 RECORD LENGTH . $ P CBE FTYPE,=D'2',F53 IF USERFILE d " P XCO┆
0x0ef0…0f40 (11, 0, 400) 50 59 5c 50 42 4c 4f 43 4b 2c 42 49 4e 31 2c 57 31 2c 57 32 2c 57 31 5c 42 46 00 0a 01 8c 00 32 00 50 5c 58 43 4f 50 59 5c 50 42 4c 4f 43 4b 2c 42 49 4e 32 2c 57 32 2c 53 59 53 4c 45 4e 2c 57 30 5c 52 45 43 4f 52 44 20 4c 45 4e 47 54 48 20 ┆PY PBLOCK,BIN1,W1,W2,W1 BF 2 P XCOPY PBLOCK,BIN2,W2,SYSLEN,W0 RECORD LENGTH ┆
0x0f40…0f90 00 0b 00 22 00 26 00 50 5c 43 42 45 5c 46 54 59 50 45 2c 3d 44 27 31 27 2c 46 35 33 5c 49 46 20 53 59 53 54 45 4d 46 49 4c 45 00 0b 00 58 00 2c 00 50 5c 58 43 4f 50 59 5c 50 42 4c 4f 43 4b 2c 42 49 4e 31 2c 57 31 2c 57 33 2c 57 31 5c 44 43 ┆ " & P CBE FTYPE,=D'1',F53 IF SYSTEMFILE X , P XCOPY PBLOCK,BIN1,W1,W3,W1 DC┆
0x0f90…0fe0 46 49 4c 45 2d 42 46 3d 33 20 00 0b 00 82 00 36 00 50 5c 58 43 4f 50 59 5c 50 42 4c 4f 43 4b 2c 42 49 4e 32 2c 57 32 2c 57 31 32 38 2c 57 30 5c 52 45 43 4f 52 44 20 4c 45 4e 47 54 48 20 3d 20 31 32 38 20 00 0b 00 b2 00 08 00 50 46 35 33 20 ┆FILE-BF=3 6 P XCOPY PBLOCK,BIN2,W2,W128,W0 RECORD LENGTH = 128 PF53 ┆
0x0fe0…1030 00 0b 00 ec 00 16 00 50 5c 4d 4f 56 45 5c 42 49 4e 31 2c 3d 57 27 35 36 27 20 00 0b 00 f8 00 14 00 50 5c 4d 4f 56 45 5c 42 49 4e 33 2c 4e 4f 52 45 43 00 0b 01 12 00 30 00 50 5c 58 43 4f 50 59 5c 50 42 4c 4f 43 4b 2c 42 49 4e 31 2c 57 32 2c ┆ P MOVE BIN1,=W'56' P MOVE BIN3,NOREC 0 P XCOPY PBLOCK,BIN1,W2,┆
0x1030…1080 42 49 4e 33 2c 57 30 5c 4e 4f 2e 20 4f 46 20 52 45 43 4f 52 44 53 00 0b 01 2a 00 16 00 50 5c 4d 4f 56 45 5c 42 49 4e 31 2c 3d 57 27 35 34 27 20 00 0b 01 5e 00 24 00 50 5c 58 43 4f 50 59 5c 50 42 4c 4f 43 4b 2c 42 49 4e 31 2c 57 32 2c 57 30 ┆BIN3,W0 NO. OF RECORDS * P MOVE BIN1,=W'54' ^ $ P XCOPY PBLOCK,BIN1,W2,W0┆
0x1080…10d0 (12, 0, 400) 2c 57 30 5c 4e 49 46 20 00 0b 01 78 00 16 00 50 5c 4d 4f 56 45 5c 42 49 4e 31 2c 3d 57 27 35 32 27 20 00 0c 00 10 00 22 00 50 5c 58 43 4f 50 59 5c 50 42 4c 4f 43 4b 2c 42 49 4e 31 2c 57 32 2c 57 30 2c 57 30 5c 4b 41 00 0c 00 2a 00 2a 00 50 ┆,W0 NIF x P MOVE BIN1,=W'52' " P XCOPY PBLOCK,BIN1,W2,W0,W0 KA * * P┆
0x10d0…1120 5c 43 41 4c 4c 5c 43 52 45 46 49 4c 2c 50 42 4c 4f 43 4b 2c 53 42 55 46 2c 53 59 53 42 55 46 2c 52 45 54 43 4f 44 00 0c 00 50 00 12 00 50 5c 43 4d 50 5c 52 45 54 43 4f 44 2c 57 33 00 0c 00 7e 00 0e 00 50 5c 42 45 5c 44 45 52 52 31 30 00 0c ┆ CALL CREFIL,PBLOCK,SBUF,SYSBUF,RETCOD P P CMP RETCOD,W3 ~ P BE DERR10 ┆
0x1120…1170 00 94 00 12 00 50 5c 43 4d 50 5c 52 45 54 43 4f 44 2c 57 37 00 0c 00 a6 00 0e 00 50 5c 42 45 5c 44 45 52 52 37 20 00 0c 00 bc 00 12 00 50 5c 43 4d 50 5c 52 45 54 43 4f 44 2c 57 30 00 0c 00 ce 00 10 00 50 5c 42 4e 45 5c 44 49 53 4b 45 52 52 ┆ P CMP RETCOD,W7 P BE DERR7 P CMP RETCOD,W0 P BNE DISKERR┆
0x1170…11c0 00 0c 00 e4 00 16 00 50 5c 4d 4f 56 45 5c 42 49 4e 31 2c 3d 58 27 44 30 27 20 00 0c 00 f8 00 1a 00 50 5c 43 41 4c 4c 5c 43 48 41 4e 46 43 2c 44 49 53 4b 2c 42 49 4e 31 00 0c 01 12 00 14 00 50 5c 44 53 43 30 5c 44 49 53 4b 2c 43 4c 4f 53 45 ┆ P MOVE BIN1,=X'D0' P CALL CHANFC,DISK,BIN1 P DSC0 DISK,CLOSE┆
0x11c0…1210 00 0c 01 30 00 24 00 50 5c 43 42 45 5c 46 54 59 50 45 2c 3d 44 27 33 27 2c 52 45 54 55 52 5c 49 46 20 44 43 46 49 4c 45 00 0c 01 48 00 28 00 50 5c 41 53 53 49 47 4e 5c 44 49 53 4b 2c 30 2c 52 45 54 43 4f 44 2c 46 49 4c 4e 41 4d 2c 56 4f 4c ┆ 0 $ P CBE FTYPE,=D'3',RETUR IF DCFILE H ( P ASSIGN DISK,0,RETCOD,FILNAM,VOL┆