|
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: 30268 (0x763c)
Notes: pts_type(SC)
Names: »DKCONV.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DKCONV.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DKCONV.SC«
IDENT DECONV REL=1.0 VER=1 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 * * 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, 398) Head {h00=0x002e, h01=0x0050, text=» IDENT DECONV REL=1.0 VER=1 80-12-12/SHB«, t00=0x0000, t01=0x0004}
0x0032…004e Head {h00=0x0018, h01=0x0050, text=» UPD 80-07-14/JAER«, t00=0x0000, t01=0x0036}
0x004e…0062 Head {h00=0x0010, h01=0x0050, text=» DDUM DEDDIV«, t00=0x0000, t01=0x0052}
0x0062…0070 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0066}
0x0070…0086 Head {h00=0x0012, h01=0x0050, text=» ENTRY DECONV «, t00=0x0000, t01=0x0074}
0x0086…008e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x008a}
0x008e…0096 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0092}
0x0096…00aa Head {h00=0x0010, h01=0x0050, text=» EXT DEPOOL «, t00=0x0000, t01=0x009a}
0x00aa…00bc Head {h00=0x000e, h01=0x0050, text=» EXT TESTB«, t00=0x0000, t01=0x00ae}
0x00bc…00d0 Head {h00=0x0010, h01=0x0050, text=» EXT EMPTYT «, t00=0x0000, t01=0x00c0}
0x00d0…00e4 Head {h00=0x0010, h01=0x0050, text=» EXT DERROR «, t00=0x0000, t01=0x00d4}
0x00e4…0106 Head {h00=0x001e, h01=0x0050, text=» EXT ATTDEV ATTACH DEVICE «, t00=0x0000, t01=0x00e8}
0x0106…011a Head {h00=0x0010, h01=0x0050, text=» EXT ATTPRT «, t00=0x0000, t01=0x010a}
0x011a…012e Head {h00=0x0010, h01=0x0050, text=» EXT DETPRT «, t00=0x0000, t01=0x011e}
0x012e…0140 Head {h00=0x000e, h01=0x0050, text=» EXT MASK «, t00=0x0000, t01=0x0132}
0x0140…0154 Head {h00=0x0010, h01=0x0050, text=» EXT GETFWD «, t00=0x0000, t01=0x0144}
0x0154…0168 Head {h00=0x0010, h01=0x0050, text=» EXT ADJUST «, t00=0x0000, t01=0x0158}
0x0168…017a Head {h00=0x000e, h01=0x0050, text=» EXT FDIO «, t00=0x0000, t01=0x016c}
0x017a…0188 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x017e}
0x0188…0192 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x018c}
0x0192…01aa Head {h00=0x0014, h01=0x0050, text=»* KEYTABLE«, t00=0x0001, t01=0x0008}
0x01aa…01b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0020}
0x01b4…01d0 Head {h00=0x0018, h01=0x0050, text=»CLR EQU X'8F' CLEAR «, t00=0x0001, t01=0x002a}
0x01d0…01ec Head {h00=0x0018, h01=0x0050, text=»CAN EQU X'91' CANCEL«, t00=0x0001, t01=0x0046}
0x01ec…0208 Head {h00=0x0018, h01=0x0050, text=»RET EQU X'98' RETURN«, t00=0x0001, t01=0x0062}
0x0208…0224 Head {h00=0x0018, h01=0x0050, text=»ENT EQU X'8C' ENTER «, t00=0x0001, t01=0x007e}
0x0224…022e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x009a}
0x022e…0252 Head {h00=0x0020, h01=0x0050, text=»KEYTAB KTAB CLR,CAN,RET,ENT «, t00=0x0001, t01=0x00a4}
0x0252…025a Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x00c8}
0x025a…0262 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x00d0}
0x0262…026a Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x00d8}
0x026a…0274 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e0}
0x0274…027e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ea}
0x027e…0286 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x00f4}
0x0286…029e Head {h00=0x0014, h01=0x0050, text=»STIMO EQU X'0B' «, t00=0x0001, t01=0x00fc}
0x029e…02b6 Head {h00=0x0014, h01=0x0050, text=»ATTACH EQU X'0E'«, t00=0x0001, t01=0x0114}
0x02b6…02ce Head {h00=0x0014, h01=0x0050, text=»DETACH EQU X'0F'«, t00=0x0001, t01=0x012c}
0x02ce…02e6 Head {h00=0x0014, h01=0x0050, text=»TRPAR EQU X'00' «, t00=0x0001, t01=0x0144}
0x02e6…02f4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x015c}
0x02f4…0338 Head {h00=0x0040, h01=0x0050, text=»* THIS MODULE TAKE CARES OF THE DIFFERENT CONVERTIONS-«, t00=0x0001, t01=0x016a}
0x0338…0352 Head {h00=0x0016, h01=0x0050, text=»* -METHODS «, t00=0x0002, t01=0x001e}
0x0352…0396 Head {h00=0x0040, h01=0x0050, text=»* ONE OF THEM IS ALREADY PREPAIRED FOR YOUR PRINTOUT).«, t00=0x0002, t01=0x0038}
0x0396…03cc Head {h00=0x0032, h01=0x0050, text=»* THE OTHER YOU HAVE TO CODE YOURSELVES.«, t00=0x0002, t01=0x007c}
0x03cc…03d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b2}
0x03d6…041e Head {h00=0x0044, h01=0x0050, text=»* FORMAL PARAMETERS: FC = FUNCTION-CODE (DEVICE-CLASS)«, t00=0x0002, t01=0x00bc}
0x041e…0462 Head {h00=0x0040, h01=0x0050, text=»* = 1 DATACOMMUNICATION OUT «, t00=0x0002, t01=0x0104}
0x0462…04a4 Head {h00=0x003e, h01=0x0050, text=»* = 2 DATACOMMUNICATION IN«, t00=0x0002, t01=0x0148}
0x04a4…04e0 Head {h00=0x0038, h01=0x0050, text=»* = 3 CASETTE OUTPUT«, t00=0x0002, t01=0x018a}
0x04e0…051c Head {h00=0x0038, h01=0x0050, text=»* = 4 PRINTOUT LP/GP«, t00=0x0003, t01=0x0036}
0x051c…0552 Head {h00=0x0032, h01=0x0050, text=»* = 5 DISCFILE«, t00=0x0003, t01=0x0072}
0x0552…0590 Head {h00=0x003a, h01=0x0050, text=»* = 6 FLOPPYDISC FILE «, t00=0x0003, t01=0x00a8}
0x0590…05d8 Head {h00=0x0044, h01=0x0050, text=»* = 7 DELETE BATCHES ON USERFILE«, t00=0x0003, t01=0x00e6}
0x05d8…0622 Head {h00=0x0046, h01=0x0050, text=»* = 8 FREEZE BATCHES ON USER FILE «, t00=0x0003, t01=0x012e}
0x0622…062c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0178}
0x062c…0668 Head {h00=0x0038, h01=0x0050, text=»* TYPE = TYPE OF HANDLING«, t00=0x0003, t01=0x0182}
0x0668…069a Head {h00=0x002e, h01=0x0050, text=»* = 1 OPEN«, t00=0x0004, t01=0x002e}
0x069a…06d8 Head {h00=0x003a, h01=0x0050, text=»* = 2 BATCHHEAD-RECORD«, t00=0x0004, t01=0x0060}
0x06d8…0712 Head {h00=0x0036, h01=0x0050, text=»* = 3 DATA RECORD «, t00=0x0004, t01=0x009e}
0x0712…074e Head {h00=0x0038, h01=0x0050, text=»* = 4 BALANCE RECORD«, t00=0x0004, t01=0x00d8}
0x074e…0782 Head {h00=0x0030, h01=0x0050, text=»* = 5 CLOSE «, t00=0x0004, t01=0x0114}
0x0782…078c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0148}
0x078c…07c4 Head {h00=0x0034, h01=0x0050, text=»* RETCON = RETURN-CODE «, t00=0x0004, t01=0x0152}
0x07c4…07f4 Head {h00=0x002c, h01=0x0050, text=»* = 0 OK«, t00=0x0004, t01=0x018a}
0x07f4…0836 Head {h00=0x003e, h01=0x0050, text=»* /= 0 ERROR MESSAGE-NUMBER«, t00=0x0005, t01=0x002a}
0x0836…0880 Head {h00=0x0046, h01=0x0050, text=»* =-1 SKIP CURR BATCH, GO TO NEXT «, t00=0x0005, t01=0x006c}
0x0880…08be Head {h00=0x003a, h01=0x0050, text=»* =-2 SKIP TO BALANCE «, t00=0x0005, t01=0x00b6}
0x08be…090a Head {h00=0x0048, h01=0x0050, text=»* =-3 RESTART CURRENT BATCH (CANCEL)«, t00=0x0005, t01=0x00f4}
0x090a…0952 Head {h00=0x0044, h01=0x0050, text=»* =-4 ABORT CONVERSION (RETURN) «, t00=0x0005, t01=0x0140}
0x0952…0992 Head {h00=0x003c, h01=0x0050, text=»* =-5 DELETE THIS BATCH «, t00=0x0005, t01=0x0188}
0x0992…09d4 Head {h00=0x003e, h01=0x0050, text=»* =-6 GET CURRENT RECORD «, t00=0x0006, t01=0x0038}
0x09d4…09de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x007a}
0x09de…0a1c Head {h00=0x003a, h01=0x0050, text=»* INPUT VARIABLE: BIN4 = FC-CODE FOR DEVICE«, t00=0x0006, t01=0x0084}
0x0a1c…0a26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c2}
0x0a26…0a2a Head {h00=0x0054, h01=0x0050}
0x0a2a…0a2e Head {h00=0x2a2a, h01=0x2a2a}
0x0a2e…0a50 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 ┆**********************************┆
0x0a50…0aa0 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 06 00 cc 00 0a 00 50 5c 45 4a 45 43 54 00 06 01 24 00 1e 00 50 44 45 43 4f 4e 56 5c 50 52 4f 43 5c 46 43 2c 54 ┆***************************************** P EJECT $ PDECONV PROC FC,T┆
0x0aa0…0aee 59 50 45 2c 52 45 54 43 4f 4e 00 06 01 32 00 36 00 50 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 06 01 54 00 28 00 50 5c 5c ┆YPE,RETCON 2 6 P IB FC,TRANSM,RECEIV,CASSET JUMP ON DEVICE-CLASS C T ( P ┆
0x0aee…0b3e (7, 0, 400) 50 52 49 4e 54 41 2c 44 49 53 43 46 44 2c 46 4c 4f 50 50 59 2c 44 45 4c 45 54 45 2c 46 52 45 45 5a 45 00 06 01 8e 00 0a 00 50 52 45 43 45 49 56 00 07 00 2a 00 0a 00 50 44 49 53 43 46 44 00 07 00 38 00 0a 00 50 43 41 53 53 45 54 00 07 00 46 ┆PRINTA,DISCFD,FLOPPY,DELETE,FREEZE PRECEIV * PDISCFD 8 PCASSET F┆
0x0b3e…0b8e 00 0a 00 50 45 52 52 4f 52 20 00 07 00 54 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 62 00 0e 00 50 5c 42 5c 52 45 54 55 52 4e 20 00 07 00 90 00 0a ┆ PERROR T * P MOVE RETCON,W4 'FUNCTION NOT ALLOWED? b P B RETURN ┆
0x0b8e…0bde 00 50 5c 45 4a 45 43 54 00 07 00 a2 00 06 00 50 2a 20 00 07 00 b0 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 00 ba 00 06 00 50 2a 20 00 07 00 e8 00 0a ┆ P EJECT P* * P* THIS IS THE PRINTOUT FUNCTION P* ┆
0x0bde…0c2e 00 50 50 52 49 4e 54 41 00 07 00 f2 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 07 01 00 00 12 00 50 5c 5c ┆ PPRINTA : P IB TYPE,PR100,PR200,PR200 JUMP ON TYPE 0F HANDLING C P ┆
0x0c2e…0c7e 50 52 32 30 30 2c 50 52 35 30 30 20 00 07 01 3e 00 0c 00 50 5c 42 5c 45 52 52 4f 52 00 07 01 54 00 06 00 50 2a 20 00 07 01 64 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 ┆PR200,PR500 > P B ERROR T P* d * P* OPEN DEVICE = ATTACH PRIN┆
0x0c7e…0cce (8, 0, 400) 54 45 52 20 00 07 01 6e 00 06 00 50 2a 20 00 08 00 0c 00 0a 00 50 50 52 31 30 30 20 00 08 00 16 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 24 00 10 00 50 5c 42 4f 4b ┆TER n P* PPR100 $ P PERF ATTDEV,BIN6 ATTACH DEVICE $ P BOK┆
0x0cce…0d1e 5c 44 45 43 4f 4f 4b 20 00 08 00 4c 00 0e 00 50 5c 42 5c 52 45 54 55 52 4e 20 00 08 00 60 00 0a 00 50 5c 45 4a 45 43 54 00 08 00 72 00 06 00 50 2a 20 00 08 00 80 00 06 00 50 2a 20 00 08 00 8a 00 34 00 50 2a 20 20 20 20 20 20 20 20 50 52 49 ┆ DECOOK L P B RETURN ` P EJECT r P* P* 4 P* PRI┆
0x0d1e…0d6e 4e 54 4f 55 54 20 4f 46 20 54 48 45 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 00 94 00 06 00 50 2a 20 00 08 00 cc 00 0a 00 50 50 52 32 30 30 20 00 08 00 d6 00 1a 00 50 5c 45 44 57 52 54 5c 44 45 44 53 50 ┆NTOUT OF THE DIFFERENT RECORD TYPES P* PPR200 P EDWRT DEDSP┆
0x0d6e…0dbe 52 54 2c 46 43 4f 55 4e 54 20 00 08 00 e4 00 10 00 50 5c 42 4e 4f 4b 5c 50 52 32 39 38 20 00 08 01 02 00 14 00 50 5c 4d 4f 56 45 5c 44 45 42 49 4e 57 33 2c 57 31 00 08 01 16 00 1e 00 50 5c 50 52 49 4e 54 5c 44 45 44 53 50 52 54 2c 44 45 42 ┆RT,FCOUNT P BNOK PR298 P MOVE DEBINW3,W1 P PRINT DEDSPRT,DEB┆
0x0dbe…0e0e 49 4e 57 33 2c 57 30 20 00 08 01 2e 00 10 00 50 5c 42 4e 4f 4b 5c 50 52 32 39 38 20 00 08 01 50 00 0e 00 50 5c 42 5c 44 45 43 4f 4f 4b 20 00 08 01 64 00 0a 00 50 50 52 32 39 38 20 00 08 01 76 00 32 00 50 5c 4d 4f 56 45 5c 52 45 54 43 4f 4e ┆INW3,W0 . P BNOK PR298 P P B DECOOK d PPR298 v 2 P MOVE RETCON┆
0x0e0e…0e5e (9, 0, 398) 2c 3d 57 27 33 35 27 5c 4f 55 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 08 01 84 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 2a 00 06 00 50 2a 20 00 09 00 48 00 2a ┆,=W'35' OUTPUT DEVICE NOT OP....' P B RETURN GO AND CLOSE * P* H *┆
0x0e5e…0eae 00 50 2a 20 20 20 20 20 20 20 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 52 00 06 00 50 2a 20 00 09 00 80 00 0a 00 50 50 52 35 30 30 20 00 09 00 8a 00 1e 00 50 5c 50 45 52 46 5c 44 45 ┆ P* CLOSE DEVICE = DETACH PRINTER R P* PPR500 P PERF DE┆
0x0eae…0efe 54 50 52 54 5c 44 45 54 41 43 48 20 44 45 56 49 43 45 00 09 00 98 00 0e 00 50 5c 42 5c 52 45 54 55 52 4e 20 00 09 00 ba 00 0a 00 50 5c 45 4a 45 43 54 00 09 00 cc 00 06 00 50 2a 20 00 09 00 da 00 38 00 50 2a 20 20 20 20 20 20 20 54 48 49 53 ┆TPRT DETACH DEVICE P B RETURN P EJECT P* 8 P* THIS┆
0x0efe…0f4e 20 52 4f 55 54 49 4e 45 20 44 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 00 e4 00 06 00 50 2a 20 00 09 01 20 00 0a 00 50 44 45 4c 45 54 45 00 09 01 2a 00 1a 00 50 5c 49 42 5c 54 59 50 45 ┆ ROUTINE DELETE BATCHES ON THE USERFILE P* PDELETE * P IB TYPE┆
0x0f4e…0f9c 2c 44 45 43 4f 4f 4b 2c 44 45 4c 31 30 30 00 09 01 38 00 0e 00 50 5c 42 5c 44 45 43 4f 4f 4b 20 00 09 01 56 00 0a 00 50 44 45 4c 31 30 30 00 09 01 68 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 09 01 76 ┆,DECOOK,DEL100 8 P B DECOOK V PDEL100 h P MOVE RETCON,=W'-5' v┆
0x0f9c…0fec (10, 0, 400) 00 30 00 50 5c 43 42 4e 45 5c 57 4f 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 04 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 ┆ 0 P CBNE WORK(W8),W0,DEL110 NOT THE WHOLE FILE P MOVE DATE,HEX00 RESET D┆
0x0fec…103c 41 54 45 20 00 0a 00 38 00 0a 00 50 44 45 4c 31 31 30 00 0a 00 5c 00 0e 00 50 5c 42 5c 52 45 54 55 52 4e 20 00 0a 00 6a 00 0a 00 50 5c 45 4a 45 43 54 00 0a 00 7c 00 06 00 50 2a 20 00 0a 00 8a 00 2e 00 50 2a 20 54 48 49 53 20 52 4f 55 54 49 ┆ATE 8 PDEL110 P B RETURN j P EJECT | P* . P* THIS ROUTI┆
0x103c…108c 4e 45 20 46 52 45 45 5a 45 20 42 41 54 43 48 45 53 20 4f 4e 20 55 53 45 52 20 46 49 4c 45 00 0a 00 94 00 06 00 50 2a 20 00 0a 00 c6 00 04 00 50 00 0a 00 d0 00 0a 00 50 46 52 45 45 5a 45 00 0a 00 d8 00 38 00 50 5c 49 42 5c 54 59 50 45 2c 46 ┆NE FREEZE BATCHES ON USER FILE P* P PFREEZE 8 P IB TYPE,F┆
0x108c…10dc 52 45 31 30 30 2c 46 52 45 32 30 30 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 00 e6 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 ┆RE100,FRE200,FRE300 OPEN BATCHHEAD DATA C " P FRE400,FRE500 BALANCE CLOSE ┆
0x10dc…112c 00 0a 01 22 00 0a 00 50 5c 45 4a 45 43 54 00 0a 01 48 00 0a 00 50 2a 20 4f 50 45 4e 00 0a 01 56 00 04 00 50 00 0a 01 64 00 0a 00 50 46 52 45 31 30 30 00 0a 01 6c 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 ┆ " P EJECT H P* OPEN V P d PFRE100 l * P MOVE BIN6,=X'0036' FI┆
0x112c…117c (11, 0, 400) 4c 45 20 43 4f 44 45 20 50 52 49 4e 54 45 52 20 00 0a 01 7a 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 0b 00 18 00 10 00 50 5c 42 4f 4b 5c 46 52 45 31 31 30 20 00 0b 00 40 ┆LE CODE PRINTER z $ P PERF ATTDEV,BIN6 ATTACH DEVICE P BOK FRE110 @┆
0x117c…11cc 00 30 00 50 5c 4d 4f 56 45 5c 52 45 54 43 4f 4e 2c 3d 57 27 33 35 27 5c 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 0b 00 54 00 0e 00 50 5c 42 5c 52 45 54 55 52 4e 20 00 0b 00 88 00 0a 00 50 46 52 45 31 31 30 ┆ 0 P MOVE RETCON,=W'35' OUTPUT DEV NOT OPERABLE T P B RETURN PFRE110┆
0x11cc…121c 00 0b 00 9a 00 18 00 50 5c 4d 4f 56 45 5c 53 54 52 47 31 30 41 2c 48 45 58 30 30 20 00 0b 00 a8 00 14 00 50 5c 47 45 54 54 49 4d 45 5c 53 54 52 47 31 30 41 00 0b 00 c4 00 16 00 50 5c 4d 4f 56 45 5c 54 49 4d 45 2c 53 54 52 47 31 30 41 00 0b ┆ P MOVE STRG10A,HEX00 P GETTIME STRG10A P MOVE TIME,STRG10A ┆
0x121c…126c 00 dc 00 1a 00 50 5c 45 44 57 52 54 5c 44 45 44 53 50 52 54 2c 46 46 52 48 44 52 20 00 0b 00 f6 00 0e 00 50 5c 42 5c 44 45 43 4f 4f 4b 20 00 0b 01 14 00 0a 00 50 5c 45 4a 45 43 54 00 0b 01 26 00 0a 00 50 46 52 45 32 30 30 00 0b 01 34 00 22 ┆ P EDWRT DEDSPRT,FFRHDR P B DECOOK P EJECT & PFRE200 4 "┆
0x126c…12bc 00 50 5c 54 42 46 5c 42 44 41 46 52 4f 2c 46 52 45 32 31 30 5c 4e 4f 54 20 46 52 4f 5a 45 4e 20 00 0b 01 42 00 0a 00 50 46 52 45 32 30 35 00 0b 01 68 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 ┆ P TBF BDAFRO,FRE210 NOT FROZEN B PFRE205 h & P MOVE RETCON,=W'-1' GET NE┆
0x12bc…130c (12, 0, 400) 58 54 20 42 41 54 43 48 00 0b 01 76 00 0e 00 50 5c 42 5c 52 45 54 55 52 4e 20 00 0c 00 10 00 0a 00 50 46 52 45 32 31 30 00 0c 00 22 00 26 00 50 5c 54 42 54 5c 42 44 41 42 41 4c 2c 46 52 45 32 33 30 5c 42 41 54 43 48 20 42 41 4c 41 4e 43 45 ┆XT BATCH v P B RETURN PFRE210 " & P TBT BDABAL,FRE230 BATCH BALANCE┆
0x130c…135c 44 20 00 0c 00 30 00 18 00 50 2a 20 42 41 54 43 48 20 4e 4f 54 20 42 41 4c 41 4e 43 45 44 00 0c 00 5a 00 0a 00 50 46 52 45 32 32 30 00 0c 00 76 00 2c 00 50 5c 45 44 57 52 54 5c 44 45 44 53 50 52 54 2c 46 42 41 54 43 31 5c 50 52 49 4e 54 20 ┆D 0 P* BATCH NOT BALANCED Z PFRE220 v , P EDWRT DEDSPRT,FBATC1 PRINT ┆
0x135c…13ac 45 52 52 4f 52 20 52 45 50 4f 52 54 00 0c 00 84 00 0e 00 50 5c 42 5c 46 52 45 32 30 35 20 00 0c 00 b4 00 44 00 50 2a 20 43 48 45 43 4b 20 49 46 20 4e 4f 20 52 45 43 4f 52 44 53 20 48 41 53 20 42 45 45 4e 20 49 4e 53 45 52 54 45 44 20 49 4e ┆ERROR REPORT P B FRE205 D P* CHECK IF NO RECORDS HAS BEEN INSERTED IN┆
0x13ac…13fc 20 43 4f 4e 54 49 4e 55 45 54 49 4f 4e 20 46 4f 52 4d 41 54 53 20 00 0c 00 c6 00 0a 00 50 46 52 45 32 33 30 00 0c 01 0e 00 20 00 50 5c 4d 4f 56 45 5c 42 49 4e 38 2c 57 31 5c 4c 4f 41 44 20 46 49 45 4c 44 20 4e 4f 20 00 0c 01 1c 00 22 00 50 ┆ CONTINUETION FORMATS PFRE230 P MOVE BIN8,W1 LOAD FIELD NO " P┆
0x13fc…144c 5c 43 41 4c 4c 5c 47 45 54 46 57 44 2c 42 49 4e 37 2c 32 2c 42 49 4e 38 2c 42 49 4e 34 20 00 0c 01 40 00 16 00 50 5c 43 41 4c 4c 5c 41 44 4a 55 53 54 2c 42 49 4e 37 20 00 0c 01 66 00 1e 00 50 5c 47 45 54 43 54 4c 5c 30 2c 56 53 45 49 4e 44 ┆ CALL GETFWD,BIN7,2,BIN8,BIN4 @ P CALL ADJUST,BIN7 f P GETCTL 0,VSEIND┆
0x144c…149c (13, 0, 400) 5c 47 45 54 20 41 50 50 4c 20 00 0c 01 80 00 18 00 50 5c 43 4d 50 5c 56 53 45 49 4e 44 2c 3d 57 27 37 39 39 39 27 00 0d 00 12 00 18 00 50 5c 42 47 5c 46 52 45 32 34 30 5c 4e 4f 20 43 48 45 43 4b 20 00 0d 00 2e 00 18 00 50 5c 43 4d 50 5c 56 ┆ GET APPL P CMP VSEIND,=W'7999' P BG FRE240 NO CHECK . P CMP V┆
0x149c…14ec 53 45 49 4e 44 2c 3d 57 27 37 30 30 30 27 00 0d 00 4a 00 18 00 50 5c 42 4c 5c 46 52 45 32 33 35 5c 4e 4f 20 43 48 45 43 4b 20 00 0d 00 66 00 0a 00 50 46 52 45 32 33 32 00 0d 00 82 00 1c 00 50 5c 53 45 54 5c 43 48 4b 42 41 4c 5c 49 4e 44 20 ┆SEIND,=W'7000' J P BL FRE235 NO CHECK f PFRE232 P SET CHKBAL IND ┆
0x14ec…153c 42 41 4c 41 4e 43 45 20 00 0d 00 90 00 0e 00 50 5c 42 5c 44 45 43 4f 4f 4b 20 00 0d 00 b0 00 0a 00 50 46 52 45 32 33 35 00 0d 00 c2 00 18 00 50 5c 43 4d 50 5c 56 53 45 49 4e 44 2c 3d 57 27 32 39 39 39 27 00 0d 00 d0 00 18 00 50 5c 42 47 5c ┆BALANCE P B DECOOK PFRE235 P CMP VSEIND,=W'2999' P BG ┆
0x153c…158c 46 52 45 32 34 30 5c 4e 4f 20 43 48 45 43 4b 20 00 0d 00 ec 00 18 00 50 5c 43 4d 50 5c 56 53 45 49 4e 44 2c 3d 57 27 31 39 39 39 27 00 0d 01 08 00 0e 00 50 5c 42 47 5c 46 52 45 32 33 32 00 0d 01 24 00 0e 00 50 2a 20 4e 4f 20 43 48 45 43 4b ┆FRE240 NO CHECK P CMP VSEIND,=W'1999' P BG FRE232 $ P* NO CHECK┆
0x158c…15dc 00 0d 01 36 00 0a 00 50 46 52 45 32 34 30 00 0d 01 48 00 1a 00 50 5c 53 45 54 5c 42 44 41 46 52 4f 5c 49 4e 44 20 46 52 4f 53 45 4e 00 0d 01 56 00 0e 00 50 5c 42 5c 46 52 45 32 30 35 20 00 0d 01 74 00 0a 00 50 5c 45 4a 45 43 54 00 0d 01 86 ┆ 6 PFRE240 H P SET BDAFRO IND FROSEN V P B FRE205 t P EJECT ┆
0x15dc…162c (14, 0, 398) 00 14 00 50 2a 20 43 48 45 43 4b 20 42 41 4c 41 4e 43 45 20 00 0e 00 04 00 0a 00 50 46 52 45 33 30 30 00 0e 00 1c 00 20 00 50 5c 4d 4f 56 45 5c 42 49 4e 38 2c 57 30 5c 4c 4f 41 44 20 46 49 45 4c 44 20 4e 4f 20 00 0e 00 2a 00 0a 00 50 46 52 ┆ P* CHECK BALANCE PFRE300 P MOVE BIN8,W0 LOAD FIELD NO * PFR┆
0x162c…167c 45 33 31 30 00 0e 00 4e 00 20 00 50 5c 41 44 44 5c 42 49 4e 38 2c 57 31 5c 55 50 44 41 54 45 20 46 49 45 4c 44 20 4e 4f 00 0e 00 5c 00 22 00 50 5c 43 41 4c 4c 5c 47 45 54 46 57 44 2c 42 49 4e 37 2c 32 2c 42 49 4e 38 2c 42 49 4e 34 20 00 0e ┆E310 N P ADD BIN8,W1 UPDATE FIELD NO " P CALL GETFWD,BIN7,2,BIN8,BIN4 ┆
0x167c…16cc 00 80 00 16 00 50 5c 43 41 4c 4c 5c 41 44 4a 55 53 54 2c 42 49 4e 37 20 00 0e 00 a6 00 1e 00 50 5c 42 4e 5c 44 45 43 4f 4f 4b 5c 41 4c 4c 20 46 49 45 4c 44 20 44 4f 4e 45 20 00 0e 00 c0 00 1e 00 50 5c 47 45 54 43 54 4c 5c 30 2c 56 53 45 49 ┆ P CALL ADJUST,BIN7 P BN DECOOK ALL FIELD DONE P GETCTL 0,VSEI┆
0x16cc…171c 4e 44 5c 47 45 54 20 41 50 50 4c 20 00 0e 00 e2 00 1a 00 50 5c 43 4d 50 5c 56 53 45 49 4e 44 2c 3d 57 27 31 31 39 39 39 27 20 00 0e 01 04 00 18 00 50 5c 42 47 5c 46 52 45 33 31 30 5c 4e 4f 20 43 48 45 43 4b 20 00 0e 01 22 00 18 00 50 5c 43 ┆ND GET APPL P CMP VSEIND,=W'11999' P BG FRE310 NO CHECK " P C┆
0x171c…176a 4d 50 5c 56 53 45 49 4e 44 2c 3d 57 27 37 30 30 30 27 00 0e 01 3e 00 0e 00 50 5c 42 4c 5c 46 52 45 33 32 30 00 0e 01 5a 00 18 00 50 5c 53 55 42 5c 56 53 45 49 4e 44 2c 3d 57 27 35 30 30 30 27 00 0e 01 6c 00 0a 00 50 46 52 45 33 32 30 ┆MP VSEIND,=W'7000' > P BL FRE320 Z P SUB VSEIND,=W'5000' l PFRE320┆
0x176a…17ba (15, 0, 400) 00 0e 01 88 00 18 00 50 5c 43 4d 50 5c 56 53 45 49 4e 44 2c 3d 57 27 32 30 30 30 27 00 0f 00 08 00 18 00 50 5c 42 4c 5c 46 52 45 33 31 30 5c 4e 4f 20 43 48 45 43 4b 20 00 0f 00 24 00 2e 00 50 5c 43 4d 50 5c 56 53 45 49 4e 44 2c 3d 57 27 32 ┆ P CMP VSEIND,=W'2000' P BL FRE310 NO CHECK $ . P CMP VSEIND,=W'2┆
0x17ba…180a 39 39 39 27 5c 53 54 41 52 54 20 4f 46 20 41 43 43 55 4d 55 4c 41 54 49 4f 4e 00 0f 00 40 00 12 00 50 5c 42 47 5c 46 52 45 33 33 30 5c 4e 4f 20 00 0f 00 72 00 0a 00 50 5c 45 4a 45 43 54 00 0f 00 88 00 14 00 50 2a 20 41 43 43 20 31 20 48 41 ┆999' START OF ACCUMULATION @ P BG FRE330 NO r P EJECT P* ACC 1 HA┆
0x180a…185a 4e 44 4c 49 4e 47 00 0f 00 96 00 10 00 50 2a 20 4c 4f 41 44 20 41 43 43 20 31 00 0f 00 ae 00 1a 00 50 2a 20 53 50 45 43 20 48 41 4e 44 4c 49 4e 47 20 3d 32 58 58 58 20 00 0f 00 c2 00 0a 00 50 46 52 45 33 32 35 00 0f 00 e0 00 20 00 50 5c 53 ┆NDLING P* LOAD ACC 1 P* SPEC HANDLING =2XXX PFRE325 P S┆
0x185a…18aa 45 54 5c 43 48 4b 41 43 43 31 5c 49 4e 44 20 41 43 43 2e 20 43 48 45 43 4b 20 00 0f 00 ee 00 16 00 50 5c 42 4e 5a 5c 46 52 45 33 38 30 5c 43 48 45 43 4b 20 00 0f 01 12 00 26 00 50 5c 4d 4f 56 45 5c 42 43 44 49 32 31 28 57 34 29 2c 3a 46 4d ┆ET CHKACC1 IND ACC. CHECK P BNZ FRE380 CHECK & P MOVE BCDI21(W4),:FM┆
0x18aa…18fa 54 49 54 45 4d 5c 53 41 56 45 20 53 55 4d 00 0f 01 2c 00 0e 00 50 5c 42 5c 46 52 45 33 31 30 20 00 0f 01 56 00 1c 00 50 2a 20 41 43 43 55 4d 55 4c 41 54 49 4f 4e 20 4f 46 20 41 43 43 20 31 20 00 0f 01 68 00 1a 00 50 2a 20 53 50 45 43 20 48 ┆TITEM SAVE SUM , P B FRE310 V P* ACCUMULATION OF ACC 1 h P* SPEC H┆
0x18fa…1900 (16, 0, 400) 41 4e 44 4c 49 4e ┆ANDLIN┆
0x1900…1950 47 20 3d 33 58 58 58 20 00 0f 01 88 00 0a 00 50 46 52 45 33 33 30 00 10 00 16 00 18 00 50 5c 43 4d 50 5c 56 53 45 49 4e 44 2c 3d 57 27 33 39 39 39 27 00 10 00 24 00 1e 00 50 5c 42 47 5c 46 52 45 33 35 30 5c 41 43 43 20 32 20 48 41 4e 44 4c ┆G =3XXX PFRE330 P CMP VSEIND,=W'3999' $ P BG FRE350 ACC 2 HANDL┆
0x1950…19a0 49 4e 47 20 00 10 00 40 00 1c 00 50 5c 53 55 42 5c 42 43 44 49 32 31 28 57 34 29 2c 3a 46 4d 54 49 54 45 4d 00 10 00 62 00 0e 00 50 5c 42 5c 46 52 45 33 31 30 20 00 10 00 82 00 0a 00 50 5c 45 4a 45 43 54 00 10 00 94 00 14 00 50 2a 20 41 43 ┆ING @ P SUB BCDI21(W4),:FMTITEM b P B FRE310 P EJECT P* AC┆
0x19a0…19f0 43 20 32 20 48 41 4e 44 4c 49 4e 47 00 10 00 a2 00 10 00 50 2a 20 4c 4f 41 44 20 41 43 43 20 32 00 10 00 ba 00 1a 00 50 2a 20 53 50 45 43 20 48 41 4e 44 4c 49 4e 47 20 3d 34 58 58 58 20 00 10 00 ce 00 0a 00 50 46 52 45 33 35 30 00 10 00 ec ┆C 2 HANDLING P* LOAD ACC 2 P* SPEC HANDLING =4XXX PFRE350 ┆
0x19f0…1a2e 00 18 00 50 5c 43 4d 50 5c 56 53 45 49 4e 44 2c 3d 57 27 34 39 39 39 27 00 10 00 fa 00 0e 00 50 5c 42 47 5c 46 52 45 33 36 30 00 10 01 16 00 0a 00 50 46 52 45 33 35 35 00 10 01 28 00 22 ┆ P CMP VSEIND,=W'4999' P BG FRE360 PFRE355 ( "┆
0x1a2e…663c […elided…]
0x663c…6680 00 50 5c 46 4d 45 4e 44 00 41 00 c2 00 0a 00 50 5c 45 4a 45 43 54 00 41 00 d0 00 10 00 50 46 42 41 54 43 31 5c 46 52 4d 54 20 00 41 00 de 00 12 00 50 5c 46 4c 49 4e 4b 5c 46 42 41 54 43 48 20 00 41 00 f2 ┆ P FMEND A P EJECT A PFBATC1 FRMT A P FLINK FBATCH A ┆
0x6680…66d0 00 18 00 50 5c 46 54 45 58 54 5c 27 45 4a 20 41 56 53 54 5b 4d 44 27 20 00 41 01 08 00 0a 00 50 5c 46 45 4f 52 20 00 41 01 24 00 08 00 50 5c 46 4e 4c 00 41 01 32 00 0a 00 50 5c 46 4d 45 4e 44 00 41 01 3e 00 04 00 50 00 41 01 4c 00 10 00 50 ┆ P FTEXT 'EJ AVST[MD' A P FEOR A $ P FNL A 2 P FMEND A > P A L P┆
0x66d0…670c 46 42 41 54 43 32 5c 46 52 4d 54 20 00 41 01 54 00 12 00 50 5c 46 4c 49 4e 4b 5c 46 42 41 54 43 48 20 00 41 01 68 00 16 00 50 5c 46 54 45 58 54 5c 27 4e 55 4d 42 45 52 3a 20 27 20 ┆FBATC2 FRMT A T P FLINK FBATCH A h P FTEXT 'NUMBER: ' ┆
0x670c…675c (66, 0, 400) 00 41 01 7e 00 18 00 50 20 46 4d 45 4c 20 27 39 39 39 39 27 2c 42 43 44 31 33 41 20 00 42 00 08 00 10 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 34 00 42 00 24 00 18 00 50 5c 46 54 45 58 54 5c 27 4d 49 53 53 54 5b 4d 4d 45 52 27 20 00 42 00 38 ┆ A ~ P FMEL '9999',BCD13A B P FILLR ' ',4 B $ P FTEXT 'MISST[MMER' B 8┆
0x675c…67ac 00 0a 00 50 5c 46 45 4f 52 20 00 42 00 54 00 08 00 50 5c 46 4e 4c 00 42 00 62 00 0a 00 50 5c 46 4d 45 4e 44 00 42 00 6e 00 04 00 50 00 42 00 7c 00 10 00 50 46 42 41 54 43 33 5c 46 52 4d 54 20 00 42 00 84 00 12 00 50 5c 46 4c 49 4e 4b 5c 46 ┆ P FEOR B T P FNL B b P FMEND B n P B | PFBATC3 FRMT B P FLINK F┆
0x67ac…67fc 42 41 54 43 48 20 00 42 00 98 00 18 00 50 5c 46 54 45 58 54 5c 27 45 4a 20 47 4f 44 4b 45 4e 44 54 27 00 42 00 ae 00 0a 00 50 5c 46 45 4f 52 20 00 42 00 ca 00 0a 00 50 5c 46 4d 45 4e 44 00 42 00 d8 00 04 00 50 00 42 00 e6 00 10 00 50 46 42 ┆BATCH B P FTEXT 'EJ GODKENDT' B P FEOR B P FMEND B P B PFB┆
0x67fc…684c 41 54 43 48 5c 46 52 4d 54 20 00 42 00 ee 00 08 00 50 5c 46 4e 4c 00 42 01 02 00 0a 00 50 5c 46 45 4f 52 20 00 42 01 0e 00 08 00 50 5c 46 4e 4c 00 42 01 1c 00 16 00 50 5c 46 54 45 58 54 5c 27 4a 4f 42 4e 41 4d 45 3a 20 27 00 42 01 28 00 12 ┆ATCH FRMT B P FNL B P FEOR B P FNL B P FTEXT 'JOBNAME: ' B ( ┆
0x684c…689c 00 50 5c 46 43 4f 50 59 5c 4a 4f 42 4e 41 4d 45 00 42 01 42 00 10 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 34 00 42 01 58 00 18 00 50 5c 46 54 45 58 54 5c 27 42 41 54 43 48 4e 41 4d 45 3a 20 27 00 42 01 6c 00 10 00 50 5c 46 43 4f 50 59 5c 42 ┆ P FCOPY JOBNAME B B P FILLR ' ',4 B X P FTEXT 'BATCHNAME: ' B l P FCOPY B┆
0x689c…68ec (67, 0, 398) 41 54 43 48 00 42 01 88 00 10 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 34 00 43 00 0c 00 0a 00 50 5c 46 4d 45 4e 44 00 43 00 20 00 04 00 50 00 43 00 2e 00 12 00 50 46 4d 54 42 41 54 43 48 20 46 52 4d 54 20 00 43 00 36 00 10 00 50 20 46 43 4f ┆ATCH B P FILLR ' ',4 C P FMEND C P C . PFMTBATCH FRMT C 6 P FCO┆
0x68ec…693c 50 59 20 42 41 54 43 48 00 43 00 4c 00 0a 00 50 20 46 4d 45 4e 44 00 43 00 60 00 04 00 50 00 43 00 6e 00 10 00 50 46 44 43 48 44 52 5c 46 52 4d 54 20 00 43 00 76 00 08 00 50 5c 46 4e 4c 00 43 00 8a 00 0a 00 50 5c 46 45 4f 52 20 00 43 00 96 ┆PY BATCH C L P FMEND C ` P C n PFDCHDR FRMT C v P FNL C P FEOR C ┆
0x693c…698c 00 08 00 50 5c 46 4e 4c 00 43 00 a4 00 16 00 50 5c 46 54 45 58 54 5c 27 53 5b 4e 44 4e 49 4e 47 27 20 00 43 00 b0 00 0e 00 50 5c 46 4c 49 4e 4b 5c 48 44 52 00 43 00 ca 00 0a 00 50 5c 46 4d 45 4e 44 00 43 00 dc 00 10 00 50 46 44 43 45 4e 44 ┆ P FNL C P FTEXT 'S[NDNING' C P FLINK HDR C P FMEND C PFDCEND┆
0x698c…69dc 5c 46 52 4d 54 20 00 43 00 ea 00 08 00 50 5c 46 4e 4c 00 43 00 fe 00 0a 00 50 5c 46 45 4f 52 20 00 43 01 0a 00 08 00 50 5c 46 4e 4c 00 43 01 18 00 16 00 50 5c 46 54 45 58 54 5c 27 53 5b 4e 44 4e 49 4e 47 27 20 00 43 01 24 00 12 00 50 5c 46 ┆ FRMT C P FNL C P FEOR C P FNL C P FTEXT 'S[NDNING' C $ P F┆
0x69dc…6a2a 54 45 58 54 5c 27 20 4b 4c 41 52 27 00 43 01 3e 00 0e 00 50 5c 46 4c 49 4e 4b 5c 48 44 52 00 43 01 54 00 0a 00 50 5c 46 45 4f 52 20 00 43 01 66 00 08 00 50 5c 46 4e 4c 00 43 01 74 00 0a 00 50 5c 46 4d 45 4e 44 00 43 01 80 00 04 00 50 ┆TEXT ' KLAR' C > P FLINK HDR C T P FEOR C f P FNL C t P FMEND C P┆
0x6a2a…6a7a (68, 0, 400) 00 43 01 8e 00 10 00 50 46 44 43 45 52 52 5c 46 52 4d 54 20 00 44 00 08 00 08 00 50 5c 46 4e 4c 00 44 00 1c 00 0a 00 50 5c 46 45 4f 52 20 00 44 00 28 00 08 00 50 5c 46 4e 4c 00 44 00 36 00 16 00 50 5c 46 54 45 58 54 5c 27 53 5b 4e 44 4e 49 ┆ C PFDCERR FRMT D P FNL D P FEOR D ( P FNL D 6 P FTEXT 'S[NDNI┆
0x6a7a…6aca 4e 47 27 20 00 44 00 42 00 16 00 50 5c 46 54 45 58 54 5c 27 20 41 56 42 52 59 54 53 27 20 00 44 00 5c 00 0e 00 50 5c 46 4c 49 4e 4b 5c 48 44 52 00 44 00 76 00 0a 00 50 5c 46 45 4f 52 20 00 44 00 88 00 08 00 50 5c 46 4e 4c 00 44 00 96 00 0a ┆NG' D B P FTEXT ' AVBRYTS' D P FLINK HDR D v P FEOR D P FNL D ┆
0x6aca…6b1a 00 50 5c 46 4d 45 4e 44 00 44 00 a2 00 04 00 50 00 44 00 b0 00 10 00 50 46 46 52 48 44 52 5c 46 52 4d 54 20 00 44 00 b8 00 08 00 50 5c 46 4e 4c 00 44 00 cc 00 0a 00 50 5c 46 45 4f 52 20 00 44 00 d8 00 08 00 50 5c 46 4e 4c 00 44 00 e6 00 16 ┆ P FMEND D P D PFFRHDR FRMT D P FNL D P FEOR D P FNL D ┆
0x6b1a…6b6a 00 50 5c 46 54 45 58 54 5c 27 46 52 59 53 4e 49 4e 47 20 27 00 44 00 f2 00 0e 00 50 5c 46 4c 49 4e 4b 5c 48 44 52 00 44 01 0c 00 0a 00 50 5c 46 4d 45 4e 44 00 44 01 1e 00 04 00 50 00 44 01 2c 00 10 00 50 46 46 52 45 4e 44 5c 46 52 4d 54 20 ┆ P FTEXT 'FRYSNING ' D P FLINK HDR D P FMEND D P D , PFFREND FRMT ┆
0x6b6a…6bba 00 44 01 34 00 08 00 50 5c 46 4e 4c 00 44 01 48 00 0a 00 50 5c 46 45 4f 52 20 00 44 01 54 00 08 00 50 5c 46 4e 4c 00 44 01 62 00 1a 00 50 5c 46 54 45 58 54 5c 27 46 52 59 53 4e 49 4e 47 20 4b 4c 41 52 27 00 44 01 6e 00 0e 00 50 5c 46 4c 49 ┆ D 4 P FNL D H P FEOR D T P FNL D b P FTEXT 'FRYSNING KLAR' D n P FLI┆
0x6bba…6c0a (69, 0, 398) 4e 4b 5c 48 44 52 00 44 01 8c 00 0a 00 50 5c 46 45 4f 52 20 00 45 00 0e 00 08 00 50 5c 46 4e 4c 00 45 00 1c 00 0a 00 50 5c 46 4d 45 4e 44 00 45 00 28 00 04 00 50 00 45 00 36 00 10 00 50 46 46 44 48 44 52 5c 46 52 4d 54 20 00 45 00 3e 00 08 ┆NK HDR D P FEOR E P FNL E P FMEND E ( P E 6 PFFDHDR FRMT E > ┆
0x6c0a…6c5a 00 50 5c 46 4e 4c 00 45 00 52 00 0a 00 50 5c 46 45 4f 52 20 00 45 00 5e 00 08 00 50 5c 46 4e 4c 00 45 00 6c 00 22 00 50 5c 46 54 45 58 54 5c 27 46 4c 4f 50 50 59 20 44 49 53 43 20 53 4b 52 49 56 4e 49 4e 47 27 00 45 00 78 00 0e 00 50 5c 46 ┆ P FNL E R P FEOR E ^ P FNL E l " P FTEXT 'FLOPPY DISC SKRIVNING' E x P F┆
0x6c5a…6caa 4c 49 4e 4b 5c 48 44 52 00 45 00 9e 00 0a 00 50 5c 46 4d 45 4e 44 00 45 00 b0 00 04 00 50 00 45 00 be 00 10 00 50 46 46 44 45 4e 44 5c 46 52 4d 54 20 00 45 00 c6 00 08 00 50 5c 46 4e 4c 00 45 00 da 00 0a 00 50 5c 46 45 4f 52 20 00 45 00 e6 ┆LINK HDR E P FMEND E P E PFFDEND FRMT E P FNL E P FEOR E ┆
0x6caa…6cfa 00 08 00 50 5c 46 4e 4c 00 45 00 f4 00 22 00 50 5c 46 54 45 58 54 5c 27 46 4c 4f 50 50 59 20 44 49 53 43 20 53 4b 52 49 56 4e 49 4e 47 27 00 45 01 00 00 12 00 50 5c 46 54 45 58 54 5c 27 20 4b 4c 41 52 27 00 45 01 26 00 0e 00 50 5c 46 4c 49 ┆ P FNL E " P FTEXT 'FLOPPY DISC SKRIVNING' E P FTEXT ' KLAR' E & P FLI┆
0x6cfa…6d48 4e 4b 5c 48 44 52 00 45 01 3c 00 0a 00 50 5c 46 45 4f 52 20 00 45 01 4e 00 08 00 50 5c 46 4e 4c 00 45 01 5c 00 0a 00 50 5c 46 4d 45 4e 44 00 45 01 68 00 04 00 50 00 45 01 76 00 10 00 50 46 46 44 45 52 52 5c 46 52 4d 54 20 00 45 01 7e ┆NK HDR E < P FEOR E N P FNL E P FMEND E h P E v PFFDERR FRMT E ~┆
0x6d48…6d98 (70, 0, 400) 00 08 00 50 5c 46 4e 4c 00 46 00 04 00 0a 00 50 5c 46 45 4f 52 20 00 46 00 10 00 08 00 50 5c 46 4e 4c 00 46 00 1e 00 22 00 50 5c 46 54 45 58 54 5c 27 46 4c 4f 50 50 59 20 44 49 53 43 20 53 4b 52 49 56 4e 49 4e 47 27 00 46 00 2a 00 16 00 50 ┆ P FNL F P FEOR F P FNL F " P FTEXT 'FLOPPY DISC SKRIVNING' F * P┆
0x6d98…6de8 5c 46 54 45 58 54 5c 27 20 41 46 42 52 59 44 45 53 27 00 46 00 50 00 0e 00 50 5c 46 4c 49 4e 4b 5c 48 44 52 00 46 00 6a 00 0a 00 50 5c 46 45 4f 52 20 00 46 00 7c 00 08 00 50 5c 46 4e 4c 00 46 00 8a 00 0a 00 50 5c 46 4d 45 4e 44 00 46 00 96 ┆ FTEXT ' AFBRYDES' F P P FLINK HDR F j P FEOR F | P FNL F P FMEND F ┆
0x6de8…6e38 00 04 00 50 00 46 00 a4 00 0c 00 50 48 44 52 5c 46 52 4d 54 00 46 00 ac 00 10 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 34 00 46 00 bc 00 14 00 50 5c 46 54 45 58 54 5c 27 44 41 54 4f 3a 20 20 27 00 46 00 d0 00 1a 00 50 5c 46 4d 45 4c 5c 27 39 ┆ P F PHDR FRMT F P FILLR ' ',4 F P FTEXT 'DATO: ' F P FMEL '9┆
0x6e38…6e88 39 2d 39 39 2d 39 39 27 2c 44 41 54 45 20 00 46 00 e8 00 10 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 34 00 46 01 06 00 12 00 50 5c 46 54 45 58 54 5c 27 54 49 44 3a 20 27 00 46 01 1a 00 1a 00 50 5c 46 4d 45 4c 5c 27 39 39 2d 39 39 2d 39 39 27 ┆9-99-99',DATE F P FILLR ' ',4 F P FTEXT 'TID: ' F P FMEL '99-99-99'┆
0x6e88…6ed8 2c 54 49 4d 45 20 00 46 01 30 00 0a 00 50 5c 46 45 4f 52 20 00 46 01 4e 00 08 00 50 5c 46 4e 4c 00 46 01 5c 00 0a 00 50 5c 46 4d 45 4e 44 00 46 01 68 00 0a 00 50 5c 45 4a 45 43 54 00 46 01 76 00 10 00 50 46 43 41 53 30 32 5c 46 52 4d 54 20 ┆,TIME F 0 P FEOR F N P FNL F P FMEND F h P EJECT F v PFCAS02 FRMT ┆
0x6ed8…6f28 (71, 0, 400) 00 46 01 84 00 08 00 50 5c 46 53 4c 00 47 00 08 00 16 00 50 5c 46 43 4f 50 59 5c 3d 43 27 44 45 56 49 43 45 27 20 00 47 00 14 00 10 00 50 5c 46 49 4c 4c 52 5c 27 3a 27 2c 31 00 47 00 2e 00 0c 00 50 5c 46 49 4e 50 5c 39 20 00 47 00 42 00 16 ┆ F P FSL G P FCOPY =C'DEVICE' G P FILLR ':',1 G . P FINP 9 G B ┆
0x6f28…6f78 00 50 5c 46 43 4f 50 59 5c 53 54 53 41 56 45 28 57 33 29 20 00 47 00 52 00 0c 00 50 5c 46 54 41 42 5c 32 30 00 47 00 6c 00 14 00 50 5c 46 43 4f 50 59 5c 3d 43 27 46 49 4c 45 27 20 00 47 00 7c 00 10 00 50 5c 46 49 4c 4c 52 5c 27 2d 27 2c 31 ┆ P FCOPY STSAVE(W3) G R P FTAB 20 G l P FCOPY =C'FILE' G | P FILLR '-',1┆
0x6f78…6fc8 00 47 00 94 00 14 00 50 5c 46 43 4f 50 59 5c 3d 43 27 4e 41 4d 45 27 20 00 47 00 a8 00 10 00 50 5c 46 49 4c 4c 52 5c 27 3a 27 2c 31 00 47 00 c0 00 0c 00 50 5c 46 49 4e 50 5c 33 32 00 47 00 d4 00 10 00 50 20 46 43 4f 50 59 20 53 54 52 38 42 ┆ G P FCOPY =C'NAME' G P FILLR ':',1 G P FINP 32 G P FCOPY STR8B┆
0x6fc8…7018 00 47 00 e4 00 08 00 50 5c 46 4e 4c 00 47 00 f8 00 20 00 50 5c 46 43 4f 50 59 5c 3d 43 27 45 58 50 49 52 41 54 49 4f 4e 20 44 41 54 45 3a 27 20 00 47 01 04 00 0c 00 50 5c 46 49 4e 50 5c 33 32 00 47 01 28 00 10 00 50 5c 46 43 4f 50 59 5c 53 ┆ G P FNL G P FCOPY =C'EXPIRATION DATE:' G P FINP 32 G ( P FCOPY S┆
0x7018…7068 54 52 36 41 00 47 01 38 00 08 00 50 5c 46 4e 4c 00 47 01 4c 00 28 00 50 5c 46 43 4f 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 47 01 58 00 0c 00 50 5c 46 49 4e 50 5c 33 32 00 47 01 84 ┆TR6A G 8 P FNL G L ( P FCOPY =C'OLD DATA SET IDENTIFIER:' G X P FINP 32 G ┆
0x7068…70b8 (72, 0, 400) 00 10 00 50 5c 46 43 4f 50 59 5c 53 54 52 38 41 00 48 00 04 00 08 00 50 5c 46 4e 4c 00 48 00 18 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 48 00 24 00 0c 00 50 5c 46 ┆ P FCOPY STR8A H P FNL H & P FCOPY =C'OLD VOLUME SEQUENCE NO:' H $ P F┆
0x70b8…7108 49 4e 50 5c 33 32 00 48 00 4e 00 10 00 50 5c 46 43 4f 50 59 5c 53 54 52 32 41 00 48 00 5e 00 08 00 50 5c 46 4e 4c 00 48 00 72 00 0a 00 50 5c 46 4b 49 5c 31 00 48 00 7e 00 10 00 50 5c 46 43 4f 50 59 5c 48 45 58 30 30 00 48 00 8c 00 0a 00 50 ┆INP 32 H N P FCOPY STR2A H ^ P FNL H r P FKI 1 H ~ P FCOPY HEX00 H P┆
0x7108…7158 5c 46 4d 45 4e 44 00 48 00 a0 00 0a 00 50 5c 45 4a 45 43 54 00 48 00 ae 00 10 00 50 46 52 4d 43 39 39 5c 46 52 4d 54 20 00 48 00 bc 00 08 00 50 5c 46 53 4c 00 48 00 d0 00 12 00 50 5c 46 4c 49 4e 4b 5c 46 46 44 39 39 39 20 00 48 00 dc 00 0a ┆ FMEND H P EJECT H PFRMC99 FRMT H P FSL H P FLINK FFD999 H ┆
0x7158…71a8 00 50 5c 46 4d 45 4e 44 00 48 00 f2 00 04 00 50 00 48 01 00 00 10 00 50 46 46 44 30 30 31 5c 46 52 4d 54 20 00 48 01 08 00 12 00 50 5c 46 43 4f 50 59 5c 3d 43 27 30 30 31 27 00 48 01 1c 00 18 00 50 5c 46 4d 45 4c 5c 27 39 39 39 39 39 39 27 ┆ P FMEND H P H PFFD001 FRMT H P FCOPY =C'001' H P FMEL '999999'┆
0x71a8…71f8 2c 44 41 54 45 20 00 48 01 32 00 12 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 36 30 20 00 48 01 4e 00 12 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 35 36 20 00 48 01 64 00 0a 00 50 5c 46 4d 45 4e 44 00 48 01 7a 00 04 00 50 00 48 01 88 00 10 00 50 ┆,DATE H 2 P FILLR ' ',60 H N P FILLR ' ',56 H d P FMEND H z P H P┆
0x71f8…7248 (73, 0, 400) 46 46 44 39 39 39 5c 46 52 4d 54 20 00 48 01 90 00 14 00 50 20 46 54 45 58 54 20 3d 43 27 53 4c 55 54 44 27 00 49 00 14 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 49 00 2c 00 12 00 50 5c 46 49 4c ┆FFD999 FRMT H P FTEXT =C'SLUTD' I P FMEL '99999',BCDI21(W5) I , P FIL┆
0x7248…7298 4c 52 5c 27 20 27 2c 36 30 20 00 49 00 4c 00 12 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 36 32 20 00 49 00 62 00 0a 00 50 5c 46 4d 45 4e 44 00 49 00 78 00 0a 00 50 5c 45 4a 45 43 54 00 49 00 86 00 10 00 50 46 52 4d 41 4c 50 5c 46 52 4d 54 20 ┆LR ' ',60 I L P FILLR ' ',62 I b P FMEND I x P EJECT I PFRMALP FRMT ┆
0x7298…72e8 00 49 00 94 00 14 00 50 5c 46 43 4f 50 59 5c 3a 46 4d 54 49 54 45 4d 20 00 49 00 a8 00 0a 00 50 5c 46 4d 45 4e 44 00 49 00 c0 00 04 00 50 00 49 00 ce 00 04 00 50 00 49 00 d6 00 10 00 50 46 52 4d 42 43 44 5c 46 52 4d 54 20 00 49 00 de 00 2a ┆ I P FCOPY :FMTITEM I P FMEND I P I P I PFRMBCD FRMT I *┆
0x72e8…7338 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 27 2c 3a 46 4d 54 49 54 45 4d 00 49 00 f2 00 0a 00 50 5c 46 4d 45 4e 44 00 49 01 20 00 04 00 50 00 49 01 2e 00 10 00 50 46 52 4d 54 43 44 20 46 52 4d ┆ P FMEL '999999999999999999999',:FMTITEM I P FMEND I P I . PFRMTCD FRM┆
0x7338…7388 54 20 00 49 01 36 00 2a 00 50 20 46 4d 45 4c 20 27 54 54 54 54 54 54 54 54 54 54 54 54 54 54 54 54 54 54 54 54 39 27 2c 3a 46 4d 54 49 54 45 4d 00 49 01 4a 00 0a 00 50 20 46 4d 45 4e 44 00 49 01 78 00 04 00 50 00 49 01 86 00 10 00 50 46 52 ┆T I 6 * P FMEL 'TTTTTTTTTTTTTTTTTTTT9',:FMTITEM I J P FMEND I x P I PFR┆
0x7388…73d8 (74, 2, 284) 4d 54 43 53 20 46 52 4d 54 20 00 49 01 8e 00 2c 00 50 20 46 4d 45 4c 20 27 54 54 54 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 4a 00 12 00 0a 00 50 20 46 4d 45 4e 44 00 4a 00 42 00 0a 00 50 ┆MTCS FRMT I , P FMEL 'TTTTTTTTTTTTTTTTTTTT9-',:FMTITEM J P FMEND J B P┆
0x73d8…7428 5c 45 4a 45 43 54 00 4a 00 50 00 10 00 50 46 52 4d 42 43 53 5c 46 52 4d 54 20 00 4a 00 5e 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 4a 00 72 00 0a ┆ EJECT J P PFRMBCS FRMT J ^ , P FMEL '999999999999999999999-',:FMTITEM J r ┆
0x7428…7478 00 50 5c 46 4d 45 4e 44 00 4a 00 a2 00 04 00 50 00 4a 00 b0 00 04 00 50 00 4a 00 b8 00 10 00 50 46 52 4d 54 49 44 5c 46 52 4d 54 20 00 4a 00 c0 00 16 00 50 5c 46 4d 45 4c 5c 27 39 39 39 27 2c 42 43 44 31 33 41 00 4a 00 d4 00 0a 00 50 5c 46 ┆ P FMEND J P J P J PFRMTID FRMT J P FMEL '999',BCD13A J P F┆
0x7478…74a4 4d 45 4e 44 00 4a 00 ee 00 04 00 50 00 4a 00 fc 00 04 00 50 00 4a 01 04 00 08 00 50 5c 45 4e 44 00 4a 01 0c 40 04 00 00 00 4a 01 18 ┆MEND J P J P J P END J @ J ┆
0x74a4…74ac (75, 1, 8) 20 04 00 00 00 4b 00 04 ┆ K ┆
0x74ac…74fc (76, 0, 400) 3a 44 55 35 30 2d 02 1c c8 44 3a 44 55 36 30 41 c8 5a 3a 44 55 36 30 41 c8 44 3a 44 55 37 30 30 c8 5a 3a 44 55 37 30 46 c8 44 3a 44 55 38 30 20 c8 5a 3a 44 55 38 30 2e c8 44 3a 44 55 39 30 2d 02 0c c8 5a 3a 44 55 39 30 00 c8 44 3a 43 42 36 ┆:DU50- D:DU60A Z:DU60A D:DU700 Z:DU70F D:DU80 Z:DU80. D:DU90- Z:DU90 D:CB6┆
0x74fc…754c 30 c4 c8 43 3a 43 42 36 30 00 07 04 00 00 00 51 00 62 00 00 00 2c 5a 3a 44 55 31 30 01 a1 00 01 00 01 38 31 30 37 32 32 00 00 00 00 05 05 c8 5a 3a 44 55 31 30 44 00 04 07 04 00 00 00 01 00 04 00 00 00 2c 44 3a 44 55 31 30 01 a2 00 01 00 01 ┆0 C:CB60 Q b ,Z:DU10 810722 Z:DU10D ,D:DU10 ┆
0x754c…759c 38 31 30 37 32 32 00 00 00 00 05 05 c8 44 3a 44 55 31 30 44 00 02 07 04 00 00 3a 44 00 02 00 00 00 2c 5a 3a 44 55 32 30 01 a3 00 01 00 01 38 31 30 37 32 32 00 00 00 00 05 05 c8 5a 3a 44 55 32 30 44 00 04 07 04 00 00 00 01 00 04 00 00 00 2c ┆810722 D:DU10D :D ,Z:DU20 810722 Z:DU20D ,┆
0x759c…75ec 44 3a 44 55 32 30 01 a4 00 01 00 01 38 31 30 37 32 32 00 00 00 00 05 05 c8 44 3a 44 55 32 30 44 00 02 07 04 00 00 3a 44 00 02 00 00 00 2c 5a 3a 44 55 33 30 01 a5 00 01 00 01 38 31 30 37 32 32 00 00 00 00 05 05 c8 5a 3a 44 55 33 30 44 00 04 ┆D:DU20 810722 D:DU20D :D ,Z:DU30 810722 Z:DU30D ┆
0x75ec…763c 07 04 00 00 00 01 00 04 00 00 00 2c 44 3a 44 55 33 30 01 a6 00 01 00 01 38 31 30 37 32 32 00 00 00 00 05 05 c8 44 3a 44 55 33 30 44 00 02 07 04 00 00 3a 44 00 02 00 00 00 2c 5a 3a 44 55 34 30 01 a7 00 01 00 01 38 31 30 37 32 32 00 00 00 00 ┆ ,D:DU30 810722 D:DU30D :D ,Z:DU40 810722 ┆