|
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: 4590 (0x11ee)
Notes: pts_type(SC)
Names: »DE12ST.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DE12ST.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DE12ST.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/DE12ST.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DE12ST.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DE12ST.SC«
IDENT DE12ST REL 10.0 80-04-11 79-12-14/LABJ **************** * * * VALUE SETS * * * **************** ********************************************* * BOOL1 : T=GET V-S F=CREATE V-S * * BOOL2 : T=LINE 1-2 F=LINE 1-3 * * BOOL3 : T=LINE 1-5 F=LINE 1-3 * ********************************************* * BIN1 WORKITEM * * BIN2 NO. OF ELEM.IN THIS RECORD * * BIN3 SIZE OF ELEMENT * * BIN4 FIRST EL.NO. IN RECORD * * BIN5 LAST - " - * * BIN6 ELMNO - BIN4 + W1 * * BIN7 = 0 * * BIN8 FC-DEDISC * * BIN10 X'8000' / X'B000' ,A/N * ************************************* DDUM DEDDIV PDIV ENTRY DE12ST ENTRY WRIT12 ENTRY CANC11 ENTRY CANC12 ENTRY A20 * EXT ENT12 EXT DECLRA EXT DERR EXT DEDISC EXT RESTOR EXT FMOVE EXT TESTB EXT DEPOOL EJECT DE12ST PROC MOVE TABLE,=X'5400' ATTFMT VSET SET BOOL1 GET CBE BIN2,W3,A10 JUMP IF PRNUM=13 CLEAR BOOL1 ENTER A10 MOVE PINDTB,W0 SET DEPROMPT CLEAR DECHANGE SET BOOL2 2 LINES ON DISPLAY CLEAR BOOL3 A15 MOVE ELMNO,W0 ELEMENTNUMBER:=0 PERF DECLRA A20 CBE DEBINW2,W0,CANC11 CLR-KEY ON ERROR IB DEBINW2,CANC12,CANC12,ENT12 MOVE DEBINW4,W0 'BELL' PERF DERR B A20 CANC11 MOVE DEBINW2,W1 CANC12 CALL RESTOR,W3,W4,PWBDB4 RESTORE ORIG. DESCR.-POINTERS PERF DEPOOL,W6,PINDTB,BIN7,STRG10A RELEASE BUFFER A30 IB DEBINW2,A10,RETUR,A10 B A15 RETUR RET PEND EJECT WRIT12 PROC XCOPY RPOOL(PINDTB),W17,W1,BIN4,W1 1:ST EL.NO. IN REC. MOVE BIN5,ELMNO SUB BIN5,W1 XCOPY RPOOL(PINDTB),W18,W1,BIN5,W1 LAST - " - MOVE BIN8,=W'26' PERF DEDISC,BIN8 ENTER VALUE-SETS BERR WR10 MOVE BIN4,ELMNO 1:ST EL.NO. IN NEXT REC. MOVE BIN5,BIN4 ADD BIN5,BIN2 SUB BIN5,W1 LAST - " - CMP W0,W0 WR10 RET PEND EJECT ************************************** * APPL-ROUTINES IN MODULE : DE10ST * ************************************** ******************************* * TABLE = VALUE-SET NO. * * TIME = SIZE OF ELEMENTS * * ACK(W1) = ELEMENT NO. * ******************************* VSET FRMT FSL FMEL '99',PRNUM FBT BOOL1,F13 FCOPY =C' CREATE' FB F12A F13 FCOPY =C' GET' F12A FCOPY =C' VALUE-SETS' FNL FCOPY =C'NAME: T' FBT BOOL2,F12B FINP 7 FCOPY TABLE FB F12C F12B 2 LINES FKI 8,NUM,MINL=2,MAXL=2,ME,NCLR,NEOI,APPL=101 FCOPY STR6A FB F12UT F12C FLINK F121 F12UT FMEND * F121 FRMT FNL FCOPY =C'TYPE:' FBT BOOL3,F121A FBF BOOL1,F124 IF CREATE F121A FINP 7 FCOPY STR2A FB F125 F124 FKI 7,MINL=1,MAXL=1,ALPHA,NEOI,ME,NCLR,APPL=102 A/N FCOPY STR2A F125 FTAB 10 FCOPY =C'SIZE OF ' FCOPY =C'ELEMENT' FCOPY =C'S:' FBT BOOL3,F125A FBF BOOL1,F127 IF CREATE F125A FINP 28 FMEL 'XX',TIME FB F128 F127 FKI 28,MINL=1,MAXL=2,NEOI,ME,NCLR,REWRT,APPL=103 <61 FMEL 'XX',TIME F128 FNL FCOPY =C'ELEMENT' FCOPY =C' NO.:' FBF BOOL3,FEND IF LINE 1-3 FINP 13 ENTER FMEL 'XX',ACK(W1) FNL * FLINK STR64A FCTL X'DE',STR64A FEND FMEND END
0x0000…0028 (0, 0, 400) Head {h00=0x0024, h01=0x0050, text=» IDENT DE12ST REL 10.0 80-04-11 «, t00=0x0000, t01=0x0004}
0x0028…0040 Head {h00=0x0014, h01=0x0050, text=» 79-12-14/LABJ«, t00=0x0000, t01=0x002c}
0x0040…0058 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0000, t01=0x0044}
0x0058…0070 Head {h00=0x0014, h01=0x0050, text=»* *«, t00=0x0000, t01=0x005c}
0x0070…0088 Head {h00=0x0014, h01=0x0050, text=»* VALUE SETS *«, t00=0x0000, t01=0x0074}
0x0088…00a0 Head {h00=0x0014, h01=0x0050, text=»* *«, t00=0x0000, t01=0x008c}
0x00a0…00b8 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0000, t01=0x00a4}
0x00b8…00ee Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0000, t01=0x00bc}
0x00ee…0124 Head {h00=0x0032, h01=0x0050, text=»* BOOL1 : T=GET V-S F=CREATE V-S * «, t00=0x0000, t01=0x00f2}
0x0124…015a Head {h00=0x0032, h01=0x0050, text=»* BOOL2 : T=LINE 1-2 F=LINE 1-3 * «, t00=0x0000, t01=0x0128}
0x015a…0190 Head {h00=0x0032, h01=0x0050, text=»* BOOL3 : T=LINE 1-5 F=LINE 1-3 * «, t00=0x0000, t01=0x015e}
0x0190…01c6 (1, 0, 400) Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0001, t01=0x0004}
0x01c6…01f4 Head {h00=0x002a, h01=0x0050, text=»* BIN1 WORKITEM * «, t00=0x0001, t01=0x003a}
0x01f4…0222 Head {h00=0x002a, h01=0x0050, text=»* BIN2 NO. OF ELEM.IN THIS RECORD * «, t00=0x0001, t01=0x0068}
0x0222…0250 Head {h00=0x002a, h01=0x0050, text=»* BIN3 SIZE OF ELEMENT * «, t00=0x0001, t01=0x0096}
0x0250…027e Head {h00=0x002a, h01=0x0050, text=»* BIN4 FIRST EL.NO. IN RECORD * «, t00=0x0001, t01=0x00c4}
0x027e…02ac Head {h00=0x002a, h01=0x0050, text=»* BIN5 LAST - " - * «, t00=0x0001, t01=0x00f2}
0x02ac…02da Head {h00=0x002a, h01=0x0050, text=»* BIN6 ELMNO - BIN4 + W1 * «, t00=0x0001, t01=0x0120}
0x02da…0308 Head {h00=0x002a, h01=0x0050, text=»* BIN7 = 0 * «, t00=0x0001, t01=0x014e}
0x0308…0336 Head {h00=0x002a, h01=0x0050, text=»* BIN8 FC-DEDISC * «, t00=0x0001, t01=0x017c}
0x0336…0364 Head {h00=0x002a, h01=0x0050, text=»* BIN10 X'8000' / X'B000' ,A/N * «, t00=0x0002, t01=0x001a}
0x0364…0392 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0002, t01=0x0048}
0x0392…03a6 Head {h00=0x0010, h01=0x000c, text=» DDUM DEDDIV«, t00=0x0002, t01=0x0076}
0x03a6…03b4 Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0002, t01=0x008a}
0x03b4…03ca Head {h00=0x0012, h01=0x000d, text=» ENTRY DE12ST «, t00=0x0002, t01=0x0098}
0x03ca…03e0 Head {h00=0x0012, h01=0x0050, text=» ENTRY WRIT12 «, t00=0x0002, t01=0x00ae}
0x03e0…03f6 Head {h00=0x0012, h01=0x0050, text=» ENTRY CANC11 «, t00=0x0002, t01=0x00c4}
0x03f6…040c Head {h00=0x0012, h01=0x0050, text=» ENTRY CANC12 «, t00=0x0002, t01=0x00da}
0x040c…041e Head {h00=0x000e, h01=0x0050, text=» ENTRY A20«, t00=0x0002, t01=0x00f0}
0x041e…0428 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0102}
0x0428…043a Head {h00=0x000e, h01=0x0050, text=» EXT ENT12«, t00=0x0002, t01=0x010c}
0x043a…044e Head {h00=0x0010, h01=0x0050, text=» EXT DECLRA «, t00=0x0002, t01=0x011e}
0x044e…0460 Head {h00=0x000e, h01=0x0050, text=» EXT DERR «, t00=0x0002, t01=0x0132}
0x0460…0474 Head {h00=0x0010, h01=0x0050, text=» EXT DEDISC «, t00=0x0002, t01=0x0144}
0x0474…0488 Head {h00=0x0010, h01=0x0050, text=» EXT RESTOR «, t00=0x0002, t01=0x0158}
0x0488…049a Head {h00=0x000e, h01=0x0050, text=» EXT FMOVE«, t00=0x0002, t01=0x016c}
0x049a…04ac Head {h00=0x000e, h01=0x0050, text=» EXT TESTB«, t00=0x0002, t01=0x017e}
0x04ac…04c0 Head {h00=0x0010, h01=0x0050, text=» EXT DEPOOL «, t00=0x0002, t01=0x0190}
0x04c0…04ce Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0003, t01=0x0014}
0x04ce…04e2 Head {h00=0x0010, h01=0x0050, text=»DE12ST PROC «, t00=0x0003, t01=0x0022}
0x04e2…04fe Head {h00=0x0018, h01=0x0050, text=» MOVE TABLE,=X'5400'«, t00=0x0003, t01=0x0036}
0x04fe…0512 Head {h00=0x0010, h01=0x0050, text=» ATTFMT VSET«, t00=0x0003, t01=0x0052}
0x0512…0528 Head {h00=0x0012, h01=0x0050, text=» SET BOOL1 GET«, t00=0x0003, t01=0x0066}
0x0528…0552 Head {h00=0x0026, h01=0x0050, text=» CBE BIN2,W3,A10 JUMP IF PRNUM=13 «, t00=0x0003, t01=0x007c}
0x0552…056c Head {h00=0x0016, h01=0x0050, text=» CLEAR BOOL1 ENTER«, t00=0x0003, t01=0x00a6}
0x056c…0578 Head {h00=0x0008, h01=0x0050, text=»A10 «, t00=0x0003, t01=0x00c0}
0x0578…0590 Head {h00=0x0014, h01=0x0050, text=» MOVE PINDTB,W0 «, t00=0x0003, t01=0x00cc}
0x0590…05a6 Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x0003, t01=0x00e4}
0x05a6…05be Head {h00=0x0014, h01=0x0050, text=» CLEAR DECHANGE «, t00=0x0003, t01=0x00fa}
0x05be…05e4 Head {h00=0x0022, h01=0x0050, text=» SET BOOL2 2 LINES ON DISPLAY «, t00=0x0003, t01=0x0112}
0x05e4…05f8 Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL3«, t00=0x0003, t01=0x0138}
0x05f8…0604 Head {h00=0x0008, h01=0x0050, text=»A15 «, t00=0x0003, t01=0x014c}
0x0604…062c Head {h00=0x0024, h01=0x0050, text=» MOVE ELMNO,W0 ELEMENTNUMBER:=0 «, t00=0x0003, t01=0x0158}
0x062c…0640 Head {h00=0x0010, h01=0x0050, text=» PERF DECLRA«, t00=0x0003, t01=0x0180}
0x0640…064c (4, 0, 398) Head {h00=0x0008, h01=0x0050, text=»A20 «, t00=0x0004, t01=0x0004}
0x064c…067c Head {h00=0x002c, h01=0x0050, text=» CBE DEBINW2,W0,CANC11 CLR-KEY ON ERROR «, t00=0x0004, t01=0x0010}
0x067c…06a4 Head {h00=0x0024, h01=0x0050, text=» IB DEBINW2,CANC12,CANC12,ENT12 «, t00=0x0004, t01=0x0040}
0x06a4…06c4 Head {h00=0x001c, h01=0x0050, text=» MOVE DEBINW4,W0 'BELL' «, t00=0x0004, t01=0x0068}
0x06c4…06d6 Head {h00=0x000e, h01=0x0050, text=» PERF DERR«, t00=0x0004, t01=0x0088}
0x06d6…06e4 Head {h00=0x000a, h01=0x0050, text=» B A20«, t00=0x0004, t01=0x009a}
0x06e4…06f2 Head {h00=0x000a, h01=0x0050, text=»CANC11«, t00=0x0004, t01=0x00a8}
0x06f2…070a Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W1«, t00=0x0004, t01=0x00b6}
0x070a…0718 Head {h00=0x000a, h01=0x0050, text=»CANC12«, t00=0x0004, t01=0x00ce}
0x0718…0758 Head {h00=0x003c, h01=0x0050, text=» CALL RESTOR,W3,W4,PWBDB4 RESTORE ORIG. DESCR.-POINTERS «, t00=0x0004, t01=0x00dc}
0x0758…0792 Head {h00=0x0036, h01=0x0050, text=» PERF DEPOOL,W6,PINDTB,BIN7,STRG10A RELEASE BUFFER«, t00=0x0004, t01=0x011c}
0x0792…079e Head {h00=0x0008, h01=0x0050, text=»A30 «, t00=0x0004, t01=0x0156}
0x079e…07c0 Head {h00=0x001e, h01=0x0050, text=» IB DEBINW2,A10,RETUR,A10 «, t00=0x0004, t01=0x0162}
0x07c0…07ce Head {h00=0x000a, h01=0x0050, text=» B A15«, t00=0x0004, t01=0x0184}
0x07ce…07e0 (5, 0, 400) Head {h00=0x000e, h01=0x0050, text=»RETUR RET «, t00=0x0005, t01=0x0004}
0x07e0…07ee Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0005, t01=0x0016}
0x07ee…07fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0024}
0x07fc…0810 Head {h00=0x0010, h01=0x0050, text=»WRIT12 PROC «, t00=0x0005, t01=0x0032}
0x0810…0850 Head {h00=0x003c, h01=0x0050, text=» XCOPY RPOOL(PINDTB),W17,W1,BIN4,W1 1:ST EL.NO. IN REC. «, t00=0x0005, t01=0x0046}
0x0850…0868 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN5,ELMNO«, t00=0x0005, t01=0x0086}
0x0868…087c Head {h00=0x0010, h01=0x0050, text=» SUB BIN5,W1«, t00=0x0005, t01=0x009e}
0x087c…08b4 Head {h00=0x0034, h01=0x0050, text=» XCOPY RPOOL(PINDTB),W18,W1,BIN5,W1 LAST - " -«, t00=0x0005, t01=0x00b2}
0x08b4…08ce Head {h00=0x0016, h01=0x0050, text=» MOVE BIN8,=W'26' «, t00=0x0005, t01=0x00ea}
0x08ce…08f8 Head {h00=0x0026, h01=0x0050, text=» PERF DEDISC,BIN8 ENTER VALUE-SETS«, t00=0x0005, t01=0x0104}
0x08f8…090a Head {h00=0x000e, h01=0x0050, text=» BERR WR10«, t00=0x0005, t01=0x012e}
0x090a…093c Head {h00=0x002e, h01=0x0050, text=» MOVE BIN4,ELMNO 1:ST EL.NO. IN NEXT REC. «, t00=0x0005, t01=0x0140}
0x093c…0954 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN5,BIN4 «, t00=0x0005, t01=0x0172}
0x0954…096a Head {h00=0x0012, h01=0x0050, text=» ADD BIN5,BIN2«, t00=0x0005, t01=0x018a}
0x096a…098c Head {h00=0x001e, h01=0x0050, text=» SUB BIN5,W1 LAST - " - «, t00=0x0006, t01=0x0010}
0x098c…099e Head {h00=0x000e, h01=0x0050, text=» CMP W0,W0«, t00=0x0006, t01=0x0032}
0x099e…09aa Head {h00=0x0008, h01=0x0050, text=»WR10«, t00=0x0006, t01=0x0044}
0x09aa…09b6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x0050}
0x09b6…09c4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x005c}
0x09c4…09d2 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0006, t01=0x006a}
0x09d2…0a00 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0006, t01=0x0078}
0x0a00…0a2e Head {h00=0x002a, h01=0x0050, text=»* APPL-ROUTINES IN MODULE : DE10ST *«, t00=0x0006, t01=0x00a6}
0x0a2e…0a5c Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0006, t01=0x00d4}
0x0a5c…0a84 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0006, t01=0x0102}
0x0a84…0aac Head {h00=0x0024, h01=0x0050, text=»* TABLE = VALUE-SET NO. * «, t00=0x0006, t01=0x012a}
0x0aac…0ad2 Head {h00=0x0022, h01=0x0050, text=»* TIME = SIZE OF ELEMENTS *«, t00=0x0006, t01=0x0152}
0x0ad2…0afa Head {h00=0x0024, h01=0x0050, text=»* ACK(W1) = ELEMENT NO. *«, t00=0x0006, t01=0x0178}
0x0afa…0b22 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0007, t01=0x0010}
0x0b22…0b34 Head {h00=0x000e, h01=0x0050, text=»VSET FRMT «, t00=0x0007, t01=0x0038}
0x0b34…0b40 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0007, t01=0x004a}
0x0b40…0b58 Head {h00=0x0014, h01=0x0050, text=» FMEL '99',PRNUM«, t00=0x0007, t01=0x0056}
0x0b58…0b6e Head {h00=0x0012, h01=0x0050, text=» FBT BOOL1,F13«, t00=0x0007, t01=0x006e}
0x0b6e…0b88 Head {h00=0x0016, h01=0x0050, text=» FCOPY =C' CREATE'«, t00=0x0007, t01=0x0084}
0x0b88…0b98 Head {h00=0x000c, h01=0x0050, text=» FB F12A«, t00=0x0007, t01=0x009e}
0x0b98…0bb2 Head {h00=0x0016, h01=0x0050, text=»F13 FCOPY =C' GET'«, t00=0x0007, t01=0x00ae}
0x0bb2…0bd4 Head {h00=0x001e, h01=0x0050, text=»F12A FCOPY =C' VALUE-SETS'«, t00=0x0007, t01=0x00c8}
0x0bd4…0be0 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0007, t01=0x00ea}
0x0be0…0bfa Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'NAME: T'«, t00=0x0007, t01=0x00f6}
0x0bfa…0c12 Head {h00=0x0014, h01=0x0050, text=» FBT BOOL2,F12B «, t00=0x0007, t01=0x0110}
0x0c12…0c22 Head {h00=0x000c, h01=0x0050, text=» FINP 7 «, t00=0x0007, t01=0x0128}
0x0c22…0c36 Head {h00=0x0010, h01=0x0050, text=» FCOPY TABLE«, t00=0x0007, t01=0x0138}
0x0c36…0c46 Head {h00=0x000c, h01=0x0050, text=» FB F12C«, t00=0x0007, t01=0x014c}
0x0c46…0c5c Head {h00=0x0012, h01=0x0050, text=»F12B 2 LINES«, t00=0x0007, t01=0x015c}
0x0c5c…0c92 Head {h00=0x0032, h01=0x0050, text=» FKI 8,NUM,MINL=2,MAXL=2,ME,NCLR,NEOI,APPL=101«, t00=0x0007, t01=0x0172}
0x0c92…0ca6 Head {h00=0x0010, h01=0x0050, text=» FCOPY STR6A«, t00=0x0008, t01=0x0018}
0x0ca6…0cb8 Head {h00=0x000e, h01=0x0050, text=» FB F12UT «, t00=0x0008, t01=0x002c}
0x0cb8…0cc4 Head {h00=0x0008, h01=0x0050, text=»F12C«, t00=0x0008, t01=0x003e}
0x0cc4…0cd8 Head {h00=0x0010, h01=0x0050, text=» FLINK F121 «, t00=0x0008, t01=0x004a}
0x0cd8…0cec Head {h00=0x0010, h01=0x0050, text=»F12UT FMEND «, t00=0x0008, t01=0x005e}
0x0cec…0cf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0072}
0x0cf6…0d08 Head {h00=0x000e, h01=0x0050, text=»F121 FRMT «, t00=0x0008, t01=0x007c}
0x0d08…0d14 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0008, t01=0x008e}
0x0d14…0d2c Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'TYPE:'«, t00=0x0008, t01=0x009a}
0x0d2c…0d44 Head {h00=0x0014, h01=0x0050, text=» FBT BOOL3,F121A«, t00=0x0008, t01=0x00b2}
0x0d44…0d66 Head {h00=0x001e, h01=0x0050, text=» FBF BOOL1,F124 IF CREATE «, t00=0x0008, t01=0x00ca}
0x0d66…0d74 Head {h00=0x000a, h01=0x0050, text=»F121A «, t00=0x0008, t01=0x00ec}
0x0d74…0d84 Head {h00=0x000c, h01=0x0050, text=» FINP 7 «, t00=0x0008, t01=0x00fa}
0x0d84…0d98 Head {h00=0x0010, h01=0x0050, text=» FCOPY STR2A«, t00=0x0008, t01=0x010a}
0x0d98…0da8 Head {h00=0x000c, h01=0x0050, text=» FB F125«, t00=0x0008, t01=0x011e}
0x0da8…0db4 Head {h00=0x0008, h01=0x0050, text=»F124«, t00=0x0008, t01=0x012e}
0x0db4…0df0 Head {h00=0x0038, h01=0x0050, text=» FKI 7,MINL=1,MAXL=1,ALPHA,NEOI,ME,NCLR,APPL=102 A/N«, t00=0x0008, t01=0x013a}
0x0df0…0e04 Head {h00=0x0010, h01=0x0050, text=» FCOPY STR2A«, t00=0x0008, t01=0x0176}
0x0e04…0e10 Head {h00=0x0008, h01=0x0050, text=»F125«, t00=0x0008, t01=0x018a}
0x0e10…0e20 Head {h00=0x000c, h01=0x0050, text=» FTAB 10«, t00=0x0009, t01=0x0008}
0x0e20…0e3c Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'SIZE OF ' «, t00=0x0009, t01=0x0018}
0x0e3c…0e56 Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'ELEMENT'«, t00=0x0009, t01=0x0034}
0x0e56…0e6c Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'S:' «, t00=0x0009, t01=0x004e}
0x0e6c…0e84 Head {h00=0x0014, h01=0x0050, text=» FBT BOOL3,F125A«, t00=0x0009, t01=0x0064}
0x0e84…0ea6 Head {h00=0x001e, h01=0x0050, text=» FBF BOOL1,F127 IF CREATE «, t00=0x0009, t01=0x007c}
0x0ea6…0eb4 Head {h00=0x000a, h01=0x0050, text=»F125A «, t00=0x0009, t01=0x009e}
0x0eb4…0ec4 Head {h00=0x000c, h01=0x0050, text=» FINP 28«, t00=0x0009, t01=0x00ac}
0x0ec4…0edc Head {h00=0x0014, h01=0x0050, text=» FMEL 'XX',TIME «, t00=0x0009, t01=0x00bc}
0x0edc…0eec Head {h00=0x000c, h01=0x0050, text=» FB F128«, t00=0x0009, t01=0x00d4}
0x0eec…0ef8 Head {h00=0x0008, h01=0x0050, text=»F127«, t00=0x0009, t01=0x00e4}
0x0ef8…0f36 Head {h00=0x003a, h01=0x0050, text=» FKI 28,MINL=1,MAXL=2,NEOI,ME,NCLR,REWRT,APPL=103 <61 «, t00=0x0009, t01=0x00f0}
0x0f36…0f4e Head {h00=0x0014, h01=0x0050, text=» FMEL 'XX',TIME «, t00=0x0009, t01=0x012e}
0x0f4e…0f5a Head {h00=0x0008, h01=0x0050, text=»F128«, t00=0x0009, t01=0x0146}
0x0f5a…0f66 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0009, t01=0x0152}
0x0f66…0f80 Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'ELEMENT'«, t00=0x0009, t01=0x015e}
0x0f80…0f98 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C' NO.:'«, t00=0x0009, t01=0x0178}
0x0f98…0fbc Head {h00=0x0020, h01=0x0050, text=» FBF BOOL3,FEND IF LINE 1-3 «, t00=0x0009, t01=0x0190}
0x0fbc…0fd2 Head {h00=0x0012, h01=0x0050, text=» FINP 13 ENTER«, t00=0x000a, t01=0x0024}
0x0fd2…0fec Head {h00=0x0016, h01=0x0050, text=» FMEL 'XX',ACK(W1)«, t00=0x000a, t01=0x003a}
0x0fec…0ff8 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x000a, t01=0x0054}
0x0ff8…100e Head {h00=0x0012, h01=0x0050, text=»* FLINK STR64A«, t00=0x000a, t01=0x0060}
0x100e…1028 Head {h00=0x0016, h01=0x0050, text=» FCTL X'DE',STR64A«, t00=0x000a, t01=0x0076}
0x1028…1034 Head {h00=0x0008, h01=0x0050, text=»FEND«, t00=0x000a, t01=0x0090}
0x1034…1042 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000a, t01=0x009c}
0x1042…104e Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x000a, t01=0x00aa}
0x104e…1052 Head {h00=0x4004, h01=0x0000}
0x1052…1056 00 0a 00 b6 ┆ ┆
0x1056…105e (11, 1, 8) 20 04 00 00 00 0b 00 04 ┆ ┆
0x105e…10ae (12, 0, 400) 23 34 00 40 88 00 89 20 00 88 20 30 43 0c 50 08 6a 95 20 21 21 21 57 50 00 95 55 30 30 00 50 0d 00 88 20 6d 95 88 16 28 88 20 26 57 1c 00 95 0c 01 87 30 29 0c 3d 06 62 95 20 21 5a 2f 68 95 88 87 55 20 21 04 88 21 51 05 00 93 21 34 00 02 89 ┆#4 @ 0C P j !!!WP U00 P m ( &W 0) = b !Z/h U ! !Q !4 ┆
0x10ae…10fe 21 30 33 40 88 54 11 30 25 9d 1e 02 88 12 6a 9d 25 21 88 21 30 31 92 9d 00 90 21 00 88 89 30 46 91 99 28 90 91 80 05 21 91 36 92 03 9b 63 76 36 91 06 12 12 17 43 08 97 04 91 26 00 93 20 34 00 80 06 00 90 20 80 07 10 57 8a 01 99 31 57 03 01 ┆!03@ T 0% j %! !01 ! 0F ( ! 6 cv6 C & 4 W 1W ┆
0x10fe…114e 99 32 30 30 00 50 04 22 91 22 4a 68 95 88 21 55 20 21 54 41 30 30 00 54 0c 00 8b 20 68 95 8b 21 99 20 21 54 30 30 36 00 95 5f 82 41 88 30 30 00 54 04 66 95 20 21 30 25 9d 1a 30 33 30 31 92 9d 5f dd 30 12 11 92 30 1b 92 28 50 09 68 95 88 21 ┆ 200 P " "Jh !U !TA00 T h ! !T006 _ A 00 T f !0% 0301 _ 0 0 (P h !┆
0x114e…119e 99 20 21 50 06 31 31 92 19 5f 93 31 31 92 1b 02 89 21 30 30 03 58 9f 30 2a 01 88 14 89 88 a7 30 30 00 5c 4f 10 89 88 b0 5f 55 00 93 22 34 00 00 93 23 34 00 00 93 24 34 00 14 00 08 00 18 01 33 00 18 01 3a 00 18 01 40 00 18 00 72 00 18 02 9c ┆ !P 11 _ 11 !00 X 0* 00 O _U "4 #4 $4 3 : @ r ┆
0x119e…11ee 00 18 02 5a 00 18 01 fb 00 18 02 ab 00 07 00 18 01 f8 00 00 02 38 00 18 01 48 00 05 00 0e 00 00 02 e2 00 13 06 3d 00 10 00 0e 00 50 2b 2d 3f 54 0a aa 0f aa 42 41 54 43 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 ┆ Z 8 H = P+-?T BATC ┆