|
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: 4802 (0x12c2)
Notes: pts_type(SC)
Names: »DIVMOD.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »M:DEMO/DIVMOD.SC«
IDENT DIVMOD REL 10.0 80-03-14 870105041000
*
****************************************************
*
* PHILIPS TERMINAL SYSTEM PTS
*
* TOSS DATA MANAGEMENT
*
*
*
****************************************************
* THIS ROUTINE EXECUTES THE DIVIDE INSTRUCTION ON THE ALPHA COMPUTER
* CALLING SEQUENCE
* A1-A2= DIVIDEND
* A6 = DIVISOR
* CF A14,DIVMOD
*RETURN* RESUT IN A1-A2 ; A1= REMAINDER;A2= QUOTIENT
* CAUTION : REGISTERS A3,A4,A6,A7,A8 ARE CRUSHED.
ENTRY DIVMOD
*
*
*****************************************
*
* CONDITIONAL ASSEMBLY
*
*****************************************
*
* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
* SET IS OBTAINED BY SETTING CPU852 EQU 0.
*
CPU852 EQU 0
*
EJECT
DIVMOD EQU *
LDK A3,0
IFF CPU852=1
DVR A6
XIF
IFT CPU852=1
LDR A8,A1 SAVE DIVIDEND SIGN
ADK A6,0
RF(0) END3 * IF DIVISOR IS NULL, OVREFLOW
ADK A1,0
RF(4) SIGNE
ANK.L A2,/7FFF
RF(0) END0 * IF DIVIDEND IS NULL, CR = 0
* THIS SEQUENCE GIVES THE OPERAND A POSITIVE VALUE
SIGNE LDK A7,0
LDK A4,16
ADK A1,0 *SIGN OF DIVIDEND
RF(6) DIVENP
ADK A3,1 * DIVIDEND IS NEGATIVE
C1R A1,A1
C1R A2,A2
ANK.L A2,X'7FFF'
ADK A2,1
RF(1) DIVENP
ADK A1,1
RF(5) END3
DIVENP ADK A6,0 *SIGN OF DIVISOR
RF(6) DIVORP
SUK A3,1 *NEGATIVE DIVISOR
C1R A6,A6
ADK A6,1
ADK A6,0 RESET IF OVERFLOW
RF(5) CASSPE
DIVORP CWR A1,A6
RF(1) END3
RF(0) CASSP1
SHIFT SUK A4,1 *A1 LESS THAN A6
RF(0) END
SLL A1,1
SLL A7,1
SLL A2,1
RF(6) *+4
ADK A1,1
ADK A1,0
RF(2) CASSP1
CWR A1,A6
RB(2) SHIFT
CASSP1 SUR A1,A6
ADK A7,1
RB(7) SHIFT
*THIS SEQUENCE RESTORES THE SIGN OF THE RESULTS
END LDR A2,A7
ADK A3,0
RF(0) NOSIGN
RF(2) AA DIVIDEND +. DIVISOR +
C1R A1,A1 *REMAINDER
ADK A1,1
AA C1R A2,A2 * QUOTIENT
ADK A2,1
*CAUTION THE NEXT INSTRUCTION IS ABSOLUTELY NECESSARY TO SET CR
* WHEN THE ADK A2,1 SET AN OVERFLOW CR EX (QUOTIENT=8000)
ADK A2,0
XIF
IFF CPU852=1
RF(1) END1
XIF
RF(2) END2
RF(0) END0
END3 ADK A3,/81
END2 ADK A3,/81
END1 ADK A3,/81
END0 SLL A3,1 **********************************
ANK.L A3,/0300
LDK.L A4,/FCFF
AN.S A4,2,A14
OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM
RTN A14
IFT CPU852=1
NOSIGN ADK.L A8,0 TEST OF DIVIDEND SIGN
RF(6) BB
C1R A1,A1 DIVIDEND- .DIVISOR -
ADK A1,1 REMAINDER -
BB ADK A2,0
RB(0) END0
RB(2) END2
RB(7) END1
CASSPE LDR A7,A1
LDR A1,A2
CWK A1,/8000
RB(4) END
LDK A1,0
RB(7) END
XIF
END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DIVMOD REL 10.0 80-03-14 870105041000 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0084 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x004c}
0x0084…008e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0088}
0x008e…00b6 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x0092}
0x00b6…00c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ba}
0x00c0…00e0 Head {h00=0x001c, h01=0x0050, text=»* TOSS DATA MANAGEMENT«, t00=0x0000, t01=0x00c4}
0x00e0…00ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e4}
0x00ea…00f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ee}
0x00f4…00fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f8}
0x00fe…013a Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x0102}
0x013a…0186 Head {h00=0x0048, h01=0x0050, text=»* THIS ROUTINE EXECUTES THE DIVIDE INSTRUCTION ON THE ALPHA COMPUTER«, t00=0x0000, t01=0x013e}
0x0186…01a0 Head {h00=0x0016, h01=0x0050, text=»* CALLING SEQUENCE«, t00=0x0000, t01=0x018a}
0x01a0…01ca Head {h00=0x0026, h01=0x0050, text=»* A1-A2= DIVIDEND «, t00=0x0001, t01=0x0014}
0x01ca…01f2 Head {h00=0x0024, h01=0x0050, text=»* A6 = DIVISOR«, t00=0x0001, t01=0x003e}
0x01f2…0216 Head {h00=0x0020, h01=0x0050, text=»* CF A14,DIVMOD«, t00=0x0001, t01=0x0066}
0x0216…025c Head {h00=0x0042, h01=0x0050, text=»*RETURN* RESUT IN A1-A2 ; A1= REMAINDER;A2= QUOTIENT«, t00=0x0001, t01=0x008a}
0x025c…0296 Head {h00=0x0036, h01=0x0050, text=»* CAUTION : REGISTERS A3,A4,A6,A7,A8 ARE CRUSHED.«, t00=0x0001, t01=0x00d0}
0x0296…02b6 Head {h00=0x001c, h01=0x0050, text=» ENTRY DIVMOD«, t00=0x0001, t01=0x010a}
0x02b6…02c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x012a}
0x02c0…02ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0134}
0x02ca…02fc Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0001, t01=0x013e}
0x02fc…0306 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0170}
0x0306…0324 Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0001, t01=0x017a}
0x0324…032e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0008}
0x032e…0360 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0002, t01=0x0012}
0x0360…036a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0044}
0x036a…03a4 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0002, t01=0x004e}
0x03a4…03d6 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0002, t01=0x0088}
0x03d6…03e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ba}
0x03e0…03f4 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0002, t01=0x00c4}
0x03f4…03fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d8}
0x03fe…040c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00e2}
0x040c…0420 Head {h00=0x0010, h01=0x0050, text=»DIVMOD EQU *«, t00=0x0002, t01=0x00f0}
0x0420…0432 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0002, t01=0x0104}
0x0432…0448 Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0002, t01=0x0116}
0x0448…0458 Head {h00=0x000c, h01=0x0050, text=» DVR A6 «, t00=0x0002, t01=0x012c}
0x0458…0464 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0002, t01=0x013c}
0x0464…047a Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0002, t01=0x0148}
0x047a…04b2 Head {h00=0x0034, h01=0x0050, text=» LDR A8,A1 SAVE DIVIDEND SIGN«, t00=0x0002, t01=0x015e}
0x04b2…04d0 Head {h00=0x001a, h01=0x0050, text=» ADK A6,0«, t00=0x0003, t01=0x0008}
0x04d0…0514 Head {h00=0x0040, h01=0x0050, text=» RF(0) END3 * IF DIVISOR IS NULL, OVREFLOW«, t00=0x0003, t01=0x0026}
0x0514…0532 Head {h00=0x001a, h01=0x0050, text=» ADK A1,0«, t00=0x0003, t01=0x006a}
0x0532…0552 Head {h00=0x001c, h01=0x0050, text=» RF(4) SIGNE «, t00=0x0003, t01=0x0088}
0x0552…0574 Head {h00=0x001e, h01=0x0050, text=» ANK.L A2,/7FFF«, t00=0x0003, t01=0x00a8}
0x0574…05b8 Head {h00=0x0040, h01=0x0050, text=» RF(0) END0 * IF DIVIDEND IS NULL, CR = 0 «, t00=0x0003, t01=0x00ca}
0x05b8…05f4 Head {h00=0x0038, h01=0x0050, text=»* THIS SEQUENCE GIVES THE OPERAND A POSITIVE VALUE «, t00=0x0003, t01=0x010e}
0x05f4…0612 Head {h00=0x001a, h01=0x0050, text=»SIGNE LDK A7,0«, t00=0x0003, t01=0x014a}
0x0612…0632 Head {h00=0x001c, h01=0x0050, text=» LDK A4,16 «, t00=0x0003, t01=0x0168}
0x0632…066a Head {h00=0x0034, h01=0x0050, text=» ADK A1,0 *SIGN OF DIVIDEND «, t00=0x0003, t01=0x0188}
0x066a…068a Head {h00=0x001c, h01=0x0050, text=» RF(6) DIVENP«, t00=0x0004, t01=0x0030}
0x068a…06c6 Head {h00=0x0038, h01=0x0050, text=» ADK A3,1 * DIVIDEND IS NEGATIVE«, t00=0x0004, t01=0x0050}
0x06c6…06e6 Head {h00=0x001c, h01=0x0050, text=» C1R A1,A1 «, t00=0x0004, t01=0x008c}
0x06e6…0706 Head {h00=0x001c, h01=0x0050, text=» C1R A2,A2 «, t00=0x0004, t01=0x00ac}
0x0706…072a Head {h00=0x0020, h01=0x0050, text=» ANK.L A2,X'7FFF'«, t00=0x0004, t01=0x00cc}
0x072a…0748 Head {h00=0x001a, h01=0x0050, text=» ADK A2,1«, t00=0x0004, t01=0x00f0}
0x0748…0768 Head {h00=0x001c, h01=0x0050, text=» RF(1) DIVENP«, t00=0x0004, t01=0x010e}
0x0768…0786 Head {h00=0x001a, h01=0x0050, text=» ADK A1,1«, t00=0x0004, t01=0x012e}
0x0786…07a4 Head {h00=0x001a, h01=0x0050, text=» RF(5) END3«, t00=0x0004, t01=0x014c}
0x07a4…07da Head {h00=0x0032, h01=0x0050, text=»DIVENP ADK A6,0 *SIGN OF DIVISOR«, t00=0x0004, t01=0x016a}
0x07da…07fa Head {h00=0x001c, h01=0x0050, text=» RF(6) DIVORP«, t00=0x0005, t01=0x0010}
0x07fa…0832 Head {h00=0x0034, h01=0x0050, text=» SUK A3,1 *NEGATIVE DIVISOR «, t00=0x0005, t01=0x0030}
0x0832…0852 Head {h00=0x001c, h01=0x0050, text=» C1R A6,A6 «, t00=0x0005, t01=0x0068}
0x0852…0870 Head {h00=0x001a, h01=0x0050, text=» ADK A6,1«, t00=0x0005, t01=0x0088}
0x0870…08b0 Head {h00=0x003c, h01=0x0050, text=» ADK A6,0 RESET IF OVERFLOW«, t00=0x0005, t01=0x00a6}
0x08b0…08d0 Head {h00=0x001c, h01=0x0050, text=» RF(5) CASSPE«, t00=0x0005, t01=0x00e6}
0x08d0…08f0 Head {h00=0x001c, h01=0x0050, text=»DIVORP CWR A1,A6 «, t00=0x0005, t01=0x0106}
0x08f0…090e Head {h00=0x001a, h01=0x0050, text=» RF(1) END3«, t00=0x0005, t01=0x0126}
0x090e…092e Head {h00=0x001c, h01=0x0050, text=» RF(0) CASSP1«, t00=0x0005, t01=0x0144}
0x092e…0964 Head {h00=0x0032, h01=0x0050, text=»SHIFT SUK A4,1 *A1 LESS THAN A6«, t00=0x0005, t01=0x0164}
0x0964…0982 Head {h00=0x001a, h01=0x0050, text=» RF(0) END «, t00=0x0006, t01=0x000a}
0x0982…09a0 Head {h00=0x001a, h01=0x0050, text=» SLL A1,1«, t00=0x0006, t01=0x0028}
0x09a0…09be Head {h00=0x001a, h01=0x0050, text=» SLL A7,1«, t00=0x0006, t01=0x0046}
0x09be…09dc Head {h00=0x001a, h01=0x0050, text=» SLL A2,1«, t00=0x0006, t01=0x0064}
0x09dc…09fa Head {h00=0x001a, h01=0x0050, text=» RF(6) *+4 «, t00=0x0006, t01=0x0082}
0x09fa…0a18 Head {h00=0x001a, h01=0x0050, text=» ADK A1,1«, t00=0x0006, t01=0x00a0}
0x0a18…0a36 Head {h00=0x001a, h01=0x0050, text=» ADK A1,0«, t00=0x0006, t01=0x00be}
0x0a36…0a56 Head {h00=0x001c, h01=0x0050, text=» RF(2) CASSP1«, t00=0x0006, t01=0x00dc}
0x0a56…0a76 Head {h00=0x001c, h01=0x0050, text=» CWR A1,A6 «, t00=0x0006, t01=0x00fc}
0x0a76…0a96 Head {h00=0x001c, h01=0x0050, text=» RB(2) SHIFT «, t00=0x0006, t01=0x011c}
0x0a96…0ab6 Head {h00=0x001c, h01=0x0050, text=»CASSP1 SUR A1,A6 «, t00=0x0006, t01=0x013c}
0x0ab6…0ad4 Head {h00=0x001a, h01=0x0050, text=» ADK A7,1«, t00=0x0006, t01=0x015c}
0x0ad4…0af4 Head {h00=0x001c, h01=0x0050, text=» RB(7) SHIFT «, t00=0x0006, t01=0x017a}
0x0af4…0b2c Head {h00=0x0034, h01=0x0050, text=»*THIS SEQUENCE RESTORES THE SIGN OF THE RESULTS «, t00=0x0007, t01=0x000a}
0x0b2c…0b4c Head {h00=0x001c, h01=0x0050, text=»END LDR A2,A7 «, t00=0x0007, t01=0x0042}
0x0b4c…0b6a Head {h00=0x001a, h01=0x0050, text=» ADK A3,0«, t00=0x0007, t01=0x0062}
0x0b6a…0b8a Head {h00=0x001c, h01=0x0050, text=» RF(0) NOSIGN«, t00=0x0007, t01=0x0080}
0x0b8a…0bc6 Head {h00=0x0038, h01=0x0050, text=» RF(2) AA DIVIDEND +. DIVISOR + «, t00=0x0007, t01=0x00a0}
0x0bc6…0bf6 Head {h00=0x002c, h01=0x0050, text=» C1R A1,A1 *REMAINDER«, t00=0x0007, t01=0x00dc}
0x0bf6…0c14 Head {h00=0x001a, h01=0x0050, text=» ADK A1,1«, t00=0x0007, t01=0x010c}
0x0c14…0c44 Head {h00=0x002c, h01=0x0050, text=»AA C1R A2,A2 * QUOTIENT«, t00=0x0007, t01=0x012a}
0x0c44…0c62 Head {h00=0x001a, h01=0x0050, text=» ADK A2,1«, t00=0x0007, t01=0x015a}
0x0c62…0caa Head {h00=0x0044, h01=0x0050, text=»*CAUTION THE NEXT INSTRUCTION IS ABSOLUTELY NECESSARY TO SET CR «, t00=0x0007, t01=0x0178}
0x0caa…0cec Head {h00=0x003e, h01=0x0050, text=»* WHEN THE ADK A2,1 SET AN OVERFLOW CR EX (QUOTIENT=8000) «, t00=0x0008, t01=0x0030}
0x0cec…0d0a Head {h00=0x001a, h01=0x0050, text=» ADK A2,0«, t00=0x0008, t01=0x0072}
0x0d0a…0d16 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x0090}
0x0d16…0d2c Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0008, t01=0x009c}
0x0d2c…0d40 Head {h00=0x0010, h01=0x0050, text=» RF(1) END1 «, t00=0x0008, t01=0x00b2}
0x0d40…0d4c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x00c6}
0x0d4c…0d6a Head {h00=0x001a, h01=0x0050, text=» RF(2) END2«, t00=0x0008, t01=0x00d2}
0x0d6a…0d88 Head {h00=0x001a, h01=0x0050, text=» RF(0) END0«, t00=0x0008, t01=0x00f0}
0x0d88…0da8 Head {h00=0x001c, h01=0x0050, text=»END3 ADK A3,/81«, t00=0x0008, t01=0x010e}
0x0da8…0dc8 Head {h00=0x001c, h01=0x0050, text=»END2 ADK A3,/81«, t00=0x0008, t01=0x012e}
0x0dc8…0de8 Head {h00=0x001c, h01=0x0050, text=»END1 ADK A3,/81«, t00=0x0008, t01=0x014e}
0x0de8…0e2e Head {h00=0x0042, h01=0x0050, text=»END0 SLL A3,1 **********************************«, t00=0x0008, t01=0x016e}
0x0e2e…0e50 Head {h00=0x001e, h01=0x0050, text=» ANK.L A3,/0300«, t00=0x0009, t01=0x0024}
0x0e50…0e72 Head {h00=0x001e, h01=0x0050, text=» LDK.L A4,/FCFF«, t00=0x0009, t01=0x0046}
0x0e72…0e94 Head {h00=0x001e, h01=0x0050, text=» AN.S A4,2,A14«, t00=0x0009, t01=0x0068}
0x0e94…0eda Head {h00=0x0042, h01=0x0050, text=» OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM«, t00=0x0009, t01=0x008a}
0x0eda…0ef8 Head {h00=0x001a, h01=0x0050, text=» RTN A14 «, t00=0x0009, t01=0x00d0}
0x0ef8…0f0e Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0009, t01=0x00ee}
0x0f0e…0f4a Head {h00=0x0038, h01=0x0050, text=»NOSIGN ADK.L A8,0 TEST OF DIVIDEND SIGN «, t00=0x0009, t01=0x0104}
0x0f4a…0f66 Head {h00=0x0018, h01=0x0050, text=» RF(6) BB«, t00=0x0009, t01=0x0140}
0x0f66…0fa0 Head {h00=0x0036, h01=0x0050, text=» C1R A1,A1 DIVIDEND- .DIVISOR -«, t00=0x0009, t01=0x015c}
0x0fa0…0fd2 Head {h00=0x002e, h01=0x0050, text=» ADK A1,1 REMAINDER - «, t00=0x000a, t01=0x0008}
0x0fd2…0ff0 Head {h00=0x001a, h01=0x0050, text=»BB ADK A2,0«, t00=0x000a, t01=0x003a}
0x0ff0…100e Head {h00=0x001a, h01=0x0050, text=» RB(0) END0«, t00=0x000a, t01=0x0058}
0x100e…102c Head {h00=0x001a, h01=0x0050, text=» RB(2) END2«, t00=0x000a, t01=0x0076}
0x102c…104a Head {h00=0x001a, h01=0x0050, text=» RB(7) END1«, t00=0x000a, t01=0x0094}
0x104a…106a Head {h00=0x001c, h01=0x0050, text=»CASSPE LDR A7,A1 «, t00=0x000a, t01=0x00b2}
0x106a…108a Head {h00=0x001c, h01=0x0050, text=» LDR A1,A2 «, t00=0x000a, t01=0x00d2}
0x108a…10ac Head {h00=0x001e, h01=0x0050, text=» CWK A1,/8000«, t00=0x000a, t01=0x00f2}
0x10ac…10ca Head {h00=0x001a, h01=0x0050, text=» RB(4) END «, t00=0x000a, t01=0x0114}
0x10ca…10e4 Head {h00=0x0016, h01=0x0050, text=» LDK A1,0 «, t00=0x000a, t01=0x0132}
0x10e4…1102 Head {h00=0x001a, h01=0x0050, text=» RB(7) END «, t00=0x000a, t01=0x014c}
0x1102…110e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x016a}
0x110e…1122 Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x000a, t01=0x0176}
0x1122…1126 Head {h00=0x4004, h01=0x0000}
0x1126…112a 00 0a 01 8a ┆ ┆
0x112a…1132 (11, 1, 8) 20 04 00 00 00 0b 00 04 ┆ ┆
0x1132…1182 (12, 0, 400) 58 5c 45 51 55 5c 2f 30 33 5c 4c 41 53 54 20 44 55 4d 4d 59 00 0b 01 8e 00 2e 00 50 52 45 54 55 52 4e 5c 45 51 55 5c 2f 31 32 5c 52 45 54 55 52 4e 20 54 4f 20 41 4c 50 48 41 4e 55 4d 45 52 49 43 20 4d 4f 44 45 00 0c 00 1c 00 2a 00 50 45 53 ┆X EQU /03 LAST DUMMY . PRETURN EQU /12 RETURN TO ALPHANUMERIC MODE * PES┆
0x1182…11d2 43 41 50 45 5c 45 51 55 5c 2f 31 31 5c 45 53 43 41 50 45 20 54 4f 20 47 52 41 50 48 49 43 20 4d 4f 44 45 20 00 0c 00 4e 00 22 00 50 50 4f 49 4e 54 5c 45 51 55 5c 2f 32 45 5c 50 4f 49 4e 54 20 43 48 41 52 41 43 54 45 52 20 00 0c 00 7c 00 32 ┆CAPE EQU /11 ESCAPE TO GRAPHIC MODE N " PPOINT EQU /2E POINT CHARACTER | 2┆
0x11d2…1222 00 50 45 51 55 5c 45 51 55 5c 36 5c 54 48 52 45 53 48 4f 4c 44 20 46 4f 52 20 41 55 54 4f 4d 41 54 49 43 20 46 41 53 54 20 4f 55 54 50 55 54 20 00 0c 00 a2 00 20 00 50 53 54 49 4c 4c 5c 45 51 55 5c 2f 31 38 5c 43 55 52 53 4f 52 20 53 54 45 ┆ PEQU EQU 6 THRESHOLD FOR AUTOMATIC FAST OUTPUT PSTILL EQU /18 CURSOR STE┆
0x1222…1272 41 44 59 20 00 0c 00 d8 00 24 00 50 43 54 59 43 4f 44 5c 45 51 55 5c 2f 31 42 5c 53 45 54 20 43 4f 55 4e 54 52 59 20 43 4f 44 45 20 00 0c 00 fc 00 06 00 50 2a 20 00 0c 01 24 00 18 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ADY $ PCTYCOD EQU /1B SET COUNTRY CODE P* $ P******************┆
0x1272…12c2 2a 2a 00 0c 01 2e 00 18 00 50 2a 20 20 20 20 52 45 54 55 52 4e 20 43 4f 44 45 53 20 20 2a 00 0c 01 4a 00 18 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 0c 01 66 00 06 00 50 2a 20 00 0c 01 82 00 22 00 50 43 43 45 52 ┆** . P* RETURN CODES * J P******************** f P* " PCCER┆