|
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: 33400 (0x8278)
Notes: pts_type(SC)
Names: »DECONV.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »SHBAPL/DECONV.SC«
IDENT DECONV REL=1.0 VER=1 80-12-18/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-18/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=0x000c, text=» DDUM DEDDIV«, t00=0x0000, t01=0x0052}
0x0062…0070 Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x0066}
0x0070…0086 Head {h00=0x0012, h01=0x000d, text=» ENTRY DECONV «, t00=0x0000, t01=0x0074}
0x0086…008e Head {h00=0x0004, h01=0x0002, t00=0x0000, t01=0x008a}
0x008e…0096 Head {h00=0x0004, h01=0x0002, t00=0x0000, t01=0x0092}
0x0096…00aa Head {h00=0x0010, h01=0x000b, text=» EXT DEPOOL «, t00=0x0000, t01=0x009a}
0x00aa…00bc Head {h00=0x000e, h01=0x000a, 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=0x0013, text=»CLR EQU X'8F' CLEAR «, t00=0x0001, t01=0x002a}
0x01d0…01ec Head {h00=0x0018, h01=0x0014, text=»CAN EQU X'91' CANCEL«, t00=0x0001, t01=0x0046}
0x01ec…0208 Head {h00=0x0018, h01=0x0014, 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=0x0006, 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…7278 […elided…]
0x7278…72b0 5c 46 52 4d 54 20 00 49 00 7a 00 08 00 50 5c 46 4e 4c 00 49 00 8e 00 0a 00 50 5c 46 45 4f 52 20 00 49 00 9a 00 08 00 50 5c 46 4e 4c 00 49 00 a8 00 22 00 50 5c 46 54 45 ┆ FRMT I z P FNL I P FEOR I P FNL I " P FTE┆
0x72b0…7300 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 49 00 b4 00 16 00 50 5c 46 54 45 58 54 5c 27 20 41 56 42 52 59 54 53 27 20 00 49 00 da 00 0e 00 50 5c 46 4c 49 4e 4b 5c 48 44 52 00 49 00 f4 00 0a 00 50 5c 46 ┆XT 'FLOPPY DISC SKRIVNING' I P FTEXT ' AVBRYTS' I P FLINK HDR I P F┆
0x7300…7350 45 4f 52 20 00 49 01 06 00 08 00 50 5c 46 4e 4c 00 49 01 14 00 0a 00 50 5c 46 4d 45 4e 44 00 49 01 20 00 04 00 50 00 49 01 2e 00 0c 00 50 48 44 52 5c 46 52 4d 54 00 49 01 36 00 10 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 34 00 49 01 46 00 14 ┆EOR I P FNL I P FMEND I P I . PHDR FRMT I 6 P FILLR ' ',4 I F ┆
0x7350…7388 00 50 5c 46 54 45 58 54 5c 27 44 41 54 55 4d 3a 20 27 00 49 01 5a 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 49 01 72 00 10 00 50 ┆ P FTEXT 'DATUM: ' I Z P FMEL '99-99-99',DATE I r P┆
0x7388…73d8 (74, 0, 400) 5c 46 49 4c 4c 52 5c 27 20 27 2c 34 00 49 01 90 00 12 00 50 5c 46 54 45 58 54 5c 27 54 49 44 3a 20 27 00 4a 00 14 00 1a 00 50 5c 46 4d 45 4c 5c 27 39 39 2d 39 39 2d 39 39 27 2c 54 49 4d 45 20 00 4a 00 2a 00 0a 00 50 5c 46 45 4f 52 20 00 4a ┆ FILLR ' ',4 I P FTEXT 'TID: ' J P FMEL '99-99-99',TIME J * P FEOR J┆
0x73d8…7428 00 48 00 08 00 50 5c 46 4e 4c 00 4a 00 56 00 0a 00 50 5c 46 4d 45 4e 44 00 4a 00 62 00 0a 00 50 5c 45 4a 45 43 54 00 4a 00 70 00 10 00 50 46 43 41 53 30 32 5c 46 52 4d 54 20 00 4a 00 7e 00 08 00 50 5c 46 53 4c 00 4a 00 92 00 16 00 50 5c 46 ┆ H P FNL J V P FMEND J b P EJECT J p PFCAS02 FRMT J ~ P FSL J P F┆
0x7428…7478 43 4f 50 59 5c 3d 43 27 44 45 56 49 43 45 27 20 00 4a 00 9e 00 10 00 50 5c 46 49 4c 4c 52 5c 27 3a 27 2c 31 00 4a 00 b8 00 0c 00 50 5c 46 49 4e 50 5c 39 20 00 4a 00 cc 00 16 00 50 5c 46 43 4f 50 59 5c 53 54 53 41 56 45 28 57 33 29 20 00 4a ┆COPY =C'DEVICE' J P FILLR ':',1 J P FINP 9 J P FCOPY STSAVE(W3) J┆
0x7478…74c8 00 dc 00 0c 00 50 5c 46 54 41 42 5c 32 30 00 4a 00 f6 00 14 00 50 5c 46 43 4f 50 59 5c 3d 43 27 46 49 4c 45 27 20 00 4a 01 06 00 10 00 50 5c 46 49 4c 4c 52 5c 27 2d 27 2c 31 00 4a 01 1e 00 14 00 50 5c 46 43 4f 50 59 5c 3d 43 27 4e 41 4d 45 ┆ P FTAB 20 J P FCOPY =C'FILE' J P FILLR '-',1 J P FCOPY =C'NAME┆
0x74c8…7518 27 20 00 4a 01 32 00 10 00 50 5c 46 49 4c 4c 52 5c 27 3a 27 2c 31 00 4a 01 4a 00 0c 00 50 5c 46 49 4e 50 5c 33 32 00 4a 01 5e 00 16 00 50 5c 46 43 4f 50 59 5c 53 54 53 41 56 45 28 57 34 29 20 00 4a 01 6e 00 08 00 50 5c 46 4e 4c 00 4a 01 88 ┆' J 2 P FILLR ':',1 J J P FINP 32 J ^ P FCOPY STSAVE(W4) J n P FNL J ┆
0x7518…7568 (75, 0, 400) 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 4b 00 04 00 0c 00 50 5c 46 49 4e 50 5c 33 32 00 4b 00 28 00 10 00 50 5c 46 43 4f 50 59 5c 53 54 52 36 41 00 4b 00 38 00 08 00 50 5c 46 4e 4c ┆ P FCOPY =C'EXPIRATION DATE:' K P FINP 32 K ( P FCOPY STR6A K 8 P FNL┆
0x7568…75b8 00 4b 00 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 4b 00 58 00 0c 00 50 5c 46 49 4e 50 5c 33 32 00 4b 00 84 00 10 00 50 5c 46 43 4f 50 59 5c 53 54 52 36 42 ┆ K L ( P FCOPY =C'OLD DATA SET IDENTIFIER:' K X P FINP 32 K P FCOPY STR6B┆
0x75b8…7608 00 4b 00 94 00 08 00 50 5c 46 4e 4c 00 4b 00 a8 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 4b 00 b4 00 0c 00 50 5c 46 49 4e 50 5c 33 32 00 4b 00 de 00 10 00 50 5c 46 ┆ K P FNL K & P FCOPY =C'OLD VOLUME SEQUENCE NO:' K P FINP 32 K P F┆
0x7608…7658 43 4f 50 59 5c 53 54 52 32 41 00 4b 00 ee 00 08 00 50 5c 46 4e 4c 00 4b 01 02 00 0a 00 50 5c 46 4b 49 5c 31 00 4b 01 0e 00 10 00 50 5c 46 43 4f 50 59 5c 48 45 58 30 30 00 4b 01 1c 00 0a 00 50 5c 46 4d 45 4e 44 00 4b 01 30 00 0a 00 50 5c 45 ┆COPY STR2A K P FNL K P FKI 1 K P FCOPY HEX00 K P FMEND K 0 P E┆
0x7658…76a8 4a 45 43 54 00 4b 01 3e 00 10 00 50 46 52 4d 43 39 39 5c 46 52 4d 54 20 00 4b 01 4c 00 08 00 50 5c 46 53 4c 00 4b 01 60 00 12 00 50 5c 46 4c 49 4e 4b 5c 46 46 44 39 39 39 20 00 4b 01 6c 00 0a 00 50 5c 46 4d 45 4e 44 00 4b 01 82 00 04 00 50 ┆JECT K > PFRMC99 FRMT K L P FSL K ` P FLINK FFD999 K l P FMEND K P┆
0x76a8…76f8 (76, 0, 400) 00 4b 01 90 00 10 00 50 46 46 44 30 30 31 5c 46 52 4d 54 20 00 4c 00 08 00 12 00 50 5c 46 43 4f 50 59 5c 3d 43 27 30 30 31 27 00 4c 00 1c 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 4c 00 32 00 12 00 50 5c 46 ┆ K PFFD001 FRMT L P FCOPY =C'001' L P FMEL '999999',DATE L 2 P F┆
0x76f8…7748 49 4c 4c 52 5c 27 20 27 2c 36 30 20 00 4c 00 4e 00 12 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 35 36 20 00 4c 00 64 00 0a 00 50 5c 46 4d 45 4e 44 00 4c 00 7a 00 04 00 50 00 4c 00 88 00 10 00 50 46 46 44 39 39 39 5c 46 52 4d 54 20 00 4c 00 90 ┆ILLR ' ',60 L N P FILLR ' ',56 L d P FMEND L z P L PFFD999 FRMT L ┆
0x7748…7798 00 12 00 50 5c 46 43 4f 50 59 5c 3d 43 27 39 39 39 27 00 4c 00 a4 00 12 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 36 30 20 00 4c 00 ba 00 12 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 36 32 20 00 4c 00 d0 00 0a 00 50 5c 46 4d 45 4e 44 00 4c 00 e6 ┆ P FCOPY =C'999' L P FILLR ' ',60 L P FILLR ' ',62 L P FMEND L ┆
0x7798…77e8 00 0a 00 50 5c 45 4a 45 43 54 00 4c 00 f4 00 10 00 50 46 52 4d 41 4c 50 5c 46 52 4d 54 20 00 4c 01 02 00 14 00 50 5c 46 43 4f 50 59 5c 3a 46 4d 54 49 54 45 4d 20 00 4c 01 16 00 0a 00 50 5c 46 4d 45 4e 44 00 4c 01 2e 00 04 00 50 00 4c 01 3c ┆ P EJECT L PFRMALP FRMT L P FCOPY :FMTITEM L P FMEND L . P L <┆
0x77e8…7838 00 04 00 50 00 4c 01 44 00 10 00 50 46 52 4d 42 43 44 5c 46 52 4d 54 20 00 4c 01 4c 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 39 39 27 2c 3a 46 4d 54 49 54 45 4d 00 4c 01 60 00 0a 00 50 5c 46 ┆ P L D PFRMBCD FRMT L L * P FMEL '999999999999999999999',:FMTITEM L ` P F┆
0x7838…7888 (77, 2, 216) 4d 45 4e 44 00 4c 01 8e 00 0a 00 50 5c 45 4a 45 43 54 00 4d 00 0c 00 10 00 50 46 52 4d 42 43 53 5c 46 52 4d 54 20 00 4d 00 1a 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 2b 27 2c 3a 46 4d ┆MEND L P EJECT M PFRMBCS FRMT M , P FMEL '999999999999999999999+',:FM┆
0x7888…78d8 54 49 54 45 4d 20 00 4d 00 2e 00 0a 00 50 5c 46 4d 45 4e 44 00 4d 00 5e 00 04 00 50 00 4d 00 6c 00 04 00 50 00 4d 00 74 00 10 00 50 46 52 4d 54 49 44 5c 46 52 4d 54 20 00 4d 00 7c 00 16 00 50 5c 46 4d 45 4c 5c 27 39 39 39 27 2c 42 43 44 31 ┆TITEM M . P FMEND M ^ P M l P M t PFRMTID FRMT M | P FMEL '999',BCD1┆
0x78d8…7910 33 41 00 4d 00 90 00 0a 00 50 5c 46 4d 45 4e 44 00 4d 00 aa 00 04 00 50 00 4d 00 b8 00 04 00 50 00 4d 00 c0 00 08 00 50 5c 45 4e 44 00 4d 00 c8 40 04 00 00 00 4d 00 d4 ┆3A M P FMEND M P M P M P END M @ M ┆
0x7910…7918 (78, 1, 8) 20 04 00 00 00 4e 00 04 ┆ N ┆
0x7918…7968 (79, 0, 400) 4f 54 20 46 4f 55 4e 44 e0 c3 09 49 2f 4f 2d 45 52 52 4f 52 e0 c3 0a 44 41 54 45 20 45 52 52 4f 52 e0 c3 0c 46 4f 55 4e 44 20 4c 4f 43 4b 45 44 e0 c3 0d 4e 4f 20 44 49 53 43 20 53 50 41 43 45 e0 c3 0d 49 4c 4c 45 47 41 4c 20 56 41 4c 55 45 ┆OT FOUND I/O-ERROR DATE ERROR FOUND LOCKED NO DISC SPACE ILLEGAL VALUE┆
0x7968…79b8 e0 c3 0e 49 4e 56 41 4c 49 44 20 4e 55 4d 42 45 52 e0 c3 0f 43 48 41 4e 47 45 20 43 41 53 53 45 54 54 45 e0 c3 0f 4e 4f 20 52 45 43 4f 52 44 20 46 4f 55 4e 44 e0 c3 0f 55 4e 44 45 46 49 4e 45 44 20 45 52 52 4f 52 c3 12 54 45 53 54 20 45 4e ┆ INVALID NUMBER CHANGE CASSETTE NO RECORD FOUND UNDEFINED ERROR TEST EN┆
0x79b8…7a08 54 45 52 45 44 20 42 41 54 43 48 e0 c3 11 52 45 43 4f 56 45 52 59 20 52 55 4e 4e 49 4e 47 2e e0 c3 11 44 49 53 43 20 4e 4f 54 20 4f 50 45 52 41 42 4c 45 e0 c1 34 81 3a c0 6c c3 04 20 49 4e 20 c1 1a 81 3a c0 6b c1 35 e0 c3 0e 44 49 53 43 20 ┆TERED BATCH RECOVERY RUNNING. DISC NOT OPERABLE 4 : l IN : k 5 DISC ┆
0x7a08…7a58 49 2f 4f 2d 45 52 52 4f 52 c4 3a 17 98 e0 c3 13 49 4c 4c 45 47 41 4c 20 46 4f 52 4d 41 54 20 4e 41 4d 45 e0 c3 14 50 52 45 53 53 20 45 4e 54 20 54 4f 20 43 4f 4e 46 49 52 4d e0 c3 14 4e 4f 20 57 4f 52 4b 53 50 41 43 45 20 49 4e 20 43 4f 52 ┆I/O-ERROR : ILLEGAL FORMAT NAME PRESS ENT TO CONFIRM NO WORKSPACE IN COR┆
0x7a58…7aa8 45 e0 c3 14 46 55 4e 43 54 49 4f 4e 20 4e 4f 54 20 41 4c 4c 4f 57 45 44 e0 c3 15 55 53 45 52 46 49 4c 45 20 41 53 53 49 47 4e 2d 45 52 52 4f 52 e0 c3 16 39 35 20 25 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b ┆E FUNCTION NOT ALLOWED USERFILE ASSIGN-ERROR 95 % ┆
0x7aa8…7af8 (80, 0, 400) 4f 46 20 46 49 4c 45 53 50 41 43 45 20 55 53 45 44 e0 c3 16 50 52 45 53 53 20 45 4e 54 20 46 4f 52 20 44 45 4c 45 54 49 4f 4e e0 c3 17 54 48 49 53 20 49 53 20 41 20 44 55 4d 4d 59 20 4d 45 53 53 41 47 45 e0 c3 17 53 59 53 54 45 4d 46 49 4c ┆OF FILESPACE USED PRESS ENT FOR DELETION THIS IS A DUMMY MESSAGE SYSTEMFIL┆
0x7af8…7b48 45 20 41 53 53 49 47 4e 2d 45 52 52 4f 52 e0 c3 18 45 44 49 54 20 45 52 52 4f 52 20 49 4e 20 43 4f 4e 56 45 52 53 49 4f 4e e0 c3 18 41 4c 52 45 41 44 59 20 44 45 46 49 4e 45 44 2f 45 58 45 43 55 54 45 44 e0 c3 18 54 4f 4f 20 46 45 57 20 49 ┆E ASSIGN-ERROR EDIT ERROR IN CONVERSION ALREADY DEFINED/EXECUTED TOO FEW I┆
0x7b48…7b98 4e 50 55 54 20 43 48 41 52 41 43 54 45 52 53 e0 c3 1a 4f 55 54 50 55 54 20 44 45 56 49 43 45 20 4e 4f 54 20 4f 50 45 52 41 42 4c 45 e0 c3 1b 43 4f 4d 50 55 4c 53 4f 52 59 20 46 49 45 4c 44 20 4e 4f 54 20 46 49 4c 4c 45 44 e0 c3 1d 44 45 46 ┆NPUT CHARACTERS OUTPUT DEVICE NOT OPERABLE COMPULSORY FIELD NOT FILLED DEF┆
0x7b98…7be8 49 4e 45 44 20 4c 49 4e 45 20 4d 41 58 49 4d 55 4d 20 45 58 43 45 45 44 45 44 e0 c3 1e 4d 41 58 49 4d 55 4d 20 52 45 43 4f 52 44 2d 4c 45 4e 47 54 48 20 45 58 43 45 45 44 45 44 e0 c3 21 4d 41 58 49 4d 55 4d 20 46 4f 52 4d 41 54 2d 43 4f 44 ┆INED LINE MAXIMUM EXCEEDED MAXIMUM RECORD-LENGTH EXCEEDED !MAXIMUM FORMAT-COD┆
0x7be8…7c38 45 20 53 49 5a 45 20 45 58 43 45 45 44 45 44 e0 c3 21 4d 41 58 49 4d 55 4d 20 4e 55 4d 42 45 52 20 4f 46 20 46 49 45 4c 44 53 20 45 58 43 45 45 44 45 44 e0 c3 28 55 53 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 ┆E SIZE EXCEEDED !MAXIMUM NUMBER OF FIELDS EXCEEDED (US ┆
0x7c38…7c88 (81, 0, 400) 45 52 46 49 4c 45 20 4e 4f 54 20 43 4c 4f 53 45 44 20 49 4e 20 50 52 45 56 49 4f 55 53 20 53 45 53 53 49 4f 4e 2e e0 c3 2c 45 4e 44 20 4f 46 20 46 4f 52 4d 41 54 20 46 4f 55 4e 44 20 50 52 45 53 53 20 52 49 4e 53 20 46 4f 52 20 4e 45 57 20 ┆ERFILE NOT CLOSED IN PREVIOUS SESSION. ,END OF FORMAT FOUND PRESS RINS FOR NEW ┆
0x7c88…7cd8 4c 49 4e 45 53 e0 c1 22 81 3a c0 6d 81 3a c3 29 43 4f 4e 46 49 52 4d 20 57 41 4e 54 45 44 20 46 55 4e 43 54 49 4f 4e 20 28 43 4f 52 52 2c 52 44 45 4c 2c 50 52 49 4e 54 29 e0 c0 6a 81 3a 11 68 da 79 1f 81 3a c0 6b 81 3a c0 6c 81 3a c0 9e 81 ┆LINES " : m : )CONFIRM WANTED FUNCTION (CORR,RDEL,PRINT) j : h y : k : l : ┆
0x7cd8…7d28 3a 16 98 da 7a 0c 81 3a c0 6e 81 3a c0 9d 81 3a 16 67 da e5 07 81 3a c3 03 41 53 44 c4 35 c3 04 50 41 47 45 81 3a 13 96 e0 c3 1d 57 41 52 4e 49 4e 47 3a 52 45 46 45 52 45 4e 43 45 20 54 4f 20 46 49 45 4c 44 20 28 46 14 98 c3 1b 29 20 4f 55 ┆: z : n : : g : ASD 5 PAGE : WARNING:REFERENCE TO FIELD (F ) OU┆
0x7d28…7d78 54 53 49 44 45 20 46 4f 52 4d 41 54 20 44 45 46 49 4e 49 54 49 4f 4e e0 c3 2c 4f 43 43 55 50 49 45 44 20 52 45 43 4f 52 44 4c 45 4e 47 54 48 20 43 48 41 4e 47 45 44 20 57 49 54 48 49 4e 20 46 4f 52 4d 41 54 3a c0 6d 81 2e c3 0d 53 49 5a 45 ┆TSIDE FORMAT DEFINITION ,OCCUPIED RECORDLENGTH CHANGED WITHIN FORMAT: m . SIZE┆
0x7d78…7dc8 20 4f 4e 20 44 49 53 43 3a 15 98 81 2e e0 c9 da 88 04 c1 36 d8 02 c1 22 81 3a c8 c0 95 c3 21 20 44 4f 45 53 20 4e 4f 54 20 45 58 49 53 54 20 49 4e 20 4a 4f 42 2d 44 45 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b ┆ ON DISC: . 6 " : ! DOES NOT EXIST IN JOB-DE ┆
0x7dc8…7e18 (82, 0, 400) 46 49 4e 49 54 49 4f 4e db 88 14 c3 12 20 4f 52 20 4f 4e 20 53 59 53 54 45 4d 2d 44 49 53 43 3a 29 21 32 3c 25 26 39 20 24 18 23 31 3e 28 40 35 47 44 37 33 2e 2c 1c 1b 1a 2d 3d 3f 30 43 2f 19 1d 3b 42 2b 46 45 36 36 36 36 36 36 36 36 36 41 ┆FINITION OR ON SYSTEM-DISC:)!2<%&9 $ #1>(@5GD73., -=?0C/ ;B+FE666666666A┆
0x7e18…7e68 34 1f 22 1e 38 27 20 02 00 00 20 02 00 02 20 02 00 04 20 02 00 06 00 02 00 08 00 05 00 0a 00 07 00 0f 00 08 00 16 00 09 00 1e 10 01 00 00 10 03 00 01 10 04 00 04 10 05 00 08 10 06 00 0d 00 02 00 00 00 03 00 02 00 03 00 05 00 03 00 08 00 09 ┆4 " 8' ┆
0x7e68…7eb8 00 0b 00 09 00 14 00 09 00 1d 00 09 00 26 00 0b 00 2f 00 0c 00 3a 00 0c 00 46 00 0c 00 52 00 0d 00 5e 00 0f 00 6b 00 10 00 7a 00 10 00 8a 00 11 00 9a 00 12 00 ab 00 12 00 bd 00 12 00 cf 00 14 00 e1 00 14 00 f5 00 14 01 09 00 15 01 1d 00 15 ┆ & / : F R ^ k z ┆
0x7eb8…7f08 01 32 00 16 01 47 00 17 01 5d 00 17 01 74 00 17 01 8b 00 18 01 a2 00 19 01 ba 00 19 01 d3 00 1a 01 ec 00 1a 02 06 00 1b 02 20 00 1b 02 3b 00 1b 02 56 00 1d 02 71 00 1e 02 8e 00 20 02 ac 00 21 02 cc 00 24 02 ed 00 24 03 11 00 2b 03 35 00 2f ┆ 2 G ] t ; V q ! $ $ + 5 /┆
0x7f08…7f58 03 60 00 34 03 8f 00 3f 03 c3 00 3f 04 02 00 46 04 41 00 4a 04 87 40 37 04 d1 06 36 00 f4 06 5a 01 1b 06 6e 01 2e 45 4c 44 53 20 45 58 43 45 45 44 45 44 e0 c3 28 55 53 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 ┆ ` 4 ? ? F A J @7 6 Z n .ELDS EXCEEDED (US ┆
0x7f58…7fa8 (83, 0, 400) 06 98 05 97 05 a6 06 2c 06 8c 06 90 06 94 30 06 20 24 7d 6a e9 2a 21 21 a0 78 30 16 80 40 6c 00 8a 00 32 00 07 01 02 03 04 05 06 07 3f 08 6a a0 78 21 80 21 00 77 78 02 78 79 6a a0 26 22 78 20 21 67 32 65 00 8d 78 02 8d 79 22 8d 65 1f 40 8b ┆ , 0 $}j *!! x0 @l 2 ? j x! ! wx xyj &"x !g2e x y" e @ ┆
0x7fa8…7ff8 54 57 28 00 27 08 29 67 32 04 40 6c 3f 09 6a a0 78 79 a0 77 6a a0 78 21 1b 7b 20 57 3c 80 01 2e 56 0b 00 78 77 6a a0 26 22 77 20 57 d3 6a d1 21 20 22 a0 22 48 6e 07 20 00 27 03 00 77 78 6a 78 20 22 a0 26 20 77 78 07 04 77 78 66 a0 78 77 6a ┆TW( ' )g2 @l? j xy wj x! { W< .V xwj &"w W j ! " "Hn ' wxjx " & wx wxf xwj┆
0x7ff8…8048 a0 78 21 1b 7b 20 00 77 78 6a 80 21 21 a0 78 28 00 25 08 6a 82 20 22 a0 26 57 0b 28 00 27 07 6a d1 21 20 22 a0 22 20 7b 20 0e 30 39 1b 7b 24 2a 00 8d 70 21 30 05 1b 8d 30 38 a0 78 2a 36 00 0e 00 04 56 56 56 56 4f 56 4f 56 56 00 00 56 02 d1 ┆ x! { wxj !! x( % j " &W ( ' j ! " " { 09 {$* p!0 08 x*6 VVVVOVOVV V ┆
0x8048…8098 22 21 48 87 27 30 07 e9 2a 2a 50 0d 49 85 1d 02 d1 25 21 40 d5 41 d7 57 13 49 85 06 18 00 22 11 57 0a 04 d1 25 21 54 04 41 d5 40 d7 30 07 e9 2a 2c 54 0b 48 83 13 02 d1 24 21 41 d3 57 0b 49 83 08 04 d1 24 21 54 02 40 d3 20 00 22 07 2c 00 2c ┆"!H '0 **P I %!@ A W I " W %!T A @ 0 *,T H $!A W I $!T @ " , ,┆
0x8098…80e8 03 03 67 33 30 08 80 00 9f 23 67 06 21 21 34 01 20 7b 20 06 30 39 1b 7b 24 2a 30 38 a0 78 2a 28 7b 20 0b 20 00 27 04 28 00 24 03 03 67 33 40 88 06 21 22 00 9f 23 67 34 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b ┆ g30 #g !!4 { 09 {$*08 x*({ ' ( $ g3@ !" #g4 ┆
0x80e8…8138 (84, 0, 400) 01 18 78 2a b7 00 d1 21 75 80 02 75 76 5f c1 30 16 80 6a a0 78 21 80 21 00 8d 37 80 01 8d 5a 48 5f f1 6a 8d 20 22 a0 22 6a 78 20 22 a0 26 22 78 2a 18 28 8d 20 0a 01 8c 2f 80 01 8c 5a 66 5f 71 80 01 31 5a 6d 00 75 8d 3f 0a 00 d1 21 75 80 01 ┆ x* !u uv_ 0 j x! ! 7 ZH_ j " "jx " &"x* ( / Zf_q 1Zm u ? !u ┆
0x8138…8188 28 52 12 6a a0 22 22 8d 20 6a a0 26 22 78 20 00 75 d1 21 3f 0b 00 d1 21 8d 5f 93 6a 8d 20 22 a0 26 00 77 78 00 8c 78 02 8c 27 6a 79 20 22 a0 8c 02 78 79 00 8c 78 00 8b 75 24 78 8d 41 6a 8c 20 22 a0 24 28 8c 20 15 00 78 77 00 75 8b 01 8c 30 ┆(R j "" j &"x u !? ! _ j " & wx x 'jy " xy x u$x Aj " $( xw u 0┆
0x8188…81d8 80 01 8c 18 93 20 cf 00 93 2f 5f d4 80 01 2f 5a d9 6a 8c 20 22 a0 26 28 8c 2a 07 80 01 31 5a 29 5f 35 00 8d 8c 00 78 2a 00 77 78 00 8c 78 02 8c 27 6a 79 20 22 a0 8c 03 67 33 06 9f 23 67 59 75 50 02 57 9b 00 8e 20 6a 8e 20 21 a0 78 30 0d 8e ┆ /_ /Z j " &( * 1Z)_5 x* wx x 'jy " g3 #gYuP W j ! x0 ┆
0x81d8…8228 e9 2c 20 8e e9 2b 1c 20 00 26 0e 20 00 23 0a 20 00 28 06 03 9f 23 33 5f 9e 21 67 32 06 05 9f 23 33 57 6c 00 8c 78 02 8c 21 3f 0c 49 8b 57 21 67 32 53 6a 8a 20 22 a0 24 28 77 78 02 57 57 00 8c 21 02 8c 77 62 9b 20 26 a0 8c 6a 8c 20 22 a0 24 ┆ , + & # ( #3_ !g2 #3Wl x !? I W!g2Sj " $(wx WW ! wb & j " $┆
0x8228…8278 28 8c 20 0f 28 9b 6d 07 06 00 27 38 0d 3f 0e 41 6e 3f 0f 6a a0 22 22 75 20 00 75 8c 6a a0 24 22 8a 20 00 78 2a 6a a0 26 22 78 20 28 9b 6d 02 3f 10 41 6e 3f 11 01 8c 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 ┆( ( m '8 ? An? j ""u u j $" x*j &"x ( m ? An? 0 ┆