|
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«
└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
└─⟦this⟧ »TOSSWORK/DIVMOD.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »M:TU10/DIVMOD.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »M:TU10/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 1
*
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 1«, 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) 53 45 4e 44 00 33 01 82 00 1e 00 50 5c 53 55 4b 5c 41 33 2c 31 5c 4c 41 53 54 20 42 41 43 4b 53 50 41 43 45 20 3f 00 34 00 0c 00 12 00 50 5c 52 42 28 4e 45 29 5c 41 44 59 33 34 35 00 34 00 2e 00 38 00 50 41 44 59 33 37 30 5c 53 43 5c 41 34 ┆SEND 3 P SUK A3,1 LAST BACKSPACE ? 4 P RB(NE) ADY345 4 . 8 PADY370 SC A4┆
0x1182…11d2 2c 44 57 54 41 50 2b 31 2c 41 36 5c 55 50 44 41 54 45 20 48 45 41 44 20 50 4f 53 49 54 49 4f 4e 20 50 4f 49 4e 54 45 52 00 34 00 44 00 08 00 50 5c 58 49 46 00 34 00 80 00 26 00 50 41 44 59 33 38 30 5c 4c 44 4b 5c 41 33 2c 32 5c 53 54 41 52 ┆,DWTAP+1,A6 UPDATE HEAD POSITION POINTER 4 D P XIF 4 & PADY380 LDK A3,2 STAR┆
0x11d2…1222 54 20 42 55 46 46 45 52 20 49 4e 44 45 58 00 34 00 8c 00 10 00 50 5c 41 42 4c 5c 41 43 44 59 39 30 20 00 34 00 b6 00 12 00 50 5c 49 46 54 5c 57 48 41 54 44 59 3d 30 20 00 34 00 ca 00 06 00 50 2a 20 00 34 00 e0 00 26 00 50 41 44 59 34 30 30 ┆T BUFFER INDEX 4 P ABL ACDY90 4 P IFT WHATDY=0 4 P* 4 & PADY400┆
0x1222…1272 5c 4c 44 4b 5c 41 32 2c 2f 32 32 5c 53 54 41 52 54 20 43 48 41 52 41 43 54 45 52 20 00 34 00 ea 00 12 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 20 00 34 01 14 00 06 00 50 2a 20 00 34 01 2a 00 08 00 50 5c 58 49 46 00 34 01 34 00 06 00 50 ┆ LDK A2,/22 START CHARACTER 4 P CF A5,OUTPUT 4 P* 4 * P XIF 4 4 P┆
0x1272…12c2 2a 20 00 34 01 40 00 0a 00 50 5c 45 4a 45 43 54 00 34 01 4a 00 06 00 50 2a 20 00 34 01 58 00 06 00 50 2a 20 00 34 01 62 00 38 00 50 2a 20 20 20 20 53 45 4e 44 20 4c 41 53 54 20 44 55 4d 4d 59 2c 20 53 45 54 20 43 55 52 53 4f 52 20 50 4f 53 ┆* 4 @ P EJECT 4 J P* 4 X P* 4 b 8 P* SEND LAST DUMMY, SET CURSOR POS┆