|
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: 10372 (0x2884)
Notes: pts_type(SC)
Names: »CDCHKY.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »DEMO6800/CDCHKY.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »DEMO6800/CDCHKY.SC«
IDENT CDCHKY CHECK FUNCTIONKEY-COMBINATION
DDUM DEMODD
PDIV
EXPROC XEERR
ENTRY CDCHKY
************************************************************************
*
* CHECK THE VALIDITY OF FUNCTION KEY COMBINATIONS
*
************************************************************************
CDCHKY PROC
CD000
************************************************************************
**
* CHECKS ON CURRENCY*
**
************************************************************************
CD110
CBNE KDCHECKS(NWKTBIX,KW1),=D'1',CD112
CBNE SWCCY,=W'0',CD990 ERROR
B CD120 NEXT CHECK
**
* SPECIFIC CURRENCY CHECKS*
**
CD112
CBNE KDCHECKS(NWKTBIX,KW1),=D'2',CD120 NO SPECIFIC CHECK
CBE SWCCY,=W'0',CD115
**
* CURRENCY IS ON*
**
TBT SBCHEQUE,CD990
TBT SBNOBOOK,CD990
TBT SBCARD,CD990
TBT SBRVS,CD990 ERRORS
B CD120 NEXT CHECK
**
* CURRENCY IS OFF*
**
CD115
TBF SBFLDEMP,CD990 FIELD NOT EMPTY
************************************************************************
**
* CHECKS ON CHEQUE*
**
************************************************************************
CD120
CBNE KDCHECKS(NWKTBIX,KW2),=D'1',CD122
TBT SBCHEQUE,CD990 ERROR
B CD130 NEXT CHECK
**
* SPECIFIC CHEQUE CHECKS*
**
CD122
CBNE KDCHECKS(NWKTBIX,KW2),=D'2',CD130 NO SPECIFIC CHECK
TBF SBCHEQUE,CD130 ONLY IF CHEQUE IS ON
**
* CHEQUE IS ON*
**
TBT SBRVS,CD990 'REVERSAL' MUST BE OFF
TBT SBNOBOOK,CD990 'NOBOOK' MUST BE OFF
TBT SBCARD,CD990 'CARD' MUST BE OFF
TBF SBFLDEMP,CD990 FIELD MUST BE EMPTY
************************************************************************
**
* CHECKS ON NOBOOK*
**
************************************************************************
CD130
CBNE KDCHECKS(NWKTBIX,KW3),=D'1',CD132
TBT SBNOBOOK,CD990 ERROR
B CD140 NEXT CHECK
**
* SPECIFIC NOBOOK CHECKS*
**
CD132
CBNE KDCHECKS(NWKTBIX,KW3),=D'2',CD140
TBF SBNOBOOK,CD140 OK, NEXT CHECK
TBT SBCARD,CD990 'CARD' MUST BE OFF
TBF SBFLDEMP,CD990 FIELD MUST BE EMPTY
************************************************************************
**
* CHECKS ON REVERSAL*
**
************************************************************************
CD140
CBNE KDCHECKS(NWKTBIX,KW4),=D'1',CD142
TBT SBRVS,CD990 ERROR
B CD150 NEXT CHECK
CD142
************************************************************************
**
* CHECKS ON CARD*
**
************************************************************************
CD150
CBNE KDCHECKS(NWKTBIX,KW5),=D'1',CD152
TBT SBCARD,CD990 ERROR
B CD160 NEXT CHECK
**
* SPECIFIC CARD CHECKS*
**
CD152
CBNE KDCHECKS(NWKTBIX,KW5),=D'2',CD154
TBF SBCARD,CD160 OK, NEXT CHECK
TBT SBNOBOOK,CD990 'NOBOOK' MUST BE OFF
TBT SBCHEQUE,CD990 'CHEQUE' MUST BE OFF
TBF SBFLDEMP,CD990 FIELD MUST BE EMPTY
CD154
CBNE KDCHECKS(NWKTBIX,KW5),=D'3',CD160
TBF SBCARD,CD160
TBF SBCHEQUE,CD990
************************************************************************
**
* CHECKS ON THE INPUT-FIELD*
**
************************************************************************
CD160
CBNE KDCHECKS(NWKTBIX,KW6),=D'1',CD999
TBF SBFLDEMP,CD990 FIELD NOT EMPTY, ERROR
B CD999 NEXT CHECK
CD990
PERF XEERR,=W'10',KW1 UNSERVICEABLE REQUEST
CD999
RET
PEND
*
*
END
0x0000…004e (0, 0, 400) Head {h00=0x004a, h01=0x0050, text=» IDENT CDCHKY CHECK FUNCTIONKEY-COMBINATION «, t00=0x0000, t01=0x0004}
0x004e…0062 Head {h00=0x0010, h01=0x000c, text=» DDUM DEMODD«, t00=0x0000, t01=0x0052}
0x0062…0070 Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x0066}
0x0070…0086 Head {h00=0x0012, h01=0x0050, text=» EXPROC XEERR «, t00=0x0000, t01=0x0074}
0x0086…009c Head {h00=0x0012, h01=0x000d, text=» ENTRY CDCHKY «, t00=0x0000, t01=0x008a}
0x009c…00ec Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x00a0}
0x00ec…00f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f0}
0x00f6…0130 Head {h00=0x0036, h01=0x0050, text=»* CHECK THE VALIDITY OF FUNCTION KEY COMBINATIONS «, t00=0x0000, t01=0x00fa}
0x0130…013a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0134}
0x013a…018a Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x013e}
0x018a…019e Head {h00=0x0010, h01=0x0050, text=»CDCHKY PROC «, t00=0x0000, t01=0x018e}
0x019e…01ac Head {h00=0x000a, h01=0x0050, text=»CD000 «, t00=0x0001, t01=0x0012}
0x01ac…01fc Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0001, t01=0x0020}
0x01fc…024c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0001, t01=0x0070}
0x024c…029c Head {h00=0x004c, h01=0x0050, text=»* CHECKS ON CURRENCY *«, t00=0x0001, t01=0x00c0}
0x029c…02ec Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0001, t01=0x0110}
0x02ec…033c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0001, t01=0x0160}
0x033c…038c Head {h00=0x004c, h01=0x0050, text=»CD110 «, t00=0x0002, t01=0x0020}
0x038c…03dc Head {h00=0x004c, h01=0x0050, text=» CBNE KDCHECKS(NWKTBIX,KW1),=D'1',CD112 «, t00=0x0002, t01=0x0070}
0x03dc…042c Head {h00=0x004c, h01=0x0050, text=» CBNE SWCCY,=W'0',CD990 ERROR «, t00=0x0002, t01=0x00c0}
0x042c…047c Head {h00=0x004c, h01=0x0050, text=» B CD120 NEXT CHECK «, t00=0x0002, t01=0x0110}
0x047c…04cc Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0002, t01=0x0160}
0x04cc…051c Head {h00=0x004c, h01=0x0050, text=»* SPECIFIC CURRENCY CHECKS *«, t00=0x0003, t01=0x0020}
0x051c…056c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0003, t01=0x0070}
0x056c…05bc Head {h00=0x004c, h01=0x0050, text=»CD112 «, t00=0x0003, t01=0x00c0}
0x05bc…0600 Head {h00=0x0040, h01=0x0050, text=» CBNE KDCHECKS(NWKTBIX,KW1),=D'2',CD120 NO SPECIFIC CHECK «, t00=0x0003, t01=0x0110}
0x0600…0650 Head {h00=0x004c, h01=0x0050, text=» CBE SWCCY,=W'0',CD115 «, t00=0x0003, t01=0x0154}
0x0650…06a0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0004, t01=0x0014}
0x06a0…06f0 Head {h00=0x004c, h01=0x0050, text=»* CURRENCY IS ON *«, t00=0x0004, t01=0x0064}
0x06f0…0740 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0004, t01=0x00b4}
0x0740…0790 Head {h00=0x004c, h01=0x0050, text=» TBT SBCHEQUE,CD990 «, t00=0x0004, t01=0x0104}
0x0790…07e0 Head {h00=0x004c, h01=0x0050, text=» TBT SBNOBOOK,CD990 «, t00=0x0004, t01=0x0154}
0x07e0…0830 Head {h00=0x004c, h01=0x0050, text=» TBT SBCARD,CD990 «, t00=0x0005, t01=0x0014}
0x0830…0880 Head {h00=0x004c, h01=0x0050, text=» TBT SBRVS,CD990 ERRORS «, t00=0x0005, t01=0x0064}
0x0880…08d0 Head {h00=0x004c, h01=0x0050, text=» B CD120 NEXT CHECK «, t00=0x0005, t01=0x00b4}
0x08d0…0920 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0005, t01=0x0104}
0x0920…0970 Head {h00=0x004c, h01=0x0050, text=»* CURRENCY IS OFF *«, t00=0x0005, t01=0x0154}
0x0970…09c0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0006, t01=0x0014}
0x09c0…0a10 Head {h00=0x004c, h01=0x0050, text=»CD115 «, t00=0x0006, t01=0x0064}
0x0a10…0a60 Head {h00=0x004c, h01=0x0050, text=» TBF SBFLDEMP,CD990 FIELD NOT EMPTY «, t00=0x0006, t01=0x00b4}
0x0a60…0ab0 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0006, t01=0x0104}
0x0ab0…0b00 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0006, t01=0x0154}
0x0b00…0b50 Head {h00=0x004c, h01=0x0050, text=»* CHECKS ON CHEQUE *«, t00=0x0007, t01=0x0014}
0x0b50…0ba0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0007, t01=0x0064}
0x0ba0…0bf0 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0007, t01=0x00b4}
0x0bf0…0c40 Head {h00=0x004c, h01=0x0050, text=»CD120 «, t00=0x0007, t01=0x0104}
0x0c40…0c90 Head {h00=0x004c, h01=0x0050, text=» CBNE KDCHECKS(NWKTBIX,KW2),=D'1',CD122 «, t00=0x0007, t01=0x0154}
0x0c90…0ce0 Head {h00=0x004c, h01=0x0050, text=» TBT SBCHEQUE,CD990 ERROR «, t00=0x0008, t01=0x0014}
0x0ce0…0d30 Head {h00=0x004c, h01=0x0050, text=» B CD130 NEXT CHECK «, t00=0x0008, t01=0x0064}
0x0d30…0d80 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0008, t01=0x00b4}
0x0d80…0dd0 Head {h00=0x004c, h01=0x0050, text=»* SPECIFIC CHEQUE CHECKS *«, t00=0x0008, t01=0x0104}
0x0dd0…0e20 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0008, t01=0x0154}
0x0e20…0e70 Head {h00=0x004c, h01=0x0050, text=»CD122 «, t00=0x0009, t01=0x0014}
0x0e70…0eb4 Head {h00=0x0040, h01=0x0050, text=» CBNE KDCHECKS(NWKTBIX,KW2),=D'2',CD130 NO SPECIFIC CHECK «, t00=0x0009, t01=0x0064}
0x0eb4…0f04 Head {h00=0x004c, h01=0x0050, text=» TBF SBCHEQUE,CD130 ONLY IF CHEQUE IS ON «, t00=0x0009, t01=0x00a8}
0x0f04…0f54 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0009, t01=0x00f8}
0x0f54…0fa4 Head {h00=0x004c, h01=0x0050, text=»* CHEQUE IS ON *«, t00=0x0009, t01=0x0148}
0x0fa4…0ff4 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000a, t01=0x0008}
0x0ff4…1042 Head {h00=0x004a, h01=0x0050, text=» TBT SBRVS,CD990 'REVERSAL' MUST BE OFF «, t00=0x000a, t01=0x0058}
0x1042…1090 Head {h00=0x004a, h01=0x0050, text=» TBT SBNOBOOK,CD990 'NOBOOK' MUST BE OFF «, t00=0x000a, t01=0x00a6}
0x1090…10bc Head {h00=0x0028, h01=0x0050, text=» TBT SBCARD,CD990 'CARD' MUST BE OFF«, t00=0x000a, t01=0x00f4}
0x10bc…10ec Head {h00=0x002c, h01=0x0050, text=» TBF SBFLDEMP,CD990 FIELD MUST BE EMPTY «, t00=0x000a, t01=0x0120}
0x10ec…113c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x000a, t01=0x0150}
0x113c…118c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000b, t01=0x0010}
0x118c…11dc Head {h00=0x004c, h01=0x0050, text=»* CHECKS ON NOBOOK *«, t00=0x000b, t01=0x0060}
0x11dc…122c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000b, t01=0x00b0}
0x122c…127c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x000b, t01=0x0100}
0x127c…128a Head {h00=0x000a, h01=0x0050, text=»CD130 «, t00=0x000b, t01=0x0150}
0x128a…12da Head {h00=0x004c, h01=0x0050, text=» CBNE KDCHECKS(NWKTBIX,KW3),=D'1',CD132 «, t00=0x000b, t01=0x015e}
0x12da…132a Head {h00=0x004c, h01=0x0050, text=» TBT SBNOBOOK,CD990 ERROR «, t00=0x000c, t01=0x001e}
0x132a…137a Head {h00=0x004c, h01=0x0050, text=» B CD140 NEXT CHECK «, t00=0x000c, t01=0x006e}
0x137a…13ca Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000c, t01=0x00be}
0x13ca…141a Head {h00=0x004c, h01=0x0050, text=»* SPECIFIC NOBOOK CHECKS *«, t00=0x000c, t01=0x010e}
0x141a…146a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000c, t01=0x015e}
0x146a…14ba Head {h00=0x004c, h01=0x0050, text=»CD132 «, t00=0x000d, t01=0x001e}
0x14ba…150a Head {h00=0x004c, h01=0x0050, text=» CBNE KDCHECKS(NWKTBIX,KW3),=D'2',CD140 «, t00=0x000d, t01=0x006e}
0x150a…155a Head {h00=0x004c, h01=0x0050, text=» TBF SBNOBOOK,CD140 OK, NEXT CHECK «, t00=0x000d, t01=0x00be}
0x155a…15a8 Head {h00=0x004a, h01=0x0050, text=» TBT SBCARD,CD990 'CARD' MUST BE OFF «, t00=0x000d, t01=0x010e}
0x15a8…15d8 Head {h00=0x002c, h01=0x0050, text=» TBF SBFLDEMP,CD990 FIELD MUST BE EMPTY «, t00=0x000d, t01=0x015c}
0x15d8…1628 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x000d, t01=0x018c}
0x1628…1678 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000e, t01=0x004c}
0x1678…16c8 Head {h00=0x004c, h01=0x0050, text=»* CHECKS ON REVERSAL *«, t00=0x000e, t01=0x009c}
0x16c8…1718 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000e, t01=0x00ec}
0x1718…1768 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x000e, t01=0x013c}
0x1768…17b8 Head {h00=0x004c, h01=0x0050, text=»CD140 «, t00=0x000e, t01=0x018c}
0x17b8…1808 Head {h00=0x004c, h01=0x0050, text=» CBNE KDCHECKS(NWKTBIX,KW4),=D'1',CD142 «, t00=0x000f, t01=0x004c}
0x1808…1858 Head {h00=0x004c, h01=0x0050, text=» TBT SBRVS,CD990 ERROR «, t00=0x000f, t01=0x009c}
0x1858…18a8 Head {h00=0x004c, h01=0x0050, text=» B CD150 NEXT CHECK «, t00=0x000f, t01=0x00ec}
0x18a8…18f8 Head {h00=0x004c, h01=0x0050, text=»CD142 «, t00=0x000f, t01=0x013c}
0x18f8…1948 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x000f, t01=0x018c}
0x1948…1998 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0010, t01=0x004c}
0x1998…19e8 Head {h00=0x004c, h01=0x0050, text=»* CHECKS ON CARD *«, t00=0x0010, t01=0x009c}
0x19e8…1a38 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0010, t01=0x00ec}
0x1a38…1a88 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0010, t01=0x013c}
0x1a88…1ad8 Head {h00=0x004c, h01=0x0050, text=»CD150 «, t00=0x0010, t01=0x018c}
0x1ad8…1b28 Head {h00=0x004c, h01=0x0050, text=» CBNE KDCHECKS(NWKTBIX,KW5),=D'1',CD152 «, t00=0x0011, t01=0x004c}
0x1b28…1b78 Head {h00=0x004c, h01=0x0050, text=» TBT SBCARD,CD990 ERROR «, t00=0x0011, t01=0x009c}
0x1b78…1bc8 Head {h00=0x004c, h01=0x0050, text=» B CD160 NEXT CHECK «, t00=0x0011, t01=0x00ec}
0x1bc8…1c18 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0011, t01=0x013c}
0x1c18…1c68 Head {h00=0x004c, h01=0x0050, text=»* SPECIFIC CARD CHECKS *«, t00=0x0011, t01=0x018c}
0x1c68…1cb8 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0012, t01=0x004c}
0x1cb8…1d08 Head {h00=0x004c, h01=0x0050, text=»CD152 «, t00=0x0012, t01=0x009c}
0x1d08…1d58 Head {h00=0x004c, h01=0x0050, text=» CBNE KDCHECKS(NWKTBIX,KW5),=D'2',CD154 «, t00=0x0012, t01=0x00ec}
0x1d58…1da8 Head {h00=0x004c, h01=0x0050, text=» TBF SBCARD,CD160 OK, NEXT CHECK «, t00=0x0012, t01=0x013c}
0x1da8…1df6 Head {h00=0x004a, h01=0x0050, text=» TBT SBNOBOOK,CD990 'NOBOOK' MUST BE OFF «, t00=0x0012, t01=0x018c}
0x1df6…1e44 Head {h00=0x004a, h01=0x0050, text=» TBT SBCHEQUE,CD990 'CHEQUE' MUST BE OFF «, t00=0x0013, t01=0x004a}
0x1e44…1e74 Head {h00=0x002c, h01=0x0050, text=» TBF SBFLDEMP,CD990 FIELD MUST BE EMPTY «, t00=0x0013, t01=0x0098}
0x1e74…1e82 Head {h00=0x000a, h01=0x0050, text=»CD154 «, t00=0x0013, t01=0x00c8}
0x1e82…1eb2 Head {h00=0x002c, h01=0x0050, text=» CBNE KDCHECKS(NWKTBIX,KW5),=D'3',CD160 «, t00=0x0013, t01=0x00d6}
0x1eb2…1ecc Head {h00=0x0016, h01=0x0050, text=» TBF SBCARD,CD160 «, t00=0x0013, t01=0x0106}
0x1ecc…1ee8 Head {h00=0x0018, h01=0x0050, text=» TBF SBCHEQUE,CD990 «, t00=0x0013, t01=0x0120}
0x1ee8…1f38 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0013, t01=0x013c}
0x1f38…1f88 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0013, t01=0x018c}
0x1f88…1fd8 Head {h00=0x004c, h01=0x0050, text=»* CHECKS ON THE INPUT-FIELD *«, t00=0x0014, t01=0x004c}
0x1fd8…2028 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0014, t01=0x009c}
0x2028…2078 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0014, t01=0x00ec}
0x2078…20c8 Head {h00=0x004c, h01=0x0050, text=»CD160 «, t00=0x0014, t01=0x013c}
0x20c8…2118 Head {h00=0x004c, h01=0x0050, text=» CBNE KDCHECKS(NWKTBIX,KW6),=D'1',CD999 «, t00=0x0014, t01=0x018c}
0x2118…2168 Head {h00=0x004c, h01=0x0050, text=» TBF SBFLDEMP,CD990 FIELD NOT EMPTY, ERROR «, t00=0x0015, t01=0x004c}
0x2168…21b8 Head {h00=0x004c, h01=0x0050, text=» B CD999 NEXT CHECK «, t00=0x0015, t01=0x009c}
0x21b8…21c6 Head {h00=0x000a, h01=0x0005, text=»CD990 «, t00=0x0015, t01=0x00ec}
0x21c6…21fa Head {h00=0x0030, h01=0x0050, text=» PERF XEERR,=W'10',KW1 UNSERVICEABLE REQUEST«, t00=0x0015, t01=0x00fa}
0x21fa…2208 Head {h00=0x000a, h01=0x0005, text=»CD999 «, t00=0x0015, t01=0x012e}
0x2208…2214 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0015, t01=0x013c}
0x2214…2222 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0015, t01=0x0148}
0x2222…222c Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0015, t01=0x0156}
0x222c…2236 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0015, t01=0x0160}
0x2236…2242 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0015, t01=0x016a}
0x2242…2246 Head {h00=0x4004, h01=0x0000}
0x2246…224a 00 15 01 76 ┆ v┆
0x224a…2252 (22, 1, 8) 20 04 00 00 00 16 00 04 ┆ ┆
0x2252…22a2 (23, 2, 280) 5c 46 43 4f 50 59 5c 3d 58 27 32 30 33 31 27 5c 45 52 41 53 45 20 53 43 52 45 45 4e 00 06 01 90 00 1c 00 50 5c 46 54 45 58 54 5c 27 44 45 4d 4f 20 50 54 53 20 36 38 30 30 20 27 20 00 07 00 24 00 20 00 50 5c 46 54 45 58 54 5c 27 31 32 4e 43 ┆ FCOPY =X'2031' ERASE SCREEN P FTEXT 'DEMO PTS 6800 ' $ P FTEXT '12NC┆
0x22a2…22f2 3d 38 37 30 31 35 35 30 34 30 31 30 30 20 27 20 00 07 00 44 00 0e 00 50 5c 46 54 45 58 54 5c 27 3a 27 00 07 00 68 00 0a 00 50 5c 46 4d 45 4e 44 00 07 00 7a 00 06 00 50 2a 20 00 07 00 88 00 06 00 50 2a 20 00 07 00 92 00 10 00 50 46 4d 54 45 ┆=870155040100 ' D P FTEXT ':' h P FMEND z P* P* PFMTE┆
0x22f2…2342 4e 44 5c 46 52 4d 54 20 00 07 00 9c 00 20 00 50 5c 46 43 4f 50 59 5c 3d 58 27 32 30 33 31 27 5c 45 52 41 53 45 20 53 43 52 45 45 4e 00 07 00 b0 00 0e 00 50 5c 46 54 45 58 54 5c 27 2a 27 00 07 00 d4 00 0a 00 50 5c 46 4d 45 4e 44 00 07 00 e6 ┆ND FRMT P FCOPY =X'2031' ERASE SCREEN P FTEXT '*' P FMEND ┆
0x2342…236a 00 06 00 50 2a 20 00 07 00 f4 00 06 00 50 2a 20 00 07 00 fe 00 08 00 50 20 45 4e 44 00 07 01 08 40 04 00 00 00 07 01 14 ┆ P* P* P END @ ┆
0x236a…2372 (24, 1, 8) 20 04 00 00 00 08 00 04 ┆ ┆
0x2372…23c2 (25, 0, 400) 00 3c 00 48 20 49 44 45 4e 54 20 54 3a 41 46 30 30 20 20 54 52 41 20 34 2e 32 20 20 38 30 2d 30 32 2d 31 31 20 46 31 20 4f 31 31 31 32 20 20 44 41 54 41 20 44 49 56 49 53 49 4f 4e 00 01 00 04 00 0e 00 0a 01 04 c8 54 3a 41 46 30 30 00 00 01 ┆ < H IDENT T:AF00 TRA 4.2 80-02-11 F1 O1112 DATA DIVISION T:AF00 ┆
0x23c2…2412 00 44 00 10 00 0c 05 05 c8 54 3a 41 46 30 30 41 01 2c 00 01 00 56 00 3e 00 3a 02 1c c8 54 3a 44 46 30 30 00 c8 44 3a 43 57 31 30 00 c8 43 3a 43 57 31 30 00 c8 44 3a 43 53 59 30 00 c8 43 3a 43 53 59 30 00 c8 44 3a 54 52 4d 30 00 c8 5a 3a 54 ┆ D T:AF00A , V > : T:DF00 D:CW10 C:CW10 D:CSY0 C:CSY0 D:TRM0 Z:T┆
0x2412…2462 52 4d 30 00 00 01 00 6a 00 3e 00 3a 02 1c c8 44 3a 54 53 50 30 41 c8 5a 3a 54 53 50 30 41 c8 44 3a 55 42 46 30 30 c8 55 3a 55 42 46 30 46 c8 44 3a 55 49 46 30 20 c8 55 3a 55 49 46 30 49 c8 44 3a 55 43 59 30 20 00 01 00 ac 00 3e 00 3a 02 1c ┆RM0 j > : D:TSP0A Z:TSP0A D:UBF00 U:UBF0F D:UIF0 U:UIF0I D:UCY0 > : ┆
0x2462…24b2 c8 55 3a 55 43 59 30 00 c8 44 3a 55 4f 50 30 00 c8 55 3a 55 4f 50 30 00 c8 44 3a 55 41 31 30 00 c8 55 3a 55 41 31 30 00 c8 44 3a 55 41 32 30 00 c8 55 3a 55 41 32 30 00 00 01 00 ee 00 3e 00 3a 02 1c c8 44 3a 55 54 31 30 41 c8 55 3a 55 54 31 ┆ U:UCY0 D:UOP0 U:UOP0 D:UA10 U:UA10 D:UA20 U:UA20 > : D:UT10A U:UT1┆
0x24b2…2502 30 41 c8 44 3a 55 54 32 30 30 c8 55 3a 55 54 32 30 46 c8 44 3a 43 4b 31 30 20 c8 43 3a 43 4b 31 30 49 c8 44 3a 43 4b 32 30 20 00 01 01 30 00 1e 00 1a 02 0c c8 43 3a 43 4b 32 30 00 c8 44 3a 55 51 51 30 00 c8 55 3a 55 51 51 30 00 00 01 01 72 ┆0A D:UT200 U:UT20F D:CK10 C:CK10I D:CK20 0 C:CK20 D:UQQ0 U:UQQ0 r┆
0x2502…2552 (26, 0, 400) 00 2a 00 26 03 12 00 00 00 01 00 00 00 00 00 00 00 00 00 00 ff ca ff de 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 04 00 2a 00 26 03 12 00 00 00 1f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * & * & ┆
0x2552…25a2 00 00 00 00 00 00 00 00 00 02 00 32 00 2a 00 26 03 12 00 00 00 3d 00 00 00 00 00 00 00 00 c0 80 00 00 00 6e 00 07 00 00 00 00 00 00 00 00 00 00 00 00 80 ca 00 00 00 02 00 60 00 2a 00 26 03 12 00 00 00 5b 00 00 00 00 00 00 00 00 00 00 00 00 ┆ 2 * & = n ` * & [ ┆
0x25a2…25f2 00 00 00 00 00 00 80 c2 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 8e 00 2a 00 26 03 12 00 00 00 79 00 00 00 00 00 00 00 00 80 c1 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 80 22 00 00 00 02 00 bc 00 2a 00 26 03 12 00 00 00 97 ┆ * & y " * & ┆
0x25f2…2642 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 c0 70 00 00 00 2b 00 00 00 00 00 00 00 00 00 02 00 ea 00 2a 00 26 03 12 00 00 00 b5 00 00 00 00 00 00 00 00 c0 31 00 00 00 62 00 01 00 00 00 00 00 00 00 00 00 00 00 00 c0 30 00 00 00 02 ┆ p + * & 1 b 0 ┆
0x2642…2692 01 18 00 2a 00 26 03 12 00 00 00 d3 00 00 00 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 80 41 00 00 00 00 00 00 00 00 00 00 00 00 00 02 01 46 00 2a 00 26 03 12 00 00 00 f1 00 00 00 00 00 00 00 00 80 20 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * & p A F * & ┆
0x2692…26e2 (27, 2, 276) 00 00 00 00 00 00 c0 50 00 00 00 02 01 74 00 2a 00 26 03 12 00 00 01 0f 00 10 00 52 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 00 46 30 00 03 00 12 00 2a 00 26 03 12 00 00 01 2b 15 54 00 00 00 00 01 00 00 00 ┆ P t * & R F0 * & + T ┆
0x26e2…2732 00 04 00 00 00 06 00 00 00 08 00 00 00 0a 00 00 00 0c 00 00 00 0e 00 03 00 40 00 2c 00 28 03 13 00 00 01 3d aa aa 00 00 00 10 00 00 00 12 00 00 00 14 00 00 00 16 00 00 00 18 00 00 00 1a 00 00 00 1c 00 00 00 1e 00 03 00 6e 00 2c 00 28 03 13 ┆ @ , ( = n , ( ┆
0x2732…2782 00 00 01 4d aa aa 00 00 00 20 00 00 00 22 00 00 00 24 00 00 00 26 00 00 00 28 00 00 00 2a 00 00 00 2c 00 00 00 2e 00 03 00 9e 00 2c 00 28 03 13 00 00 01 5d aa aa 00 00 00 30 00 00 00 32 00 00 00 34 00 00 00 36 00 00 00 38 00 00 00 3a 00 00 ┆ M " $ & ( * , . , ( ] 0 2 4 6 8 : ┆
0x2782…27a6 00 3c 00 00 00 3e 00 03 00 ce 00 0e 00 0a 07 04 00 00 01 6d 01 6c 00 00 00 03 00 fe 40 04 00 00 00 03 01 10 ┆ < > m l @ ┆
0x27a6…27f6 (28, 2, 222) 00 3c 00 48 20 49 44 45 4e 54 20 54 3a 44 46 30 30 20 20 54 52 41 20 34 2e 32 20 20 38 30 2d 30 32 2d 31 31 20 46 31 20 4f 31 31 31 32 20 20 44 41 54 41 20 44 49 56 49 53 49 4f 4e 00 04 00 04 00 0e 00 0a 01 04 c8 54 3a 44 46 30 30 00 00 04 ┆ < H IDENT T:DF00 TRA 4.2 80-02-11 F1 O1112 DATA DIVISION T:DF00 ┆
0x27f6…2846 00 44 00 10 00 0c 05 05 c8 54 3a 44 46 30 30 44 00 00 00 04 00 56 00 0e 00 0a 02 04 c8 41 41 4d 41 49 4e 00 00 04 00 6a 00 2a 00 26 03 12 00 00 00 01 00 00 fe d4 46 30 00 0b 00 0f 30 00 00 00 c0 0c 0f f2 2a 00 00 00 00 00 00 00 00 00 00 00 ┆ D T:DF00D V AAMAIN j * & F0 0 * ┆
0x2846…2884 00 00 00 04 00 7c 00 1a 00 16 03 0a 00 00 00 1f 04 00 00 00 ff ff 00 00 00 01 00 01 00 00 00 02 00 04 00 aa 00 0e 00 0a 07 04 00 00 00 01 00 2a 00 00 00 04 00 c8 40 04 00 00 00 04 00 da ┆ | * @ ┆