|
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: 4576 (0x11e0)
Notes: pts_type(SC)
Names: »DSUMOD.SC«
└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
└─⟦this⟧ »TOSSWORK/DSUMOD.SC«
└─⟦781e933ac⟧ Bits:30009686 Philips computer tape "600310"
└─⟦this⟧ »M:92T1/DSUMOD.SC«
IDENT DSUMOD REL 9.2 79-11-16 870105040920
* =1 RETURN CONDITION
*
****************************************************
*
* PHILIPS TERMINAL SYSTEM PTS
*
* TOSS DATA MANAGEMENT
*
*
*
****************************************************
* THIS ROUTINE EXECUTES THE DOUBLE SUBSTRACTION INSTRUCTION ON THE ALPHA
*COMPUTER
*CALLING SEQUENCE
* A1-A2 = ARG1
* A6-A7 = ARG2
* CF A14,DSUMOD
*RETURN: RESULT IN A1-A2
* CAUTION REGISTERS A3,A4,A6,A7 ARE CRUSHED.
ENTRY DSUMOD
*
*
*****************************************
*
* CONDITIONAL ASSEMBLY
*
*****************************************
*
* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
* SET IS OBTAINED BY SETTING CPU852 EQU 0.
*
CPU852 EQU 1
*
EJECT
DSUMOD EQU *
LDK A3,0 =1
IFF CPU852=1
DSR A6
XIF
IFT CPU852=1
* =1
C1R A6,A6
C1R A7,A7
ANK.L A7,X'7FFF'
ANK.L A2,/7FFF
ADK A7,1
RF(1) NOVER1
ADK A6,1
RF(3) OVER4
RF(7) NOVER
NOVER1 ADR A2,A7
RF(3) OVER1
NOVER ADR A1,A6
NOVER2 RF(1) END1
RF(2) END2
RF(3) END3
ADK A2,0
RF(0) END0
RF(7) END1
OVER1 ANK.L A2,X'7FFF'
ADK A1,1
RF(3) OVER4
RB(7) NOVER
OVER4 ADR A1,A6
RF(2) END3
ADK A1,0
RB(7) NOVER2
XIF =1
IFT CPU852=0 6813 =1
RF(0) END0 =1
RF(1) END1 =1
RF(2) END2 =1
XIF =1
END3 ADK A3,/80
END2 ADK A3,/80
END1 ADK A3,/80
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
END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DSUMOD 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 CONDITION «, 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…01aa Head {h00=0x004c, h01=0x0050, text=»* THIS ROUTINE EXECUTES THE DOUBLE SUBSTRACTION INSTRUCTION ON THE ALPHA«, t00=0x0000, t01=0x015e}
0x01aa…01bc Head {h00=0x000e, h01=0x0050, text=»*COMPUTER «, t00=0x0001, t01=0x001e}
0x01bc…01d6 Head {h00=0x0016, h01=0x0050, text=»*CALLING SEQUENCE «, t00=0x0001, t01=0x0030}
0x01d6…01fe Head {h00=0x0024, h01=0x0050, text=»* A1-A2 = ARG1 «, t00=0x0001, t01=0x004a}
0x01fe…0226 Head {h00=0x0024, h01=0x0050, text=»* A6-A7 = ARG2 «, t00=0x0001, t01=0x0072}
0x0226…024a Head {h00=0x0020, h01=0x0050, text=»* CF A14,DSUMOD«, t00=0x0001, t01=0x009a}
0x024a…0274 Head {h00=0x0026, h01=0x0050, text=»*RETURN: RESULT IN A1-A2 «, t00=0x0001, t01=0x00be}
0x0274…02ac Head {h00=0x0034, h01=0x0050, text=»* CAUTION REGISTERS A3,A4,A6,A7 ARE CRUSHED.«, t00=0x0001, t01=0x00e8}
0x02ac…02cc Head {h00=0x001c, h01=0x0050, text=» ENTRY DSUMOD«, t00=0x0001, t01=0x0120}
0x02cc…02d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0140}
0x02d6…02e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x014a}
0x02e0…0312 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0001, t01=0x0154}
0x0312…031c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0186}
0x031c…033a Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0001, t01=0x0190}
0x033a…0344 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x001e}
0x0344…0376 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0002, t01=0x0028}
0x0376…0380 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x005a}
0x0380…03ba Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0002, t01=0x0064}
0x03ba…03ec Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0002, t01=0x009e}
0x03ec…03f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d0}
0x03f6…040a Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0002, t01=0x00da}
0x040a…0414 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ee}
0x0414…0422 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00f8}
0x0422…0436 Head {h00=0x0010, h01=0x0050, text=»DSUMOD EQU *«, t00=0x0002, t01=0x0106}
0x0436…044c Head {h00=0x0012, h01=0x0050, text=» LDK A3,0 =1 «, t00=0x0002, t01=0x011a}
0x044c…0462 Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0002, t01=0x0130}
0x0462…0472 Head {h00=0x000c, h01=0x0050, text=» DSR A6 «, t00=0x0002, t01=0x0146}
0x0472…047e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0002, t01=0x0156}
0x047e…0494 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0002, t01=0x0162}
0x0494…04a4 Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0002, t01=0x0178}
0x04a4…04c4 Head {h00=0x001c, h01=0x0050, text=» C1R A6,A6 «, t00=0x0002, t01=0x0188}
0x04c4…04e4 Head {h00=0x001c, h01=0x0050, text=» C1R A7,A7 «, t00=0x0003, t01=0x0018}
0x04e4…0508 Head {h00=0x0020, h01=0x0050, text=» ANK.L A7,X'7FFF'«, t00=0x0003, t01=0x0038}
0x0508…052a Head {h00=0x001e, h01=0x0050, text=» ANK.L A2,/7FFF«, t00=0x0003, t01=0x005c}
0x052a…0548 Head {h00=0x001a, h01=0x0050, text=» ADK A7,1«, t00=0x0003, t01=0x007e}
0x0548…0568 Head {h00=0x001c, h01=0x0050, text=» RF(1) NOVER1«, t00=0x0003, t01=0x009c}
0x0568…0586 Head {h00=0x001a, h01=0x0050, text=» ADK A6,1«, t00=0x0003, t01=0x00bc}
0x0586…05a6 Head {h00=0x001c, h01=0x0050, text=» RF(3) OVER4 «, t00=0x0003, t01=0x00da}
0x05a6…05c6 Head {h00=0x001c, h01=0x0050, text=» RF(7) NOVER «, t00=0x0003, t01=0x00fa}
0x05c6…05e6 Head {h00=0x001c, h01=0x0050, text=»NOVER1 ADR A2,A7 «, t00=0x0003, t01=0x011a}
0x05e6…0606 Head {h00=0x001c, h01=0x0050, text=» RF(3) OVER1 «, t00=0x0003, t01=0x013a}
0x0606…0626 Head {h00=0x001c, h01=0x0050, text=»NOVER ADR A1,A6 «, t00=0x0003, t01=0x015a}
0x0626…0644 Head {h00=0x001a, h01=0x0050, text=»NOVER2 RF(1) END1«, t00=0x0003, t01=0x017a}
0x0644…0662 Head {h00=0x001a, h01=0x0050, text=» RF(2) END2«, t00=0x0004, t01=0x0008}
0x0662…0680 Head {h00=0x001a, h01=0x0050, text=» RF(3) END3«, t00=0x0004, t01=0x0026}
0x0680…069e Head {h00=0x001a, h01=0x0050, text=» ADK A2,0«, t00=0x0004, t01=0x0044}
0x069e…06bc Head {h00=0x001a, h01=0x0050, text=» RF(0) END0«, t00=0x0004, t01=0x0062}
0x06bc…06da Head {h00=0x001a, h01=0x0050, text=» RF(7) END1«, t00=0x0004, t01=0x0080}
0x06da…06fe Head {h00=0x0020, h01=0x0050, text=»OVER1 ANK.L A2,X'7FFF'«, t00=0x0004, t01=0x009e}
0x06fe…071c Head {h00=0x001a, h01=0x0050, text=» ADK A1,1«, t00=0x0004, t01=0x00c2}
0x071c…073c Head {h00=0x001c, h01=0x0050, text=» RF(3) OVER4 «, t00=0x0004, t01=0x00e0}
0x073c…075c Head {h00=0x001c, h01=0x0050, text=» RB(7) NOVER «, t00=0x0004, t01=0x0100}
0x075c…077c Head {h00=0x001c, h01=0x0050, text=»OVER4 ADR A1,A6 «, t00=0x0004, t01=0x0120}
0x077c…079a Head {h00=0x001a, h01=0x0050, text=» RF(2) END3«, t00=0x0004, t01=0x0140}
0x079a…07b8 Head {h00=0x001a, h01=0x0050, text=» ADK A1,0«, t00=0x0004, t01=0x015e}
0x07b8…07d8 Head {h00=0x001c, h01=0x0050, text=» RB(7) NOVER2«, t00=0x0004, t01=0x017c}
0x07d8…07ea Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x0005, t01=0x000c}
0x07ea…0808 Head {h00=0x001a, h01=0x0050, text=» IFT CPU852=0 6813 =1 «, t00=0x0005, t01=0x001e}
0x0808…0820 Head {h00=0x0014, h01=0x0050, text=» RF(0) END0 =1 «, t00=0x0005, t01=0x003c}
0x0820…0838 Head {h00=0x0014, h01=0x0050, text=» RF(1) END1 =1 «, t00=0x0005, t01=0x0054}
0x0838…0850 Head {h00=0x0014, h01=0x0050, text=» RF(2) END2 =1 «, t00=0x0005, t01=0x006c}
0x0850…0862 Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x0005, t01=0x0084}
0x0862…0884 Head {h00=0x001e, h01=0x0050, text=»END3 ADK A3,/80 «, t00=0x0005, t01=0x0096}
0x0884…08a6 Head {h00=0x001e, h01=0x0050, text=»END2 ADK A3,/80 «, t00=0x0005, t01=0x00b8}
0x08a6…08c8 Head {h00=0x001e, h01=0x0050, text=»END1 ADK A3,/80 «, t00=0x0005, t01=0x00da}
0x08c8…0912 Head {h00=0x0046, h01=0x0050, text=»END0 SLL A3,1 ************************************* «, t00=0x0005, t01=0x00fc}
0x0912…0934 Head {h00=0x001e, h01=0x0050, text=» ANK.L A3,/0300«, t00=0x0005, t01=0x0146}
0x0934…0956 Head {h00=0x001e, h01=0x0050, text=» LDK.L A4,/FCFF«, t00=0x0005, t01=0x0168}
0x0956…0978 Head {h00=0x001e, h01=0x0050, text=» AN.S A4,2,A14«, t00=0x0005, t01=0x018a}
0x0978…09be Head {h00=0x0042, h01=0x0050, text=» OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM«, t00=0x0006, t01=0x001c}
0x09be…09ce Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0006, t01=0x0062}
0x09ce…09ec Head {h00=0x001a, h01=0x0050, text=» RTN A14 «, t00=0x0006, t01=0x0072}
0x09ec…0a00 Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x0006, t01=0x0090}
0x0a00…0a04 Head {h00=0x4004, h01=0x0000}
0x0a04…0a08 00 06 00 a4 ┆ ┆
0x0a08…0a10 (7, 1, 8) 20 04 00 00 00 07 00 04 ┆ ┆
0x0a10…0a60 (8, 0, 400) 00 32 00 50 50 52 4f 55 54 5c 45 51 55 5c 2f 32 30 5c 52 45 54 55 52 4e 20 43 4f 44 45 2e 20 45 4e 44 20 4f 46 20 4a 4f 55 52 4e 41 4c 20 54 41 50 45 00 10 00 04 00 06 00 50 2a 20 00 10 00 3a 00 06 00 50 2a 20 00 10 00 44 00 30 00 50 56 4f ┆ 2 PPROUT EQU /20 RETURN CODE. END OF JOURNAL TAPE P* : P* D 0 PVO┆
0x0a60…0ab0 49 4e 5c 45 51 55 5c 2f 38 5c 27 56 4f 55 43 48 45 52 20 49 4e 27 20 42 49 54 20 49 4e 20 44 41 54 41 2d 52 45 51 55 45 53 54 00 10 00 4e 00 32 00 50 45 4f 4a 54 5c 45 51 55 5c 2f 34 5c 27 45 4e 44 20 4f 46 20 4a 4f 55 52 4e 41 4c 27 20 42 ┆IN EQU /8 'VOUCHER IN' BIT IN DATA-REQUEST N 2 PEOJT EQU /4 'END OF JOURNAL' B┆
0x0ab0…0b00 49 54 20 49 4e 20 44 41 54 41 2d 52 45 51 2e 20 00 10 00 82 00 40 00 50 56 4f 43 48 41 5c 45 51 55 5c 2f 32 30 30 5c 42 49 54 20 23 36 20 44 57 54 54 53 54 3b 56 4f 55 43 48 45 52 20 53 54 41 54 55 53 20 43 48 2e 20 4e 4f 54 20 41 4c 4c 4f ┆IT IN DATA-REQ. @ PVOCHA EQU /200 BIT #6 DWTTST;VOUCHER STATUS CH. NOT ALLO┆
0x0b00…0b50 57 45 44 20 00 10 00 b8 00 34 00 50 4d 45 53 53 5c 45 51 55 5c 2f 34 30 30 5c 42 49 54 20 23 35 20 44 57 54 54 53 54 3b 54 45 53 54 20 4d 45 53 53 41 47 45 20 57 52 49 54 54 45 4e 00 10 00 fc 00 06 00 50 2a 20 00 10 01 34 00 24 00 50 53 54 ┆WED 4 PMESS EQU /400 BIT #5 DWTTST;TEST MESSAGE WRITTEN P* 4 $ PST┆
0x0b50…0ba0 58 5c 45 51 55 5c 2f 38 32 5c 53 54 41 52 54 20 4f 46 20 54 45 58 54 20 42 4c 4f 43 4b 20 00 10 01 3e 00 22 00 50 45 54 42 5c 45 51 55 5c 2f 39 37 5c 45 4e 44 20 4f 46 20 54 45 58 54 20 42 4c 4f 43 4b 20 00 10 01 66 00 1a 00 50 45 54 58 5c ┆X EQU /82 START OF TEXT BLOCK > " PETB EQU /97 END OF TEXT BLOCK f PETX ┆
0x0ba0…0bf0 (9, 0, 400) 45 51 55 5c 2f 30 33 5c 4c 41 53 54 20 44 55 4d 4d 59 00 10 01 8c 00 2c 00 50 52 45 4d 4f 54 5c 45 51 55 5c 2f 30 31 5c 52 45 53 45 54 20 50 52 49 4e 54 20 42 55 46 46 45 52 20 52 45 4d 4f 54 45 20 00 11 00 1a 00 2a 00 50 54 41 42 5c 45 51 ┆EQU /03 LAST DUMMY , PREMOT EQU /01 RESET PRINT BUFFER REMOTE * PTAB EQ┆
0x0bf0…0c40 55 5c 2f 31 31 5c 54 41 42 55 4c 41 54 49 4f 4e 20 43 48 41 52 20 49 4e 20 42 55 46 46 45 52 20 00 11 00 4a 00 20 00 50 43 52 31 5c 45 51 55 5c 2f 30 44 5c 43 52 20 4a 4f 55 52 4e 41 4c 20 54 41 50 45 20 00 11 00 78 00 20 00 50 4c 46 31 5c ┆U /11 TABULATION CHAR IN BUFFER J PCR1 EQU /0D CR JOURNAL TAPE x PLF1 ┆
0x0c40…0c90 45 51 55 5c 2f 31 38 5c 4c 46 20 4a 4f 55 52 4e 41 4c 20 54 41 50 45 20 00 11 00 9c 00 2e 00 50 43 52 32 5c 45 51 55 5c 2f 30 39 5c 43 52 20 54 41 4c 4c 59 20 52 4f 4c 4c 2c 56 4f 55 43 48 45 52 2f 50 41 53 53 42 4f 4f 4b 00 11 00 c0 00 1e ┆EQU /18 LF JOURNAL TAPE . PCR2 EQU /09 CR TALLY ROLL,VOUCHER/PASSBOOK ┆
0x0c90…0ce0 00 50 4c 46 32 5c 45 51 55 5c 2f 31 39 5c 4c 46 20 54 41 4c 4c 59 20 52 4f 4c 4c 20 00 11 00 f2 00 24 00 50 4c 44 4f 5c 45 51 55 5c 2f 30 42 5c 4c 49 46 54 20 44 4f 57 4e 20 31 20 50 4f 53 49 54 49 4f 4e 00 11 01 14 00 24 00 50 4c 55 50 5c ┆ PLF2 EQU /19 LF TALLY ROLL $ PLDO EQU /0B LIFT DOWN 1 POSITION $ PLUP ┆
0x0ce0…0d30 45 51 55 5c 2f 30 41 5c 4c 49 46 54 20 55 50 20 4f 4e 45 20 50 4f 53 49 54 49 4f 4e 00 11 01 3c 00 24 00 50 4c 46 46 5c 45 51 55 5c 2f 30 43 5c 4c 49 46 54 20 54 4f 20 54 4f 50 20 50 4f 53 49 54 49 4f 4e 00 11 01 64 00 36 00 50 47 52 41 5c ┆EQU /0A LIFT UP ONE POSITION < $ PLFF EQU /0C LIFT TO TOP POSITION d 6 PGRA ┆
0x0d30…0d80 (10, 0, 400) 45 51 55 5c 2f 31 41 5c 57 41 49 54 20 46 4f 52 20 49 4e 53 45 52 54 49 4f 4e 20 4f 46 20 56 4f 55 43 48 45 52 2f 50 41 53 53 42 4f 4f 4b 00 11 01 8c 00 28 00 50 52 45 4c 5c 45 51 55 5c 2f 31 42 5c 52 45 4c 45 41 53 45 20 56 4f 55 43 48 45 ┆EQU /1A WAIT FOR INSERTION OF VOUCHER/PASSBOOK ( PREL EQU /1B RELEASE VOUCHE┆
0x0d80…0dd0 52 2f 50 41 53 53 42 4f 4f 4b 00 12 00 36 00 22 00 50 41 50 48 5c 45 51 55 5c 2f 31 44 5c 41 54 54 41 43 48 20 50 52 49 4e 54 20 48 45 41 44 20 00 12 00 62 00 22 00 50 52 50 48 5c 45 51 55 5c 2f 31 45 5c 52 45 54 55 52 4e 20 50 52 49 4e 54 ┆R/PASSBOOK 6 " PAPH EQU /1D ATTACH PRINT HEAD b " PRPH EQU /1E RETURN PRINT┆
0x0dd0…0e20 20 48 45 41 44 20 00 12 00 88 00 34 00 50 54 45 54 58 5c 45 51 55 5c 2f 38 33 5c 4c 41 53 54 20 44 55 4d 4d 59 20 41 46 54 45 52 20 47 52 41 53 50 20 41 4e 44 20 52 45 4c 45 41 53 45 20 00 12 00 ae 00 06 00 50 2a 20 00 12 00 e6 00 06 00 50 ┆ HEAD 4 PTETX EQU /83 LAST DUMMY AFTER GRASP AND RELEASE P* P┆
0x0e20…0e70 2a 20 00 12 00 f0 00 1a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 12 00 fa 00 1a 00 50 2a 20 44 57 54 2d 44 49 53 50 4c 41 43 45 4d 45 4e 54 53 20 2a 20 00 12 01 18 00 1a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆* P********************* P* DWT-DISPLACEMENTS * P**********┆
0x0e70…0ec0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 12 01 36 00 06 00 50 2a 20 00 12 01 54 00 06 00 50 2a 20 00 12 01 5e 00 30 00 50 44 57 54 44 52 44 5c 45 51 55 5c 2f 31 30 5c 53 54 41 52 54 20 4f 46 20 44 52 49 56 45 52 20 44 45 46 49 4e 45 44 20 50 ┆*********** 6 P* T P* ^ 0 PDWTDRD EQU /10 START OF DRIVER DEFINED P┆
0x0ec0…0f10 (11, 0, 400) 41 52 54 20 00 12 01 68 00 06 00 50 2a 20 00 13 00 0c 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 30 20 00 13 00 16 00 14 00 50 53 54 41 52 54 5c 45 51 55 5c 44 57 54 44 52 44 00 13 00 2c 00 08 00 50 5c 58 49 46 00 13 00 44 00 06 00 50 ┆ART h P* P IFT MMUPAG=0 PSTART EQU DWTDRD , P XIF D P┆
0x0f10…0f60 2a 20 00 13 00 50 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 31 20 00 13 00 5a 00 16 00 50 53 54 41 52 54 5c 45 51 55 5c 44 57 54 44 52 44 2b 34 00 13 00 70 00 08 00 50 5c 58 49 46 00 13 00 8a 00 06 00 50 2a 20 00 13 00 96 00 2e 00 50 ┆* P P IFT MMUPAG=1 Z PSTART EQU DWTDRD+4 p P XIF P* . P┆
0x0f60…0fb0 44 57 54 52 4c 4e 5c 45 51 55 5c 53 54 41 52 54 2b 2f 31 32 5c 52 45 51 55 45 53 54 45 44 20 4c 49 4e 45 20 4e 55 4d 42 45 52 00 13 00 a0 00 2c 00 50 44 57 54 41 4c 4e 5c 45 51 55 5c 53 54 41 52 54 2b 2f 31 33 5c 41 43 54 55 41 4c 20 4c 49 ┆DWTRLN EQU START+/12 REQUESTED LINE NUMBER , PDWTALN EQU START+/13 ACTUAL LI┆
0x0fb0…1000 4e 45 20 4e 55 4d 42 45 52 20 00 13 00 d2 00 06 00 50 2a 20 00 13 01 02 00 0a 00 50 5c 45 4a 45 43 54 00 13 01 0c 00 06 00 50 2a 20 00 13 01 1a 00 10 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 13 01 24 00 10 00 50 2a 20 42 55 46 46 45 52 ┆NE NUMBER P* P EJECT P* P*********** $ P* BUFFER┆
0x1000…1050 53 20 2a 20 00 13 01 38 00 10 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 13 01 4c 00 06 00 50 2a 20 00 13 01 60 00 06 00 50 2a 20 00 13 01 6a 00 26 00 50 42 55 46 31 5c 44 41 54 41 5c 2f 30 33 38 32 2c 2f 30 44 31 44 5c 53 54 58 2c 43 52 ┆S * 8 P*********** L P* ` P* j & PBUF1 DATA /0382,/0D1D STX,CR┆
0x1050…10a0 (12, 0, 400) 31 2c 41 50 48 20 00 13 01 74 00 12 00 50 5c 49 46 54 5c 43 55 54 50 45 52 3d 30 20 00 14 00 0e 00 18 00 50 42 55 46 32 5c 44 41 54 41 5c 2f 30 33 38 32 5c 53 54 58 20 00 14 00 24 00 08 00 50 5c 58 49 46 00 14 00 40 00 12 00 50 5c 49 46 54 ┆1,APH t P IFT CUTPER=0 PBUF2 DATA /0382 STX $ P XIF @ P IFT┆
0x10a0…10f0 5c 43 55 54 50 45 52 3d 31 20 00 14 00 4c 00 18 00 50 42 55 46 32 5c 44 41 54 41 5c 2f 30 34 38 32 5c 53 54 58 20 00 14 00 62 00 08 00 50 5c 58 49 46 00 14 00 7e 00 24 00 50 5c 44 41 54 41 5c 2f 30 39 31 44 2c 2f 32 30 30 30 5c 43 52 32 2c ┆ CUTPER=1 L PBUF2 DATA /0482 STX b P XIF ~ $ P DATA /091D,/2000 CR2,┆
0x10f0…1140 41 50 48 2c 53 50 41 43 45 20 00 14 00 8a 00 26 00 50 42 55 46 33 5c 44 41 54 41 5c 2f 30 33 38 32 2c 2f 30 39 31 44 5c 53 54 58 2c 43 52 32 2c 41 50 48 20 00 14 00 b2 00 34 00 50 42 55 46 35 5c 44 41 54 41 5c 2f 30 34 31 42 2c 2f 39 37 38 ┆APH,SPACE & PBUF3 DATA /0382,/091D STX,CR2,APH 4 PBUF5 DATA /041B,/978┆
0x1140…1190 33 2c 2f 38 32 30 30 5c 52 45 4c 2c 45 54 42 2c 44 55 4d 4d 59 2c 53 54 42 5c 3d 32 00 14 00 dc 00 06 00 50 2a 20 00 14 01 14 00 06 00 50 2a 20 00 14 01 1e 00 06 00 50 2a 20 00 14 01 28 00 0e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 14 01 32 ┆3,/8200 REL,ETB,DUMMY,STB =2 P* P* P* ( P********** 2┆
0x1190…11e0 00 0e 00 50 2a 20 54 41 42 4c 45 53 20 2a 00 14 01 44 00 0e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 14 01 56 00 06 00 50 2a 20 00 14 01 68 00 06 00 50 2a 20 00 14 01 72 00 20 00 50 5c 44 41 54 41 5c 44 56 42 4c 45 4e 5c 4d 4d 55 20 42 55 46 ┆ P* TABLES * D P********** V P* h P* r P DATA DVBLEN MMU BUF┆