|
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: 7674 (0x1dfa)
Notes: pts_type(SC)
Names: »FMHAND.SC«
└─⟦cd4bbebb4⟧ Bits:30009680 Philips computer tape "600221"
└─⟦this⟧ »ATM/FMHAND.SC«
└─⟦this⟧ »ATM6601/FMHAND.SC«
└─⟦this⟧ »BEBATM/FMHAND.SC«
IDENT FMHAND FM INTERFACE 05-03-82 * ************************************************************************ * * THE FUNCTION OF THESE ROUTINES IS TO PROVIDE AN * INTERFACE BETWEEN A CREDIT APPLICATION AND THE * FILE MANAGEMENT PACKAGE. * ************************************************************************ * * THE CALLS TO THESE ROUTINES HAVE THE FOLLOWING FORMATS :- * * CALL FMOPEN,<FN>,<BLK>,<RC> * CALL FMCLOS,<FN>,<BLK>,<RC> * CALL FMRFPB,<FN>,<BLK>,<RC> * CALL FMCRET,<FN>,<BLK>,<RC> * CALL FMDELT,<FN>,<BLK>,<RC> * CALL FMEXTD,<FN>,<BLK>,<RC> * CALL FMREAD,<FN>,<BUF>,<LTH>,<SEC>,<RC> * CALL FMWRIT,<FN>,<BUF>,<LTH>,<SEC>,<RC> * * * WHERE: * * <FN> IS A BINARY DATA ITEM IN WHICH WILL BE * RETURNED THE FILE NUMBER ALLOCATED BY * FILE MANAGEMENT DURING THE OPEN REQUEST * THIS VALUE MUST NOT BE CHANGED UNTIL AFTER * THE FILE HAS BEEN CLOSED. * * <BLK> IS A STRING DATA ITEM CONTAINING THE * PARAMETER BLOCK FOR THE FILE * * <BUF> IS A STRING DATA ITEM CONTAINING * THE DATA TO BE READ/WRITTEN FROM/TO * THE FILE. * * <SEC> IS A BINARY DATA ITEM CONTAINING * THE FILE SECTOR NUMBER. * * <RC> IS A BINARY DATA ITEM WHICH WILL CONTAIN * THE RETURN CODE AFTER THE REQUEST. * * THE CREDIT CONDITION REGISTER WILL BE SET TO ZERO IF THE * REQUEST WAS SUCCESSFUL AND TWO IF NOT. * ************************************************************************ * EJECT * ENTRY FMOPEN,FMCLOS,FMREAD,FMWRIT,FMRFPB ENTRY FMDELT,FMEXTD,FMCRET * EXTRN I:EVA0,I:RT1 EXTRN T:CSEG * ECBFC EQU 1 ECBBA EQU 2 ECBRL EQU 4 ECBEL EQU 6 ECBRC EQU 8 ECBCW1 EQU 10 ECBCW2 EQU 12 * * FMOPEN EQU * LDK A7,/A1 ORDER CODE /21 OPTION 0 RF FM:001 * FMCLOS EQU * LDK A7,/A2 ORDER CODE /22 OPTION 0 RF FM:001 * FMRFPB EQU * LDK A7,/83 ORDER CODE /03 = RFPB RF FM:001 * FMREAD EQU * LDK A7,/91 ORDER CODE /11 = READ RF FM:001 * FMWRIT EQU * LDK A7,/95 ORDER CODE /15 = WRITE RF FM:001 * FMDELT EQU * LDKL A7,/02A2 ORDER CODE /22 OPTION 2 RF FM:001 * FMEXTD EQU * LDKL A7,/01A1 ORDER CODE /21 OPTION 1 RF FM:001 * FMCRET EQU * LDKL A7,/02A1 ORDER CODE /21 OPTION 2 EJECT * FM:001 EQU * SUKL A14,14 RESERVE ECB AREA IN A14 STACK LDR A8,A14 ADKL A8,2 CALC ECB START ADDRESS LDKL A4,/8000 CF A14,I:EVA0 GET FILE NUMBER ITEM LC A4,1,A9 GET FILE NUMBER STR A4,A8 PUT IN ECB LDR A6,A9 SAVE RETURN ITEM ADDR IN A6 CF A14,I:EVA0 GET PARAMETER BLOCK ADDRESS ST A9,ECBBA,A8 PUT IN ECB LDR A4,A8 SAVE RETURN VALUE ADDRESS LDK A1,/10 BIT 11 TM A1,A7 READ OR WRITE ? RF(Z) FM:003 NO --> CF A14,I:EVA0 GET LENGTH ITEM LDR* A1,A9 GET REQUESTED LENGTH ST A1,ECBRL,A8 PUT IN ECB LDR A6,A9 SAVE RETURN ITEM ADDR IN A6 CF A14,I:EVA0 GET SECTOR NUMBER ITEM LDR* A1,A9 GET SECTOR NUMBER ST A1,ECBCW2,A8 PUT IN ECB CM ECBCW1,A8 LDR A4,A8 CALCULATE AND ADK A4,ECBEL SAVE RETURN VALUE ADDRESS FM:003 EQU * CF A14,I:EVA0 GET RC ITEM SU A12,-12,A13 MAKE PP RELATIVE TO CSB LKM DATA 15 EXECUTE FM REQUEST CF A14,T:CSEG SEGMENT LOAD ERROR ? AD A12,-12,A13 RESET PP LDR* A1,A4 GET RETURN VALUE STR A1,A6 RETURN IT ADKL A14,14 ADJUST A14 STACK POINTER LD A1,ECBRC,A8 GET RC VALUE STR A1,A9 RETURN IT RF(Z) FM:008 LDK A1,2 FM:008 EQU * LC A2,2,A14 ANK A2,/FC ORR A2,A1 SC A2,2,A14 SET CREDIT CR ABL I:RT1 GO BACK TO CREDIT * * END
0x0000…002c (0, 0, 400) Head {h00=0x0028, h01=0x0023, text=» IDENT FMHAND FM INTERFACE 05-03-82 «, t00=0x0000, t01=0x0004}
0x002c…0036 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0000, t01=0x0030}
0x0036…0086 Head {h00=0x004c, h01=0x0048, text=»************************************************************************«, t00=0x0000, t01=0x003a}
0x0086…0090 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0000, t01=0x008a}
0x0090…00d2 Head {h00=0x003e, h01=0x003a, text=»* THE FUNCTION OF THESE ROUTINES IS TO PROVIDE AN«, t00=0x0000, t01=0x0094}
0x00d2…0114 Head {h00=0x003e, h01=0x0039, text=»* INTERFACE BETWEEN A CREDIT APPLICATION AND THE «, t00=0x0000, t01=0x00d6}
0x0114…0140 Head {h00=0x0028, h01=0x0023, text=»* FILE MANAGEMENT PACKAGE. «, t00=0x0000, t01=0x0118}
0x0140…014a Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0000, t01=0x0144}
0x014a…019a Head {h00=0x004c, h01=0x0048, text=»************************************************************************«, t00=0x0000, t01=0x014e}
0x019a…01a4 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0001, t01=0x000e}
0x01a4…01f0 Head {h00=0x0048, h01=0x0044, text=»* THE CALLS TO THESE ROUTINES HAVE THE FOLLOWING FORMATS :-«, t00=0x0001, t01=0x0018}
0x01f0…01fa Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0001, t01=0x0064}
0x01fa…022c Head {h00=0x002e, h01=0x0029, text=»* CALL FMOPEN,<FN>,<BLK>,<RC> «, t00=0x0001, t01=0x006e}
0x022c…025e Head {h00=0x002e, h01=0x0029, text=»* CALL FMCLOS,<FN>,<BLK>,<RC> «, t00=0x0001, t01=0x00a0}
0x025e…0290 Head {h00=0x002e, h01=0x0029, text=»* CALL FMRFPB,<FN>,<BLK>,<RC> «, t00=0x0001, t01=0x00d2}
0x0290…02c2 Head {h00=0x002e, h01=0x0029, text=»* CALL FMCRET,<FN>,<BLK>,<RC> «, t00=0x0001, t01=0x0104}
0x02c2…02f4 Head {h00=0x002e, h01=0x0029, text=»* CALL FMDELT,<FN>,<BLK>,<RC> «, t00=0x0001, t01=0x0136}
0x02f4…0326 Head {h00=0x002e, h01=0x0029, text=»* CALL FMEXTD,<FN>,<BLK>,<RC> «, t00=0x0001, t01=0x0168}
0x0326…0364 Head {h00=0x003a, h01=0x0035, text=»* CALL FMREAD,<FN>,<BUF>,<LTH>,<SEC>,<RC> «, t00=0x0002, t01=0x000a}
0x0364…03a2 Head {h00=0x003a, h01=0x0035, text=»* CALL FMWRIT,<FN>,<BUF>,<LTH>,<SEC>,<RC> «, t00=0x0002, t01=0x0048}
0x03a2…03ac Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0002, t01=0x0086}
0x03ac…03b6 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0002, t01=0x0090}
0x03b6…03d0 Head {h00=0x0016, h01=0x0011, text=»* WHERE: «, t00=0x0002, t01=0x009a}
0x03d0…03da Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0002, t01=0x00b4}
0x03da…0426 Head {h00=0x0048, h01=0x0043, text=»* <FN> IS A BINARY DATA ITEM IN WHICH WILL BE «, t00=0x0002, t01=0x00be}
0x0426…0470 Head {h00=0x0046, h01=0x0042, text=»* RETURNED THE FILE NUMBER ALLOCATED BY«, t00=0x0002, t01=0x010a}
0x0470…04bc Head {h00=0x0048, h01=0x0044, text=»* FILE MANAGEMENT DURING THE OPEN REQUEST«, t00=0x0002, t01=0x0154}
0x04bc…050c Head {h00=0x004c, h01=0x0047, text=»* THIS VALUE MUST NOT BE CHANGED UNTIL AFTER «, t00=0x0003, t01=0x0010}
0x050c…054a Head {h00=0x003a, h01=0x0036, text=»* THE FILE HAS BEEN CLOSED.«, t00=0x0003, t01=0x0060}
0x054a…0554 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0003, t01=0x009e}
0x0554…059e Head {h00=0x0046, h01=0x0041, text=»* <BLK> IS A STRING DATA ITEM CONTAINING THE «, t00=0x0003, t01=0x00a8}
0x059e…05e0 Head {h00=0x003e, h01=0x0039, text=»* PARAMETER BLOCK FOR THE FILE «, t00=0x0003, t01=0x00f2}
0x05e0…05ea Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0003, t01=0x0134}
0x05ea…0630 Head {h00=0x0042, h01=0x003d, text=»* <BUF> IS A STRING DATA ITEM CONTAINING «, t00=0x0003, t01=0x013e}
0x0630…0678 Head {h00=0x0044, h01=0x0040, text=»* THE DATA TO BE READ/WRITTEN FROM/TO«, t00=0x0003, t01=0x0184}
0x0678…06a6 Head {h00=0x002a, h01=0x0026, text=»* THE FILE.«, t00=0x0004, t01=0x003c}
0x06a6…06b0 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0004, t01=0x006a}
0x06b0…06f6 Head {h00=0x0042, h01=0x003d, text=»* <SEC> IS A BINARY DATA ITEM CONTAINING «, t00=0x0004, t01=0x0074}
0x06f6…0732 Head {h00=0x0038, h01=0x0034, text=»* THE FILE SECTOR NUMBER.«, t00=0x0004, t01=0x00ba}
0x0732…073c Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0004, t01=0x00f6}
0x073c…078a Head {h00=0x004a, h01=0x0045, text=»* <RC> IS A BINARY DATA ITEM WHICH WILL CONTAIN «, t00=0x0004, t01=0x0100}
0x078a…07d2 Head {h00=0x0044, h01=0x003f, text=»* THE RETURN CODE AFTER THE REQUEST. «, t00=0x0004, t01=0x014e}
0x07d2…07dc Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0005, t01=0x0008}
0x07dc…0828 Head {h00=0x0048, h01=0x0043, text=»* THE CREDIT CONDITION REGISTER WILL BE SET TO ZERO IF THE «, t00=0x0005, t01=0x0012}
0x0828…0862 Head {h00=0x0036, h01=0x0031, text=»* REQUEST WAS SUCCESSFUL AND TWO IF NOT. «, t00=0x0005, t01=0x005e}
0x0862…086c Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0005, t01=0x0098}
0x086c…08bc Head {h00=0x004c, h01=0x0048, text=»************************************************************************«, t00=0x0005, t01=0x00a2}
0x08bc…08c6 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0005, t01=0x00f2}
0x08c6…08d4 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0005, t01=0x00fc}
0x08d4…08de Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0005, t01=0x010a}
0x08de…0910 Head {h00=0x002e, h01=0x0029, text=» ENTRY FMOPEN,FMCLOS,FMREAD,FMWRIT,FMRFPB «, t00=0x0005, t01=0x0114}
0x0910…0934 Head {h00=0x0020, h01=0x001b, text=» ENTRY FMDELT,FMEXTD,FMCRET «, t00=0x0005, t01=0x0146}
0x0934…093e Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0005, t01=0x016a}
0x093e…095a Head {h00=0x0018, h01=0x0013, text=» EXTRN I:EVA0,I:RT1 «, t00=0x0005, t01=0x0174}
0x095a…0970 Head {h00=0x0012, h01=0x000d, text=» EXTRN T:CSEG «, t00=0x0005, t01=0x0190}
0x0970…097a Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0006, t01=0x0016}
0x097a…098e Head {h00=0x0010, h01=0x000b, text=»ECBFC EQU 1 «, t00=0x0006, t01=0x0020}
0x098e…09a2 Head {h00=0x0010, h01=0x000b, text=»ECBBA EQU 2 «, t00=0x0006, t01=0x0034}
0x09a2…09b6 Head {h00=0x0010, h01=0x000b, text=»ECBRL EQU 4 «, t00=0x0006, t01=0x0048}
0x09b6…09ca Head {h00=0x0010, h01=0x000b, text=»ECBEL EQU 6 «, t00=0x0006, t01=0x005c}
0x09ca…09de Head {h00=0x0010, h01=0x000b, text=»ECBRC EQU 8 «, t00=0x0006, t01=0x0070}
0x09de…09f4 Head {h00=0x0012, h01=0x000d, text=»ECBCW1 EQU 10 «, t00=0x0006, t01=0x0084}
0x09f4…0a0a Head {h00=0x0012, h01=0x000d, text=»ECBCW2 EQU 12 «, t00=0x0006, t01=0x009a}
0x0a0a…0a14 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0006, t01=0x00b0}
0x0a14…0a1e Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0006, t01=0x00ba}
0x0a1e…0a32 Head {h00=0x0010, h01=0x000c, text=»FMOPEN EQU *«, t00=0x0006, t01=0x00c4}
0x0a32…0a5e Head {h00=0x0028, h01=0x0024, text=» LDK A7,/A1 ORDER CODE /21 OPTION 0«, t00=0x0006, t01=0x00d8}
0x0a5e…0a70 Head {h00=0x000e, h01=0x000a, text=» RF FM:001«, t00=0x0006, t01=0x0104}
0x0a70…0a7a Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0006, t01=0x0116}
0x0a7a…0a8e Head {h00=0x0010, h01=0x000c, text=»FMCLOS EQU *«, t00=0x0006, t01=0x0120}
0x0a8e…0aba Head {h00=0x0028, h01=0x0024, text=» LDK A7,/A2 ORDER CODE /22 OPTION 0«, t00=0x0006, t01=0x0134}
0x0aba…0acc Head {h00=0x000e, h01=0x000a, text=» RF FM:001«, t00=0x0006, t01=0x0160}
0x0acc…0ad6 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0006, t01=0x0172}
0x0ad6…0aea Head {h00=0x0010, h01=0x000c, text=»FMRFPB EQU *«, t00=0x0006, t01=0x017c}
0x0aea…0b14 Head {h00=0x0026, h01=0x0021, text=» LDK A7,/83 ORDER CODE /03 = RFPB «, t00=0x0006, t01=0x0190}
0x0b14…0b26 Head {h00=0x000e, h01=0x000a, text=» RF FM:001«, t00=0x0007, t01=0x002a}
0x0b26…0b30 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0007, t01=0x003c}
0x0b30…0b44 Head {h00=0x0010, h01=0x000c, text=»FMREAD EQU *«, t00=0x0007, t01=0x0046}
0x0b44…0b6e Head {h00=0x0026, h01=0x0021, text=» LDK A7,/91 ORDER CODE /11 = READ «, t00=0x0007, t01=0x005a}
0x0b6e…0b80 Head {h00=0x000e, h01=0x000a, text=» RF FM:001«, t00=0x0007, t01=0x0084}
0x0b80…0b8a Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0007, t01=0x0096}
0x0b8a…0b9e Head {h00=0x0010, h01=0x000c, text=»FMWRIT EQU *«, t00=0x0007, t01=0x00a0}
0x0b9e…0bc8 Head {h00=0x0026, h01=0x0022, text=» LDK A7,/95 ORDER CODE /15 = WRITE«, t00=0x0007, t01=0x00b4}
0x0bc8…0bda Head {h00=0x000e, h01=0x000a, text=» RF FM:001«, t00=0x0007, t01=0x00de}
0x0bda…0be4 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0007, t01=0x00f0}
0x0be4…0bf8 Head {h00=0x0010, h01=0x000c, text=»FMDELT EQU *«, t00=0x0007, t01=0x00fa}
0x0bf8…0c2a Head {h00=0x002e, h01=0x0029, text=» LDKL A7,/02A2 ORDER CODE /22 OPTION 2 «, t00=0x0007, t01=0x010e}
0x0c2a…0c3c Head {h00=0x000e, h01=0x000a, text=» RF FM:001«, t00=0x0007, t01=0x0140}
0x0c3c…0c46 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0007, t01=0x0152}
0x0c46…0c5a Head {h00=0x0010, h01=0x000c, text=»FMEXTD EQU *«, t00=0x0007, t01=0x015c}
0x0c5a…0c8c Head {h00=0x002e, h01=0x002a, text=» LDKL A7,/01A1 ORDER CODE /21 OPTION 1«, t00=0x0007, t01=0x0170}
0x0c8c…0c9e Head {h00=0x000e, h01=0x000a, text=» RF FM:001«, t00=0x0008, t01=0x0012}
0x0c9e…0ca8 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0008, t01=0x0024}
0x0ca8…0cbc Head {h00=0x0010, h01=0x000c, text=»FMCRET EQU *«, t00=0x0008, t01=0x002e}
0x0cbc…0cee Head {h00=0x002e, h01=0x0029, text=» LDKL A7,/02A1 ORDER CODE /21 OPTION 2 «, t00=0x0008, t01=0x0042}
0x0cee…0cfc Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0008, t01=0x0074}
0x0cfc…0d06 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0008, t01=0x0082}
0x0d06…0d1a Head {h00=0x0010, h01=0x000c, text=»FM:001 EQU *«, t00=0x0008, t01=0x008c}
0x0d1a…0d4c Head {h00=0x002e, h01=0x002a, text=» SUKL A14,14 RESERVE ECB AREA IN A14 STACK«, t00=0x0008, t01=0x00a0}
0x0d4c…0d60 Head {h00=0x0010, h01=0x000b, text=» LDR A8,A14 «, t00=0x0008, t01=0x00d2}
0x0d60…0d8a Head {h00=0x0026, h01=0x0021, text=» ADKL A8,2 CALC ECB START ADDRESS «, t00=0x0008, t01=0x00e6}
0x0d8a…0da0 Head {h00=0x0012, h01=0x000e, text=» LDKL A4,/8000«, t00=0x0008, t01=0x0110}
0x0da0…0dcc Head {h00=0x0028, h01=0x0023, text=» CF A14,I:EVA0 GET FILE NUMBER ITEM «, t00=0x0008, t01=0x0126}
0x0dcc…0df0 Head {h00=0x0020, h01=0x001b, text=» LC A4,1,A9 GET FILE NUMBER «, t00=0x0008, t01=0x0152}
0x0df0…0e0e Head {h00=0x001a, h01=0x0015, text=» STR A4,A8 PUT IN ECB «, t00=0x0008, t01=0x0176}
0x0e0e…0e3c (9, 0, 400) Head {h00=0x002a, h01=0x0026, text=» LDR A6,A9 SAVE RETURN ITEM ADDR IN A6«, t00=0x0009, t01=0x0004}
0x0e3c…0e6e Head {h00=0x002e, h01=0x002a, text=» CF A14,I:EVA0 GET PARAMETER BLOCK ADDRESS«, t00=0x0009, t01=0x0032}
0x0e6e…0e90 Head {h00=0x001e, h01=0x001a, text=» ST A9,ECBBA,A8 PUT IN ECB«, t00=0x0009, t01=0x0064}
0x0e90…0ebc Head {h00=0x0028, h01=0x0024, text=» LDR A4,A8 SAVE RETURN VALUE ADDRESS«, t00=0x0009, t01=0x0086}
0x0ebc…0ed6 Head {h00=0x0016, h01=0x0012, text=» LDK A1,/10 BIT 11«, t00=0x0009, t01=0x00b2}
0x0ed6…0ef8 Head {h00=0x001e, h01=0x0019, text=» TM A1,A7 READ OR WRITE ? «, t00=0x0009, t01=0x00cc}
0x0ef8…0f14 Head {h00=0x0018, h01=0x0014, text=» RF(Z) FM:003 NO -->«, t00=0x0009, t01=0x00ee}
0x0f14…0f3a Head {h00=0x0022, h01=0x001e, text=» CF A14,I:EVA0 GET LENGTH ITEM«, t00=0x0009, t01=0x010a}
0x0f3a…0f62 Head {h00=0x0024, h01=0x0020, text=» LDR* A1,A9 GET REQUESTED LENGTH«, t00=0x0009, t01=0x0130}
0x0f62…0f84 Head {h00=0x001e, h01=0x001a, text=» ST A1,ECBRL,A8 PUT IN ECB«, t00=0x0009, t01=0x0158}
0x0f84…0fb2 Head {h00=0x002a, h01=0x0026, text=» LDR A6,A9 SAVE RETURN ITEM ADDR IN A6«, t00=0x0009, t01=0x017a}
0x0fb2…0fe0 Head {h00=0x002a, h01=0x0025, text=» CF A14,I:EVA0 GET SECTOR NUMBER ITEM «, t00=0x000a, t01=0x0018}
0x0fe0…1006 Head {h00=0x0022, h01=0x001d, text=» LDR* A1,A9 GET SECTOR NUMBER «, t00=0x000a, t01=0x0046}
0x1006…102a Head {h00=0x0020, h01=0x001b, text=» ST A1,ECBCW2,A8 PUT IN ECB «, t00=0x000a, t01=0x006c}
0x102a…1040 Head {h00=0x0012, h01=0x000d, text=» CM ECBCW1,A8 «, t00=0x000a, t01=0x0090}
0x1040…1060 Head {h00=0x001c, h01=0x0018, text=» LDR A4,A8 CALCULATE AND«, t00=0x000a, t01=0x00a6}
0x1060…1090 Head {h00=0x002c, h01=0x0027, text=» ADK A4,ECBEL SAVE RETURN VALUE ADDRESS «, t00=0x000a, t01=0x00c6}
0x1090…10a4 Head {h00=0x0010, h01=0x000c, text=»FM:003 EQU *«, t00=0x000a, t01=0x00f6}
0x10a4…10c6 Head {h00=0x001e, h01=0x001a, text=» CF A14,I:EVA0 GET RC ITEM«, t00=0x000a, t01=0x010a}
0x10c6…10f6 Head {h00=0x002c, h01=0x0027, text=» SU A12,-12,A13 MAKE PP RELATIVE TO CSB «, t00=0x000a, t01=0x012c}
0x10f6…1102 Head {h00=0x0008, h01=0x0004, text=» LKM«, t00=0x000a, t01=0x015c}
0x1102…1126 Head {h00=0x0020, h01=0x001b, text=» DATA 15 EXECUTE FM REQUEST «, t00=0x000a, t01=0x0168}
0x1126…1152 Head {h00=0x0028, h01=0x0023, text=» CF A14,T:CSEG SEGMENT LOAD ERROR ? «, t00=0x000a, t01=0x018c}
0x1152…1172 Head {h00=0x001c, h01=0x0018, text=» AD A12,-12,A13 RESET PP«, t00=0x000b, t01=0x0028}
0x1172…1196 Head {h00=0x0020, h01=0x001c, text=» LDR* A1,A4 GET RETURN VALUE«, t00=0x000b, t01=0x0048}
0x1196…11b2 Head {h00=0x0018, h01=0x0014, text=» STR A1,A6 RETURN IT«, t00=0x000b, t01=0x006c}
0x11b2…11e0 Head {h00=0x002a, h01=0x0025, text=» ADKL A14,14 ADJUST A14 STACK POINTER «, t00=0x000b, t01=0x0088}
0x11e0…1204 Head {h00=0x0020, h01=0x001c, text=» LD A1,ECBRC,A8 GET RC VALUE«, t00=0x000b, t01=0x00b6}
0x1204…1220 Head {h00=0x0018, h01=0x0014, text=» STR A1,A9 RETURN IT«, t00=0x000b, t01=0x00da}
0x1220…1236 Head {h00=0x0012, h01=0x000d, text=» RF(Z) FM:008 «, t00=0x000b, t01=0x00f6}
0x1236…1248 Head {h00=0x000e, h01=0x0009, text=» LDK A1,2 «, t00=0x000b, t01=0x010c}
0x1248…125c Head {h00=0x0010, h01=0x000c, text=»FM:008 EQU *«, t00=0x000b, t01=0x011e}
0x125c…1270 Head {h00=0x0010, h01=0x000c, text=» LC A2,2,A14«, t00=0x000b, t01=0x0132}
0x1270…1284 Head {h00=0x0010, h01=0x000b, text=» ANK A2,/FC «, t00=0x000b, t01=0x0146}
0x1284…1296 Head {h00=0x000e, h01=0x000a, text=» ORR A2,A1«, t00=0x000b, t01=0x015a}
0x1296…12b8 Head {h00=0x001e, h01=0x001a, text=» SC A2,2,A14 SET CREDIT CR«, t00=0x000b, t01=0x016c}
0x12b8…12dc Head {h00=0x0020, h01=0x001c, text=» ABL I:RT1 GO BACK TO CREDIT«, t00=0x000b, t01=0x018e}
0x12dc…12e6 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x000c, t01=0x0022}
0x12e6…12f0 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x000c, t01=0x002c}
0x12f0…12fc Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x000c, t01=0x0036}
0x12fc…1300 Head {h00=0x4004, h01=0x0000}
0x1300…1304 00 0c 00 42 ┆ B┆
0x1304…130c (13, 1, 8) 20 04 00 00 00 0d 00 04 ┆ ┆
0x130c…135c (14, 0, 400) 5c 54 4f 53 53 2b 49 42 4d 3d 30 20 00 35 01 8c 00 06 00 50 2a 20 00 36 00 14 00 16 00 50 2a 20 20 45 52 52 4f 52 20 2c 20 55 4e 4c 4f 43 4b 20 00 36 00 1e 00 06 00 50 2a 20 00 36 00 38 00 10 00 50 4c 4f 41 3a 39 30 5c 45 51 55 5c 2a 00 36 ┆ TOSS+IBM=0 5 P* 6 P* ERROR , UNLOCK 6 P* 6 8 PLOA:90 EQU * 6┆
0x135c…13ac 00 42 00 0e 00 50 5c 4c 44 52 5c 41 35 2c 41 36 00 36 00 56 00 1e 00 50 5c 41 44 4b 4c 5c 41 35 2c 44 57 54 53 42 32 5c 53 54 41 43 4b 20 42 41 53 45 00 36 00 68 00 16 00 50 5c 4c 44 4b 5c 41 32 2c 2f 43 5c 55 4e 4c 4f 43 4b 20 00 36 00 8a ┆ B P LDR A5,A6 6 V P ADKL A5,DWTSB2 STACK BASE 6 h P LDK A2,/C UNLOCK 6 ┆
0x13ac…13fc 00 12 00 50 5c 43 46 5c 41 35 2c 46 44 3a 52 45 41 20 00 36 00 a4 00 0e 00 50 5c 52 42 5c 4c 4f 41 3a 38 30 00 36 00 ba 00 06 00 50 2a 20 00 36 00 cc 00 1a 00 50 2a 20 20 20 4c 44 3a 52 43 20 20 53 55 42 52 4f 55 54 49 4e 45 20 00 36 00 d6 ┆ P CF A5,FD:REA 6 P RB LOA:80 6 P* 6 P* LD:RC SUBROUTINE 6 ┆
0x13fc…144c 00 06 00 50 2a 20 00 36 00 f4 00 10 00 50 4c 44 3a 52 43 5c 45 51 55 5c 2a 20 00 36 00 fe 00 1c 00 50 5c 41 4e 4b 5c 41 33 2c 2f 31 37 5c 46 41 54 41 4c 20 45 52 52 4f 52 20 00 36 01 12 00 12 00 50 5c 52 42 28 4e 5a 29 5c 4c 4f 41 3a 39 30 ┆ P* 6 PLD:RC EQU * 6 P ANK A3,/17 FATAL ERROR 6 P RB(NZ) LOA:90┆
0x144c…149c 00 36 01 32 00 26 00 50 5c 4c 44 4b 4c 5c 41 34 2c 42 55 46 5c 44 52 49 56 45 52 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 00 36 01 48 00 0c 00 50 5c 52 54 4e 5c 41 35 20 00 36 01 72 00 08 00 50 5c 58 49 46 00 36 01 82 00 06 00 50 2a 20 ┆ 6 2 & P LDKL A4,BUF DRIVER BUFFER ADDRESS 6 H P RTN A5 6 r P XIF 6 P* ┆
0x149c…14ec (15, 0, 400) 00 36 01 8e 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 46 44 30 31 20 00 37 00 08 00 06 00 50 2a 20 00 37 00 20 00 0e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 37 00 2a 00 0e 00 50 2a 20 20 20 20 20 20 20 20 2a 00 37 00 3c 00 0e 00 50 2a 20 ┆ 6 P EJECT DRFD01 7 P* 7 P********** 7 * P* * 7 < P* ┆
0x14ec…153c 55 4e 4c 4f 41 44 20 2a 00 37 00 4e 00 0e 00 50 2a 20 20 20 20 20 20 20 20 2a 00 37 00 60 00 0e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 37 00 72 00 06 00 50 2a 20 00 37 00 84 00 10 00 50 55 4e 4c 4f 41 44 5c 45 51 55 5c 2a 00 37 00 8e 00 0e ┆UNLOAD * 7 N P* * 7 ` P********** 7 r P* 7 PUNLOAD EQU * 7 ┆
0x153c…158c 00 50 5c 49 46 54 5c 49 42 4d 3d 31 00 37 00 a2 00 06 00 50 2a 20 00 37 00 b4 00 16 00 50 2a 20 20 20 20 44 41 54 41 20 53 45 54 20 4f 50 45 4e 00 37 00 be 00 06 00 50 2a 20 00 37 00 d8 00 1e 00 50 5c 43 46 5c 41 35 2c 44 53 4f 50 43 48 5c ┆ P IFT IBM=1 7 P* 7 P* DATA SET OPEN 7 P* 7 P CF A5,DSOPCH ┆
0x158c…15dc 41 31 2c 41 46 46 45 43 54 45 44 20 00 37 00 e2 00 20 00 50 5c 41 44 4b 5c 41 37 2c 30 5c 53 45 54 20 43 52 20 28 43 48 45 43 4b 20 45 4f 44 29 00 37 01 04 00 1a 00 50 5c 52 46 28 5a 29 5c 55 4e 4c 3a 37 30 5c 4e 4f 54 20 4f 50 45 4e 00 37 ┆A1,AFFECTED 7 P ADK A7,0 SET CR (CHECK EOD) 7 P RF(Z) UNL:70 NOT OPEN 7┆
0x15dc…162c 01 28 00 34 00 50 5c 53 54 5c 41 37 2c 31 32 2c 41 38 5c 53 54 4f 52 45 20 45 4f 44 2d 4e 4f 20 49 4e 20 43 4f 4e 54 52 4f 4c 20 57 4f 52 44 20 4f 46 20 45 43 42 00 37 01 46 00 06 00 50 2a 20 00 37 01 7e 00 2c 00 50 2a 20 20 52 45 41 44 20 ┆ ( 4 P ST A7,12,A8 STORE EOD-NO IN CONTROL WORD OF ECB 7 F P* 7 ~ , P* READ ┆
0x162c…167c (16, 0, 400) 44 41 54 41 20 53 45 54 20 4c 41 42 45 4c 20 54 4f 20 44 52 49 56 45 52 20 42 55 46 46 45 52 20 00 37 01 88 00 06 00 50 2a 20 00 38 00 28 00 20 00 50 5c 43 46 5c 41 35 2c 44 53 4c 49 4f 5c 50 52 45 50 41 52 45 20 46 4f 52 20 49 2f 4f 00 38 ┆DATA SET LABEL TO DRIVER BUFFER 7 P* 8 ( P CF A5,DSLIO PREPARE FOR I/O 8┆
0x167c…16cc 00 32 00 26 00 50 5c 43 46 5c 41 35 2c 46 44 3a 52 45 41 5c 52 45 41 44 20 44 41 54 41 20 53 45 54 20 4c 41 42 45 4c 20 00 38 00 56 00 24 00 50 5c 43 46 5c 41 35 2c 55 4e 4c 3a 52 43 5c 52 45 54 55 52 4e 20 43 4f 44 45 20 43 48 45 43 4b 20 ┆ 2 & P CF A5,FD:REA READ DATA SET LABEL 8 V $ P CF A5,UNL:RC RETURN CODE CHECK ┆
0x16cc…171c 00 38 00 80 00 08 00 50 5c 45 4e 42 00 38 00 a8 00 06 00 50 2a 20 00 38 00 b4 00 3c 00 50 2a 20 20 54 52 41 4e 53 46 4f 52 4d 20 52 45 54 55 52 4e 20 43 4f 44 45 20 54 4f 20 49 42 4d 20 53 45 43 54 4f 52 20 4e 4f 20 28 45 42 43 44 49 43 2d ┆ 8 P ENB 8 P* 8 < P* TRANSFORM RETURN CODE TO IBM SECTOR NO (EBCDIC-┆
0x171c…176c 43 4f 44 45 44 29 00 38 00 be 00 06 00 50 2a 20 00 38 00 fe 00 1e 00 50 5c 43 46 5c 41 35 2c 44 53 4f 50 43 48 5c 45 4f 44 2d 4e 4f 20 54 4f 20 41 37 00 38 01 08 00 06 00 50 2a 20 00 38 01 2a 00 18 00 50 2a 20 20 44 49 56 49 44 45 20 45 4f ┆CODED) 8 P* 8 P CF A5,DSOPCH EOD-NO TO A7 8 P* 8 * P* DIVIDE EO┆
0x176c…17bc 44 20 42 59 20 32 36 20 00 38 01 34 00 06 00 50 2a 20 00 38 01 50 00 0e 00 50 5c 4c 44 4b 5c 41 31 2c 30 20 00 38 01 5a 00 14 00 50 55 4e 4c 3a 31 30 5c 53 55 4b 5c 41 37 2c 32 36 00 38 01 6c 00 12 00 50 5c 52 46 28 4e 29 5c 55 4e 4c 3a 32 ┆D BY 26 8 4 P* 8 P P LDK A1,0 8 Z PUNL:10 SUK A7,26 8 l P RF(N) UNL:2┆
0x17bc…180c (17, 0, 400) 30 20 00 38 01 84 00 0e 00 50 5c 41 44 4b 5c 41 31 2c 31 20 00 39 00 0a 00 0e 00 50 5c 52 42 5c 55 4e 4c 3a 31 30 00 39 00 1c 00 06 00 50 2a 20 00 39 00 2e 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 46 44 30 31 20 00 39 00 38 00 06 00 50 ┆0 8 P ADK A1,1 9 P RB UNL:10 9 P* 9 . P EJECT DRFD01 9 8 P┆
0x180c…185c 2a 20 00 39 00 50 00 06 00 50 2a 20 00 39 00 5a 00 14 00 50 55 4e 4c 3a 32 30 5c 41 44 4b 5c 41 37 2c 32 37 00 39 00 64 00 06 00 50 2a 20 00 39 00 7c 00 1c 00 50 2a 20 20 20 41 31 20 3d 20 42 49 4e 41 52 59 20 54 52 41 43 4b 20 4e 4f 00 39 ┆* 9 P P* 9 Z PUNL:20 ADK A7,27 9 d P* 9 | P* A1 = BINARY TRACK NO 9┆
0x185c…18ac 00 86 00 2a 00 50 2a 20 20 20 41 37 20 3d 20 53 45 43 54 4f 52 20 4e 4f 20 57 49 54 48 49 4e 20 54 52 41 43 4b 20 28 30 2d 32 35 29 00 39 00 a6 00 06 00 50 2a 20 00 39 00 d4 00 28 00 50 5c 43 46 5c 41 35 2c 42 49 4e 44 45 43 5c 54 52 41 4e ┆ * P* A7 = SECTOR NO WITHIN TRACK (0-25) 9 P* 9 ( P CF A5,BINDEC TRAN┆
0x18ac…18fc 53 46 4f 52 4d 20 53 45 43 2e 4e 4f 20 54 4f 20 41 33 00 39 00 de 00 28 00 50 5c 4c 44 4b 4c 5c 41 34 2c 42 55 46 2b 45 4f 44 2b 34 5c 41 44 44 52 45 53 53 20 54 4f 20 50 4f 53 20 37 39 00 39 01 0a 00 0e 00 50 5c 53 43 52 5c 41 33 2c 41 34 ┆SFORM SEC.NO TO A3 9 ( P LDKL A4,BUF+EOD+4 ADDRESS TO POS 79 9 P SCR A3,A4┆
0x18fc…194c 00 39 01 36 00 0e 00 50 5c 53 55 4b 5c 41 34 2c 31 20 00 39 01 48 00 18 00 50 5c 53 52 4c 5c 41 33 2c 38 5c 4c 45 46 54 20 42 59 54 45 20 00 39 01 5a 00 1e 00 50 5c 53 43 52 5c 41 33 2c 41 34 5c 53 54 4f 52 45 20 49 4e 20 42 55 46 46 45 52 ┆ 9 6 P SUK A4,1 9 H P SRL A3,8 LEFT BYTE 9 Z P SCR A3,A4 STORE IN BUFFER┆
0x194c…199c (18, 0, 398) 00 39 01 76 00 14 00 50 5c 4c 44 52 5c 41 37 2c 41 31 5c 54 52 41 43 4b 00 3a 00 08 00 28 00 50 5c 43 46 5c 41 35 2c 42 49 4e 44 45 43 5c 44 45 43 20 45 42 43 44 49 43 2d 43 4f 44 45 44 20 49 4e 20 41 33 00 3a 00 20 00 0e 00 50 5c 53 55 4b ┆ 9 v P LDR A7,A1 TRACK : ( P CF A5,BINDEC DEC EBCDIC-CODED IN A3 : P SUK┆
0x199c…19ec 5c 41 34 2c 33 20 00 3a 00 4c 00 1e 00 50 5c 53 54 52 5c 41 33 2c 41 34 5c 54 52 41 43 4b 20 49 4e 54 4f 20 42 55 46 20 00 3a 00 5e 00 46 00 50 5c 49 4e 48 5c 5c 49 4e 48 49 42 49 54 20 49 4e 54 45 52 52 55 50 54 53 20 20 20 20 20 20 20 20 ┆ A4,3 : L P STR A3,A4 TRACK INTO BUF : ^ F P INH INHIBIT INTERRUPTS ┆
0x19ec…1a3c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 49 4e 48 49 42 49 54 20 00 3a 00 80 00 06 00 50 2a 20 00 3a 00 ca 00 1c 00 50 2a 20 20 57 52 49 54 45 20 44 41 54 41 20 53 45 54 20 4c 41 42 45 4c 20 00 3a 00 d4 ┆ INHIBIT : P* : P* WRITE DATA SET LABEL : ┆
0x1a3c…1a8c 00 06 00 50 2a 20 00 3a 00 f4 00 20 00 50 5c 43 46 5c 41 35 2c 44 53 4c 49 4f 5c 50 52 45 50 41 52 45 20 46 4f 52 20 49 2f 4f 00 3a 00 fe 00 1c 00 50 5c 4f 52 4b 5c 41 32 2c 35 5c 50 48 59 53 49 43 41 4c 20 57 52 49 54 45 00 3a 01 22 00 28 ┆ P* : P CF A5,DSLIO PREPARE FOR I/O : P ORK A2,5 PHYSICAL WRITE : " (┆
0x1a8c…1ada 00 50 5c 43 46 5c 41 35 2c 46 44 3a 57 52 49 54 45 5c 57 52 49 54 45 20 44 41 54 41 20 53 45 54 20 4c 45 42 45 4c 00 3a 01 42 00 24 00 50 5c 43 46 5c 41 35 2c 55 4e 4c 3a 52 43 5c 43 48 45 43 4b 20 52 45 54 55 52 4e 20 43 4f 44 45 20 ┆ P CF A5,FD:WRITE WRITE DATA SET LEBEL : B $ P CF A5,UNL:RC CHECK RETURN CODE ┆
0x1ada…1b2a (19, 0, 400) 00 3a 01 6e 00 12 00 50 5c 43 46 5c 41 35 2c 44 53 4f 50 43 48 20 00 3b 00 08 00 1e 00 50 5c 43 4d 52 5c 41 32 5c 49 4e 44 49 43 41 54 45 20 4e 4f 54 20 4f 50 45 4e 20 00 3b 00 1e 00 06 00 50 2a 20 00 3b 00 40 00 14 00 50 5c 45 4a 45 43 54 ┆ : n P CF A5,DSOPCH ; P CMR A2 INDICATE NOT OPEN ; P* ; @ P EJECT┆
0x1b2a…1b7a 5c 5c 5c 44 52 46 44 30 31 20 00 3b 00 4a 00 06 00 50 2a 20 00 3b 00 62 00 10 00 50 2a 20 20 20 20 55 4e 4c 4f 43 4b 20 00 3b 00 6c 00 06 00 50 2a 20 00 3b 00 80 00 08 00 50 5c 58 49 46 00 3b 00 8a 00 10 00 50 55 4e 4c 3a 37 30 5c 45 51 55 ┆ DRFD01 ; J P* ; b P* UNLOCK ; l P* ; P XIF ; PUNL:70 EQU┆
0x1b7a…1bca 5c 2a 00 3b 00 96 00 16 00 50 5c 4c 44 4b 5c 41 32 2c 2f 43 5c 55 4e 4c 4f 43 4b 20 00 3b 00 aa 00 12 00 50 5c 43 46 5c 41 35 2c 46 44 3a 52 45 41 20 00 3b 00 c4 00 0e 00 50 5c 41 4e 4b 5c 41 33 2c 31 20 00 3b 00 da 00 20 00 50 5c 52 42 28 ┆ * ; P LDK A2,/C UNLOCK ; P CF A5,FD:REA ; P ANK A3,1 ; P RB(┆
0x1bca…1c1a 4e 5a 29 5c 4c 4f 41 3a 38 30 5c 4e 4f 54 20 4f 50 45 52 41 42 4c 45 20 00 3b 00 ec 00 1e 00 50 5c 43 31 5c 41 32 2c 44 57 54 41 33 2c 41 36 5c 49 4e 44 45 58 20 4d 41 53 4b 00 3b 01 10 00 2c 00 50 5c 41 4e 53 5c 41 32 2c 44 57 54 4c 43 2c ┆NZ) LOA:80 NOT OPERABLE ; P C1 A2,DWTA3,A6 INDEX MASK ; , P ANS A2,DWTLC,┆
0x1c1a…1c6a 41 36 5c 49 4e 44 49 43 41 54 45 20 55 4e 4c 4f 43 4b 20 49 4e 20 44 57 54 20 00 3b 01 32 00 16 00 50 5c 52 42 5c 4c 4f 41 3a 38 30 5c 45 4e 44 3a 49 4f 20 00 3b 01 62 00 06 00 50 2a 20 00 3b 01 7c 00 0e 00 50 5c 49 46 54 5c 49 42 4d 3d 31 ┆A6 INDICATE UNLOCK IN DWT ; 2 P RB LOA:80 END:IO ; b P* ; | P IFT IBM=1┆
0x1c6a…1cba (20, 0, 400) 00 3b 01 86 00 06 00 50 2a 20 00 3c 00 08 00 20 00 50 2a 20 20 20 55 4e 4c 4f 41 44 20 52 45 54 55 52 4e 20 43 4f 44 45 20 43 48 45 43 4b 00 3c 00 12 00 06 00 50 2a 20 00 3c 00 36 00 10 00 50 55 4e 4c 3a 52 43 5c 45 51 55 5c 2a 00 3c 00 40 ┆ ; P* < P* UNLOAD RETURN CODE CHECK < P* < 6 PUNL:RC EQU * < @┆
0x1cba…1d0a 00 12 00 50 5c 41 4e 4b 4c 5c 41 33 2c 2f 32 30 37 20 00 3c 00 54 00 20 00 50 5c 52 46 28 5a 29 5c 52 54 4e 3a 41 35 5c 4e 4f 20 52 45 54 55 52 4e 20 43 4f 44 45 00 3c 00 6a 00 12 00 50 5c 41 4e 4b 4c 5c 41 33 2c 2f 32 30 30 20 00 3c 00 8e ┆ P ANKL A3,/207 < T P RF(Z) RTN:A5 NO RETURN CODE < j P ANKL A3,/200 < ┆
0x1d0a…1d5a 00 26 00 50 5c 52 46 28 5a 29 5c 52 54 4e 3a 41 35 5c 4e 4f 54 20 57 52 49 54 45 20 50 52 4f 54 45 43 54 45 44 20 00 3c 00 a4 00 12 00 50 5c 43 46 5c 41 35 2c 44 53 4f 50 43 48 20 00 3c 00 ce 00 20 00 50 5c 41 44 4b 5c 41 37 2c 30 5c 53 45 ┆ & P RF(Z) RTN:A5 NOT WRITE PROTECTED < P CF A5,DSOPCH < P ADK A7,0 SE┆
0x1d5a…1daa 54 20 43 52 20 28 43 48 45 43 4b 20 45 4f 44 29 00 3c 00 e4 00 1a 00 50 5c 52 46 28 5a 29 5c 52 54 4e 3a 41 35 5c 4e 4f 54 20 4f 50 45 4e 00 3c 01 08 00 10 00 50 5c 4c 44 4b 5c 41 33 2c 2f 34 30 20 00 3c 01 26 00 2c 00 50 5c 4f 52 52 53 5c ┆T CR (CHECK EOD) < P RF(Z) RTN:A5 NOT OPEN < P LDK A3,/40 < & , P ORRS ┆
0x1daa…1dfa 41 33 2c 41 36 5c 55 50 44 41 54 45 20 54 45 4d 50 4f 52 41 52 59 20 52 45 54 55 52 4e 20 43 4f 44 45 00 3c 01 3a 00 10 00 50 52 54 4e 3a 41 35 5c 45 51 55 5c 2a 00 3c 01 6a 00 0c 00 50 5c 52 54 4e 5c 41 35 20 00 3c 01 7e 00 06 00 50 2a 20 ┆A3,A6 UPDATE TEMPORARY RETURN CODE < : PRTN:A5 EQU * < j P RTN A5 < ~ P* ┆