|
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: 39668 (0x9af4)
Notes: pts_type(SC)
Names: »EVCONV.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/EVCONV.SC«
IDENT DECONV REL=1.0 VER=1 82-03-27/EV UPD 82-02-22/EV UPD 81-08-27/EV UPD 80-12-12/SHB UPD 80-07-14/JAER DDUM DEDDIV PDIV ENTRY DECONV EXT DEPOOL EXT TESTB EXT EMPTYT EXT DERROR EXT ATTDEV ATTACH DEVICE EXT ATTPRT EXT DETPRT EXT MASK EXT GETFWD EXT ADJUST EXT FDIO EJECT * * KEYTABLE * CLR EQU X'8F' CLEAR CAN EQU X'91' CANCEL RET EQU X'98' RETURN ENT EQU X'8C' ENTER * KEYTAB KTAB CLR,CAN,RET,ENT * * STIMO EQU X'0B' ATTACH EQU X'0E' DETACH EQU X'0F' TRPAR EQU X'00' EJECT * THIS MODULE TAKE CARES OF THE DIFFERENT CONVERTIONS- * -METHODS * ONE OF THEM IS ALREADY PREPAIRED FOR YOUR PRINTOUT). * THE OTHER YOU HAVE TO CODE YOURSELVES. * * FORMAL PARAMETERS: FC = FUNCTION-CODE (DEVICE-CLASS) * = 1 DATACOMMUNICATION OUT * = 2 DATACOMMUNICATION IN * = 3 CASETTE OUTPUT * = 4 PRINTOUT LP/GP * = 5 DISCFILE * = 6 FLOPPYDISC FILE * = 7 DELETE BATCHES ON USERFILE * = 8 FREEZE BATCHES ON USER FILE * = 9 LISTING LP/GP * * TYPE = TYPE OF HANDLING * = 1 OPEN * = 2 BATCHHEAD-RECORD * = 3 DATA RECORD * = 4 BALANCE RECORD * = 5 CLOSE * * RETCON = RETURN-CODE * = 0 OK * /= 0 ERROR MESSAGE-NUMBER * =-1 SKIP CURR BATCH, GO TO NEXT * =-2 SKIP TO BALANCE * =-3 RESTART CURRENT BATCH (CANCEL) * =-4 ABORT CONVERSION (RETURN) * =-5 DELETE THIS BATCH * =-6 GET CURRENT RECORD * * INPUT VARIABLE: BIN4 = FC-CODE FOR DEVICE *
0x0000…0032 (0, 0, 400) Head {h00=0x002e, h01=0x0050, text=» IDENT DECONV REL=1.0 VER=1 82-03-27/EV «, t00=0x0000, t01=0x0004}
0x0032…004c Head {h00=0x0016, h01=0x0050, text=» UPD 82-02-22/EV«, t00=0x0000, t01=0x0036}
0x004c…0066 Head {h00=0x0016, h01=0x0050, text=» UPD 81-08-27/EV«, t00=0x0000, t01=0x0050}
0x0066…0082 Head {h00=0x0018, h01=0x0050, text=» UPD 80-12-12/SHB «, t00=0x0000, t01=0x006a}
0x0082…009e Head {h00=0x0018, h01=0x0050, text=» UPD 80-07-14/JAER«, t00=0x0000, t01=0x0086}
0x009e…00b2 Head {h00=0x0010, h01=0x0050, text=» DDUM DEDDIV«, t00=0x0000, t01=0x00a2}
0x00b2…00c0 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x00b6}
0x00c0…00d6 Head {h00=0x0012, h01=0x0050, text=» ENTRY DECONV «, t00=0x0000, t01=0x00c4}
0x00d6…00de Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00da}
0x00de…00e6 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00e2}
0x00e6…00fa Head {h00=0x0010, h01=0x0050, text=» EXT DEPOOL «, t00=0x0000, t01=0x00ea}
0x00fa…010c Head {h00=0x000e, h01=0x0050, text=» EXT TESTB«, t00=0x0000, t01=0x00fe}
0x010c…0120 Head {h00=0x0010, h01=0x0050, text=» EXT EMPTYT «, t00=0x0000, t01=0x0110}
0x0120…0134 Head {h00=0x0010, h01=0x0050, text=» EXT DERROR «, t00=0x0000, t01=0x0124}
0x0134…0156 Head {h00=0x001e, h01=0x0050, text=» EXT ATTDEV ATTACH DEVICE «, t00=0x0000, t01=0x0138}
0x0156…016a Head {h00=0x0010, h01=0x0050, text=» EXT ATTPRT «, t00=0x0000, t01=0x015a}
0x016a…017e Head {h00=0x0010, h01=0x0050, text=» EXT DETPRT «, t00=0x0000, t01=0x016e}
0x017e…0190 Head {h00=0x000e, h01=0x0050, text=» EXT MASK «, t00=0x0000, t01=0x0182}
0x0190…01a4 (1, 0, 398) Head {h00=0x0010, h01=0x0050, text=» EXT GETFWD «, t00=0x0001, t01=0x0004}
0x01a4…01b8 Head {h00=0x0010, h01=0x0050, text=» EXT ADJUST «, t00=0x0001, t01=0x0018}
0x01b8…01ca Head {h00=0x000e, h01=0x0050, text=» EXT FDIO «, t00=0x0001, t01=0x002c}
0x01ca…01d8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x003e}
0x01d8…01e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x004c}
0x01e2…01fa Head {h00=0x0014, h01=0x0050, text=»* KEYTABLE«, t00=0x0001, t01=0x0056}
0x01fa…0204 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x006e}
0x0204…0220 Head {h00=0x0018, h01=0x0050, text=»CLR EQU X'8F' CLEAR «, t00=0x0001, t01=0x0078}
0x0220…023c Head {h00=0x0018, h01=0x0050, text=»CAN EQU X'91' CANCEL«, t00=0x0001, t01=0x0094}
0x023c…0258 Head {h00=0x0018, h01=0x0050, text=»RET EQU X'98' RETURN«, t00=0x0001, t01=0x00b0}
0x0258…0274 Head {h00=0x0018, h01=0x0050, text=»ENT EQU X'8C' ENTER «, t00=0x0001, t01=0x00cc}
0x0274…027e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e8}
0x027e…02a2 Head {h00=0x0020, h01=0x0050, text=»KEYTAB KTAB CLR,CAN,RET,ENT «, t00=0x0001, t01=0x00f2}
0x02a2…02aa Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0116}
0x02aa…02b2 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x011e}
0x02b2…02ba Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0126}
0x02ba…02c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x012e}
0x02c4…02ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0138}
0x02ce…02d6 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0142}
0x02d6…02ee Head {h00=0x0014, h01=0x0050, text=»STIMO EQU X'0B' «, t00=0x0001, t01=0x014a}
0x02ee…0306 Head {h00=0x0014, h01=0x0050, text=»ATTACH EQU X'0E'«, t00=0x0001, t01=0x0162}
0x0306…031e Head {h00=0x0014, h01=0x0050, text=»DETACH EQU X'0F'«, t00=0x0001, t01=0x017a}
0x031e…0336 (2, 0, 400) Head {h00=0x0014, h01=0x0050, text=»TRPAR EQU X'00' «, t00=0x0002, t01=0x0004}
0x0336…0344 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x001c}
0x0344…0388 Head {h00=0x0040, h01=0x0050, text=»* THIS MODULE TAKE CARES OF THE DIFFERENT CONVERTIONS-«, t00=0x0002, t01=0x002a}
0x0388…03a2 Head {h00=0x0016, h01=0x0050, text=»* -METHODS «, t00=0x0002, t01=0x006e}
0x03a2…03e6 Head {h00=0x0040, h01=0x0050, text=»* ONE OF THEM IS ALREADY PREPAIRED FOR YOUR PRINTOUT).«, t00=0x0002, t01=0x0088}
0x03e6…041c Head {h00=0x0032, h01=0x0050, text=»* THE OTHER YOU HAVE TO CODE YOURSELVES.«, t00=0x0002, t01=0x00cc}
0x041c…0426 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0102}
0x0426…046e Head {h00=0x0044, h01=0x0050, text=»* FORMAL PARAMETERS: FC = FUNCTION-CODE (DEVICE-CLASS)«, t00=0x0002, t01=0x010c}
0x046e…04b2 Head {h00=0x0040, h01=0x0050, text=»* = 1 DATACOMMUNICATION OUT «, t00=0x0002, t01=0x0154}
0x04b2…04f4 Head {h00=0x003e, h01=0x0050, text=»* = 2 DATACOMMUNICATION IN«, t00=0x0003, t01=0x0008}
0x04f4…0530 Head {h00=0x0038, h01=0x0050, text=»* = 3 CASETTE OUTPUT«, t00=0x0003, t01=0x004a}
0x0530…056c Head {h00=0x0038, h01=0x0050, text=»* = 4 PRINTOUT LP/GP«, t00=0x0003, t01=0x0086}
0x056c…05a2 Head {h00=0x0032, h01=0x0050, text=»* = 5 DISCFILE«, t00=0x0003, t01=0x00c2}
0x05a2…05e0 Head {h00=0x003a, h01=0x0050, text=»* = 6 FLOPPYDISC FILE «, t00=0x0003, t01=0x00f8}
0x05e0…0628 Head {h00=0x0044, h01=0x0050, text=»* = 7 DELETE BATCHES ON USERFILE«, t00=0x0003, t01=0x0136}
0x0628…0672 Head {h00=0x0046, h01=0x0050, text=»* = 8 FREEZE BATCHES ON USER FILE «, t00=0x0003, t01=0x017e}
0x0672…06ae Head {h00=0x0038, h01=0x0050, text=»* = 9 LISTING LP/GP «, t00=0x0004, t01=0x0038}
0x06ae…06b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0074}
0x06b8…06f4 Head {h00=0x0038, h01=0x0050, text=»* TYPE = TYPE OF HANDLING«, t00=0x0004, t01=0x007e}
0x06f4…0726 Head {h00=0x002e, h01=0x0050, text=»* = 1 OPEN«, t00=0x0004, t01=0x00ba}
0x0726…0764 Head {h00=0x003a, h01=0x0050, text=»* = 2 BATCHHEAD-RECORD«, t00=0x0004, t01=0x00ec}
0x0764…079e Head {h00=0x0036, h01=0x0050, text=»* = 3 DATA RECORD «, t00=0x0004, t01=0x012a}
0x079e…07da Head {h00=0x0038, h01=0x0050, text=»* = 4 BALANCE RECORD«, t00=0x0004, t01=0x0164}
0x07da…080e Head {h00=0x0030, h01=0x0050, text=»* = 5 CLOSE «, t00=0x0005, t01=0x0010}
0x080e…0818 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0044}
0x0818…0850 Head {h00=0x0034, h01=0x0050, text=»* RETCON = RETURN-CODE «, t00=0x0005, t01=0x004e}
0x0850…0880 Head {h00=0x002c, h01=0x0050, text=»* = 0 OK«, t00=0x0005, t01=0x0086}
0x0880…08c2 Head {h00=0x003e, h01=0x0050, text=»* /= 0 ERROR MESSAGE-NUMBER«, t00=0x0005, t01=0x00b6}
0x08c2…090c Head {h00=0x0046, h01=0x0050, text=»* =-1 SKIP CURR BATCH, GO TO NEXT «, t00=0x0005, t01=0x00f8}
0x090c…094a Head {h00=0x003a, h01=0x0050, text=»* =-2 SKIP TO BALANCE «, t00=0x0005, t01=0x0142}
0x094a…0996 Head {h00=0x0048, h01=0x0050, text=»* =-3 RESTART CURRENT BATCH (CANCEL)«, t00=0x0005, t01=0x0180}
0x0996…09de Head {h00=0x0044, h01=0x0050, text=»* =-4 ABORT CONVERSION (RETURN) «, t00=0x0006, t01=0x003c}
0x09de…0a1e Head {h00=0x003c, h01=0x0050, text=»* =-5 DELETE THIS BATCH «, t00=0x0006, t01=0x0084}
0x0a1e…0a60 Head {h00=0x003e, h01=0x0050, text=»* =-6 GET CURRENT RECORD «, t00=0x0006, t01=0x00c4}
0x0a60…0a6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0106}
0x0a6a…0aa8 Head {h00=0x003a, h01=0x0050, text=»* INPUT VARIABLE: BIN4 = FC-CODE FOR DEVICE«, t00=0x0006, t01=0x0110}
0x0aa8…0ab2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x014e}
0x0ab2…0ab6 Head {h00=0x0054, h01=0x0050}
0x0ab6…0aba Head {h00=0x2a2a, h01=0x2a2a}
0x0aba…0aee 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 2a 2a 2a 2a 2a ┆****************************************************┆
0x0aee…0b3e (7, 0, 398) 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 06 01 58 00 0a 00 50 5c 45 4a 45 43 54 00 07 00 20 00 1e 00 50 44 45 43 4f 4e 56 5c 50 52 4f 43 5c 46 43 2c 54 59 50 45 2c 52 45 54 43 4f 4e 00 07 00 2e 00 36 00 50 ┆*********************** X P EJECT PDECONV PROC FC,TYPE,RETCON . 6 P┆
0x0b3e…0b8e 5c 49 42 5c 46 43 2c 54 52 41 4e 53 4d 2c 52 45 43 45 49 56 2c 43 41 53 53 45 54 5c 4a 55 4d 50 20 4f 4e 20 44 45 56 49 43 45 2d 43 4c 41 53 53 5c 43 00 07 00 50 00 2e 00 50 5c 5c 50 52 49 4e 54 41 2c 44 49 53 43 46 44 2c 46 4c 4f 50 50 59 ┆ IB FC,TRANSM,RECEIV,CASSET JUMP ON DEVICE-CLASS C P . P PRINTA,DISCFD,FLOPPY┆
0x0b8e…0bde 2c 44 45 4c 45 54 45 2c 46 52 45 45 5a 45 2c 4c 49 53 54 45 00 07 00 8a 00 0a 00 50 52 45 43 45 49 56 00 07 00 bc 00 0a 00 50 44 49 53 43 46 44 00 07 00 ca 00 0a 00 50 43 41 53 53 45 54 00 07 00 d8 00 0a 00 50 45 52 52 4f 52 20 00 07 00 e6 ┆,DELETE,FREEZE,LISTE PRECEIV PDISCFD PCASSET PERROR ┆
0x0bde…0c2e 00 2a 00 50 5c 4d 4f 56 45 5c 52 45 54 43 4f 4e 2c 57 34 5c 27 46 55 4e 43 54 49 4f 4e 20 4e 4f 54 20 41 4c 4c 4f 57 45 44 3f 00 07 00 f4 00 0e 00 50 5c 42 5c 52 45 54 55 52 4e 20 00 07 01 22 00 0a 00 50 5c 45 4a 45 43 54 00 07 01 34 00 06 ┆ * P MOVE RETCON,W4 'FUNCTION NOT ALLOWED? P B RETURN " P EJECT 4 ┆
0x0c2e…0c7c 00 50 2a 20 00 07 01 42 00 2a 00 50 2a 20 20 20 20 20 20 20 20 54 48 49 53 20 49 53 20 54 48 45 20 50 52 49 4e 54 4f 55 54 20 46 55 4e 43 54 49 4f 4e 00 07 01 4c 00 06 00 50 2a 20 00 07 01 7a 00 0a 00 50 50 52 49 4e 54 41 00 07 01 84 ┆ P* B * P* THIS IS THE PRINTOUT FUNCTION L P* z PPRINTA ┆
0x0c7c…0ccc (8, 0, 398) 00 3a 00 50 5c 49 42 5c 54 59 50 45 2c 50 52 31 30 30 2c 50 52 32 30 30 2c 50 52 32 30 30 5c 4a 55 4d 50 20 4f 4e 20 54 59 50 45 20 30 46 20 48 41 4e 44 4c 49 4e 47 5c 43 20 00 08 00 04 00 12 00 50 5c 5c 50 52 32 30 30 2c 50 52 35 30 30 20 ┆ : P IB TYPE,PR100,PR200,PR200 JUMP ON TYPE 0F HANDLING C P PR200,PR500 ┆
0x0ccc…0d1c 00 08 00 42 00 0c 00 50 5c 42 5c 45 52 52 4f 52 00 08 00 58 00 06 00 50 2a 20 00 08 00 68 00 2a 00 50 2a 20 20 20 20 20 20 20 20 4f 50 45 4e 20 44 45 56 49 43 45 20 3d 20 41 54 54 41 43 48 20 50 52 49 4e 54 45 52 20 00 08 00 72 00 06 00 50 ┆ B P B ERROR X P* h * P* OPEN DEVICE = ATTACH PRINTER r P┆
0x0d1c…0d6c 2a 20 00 08 00 a0 00 0a 00 50 50 52 31 30 30 20 00 08 00 aa 00 24 00 50 5c 50 45 52 46 5c 41 54 54 44 45 56 2c 42 49 4e 36 5c 41 54 54 41 43 48 20 44 45 56 49 43 45 20 00 08 00 b8 00 10 00 50 5c 42 4f 4b 5c 44 45 43 4f 4f 4b 20 00 08 00 e0 ┆* PPR100 $ P PERF ATTDEV,BIN6 ATTACH DEVICE P BOK DECOOK ┆
0x0d6c…0dbc 00 0e 00 50 5c 42 5c 52 45 54 55 52 4e 20 00 08 00 f4 00 0a 00 50 5c 45 4a 45 43 54 00 08 01 06 00 06 00 50 2a 20 00 08 01 14 00 06 00 50 2a 20 00 08 01 1e 00 34 00 50 2a 20 20 20 20 20 20 20 20 50 52 49 4e 54 4f 55 54 20 4f 46 20 54 48 45 ┆ P B RETURN P EJECT P* P* 4 P* PRINTOUT OF THE┆
0x0dbc…0e0a 20 44 49 46 46 45 52 45 4e 54 20 52 45 43 4f 52 44 20 54 59 50 45 53 20 00 08 01 28 00 06 00 50 2a 20 00 08 01 60 00 0a 00 50 50 52 32 30 30 20 00 08 01 6a 00 1a 00 50 5c 45 44 57 52 54 5c 44 45 44 53 50 52 54 2c 46 43 4f 55 4e 54 20 ┆ DIFFERENT RECORD TYPES ( P* ` PPR200 j P EDWRT DEDSPRT,FCOUNT ┆
0x0e0a…0e5a (9, 0, 400) 00 08 01 78 00 10 00 50 5c 42 4e 4f 4b 5c 50 52 32 39 38 20 00 09 00 08 00 14 00 50 5c 4d 4f 56 45 5c 44 45 42 49 4e 57 33 2c 57 31 00 09 00 1c 00 1e 00 50 5c 50 52 49 4e 54 5c 44 45 44 53 50 52 54 2c 44 45 42 49 4e 57 33 2c 57 30 20 00 09 ┆ x P BNOK PR298 P MOVE DEBINW3,W1 P PRINT DEDSPRT,DEBINW3,W0 ┆
0x0e5a…0eaa 00 34 00 10 00 50 5c 42 4e 4f 4b 5c 50 52 32 39 38 20 00 09 00 56 00 0e 00 50 5c 42 5c 44 45 43 4f 4f 4b 20 00 09 00 6a 00 0a 00 50 50 52 32 39 38 20 00 09 00 7c 00 32 00 50 5c 4d 4f 56 45 5c 52 45 54 43 4f 4e 2c 3d 57 27 33 35 27 5c 4f 55 ┆ 4 P BNOK PR298 V P B DECOOK j PPR298 | 2 P MOVE RETCON,=W'35' OU┆
0x0eaa…0efa 54 50 55 54 20 44 45 56 49 43 45 20 4e 4f 54 20 4f 50 2e 2e 2e 2e 27 20 00 09 00 8a 00 1a 00 50 5c 42 5c 52 45 54 55 52 4e 5c 47 4f 20 41 4e 44 20 43 4c 4f 53 45 00 09 00 c0 00 06 00 50 2a 20 00 09 00 de 00 2a 00 50 2a 20 20 20 20 20 20 20 ┆TPUT DEVICE NOT OP....' P B RETURN GO AND CLOSE P* * P* ┆
0x0efa…0f4a 43 4c 4f 53 45 20 44 45 56 49 43 45 20 3d 20 44 45 54 41 43 48 20 50 52 49 4e 54 45 52 20 00 09 00 e8 00 06 00 50 2a 20 00 09 01 16 00 0a 00 50 50 52 35 30 30 20 00 09 01 20 00 1e 00 50 5c 50 45 52 46 5c 44 45 54 50 52 54 5c 44 45 54 41 43 ┆CLOSE DEVICE = DETACH PRINTER P* PPR500 P PERF DETPRT DETAC┆
0x0f4a…0f9a 48 20 44 45 56 49 43 45 00 09 01 2e 00 0e 00 50 5c 42 5c 52 45 54 55 52 4e 20 00 09 01 50 00 0a 00 50 5c 45 4a 45 43 54 00 09 01 62 00 06 00 50 2a 20 00 09 01 70 00 38 00 50 2a 20 20 20 20 20 20 20 54 48 49 53 20 52 4f 55 54 49 4e 45 20 44 ┆H DEVICE . P B RETURN P P EJECT b P* p 8 P* THIS ROUTINE D┆
0x0f9a…0fea (10, 0, 400) 45 4c 45 54 45 20 42 41 54 43 48 45 53 20 4f 4e 20 54 48 45 20 55 53 45 52 46 49 4c 45 20 00 09 01 7a 00 06 00 50 2a 20 00 0a 00 26 00 0a 00 50 44 45 4c 45 54 45 00 0a 00 30 00 1a 00 50 5c 49 42 5c 54 59 50 45 2c 44 45 43 4f 4f 4b 2c 44 45 ┆ELETE BATCHES ON THE USERFILE z P* & PDELETE 0 P IB TYPE,DECOOK,DE┆
0x0fea…103a 4c 31 30 30 00 0a 00 3e 00 0e 00 50 5c 42 5c 44 45 43 4f 4f 4b 20 00 0a 00 5c 00 0a 00 50 44 45 4c 31 30 30 00 0a 00 6e 00 18 00 50 5c 4d 4f 56 45 5c 52 45 54 43 4f 4e 2c 3d 57 27 2d 35 27 20 00 0a 00 7c 00 30 00 50 5c 43 42 4e 45 5c 57 4f ┆L100 > P B DECOOK PDEL100 n P MOVE RETCON,=W'-5' | 0 P CBNE WO┆
0x103a…108a 52 4b 28 57 38 29 2c 57 30 2c 44 45 4c 31 31 30 5c 4e 4f 54 20 54 48 45 20 57 48 4f 4c 45 20 46 49 4c 45 20 00 0a 00 98 00 20 00 50 5c 4d 4f 56 45 5c 44 41 54 45 2c 48 45 58 30 30 5c 52 45 53 45 54 20 44 41 54 45 20 00 0a 00 cc 00 0a 00 50 ┆RK(W8),W0,DEL110 NOT THE WHOLE FILE P MOVE DATE,HEX00 RESET DATE P┆
0x108a…10da 44 45 4c 31 31 30 00 0a 00 f0 00 0e 00 50 5c 42 5c 52 45 54 55 52 4e 20 00 0a 00 fe 00 0a 00 50 5c 45 4a 45 43 54 00 0a 01 10 00 06 00 50 2a 20 00 0a 01 1e 00 2e 00 50 2a 20 54 48 49 53 20 52 4f 55 54 49 4e 45 20 46 52 45 45 5a 45 20 42 41 ┆DEL110 P B RETURN P EJECT P* . P* THIS ROUTINE FREEZE BA┆
0x10da…112a 54 43 48 45 53 20 4f 4e 20 55 53 45 52 20 46 49 4c 45 00 0a 01 28 00 06 00 50 2a 20 00 0a 01 5a 00 04 00 50 00 0a 01 64 00 0a 00 50 46 52 45 45 5a 45 00 0a 01 6c 00 38 00 50 5c 49 42 5c 54 59 50 45 2c 46 52 45 31 30 30 2c 46 52 45 32 30 30 ┆TCHES ON USER FILE ( P* Z P d PFREEZE l 8 P IB TYPE,FRE100,FRE200┆
0x112a…117a (11, 0, 400) 2c 46 52 45 33 30 30 5c 4f 50 45 4e 20 42 41 54 43 48 48 45 41 44 20 44 41 54 41 5c 43 20 00 0a 01 7a 00 22 00 50 5c 5c 46 52 45 34 30 30 2c 46 52 45 35 30 30 5c 42 41 4c 41 4e 43 45 20 43 4c 4f 53 45 20 00 0b 00 26 00 04 00 50 00 0b 00 4c ┆,FRE300 OPEN BATCHHEAD DATA C z " P FRE400,FRE500 BALANCE CLOSE & P L┆
0x117a…11ca 00 0a 00 50 2a 20 4f 50 45 4e 00 0b 00 54 00 04 00 50 00 0b 00 62 00 0a 00 50 46 52 45 31 30 30 00 0b 00 6a 00 0e 00 50 5c 42 5c 44 45 43 4f 4f 4b 20 00 0b 00 78 00 0a 00 50 46 52 45 32 30 30 00 0b 00 8a 00 0e 00 50 5c 42 5c 44 45 43 4f 4f ┆ P* OPEN T P b PFRE100 j P B DECOOK x PFRE200 P B DECOO┆
0x11ca…121a 4b 20 00 0b 00 98 00 0a 00 50 46 52 45 33 30 30 00 0b 00 aa 00 0e 00 50 20 42 20 44 45 43 4f 4f 4b 20 00 0b 00 b8 00 14 00 50 2a 20 42 41 4c 41 4e 43 45 20 52 45 43 4f 52 44 00 0b 00 ca 00 0a 00 50 46 52 45 34 30 30 00 0b 00 e2 00 0e 00 50 ┆K PFRE300 P B DECOOK P* BALANCE RECORD PFRE400 P┆
0x121a…126a 5c 42 5c 44 45 43 4f 4f 4b 20 00 0b 00 f0 00 0c 00 50 2a 20 43 4c 4f 53 45 20 00 0b 01 02 00 0a 00 50 46 52 45 35 30 30 00 0b 01 12 00 0e 00 50 5c 42 5c 44 45 43 4f 4f 4b 20 00 0b 01 20 00 0a 00 50 5c 45 4a 45 43 54 00 0b 01 32 00 06 00 50 ┆ B DECOOK P* CLOSE PFRE500 P B DECOOK P EJECT 2 P┆
0x126a…12ba 2a 20 00 0b 01 40 00 0e 00 50 2a 20 20 20 20 20 20 20 4f 4b 00 0b 01 4a 00 06 00 50 2a 20 00 0b 01 5c 00 0a 00 50 44 45 43 4f 4f 4b 00 0b 01 66 00 14 00 50 20 4d 4f 56 45 20 52 45 54 43 4f 4e 2c 57 30 20 00 0b 01 74 00 0a 00 50 52 45 54 55 ┆* @ P* OK J P* PDECOOK f P MOVE RETCON,W0 t PRETU┆
0x12ba…130a (12, 0, 400) 52 4e 00 0b 01 8c 00 08 00 50 20 52 45 54 00 0c 00 0a 00 0a 00 50 5c 45 4a 45 43 54 00 0c 00 16 00 04 00 50 00 0c 00 24 00 0a 00 50 54 52 41 4e 53 4d 00 0c 00 2c 00 34 00 50 5c 49 42 5c 54 59 50 45 2c 44 43 31 30 30 2c 44 43 32 30 30 2c 44 ┆RN P RET P EJECT P $ PTRANSM , 4 P IB TYPE,DC100,DC200,D┆
0x130a…135a 43 33 30 30 5c 4f 50 45 4e 2c 42 41 54 43 48 48 45 41 44 2c 44 41 54 41 5c 43 00 0c 00 3a 00 20 00 50 5c 5c 44 43 33 30 30 2c 44 43 35 30 30 5c 42 41 4c 41 4e 43 45 2c 20 43 4c 4f 53 45 00 0c 00 72 00 04 00 50 00 0c 00 96 00 04 00 50 00 0c ┆C300 OPEN,BATCHHEAD,DATA C : P DC300,DC500 BALANCE, CLOSE r P P ┆
0x135a…13aa 00 9e 00 06 00 50 2a 20 00 0c 00 a6 00 0e 00 50 2a 20 53 45 4e 44 20 53 4f 46 00 0c 00 b0 00 16 00 50 2a 20 53 45 4e 44 20 27 30 30 31 27 2b 44 41 54 45 20 00 0c 00 c2 00 06 00 50 2a 20 00 0c 00 dc 00 04 00 50 00 0c 00 e6 00 0a 00 50 44 43 ┆ P* P* SEND SOF P* SEND '001'+DATE P* P PDC┆
0x13aa…13fa 31 30 30 20 00 0c 00 ee 00 06 00 50 2a 20 00 0c 00 fc 00 16 00 50 2a 20 42 41 54 43 48 48 45 41 44 20 52 45 43 4f 52 44 00 0c 01 06 00 06 00 50 2a 20 00 0c 01 20 00 0a 00 50 44 43 32 30 30 20 00 0c 01 2a 00 0a 00 50 44 43 33 30 30 20 00 0c ┆100 P* P* BATCHHEAD RECORD P* PDC200 * PDC300 ┆
0x13fa…144a 01 38 00 06 00 50 2a 20 00 0c 01 46 00 14 00 50 2a 20 54 52 41 4e 53 4d 20 42 4c 4f 43 4b 53 20 00 0c 01 50 00 06 00 50 2a 20 00 0c 01 68 00 04 00 50 00 0c 01 72 00 06 00 50 2a 20 00 0c 01 7a 00 10 00 50 2a 20 53 45 4e 44 20 27 39 39 39 27 ┆ 8 P* F P* TRANSM BLOCKS P P* h P r P* z P* SEND '999'┆
0x144a…149a (13, 0, 400) 00 0c 01 84 00 0e 00 50 2a 20 53 45 4e 44 20 45 4f 46 00 0d 00 08 00 06 00 50 2a 20 00 0d 00 1a 00 04 00 50 00 0d 00 24 00 0a 00 50 44 43 35 30 30 20 00 0d 00 2c 00 0e 00 50 5c 42 5c 44 45 43 4f 4f 4b 20 00 0d 00 3a 00 0a 00 50 20 45 4a 45 ┆ P* SEND EOF P* P $ PDC500 , P B DECOOK : P EJE┆
0x149a…14ea 43 54 00 0d 00 4c 00 06 00 50 2a 20 00 0d 00 5a 00 06 00 50 2a 20 00 0d 00 64 00 0e 00 50 2a 20 4c 49 53 54 49 4e 47 20 00 0d 00 6e 00 06 00 50 2a 20 00 0d 00 80 00 0a 00 50 4c 49 53 54 45 20 00 0d 00 8a 00 14 00 50 20 4d 4f 56 45 20 42 54 ┆CT L P* Z P* d P* LISTING n P* PLISTE P MOVE BT┆
0x14ea…153a 59 50 45 2c 54 59 50 45 00 0d 00 98 00 36 00 50 20 49 42 20 54 59 50 45 2c 4c 53 31 30 30 2c 4c 53 32 30 30 2c 4c 53 33 30 30 5c 4f 50 45 4e 2c 42 41 54 43 48 48 45 41 44 2c 44 41 54 41 5c 5c 43 20 00 0d 00 b0 00 20 00 50 5c 5c 4c 53 34 30 ┆YPE,TYPE 6 P IB TYPE,LS100,LS200,LS300 OPEN,BATCHHEAD,DATA C P LS40┆
0x153a…158a 30 2c 4c 53 35 30 30 5c 42 41 4c 41 4e 43 45 2c 43 4c 4f 53 45 20 00 0d 00 ea 00 04 00 50 00 0d 01 0e 00 0a 00 50 4c 53 31 30 30 20 00 0d 01 16 00 14 00 50 20 54 42 54 20 4c 53 42 41 42 2c 46 44 31 37 30 00 0d 01 24 00 2a 00 50 5c 50 45 52 ┆0,LS500 BALANCE,CLOSE P PLS100 P TBT LSBAB,FD170 $ * P PER┆
0x158a…15da 46 5c 47 45 54 42 55 46 5c 47 45 54 20 33 20 43 4f 4e 53 45 43 55 54 49 56 45 20 42 55 46 46 45 52 53 00 0d 01 3c 00 10 00 50 20 20 42 20 4c 53 31 31 30 20 4f 4b 00 0d 01 6a 00 12 00 50 20 42 20 4c 53 45 52 52 20 45 52 52 4f 52 00 0d 01 7e ┆F GETBUF GET 3 CONSECUTIVE BUFFERS < P B LS110 OK j P B LSERR ERROR ~┆
0x15da…162a (14, 0, 400) 00 0a 00 50 4c 53 31 31 30 20 00 0e 00 04 00 28 00 50 20 4d 4f 56 45 20 42 43 44 49 32 31 28 57 35 29 2c 3d 44 27 30 27 20 52 45 43 4f 52 44 20 43 4f 55 4e 54 20 00 0e 00 12 00 24 00 50 20 4d 4f 56 45 20 57 4f 52 4b 28 57 31 35 29 2c 57 30 ┆ PLS110 ( P MOVE BCDI21(W5),=D'0' RECORD COUNT $ P MOVE WORK(W15),W0┆
0x162a…167a 20 4c 45 4e 47 54 48 20 48 45 41 44 45 52 00 0e 00 3e 00 28 00 50 20 4d 4f 56 45 20 57 4f 52 4b 28 57 31 37 29 2c 57 30 20 4c 45 4e 47 54 48 20 52 45 43 4f 52 44 20 4e 4f 20 00 0e 00 66 00 2a 00 50 20 4d 4f 56 45 20 57 4f 52 4b 28 57 31 39 ┆ LENGTH HEADER > ( P MOVE WORK(W17),W0 LENGTH RECORD NO f * P MOVE WORK(W19┆
0x167a…16ca 29 2c 57 30 20 4c 45 4e 47 54 48 20 53 45 51 55 45 4e 43 45 20 4e 4f 20 00 0e 00 92 00 22 00 50 20 43 4c 45 41 52 20 42 43 4f 4e 54 20 43 4f 4e 54 49 4e 55 41 54 49 4f 4e 20 4d 41 52 4b 00 0e 00 c0 00 10 00 50 5c 43 4c 45 41 52 5c 42 53 55 ┆),W0 LENGTH SEQUENCE NO " P CLEAR BCONT CONTINUATION MARK P CLEAR BSU┆
0x16ca…171a 50 52 00 0e 00 e6 00 1c 00 50 20 43 4c 45 41 52 20 53 50 4c 49 54 46 4c 20 4e 4e 4f 20 53 50 4c 49 54 00 0e 00 fa 00 2a 00 50 5c 4d 4f 56 45 5c 42 49 4e 36 2c 3d 58 27 30 30 33 36 27 5c 46 49 4c 45 20 43 4f 44 45 20 50 52 49 4e 54 45 52 20 ┆PR P CLEAR SPLITFL NNO SPLIT * P MOVE BIN6,=X'0036' FILE CODE PRINTER ┆
0x171a…176a 00 0e 01 1a 00 24 00 50 5c 50 45 52 46 5c 41 54 54 44 45 56 2c 42 49 4e 36 5c 41 54 54 41 43 48 20 44 45 56 49 43 45 20 00 0e 01 48 00 10 00 50 20 42 4e 4f 4b 20 4c 53 45 52 52 20 00 0e 01 70 00 18 00 50 5c 4d 4f 56 45 5c 53 54 52 47 31 30 ┆ $ P PERF ATTDEV,BIN6 ATTACH DEVICE H P BNOK LSERR p P MOVE STRG10┆
0x176a…17ba (15, 0, 400) 41 2c 48 45 58 30 30 20 00 0e 01 84 00 14 00 50 5c 47 45 54 54 49 4d 45 5c 53 54 52 47 31 30 41 00 0f 00 10 00 16 00 50 5c 4d 4f 56 45 5c 54 49 4d 45 2c 53 54 52 47 31 30 41 00 0f 00 28 00 1a 00 50 20 45 44 57 52 54 20 44 45 44 53 50 52 54 ┆A,HEX00 P GETTIME STRG10A P MOVE TIME,STRG10A ( P EDWRT DEDSPRT┆
0x17ba…180a 2c 46 4c 53 48 44 52 20 00 0f 00 42 00 18 00 50 20 4d 4f 56 45 20 52 45 43 4c 47 44 2c 3d 57 27 31 31 32 27 00 0f 00 60 00 0a 00 50 2a 20 45 4e 54 20 00 0f 00 7c 00 10 00 50 20 42 20 44 45 43 4f 4f 4b 20 4f 4b 00 0f 00 8a 00 04 00 50 00 0f ┆,FLSHDR B P MOVE RECLGD,=W'112' ` P* ENT | P B DECOOK OK P ┆
0x180a…185a 00 9e 00 0a 00 50 4c 53 31 37 30 20 00 0f 00 a6 00 28 00 50 5c 4d 4f 56 45 5c 52 45 54 43 4f 4e 2c 3d 57 27 2d 34 27 5c 41 42 4f 52 54 20 43 4f 4e 56 45 52 53 49 4f 4e 00 0f 00 b4 00 0e 00 50 5c 42 5c 46 44 45 52 52 54 20 00 0f 00 e0 00 0a ┆ PLS170 ( P MOVE RETCON,=W'-4' ABORT CONVERSION P B FDERRT ┆
0x185a…18aa 00 50 4c 53 45 52 52 20 00 0f 00 f2 00 30 00 50 20 4d 4f 56 45 20 52 45 54 43 4f 4e 2c 3d 57 27 33 35 27 20 4f 55 54 50 55 54 20 44 45 56 20 4e 4f 54 20 4f 50 45 52 41 42 4c 45 20 00 0f 01 00 00 0a 00 50 4c 53 45 52 52 54 00 0f 01 34 00 0e ┆ PLSERR 0 P MOVE RETCON,=W'35' OUTPUT DEV NOT OPERABLE PLSERRT 4 ┆
0x18aa…18fa 00 50 20 53 45 54 20 4c 53 42 41 42 00 0f 01 42 00 0e 00 50 20 42 20 52 45 54 55 52 4e 20 00 0f 01 54 00 06 00 50 2a 20 00 0f 01 66 00 16 00 50 2a 20 42 41 54 43 48 45 41 44 20 52 45 43 4f 52 44 20 00 0f 01 70 00 06 00 50 2a 20 00 0f 01 8a ┆ P SET LSBAB B P B RETURN T P* f P* BATCHEAD RECORD p P* ┆
0x18fa…194a (16, 0, 398) 00 0a 00 50 4c 53 32 30 30 20 00 10 00 04 00 14 00 50 20 54 42 54 20 4c 53 42 41 42 2c 4c 53 31 37 30 00 10 00 12 00 28 00 50 20 54 42 46 20 42 44 41 46 4f 52 2c 4c 53 32 35 30 20 41 4e 59 20 46 4f 52 43 45 44 20 46 49 45 4c 44 53 3f 00 10 ┆ PLS200 P TBT LSBAB,LS170 ( P TBF BDAFOR,LS250 ANY FORCED FIELDS? ┆
0x194a…199a 00 2a 00 2c 00 50 5c 45 44 57 52 54 5c 44 45 44 53 50 52 54 2c 46 42 41 54 43 33 5c 50 52 49 4e 54 20 45 52 52 4f 52 20 52 45 50 4f 52 54 00 10 00 56 00 0e 00 50 20 53 45 54 20 4c 53 42 41 42 00 10 00 86 00 1a 00 50 20 4d 21 21 4a 4e 20 44 ┆ * , P EDWRT DEDSPRT,FBATC3 PRINT ERROR REPORT V P SET LSBAB P M!!JN D┆
0x199a…19ea 45 43 4f 4e 56 2c 32 38 38 2c 32 38 39 20 00 10 00 98 00 26 00 50 5c 4d 4f 56 45 5c 52 45 54 43 4f 4e 2c 3d 57 27 2d 31 27 5c 47 45 54 20 4e 45 58 54 20 42 41 54 43 48 00 10 00 b6 00 0e 00 50 5c 42 5c 52 45 54 55 52 4e 20 00 10 00 e0 00 20 ┆ECONV,288,289 & P MOVE RETCON,=W'-1' GET NEXT BATCH P B RETURN ┆
0x19ea…1a3a 00 50 4c 53 32 35 30 5c 5c 5c 42 41 54 43 48 48 45 41 44 20 4f 52 20 42 41 4c 41 4e 43 45 00 10 00 f2 00 14 00 50 20 54 42 54 20 4c 53 42 41 42 2c 4c 53 31 37 30 00 10 01 16 00 14 00 50 20 4d 4f 56 45 20 44 45 42 49 4e 57 33 2c 57 31 00 10 ┆ PLS250 BATCHHEAD OR BALANCE P TBT LSBAB,LS170 P MOVE DEBINW3,W1 ┆
0x1a3a…1a88 01 2e 00 1e 00 50 20 50 52 49 4e 54 20 44 45 44 53 50 52 54 2c 44 45 42 49 4e 57 33 2c 57 30 20 00 10 01 46 00 10 00 50 20 42 4e 4f 4b 20 4c 53 45 52 52 20 00 10 01 68 00 0e 00 50 20 42 20 44 45 43 4f 4f 4b 20 00 10 01 7c 00 04 00 50 ┆ . P PRINT DEDSPRT,DEBINW3,W0 F P BNOK LSERR h P B DECOOK | P┆
0x1a88…1a90 (17, 0, 400) 00 10 01 8e 00 32 00 50 ┆ 2 P┆
0x1a90…1aba 2a 20 43 4f 4e 56 45 52 54 20 48 45 41 44 45 52 20 54 4f 20 53 45 54 20 43 4f 4e 56 45 52 53 49 4f 4e 20 49 4e 44 49 43 41 54 ┆* CONVERT HEADER TO SET CONVERSION INDICAT┆
0x1aba…8af4 […elided…]
0x8af4…8b10 53 54 4e 49 4e 47 20 4b 4c 41 52 27 00 58 01 8c 00 0e 00 50 20 46 4c 49 4e 4b 20 48 ┆STNING KLAR' X P FLINK H┆
0x8b10…8b60 44 52 00 59 00 1a 00 0a 00 50 20 46 45 4f 52 20 00 59 00 2c 00 08 00 50 20 46 4e 4c 00 59 00 3a 00 0a 00 50 20 46 4d 45 4e 44 00 59 00 46 00 04 00 50 00 59 00 54 00 10 00 50 46 4c 53 45 52 52 20 46 52 4d 54 20 00 59 00 5c 00 08 00 50 20 46 ┆DR Y P FEOR Y , P FNL Y : P FMEND Y F P Y T PFLSERR FRMT Y P F┆
0x8b60…8bb0 4e 4c 00 59 00 70 00 0a 00 50 20 46 45 4f 52 20 00 59 00 7c 00 08 00 50 20 46 4e 4c 00 59 00 8a 00 1e 00 50 20 46 54 45 58 54 20 27 4c 49 53 54 4e 49 4e 47 20 41 46 42 52 59 44 45 53 27 00 59 00 96 00 0e 00 50 20 46 4c 49 4e 4b 20 48 44 52 ┆NL Y p P FEOR Y | P FNL Y P FTEXT 'LISTNING AFBRYDES' Y P FLINK HDR┆
0x8bb0…8c00 00 59 00 b8 00 0a 00 50 20 46 45 4f 52 20 00 59 00 ca 00 08 00 50 20 46 4e 4c 00 59 00 d8 00 0a 00 50 20 46 4d 45 4e 44 00 59 00 e4 00 04 00 50 00 59 00 f2 00 0c 00 50 48 44 52 5c 46 52 4d 54 00 59 00 fa 00 10 00 50 5c 46 49 4c 4c 52 5c 27 ┆ Y P FEOR Y P FNL Y P FMEND Y P Y PHDR FRMT Y P FILLR '┆
0x8c00…8c50 20 27 2c 34 00 59 01 0a 00 14 00 50 5c 46 54 45 58 54 5c 27 44 41 54 4f 3a 20 20 27 00 59 01 1e 00 1a 00 50 5c 46 4d 45 4c 5c 27 39 39 2d 39 39 2d 39 39 27 2c 44 41 54 45 20 00 59 01 36 00 10 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 34 00 59 ┆ ',4 Y P FTEXT 'DATO: ' Y P FMEL '99-99-99',DATE Y 6 P FILLR ' ',4 Y┆
0x8c50…8c7e 01 54 00 12 00 50 5c 46 54 45 58 54 5c 27 54 49 44 3a 20 27 00 59 01 68 00 1a 00 50 5c 46 4d 45 4c 5c 27 39 39 2d 39 39 2d 39 39 27 2c 54 ┆ T P FTEXT 'TID: ' Y h P FMEL '99-99-99',T┆
0x8c7e…8cce (90, 0, 398) 49 4d 45 20 00 59 01 7e 00 0a 00 50 5c 46 45 4f 52 20 00 5a 00 0c 00 08 00 50 5c 46 4e 4c 00 5a 00 1a 00 12 00 50 20 46 54 45 58 54 20 27 49 4e 44 3a 20 27 00 5a 00 26 00 18 00 50 20 46 4d 45 4c 20 27 39 39 39 39 39 27 2c 4e 55 4d 42 45 52 ┆IME Y ~ P FEOR Z P FNL Z P FTEXT 'IND: ' Z & P FMEL '99999',NUMBER┆
0x8cce…8d1e 00 5a 00 3c 00 14 00 50 20 46 54 45 58 54 20 27 20 20 55 44 3a 20 27 20 00 5a 00 58 00 1c 00 50 20 46 4d 45 4c 20 27 39 39 39 39 39 27 2c 42 43 44 49 32 31 28 57 35 29 00 5a 00 70 00 0a 00 50 20 46 45 4f 52 20 00 5a 00 90 00 08 00 50 20 46 ┆ Z < P FTEXT ' UD: ' Z X P FMEL '99999',BCDI21(W5) Z p P FEOR Z P F┆
0x8d1e…8d6e 4e 4c 00 5a 00 9e 00 0a 00 50 5c 46 4d 45 4e 44 00 5a 00 aa 00 0a 00 50 5c 45 4a 45 43 54 00 5a 00 b8 00 10 00 50 46 43 41 53 30 32 5c 46 52 4d 54 20 00 5a 00 c6 00 08 00 50 5c 46 53 4c 00 5a 00 da 00 16 00 50 5c 46 43 4f 50 59 5c 3d 43 27 ┆NL Z P FMEND Z P EJECT Z PFCAS02 FRMT Z P FSL Z P FCOPY =C'┆
0x8d6e…8dbe 44 45 56 49 43 45 27 20 00 5a 00 e6 00 10 00 50 5c 46 49 4c 4c 52 5c 27 3a 27 2c 31 00 5a 01 00 00 0c 00 50 5c 46 49 4e 50 5c 39 20 00 5a 01 14 00 16 00 50 5c 46 43 4f 50 59 5c 53 54 53 41 56 45 28 57 33 29 20 00 5a 01 24 00 0c 00 50 5c 46 ┆DEVICE' Z P FILLR ':',1 Z P FINP 9 Z P FCOPY STSAVE(W3) Z $ P F┆
0x8dbe…8e0c 54 41 42 5c 32 30 00 5a 01 3e 00 14 00 50 5c 46 43 4f 50 59 5c 3d 43 27 46 49 4c 45 27 20 00 5a 01 4e 00 10 00 50 5c 46 49 4c 4c 52 5c 27 2d 27 2c 31 00 5a 01 66 00 14 00 50 5c 46 43 4f 50 59 5c 3d 43 27 4e 41 4d 45 27 20 00 5a 01 7a ┆TAB 20 Z > P FCOPY =C'FILE' Z N P FILLR '-',1 Z f P FCOPY =C'NAME' Z z┆
0x8e0c…8e5c (91, 0, 400) 00 10 00 50 5c 46 49 4c 4c 52 5c 27 3a 27 2c 31 00 5b 00 04 00 0c 00 50 5c 46 49 4e 50 5c 33 32 00 5b 00 18 00 10 00 50 20 46 43 4f 50 59 20 53 54 52 38 42 00 5b 00 28 00 08 00 50 5c 46 4e 4c 00 5b 00 3c 00 20 00 50 5c 46 43 4f 50 59 5c 3d ┆ P FILLR ':',1 [ P FINP 32 [ P FCOPY STR8B [ ( P FNL [ < P FCOPY =┆
0x8e5c…8eac 43 27 45 58 50 49 52 41 54 49 4f 4e 20 44 41 54 45 3a 27 20 00 5b 00 48 00 0c 00 50 5c 46 49 4e 50 5c 33 32 00 5b 00 6c 00 10 00 50 5c 46 43 4f 50 59 5c 53 54 52 36 41 00 5b 00 7c 00 08 00 50 5c 46 4e 4c 00 5b 00 90 00 28 00 50 5c 46 43 4f ┆C'EXPIRATION DATE:' [ H P FINP 32 [ l P FCOPY STR6A [ | P FNL [ ( P FCO┆
0x8eac…8efc 50 59 5c 3d 43 27 4f 4c 44 20 44 41 54 41 20 53 45 54 20 49 44 45 4e 54 49 46 49 45 52 3a 27 20 00 5b 00 9c 00 0c 00 50 5c 46 49 4e 50 5c 33 32 00 5b 00 c8 00 10 00 50 5c 46 43 4f 50 59 5c 53 54 52 38 41 00 5b 00 d8 00 08 00 50 5c 46 4e 4c ┆PY =C'OLD DATA SET IDENTIFIER:' [ P FINP 32 [ P FCOPY STR8A [ P FNL┆
0x8efc…8f4c 00 5b 00 ec 00 26 00 50 5c 46 43 4f 50 59 5c 3d 43 27 4f 4c 44 20 56 4f 4c 55 4d 45 20 53 45 51 55 45 4e 43 45 20 4e 4f 3a 27 00 5b 00 f8 00 0c 00 50 5c 46 49 4e 50 5c 33 32 00 5b 01 22 00 10 00 50 5c 46 43 4f 50 59 5c 53 54 52 32 41 00 5b ┆ [ & P FCOPY =C'OLD VOLUME SEQUENCE NO:' [ P FINP 32 [ " P FCOPY STR2A [┆
0x8f4c…8f9c 01 32 00 08 00 50 5c 46 4e 4c 00 5b 01 46 00 0a 00 50 5c 46 4b 49 5c 31 00 5b 01 52 00 10 00 50 5c 46 43 4f 50 59 5c 48 45 58 30 30 00 5b 01 60 00 0a 00 50 5c 46 4d 45 4e 44 00 5b 01 74 00 0a 00 50 5c 45 4a 45 43 54 00 5b 01 82 00 10 00 50 ┆ 2 P FNL [ F P FKI 1 [ R P FCOPY HEX00 [ ` P FMEND [ t P EJECT [ P┆
0x8f9c…8fec (92, 0, 400) 46 52 4d 43 39 39 5c 46 52 4d 54 20 00 5b 01 90 00 08 00 50 5c 46 53 4c 00 5c 00 14 00 12 00 50 5c 46 4c 49 4e 4b 5c 46 46 44 39 39 39 20 00 5c 00 20 00 0a 00 50 5c 46 4d 45 4e 44 00 5c 00 36 00 04 00 50 00 5c 00 44 00 10 00 50 46 46 44 30 ┆FRMC99 FRMT [ P FSL P FLINK FFD999 P FMEND 6 P D PFFD0┆
0x8fec…903c 30 31 5c 46 52 4d 54 20 00 5c 00 4c 00 12 00 50 5c 46 43 4f 50 59 5c 3d 43 27 30 30 31 27 00 5c 00 60 00 18 00 50 5c 46 4d 45 4c 5c 27 39 39 39 39 39 39 27 2c 44 41 54 45 20 00 5c 00 76 00 12 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 36 30 20 ┆01 FRMT L P FCOPY =C'001' ` P FMEL '999999',DATE v P FILLR ' ',60 ┆
0x903c…908c 00 5c 00 92 00 12 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 35 36 20 00 5c 00 a8 00 0a 00 50 5c 46 4d 45 4e 44 00 5c 00 be 00 04 00 50 00 5c 00 cc 00 10 00 50 46 46 44 39 39 39 5c 46 52 4d 54 20 00 5c 00 d4 00 14 00 50 20 46 54 45 58 54 20 3d ┆ P FILLR ' ',56 P FMEND P PFFD999 FRMT P FTEXT =┆
0x908c…90dc 43 27 53 4c 55 54 44 27 00 5c 00 e8 00 1c 00 50 20 46 4d 45 4c 20 27 39 39 39 39 39 27 2c 42 43 44 49 32 31 28 57 35 29 00 5c 01 00 00 12 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 36 30 20 00 5c 01 20 00 12 00 50 5c 46 49 4c 4c 52 5c 27 20 27 ┆C'SLUTD' P FMEL '99999',BCDI21(W5) P FILLR ' ',60 P FILLR ' '┆
0x90dc…912c 2c 36 32 20 00 5c 01 36 00 0a 00 50 5c 46 4d 45 4e 44 00 5c 01 4c 00 0a 00 50 5c 45 4a 45 43 54 00 5c 01 5a 00 10 00 50 46 52 4d 41 4c 50 5c 46 52 4d 54 20 00 5c 01 68 00 14 00 50 5c 46 43 4f 50 59 5c 3a 46 4d 54 49 54 45 4d 20 00 5c 01 7c ┆,62 6 P FMEND L P EJECT Z PFRMALP FRMT h P FCOPY :FMTITEM |┆
0x912c…917c (93, 0, 400) 00 0a 00 50 5c 46 4d 45 4e 44 00 5d 00 04 00 04 00 50 00 5d 00 12 00 04 00 50 00 5d 00 1a 00 10 00 50 46 52 4d 42 43 44 5c 46 52 4d 54 20 00 5d 00 22 00 2a 00 50 5c 46 4d 45 4c 5c 27 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 ┆ P FMEND ] P ] P ] PFRMBCD FRMT ] " * P FMEL '9999999999999999999┆
0x917c…91cc 39 39 27 2c 3a 46 4d 54 49 54 45 4d 00 5d 00 36 00 0a 00 50 5c 46 4d 45 4e 44 00 5d 00 64 00 04 00 50 00 5d 00 72 00 10 00 50 46 52 4d 54 43 44 20 46 52 4d 54 20 00 5d 00 7a 00 2a 00 50 20 46 4d 45 4c 20 27 54 54 54 54 54 54 54 54 54 54 54 ┆99',:FMTITEM ] 6 P FMEND ] d P ] r PFRMTCD FRMT ] z * P FMEL 'TTTTTTTTTTT┆
0x91cc…921c 54 54 54 54 54 54 54 54 54 39 27 2c 3a 46 4d 54 49 54 45 4d 00 5d 00 8e 00 0a 00 50 20 46 4d 45 4e 44 00 5d 00 bc 00 04 00 50 00 5d 00 ca 00 10 00 50 46 52 4d 54 43 53 20 46 52 4d 54 20 00 5d 00 d2 00 2c 00 50 20 46 4d 45 4c 20 27 54 54 54 ┆TTTTTTTTT9',:FMTITEM ] P FMEND ] P ] PFRMTCS FRMT ] , P FMEL 'TTT┆
0x921c…926c 54 54 54 54 54 54 54 54 54 54 54 54 54 54 54 54 54 39 2d 27 2c 3a 46 4d 54 49 54 45 4d 20 00 5d 00 e6 00 0a 00 50 20 46 4d 45 4e 44 00 5d 01 16 00 0a 00 50 5c 45 4a 45 43 54 00 5d 01 24 00 10 00 50 46 52 4d 42 43 53 5c 46 52 4d 54 20 00 5d ┆TTTTTTTTTTTTTTTTT9-',:FMTITEM ] P FMEND ] P EJECT ] $ PFRMBCS FRMT ]┆
0x926c…92bc 01 32 00 2c 00 50 5c 46 4d 45 4c 5c 27 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 2d 27 2c 3a 46 4d 54 49 54 45 4d 20 00 5d 01 46 00 0a 00 50 5c 46 4d 45 4e 44 00 5d 01 76 00 04 00 50 00 5d 01 84 00 04 00 50 00 5d 01 8c ┆ 2 , P FMEL '999999999999999999999-',:FMTITEM ] F P FMEND ] v P ] P ] ┆
0x92bc…930c (94, 2, 96) 00 10 00 50 46 52 4d 54 49 44 5c 46 52 4d 54 20 00 5e 00 04 00 16 00 50 5c 46 4d 45 4c 5c 27 39 39 39 27 2c 42 43 44 31 33 41 00 5e 00 18 00 0a 00 50 5c 46 4d 45 4e 44 00 5e 00 32 00 04 00 50 00 5e 00 40 00 04 00 50 00 5e 00 48 00 08 00 50 ┆ PFRMTID FRMT ^ P FMEL '999',BCD13A ^ P FMEND ^ 2 P ^ @ P ^ H P┆
0x930c…931c 5c 45 4e 44 00 5e 00 50 40 04 00 00 00 5e 00 5c ┆ END ^ P@ ^ ┆
0x931c…9324 (95, 1, 8) 20 04 00 00 00 5f 00 04 ┆ _ ┆
0x9324…9374 (96, 0, 400) e0 3f 1a 00 e8 8f 80 05 26 e1 89 9d 06 20 20 3f 19 80 06 87 3f 19 30 1a 95 39 1b 3f 1c 00 9f 22 e8 57 e6 40 67 40 6b 02 8b 21 41 69 80 03 8d 89 02 8b 21 3f 1e 00 93 24 40 6b 41 67 57 07 00 93 23 40 67 41 6b 40 69 02 8b 21 00 8f 20 6a 8f 21 ┆ ? & ? ? 0 9 ? " W @g@k !Ai !? $@kAgW #@gAk@i ! j !┆
0x9374…93c4 21 1b 8a 8b 04 8f 12 02 8b 21 00 7f 93 55 6a 7f 93 20 8f 1b 8a 8b 02 8b 8f 3f 1e 01 88 36 30 0d 88 87 01 99 3c 00 89 8b 68 1b 8a 89 88 99 20 21 54 4c 00 87 20 6a 89 21 21 95 20 21 89 34 04 29 89 35 03 00 87 21 02 88 8b 00 89 87 68 95 89 21 ┆! ! Uj ? 60 < h !TL j !! ! 4 ) 5 ! h !┆
0x93c4…9414 1b 8a 8b 21 54 19 02 87 21 06 87 90 52 0c 00 89 87 68 95 89 21 55 20 21 50 37 02 8b 21 5f 26 00 89 8b 68 1b 8a 89 21 99 20 21 58 26 57 23 40 8e 54 0e 30 27 00 50 21 20 90 88 08 02 8b 88 57 83 49 99 15 00 89 20 02 88 8b 68 95 89 90 1b 8a 8b ┆ !T ! R h !U !P7 !_& h ! !X&W#@ T 0' P! W I h ┆
0x9414…9464 90 00 8b 88 50 a2 57 6b 00 7e 55 62 7e 20 88 1b 8a 8b 00 9f 22 7e 02 8b 88 40 8d 50 0a 30 18 9f 22 21 30 19 9f 22 22 36 85 03 07 0e 15 02 9f 21 9f 22 57 13 04 9f 21 9f 22 57 0c 08 9f 21 9f 22 57 05 0a 9f 21 9f 22 00 85 20 2c 8b 8c 0d 01 7e ┆ P Wk ~Ub~ "~ @ P 0 "!0 ""6 ! "W ! "W ! "W ! " , ~┆
0x9464…94b4 3f 68 7e 85 24 1b 8a 8b 21 38 1f 00 9f 22 95 06 9f 22 9f 21 36 84 02 04 08 50 3d 57 06 51 39 57 02 52 35 40 88 54 4c 20 e1 20 31 06 88 20 3c 20 02 e0 21 02 8f 21 22 8f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c ┆?h~ $ !8 " " !6 P=W Q9W R5@ TL 1 < ! !" ┆
0x94b4…9504 (97, 0, 400) 8e 07 00 9f 21 b0 e0 5f 36 6a 8e 20 22 19 e1 2d 06 8e 20 38 20 00 e0 8f 80 05 26 e1 89 9d 3f 21 40 88 50 10 00 89 35 49 69 16 49 6b 13 49 67 10 41 7c 57 0c 20 e1 20 03 00 e8 8f 00 89 34 40 7c 40 8e 20 e1 20 06 80 05 26 e1 89 9d 2c 8b 8c b9 ┆ ! _6j " - 8 & ?!@ P 5Ii Ik Ig A|W 4@|@ & , ┆
0x9504…9554 00 88 20 01 8f 33 68 5a 88 8f 1b 8a 8b 21 50 44 6a 87 21 21 1b 8a 8b 30 07 87 28 50 0a 01 88 36 30 0d 88 87 02 8b 88 02 8b 21 5f 3c 28 89 34 02 80 07 02 8b 21 2c 8b 8c 80 00 88 20 01 9c 40 68 9c 88 24 1b 8a 8b 21 54 68 49 7c 6d 32 88 03 0c ┆ 3hZ !PDj !! 0 (P 60 !_<( 4 !, @h $ !ThI|m2 ┆
0x9554…95a4 0d 0e 3f 0b 32 88 1c 22 22 22 22 23 24 22 24 24 24 23 24 24 22 22 22 22 22 25 26 26 22 22 22 23 27 27 22 02 8b 21 5f 68 28 88 89 05 02 8b 21 3f 1e 20 89 34 28 02 8b 21 5f 9a 02 8b 22 5f 9f 80 03 87 88 5f 0b 02 8b 21 00 8f 20 6a 8f 21 21 1b ┆ ? 2 """"#$"$$$#$$"""""%&&"""#''" !_h( !? 4( !_ "_ _ ! j !! ┆
0x95a4…95f4 8a 8b 04 8f 12 02 8b 21 02 8b 8f 5f bd 80 07 5f c1 41 7c 00 93 22 00 89 20 40 8b 50 18 00 8a e9 26 00 8b e9 27 00 8c e9 28 02 8b 21 30 31 e2 00 81 88 30 32 e2 48 7c 04 20 93 22 04 10 89 34 33 00 95 6f 00 92 67 20 92 20 0a 22 92 d1 22 07 40 ┆ ! _ _ A| " @ P & ' ( !01 02 H| " 43 o g " " @┆
0x95f4…9644 66 49 89 02 40 6a 00 8a 20 6a 8a 21 21 82 20 6a 82 20 21 20 20 40 97 54 05 00 92 20 57 03 00 92 21 34 01 00 89 20 49 69 08 49 6b 09 49 67 0a 34 00 41 68 34 00 41 6a 34 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 ┆fI @j j !! j ! @ T W !4 Ii Ik Ig 4 Ah4 Aj4 ┆
0x9644…9694 (98, 0, 400) 00 41 66 34 00 01 96 4c 40 64 40 67 30 15 92 40 9a 57 3c 20 80 20 25 41 64 30 31 93 00 80 83 30 32 93 52 18 41 67 30 30 1b 21 8a 8b 8c 54 0d 30 31 93 00 92 83 30 32 93 40 64 57 13 48 64 09 30 31 93 00 92 83 30 32 93 02 96 96 40 9a 34 00 04 ┆ Af4 L@d@g0 @ W< %Ad01 02 R Ag00 ! T 01 02 @dW Hd 01 02 @ 4 ┆
0x9694…96e4 8b 21 02 8c 8b 00 80 20 02 8b 21 12 8b 8c 4c 00 86 20 00 85 20 01 9c 41 68 9c 85 24 1b 8a 8b 21 36 85 03 30 30 02 57 2e 00 90 20 04 8c 8b 80 08 22 30 15 92 40 7c 5c 75 41 9a 6a 8b 21 21 82 21 00 82 20 6a 82 21 21 1b 8a 8b 01 8c 36 30 0d 8c ┆ ! ! L Ah $ !6 00 W. "0 @| uA j !! ! j !! 60 ┆
0x96e4…9734 82 02 8c 8b 5f 4e 5c 95 02 8b 21 80 03 86 83 36 85 02 69 69 57 4a 40 65 01 9f 21 4c 02 8b 21 00 83 20 01 99 3b 68 99 83 21 1b 8a 8b 21 50 03 04 8b 21 40 69 00 82 20 00 89 20 00 88 20 02 8b 21 06 8b 8c 39 28 01 9d 4a 68 9d 88 2a 1b 8a 8b 21 ┆ _N ! 6 iiWJ@e !L ! ;h ! !P !@i ! 9( Jh * !┆
0x9734…9784 54 58 36 88 09 72 72 15 15 15 15 f6 72 72 57 0d 14 86 21 f1 1c 86 92 f5 00 80 86 5f fa 41 69 41 65 5f 3c 41 65 00 82 88 04 82 23 5f 46 30 1a 0b 00 0a 92 58 6f 40 9a 5c 73 28 85 22 08 10 86 20 7b 10 86 92 7f 00 83 8c 04 83 8b 01 99 3a 68 1b ┆TX6 rr rrW ! _ AiAe_<Ae #_F0 Xo@ s( " { :h ┆
0x9784…97d4 8a 8b 83 99 20 21 3c 29 5f f2 00 95 55 00 89 20 6a 89 21 21 1b 8a 8b 01 88 36 30 0d 88 89 02 8b 21 62 95 20 88 1b 8a 8b 04 88 21 02 8b 88 57 56 00 95 55 00 89 20 02 8b 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c ┆ !<)_ U j !! 60 !b ! WV U ┆
0x97d4…9824 (99, 0, 400) 21 80 03 89 83 36 88 02 11 26 20 88 29 16 30 23 89 d3 21 3c 29 00 95 d3 89 57 33 30 23 89 d5 21 50 28 3f 29 30 23 89 17 21 3c 29 00 88 24 57 1a 28 89 20 03 00 89 92 30 39 83 0b 00 0a 89 20 83 23 08 00 95 0b 00 0a 89 57 04 61 95 2f 88 00 9f ┆! 6 & ) 0# !<) W30# !P(?)0# !<) $W ( 09 # W a / ┆
0x9824…9874 22 95 48 69 07 62 9f 22 20 21 50 20 36 82 03 07 0e 15 02 9f 21 9f 22 3f 2a 04 9f 21 9f 22 3f 2a 08 9f 21 9f 22 3f 2a 0a 9f 21 9f 22 48 65 0a 00 95 55 00 89 20 6d 95 89 16 20 85 22 0d 30 23 86 d5 21 3c 29 00 d5 86 95 3f 2b 28 86 20 03 00 86 ┆" Hi b " !P 6 ! "?* ! "?* ! "?* ! "He U m " 0# !<) ?+( ┆
0x9874…98c4 92 30 31 83 00 86 88 30 32 83 30 2a 01 88 30 27 00 54 4a 00 95 55 00 89 20 6d 95 89 16 04 89 21 06 89 88 50 1f 51 16 30 2a 02 88 2c 89 88 15 04 88 89 01 7e 38 64 95 21 88 7e 20 57 07 04 89 88 66 95 21 89 20 9f 21 0c 09 30 09 01 86 86 30 2f ┆ 01 02 0* 0' TJ U m ! P Q 0* , ~8d ! ~ W f ! ! 0 0/┆
0x98c4…9914 01 95 20 86 92 05 30 25 00 92 86 3f 2b 00 83 20 68 95 83 88 0c 20 88 58 17 5f 22 36 00 0f 00 06 0c 12 14 16 18 1a 1c 1e 24 2a 30 36 38 30 3c 20 95 34 01 30 3c 22 95 34 01 30 3d 22 95 34 01 34 01 34 01 34 01 34 01 34 01 34 01 30 3e 95 86 34 ┆ 0% ?+ h X _"6 $*0680< 4 0<" 4 0=" 4 4 4 4 4 4 4 0> 4┆
0x9914…9964 01 30 3f 95 86 34 01 30 40 95 86 34 01 30 41 95 86 34 01 34 01 34 01 00 96 21 48 79 15 30 17 d0 80 09 d0 9e 00 98 d1 22 48 7a 07 30 17 80 80 09 80 9d 00 93 33 34 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 05 ┆ 0? 4 0@ 4 0A 4 4 4 !Hy 0 "Hz 0 34 ┆
0x9964…99b4 (100, 0, 400) 01 55 00 91 20 00 92 20 00 93 20 6a 92 20 21 00 21 30 07 92 93 50 09 62 01 91 21 5b 93 02 91 21 02 93 21 18 93 28 16 34 02 40 68 30 42 1b 21 8a 8b 8c 50 13 20 91 23 04 28 91 2b 02 3f 2c 30 2e 95 3c 2d 41 68 57 e8 00 88 25 68 5a 88 28 1b 8a ┆ U j ! !0 P b ![ ! ! ( 4 @h0B ! P # ( + ?,0. <-AhW %hZ ( ┆
0x99b4…9a04 8b 21 3c 2d 20 88 25 9a 04 88 28 3a 2d 02 8b 21 00 87 20 80 03 87 8e 02 8b 21 00 97 87 28 88 24 81 00 87 32 68 5a 87 21 1b 8a 8b 21 54 0c 02 8b 21 6a e0 21 21 1b 8a 8b 57 1c 80 0a 25 1c 32 91 04 2e 2e 2e 2f 04 90 21 58 10 62 95 90 21 55 20 ┆ !<- % (:- ! ! ( $ 2hZ ! !T !j !! W % 2 .../ !X b !U ┆
0x9a04…9a54 00 98 95 00 e0 98 28 e0 20 0e 20 e8 20 05 00 e0 e8 57 05 00 93 29 57 b9 00 e6 97 01 99 3d 66 e6 20 22 64 e6 22 21 55 20 64 e6 20 21 99 20 80 04 38 54 9e 00 e8 e0 30 3a 1b e1 28 2b 30 3b 1b e1 20 2b 00 89 20 6a 89 21 21 19 e1 31 04 e0 89 02 ┆ ( W )W =f "d "!U d ! 8T 0: (+0; + j !! 1 ┆
0x9a54…9aa4 e0 21 80 01 88 80 05 26 e1 89 9d 30 27 00 54 2f 30 2a 01 93 04 93 90 56 26 01 9d 3e 00 91 20 68 9d 91 23 95 20 21 00 91 20 54 0a 02 93 21 20 93 20 0d 02 91 21 09 93 16 66 95 91 93 04 90 93 30 1a 0c 54 28 30 27 00 50 12 30 2a 01 93 00 92 20 ┆ ! & 0' T/0* V& > h # ! T ! ! f 0 T(0' P 0* ┆
0x9aa4…9af4 68 95 92 93 0c 20 93 50 17 57 09 00 9f 21 95 20 9f 21 0c 0c 30 15 92 30 09 09 92 92 30 2f 01 95 00 91 23 40 68 54 02 41 8c 06 21 21 34 00 00 93 20 00 91 20 00 90 20 06 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c ┆h P W ! ! 0 0 0/ #@hT A !!4 ┆