|
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: 27003 (0x697b)
Notes: pts_type(SC)
Names: »WUPRV.SC«
└─⟦f45ea3bc3⟧ Bits:30009713 Philips computer tape "WSM"
└─⟦this⟧ »WSM:UTIL/WUPRV.SC«
IDENT WUPRV REL=2.3,841001,870155940230 ************************************** * WORK STATION MANAGEMENT * * UTILITY PROGRAMS * * 8 PRINT VTOC * * * ************************************** ** HISTORY: ** 83-05-11/MAER CHANGED DECORATIONS. ** 82-11-04/MAER CLEARING FC1 IN PARAMETER BLOCK ** WHEN NOT DISPLAY. DDUM WUDIV PDIV ENTRY WUPRV * EXPROC DECLRA CRE= SCREEN ROUTINE EXPROC DERR CRE= ERROR ROUTINE EXPROC DISERR EXPROC DSKERR,PBIN EXPROC HALT * EXT SURVEY ASS= PRINT VTOC * ENT EQU X'80' ENTER PRT EQU X'98' PRINT * KTABEN KTAB ENT EJECT WUPRV PROC ******************* * 8 PRINT VTOC * ******************* PRV000 ATTFMT FSURVEY SET DEPROMPT PRV100 PERF DECLRA PRV150 IB DEBINW2,PRV100,RETUR,PRV200 PERF DSKERR,W0 'BELL' B PRV150 PRV200 CBE FCOD2,SCRNFC,PRV300 DEVICE = SCREEN? XCOPY PBLOCK,W4,W1,W0,W0 NO, ERASE INPUT F.C. (=> NO PAGING IN TOSS UTIL.) PRV300 XCOPY PBLOCK,W6,W1,FCOD2,W1 PRINT-DEVICE XCOPY PBLOCK,W7,W1,FCOD,W1 DISK-FILE-CODE XCOPY PBLOCK,W8,W2,W0,W0 CALL SURVEY,PBLOCK,BPOOL(W5),BPOOL(W10),RETCOD CBE RETCOD,W0,PRV500 PERF DISERR B PRV150 PRV500 PERF HALT RETUR RET PEND EJECT * FSURVEY FRMT FSL FNL FATTR .HIGH FATTR .INV FCOPY =C'PRINT VTOC (VOLUME TABLE OF CONTENTS)' FNL FATTR .HIGH FCOPY =C'UNIT:' FKI 6,MINL=3,MAXL=3,ME,ALPHA,NEOI,APPL=5 FCOPY INUNIT FATTR .HIGH FTAB 12 FCOPY =C'VOLUME-NAME:' FINP 25 FCOPY VOLNAM FNL FATTR .HIGH FTEXT 'PRINT OUTPUT DEVICE:' FKI 21,MINL=2,MAXL=2,ME,ALPHA,NEOI,APPL=11 FCOPY STR2A FMEND END
0x0000…0030 (0, 0, 400) Head {h00=0x002c, h01=0x0050, text=» IDENT WUPRV REL=2.3,841001,870155940230«, t00=0x0000, t01=0x0004}
0x0030…005e Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0000, t01=0x0034}
0x005e…008c Head {h00=0x002a, h01=0x0050, text=»* WORK STATION MANAGEMENT *«, t00=0x0000, t01=0x0062}
0x008c…00ba Head {h00=0x002a, h01=0x0050, text=»* UTILITY PROGRAMS *«, t00=0x0000, t01=0x0090}
0x00ba…00e8 Head {h00=0x002a, h01=0x0050, text=»* 8 PRINT VTOC *«, t00=0x0000, t01=0x00be}
0x00e8…0116 Head {h00=0x002a, h01=0x0050, text=»* *«, t00=0x0000, t01=0x00ec}
0x0116…0144 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0000, t01=0x011a}
0x0144…014c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0148}
0x014c…0154 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0150}
0x0154…0168 Head {h00=0x0010, h01=0x0050, text=»** HISTORY: «, t00=0x0000, t01=0x0158}
0x0168…0170 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x016c}
0x0170…019e Head {h00=0x002a, h01=0x0050, text=»** 83-05-11/MAER CHANGED DECORATIONS.«, t00=0x0000, t01=0x0174}
0x019e…01d8 Head {h00=0x0036, h01=0x0050, text=»** 82-11-04/MAER CLEARING FC1 IN PARAMETER BLOCK «, t00=0x0001, t01=0x0012}
0x01d8…0204 Head {h00=0x0028, h01=0x0050, text=»** WHEN NOT DISPLAY. «, t00=0x0001, t01=0x004c}
0x0204…0218 Head {h00=0x0010, h01=0x0050, text=» DDUM WUDIV «, t00=0x0001, t01=0x0078}
0x0218…0226 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0001, t01=0x008c}
0x0226…023a Head {h00=0x0010, h01=0x0050, text=» ENTRY WUPRV«, t00=0x0001, t01=0x009a}
0x023a…0244 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ae}
0x0244…026e Head {h00=0x0026, h01=0x0050, text=» EXPROC DECLRA CRE= SCREEN ROUTINE«, t00=0x0001, t01=0x00b8}
0x026e…0296 Head {h00=0x0024, h01=0x0050, text=» EXPROC DERR CRE= ERROR ROUTINE «, t00=0x0001, t01=0x00e2}
0x0296…02ac Head {h00=0x0012, h01=0x0050, text=» EXPROC DISERR«, t00=0x0001, t01=0x010a}
0x02ac…02c8 Head {h00=0x0018, h01=0x0050, text=» EXPROC DSKERR,PBIN «, t00=0x0001, t01=0x0120}
0x02c8…02dc Head {h00=0x0010, h01=0x0050, text=» EXPROC HALT«, t00=0x0001, t01=0x013c}
0x02dc…02e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0150}
0x02e6…030a Head {h00=0x0020, h01=0x0050, text=» EXT SURVEY ASS= PRINT VTOC «, t00=0x0001, t01=0x015a}
0x030a…0314 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x017e}
0x0314…031c Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0188}
0x031c…0338 Head {h00=0x0018, h01=0x0050, text=»ENT EQU X'80' ENTER «, t00=0x0001, t01=0x0190}
0x0338…0354 Head {h00=0x0018, h01=0x0050, text=»PRT EQU X'98' PRINT «, t00=0x0002, t01=0x001c}
0x0354…035e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0038}
0x035e…0376 Head {h00=0x0014, h01=0x0050, text=»KTABEN KTAB ENT «, t00=0x0002, t01=0x0042}
0x0376…0384 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x005a}
0x0384…0396 Head {h00=0x000e, h01=0x0050, text=»WUPRV PROC«, t00=0x0002, t01=0x0068}
0x0396…03b2 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0002, t01=0x007a}
0x03b2…03ce Head {h00=0x0018, h01=0x0050, text=»* 8 PRINT VTOC * «, t00=0x0002, t01=0x0096}
0x03ce…03ea Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0002, t01=0x00b2}
0x03ea…03f8 Head {h00=0x000a, h01=0x0050, text=»PRV000«, t00=0x0002, t01=0x00ce}
0x03f8…0410 Head {h00=0x0014, h01=0x0050, text=» ATTFMT FSURVEY «, t00=0x0002, t01=0x00dc}
0x0410…0426 Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x0002, t01=0x00f4}
0x0426…0434 Head {h00=0x000a, h01=0x0050, text=»PRV100«, t00=0x0002, t01=0x010a}
0x0434…0448 Head {h00=0x0010, h01=0x0050, text=» PERF DECLRA«, t00=0x0002, t01=0x0118}
0x0448…0456 Head {h00=0x000a, h01=0x0050, text=»PRV150«, t00=0x0002, t01=0x012c}
0x0456…047e Head {h00=0x0024, h01=0x0050, text=» IB DEBINW2,PRV100,RETUR,PRV200 «, t00=0x0002, t01=0x013a}
0x047e…049c Head {h00=0x001a, h01=0x0050, text=» PERF DSKERR,W0 'BELL'«, t00=0x0002, t01=0x0162}
0x049c…04ae Head {h00=0x000e, h01=0x0050, text=» B PRV150 «, t00=0x0002, t01=0x0180}
0x04ae…04bc (3, 0, 400) Head {h00=0x000a, h01=0x0050, text=»PRV200«, t00=0x0003, t01=0x0004}
0x04bc…04ee Head {h00=0x002e, h01=0x0050, text=» CBE FCOD2,SCRNFC,PRV300 DEVICE = SCREEN? «, t00=0x0003, t01=0x0012}
0x04ee…0524 Head {h00=0x0032, h01=0x0050, text=» XCOPY PBLOCK,W4,W1,W0,W0 NO, ERASE INPUT F.C.«, t00=0x0003, t01=0x0044}
0x0524…054c Head {h00=0x0024, h01=0x0050, text=» (=> NO PAGING IN TOSS UTIL.) «, t00=0x0003, t01=0x007a}
0x054c…055a Head {h00=0x000a, h01=0x0050, text=»PRV300«, t00=0x0003, t01=0x00a2}
0x055a…058c Head {h00=0x002e, h01=0x0050, text=» XCOPY PBLOCK,W6,W1,FCOD2,W1 PRINT-DEVICE «, t00=0x0003, t01=0x00b0}
0x058c…05be Head {h00=0x002e, h01=0x0050, text=» XCOPY PBLOCK,W7,W1,FCOD,W1 DISK-FILE-CODE«, t00=0x0003, t01=0x00e2}
0x05be…05e0 Head {h00=0x001e, h01=0x0050, text=» XCOPY PBLOCK,W8,W2,W0,W0 «, t00=0x0003, t01=0x0114}
0x05e0…0618 Head {h00=0x0034, h01=0x0050, text=» CALL SURVEY,PBLOCK,BPOOL(W5),BPOOL(W10),RETCOD «, t00=0x0003, t01=0x0136}
0x0618…0636 Head {h00=0x001a, h01=0x0050, text=» CBE RETCOD,W0,PRV500 «, t00=0x0003, t01=0x016e}
0x0636…064a Head {h00=0x0010, h01=0x0050, text=» PERF DISERR«, t00=0x0003, t01=0x018c}
0x064a…065c Head {h00=0x000e, h01=0x0050, text=» B PRV150 «, t00=0x0004, t01=0x0010}
0x065c…066a Head {h00=0x000a, h01=0x0050, text=»PRV500«, t00=0x0004, t01=0x0022}
0x066a…067c Head {h00=0x000e, h01=0x0050, text=» PERF HALT«, t00=0x0004, t01=0x0030}
0x067c…068a Head {h00=0x000a, h01=0x0050, text=»RETUR «, t00=0x0004, t01=0x0042}
0x068a…0696 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0004, t01=0x0050}
0x0696…06a4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0004, t01=0x005c}
0x06a4…06b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x006a}
0x06b2…06bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0078}
0x06bc…06d0 Head {h00=0x0010, h01=0x0050, text=»FSURVEY FRMT«, t00=0x0004, t01=0x0082}
0x06d0…06dc Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0004, t01=0x0096}
0x06dc…06e8 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0004, t01=0x00a2}
0x06e8…06fc Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0004, t01=0x00ae}
0x06fc…0710 Head {h00=0x0010, h01=0x0050, text=» FATTR .INV «, t00=0x0004, t01=0x00c2}
0x0710…0748 Head {h00=0x0034, h01=0x0050, text=» FCOPY =C'PRINT VTOC (VOLUME TABLE OF CONTENTS)'«, t00=0x0004, t01=0x00d6}
0x0748…0754 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0004, t01=0x010e}
0x0754…0768 Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0004, t01=0x011a}
0x0768…0780 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'UNIT:'«, t00=0x0004, t01=0x012e}
0x0780…07b2 Head {h00=0x002e, h01=0x0050, text=» FKI 6,MINL=3,MAXL=3,ME,ALPHA,NEOI,APPL=5 «, t00=0x0004, t01=0x0146}
0x07b2…07c8 Head {h00=0x0012, h01=0x0050, text=» FCOPY INUNIT «, t00=0x0004, t01=0x0178}
0x07c8…07dc Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0004, t01=0x018e}
0x07dc…07ec Head {h00=0x000c, h01=0x0050, text=» FTAB 12«, t00=0x0005, t01=0x0012}
0x07ec…080c Head {h00=0x001c, h01=0x0050, text=» FCOPY =C'VOLUME-NAME:' «, t00=0x0005, t01=0x0022}
0x080c…081c Head {h00=0x000c, h01=0x0050, text=» FINP 25«, t00=0x0005, t01=0x0042}
0x081c…0832 Head {h00=0x0012, h01=0x0050, text=» FCOPY VOLNAM «, t00=0x0005, t01=0x0052}
0x0832…083e Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0005, t01=0x0068}
0x083e…0852 Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0005, t01=0x0074}
0x0852…0878 Head {h00=0x0022, h01=0x0050, text=» FTEXT 'PRINT OUTPUT DEVICE:' «, t00=0x0005, t01=0x0088}
0x0878…08ac Head {h00=0x0030, h01=0x0050, text=» FKI 21,MINL=2,MAXL=2,ME,ALPHA,NEOI,APPL=11 «, t00=0x0005, t01=0x00ae}
0x08ac…08c0 Head {h00=0x0010, h01=0x0050, text=» FCOPY STR2A«, t00=0x0005, t01=0x00e2}
0x08c0…08ce Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0005, t01=0x00f6}
0x08ce…08da Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0005, t01=0x0104}
0x08da…08de Head {h00=0x4004, h01=0x0000}
0x08de…08e2 00 05 01 10 ┆ ┆
0x08e2…08ea (6, 1, 8) 20 04 00 00 00 06 00 04 ┆ ┆
0x08ea…08ec (7, 0, 2) 00 c0 ┆ ┆
0x08ec…093c (8, 0, 138) 00 08 00 50 55 50 44 20 00 00 00 04 00 12 00 50 21 21 49 4e 20 57 55 43 56 4e 2c 53 43 20 00 00 00 10 00 16 00 50 21 21 52 45 20 30 2c 27 32 2e 32 27 2c 27 33 2e 30 27 00 00 00 26 00 18 00 50 21 21 52 45 20 30 2c 27 30 32 32 30 27 2c 27 30 ┆ PUPD P!!IN WUCVN,SC P!!RE 0,'2.2','3.0' & P!!RE 0,'0220','0┆
0x093c…0976 33 30 30 27 00 00 00 40 00 0e 00 50 21 21 4b 46 20 57 55 43 56 4e 00 00 00 5c 00 10 00 50 25 25 43 52 45 20 57 55 43 56 4e 20 00 00 00 6e 00 08 00 50 50 45 4e 44 00 00 00 82 ┆300' @ P!!KF WUCVN P%%CRE WUCVN n PPEND ┆
0x0976…097e (9, 1, 8) 20 04 00 00 00 01 00 04 ┆ ┆
0x097e…09b0 (10, 3, 8191) 00 10 00 e4 01 00 00 00 00 89 00 00 00 02 4f 00 00 65 00 00 00 00 00 00 00 0c 00 e5 01 00 00 66 00 86 00 00 00 00 00 00 00 14 00 e6 01 00 00 00 00 88 ┆ O e f ┆
0x09b0…0a00 00 00 00 02 4f 04 00 2b 4f 00 00 39 00 00 00 18 00 e7 01 00 00 00 00 a1 00 00 00 02 4f 04 00 2b 4f 04 00 1b 4f 00 00 69 00 00 00 00 00 00 00 28 00 e8 01 00 00 00 00 bc 00 00 00 06 4f 0a 00 67 61 0e ff fc 00 01 4f 00 00 32 4f 0a 00 6a 61 00 ┆ O +O 9 O +O O i ( O ga O 2O ja ┆
0x0a00…0a50 ff fc 00 01 4f 00 00 2b 00 00 00 00 00 00 00 0c 00 e9 01 00 00 68 00 86 00 00 00 00 00 00 00 14 00 ea 01 00 00 00 00 88 00 00 00 02 4f 04 00 32 4f 00 00 21 00 00 00 1a 00 eb 01 00 00 00 00 a2 00 00 00 02 4f 04 00 32 6b 06 00 28 00 02 4f 00 ┆ O + h O 2O ! O 2k ( O ┆
0x0a50…0aa0 00 6b 00 00 00 00 00 0c 00 ec 01 00 00 69 00 86 00 00 00 00 00 00 00 20 00 ed 01 00 00 00 00 bc 00 00 00 06 4f 0a 00 67 61 0a ff fc 00 01 4f 00 00 32 6b 00 00 30 00 02 00 00 00 00 00 00 00 10 00 ee 01 00 00 00 00 89 00 00 00 02 4f 00 00 68 ┆ k i O ga O 2k 0 O h┆
0x0aa0…0af0 00 00 00 00 00 00 00 0c 00 f2 01 00 00 6b 00 86 00 00 00 00 00 00 00 32 00 f3 01 00 00 00 00 a0 00 00 00 02 4f 04 00 0c 4f 08 00 1f 4f 0a 00 20 61 0a ff fc 00 01 4f 00 00 21 4f 04 00 52 4f 04 00 4b 4f 04 00 61 4f 00 00 24 00 00 00 00 00 10 ┆ k 2 O O O a O !O RO KO aO $ ┆
0x0af0…0b40 00 f4 01 00 00 00 00 98 00 00 00 02 4f 00 00 6c 00 00 00 00 00 00 00 14 00 f5 01 00 00 00 7f ff 7f ff 7f ff 00 70 7f ff 00 d1 00 00 00 02 4f 04 00 5a 4f 00 00 21 00 00 00 10 00 f6 01 00 00 00 00 9f 00 00 00 02 4f 00 00 6d 00 00 00 00 00 00 ┆ O l p O ZO ! O m ┆
0x0b40…0b90 00 1c 00 f7 01 00 00 00 00 a0 00 00 00 02 4f 04 00 0d 4f 04 00 57 4f 04 00 5c 4f 00 00 58 00 00 00 14 00 f8 01 00 00 00 00 88 00 00 00 02 4f 04 00 58 4f 00 00 59 00 00 00 1c 00 f9 01 00 00 00 00 a0 00 00 00 02 4f 04 00 0e 4f 04 00 58 4f 04 ┆ O O WO O X O XO Y O O XO ┆
0x0b90…0be0 00 57 4f 00 00 5c 00 00 00 14 00 fa 01 00 00 00 00 88 00 00 00 02 4f 04 00 4a 4f 00 00 21 00 00 00 14 00 fb 01 00 00 00 00 bc 00 00 00 02 4f 04 00 61 4f 00 00 56 00 00 00 14 00 fc 01 00 00 00 00 88 00 00 00 02 4f 04 00 56 4f 00 00 21 00 00 ┆ WO O JO ! O aO V O VO ! ┆
0x0be0…0c30 00 18 00 fd 01 00 00 00 00 a4 00 00 00 02 4f 04 00 5a 4f 04 00 21 4f 00 00 62 00 00 00 00 00 00 00 14 00 fe 01 00 00 00 00 bc 00 00 00 02 4f 04 00 56 4f 00 00 1b 00 00 00 14 00 ff 01 00 00 00 00 bc 00 00 00 02 4f 04 00 5e 4f 00 00 33 00 00 ┆ O ZO !O b O VO O ^O 3 ┆
0x0c30…0c80 00 10 01 00 01 00 00 00 00 89 00 00 00 02 4f 00 00 62 00 00 00 00 00 00 00 0c 01 01 01 00 00 6d 00 86 00 00 00 00 00 00 00 16 01 02 01 00 00 00 00 bc 00 00 00 02 4f 04 00 61 6b 00 00 38 00 02 00 14 01 03 01 00 00 00 00 bc 00 00 00 02 4f 04 ┆ O b m O ak 8 O ┆
0x0c80…0cd0 00 2b 4f 00 00 21 00 00 00 0c 01 04 01 00 00 6e 00 86 00 00 00 00 00 00 00 34 01 05 09 00 00 00 00 b5 00 00 00 02 4f 04 7f ff 7f ff 7f ff 00 70 7f ff 00 2b 4f 04 00 6f 4f 04 00 70 4f 04 00 70 4f 04 00 71 4f 04 00 70 4f 04 00 70 4f 04 00 70 ┆ +O ! n 4 O p +O oO pO pO qO pO pO p┆
0x0cd0…0d20 4f 04 00 70 4f 00 00 72 00 00 00 0c 01 0e 01 00 00 70 00 86 00 00 00 00 00 00 00 16 01 0f 01 00 00 00 00 88 00 00 00 02 4f 04 00 61 6b 00 00 40 00 02 00 32 01 10 01 00 00 00 00 a0 00 00 00 02 4f 04 00 0c 4f 08 00 1f 4f 0a 00 20 61 0a ff fc ┆O pO r p O ak @ 2 O O O a ┆
0x0d20…0d70 00 01 4f 00 00 21 4f 04 00 52 4f 04 00 4b 4f 04 00 61 4f 00 00 24 00 00 00 00 00 10 01 11 01 00 00 00 00 98 00 00 00 02 4f 00 00 6c 00 00 00 00 00 00 00 14 01 12 01 00 00 00 00 88 00 00 00 02 4f 04 00 2b 4f 00 00 21 00 00 00 1a 01 13 01 00 ┆ O !O RO KO aO $ O l O +O ! ┆
0x0d70…0dc0 00 00 00 a4 00 00 00 02 4f 04 00 2b 6b 06 00 48 00 02 4f 00 00 6e 00 00 00 00 00 10 01 14 01 00 00 00 00 89 00 00 00 02 4f 00 00 73 00 00 00 00 00 00 00 0c 01 15 01 00 00 6f 00 86 00 00 00 00 00 00 00 14 01 16 01 00 00 00 00 bc 00 00 00 02 ┆ O +k H O n O s o ┆
0x0dc0…0e10 4f 04 00 52 4f 00 00 53 00 00 00 16 01 17 01 00 00 00 00 bc 00 00 00 02 4f 04 00 54 6b 00 00 50 00 02 00 10 01 18 01 00 00 00 00 89 00 00 00 02 4f 00 00 70 00 00 00 00 00 00 00 0c 01 19 01 00 00 71 00 86 00 00 00 00 00 00 00 16 01 1a 01 00 ┆O RO S O Tk P O p q ┆
0x0e10…0e60 00 00 00 bc 00 00 00 02 4f 04 00 54 6b 00 00 58 00 02 00 10 01 1b 01 00 00 00 00 89 00 00 00 02 4f 00 00 70 00 00 00 00 00 00 00 0c 01 1c 01 00 00 72 7f ff 7f ff 7f ff 00 70 7f ff 00 86 00 00 00 00 00 00 00 16 01 1d 01 00 00 00 00 bc 00 00 ┆ O Tk X O p r p ┆
0x0e60…0eb0 00 02 4f 04 00 54 6b 00 00 60 00 02 00 10 01 1e 01 00 00 00 00 89 00 00 00 02 4f 00 00 70 00 00 00 00 00 00 00 0c 01 1f 01 00 00 73 00 86 00 00 00 00 00 00 00 14 01 20 01 00 00 00 00 c4 00 00 00 02 4f 04 00 26 4f 00 00 21 00 00 00 10 01 21 ┆ O Tk ` O p s O &O ! !┆
0x0eb0…0f00 01 00 00 00 00 98 00 00 00 02 4f 00 00 4f 00 00 00 00 00 00 00 18 01 22 01 00 00 00 00 c4 00 00 00 02 4f 04 00 07 4f 04 00 27 4f 00 00 1d 00 00 00 00 00 00 00 10 01 23 01 00 00 00 00 98 00 00 00 02 4f 00 00 51 00 00 00 00 00 00 00 10 01 24 ┆ O O " O O 'O # O Q $┆
0x0f00…0f50 01 00 00 00 00 c4 00 00 00 02 4f 00 00 09 00 00 00 00 00 00 00 10 01 25 01 00 00 00 00 89 00 00 00 02 4f 00 00 19 00 00 00 00 00 00 00 0c 01 26 01 00 00 6c 00 86 00 00 00 00 00 00 00 14 01 27 01 00 00 00 00 c4 00 00 00 02 4f 04 00 26 4f 00 ┆ O % O & l ' O &O ┆
0x0f50…0fa0 00 21 00 00 00 10 01 28 01 00 00 00 00 c4 00 00 00 02 4f 00 00 04 00 00 00 00 00 00 00 10 01 29 01 00 00 00 00 89 00 00 00 02 4f 00 00 3d 00 00 00 00 00 00 00 0c 01 2a 01 00 00 19 00 86 00 00 00 00 00 00 00 0c 01 2b 01 00 00 00 00 cf 00 00 ┆ ! ( O ) O = * + ┆
0x0fa0…0ff0 00 00 00 00 00 10 01 32 01 00 00 26 00 cd 00 00 00 02 4f 00 00 74 00 00 00 00 00 00 00 2e 01 34 01 00 00 00 00 a0 00 00 00 02 4f 04 00 11 4f 08 00 1f 4f 0a 00 20 61 0a ff fc 00 01 7f ff 7f ff 7f ff 00 70 00 00 00 00 00 00 00 00 00 00 00 00 ┆ 2 & O t . 4 O O O a p ┆
0x0ff0…1040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x3…]
0x1130…1180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 70 00 0e ┆ p ┆
0x1180…11d0 0e 18 0e 20 0e 28 0e 30 0e 38 0e 40 0e 48 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ( 0 8 @ H ┆
0x11d0…1220 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x3…]
0x1310…1360 00 00 00 00 00 00 00 70 01 90 00 2e 00 50 5c 49 44 45 4e 54 5c 57 55 41 53 53 5c 57 2c 52 45 4c 3d 32 2e 33 2c 38 34 31 32 31 31 2c 38 37 30 31 35 35 39 34 30 32 33 30 00 00 00 04 00 04 00 50 00 00 00 36 00 10 00 50 2a 2a 20 48 49 53 54 4f ┆ p . P IDENT WUASS W,REL=2.3,841211,870155940230 P 6 P** HISTO┆
0x1360…13b0 52 59 3a 20 00 00 00 3e 00 04 00 50 00 00 00 52 00 3a 00 50 2a 2a 20 38 34 2d 31 32 2d 31 31 2f 43 4a 20 20 20 20 49 2e 43 2e 20 57 53 4d 2d 55 54 49 4c 20 3c 2d 3e 20 54 4f 53 53 55 54 20 52 45 4c 31 33 20 49 4d 50 4c 2e 00 00 00 5a 00 3a ┆RY: > P R : P** 84-12-11/CJ I.C. WSM-UTIL <-> TOSSUT REL13 IMPL. Z :┆
0x13b0…1400 00 50 2a 2a 20 38 33 2d 31 30 2d 30 36 2f 4d 41 45 52 20 20 43 48 45 43 4b 20 4f 46 20 54 4f 53 53 20 46 4f 52 4d 41 54 54 45 44 20 44 49 53 43 20 41 44 44 45 44 2e 20 00 00 00 98 00 22 00 50 2a 2a 20 38 33 2d 30 32 2d 32 38 2f 4d 41 45 52 ┆ P** 83-10-06/MAER CHECK OF TOSS FORMATTED DISC ADDED. " P** 83-02-28/MAER┆
0x1400…1450 20 20 52 45 4c 45 41 53 45 20 31 2e 4f 20 00 00 00 d6 00 38 00 50 2a 2a 20 38 33 2d 30 32 2d 30 39 2f 4d 41 45 52 20 20 22 52 45 54 52 49 45 53 2d 50 45 52 46 4f 52 4d 45 44 22 2d 42 49 54 20 4d 41 53 4b 45 44 20 4f 55 54 00 00 00 fc 00 0a ┆ RELEASE 1.O 8 P** 83-02-09/MAER "RETRIES-PERFORMED"-BIT MASKED OUT ┆
0x1450…14a0 00 50 5c 45 4a 45 43 54 00 00 01 38 00 04 00 50 00 00 01 46 00 12 00 50 5c 45 4e 54 52 59 5c 47 49 50 4c 46 43 20 00 00 01 4e 00 12 00 50 5c 45 4e 54 52 59 5c 43 48 41 4e 46 43 20 00 00 01 64 00 12 00 50 5c 45 4e 54 52 59 5c 43 52 45 56 4f ┆ P EJECT 8 P F P ENTRY GIPLFC N P ENTRY CHANFC d P ENTRY CREVO┆
0x14a0…14f0 4c 20 00 00 01 7a 00 12 00 50 00 00 00 00 00 00 00 70 01 90 5c 45 4e 54 52 59 5c 43 52 45 46 49 4c 20 00 00 01 90 00 12 00 50 5c 45 4e 54 52 59 5c 44 45 4c 46 49 4c 20 00 01 00 16 00 12 00 50 5c 45 4e 54 52 59 5c 47 45 54 56 4f 4c 20 00 01 ┆L z P p ENTRY CREFIL P ENTRY DELFIL P ENTRY GETVOL ┆
0x14f0…1540 00 2c 00 12 00 50 5c 45 4e 54 52 59 5c 43 4f 50 59 44 44 20 00 01 00 42 00 12 00 50 5c 45 4e 54 52 59 5c 50 52 49 4e 54 46 20 00 01 00 58 00 10 00 50 5c 45 4e 54 52 59 5c 43 48 56 4f 4c 00 01 00 6e 00 12 00 50 5c 45 4e 54 52 59 5c 53 55 52 ┆ , P ENTRY COPYDD B P ENTRY PRINTF X P ENTRY CHVOL n P ENTRY SUR┆
0x1540…1590 56 45 59 20 00 01 00 82 00 12 00 50 5c 45 4e 54 52 59 5c 52 44 53 45 43 54 20 00 01 00 98 00 12 00 50 5c 45 4e 54 52 59 5c 57 52 53 45 43 54 20 00 01 00 ae 00 12 00 50 5c 45 4e 54 52 59 5c 52 45 41 44 44 4b 20 00 01 00 c4 00 12 00 50 5c 45 ┆VEY P ENTRY RDSECT P ENTRY WRSECT P ENTRY READDK P E┆
0x1590…15e0 4e 54 52 59 5c 57 52 49 54 44 4b 20 00 01 00 da 00 10 00 50 5c 45 4e 54 52 59 5c 4f 50 45 4e 46 00 01 00 f0 00 12 00 50 5c 45 4e 54 52 59 5c 43 4c 4f 53 45 46 20 00 01 01 04 00 12 00 50 5c 45 4e 54 52 59 5c 42 43 44 42 49 4e 20 00 01 01 1a ┆NTRY WRITDK P ENTRY OPENF P ENTRY CLOSEF P ENTRY BCDBIN ┆
0x15e0…1630 00 12 00 50 5c 45 4e 54 52 59 5c 42 49 4e 42 43 44 20 00 01 01 30 00 10 00 50 5c 45 4e 54 52 59 5c 52 43 47 45 54 00 01 01 46 00 12 00 50 5c 45 4e 54 52 59 5c 47 45 54 49 4e 44 20 00 01 01 5a 00 0a 00 50 5c 45 4a 45 43 54 00 01 01 70 00 04 ┆ P ENTRY BINBCD 0 P ENTRY RCGET F P ENTRY GETIND Z P EJECT p ┆
0x1630…1680 00 50 00 01 01 7e 00 12 00 50 5c 45 58 54 52 4e 5c 49 3a 45 00 00 00 00 00 00 00 70 01 90 56 41 30 20 00 01 01 86 00 06 00 50 2a 20 00 02 00 0c 00 12 00 50 5c 45 58 54 52 4e 5c 54 3a 46 44 53 50 20 00 02 00 16 00 10 00 50 5c 45 58 54 52 4e ┆ P ~ P EXTRN I:E p VA0 P* P EXTRN T:FDSP P EXTRN┆
0x1680…16d0 5c 49 3a 52 54 31 00 02 00 2c 00 12 00 50 5c 45 58 54 52 4e 5c 54 3a 4c 4f 46 53 20 00 02 00 40 00 12 00 50 5c 45 58 54 52 4e 5c 54 3a 42 43 44 42 20 00 02 00 56 00 12 00 50 5c 45 58 54 52 4e 5c 54 3a 42 49 4e 42 20 00 02 00 6c 00 0a 00 50 ┆ I:RT1 , P EXTRN T:LOFS @ P EXTRN T:BCDB V P EXTRN T:BINB l P┆
0x16d0…1720 5c 45 4a 45 43 54 00 02 00 82 00 04 00 50 00 02 00 90 00 1a 00 50 43 41 4c 4c 5c 46 4f 52 4d 5c 31 36 3d 2f 46 36 41 31 2c 31 36 20 00 02 00 98 00 04 00 50 00 02 00 b6 00 12 00 50 54 4f 53 53 31 5c 45 51 55 5c 27 54 4f 27 00 02 00 be 00 12 ┆ EJECT P PCALL FORM 16=/F6A1,16 P PTOSS1 EQU 'TO' ┆
0x1720…1770 00 50 54 4f 53 53 32 5c 45 51 55 5c 27 53 53 27 00 02 00 d4 00 12 00 50 54 4f 53 53 33 5c 45 51 55 5c 27 20 52 27 00 02 00 ea 00 12 00 50 54 4f 53 53 34 5c 45 51 55 5c 27 45 4c 27 00 02 01 00 00 0a 00 50 5c 45 4a 45 43 54 00 02 01 16 00 34 ┆ PTOSS2 EQU 'SS' PTOSS3 EQU ' R' PTOSS4 EQU 'EL' P EJECT 4┆
0x1770…17c0 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 02 01 24 00 06 00 50 2a 20 00 02 01 5c 00 30 00 50 2a 20 20 50 52 45 50 41 52 45 20 46 ┆ P*********************************************** $ P* 0 P* PREPARE F┆
0x17c0…1810 4f 52 20 49 4e 54 45 52 54 41 53 4b 20 57 53 4d 55 54 49 4c 20 3c 2d 3e 20 54 4f 53 53 55 00 00 00 00 00 00 00 70 01 90 54 20 00 02 01 66 00 06 00 50 2a 20 00 03 00 0a 00 34 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆OR INTERTASK WSMUTIL <-> TOSSU p T f P* 4 P********************┆
0x1810…1860 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 03 00 14 00 04 00 50 00 03 00 4c 00 12 00 50 2a 20 20 4f 52 44 45 52 2d 43 4f 44 45 53 00 03 00 54 00 04 00 50 00 03 00 6a 00 2a 00 50 52 44 43 4f 44 45 ┆*************************** P L P* ORDER-CODES T P j * PRDCODE┆
0x1860…18b0 5c 45 51 55 5c 2f 30 30 38 32 5c 52 45 41 44 2d 57 49 54 48 2d 57 41 49 54 20 20 43 4f 44 45 20 00 03 00 72 00 2a 00 50 57 52 43 4f 44 45 5c 45 51 55 5c 2f 30 30 38 36 5c 57 52 49 54 45 2d 57 49 54 48 2d 57 41 49 54 20 20 43 4f 44 45 00 03 ┆ EQU /0082 READ-WITH-WAIT CODE r * PWRCODE EQU /0086 WRITE-WITH-WAIT CODE ┆
0x18b0…18de 00 a0 00 26 00 50 54 4f 43 4f 44 45 5c 45 51 55 5c 2f 30 30 42 39 5c 53 45 54 20 54 49 4d 45 20 4f 55 54 20 43 4f 44 45 00 03 00 ce 00 04 ┆ & PTOCODE EQU /00B9 SET TIME OUT CODE ┆
0x18de…597b […elided…]
0x597b…59b0 00 00 71 01 8e 5c 4c 44 52 2a 5c 41 31 2c 41 39 5c 4c 4f 41 44 20 52 45 43 2e 20 54 49 44 20 49 4e 20 41 31 20 00 05 01 90 00 26 00 50 5c 53 54 5c 41 31 2c 49 ┆ q LDR* A1,A9 LOAD REC. TID IN A1 & P ST A1,I┆
0x59b0…5a00 50 4c 46 43 31 2b 32 5c 53 54 4f 52 45 20 52 45 43 45 56 49 4e 47 20 54 49 44 00 06 00 28 00 14 00 50 5c 4c 44 4b 4c 5c 41 37 2c 49 50 4c 46 43 31 20 00 06 00 52 00 30 00 50 5c 53 55 5c 41 31 32 2c 2d 31 32 2c 41 31 33 5c 53 41 56 45 20 52 ┆PLFC1+2 STORE RECEVING TID ( P LDKL A7,IPLFC1 R 0 P SU A12,-12,A13 SAVE R┆
0x5a00…5a50 45 54 41 44 52 45 53 53 20 49 46 20 44 49 53 4b 50 41 47 49 4e 47 00 06 00 6a 00 08 00 50 5c 4c 4b 4d 00 06 00 9e 00 14 00 50 5c 44 41 54 41 5c 32 31 5c 47 45 54 20 46 43 20 00 06 00 aa 00 2a 00 50 5c 41 44 5c 41 31 32 2c 2d 31 32 2c 41 31 ┆ETADRESS IF DISKPAGING j P LKM P DATA 21 GET FC * P AD A12,-12,A1┆
0x5a50…5aa0 33 5c 52 45 53 54 4f 52 45 20 43 52 45 44 49 54 20 52 45 54 41 44 52 20 00 06 00 c2 00 26 00 50 5c 43 41 4c 4c 5c 49 3a 45 56 41 30 5c 47 45 54 20 41 44 52 45 53 53 20 54 4f 20 3c 49 50 4c 46 43 3e 00 06 00 f0 00 20 00 50 5c 4c 44 5c 41 31 ┆3 RESTORE CREDIT RETADR & P CALL I:EVA0 GET ADRESS TO <IPLFC> P LD A1┆
0x5aa0…5af0 2c 49 50 4c 42 55 46 5c 4c 4f 41 44 20 46 43 20 49 4e 20 41 31 20 00 06 01 1a 00 1e 00 50 5c 53 54 52 5c 41 31 2c 41 39 5c 53 54 4f 52 45 20 46 49 4c 45 43 4f 44 45 20 00 06 01 3e 00 16 00 50 5c 41 42 4c 5c 49 3a 52 54 31 5c 52 45 54 55 52 ┆,IPLBUF LOAD FC IN A1 P STR A1,A9 STORE FILECODE > P ABL I:RT1 RETUR┆
0x5af0…5b40 4e 20 00 06 01 60 00 0a 00 50 5c 45 4a 45 43 54 00 06 01 7a 00 06 00 50 2a 20 00 06 01 88 00 00 00 00 00 00 00 00 00 71 01 90 00 20 00 50 2a 20 20 20 43 48 41 4e 47 45 20 46 49 4c 45 20 43 4f 44 45 20 49 4e 20 45 43 42 20 00 07 00 04 00 0e ┆N ` P EJECT z P* q P* CHANGE FILE CODE IN ECB ┆
0x5b40…5b90 00 50 2a 20 20 20 43 41 4c 4c 3a 20 00 07 00 28 00 2a 00 50 2a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 43 48 41 4e 46 43 2c 44 41 54 41 53 45 54 2c 46 49 4c 45 43 4f 44 45 20 00 07 00 3a 00 06 00 50 2a 20 00 07 00 68 00 10 00 50 43 48 41 4e ┆ P* CALL: ( * P* CALL CHANFC,DATASET,FILECODE : P* h PCHAN┆
0x5b90…5be0 46 43 5c 45 51 55 5c 2a 00 07 00 72 00 3a 00 50 5c 43 41 4c 4c 5c 54 3a 46 44 53 50 5c 47 45 54 20 44 41 54 2d 45 4e 54 52 59 20 49 4e 20 41 33 20 41 4e 44 20 44 53 43 42 2d 45 4e 54 52 59 20 49 4e 20 41 38 20 00 07 00 86 00 1a 00 50 5c 4c ┆FC EQU * r : P CALL T:FDSP GET DAT-ENTRY IN A3 AND DSCB-ENTRY IN A8 P L┆
0x5be0…5c30 44 52 5c 41 36 2c 41 33 5c 41 4e 44 20 53 41 56 45 20 41 33 00 07 00 c4 00 22 00 50 5c 43 41 4c 4c 5c 49 3a 45 56 41 30 5c 47 45 54 20 41 44 44 52 2e 20 54 4f 20 42 49 4e 20 00 07 00 e2 00 1a 00 50 5c 4c 43 5c 41 33 2c 31 2c 41 39 5c 47 45 ┆DR A6,A3 AND SAVE A3 " P CALL I:EVA0 GET ADDR. TO BIN P LC A3,1,A9 GE┆
0x5c30…5c80 54 20 4e 45 57 20 46 43 00 07 01 08 00 20 00 50 5c 53 43 5c 41 33 2c 31 2c 41 36 5c 41 4e 44 20 53 54 4f 52 45 20 49 4e 20 44 41 54 00 07 01 26 00 1c 00 50 5c 53 43 5c 41 33 2c 31 2c 41 38 5c 41 4e 44 20 49 4e 20 44 53 43 42 20 00 07 01 4a ┆T NEW FC P SC A3,1,A6 AND STORE IN DAT & P SC A3,1,A8 AND IN DSCB J┆
0x5c80…5cd0 00 0e 00 50 5c 41 42 4c 5c 52 45 54 55 52 00 07 01 6a 00 0a 00 50 5c 45 4a 45 43 54 00 07 01 7c 00 16 00 50 2a 2a 2a 2a 2a 2a 00 00 00 00 00 00 00 71 01 90 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 07 01 8a 00 14 00 50 2a 20 20 43 52 45 41 54 ┆ P ABL RETUR j P EJECT | P****** q ************ P* CREAT┆
0x5cd0…5d20 45 20 56 4f 4c 55 4d 45 00 08 00 14 00 16 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 08 00 2c 00 10 00 50 43 52 45 56 4f 4c 5c 45 51 55 5c 2a 00 08 00 46 00 12 00 50 5c 4c 44 4b 4c 5c 41 34 2c 27 43 52 27 20 00 08 00 5a ┆E VOLUME P****************** , PCREVOL EQU * F P LDKL A4,'CR' Z┆
0x5d20…5d70 00 12 00 50 5c 4c 44 4b 4c 5c 41 36 2c 27 56 20 27 20 00 08 00 70 00 0e 00 50 5c 52 46 5c 55 54 49 4e 46 20 00 08 00 86 00 14 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 08 00 98 00 12 00 50 2a 20 20 43 52 45 41 54 45 20 46 49 ┆ P LDKL A6,'V ' p P RF UTINF P**************** P* CREATE FI┆
0x5d70…5dc0 4c 45 00 08 00 b0 00 14 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 08 00 c6 00 10 00 50 43 52 45 46 49 4c 5c 45 51 55 5c 2a 00 08 00 de 00 12 00 50 5c 4c 44 4b 4c 5c 41 34 2c 27 43 52 27 20 00 08 00 f2 00 12 00 50 5c 4c 44 4b ┆LE P**************** PCREFIL EQU * P LDKL A4,'CR' P LDK┆
0x5dc0…5e10 4c 5c 41 36 2c 27 46 20 27 20 00 08 01 08 00 0e 00 50 5c 52 46 5c 55 54 49 4e 46 20 00 08 01 1e 00 06 00 50 2a 20 00 08 01 30 00 06 00 50 2a 20 00 08 01 3a 00 14 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 08 01 44 00 12 00 50 ┆L A6,'F ' P RF UTINF P* 0 P* : P**************** D P┆
0x5e10…5e60 2a 20 20 44 45 4c 45 54 45 20 46 49 4c 45 00 08 01 5c 00 16 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 08 01 72 00 10 00 50 44 45 4c 46 00 00 00 00 00 00 00 71 01 90 49 4c 5c 45 51 55 5c 2a 00 08 01 8c 00 12 00 50 5c 4c ┆* DELETE FILE P****************** r PDELF q IL EQU * P L┆
0x5e60…5eb0 44 4b 4c 5c 41 34 2c 27 44 4c 27 20 00 09 00 10 00 12 00 50 5c 4c 44 4b 4c 5c 41 36 2c 27 46 20 27 20 00 09 00 26 00 0e 00 50 5c 52 46 5c 55 54 49 4e 46 20 00 09 00 3c 00 06 00 50 2a 20 00 09 00 4e 00 06 00 50 2a 20 00 09 00 58 00 0a 00 50 ┆DKL A4,'DL' P LDKL A6,'F ' & P RF UTINF < P* N P* X P┆
0x5eb0…5f00 5c 45 4a 45 43 54 00 09 00 62 00 14 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 09 00 70 00 10 00 50 2a 20 50 52 49 4e 54 20 46 49 4c 45 00 09 00 88 00 14 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 09 00 9c 00 06 ┆ EJECT b P**************** p P* PRINT FILE P**************** ┆
0x5f00…5f50 00 50 2a 20 00 09 00 b4 00 06 00 50 2a 20 00 09 00 be 00 10 00 50 50 52 49 4e 54 46 5c 45 51 55 5c 2a 00 09 00 c8 00 12 00 50 5c 4c 44 4b 4c 5c 41 34 2c 27 50 52 27 20 00 09 00 dc 00 12 00 50 5c 4c 44 4b 4c 5c 41 36 2c 27 46 20 27 20 00 09 ┆ P* P* PPRINTF EQU * P LDKL A4,'PR' P LDKL A6,'F ' ┆
0x5f50…5fa0 00 f2 00 0e 00 50 5c 52 46 5c 55 54 49 4e 46 20 00 09 01 08 00 06 00 50 2a 20 00 09 01 1a 00 06 00 50 2a 20 00 09 01 24 00 1a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 09 01 2e 00 18 00 50 2a 20 20 43 4f 50 ┆ P RF UTINF P* P* $ P********************** . P* COP┆
0x5fa0…5ff0 59 20 44 49 53 4b 20 54 4f 20 44 49 53 4b 00 09 01 4c 00 1a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 09 01 68 00 10 00 50 43 4f 50 59 44 44 5c 45 51 55 00 00 00 00 00 00 00 71 01 90 5c 2a 00 09 01 86 00 12 ┆Y DISK TO DISK L P********************** h PCOPYDD EQU q * ┆
0x5ff0…6040 00 50 5c 4c 44 4b 4c 5c 41 34 2c 27 43 44 27 20 00 0a 00 0a 00 12 00 50 5c 4c 44 4b 4c 5c 41 36 2c 27 44 20 27 20 00 0a 00 20 00 0e 00 50 5c 52 46 5c 55 54 49 4e 46 20 00 0a 00 36 00 0e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 0a 00 48 00 0e ┆ P LDKL A4,'CD' P LDKL A6,'D ' P RF UTINF 6 P********* H ┆
0x6040…6090 00 50 2a 20 20 50 56 43 20 20 2a 20 00 0a 00 5a 00 0e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 0a 00 6c 00 10 00 50 53 55 52 56 45 59 5c 45 51 55 5c 2a 00 0a 00 7e 00 12 00 50 5c 4c 44 4b 4c 5c 41 34 2c 27 50 56 27 20 00 0a 00 92 00 12 00 50 ┆ P* PVC * Z P********* l PSURVEY EQU * ~ P LDKL A4,'PV' P┆
0x6090…60e0 5c 4c 44 4b 4c 5c 41 36 2c 27 43 20 27 20 00 0a 00 a8 00 0e 00 50 5c 52 46 5c 55 54 49 4e 46 20 00 0a 00 be 00 0a 00 50 5c 45 4a 45 43 54 00 0a 00 d0 00 06 00 50 2a 20 00 0a 00 de 00 30 00 50 2a 20 20 20 20 20 50 45 52 46 4f 52 4d 45 20 41 ┆ LDKL A6,'C ' P RF UTINF P EJECT P* 0 P* PERFORME A┆
0x60e0…6130 20 43 41 4c 4c 20 54 4f 20 4f 4e 45 20 4f 46 20 54 48 45 20 52 4f 55 54 49 4e 45 53 00 0a 00 e8 00 30 00 50 2a 20 20 20 20 20 20 20 43 52 56 4f 4c 2c 43 52 46 49 4c 45 2c 44 4c 46 49 4c 45 2c 43 4f 50 56 4f 4c 20 4f 52 20 50 52 56 54 4f 43 ┆ CALL TO ONE OF THE ROUTINES 0 P* CRVOL,CRFILE,DLFILE,COPVOL OR PRVTOC┆
0x6130…6180 00 0a 01 1c 00 2e 00 50 2a 20 20 20 20 20 20 41 31 20 20 20 41 44 44 52 45 53 53 20 54 4f 20 54 48 45 20 57 41 4e 54 45 44 20 52 4f 55 54 49 4e 45 20 00 0a 01 50 00 06 00 50 2a 20 00 0a 01 82 00 10 00 50 55 54 49 4e 00 00 00 00 00 00 00 71 ┆ . P* A1 ADDRESS TO THE WANTED ROUTINE P P* PUTIN q┆
0x6180…61d0 01 90 46 5c 45 51 55 5c 2a 20 00 0a 01 8c 00 20 00 50 5c 43 41 4c 4c 5c 49 3a 45 56 41 30 5c 41 39 20 3d 20 3a 41 20 50 42 4c 4f 43 4b 20 00 0b 00 10 00 26 00 50 5c 53 54 52 5c 41 34 2c 41 39 5c 53 54 4f 52 45 20 54 4f 53 53 55 54 20 43 4d ┆ F EQU * P CALL I:EVA0 A9 = :A PBLOCK & P STR A4,A9 STORE TOSSUT CM┆
0x61d0…6220 44 20 31 57 4f 52 44 20 00 0b 00 34 00 26 00 50 5c 53 54 5c 41 36 2c 32 2c 41 39 5c 53 54 4f 52 45 20 54 4f 53 53 55 54 20 43 4d 44 20 32 57 4f 52 44 00 0b 00 5e 00 24 00 50 5c 4c 44 52 5c 41 34 2c 41 39 5c 53 41 56 45 20 41 44 52 45 53 53 ┆D 1WORD 4 & P ST A6,2,A9 STORE TOSSUT CMD 2WORD ^ $ P LDR A4,A9 SAVE ADRESS┆
0x6220…6270 20 54 4f 20 50 42 4c 4f 43 4b 00 0b 00 88 00 16 00 50 5c 43 41 4c 4c 5c 49 3a 45 56 41 30 5c 44 55 4d 4d 59 00 0b 00 b0 00 16 00 50 5c 43 41 4c 4c 5c 49 3a 45 56 41 30 5c 44 55 4d 4d 59 00 0b 00 ca 00 30 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ TO PBLOCK P CALL I:EVA0 DUMMY P CALL I:EVA0 DUMMY 0 P**********┆
0x6270…62c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 0b 00 e4 00 06 00 50 2a 20 00 0b 01 18 00 2a 00 50 2a 20 20 53 45 54 20 54 49 4d 45 2d 4f 55 54 20 4f 4e 20 4f 55 54 50 55 54 20 46 49 ┆********************************* P* * P* SET TIME-OUT ON OUTPUT FI┆
0x62c0…6310 4c 45 43 4f 44 45 20 39 39 20 00 0b 01 22 00 06 00 50 2a 20 00 0b 01 50 00 30 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 0b 01 5a 00 26 00 50 ┆LECODE 99 " P* P 0 P******************************************* Z & P┆
0x6310…6360 5c 4c 00 00 00 00 00 00 00 71 01 90 44 4b 4c 5c 41 38 2c 49 4e 54 45 43 42 5c 4c 4f 41 44 20 41 44 52 45 53 53 20 54 4f 20 45 43 42 00 0b 01 8e 00 28 00 50 5c 4c 44 4b 4c 5c 41 36 2c 2f 30 30 39 39 5c 4c 4f 41 44 20 4f 55 54 50 55 54 20 46 ┆ L q DKL A8,INTECB LOAD ADRESS TO ECB ( P LDKL A6,/0099 LOAD OUTPUT F┆
0x6360…63b0 49 4c 45 43 4f 44 45 20 00 0c 00 28 00 28 00 50 5c 53 54 52 5c 41 36 2c 41 38 5c 53 54 4f 52 45 20 46 49 4c 45 43 4f 44 45 20 49 4e 20 45 43 42 20 42 55 46 00 0c 00 54 00 1e 00 50 5c 4c 44 4b 4c 5c 41 36 2c 31 30 5c 4c 4f 41 44 20 54 49 4d ┆ILECODE ( ( P STR A6,A8 STORE FILECODE IN ECB BUF T P LDKL A6,10 LOAD TIM┆
0x63b0…6400 45 2d 4f 55 54 20 00 0c 00 80 00 2e 00 50 5c 53 54 5c 41 36 2c 31 30 2c 41 38 5c 53 54 4f 52 45 20 54 49 4d 45 2d 4f 55 54 20 49 4e 20 43 4f 4e 54 52 4f 4c 57 4f 52 44 00 0c 00 a2 00 2a 00 50 5c 4c 44 4b 4c 5c 41 37 2c 54 4f 43 4f 44 45 5c ┆E-OUT . P ST A6,10,A8 STORE TIME-OUT IN CONTROLWORD * P LDKL A7,TOCODE ┆
0x6400…6450 50 55 54 20 54 49 4d 45 4f 55 54 20 43 4f 44 45 20 54 4f 20 41 37 00 0c 00 d4 00 30 00 50 5c 53 55 5c 41 31 32 2c 2d 31 32 2c 41 31 33 5c 53 41 56 45 20 52 45 54 41 44 52 45 53 53 20 49 46 20 44 49 53 4b 50 41 47 49 4e 47 00 0c 01 02 00 08 ┆PUT TIMEOUT CODE TO A7 0 P SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING ┆
0x6450…64a0 00 50 5c 4c 4b 4d 00 0c 01 36 00 0c 00 50 5c 44 41 54 41 5c 31 20 00 0c 01 42 00 2a 00 50 5c 41 44 5c 41 31 32 2c 2d 31 32 2c 41 31 33 5c 52 45 53 54 4f 52 45 20 43 52 45 44 49 54 20 52 45 54 41 44 52 20 00 0c 01 52 00 0a 00 50 5c 45 4a 45 ┆ P LKM 6 P DATA 1 B * P AD A12,-12,A13 RESTORE CREDIT RETADR R P EJE┆
0x64a0…64f0 43 54 00 0c 01 80 00 2c 00 50 2a 2a 00 00 00 00 00 00 00 71 01 90 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 0c 01 8e 00 06 00 50 2a 20 00 0d 00 2e 00 34 00 50 2a 20 ┆CT , P** q ************************************* P* . 4 P* ┆
0x64f0…6540 20 53 45 4e 44 20 41 20 42 55 46 46 45 52 20 43 4f 4e 54 41 49 4e 49 4e 47 20 54 4f 53 53 55 54 49 4c 49 54 59 20 43 4f 4d 4d 41 4e 44 20 00 0d 00 38 00 3a 00 50 2a 20 20 54 4f 20 54 4f 53 53 55 54 49 4c 20 41 50 50 4c 49 43 41 54 49 4f 4e ┆ SEND A BUFFER CONTAINING TOSSUTILITY COMMAND 8 : P* TO TOSSUTIL APPLICATION┆
0x6540…6590 20 56 49 41 20 49 4e 54 45 52 54 41 53 4b 20 43 4f 4d 4d 55 4e 49 43 41 54 49 4f 4e 00 0d 00 70 00 06 00 50 2a 20 00 0d 00 ae 00 2c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ VIA INTERTASK COMMUNICATION p P* , P**********************************┆
0x6590…65e0 2a 2a 2a 2a 2a 20 00 0d 00 b8 00 22 00 50 5c 4c 44 4b 4c 5c 41 36 2c 27 54 55 27 5c 4d 4f 56 45 20 54 49 44 20 54 4f 20 2e 2e 2e 20 00 0d 00 e8 00 26 00 50 5c 53 54 5c 41 36 2c 31 30 2c 41 38 5c 20 20 20 20 20 2e 2e 2e 43 4f 4e 54 52 4f 4c ┆***** " P LDKL A6,'TU' MOVE TID TO ... & P ST A6,10,A8 ...CONTROL┆
0x65e0…6630 20 57 4f 52 44 20 00 0d 01 0e 00 26 00 50 5c 53 54 5c 41 34 2c 32 2c 41 38 5c 53 54 4f 52 45 20 42 55 46 20 41 44 44 52 20 54 4f 20 45 43 42 20 00 0d 01 38 00 28 00 50 5c 4c 44 4b 4c 5c 41 37 2c 57 52 43 4f 44 45 5c 50 55 54 20 57 52 49 54 ┆ WORD & P ST A4,2,A8 STORE BUF ADDR TO ECB 8 ( P LDKL A7,WRCODE PUT WRIT┆
0x6630…6680 45 20 43 4f 44 45 20 54 4f 20 41 37 00 0d 01 62 00 30 00 50 5c 53 00 00 00 00 00 00 00 71 01 90 55 5c 41 31 32 2c 2d 31 32 2c 41 31 33 5c 53 41 56 45 20 52 45 54 41 44 52 45 53 53 20 49 46 20 44 49 53 4b 50 41 47 49 4e 47 00 0d 01 8e 00 08 ┆E CODE TO A7 b 0 P S q U A12,-12,A13 SAVE RETADRESS IF DISKPAGING ┆
0x6680…66d0 00 50 5c 4c 4b 4d 00 0e 00 32 00 0c 00 50 5c 44 41 54 41 5c 31 20 00 0e 00 3e 00 2a 00 50 5c 41 44 5c 41 31 32 2c 2d 31 32 2c 41 31 33 5c 52 45 53 54 4f 52 45 20 43 52 45 44 49 54 20 52 45 54 41 44 52 20 00 0e 00 4e 00 20 00 50 5c 4c 44 5c ┆ P LKM 2 P DATA 1 > * P AD A12,-12,A13 RESTORE CREDIT RETADR N P LD ┆
0x66d0…6720 41 31 2c 38 2c 41 38 5c 4c 4f 41 44 20 45 43 42 20 52 45 54 43 4f 44 20 00 0e 00 7c 00 1e 00 50 5c 52 46 28 5a 29 5c 47 4f 4f 4e 31 5c 47 4f 20 4f 4e 20 49 46 20 43 52 3d 30 00 0e 00 a0 00 22 00 50 5c 4c 44 4b 5c 41 31 2c 32 30 5c 4c 4f 41 ┆A1,8,A8 LOAD ECB RETCOD | P RF(Z) GOON1 GO ON IF CR=0 " P LDK A1,20 LOA┆
0x6720…6770 44 20 49 2f 4f 2d 45 52 52 4f 52 20 30 30 32 30 00 0e 00 c2 00 0c 00 50 5c 52 46 5c 52 45 54 32 00 0e 00 e8 00 10 00 50 47 4f 4f 4e 31 5c 45 51 55 5c 2a 20 00 0e 00 f8 00 30 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆D I/O-ERROR 0020 P RF RET2 PGOON1 EQU * 0 P********************┆
0x6770…67c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 0e 01 0c 00 06 00 50 2a 20 00 0e 01 40 00 28 00 50 2a 20 20 53 45 54 20 54 49 4d 45 2d 4f 55 54 20 4f 4e 20 49 4e 50 55 54 20 46 49 4c 45 43 4f 44 45 20 39 38 00 0e ┆*********************** P* @ ( P* SET TIME-OUT ON INPUT FILECODE 98 ┆
0x67c0…6810 01 4a 00 06 00 50 2a 20 00 0e 01 76 00 30 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 00 00 00 00 00 00 71 01 90 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 0e 01 80 00 26 00 50 5c 4c ┆ J P* v 0 P**************** q *************************** & P L┆
0x6810…6860 44 4b 4c 5c 41 36 2c 2f 30 30 39 38 5c 4c 4f 41 44 20 49 4e 50 55 54 20 46 49 4c 45 43 4f 44 45 00 0f 00 24 00 28 00 50 5c 53 54 52 5c 41 36 2c 41 38 5c 53 54 4f 52 45 20 46 49 4c 45 43 4f 44 45 20 49 4e 20 45 43 42 20 42 55 46 00 0f 00 4e ┆DKL A6,/0098 LOAD INPUT FILECODE $ ( P STR A6,A8 STORE FILECODE IN ECB BUF N┆
0x6860…68b0 00 1e 00 50 5c 4c 44 4b 4c 5c 41 36 2c 2d 31 5c 4c 4f 41 44 20 54 49 4d 45 2d 4f 55 54 20 00 0f 00 7a 00 2e 00 50 5c 53 54 5c 41 36 2c 31 30 2c 41 38 5c 53 54 4f 52 45 20 54 49 4d 45 2d 4f 55 54 20 49 4e 20 43 4f 4e 54 52 4f 4c 57 4f 52 44 ┆ P LDKL A6,-1 LOAD TIME-OUT z . P ST A6,10,A8 STORE TIME-OUT IN CONTROLWORD┆
0x68b0…6900 00 0f 00 9c 00 2a 00 50 5c 4c 44 4b 4c 5c 41 37 2c 54 4f 43 4f 44 45 5c 50 55 54 20 54 49 4d 45 4f 55 54 20 43 4f 44 45 20 54 4f 20 41 37 00 0f 00 ce 00 30 00 50 5c 53 55 5c 41 31 32 2c 2d 31 32 2c 41 31 33 5c 53 41 56 45 20 52 45 54 41 44 ┆ * P LDKL A7,TOCODE PUT TIMEOUT CODE TO A7 0 P SU A12,-12,A13 SAVE RETAD┆
0x6900…6950 52 45 53 53 20 49 46 20 44 49 53 4b 50 41 47 49 4e 47 00 0f 00 fc 00 08 00 50 5c 4c 4b 4d 00 0f 01 30 00 0c 00 50 5c 44 41 54 41 5c 31 20 00 0f 01 3c 00 2a 00 50 5c 41 44 5c 41 31 32 2c 2d 31 32 2c 41 31 33 5c 52 45 53 54 4f 52 45 20 43 52 ┆RESS IF DISKPAGING P LKM 0 P DATA 1 < * P AD A12,-12,A13 RESTORE CR┆
0x6950…697b 45 44 49 54 20 52 45 54 41 44 52 20 00 0f 01 4c 00 0a 00 50 5c 45 4a 45 43 54 00 0f 01 7a 00 2c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 00 ┆EDIT RETADR L P EJECT z , P******** ┆