|
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: 4764 (0x129c)
Notes: pts_type(SC)
Names: »MPYMOD.SC«
└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
└─⟦this⟧ »TOSSWORK/MPYMOD.SC«
└─⟦781e933ac⟧ Bits:30009686 Philips computer tape "600310"
└─⟦this⟧ »M:92T1/MPYMOD.SC«
IDENT MPYMOD REL 9.2 79-11-16 870105040920
* =1 RETURN CONDITIONS
*
****************************************************
*
* PHILIPS TERMINAL SYSTEM PTS
*
* TOSS DATA MANAGEMENT
*
*
*
****************************************************
* THIS ROUTINE EXECUTES THE MULTIPLY INSTRUCTION ON THE ALPLA COMPUTER
* CALLING SEQUENCE:
* LD A6,ARG1
* LD A7,ARG1
* CF A14,MPYMOD
* RETURN : RESULT IN A1,A2
* REGISTERS A3,A4,A6,A7, ARE CRUSHED
ENTRY MPYMOD
*
*
*****************************************
*
* CONDITIONAL ASSEMBLY
*
*****************************************
*
* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
* SET IS OBTAINED BY SETTING CPU852 EQU 0.
*
CPU852 EQU 1
*
EJECT
MPYMOD EQU *
IFF CPU852=1
LDK A3,0 =1
LDR A2,A7
MUR A6
XIF
IFT CPU852=1
LDK.L A3,/8000 IF A6=A7=/8000 RETURN IN ERROR EXIT
CWR A3,A6
RF(4) SUITE
CWR A3,A7
RF(0) END3
LDR A6,A7 * A6= X'8000' A7# X'8000'
LDR A7,A3 * EXCHANGE A6-A7
SUITE LDK A1,0 *INITIALISE
LDK A2,0
LDK A3,0
LDK A4,15
ADK A6,0
RF(0) END0
RF(6) ARG1PS
ADK A3,1 *ARG1 NEGATIVE
C1R A6,A6
ADK A6,1
ARG1PS ADK A7,0
RF(0) END0
RF(6) ARG2PS
SUK A3,1 *ARG2 NEGATIVE
C1R A7,A7
ADK A7,1
RF(3) CASSPE
ARG2PS SRC A7,1
RF(6) NOVER1
ADR A1,A6
NOVER1 SRA A2,1
SRC A1,1
RF(6) NOVER2
ORK.L A2,/4000
ANK.L A1,/7FFF
NOVER2 SUK A4,1
RB(4) ARG2PS
NOVER3 ADK A3,0 *END* RESTORE SI=N
RF(0) END1
C1R A1,A1
C1R A2,A2
ADK A2,1
*CAUTION THE NEXT INSTRUCTION IS ABSOLUTELY NECESSARY TO SET CR
* WHEN THE ADK A2,1 SET AN OVERFLOW CR EX (RESULT=8000)
ADK A2,0
RF(2) NOVER4
ADK A1,1
NOVER4 ANK.L A2,/7FFF
RF(7) END2
XIF =1
IFT CPU852=0 6813 =1
RF(0) END0 =1
RF(1) END1 =1
RF(2) END2 =1
XIF =1
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
* =1
RTN A14
IFT CPU852=1
CASSPE LDR A1,A6 *A7=X'8000' THEN A4= 1
* *AND A1= A6
RB(7) NOVER3
XIF
END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT MPYMOD REL 9.2 79-11-16 870105040920 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…005e Head {h00=0x001c, h01=0x0050, text=»* =1 RETURN CONDITIONS«, t00=0x0000, t01=0x0042}
0x005e…0068 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0062}
0x0068…00a4 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x006c}
0x00a4…00ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00a8}
0x00ae…00d6 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x00b2}
0x00d6…00e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00da}
0x00e0…0100 Head {h00=0x001c, h01=0x0050, text=»* TOSS DATA MANAGEMENT«, t00=0x0000, t01=0x00e4}
0x0100…010a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0104}
0x010a…0114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010e}
0x0114…011e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0118}
0x011e…015a Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x0122}
0x015a…01a8 Head {h00=0x004a, h01=0x0050, text=»* THIS ROUTINE EXECUTES THE MULTIPLY INSTRUCTION ON THE ALPLA COMPUTER«, t00=0x0000, t01=0x015e}
0x01a8…01c4 Head {h00=0x0018, h01=0x0050, text=»* CALLING SEQUENCE: «, t00=0x0001, t01=0x001c}
0x01c4…01f0 Head {h00=0x0028, h01=0x0050, text=»* LD A6,ARG1 «, t00=0x0001, t01=0x0038}
0x01f0…021c Head {h00=0x0028, h01=0x0050, text=»* LD A7,ARG1 «, t00=0x0001, t01=0x0064}
0x021c…0240 Head {h00=0x0020, h01=0x0050, text=»* CF A14,MPYMOD«, t00=0x0001, t01=0x0090}
0x0240…026c Head {h00=0x0028, h01=0x0050, text=»* RETURN : RESULT IN A1,A2 «, t00=0x0001, t01=0x00b4}
0x026c…02a0 Head {h00=0x0030, h01=0x0050, text=»* REGISTERS A3,A4,A6,A7, ARE CRUSHED«, t00=0x0001, t01=0x00e0}
0x02a0…02c0 Head {h00=0x001c, h01=0x0050, text=» ENTRY MPYMOD«, t00=0x0001, t01=0x0114}
0x02c0…02ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0134}
0x02ca…02d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013e}
0x02d4…0306 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0001, t01=0x0148}
0x0306…0310 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x017a}
0x0310…032e Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0001, t01=0x0184}
0x032e…0338 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0012}
0x0338…036a Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0002, t01=0x001c}
0x036a…0374 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x004e}
0x0374…03ae Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0002, t01=0x0058}
0x03ae…03e0 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0002, t01=0x0092}
0x03e0…03ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00c4}
0x03ea…03fe Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0002, t01=0x00ce}
0x03fe…0408 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00e2}
0x0408…0416 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00ec}
0x0416…042a Head {h00=0x0010, h01=0x0050, text=»MPYMOD EQU *«, t00=0x0002, t01=0x00fa}
0x042a…0440 Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0002, t01=0x010e}
0x0440…0456 Head {h00=0x0012, h01=0x0050, text=» LDK A3,0 =1 «, t00=0x0002, t01=0x0124}
0x0456…0468 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x0002, t01=0x013a}
0x0468…0478 Head {h00=0x000c, h01=0x0050, text=» MUR A6 «, t00=0x0002, t01=0x014c}
0x0478…0484 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0002, t01=0x015c}
0x0484…049a Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0002, t01=0x0168}
0x049a…04e4 Head {h00=0x0046, h01=0x0050, text=» LDK.L A3,/8000 IF A6=A7=/8000 RETURN IN ERROR EXIT «, t00=0x0002, t01=0x017e}
0x04e4…0504 Head {h00=0x001c, h01=0x0050, text=» CWR A3,A6 «, t00=0x0003, t01=0x0038}
0x0504…0524 Head {h00=0x001c, h01=0x0050, text=» RF(4) SUITE «, t00=0x0003, t01=0x0058}
0x0524…0544 Head {h00=0x001c, h01=0x0050, text=» CWR A3,A7 «, t00=0x0003, t01=0x0078}
0x0544…0562 Head {h00=0x001a, h01=0x0050, text=» RF(0) END3«, t00=0x0003, t01=0x0098}
0x0562…05a2 Head {h00=0x003c, h01=0x0050, text=» LDR A6,A7 * A6= X'8000' A7# X'8000'«, t00=0x0003, t01=0x00b6}
0x05a2…05da Head {h00=0x0034, h01=0x0050, text=» LDR A7,A3 * EXCHANGE A6-A7 «, t00=0x0003, t01=0x00f6}
0x05da…060c Head {h00=0x002e, h01=0x0050, text=»SUITE LDK A1,0 *INITIALISE «, t00=0x0003, t01=0x012e}
0x060c…062a Head {h00=0x001a, h01=0x0050, text=» LDK A2,0«, t00=0x0003, t01=0x0160}
0x062a…0648 Head {h00=0x001a, h01=0x0050, text=» LDK A3,0«, t00=0x0003, t01=0x017e}
0x0648…0668 Head {h00=0x001c, h01=0x0050, text=» LDK A4,15 «, t00=0x0004, t01=0x000c}
0x0668…0686 Head {h00=0x001a, h01=0x0050, text=» ADK A6,0«, t00=0x0004, t01=0x002c}
0x0686…06a4 Head {h00=0x001a, h01=0x0050, text=» RF(0) END0«, t00=0x0004, t01=0x004a}
0x06a4…06c4 Head {h00=0x001c, h01=0x0050, text=» RF(6) ARG1PS«, t00=0x0004, t01=0x0068}
0x06c4…06f8 Head {h00=0x0030, h01=0x0050, text=» ADK A3,1 *ARG1 NEGATIVE«, t00=0x0004, t01=0x0088}
0x06f8…0718 Head {h00=0x001c, h01=0x0050, text=» C1R A6,A6 «, t00=0x0004, t01=0x00bc}
0x0718…0736 Head {h00=0x001a, h01=0x0050, text=» ADK A6,1«, t00=0x0004, t01=0x00dc}
0x0736…0754 Head {h00=0x001a, h01=0x0050, text=»ARG1PS ADK A7,0«, t00=0x0004, t01=0x00fa}
0x0754…0772 Head {h00=0x001a, h01=0x0050, text=» RF(0) END0«, t00=0x0004, t01=0x0118}
0x0772…0792 Head {h00=0x001c, h01=0x0050, text=» RF(6) ARG2PS«, t00=0x0004, t01=0x0136}
0x0792…07c6 Head {h00=0x0030, h01=0x0050, text=» SUK A3,1 *ARG2 NEGATIVE«, t00=0x0004, t01=0x0156}
0x07c6…07e6 Head {h00=0x001c, h01=0x0050, text=» C1R A7,A7 «, t00=0x0004, t01=0x018a}
0x07e6…0804 Head {h00=0x001a, h01=0x0050, text=» ADK A7,1«, t00=0x0005, t01=0x001a}
0x0804…0824 Head {h00=0x001c, h01=0x0050, text=» RF(3) CASSPE«, t00=0x0005, t01=0x0038}
0x0824…0842 Head {h00=0x001a, h01=0x0050, text=»ARG2PS SRC A7,1«, t00=0x0005, t01=0x0058}
0x0842…0862 Head {h00=0x001c, h01=0x0050, text=» RF(6) NOVER1«, t00=0x0005, t01=0x0076}
0x0862…0882 Head {h00=0x001c, h01=0x0050, text=» ADR A1,A6 «, t00=0x0005, t01=0x0096}
0x0882…08a0 Head {h00=0x001a, h01=0x0050, text=»NOVER1 SRA A2,1«, t00=0x0005, t01=0x00b6}
0x08a0…08be Head {h00=0x001a, h01=0x0050, text=» SRC A1,1«, t00=0x0005, t01=0x00d4}
0x08be…08de Head {h00=0x001c, h01=0x0050, text=» RF(6) NOVER2«, t00=0x0005, t01=0x00f2}
0x08de…0900 Head {h00=0x001e, h01=0x0050, text=» ORK.L A2,/4000«, t00=0x0005, t01=0x0112}
0x0900…0922 Head {h00=0x001e, h01=0x0050, text=» ANK.L A1,/7FFF«, t00=0x0005, t01=0x0134}
0x0922…0940 Head {h00=0x001a, h01=0x0050, text=»NOVER2 SUK A4,1«, t00=0x0005, t01=0x0156}
0x0940…0960 Head {h00=0x001c, h01=0x0050, text=» RB(4) ARG2PS«, t00=0x0005, t01=0x0174}
0x0960…0998 (6, 0, 400) Head {h00=0x0034, h01=0x0050, text=»NOVER3 ADK A3,0 *END* RESTORE SI=N«, t00=0x0006, t01=0x0004}
0x0998…09b6 Head {h00=0x001a, h01=0x0050, text=» RF(0) END1«, t00=0x0006, t01=0x003c}
0x09b6…09d6 Head {h00=0x001c, h01=0x0050, text=» C1R A1,A1 «, t00=0x0006, t01=0x005a}
0x09d6…09f6 Head {h00=0x001c, h01=0x0050, text=» C1R A2,A2 «, t00=0x0006, t01=0x007a}
0x09f6…0a14 Head {h00=0x001a, h01=0x0050, text=» ADK A2,1«, t00=0x0006, t01=0x009a}
0x0a14…0a5c Head {h00=0x0044, h01=0x0050, text=»*CAUTION THE NEXT INSTRUCTION IS ABSOLUTELY NECESSARY TO SET CR «, t00=0x0006, t01=0x00b8}
0x0a5c…0a9c Head {h00=0x003c, h01=0x0050, text=»* WHEN THE ADK A2,1 SET AN OVERFLOW CR EX (RESULT=8000)«, t00=0x0006, t01=0x0100}
0x0a9c…0aba Head {h00=0x001a, h01=0x0050, text=» ADK A2,0«, t00=0x0006, t01=0x0140}
0x0aba…0ada Head {h00=0x001c, h01=0x0050, text=» RF(2) NOVER4«, t00=0x0006, t01=0x015e}
0x0ada…0af8 Head {h00=0x001a, h01=0x0050, text=» ADK A1,1«, t00=0x0006, t01=0x017e}
0x0af8…0b1a Head {h00=0x001e, h01=0x0050, text=»NOVER4 ANK.L A2,/7FFF«, t00=0x0007, t01=0x000c}
0x0b1a…0b38 Head {h00=0x001a, h01=0x0050, text=» RF(7) END2«, t00=0x0007, t01=0x002e}
0x0b38…0b4a Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x0007, t01=0x004c}
0x0b4a…0b68 Head {h00=0x001a, h01=0x0050, text=» IFT CPU852=0 6813 =1 «, t00=0x0007, t01=0x005e}
0x0b68…0b80 Head {h00=0x0014, h01=0x0050, text=» RF(0) END0 =1 «, t00=0x0007, t01=0x007c}
0x0b80…0b98 Head {h00=0x0014, h01=0x0050, text=» RF(1) END1 =1 «, t00=0x0007, t01=0x0094}
0x0b98…0bb0 Head {h00=0x0014, h01=0x0050, text=» RF(2) END2 =1 «, t00=0x0007, t01=0x00ac}
0x0bb0…0bc2 Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x0007, t01=0x00c4}
0x0bc2…0be2 Head {h00=0x001c, h01=0x0050, text=»END3 ADK A3,/81«, t00=0x0007, t01=0x00d6}
0x0be2…0c02 Head {h00=0x001c, h01=0x0050, text=»END2 ADK A3,/81«, t00=0x0007, t01=0x00f6}
0x0c02…0c22 Head {h00=0x001c, h01=0x0050, text=»END1 ADK A3,/81«, t00=0x0007, t01=0x0116}
0x0c22…0c40 Head {h00=0x001a, h01=0x0050, text=»END0 SLL A3,1«, t00=0x0007, t01=0x0136}
0x0c40…0c62 Head {h00=0x001e, h01=0x0050, text=» ANK.L A3,/0300«, t00=0x0007, t01=0x0154}
0x0c62…0c84 Head {h00=0x001e, h01=0x0050, text=» LDK.L A4,/FCFF«, t00=0x0007, t01=0x0176}
0x0c84…0ca6 Head {h00=0x001e, h01=0x0050, text=» AN.S A4,2,A14«, t00=0x0008, t01=0x0008}
0x0ca6…0cec Head {h00=0x0042, h01=0x0050, text=» OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM«, t00=0x0008, t01=0x002a}
0x0cec…0cfc Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0008, t01=0x0070}
0x0cfc…0d1a Head {h00=0x001a, h01=0x0050, text=» RTN A14 «, t00=0x0008, t01=0x0080}
0x0d1a…0d30 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0008, t01=0x009e}
0x0d30…0d6e Head {h00=0x003a, h01=0x0050, text=»CASSPE LDR A1,A6 *A7=X'8000' THEN A4= 1«, t00=0x0008, t01=0x00b4}
0x0d6e…0da0 Head {h00=0x002e, h01=0x0050, text=»* *AND A1= A6«, t00=0x0008, t01=0x00f2}
0x0da0…0dc0 Head {h00=0x001c, h01=0x0050, text=» RB(7) NOVER3«, t00=0x0008, t01=0x0124}
0x0dc0…0dcc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x0144}
0x0dcc…0de0 Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x0008, t01=0x0150}
0x0de0…0de4 Head {h00=0x4004, h01=0x0000}
0x0de4…0de8 00 08 01 64 ┆ d┆
0x0de8…0df0 (9, 1, 8) 20 04 00 00 00 09 00 04 ┆ ┆
0x0df0…0e40 (10, 0, 400) 20 41 46 54 45 52 20 4c 41 53 54 20 44 55 4d 4d 59 20 43 48 41 52 41 43 54 45 52 20 00 21 01 80 00 06 00 50 2a 20 00 22 00 24 00 10 00 50 54 50 54 53 54 5c 45 51 55 5c 2a 20 00 22 00 2e 00 2e 00 50 5c 53 55 4b 5c 41 37 2c 32 5c 54 45 53 54 ┆ AFTER LAST DUMMY CHARACTER ! P* " $ PTPTST EQU * " . . P SUK A7,2 TEST┆
0x0e40…0e90 20 53 54 41 54 55 53 20 3a 20 56 4f 55 43 48 45 52 2f 50 41 53 53 42 4f 4f 4b 20 3f 00 22 00 42 00 16 00 50 5c 52 46 28 4e 5a 29 5c 54 53 54 30 31 30 5c 4e 4f 20 00 22 00 74 00 24 00 50 54 53 54 30 30 35 5c 41 4e 4b 5c 41 32 2c 56 4f 49 4e ┆ STATUS : VOUCHER/PASSBOOK ? " B P RF(NZ) TST010 NO " t $ PTST005 ANK A2,VOIN┆
0x0e90…0ee0 5c 56 4f 55 43 48 45 52 20 4f 55 54 20 3f 00 22 00 8e 00 14 00 50 5c 52 46 28 4e 5a 29 5c 45 4e 44 49 4f 5c 4e 4f 00 22 00 b6 00 12 00 50 5c 52 46 5c 54 53 54 30 31 35 5c 59 45 53 00 22 00 ce 00 06 00 50 2a 20 00 22 00 e4 00 14 00 50 54 53 ┆ VOUCHER OUT ? " P RF(NZ) ENDIO NO " P RF TST015 YES " P* " PTS┆
0x0ee0…0f30 54 30 31 30 5c 53 55 4b 5c 41 37 2c 34 20 00 22 00 ee 00 12 00 50 5c 49 46 54 5c 43 55 54 50 45 52 3d 30 20 00 22 01 06 00 2a 00 50 5c 52 46 28 47 29 5c 45 4e 44 49 4f 5c 4e 4f 54 20 54 45 53 54 20 53 54 41 54 55 53 2c 20 4a 4f 55 52 4e 41 ┆T010 SUK A7,4 " P IFT CUTPER=0 " * P RF(G) ENDIO NOT TEST STATUS, JOURNA┆
0x0f30…0f80 4c 20 00 22 01 1c 00 08 00 50 5c 58 49 46 00 22 01 4a 00 12 00 50 5c 49 46 54 5c 43 55 54 50 45 52 3d 31 20 00 22 01 56 00 2a 00 50 5c 52 46 28 47 29 5c 54 53 54 30 32 30 5c 4e 4f 54 20 54 45 53 54 20 53 54 41 54 55 53 2c 20 4a 4f 55 52 4e ┆L " P XIF " J P IFT CUTPER=1 " V * P RF(G) TST020 NOT TEST STATUS, JOURN┆
0x0f80…0fd0 (11, 0, 398) 41 4c 00 22 01 6c 00 10 00 50 54 53 54 30 31 32 5c 45 51 55 5c 2a 00 23 00 0a 00 08 00 50 5c 58 49 46 00 23 00 1e 00 26 00 50 5c 41 4e 4b 5c 41 32 2c 45 4f 4a 54 5c 45 4e 44 20 4f 46 20 4a 4f 55 52 4e 41 4c 20 54 41 50 45 3f 20 00 23 00 2a ┆AL " l PTST012 EQU * # P XIF # & P ANK A2,EOJT END OF JOURNAL TAPE? # *┆
0x0fd0…1020 00 24 00 50 5c 52 46 28 4e 5a 29 5c 45 4e 44 49 4f 5c 4e 4f 3a 20 50 45 52 46 4f 52 4d 20 45 4e 44 49 4f 20 00 23 00 54 00 28 00 50 54 53 54 30 31 35 5c 4f 52 4b 5c 41 31 2c 50 52 4f 55 54 5c 53 45 54 20 52 45 54 55 52 4e 20 43 4f 44 45 3a ┆ $ P RF(NZ) ENDIO NO: PERFORM ENDIO # T ( PTST015 ORK A1,PROUT SET RETURN CODE:┆
0x1020…1070 00 23 00 7c 00 28 00 50 5c 5c 5c 45 4e 44 20 4f 46 20 4a 4f 55 52 4e 41 4c 20 54 41 50 45 2c 20 56 4f 55 43 48 45 52 20 4f 55 54 20 00 23 00 a8 00 06 00 50 2a 20 00 23 00 d4 00 06 00 50 2a 20 00 23 00 de 00 2c 00 50 2a 20 20 20 50 45 52 46 ┆ # | ( P END OF JOURNAL TAPE, VOUCHER OUT # P* # P* # , P* PERF┆
0x1070…10c0 4f 52 4d 20 45 4e 44 20 49 2f 4f 20 41 4e 44 20 47 4f 20 54 4f 20 44 49 53 50 41 54 43 48 45 52 00 23 00 e8 00 06 00 50 2a 20 00 23 01 18 00 10 00 50 45 4e 44 49 4f 5c 45 51 55 5c 2a 20 00 23 01 22 00 34 00 50 5c 41 42 4c 5c 44 49 53 45 4e ┆ORM END I/O AND GO TO DISPATCHER # P* # PENDIO EQU * # " 4 P ABL DISEN┆
0x10c0…110e 44 5c 50 45 52 46 4f 52 4d 20 45 4e 44 20 49 2f 4f 20 41 4e 44 20 47 4f 20 54 4f 20 44 49 53 50 41 54 43 48 45 52 00 23 01 36 00 06 00 50 2a 20 00 23 01 6e 00 06 00 50 2a 20 00 23 01 78 00 06 00 50 2a 20 00 23 01 82 00 06 00 50 2a 20 ┆D PERFORM END I/O AND GO TO DISPATCHER # 6 P* # n P* # x P* # P* ┆
0x110e…115e (12, 0, 398) 00 23 01 8c 00 12 00 50 5c 49 46 54 5c 43 55 54 50 45 52 3d 31 20 00 24 00 08 00 14 00 50 54 53 54 30 32 30 5c 53 55 4b 5c 41 37 2c 31 36 00 24 00 1e 00 22 00 50 5c 52 42 28 4c 29 5c 45 4e 44 49 4f 5c 56 4f 55 43 48 45 52 2f 50 41 53 53 42 ┆ # P IFT CUTPER=1 $ PTST020 SUK A7,16 $ " P RB(L) ENDIO VOUCHER/PASSB┆
0x115e…11ae 4f 4f 4b 20 00 24 00 36 00 0e 00 50 5c 53 55 4b 5c 41 37 2c 34 20 00 24 00 5c 00 1e 00 50 5c 52 42 28 47 29 5c 45 4e 44 49 4f 5c 47 52 41 53 50 2c 52 45 4c 45 41 53 45 00 24 00 6e 00 1c 00 50 5c 52 42 5c 54 53 54 30 31 32 5c 43 55 54 2c 50 ┆OOK $ 6 P SUK A7,4 $ P RB(G) ENDIO GRASP,RELEASE $ n P RB TST012 CUT,P┆
0x11ae…11fe 45 52 46 4f 52 41 54 45 00 24 00 90 00 08 00 50 5c 58 49 46 00 24 00 b0 00 0a 00 50 5c 45 4a 45 43 54 00 24 00 bc 00 06 00 50 2a 20 00 24 00 ca 00 06 00 50 2a 20 00 24 00 d4 00 06 00 50 2a 20 00 24 00 de 00 24 00 50 2a 20 20 20 4f 52 44 45 ┆ERFORATE $ P XIF $ P EJECT $ P* $ P* $ P* $ $ P* ORDE┆
0x11fe…124e 52 20 30 36 20 3a 20 50 52 49 4e 54 20 54 41 4c 4c 59 20 52 4f 4c 4c 20 00 24 00 e8 00 06 00 50 2a 20 00 24 01 10 00 06 00 50 2a 20 00 24 01 1a 00 06 00 50 2a 20 00 24 01 24 00 28 00 50 54 50 34 30 35 5c 43 46 5c 41 35 2c 52 45 4c 45 41 53 ┆R 06 : PRINT TALLY ROLL $ P* $ P* $ P* $ $ ( PTP405 CF A5,RELEAS┆
0x124e…129c 5c 45 52 52 4f 52 2e 20 56 4f 55 43 48 45 52 20 49 4e 00 24 01 2e 00 06 00 50 2a 20 00 24 01 5a 00 2a 00 50 54 50 34 30 37 5c 4c 44 4b 4c 5c 41 33 2c 42 55 46 33 5c 53 45 4e 44 20 43 52 32 20 41 4e 44 20 41 54 54 41 43 48 00 24 01 64 ┆ ERROR. VOUCHER IN $ . P* $ Z * PTP407 LDKL A3,BUF3 SEND CR2 AND ATTACH $ d┆