|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 117504 (0x1cb00)
Types: TextFile
Names: »mpdp11«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »mpdp11«
.TITLE ADD
;+ NAM: ADD VER 1.0 DATE: 9/20/79 CMP: PDP-11
;
; SYS: MACS
;
; ENT: A1 = M.S.WORD OF A
; A = L.S.WORD OF A
; B1 = M.S.WORD OF B
; B = L.S.WORD OF B
; CALL ADD(A1,A,B1,B) - DO ADDOF A+B
;
; RTN: A1 - M.S.WORD OF RESULT
; A - L.S.WORD OF RESULT
; B1 - N/C
; B - N/C
;
; FNC: DOES 32 BIT ADD
;
.GLOBL ADD
ADD: MOV R0,-(SP) ;SAVE REGISTERS
MOV R1,-(SP)
MOV R2,-(SP)
MOV R3,-(SP)
MOV @2(R5),R0 ;GET THE ARGUMENTS A1,A,B1,B
MOV @4(R5),R1
MOV @6(R5),R2
MOV @2+6(R5),R3
ADD R1,R3
ADC R2
ADD R0,R2
MOV R3,@4(R5) ;SAVE THE L.S.WORD
MOV R2,@2(R5) ;SAVE THE M.S.WORD
MOV (SP)+,R3 ;RETURN ALL REGISTER VALUES
MOV (SP)+,R2
MOV (SP)+,R1
MOV (SP)+,R0
RTS PC
.END
.TITLE SUB
;+ NAM: SUB VER 1.0 DATE: 9/20/79 CMP: PDP-11
;
; SYS: MACS
;
; ENT: A1 = M.S.WORD OF A
; A = L.S.WORD OF A
; B1 = M.S.WORD OF B
; B = L.S.WORD OF B
; CALL SUB(A1,A,B1,B) - DO SUBTRACT OF A-B
;
; RTN: A1 - M.S.WORD OF RESULT
; A - L.S.WORD OF RESULT
; B1 - N/C
; B - N/C
;
; FNC: DOES 32 BIT SUBTRACT
;
.GLOBL SUB
SUB: MOV R0,-(SP) ;SAVE REGISTERS
MOV R1,-(SP)
MOV R2,-(SP)
MOV R3,-(SP)
MOV @2(R5),R0 ;GET THE ARGUMENTS A1,A,B1,B
MOV @4(R5),R1
MOV @6(R5),R2
MOV @2+6(R5),R3
NEG R2
NEG R3
SBC R2
ADD R1,R3
ADC R2
ADD R0,R2
MOV R3,@4(R5) ;SAVE THE L.S.WORD
MOV R2,@2(R5) ;SAVE THE M.S.WORD
MOV (SP)+,R3 ;RETURN ALL REGISTER VALUES
MOV (SP)+,R2
MOV (SP)+,R1
MOV (SP)+,R0
RTS PC
.END
.TITLE MUL
; NAM: MUL VER 1.0 DATE: 9/20/79 CMP: PDP-11
;
; SYS: MACS
;
; ENT: A1 = M.S.WORD OF A
; A = L.S.WORD OF A
; B1 = M.S.WORD OF B
; B = L.S.WORD OF B
; ACCESS: CALL MUL(A1,A,B1,B)
;
; RTN: A1 = M.S.WORD OF RESULT
; A = L.S.WORD OF RESULT
; B1 = N/C
; B = N/C
;
; FNC: DOES 32 BIT MUL OF A*B.
;
.GLOBL MUL
MUL: MOV R0,-(SP) ;SAVE ADDRESS
MOV R1,-(SP)
MOV R2,-(SP)
MOV R3,-(SP)
MOV R4,-(SP)
MOV R5,-(SP)
MOV @2(R5),R2 ;GET ARGUMENTS
MOV @4(R5),R3
MOV @6(R5),R4
MOV @2+6(R5),R5
CLR R0 ;CLEAR HIGH ORDER
CLR R1
MOV #41,-(SP) ;32 DECIMAL COUNT
M.DP01: ROR R0
ROR R1
ROR R2 ;SHIFT TO ADD
ROR R3
BCC M.DP02 ;NO CARRY, NO ADD
ADD R5,R1
ADC R0 ;ADD DOUBLE PREC
ADD R4,R0 ;PRODUCT
M.DP02: DEC @SP ;DECREMENT COUNT
BNE M.DP01
TST (SP)+ ;REMOVE COUNTER
MOV (SP)+,R5
MOV R3,@4(R5) ;SAVE L.S.WORD
MOV R2,@2(R5) ;SAVE M.S.WORD
MOV (SP)+,R4
MOV (SP)+,R3 ;RESET ALL
MOV (SP)+,R2 ; REGISTERS
MOV (SP)+,R1
MOV (SP)+,R0
RTS PC
.END
.TITLE DIV
;+ NAM: DIV VER 1.0 DATE: 9/20/79 CMP: PDP-11
;
; SYS: MACS
;
; ENT: A1 = M.S.WORD OF A
; A = L.S.WORD OF A
; B1 = M.S.WORD OF B
; B = L.S.WORD OF B
; CALL DIV(A1,A,B1,B) - DO DIV OF A/B
;
; RTN: A1 - M.S.WORD OF RESULT
; A - L.S.WORD OF RESULT
; B1 - N/C
; B - N/C
;
; FNC: DOES 32 BIT DIV
;
.GLOBL DIV
DIV: MOV R0,-(SP) ;SAVE REGISTERS
MOV R1,-(SP)
MOV R2,-(SP)
MOV R3,-(SP)
MOV R4,-(SP)
MOV R5,-(SP)
MOV @2(R5),R2 ;GET THE ARGUMENTS A1,A,B1,B
MOV @4(R5),R3
MOV @6(R5),R4
MOV @2+6(R5),R5
MOV #40,-(SP) ;SET COUNTER ON STACK
MOV R4,-(SP) ;DIVISOR ON STACK
MOV R5,-(SP)
CLR R0 ;CLEAR HIGH ORDER WORD
CLR R1
NEG 2(SP) ;FORM NEGATIVE
NEG @SP ;VERSION OF DIVISOR
SBC 2(SP)
ADD @SP,R1
ADC R0 ;PERFORM THE INITIAL SUBTRACTION
ADD 2(SP),R0
BCS M.DP50 ;IF CARRY THEN OVERFLOW HAS OCCURRED
CLR -(SP) ;THIS IS A LONGER LASTING CARRY BIT
M.DP40: ROL R3
ROL R2
ROL R1
ROL R0
TST @SP ;TEST CARRY INDICATOR
BEQ M.DP41 ;IF NO CARRY THEN ADD ELSE SUB
CLR @SP ;CLEAR UP FOR NEXT TIME
ADD 2(SP),R1
ADC R0 ;ADD -(DIVISOR)
ADC @SP ; SET CARRY BIT
ADD 4(SP),R0 ;<-
BR M.DP42
M.DP41: ADD R5,R1
ADC R0 ;ADD +(DIVISOR)
ADC @SP ;SET CARRY BIT
ADD R4,R0 ;<-
M.DP42: ADC @SP ;SET CARRY BIT
M.DP43: TST @SP ;TEST UPDATE INDICATOR
BEQ .+4 ;-> IF ZERO FORGET IT
INC R3 ; I NO CARRY POSSIBLE HERE
DEC 6(SP) ;<- ;DECREMENT COUNTER
BGT M.DP40 ;BRANCH IF MORE TO DO
ROR R3
BCS M.DP44
ADD R5,R1
ADC R0
ADD R4,R0
CLC
M.DP44: ROL R3
M.DP50: CLR (SP)+ ; SET STACK
TST (SP)+ ;REMOVE COUNTER FROM STACK
MOV (SP)+,R5
MOV (SP)+,R5
MOV (SP)+,R5
MOV (SP)+,R4 ;REMOVE DIVISOR FROM STACK AND RESET REGS
MOV R3,@4(R5) ;SAVE THE L.S.WORD
MOV R2,@2(R5) ;SAVE THE M.S.WORD
MOV (SP)+,R3 ;RETURN ALL REGISTER VALUES
MOV (SP)+,R2
MOV (SP)+,R1
MOV (SP)+,R0
RTS PC
.END
.TITLE NEGATE
; NAM: NEGATE VER: 1.0 DATE: 3/27/80 COMP: PDP-11
;
; SYS: MACS
;
; ENT: A1 = M.S.WORD OF A
; A = L.S.WORD OF A
; CALL NEGATE(A1,A) - COMPLEMENT(NEGATE) A
;
; RTN: A1 - M.S.WORD OF RESULT
; A - L.S.WORD OF RESULT
;
; FNC: DOES COMPLEMENT OF 32-BIT VALUE
;
.GLOBL NEGATE
NEGATE: MOV R0,-(SP) ;SAVE REGISTERS
MOV R1,-(SP)
MOV @2(R5),R0 ;GET ARG A
MOV @4(R5),R1
COM R0
COM R1
ADD #1,R1
ADC R0
MOV R1,@4(R5) ;SAVE THE L.S.WORD
MOV R0,@2(R5) ;SAVE THE M.S.WORD
MOV (SP)+,R1
MOV (SP)+,R0
RTS PC
.END
37. ICSW=6
38. RETURN
39. 10 I=IC/2
40. IW 18:18 MAY 05,'75 CHI PAGE 48
54. 30 IF(NC.LT.L0.OR.NC.GT.L9)ROUTINE MPUOPF (LUTB,JER)
2. C+ NAM: MPUOPF VER: 1.1 DAT: 02-21-75 C 14. C FNC: OPENS FI
LE DESCRIBED IN LUTB
15. C
16. C THE LO-7 - FILE TYPE:
28. C 0 => CONSECUTIVE FILE
29. C SED
39. C 7 - UNUSED
40. C 11 = 0 => NO VFC CONTRO
50. C 4 => OPEN ERROR--FILE BUSY
51. C 5 => OPEN ERROR-- (CREATED) FILE OPENED
59. C 1-3 UNUSED
60. C 5-15 E FILE AFTER CLOSING
70. C = 1 => UNSAVE FILE AFTER CLOSING
79. C KNPG NUMBER OF PAGES IN THE FILE (RANDOM ACCESS FILE
80. C AGES
89. C = 2 => PRINT ERROR MESSAGES
90. C JA 98. C = 3 => BOTH READ AND WRITE THE FILE
99. C JNP 18:18 MAY 05,'75 CHI PAGE 51
107. C*
108. CC MPUDB1,MPUAN2,IVARTB(2))
116. EQUIVALENCE (IVAR3,IVARTB(3)),(IVAR4,IVARTB(4))
F(9)/2H00/,SF(10)/2H,0/,SF(11)/2H00/,SF(12)/2HÅ /
126. DATA JDC/2HDK,2 JOPF=LUTB(KOPF)
139. JCRT=MPUAND(JOPF,1)+1
140. JERR=MPU2 .AND. JCRT .EQ. 1) GO TO 800
151. IF (LUTB(KEOF) .EQ. 3) GO TO 100
160. LUTB(I) = SF(I-8)
161. 110 CONTINUE
162. CALL MPJNBLK, JSTAT)
173. JFRA = MPUXBS(JSTAT, 7, 7)
174. JFEX = MP88. GO TO (210, 905, 210), JWR
189. C*** FILE EXISTS
190. 190 I(KSTA) = 1
202. IF (JRA .EQ. 1) GO TO 290
203. C*** RANDOM ACCESS3
213. 230 GO TO (231, 232, 233, 234, 235, 236, 237, 238), JLUN
6, U, IVAR6)
225. GO TO 240
226. 237 DEFINE FILE JLUN(JNBLK, 2560. C*** ILLEGAL OPEN REQUEST
241. C
242. 800 LUTB(KEOF) = 8
243. ERROR '12' FILE DOES NOT EXIST
257. 905 JER=JER+1
258. C*** ERROR '1 IF(JER.EQ.4.AND.JABT.EQ.0) CALL MPUER1 (803,0)
268. LUTB(KEOF) =281. END
\f
MPC1114BK.RB82106 MPUCLF 18:18 MAY 05,'75 C C
BIT 5-15--NOT USED BY MPUCLF
12. C
13. C RTN: LEOF,KSTA,KOPF
24. CX
25. C-
26. INTEGER LUTB(20)
27. GO TO (20, 10), ICLF
39. C
40. C*** UNSAVE A PERMANENT FILE
4106 MPCPAG 18:18 MAY 05,'75 CHI PAGE 56
1. SUBRO PRINTED AND GO TO TOP OF THE
14. C PAGE EACH TIME WHEN THE PAGE O> WORD 7 IS THE PAGE SIZE
25. C - 1 => WORD 7 IS NUMBE1)
34. C*
35. CF MPUXBS
36. CS NPNAM,NPDAT,NPTIM,NPGNO,NPLC 45. DATA JVFCSW/0/
46. IF(NOPPA.EQ.1.OR.NOPLI.EQ.1) RETURN
56. 200 IF(JNL.LT.1) GO TO 210
57. NPLCT=NPLCT+JNL
58. TE (LULT,235)
71. WRITE (LULT,235)
72. 250 NPGNO=NPGNO+1
CFSY 18:18 MAY 05,'75 CHI PAGE 58
1. SUBROUTINE MPCFSY 13. C JRS - 1 => SYMBOL FOUND
14. C - 2 => SYMBOL 23. C REV: 1.1 - DELETED 250 ERR MSG.
CHANGE NAME TO MPCFSY
24. C GO TO 110
36. IF(JNM(1).NE.MPUAND(J,KC7F7F)) GO TO 100
37. 51. 130 JSI=I
52. RETURN
53. END
\f
MPC1114BK.RB82 C GEN: JER IS A 5-DIGIT ERROR CODE
15. C DIGIT 1 : DETAIL C. C ERR TYPE MESSAGE TYPE
28. C 1 ERROR
2. C 0 NO ADDITIONAL DETAIL
39. C 1 OUTPELETED
49. C 1.8 - ADDED CALL TO MPUCFN (CONVERT FILENAME)
5)
57. COMMON LUERTB(20),LUCDTB(20),LULTTB(20)
58. EQUIVALE K=JB(1)
72. GO TO (100,200,300),JDTL
73. C*** NO ADDITIONAL=JB1(J-1)*ICSHF+JB1(J)
90. 220 CONTINUE
91. GO TO 320
92.BORT MESSAGES
105. 30 WRITE (JLUN,97) JERR,(JB1(J),J=1,3)
106. JB(1) PRINT IN I6 FORMAT
116. 60 JTYP=1
117. GO TO 200
118 129. C
130. 94 FORMAT (10H ****ERROR,I4,1X,A2,1X,13A2)
131. 95 FOLENAME TO PRINTABLE FORM
4. C
5. C ENT: LUTB - LOGICAL UNIT TABLNM
19. CX *** SYMBOL TABLE VER: 1.1 DAT: 04/09/75 ***
20. CO (LUTB,JP,JB)
2. C+ NAM: MPURRP VER: 1.0 DAT: 08-28-74 CMP: PDP-11
) POINTED
16. C TO BY THE PAGE ADDRESS IN 'JP' INTO BUFFER 'JB'
LUN = LUTB(KLUN)
29. READ (LUN' JP) JB
30. RETURN
3 9. C
10. C RTN: JBUF - N/C
11. C JLEN - N/C
12.
24. CC MPUGCB,MPUPA1
25. CS LSP,NB,LULTTB,LULT
26. CX * 38. IF(JX.GT.JLEN.OR.JC.EQ.1) GO TO 240
39. IF(JC.EQ.0) GO TO E
\f
MPC1114BK.RB82106 MPUPFL 18:18 MAY 05,'75 CHI PAGE 65
2=> STORE P.T. RECORD'S 1ST BYTE ADDRESS
9. C - 3=> STORE 8 TO ITOCKS AND IS IN COMMON
21. C FIX FOR 16-BIT ARITH PROBLEO TO (100,200,300,400),JSW
32. C*** INITIALIZE THE BUFFER WITH 'SX'
3 CALL MPUCNA (JAD,16,L)
47. DO 320 J=1,L
48. IOTINX=IO(2)
59. CALL MPUCNA (IOTCKS,16,2)
60. IOTINX=IOTINX+1
1. SUBROUTINE MPUCVC(JW, JC)
2. C+ NAM: MPUCVC VER: 1.1 DA. C REV: 1.1 - CONVERT LOWER CASE TO
UPPER CASE
17. C*
18. CX * 1. SUBROUTINE MPUPA2 (JPSW,JB,JLB,LUTB)
2. C+ NAM: MPUPA2 VER:
14. C JB - N/C
15. C JLB - N/C
16. C 28. CC MPUCA2
29. CS LSPSP,KLUN,KLOL
30. CX *** SYMBOL TAB 43. IF(L.GT.J) L=J
44. WRITE (JLU,11) (JB1(J),J=1,L)
45.A
9. C
10. C RTN: JFNIN - N/C
11. C JFNOUT - ARRAY. C WHERE D - 2 OR 3 CHAR DEVICE MNUMO
NIC,
21. C N ER NUMBER (1- 376), AND
30. C Å - RIGHT BRACKET.
31. C REV: 1.1 - CHANGED ALL COMMON CHAR ("L" SYMBOLS) TO "JL"
41. C RBRK/93/
51. JUN = 0
52. KOL = 0
53. C
\f
MPC111
67. C
68. C*** EXTRACT DEVICE MNUMONIC (KB, LP, DK, DTA, ...)
6NAME.EXTENSION. IF 1ST CHAR IS BLANK, ASSUME DEVICE
85. C*** IS NOT FILE KHAR = JINB(KOL)
101. IF (KHAR .EQ. JLCOMA) GO TO 70
102. UNIT AND UIC
114. C
115. 100 JFNOUT(17) = JUNB(1)
116. JFNOC+ NAM: MPUGCB VER: 1.3 DAT: 10-21-74 CMP: ALL
3. C PGM: GET NEXITIALIZE (SETUP WITH JC=TO THE CHAR INDEX
14. C AND JWX JWX - 1 THE INDEX IS SET TO 1.
25. C - 2 INDEX OF THE CURRENCHAR FOR LEFT CHAR
36. C*
37. CS KCFF,ICPWD,ICSHFT
38. CX * JCX=ICPWD
51. JWX=JWX+1
52. JW=JB(JWX)
53. C***. END
66. $EOD
\f
MPC1114BK.RB82106 MPCM2 18:18 MCX *** SYMBOL TABLE VER: 1.
1 DAT: 04/09/75 ***
14. C-
15. CAE
11. C
12. C REV: 1.4 - FIX 206 ERROR RUN AWAY
13. C*
1SIBUF(80),LABEL(4),LABESW,IOPCOD(3)
22. COMMON NPNAM(3),NPDAT(99),IOP 32. IF(IPASS.EQ.1) GO TO 90
33. C*** START OF PASS 1, OPEN THE SM RECORD OR MULT NAM RECORDS
45. 110 CALL MPCERR (201)
46. NAMUF,JRLNSW)
56. C*** OUTPUT THE SOURCE IMAGE BUFFER TO THE SCR FILE
57RD ONLY CONTAINS A LABEL
69. 210 JE=JE-1
70. C*** ERROR '204' SYNTAL IN THE SYMBOL TABLE
82. LABEL(4)=IPCT
83. CALL MPCSSY (LICSW
95. 290 IF(NC.NE.LA.AND.NC.NE.LB) GO TO 320
96. JC=NC
A2 18:18 MAY 05,'75 CHI PAGE 78
107. LEVEL=4
108. 31110
121. CALL MPUBNM(NPNAM)
122. NAMSW=2
123. IF(NF (LUSITB)
136. DO 15 I=1,80
137. ISIBUF(I)=LLSPSP
138. 5
152. 400 CALL MPCGAM (IAMOD,JOPRSW)
153. IF(JOPRSW.GT.4) GO T(IOPIXB).LT.0) GO TO 410
165. C*** IF IMMEDIATE ADR MODE AND LDS, LDX OR CPGO TO 100
177. END
\f
MPC1114BK.RB82106 MPCPSC 18:1 - ERROR 223 ADDED, L
ABEL CHECK
15. C 1.4 - 'FCC N,' FOSCH,NFAULT(5),IPASS,LSCM(844),IC,NC,ICSW
25. C-
26. I=IOPIXB-4RR (216)
39. CALL MPCPRL (35)
40. RETURN
41. C
4 150
53. 140 GO TO (145,150),IPASS
\f
MPC1114BK.RB82106 MPCP 65. 170 I=355
66. 180 CALL MPCOPR (IOPAN1,JOPRSW)
67. GO T 'FCC' FORM CONSTANT CHARACTERS
80. C
81. 190 JSIC=IC
82. 1.EQ.NSOSCH) RETURN
95. CALL MPCPRL(I)
96. I=322
97. IN FDB DIRECTIVE
109. 232 IF(JOPRSW.EQ.3.OR.JOPRSW.EQ.5) CALL MPCERR (215)PAGE' PLACE PAGE A
T TOP OF THE NEXT PAGE (PASS 2 ONLY)
126. C
127. 250
140. C
141. C*** 'OPT' OPTION RECORD
142. C
143. 280 CALL MPC55. 320 IF(JDOSW.NE.0) CALL MPCPRL (JDOSW)
156. RETURN
157. 2) 2=> P COUNTER
10. C 3) 4=> OPCODE
11. C T THE SOURCE LINE AS THE SETTING OF 'JDOSW'
22. C AND THAN OUTPUT 31. CS INX,IC,NC,ICSW,ISILN,ICSHF,KLOL,LUL
TTB
32. CX *** SYMBOL TABLES,NOPT(1)),(NOPMEM,NOPT(3))
40. EQUIVALENCE (NOPOT,NOPT(4)),(NOPGC,NO 49. DATA JSSDF(1)/2
5/,JSSDF(2)/23/,JSSDF(3)/20/
50. JDSW=JDL.EQ.2).AND.J.EQ.0) GO TO 380
59. 120 L=LULTTB(KLOL)
60. DO 13C*** FORMAT THE P COUNTER (ADR)
76. 150 K=3
77. INX=7
784. 193 K=K+IXBASE
95. I=JLDF(K)
96. CALL MPUCNA (J,NOPBACALL MPUGNC(NC)
109. IF(IC.LT.7) CALL MPUSNC(NC)
110. IF(ICSD THE START OF THE NEXT FIELD
124. IC=NSSCOL-1
125. LEVS=0
IF(NRTSW.NE.4) GO TO 300
139. C*** OPCODE 'FCC N,'
140. NSOSCH=NUE
154. 340 IC=ISIC
155. CALL MPUGNC(NC)
156. 350 CONTINUETO (420,390),NOPOT
167. 390 JDSW=JDOSW
168. IF(MPUXBS(JDSW,9,9). C*** BITS 5 OR 8 IS SET
181. CALL MPUNEG(JV)
182. CALL MPU. C SYS: MPCASM
6. C
7. C ENT: JADR - MEMORY LOCATION TO ST MPUGMP,MPUPTS,MPCERR
20. CS NFAULT,NOPMEM,NOPOT,MEM,KPGIX
21. CX 31. MEM(J)=JBYTE
32. MEM(KPGIX+2)=1
33. 200 GO TO (3PUIWR (JSW)
2. C+ NAM: MPUIWR VER: 1.1 DAT: 09-24-74 CMP: ALL
- 2 IF EOF ON A READ
14. C
15. C FNC: WRITES AND READ S CX *** SYMBOL TABLE VER: 1.1 DAT: 04/09
/75 ***
26. COMMON ICOMONRITE OUT THE SOURCE IMAGE BUFFER
40. C
41. 120 L=ISIMBF(1)
42.
54. 145 CONTINUE
55. C*** REWIND THE FILE FOR READ
56. )=L
71. DO 170 J=2,L
72. CALL MPUGWP (IPBF2,ISIMBF(J))
SUBROUTINE MPCGAM (JM,JSW)
2. C+ NAM: MPCGAM VER: 1.4 DAT: 10-01-7
15. C
16. C REV: 1.4 - #0,X WILL CAUSE A SYNTAX ERROR
17. C*30. IF(JC.EQ.LX.AND.NC.EQ.LSP) GO TO 40
31. JM=0
32. NDEXED ADDRESS MODE
46. 40 JM=2
47. 50 IF(JM.NE.0) GO TO 60
- N/A
8. C JSW - N/A
9. C
10. C RTN: JV - VAULE ND THAN FORMS THE VALUE OF THE OPERAND BY THE
20. C OPERATIONIAL S CX *** SYMBOL TABLE VER: 1.1 DAT: 04/09/75
***
30. COMMON ICOMONS
43. C*** * * * ' ' ',' 0-9 A-Z SPE
44. 120 GO TO (170,175,280,18 92
54. 180 CALL MPUBNM (NAM)
55. CALL MPCFSY (NAM,I,J)ARACTER
67. 190 IF(NS.EQ.0) GO TO 200
68. C*** A SIGN HAS BEEN DEFI
82. GO TO 240
83. 220 NS=2
84. GO TO 240
85. GO TO 130
99. CALL MPUADR (JV,NS,N,JSW)
100. IF(JSW.GT.2) GN/A
9. C
10. C FNC: SCAN THE 'OPT' OPERAND FIELD AN SET THE REQUED7
20. CS KLOL,KFNM,LULTTB,LUMFTB,LUOTTB
21. CX *** SYMBOL TABLE20),LUDVTB(40)
28. COMMON LUOTTB(20)
29. EQUIVALENCE (N1,N 41. 110 CALL MPUBNM(NAM)
42. C*** LOOK-UP THE OPTION
43. FIELD
\f
MPC1114BK.RB82106 MPCOPT 18:18 MAY 05,'75 CHI PAGE0 N=N2
68. IF(N3.NE.LSPSP) N=N3
69. I=8
70. IINTABLE OR SIZE)
83. C*** S =0=> L IS PAGE SIZE
84. C*** CALL MPUFNO (JPT(I),J)
97. IF(J.NE.1) GO TO 140
98. IF(I.L.RB82106 MPCOPT 18:18 MAY 05,'75 CHI PAGE 95
107. C
122. RETURN
123. END
\f
MPC1114BK.RB82106 MPCOFN - RETURN THE 12 WORD FILENAME:PASSWORD:ACC
T#
12. C JANS - N/C
24. C-
25. INTEGER JFNM(12),JNM(12)
26. IF(NC.NE.LEQ) GOAME, OK
37. RETURN
38. C*** 1ST OPTION WITH A FILENAME IN IT
MPUBNM 18:18 MAY 05,'75 CHI PAGE 97
1. SUBROUTINE MPUB COMMON ICOMON(2714),LSPSP,L8SP(4),LSP,LASK(3
30),NC,ICSW
21. C-
JC+LSP
36. CALL MPUGNC (NC)
37. IF(ICSW.LT.3.OR.ICSW.GT.4)MP: ALL
3. C PGM: FIND THE OPCODE
4. C
5. C SYS: MPCAS
20. C*** FIND OPCODE
21. IOPCLS=0
22. IOPIXB=1
36. IF(IOPCOD(2).EQ.N) GO TO 255
37. 250 I=I+1
38. I. C SYS: ALL
6. C
7. C ENT: JP1 - OPERAND 1
8. C 1 => 8 BITS
21. C 2 => 16 BITS
22. C 34. C-
35. C*** RESET OVERFLOW INDICATOR
36. CALL MPUOVF(JP1, 1L MPVDIV(JP1, JP2, JP1)
52. 50 IF (JP1 .LT. 0 .OR. JP1 .GE. 256) JSW = 2 140 JP1 = JP1/JP2
66. 150 IF (IABS(JP1) .GE. 256) JSW = 2
67. C
4. C
5. C SYS: ALL
6. C
7. C ENT: JSW - 1 READ I JBF - PAGE BUFFER (MUST BE PAGE SIZE PL
US 3 WORDS)
15. C
16. C JBF(4) = FIRST WORD OF THE PAGE
25. C
26. C FNC: INITIALIZES THE OBLEMS
34. C*
35. CC MPUWRP,MPURRP,MPUER1,MPVMUL,MPVDIV
36. CS, JTMP)
47. JBF(2) = JWX -JTMP
48. J=JPN+J
49. 57. L=JBF(3)
58. CALL MPUWRP (KCOMON(L),JBF(1),JBF(4))
WORD FROM PAGE BUFFER
4. C
5. C SYS: ALL
6. C
7. C ADR OF THE CURRENT PAGE
16. C AND JB(2) POINTS TO THE NEXT WORD.
28. COMMON ICOMON,ISYM(3183),MPGSIZ
29. INTEGER KCOMON(422 END
\f
MPC1114BK.RB82106 MPUGMP 18:18 MAY 05,'75 CHI PAGET THE MEMOR
Y PAGE WHICH CONTAINS THE MEMORY
14. C LOCATION ADDREWD 1 - PAGE'S ADR (RELATIVE TO START OF KPGMEM)
23. C WD 2 - PAGE'EL
32. C
33. C REV: 1.1 - CHECK FOR LE ZERO MEMORY ADDRESSES
OL TABLE VER: 1.1 DAT: 04/09/75 ***
43. COMMON ICOMON(2199),NFAULT,N1114BK.RB82106 MPUGMP 18
:18 MAY 05,'75 CHI PAGE105
54. 66. DO 40 I=2,KPGEN,KPGB
67. IF(MEM(I).GT.JPL) GO TO 40
=JPG
80. MEM(KPGIX+2)=0
81. C*** SET THE PRIORITY LEVEL FOR THISES
4. C
5. C ENT: JADR1 - 1ST ADDRESS TO COMPARE
6. C S.
18. C
19. C GEN: ADDRESSES ARE ASSUMMED TO BE IN THE RANGE
2, JBYTB1, JBYTB2)
33. IF (JBYTA1 - JBYTB1) 30, 10, 50
34. 10 MPUSWP 18:18 MAY 05,'75 CHI PAGE107
1. SUBROUTINEFNC: WRITE OUT THE PAGE BUFFER TO PAGE ADR IN JB(1)
14. C IF THE PG ROUTINE ADDED
23. C 1.2 - CALL TO MPURRP PASSES LUTB INSTEAD OF TO 10
36. C*** PAGE FULL, WRITE IT OUT
37. LTBNDX = JB(3)
OMPLEMENT, 16 BIT NEGATE ROUTINE
4. C
5. C SYS: ALL
6. C
20. RETURN
21. END
\f
MPC1114BK.RB82106 MPUO> TEST FOR OVERFLOW FOR +, -, AND /
11. C 3 => TEST FOR OVE MPCM3 18:18 MAY 05,'75 C
HI PAGE110
1. #MPCM3/DE
14. C-
15. CALL MPCA3
16. RETURN
17. END
\f
IS ON
13. C*
14. CF MPUAND
15. CC MPCPAG,MPUIWR,MPUGNC,MPCELS,IOPIXB,IPCT,IOPBIN,IOPAN1,NRTSW,NSSCOL
23. COMMON NSOSCH,NFAULT(5)HE SCR BLOCKING ROUTINE FOR PASS 2 READ
34. CALL MPUIWR (3)
35. 0
48. C*** GET THE NEXT CHAR
49. 110 CALL MPUGNC (NC)
50. 120
58. JE=204
59. 170 IOPBIN=0
60. IOPAN1=0
61. F OPCODE FIELD
75. 220 GO TO (110,140,140,230,140,150),ICSW
76. C***KCFF).EQ.LSP) GO TO 260
88. IC=IC-2
89. CALL MPUGNC(NC)
Q.1.AND.(IOPIXB.LT.8.OR.IOPIXB.GT.11))GO TO 310
102. CALL MPCFSY (LABEROR
113. CALL MPCERR (220)
114. IPCT=LABEL(4)
115. 310 9. C*** GO TO THE DIRECTIVE OPCODE PROCCESSOR
130. 360 CALL MPCPSC
13
147. IF(IOPAN1.GE.IPCT-125.AND.IOPAN1.LE.IPCT+129) GO TO 385
148. Y 05,'75 CHI PAGE114
160. 390 CALL MPCGAM (IAMOD,JOPRSW)
161. D.EQ.2) GO TO 385
172. IOPBIN=INJMP
173. GO TO 470
174. PCPRL(303)
185. IPCT=IPCT+2
186. GO TO 100
187. C*** IM
201. C*** ASSEMBLER CLASS 5
202. 480 IOPIXB=IOPIXB*2-1
203.
1. #MPCM4/DE
2. #MPCM4<BI:/FA
3. SUBROUTINE MPCM4 RETURN
17. END
\f
MPC1114BK.RB82106 MPCA4 18:18 FILES.
13. C
14. C REV: 1.1 - ADDED CALL TO MPULOG (LOG OFF) LULT,LUSITB,LUMFTB,LUS2
TB,LUOTTB
24. CX *** SYMBOL TABLE VER: 1.1 DATKWD7,KNPG
31. COMMON KLOL,KFNM(11),LUCOTB(20),LUCITB(20),LUERTB(20)
)/4/
42. IF(IPASS.NE.3) GO TO 170
43. IF(NOPSY.EQ.1.OR.NOSCA4 18:18 MAY 05,'75 CHI PAGE118
54. WRITE (LULT,101)
TS SORT ORDER
70. 122 J=N
71. DO 124 I=1,3
72. IF(I87. GO TO (132,145),JDSW
88. 132 ISYM(JSI)=0
89. DO 140 PCPAG (1)
103. GO TO (110,150),JDSW
104. 150 IF(ITERR.EQ.0) GO TC
115. IPASS=4
116. C
117. 170 IF(LUMFTB(KEOF).EQ.3) GO TO 1 129. CALL MPUPTS (3,0,0)
130. CALL MPUCLF(LUOTTB)
131. 200 + NAM: MPCM5 VER: 1.4 DAT: 04-09-75 CMP: PDP-11
5. C PGM: DRIVE CHI PAGE122
1. SUBROUTINE MPCA5
2. C+ NAM: MPCA5 - NEW ROUTINE ADDED TO MPCASM
15. C*
16. CC MPUUTD,MPUOPN,MPUPPM,MOMMON LUHFTB(20),LUSITB(20),LUMFTB(20),LUDVT
B(20)
24. COMMON LUS2TB(2S ASSEMBLER, RELEASE ,3A2)
37. WRITE (LULT,110)
38. 110 FORMAT49. CALL MPUCLF (LUHFTB)
50. CALL MPUOPN (LUS2TB)
51. NAM: MPVHPS VER: 1.1 DAT: 12-28-74 CMP: ALL
3. C PGM: PRINT HELP ME 16. C JPBF - UNKNOWED
17. C
18. C GEN: SYSTEM MESSAGE1 - BREAK TEST ADDED
27. C*
28. CC MPUGRF,MPUOPF,MPURRP,MPUCVC,MPUO. C*** GET THE "HELP" MESSAGE FIL
E'S NAME FROM THE SYSTEM'S
38. C*** REFE48. CALL MPUOPF (LUHFTB,J)
49. 8 J=JSYS*5+11
50. JSDATSWORD CHARACTER
60. WRITE (LUCO,11)
61. 11 FORMAT (9H ENTER C STRING FOR ALL MESSAGES WITHIN THE DATE RANGE
74. 10 IF(JP.EQ.0) GO TO IF(JBSW.EQ.1) GO TO 10
86. CALL MPUCA1 (JPWC,1)
87. WR N/A
8. C
9. C RTN: N/A
10. C
11. C FNC: THE ROUTIF THE WEEK (1 TO 7 (SUN TO SAT))
19. C MTDATE(2) = MONTH (1 TO 12 O 59)
27. C MTDATE(10) = SECOND (0 TO 59)
28. C
29. C MMON ICOMON(2818),MTDATE(10),ICDBUF(318),KURUSR(6)
40. C-
41. BY MTDATE(8) = (JT(1) - JL0)*10 + JT(2) - JL0
51. MTDATE(7) = 1800AR INTO MMDDYY
59. CALL MPUDAT(1, MTDATE(6), MTDATE(1))
60. C*** KUSRB(5) = MOVB(1)
72. MOV = MPUXBS(KUIC, 6, 4) + JL0
73. E ON THE COMMENT DEVICE
4. C
5. C SYS: ALL
6. C
7. CTE (LULT,11)
20. WRITE (LULT,12) NAMPGM(1),NAMPGM(2),NAMPGM(3)
2
2. C+ NAM: MPUGRF VER: 1.2 DAT: 10-17-74 CMP: PDP-11
3. C C JFVN - N/A
13. C
14. C RTN: JF - N/C
15. C 24. C
25. C REV: 1.1 - FILE VERSION NUMBER ADDED TO THE FILE
26. THE SYSTEM REFERENCE FILE
39. C*** FILE IS OPENED IN 'MPUOSY'
40. 10CONTINUE
53. RETURN
\f
MPC1114BK.RB82106 MPUGRF 18 SYS: ALL
6. C
7. C ENT: N/A
8. C RTN: N/A
9. COMON(2092),NPDAT(4),NPTIM(4),NPGNO(2),NPVFCC
20. COMMON IOTBUF(715),MJD=1
31. JT=9
32. DO 100 I=1,4
33. NPDAT(I)=NB( (NPVFCC,1)
45. RETURN
46. END
\f
MPC1114BK.RB82106 - 0X=> NO PAGING
10. C - 1X=> NO PAGING
11. C C JN - MESSAGE NUMBER
19. C JD - MESSAGE DATE
2: PRINT THE HELP MESSAGE'S HEADER AND/OR IT'S INDEX AND/OR
32. C I1 DAT: 04/09/75 ***
41. COMMON ICOMON(2719),LSP,LASK(188),NB(140),INC1114BK.RB82106
MPVHPR 18:18 MAY 05,'75 CHI PAGE133
54UGWP (JB,JW)
67. GO TO (140,110),JHTSW
68. C*** PRINT THE MESSALT,123)
80. 123 FORMAT (5(2X,/),4H1---,5(2X,/))
81. JPGLCT=0
ESSAGE TEXT IS TO BE PRINTED ALSO
94. C
95. JWCT=JW
96. 18:18 MAY 05,'75 CHI PAGE134
107. IF(JWCT.EQ.0) GO TO 135
1 DO 200I=1,JC
121. CALL MPUSNC (LSP)
122. 200 CONTINUE
FROM BASE YEAR
9. C JB(5) - N/A
10. C
11. C JS 21. C JB(2) = DAY OF THE MONTH (1 TO 28, 29,
30 OR 31)
22. C Y OF THE YEAR (1 TO 365 OR 366)
32. C
33. C JSW - 2, N/C
'ND' (1/1/JYBASE)
46. C JYBASE MUST BE THE 1ST YEAR AFTER LEAP YEAR05,'75 CHI PAGE136
54. INTEGER JMO(11),JP(5),JB(7)
55. 1461
64. N=1
65. JMO(2)=28
66. IF(JDC.LT.1154)
79. JDM=JDY
80. DO 20 JM=1,11
81. J=JDM-JMO(JM8. JNL=JY/4
99. JDC=(JY-JNL*4)*365
100. JMO(2)=28
MPUFDA 18:18 MAY 05,'75 CHI PAGE138
1. SUBROUTINE C JB(1) = DAY OF THE WEEK (1 TO 7 (SUN
TO SAT))
12. C = MINUTE (0 TO 59)
20. C JB(3) = SECOND (0 TO 59)
21. CME FORMAT ADDED
33. C*
34. CC MPUCNA,MPUSNC
35. CS LSP,LSLA 47. CALL MPUCNA (JB(4),10,2)
48. RETURN
49. C*** FORMAT
59. CALL MPUCNA (JB(3),10,2)
60. RETURN
61. ENDHAS OCCURRED (INTERRUPT THE RUN)
11. C - 3=> BREAK HAS OCCURR. JBSW=1
24. C*** GET CONSOLE SWITCH SETTING
25. CALL MPVOD
\f
MPC1114BK.RB82106 MPCWCO 18:18 MAY 05,'75 CHI PAGE142 ALL THE
COMMON ASSIGNMENT
15. C STATEMENTS FOR THE SYSTEM. THE D ***
26. C ************************************************
27. C8. DATA UICB/ 1, 1/
39. DATA VNFILE/ 2HMP, 2HCV, 2H14, 0/
PRINT SYSTEM ERROR
50. 900 WRITE (6, 98) KERLUN, KMER1
51. S 62. CX *** SYMBOL TABLE VER: 1.1 DAT: 04/09/75 ***
63. COMMONL,NOPDEF(12),IXBASE,IXBDEF,NOPC(24),NOPCL
70. COMMON /A/ NOPCD(246),IIC,NC,ICSW,ISIMBF(43)
77. COMMON /A/ IEOFSW,ITERR,LSBB,LSBO,LSBH,KCFO COMMON /A/ KCOD,
KLUN,KEOF,KSTA,KOPF,KWD7,KNPG,KLOL,KFNM
85. CO17)
92. INTEGER LSIDMY(17),LUDVDY(17),LOTDMY(17)
93. EQUIVQUIVALENCE (NOPVF,NOPT(12)),(KPGSCS,KMFDIR(11))
101. EQUIVALENCE (KPGM CHI PAGE144
107. EQUIVALENCE (IVAR1,IVARTB(1)),(IVAR2,IVARTB(2),(LULTDY(1),LULTTB(4
))
115. EQUIVALENCE (LUSI,LUSITB(3)),(LSIDMY(1),L NOPSY/1/,NOPTB/2/,NOPER/
2/,NOPSE/1/,NOPSL/1/
123. DATA NOPVF/1/,NOPTL/18245/
130. DATA NOPC(10)/20037/,NOPC(11)/19529/,NOPC(12)/21332/
/,NOPCD(7)/17440/,NOPCD(8)/19791/
138. DATA NOPCD(9)/20000/,NOPCD(10)/,NOPCD(29)/20047/
145. DATA NOPCD(30)/20512/,NOPCD(31)/21569/,NOPCD(320/
152. DATA NOPCD(51)/21314/,NOPCD(52)/16672/,NOPCD(53)/17218/
15 DATA NOPCD(72)/21280/,NOPCD(73)/21592/,NOPCD(74)/21280/
\f
MPC1114BK.RB8DATA NOPCD(90)/19777/,NOPCD(91)/19539/,NOPCD(92)/21057/
166. DATA NOPCTA NOPCD(110)/18242/,NOPCD(111)/17231/
174. DATA NOPCD(112)/19778/,NOP(128)/21570/,NOPCD(129)/17228/
183. DATA NOPCD(130)/21058/,NOPCD(131)/965/,NOPCD(147)/20768/
192. DATA NOPCD(148)/16982/,NOPCD(149)/17184/
CD(165)/19524/
201. DATA NOPCD(166)/21280/,NOPCD(167)/19524/
202. 21314/
210. DATA NOPCD(184)/17217/,NOPCD(185)/16718/
211. DA/16705/,NOPCD(199)/16708/
218. DATA NOPCD(200)/17473/,NOPCD(201)/21333NOPCD(217)/16708/
227. DATA NOPCD(218)/17218/,NOPCD(219)/20306/
225)/19488/
236. DATA NOPCD(236)/21071/,NOPCD(237)/19488/
237. BC2(10)/14/,IOPBC2(11)/15/,IOPBC2(12)/16/
245. DATA IOPBC2(13)/17/,IOPDATA IOPBC2(34)/71/,IOPBC2(35)/72/,IOPBC2(3
6)/73/
253. DATA IOPBC2(37) DATA IOPBC3(7)/38/,IOPBC3(8)/39/,IOPBC3(9)/40/
261. DATA IOPBC3(10)BC4(11)/140/
267. DATA IOPBC4(12)/188/,IOPBC4(13)/159/,IOPBC4(14)/175/33)/145/,IOPBC
4(34)/161/,IOPBC4(35)/129/
275. DATA IOPBC4(36)/177/,IOP83/
282. DATA IOPBC4(57)/152/,IOPBC4(58)/168/,IOPBC4(59)/136/
283.25/,IOPBC4(79)/193/,IOPBC4(80)/241/
290. DATA IOPBC4(81)/210/,IOPBC4(8
297. DATA IOPBC4(102)/232/,IOPBC4(103)/200/,IOPBC4(104)/248/
298.)/102/,IOPBC5(8)/118/,IOPBC5(9)/103/
305. DATA IOPBC5(10)/119/,IOPBC5(NS/45/
312. DATA LPERD/46/,LSLASH/47/,L0/48/,L1/49/,L9/57/,LCOLN/58/
K.RB82106 MPCWCO 18:18 MAY 05,'75 CHI PAGE148
319. PGDY2(13)/8269/,KPGDY2(14)/16707/
326. DATA KPGDY2(15)/18505/,KPGDY2(133. DATA KPGDY2(34)/8224/,KPG
DY2(35)/8224/,KPGDY2(36)/8224/
334. /,KDNM/1/,KCOD/2/,KLUN/3/,KEOF/4/,KSTA/5/
341. DATA KOPF/6/,KWD7/7/,KN/,LUCODY(16)/8224/
348. DATA LUCODY(17)/8224/,LUCITB(1)/17225/,LUCITB( DATA LUERTB(2)/2
57/,LUER/5/,LUERDY(1)/1/,LUERDY(2)/0/
356. DATA LUDTB(6)/0/,LUCDTB(7)/0/
363. DATA LUCDTB(8)/70/,LUCDTB(9)/17483/,LUCDTB0. DATA LULTDY(7)/
12346/,LULTDY(8)/8224/,LULTDY(9)/8224/
371. DAUSITB(1)/21321/,LUSITB(2)/2/,LUSI/2/,LSIDMY(1)/3/
377. DATA LSIDMY(2)//
384. DATA LUS2TB(2)/79/,LUS2TB(3)/7/,LUS2TB(4)/3/,LUS2TB(5)/0/
3,KCFOTB(4)/8/
393. DATA KCFOTB(5)/16/,KCFOTB(6)/32/,KCFOTB(7)/64/,KCFO77377/
400. DATA KCFZTB(10)/"176777/,KCFZTB(11)/"175777/,KCFZTB(12)/"1
1. #MPVRCS/DE
2. #MPVRCS<BI:/FA
3. .TITLE MPVRCS ; CONSOLE SWITCH REGISTER
17. MPVRCS: MOV SWITCH,@2(R5) ; RE PROD - N/A
10. ;
11. ; RTN: MLTD - N/C
12. ; -(SP)
25. MOV R3,-(SP)
26. MOV @2(R5),R0
34. MUL2: DEC R2 ; DONE
35. BNE MUL1 FA
3. .TITLE MPVDEL
4. ;+ NAM: MPVDEL VER: 1.1 DAT: 10AL UNIT
17. ; NUMBER.
18. ;
19. ; REV: 1.1 - REMOVEDTRAN LUN
31. .WORD LFBLCK ; ADDRESS OF LINK/FILENAME BLO10(R5) ; R
ETURN ERROR CODE
44. RETURN: RTS R5
45. LFBLCK: .WORD QUOT - N/A
10. ;
11. ; RTN: DIVD - N/C
12. ; MOV @2(R5),R0 ; PICK UP DIVIDEND
26. MOV @4(R5),RSUB R1,R0 ; START DIVISION
37. BCC DIV3 E DIVISION
47. MOV R3,@6(R5) ; RETURN QUOTIENT
48. 5. ; PGM: GET SYSTEM DATE
6. ;
7. ; SYS: ALL
8. ; 22. .GLOBL MPVDAT
23. MPVDAT: .DATE ; SYSTEM RE ENT: JUID - N/A
10. ;
11. ; RTN: JUID - USER ID (PDP-11 USER 05,'75 CHI PAGE156
1. #MPVGFA/DE
2. #MPVGFA<BI:/FA
3. TTRIBUTES)
16. ;
17. ; FNC: ROUTINE GETS THE STATUS (ATTRIBUTES) OSET ALREADY HAS A FILE
OPEN
29. ; 6 0=> FILE IS LINKED
30. 42. MPVGFA: MOV 2(R5),ADRLUN ; GET ADDRESS OF LOGICAL UNIT
43. P)+,@6(R5) ; RETURN STATUS OF DATASET
51. .RLSE #LNKBLK
5L
4. ;+ NAM: MPVBFL VER: 1.0 DAT: 10-23-74 CMP: PDP-11
5. ; 7. ; FNC: ROUTINE GETS THE FILE ATTRIBUTES FOR THE DEVICE POINTE
D TO
18TOR PROGRAMMER'S MANUAL ON PAGES 3-85 AND 3-87.
27. ;*
28. ;-
29.THERE MUST BE AT LEAST 8 LU'S
39. BLT ERROR
40. MO. ;
52. ; MOVE FILE ATTRIBUTES FROM $DEVTB TO JFLB (LNKBLK AND FILBLKDS TO
FOLLOW (IN LINK BLOCK)
61. MOVB 5(R3),7(R4) ; PHYSICAL9. MOV 34(R3),24(R
4) ; UIC
70. MOVB 14(R3),26(R4) OR--LESS THAN 8 FORTRAN LOGICAL UNITS IN $
DEVTB
83. ;
84. ERROR: MOV '$ME ** MOVE MPCASM SYSTEM TO Æ1,1Å
100. '$ME **
101. '$R PIP
102. 'CHI PAGE161
1. #MPCASM.ODL/DE
2. #MPCASM.ODL<BI:/FA
3. B ;<1>
12. S3: .FCTR MPCO43-MPCM3/CC-FTNLIB ;<1><2>
.4 1 0 0 MPCASM
5. DK0:MPHM03.REFÆ001,001Å 1
6. DK0:DVM 2. #MPCM<MPCM/ON/SU/CO:0
3. #MPCM1<MPCM1/ON/SU/CO:0
4. #MPCM2<MPCE
21. #MPCLIB.OBJ<MPCDMY.OBJ/RE
22. #MPCDMY.OBJ<MPCLIB.OBJ,MPVMUL.OBJ
36. #MPCLIB.OBJ<MPCDMY.OBJ/RE
37. #MPCDMY.OBJ<MPCLIB.OBJ,MPVGFA.OBJ
**
\f
MPC1114BK.RB82106 COLOGO 18:18 MAY 05,'75 CHI PAGE164D E X
18:18 MAY 05,'75 CHI
FORB1 . . . . 8 1.1 01-29-75 PDP-11
8. MPUCA2 . . . . 9 18 1.0 12-29-73 ALL
16. MPUOR . . . . 19 1.0 08-28-744 ALL
24. MPURCD . . . . 34 1.2 01-16-75 ALL
32. MPUCLF . . . . 55 1.1 02-21-75 PDP-11
33. MPCPCVC . . . . 68 1.1 04-01-75 PDP-11
41. MPUPA2 . . . . 69L
49. MPCSMF . . . . 87 1.4 10-01-74 ALL
50 57. MPURA1 . . . . 36
58. MPUPIB . . . . 37
1.1 03-18-75 ALL
69. MPUORP . . . .101 1.4 03-18-75 ALL . . . .108 1.0 0
8-28-74 PDP-11
79. MPUCVC . . . . 68
89. MPCGAM . . . . 90
90. MPCOPR . . . . 91
8
102. MPUADR . . . . 99
103. MPUORP . . . .10. MPUOVF . . . .109
114. MPCM4 . . . .116 1.4 04-09-75
124. MPURA1 . . . . 36
125. MPUPIB . . . . 37 135. MPUGRF . . . .129 1.2
10-17-74 PDP-11
136. . . . .138 1.1 03-25-74 ALL
146. MPUPA2 . . . . 69
1
155. MPVDIV . . . .153 1.0 03-05-75 PDP-11
▶1a◀S▶1a◀▶1a◀▶1a◀O▶1a◀▶1a◀▶1a◀▶0f◀▶14◀@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@\f
MOTOROLA'S HELP-11-1.0 JOBJCL 02:27 MAY 07,'75 PAGE 1
IN ROUTINE FOR SYSTEM HELP
6. C
7. C SYS: MPH
8. C
9. C *** ***
23. C *** E (KCOMON(1),ICOMON)
34. C-
35. INTEGER VNFILE(4), VNUID
36 04-01-75 CMP: PDP-11
3. C PGM: OPEN THE SYSTEM (READ IN DATA COMMON) 15. C ID, OVE
RLAY COMMON WITH THE FILE, READ IN THE SYSTEM'S
16.S
28. CS KCOMON,KSYSVN,KOLNAM,KOLNOF,KERLUN,KMER1,KAERHR,KDBMOD
29.8. C-
39. INTEGER VNFILE(4), NDFILE(4), VNACCT
40. BYTE NDLL SETFIL(2, NDFILE, KMER1, 2HDK, 0, NDACCT)
51. READ (2, END=900, ER0. KOLNAM(I) = NDFILE(1)
61. KOLNAM(I+1) = NDFILE(2)
62. FORMAT(3A2, 1X, 2O3)
78. 98 FORMAT(3A2, 3I4, 1X, 3A2)
79. 97 IN OVERLAY CALLING ROUTINE:
11. C
12. C REV: 1.0 - ADDED CALLS TO L MPUOVR (2)
25. CALL MPHM2
26. GO TO 110
27. C*** E ENT: JON - OVERLAY FILE NUMBER TO CALL IN (INDEX TO OVERLAY
8. C KERLUN
23. COMMON KAERHR
24. CX
25. CX
26. C-
27.5 PAGE 7
1. SUBROUTINE MPURCD (JCHDR,JLH,JER)
2. C
16. CS ICDBUF,IMAGE,NC,ICSW,IEOFSW,KEOF,KLOL,KFNM,LUCOTB,LUCITB
17IVALENCE (IMAGE(1),ISIMBF(4))
25. CX
26. C-
27. INTEGER JCD1 (LUCITB,ICDBUF,LUCITB(KLOL))
37. I=1
38. CALL MPUPIB (ICCOTB)
50. 130 IF(NC.NE.LPERD) RETURN
51. C*** 1ST CHAR IS A '.' DEC* * * * F C K L N E D
62. GO TO (200,240,250,270,280,2 74. 240 JPAUSE=1
75. GO TO 105
76. C*** 'K' RETURN TO THE ALL MPUGNP (1,KDBMOD,I)
91. IF(I.EQ.1.OR.KDBMOD.LE.0) GO TO 310
MPUOPF (LUTB,JER)
2. C+ NAM: MPUOPF VER: 1.2 DAT: 04-26-75 CMP: PDP-C FNC: OPENS FI
LE DESCRIBED IN LUTB
15. C
16. C THE LOGICAL UNE TYPE:
28. C 0 => CONSECUTIVE FILE
29. C 1 39. C 7 - UNUSED
40. C 11 = 0 => NO VFC CONTROL (LISTI C 4 => OPEN ERROR--FILE
BUSY
51. C 5 => OPEN ERROR--FILE DOED) FILE OPENED
59. C 1-3 UNUSED
60. C 5-15 UNUSFTER CLOSING
70. C = 1 => UNSAVE FILE AFTER CLOSING
71. C KNPG NUMBER OF PAGES IN THE FILE (RANDOM ACCESS FILE
80. C TY 89. C = 2 => PRINT ERROR MESSAGES
90. C JABT = 0 = = 3 => BOTH READ AND WRITE THE FILE
99. C JNPG = NUMB27 MAY 07,'75 PAGE 11
107. C 1.2 - ADDED PROTECT CODE 20RTB(8)
116. EQUIVALENCE (IVAR1,IVARTB(1)),(IVAR2,IVARTB(2))
117. SF(6)/2H.0/,SF(7)/2H01/,SF(8)/2HÆ0/
126. DATA SF(9)/2H00/,SF(10)/2H,0/,3,3)+1
138. JDEV=MPUXBS(JCOD,11,9)
139. JOPF=LUTB(KOPF)
IF (JTY .EQ. 2) GO TO 800
151. IF (JSCR .EQ. 2 .AND. JCRT .EQ. 1) GO07,'75 PAGE 12
160. DO 110 I = 9, 20
161. LUTB(I)AT(7),JDAT(9),JDAT(10),128)
173. CALL MPVGFA(JLUN, JNBLK, JSTAT)
1GO TO 905
188. IF (JWR .NE. 2) LUTB(KSTA) = 1
189. GO TO (21 201. IF (JDERR .NE. 0) GO TO 908
202. LUTB(KSTA) = 1
203.1-1.0 MPUOPF 02:27 MAY 07,'75 PAGE 13
213. C
214. 2324. GO TO 240
225. 236 DEFINE FILE JLUN(JNBLK, 256, U, IVAR6)
22ALL MPUDB1 (3,9,LUTB)
239. RETURN
240. C
241. C*** ILLEGAL OPECT ACCESS PRIVELEGES
256. 906 JER=JER+1
257. C*** ERROR '12' FILE DOBUSY FLAG
267. C*** ABORT ERROR '80' FILE BUSY
268. IF(JER.EQ.4.A80. CALL MPUER1 (823,IDMY)
281. STOP 777
282. END
\f
C BIT 4 = 1 => UNSAVE AFTER CLOSING
11. C : 05/07/75 ***
23. COMMON ICOMON(1051),KCOD,KLUN,KEOF,KSTA,KOPF
ENT FILE
36. C
37. ENDFILE JLUN
38. GO TO (20, 10), I 52. RETURN
53. END
\f
MOTOROLA'S HELP-11-1.0 MPUORP IN JBF, WRITE OUT JBF, READ IN PAGE
10. C - 4 SETUP JBF FOR WR JBF - SEE 'JSW' SETTING, IF PA
GE IN BUFFER JBF SET TOO:
21. C C
29. C REV: 1.1 - JB(3) IS INITIALIZED WITH INDEX POINTING TO
30N,KFVNO(525),MPGSIZ,IPBF1(523),KDNM,KCOD(159)
39. COMMON LTBFWI,LTBLWROR '25' SUB ERROR 69, LUTB NOT IN COMMON
53. CALL MPUER1 (10253,69)
62. 500 JBF(1)=J
63. JBF(3)=I
64. RETURN
65. WILL BE READ IN IF LAST WORD IS RETURNED
11. C JW - NEXT WORD FROM - DEBUG MODE CALL ADDED
21. C 1.2 - CALL TO MPURRP PASSES LUTB IN
35. JW=JB(J+3)
36. JB(2)=JB(2)+1
37. IF(JB(2). 3. C PGM: READ IN THE RANDOM FILE PAGE
4. C
5. C SYS: A 17. C
18. C GEN: LUTB MUST BE OPENED BEFORE THE 1ST CALL. IF THE REA1. E
ND
\f
MOTOROLA'S HELP-11-1.0 MPUWRP 02:27 MAY 07,'75 12. C
JP - N/C
13. C JB - N/C
14. C
15. C ICOMON(1052),KLUN,KEOF(6),KFNM
26. C-
27. INTEGER LUTB(20),JB(256. C
7. C ENT: JC - ROUTINE CALL NUMBER (1-10)
8. C - 1 => ROUTINE ENTRIED, MAIN CALL
20. C - NOT EQUAL TOO" WORD AND THE START DEBUG
31. C TRACE COUNTER "KDBSTC".
32." IS NOT EQUAL TO ZERO, ONLY THE CALL NUMBER
43. C EQUAL TO "KDBSC TABLE VER: 1.1 DAT: 05/07/75 ***
53. COMMON ICOMON(1045),KDBLU,KDBMM(7)/2HSW/,KDBCNM(8)/2HOM/,KDBCNM(9)
/2HOV/
63. DATA KDBCNM(10)/2HCF/N
75. 201 FORMAT (I5,1X,A2)
76. GO TO 900
77. C
78. ,440,450,450,405,460,405),JC
90. 405 IF(JPHSW.NE.0) GO TO 407
91. (KDBLU,431)KDBCTR,JN,JT(1),J1,(JB(J),J=2,8),(JF(J),J=1,L)
105. 431 FORMATP" AND "SWP" ONLY, COUNT, NAM, PAGE NO., INDEX
115. C*** LUN, AND WORD BEIN50 COUNTS
128. C
129. 500 J=KDBCTR/50
130. IF(KDBCTR-J*50.EQ. C RTN: JER - N/C
10. C JB - N/C
11. C
12. C F 300-399 SIMULATOR
24. C 400-499 HELP
25. C C 7 ERROR WITH FILENAME FROM JB(1)AND JB(9)-JB(17)
36. COR ERRORS WITH FORMAT
47. C 1.6 - TRANSFERS TO KAABRT ON SYSTEM A5. COMMON ICOMON(
133),LSP,LASK(4),L0,L1(292),ITERR,LSBB(90)
56.
67. JCOD=JCOD-JDTL*10000
68. JERR=JCOD/10
69. J
85. 210 CONTINUE
86. IF(JDTL.EQ.1) JB1(6)=LSP
87. O 80
101. C*** WARNING MESSAGES
102. 20 WRITE (JLUN,98) JERR,(JB1(J)0
112. C*** ERROR MESSAGE WITH 6 CHAR ASCII FIELD
113. 50 JTYP=1
CE IF NOT THE SAME AS LUER
125. C
126. 80 IF (JLUN .EQ. LULT) RETURN SUBROUTINE MPUCFN(LUTB, JFNM, JLEN)
2. C+ NAM: MPUCFN VER: 1.0 DA2 FORMAT--ASCII)
14. C TO A2 FORMAT--MACHINE CHARACTER SET
15
31. END
\f
MOTOROLA'S HELP-11-1.0 MPUGNP 02:27 MAY 07, JSW - N/A
12. C
13. C RTN: JTY - N/C
14. C JLT - UNIT NUMBER,
24. C : - COLON,
25. C F - THE DEVICE MNUMONIC, UNIT NUMBER, EXTENSION AND USE
R
34. C IDENTI4. C FIXED GO TO STATEMENT 100.
45. C*
46. CC MPUFNO/68/,JLK/75/
55. DATA JLLBRK/91/,JLRBRK/93/
56. JLT(1)=0
TO 160
69. CALL MPUBN8 (JLT(1))
70. GO TO 385
71. C
XTENSION MUST BE 1-3 ALPHANUMERIC CHARACTERS.
81. C 6. UIC MUST BE
DEVICE ONLY
94. C 4 UNIT # OF DEVICE
95. C 5 FILENAM JLT(3) = JL0
110. JLT(4) = JLCOLN
111. DO 202 I = 5, 146. 230 ITYPE = 2
127. GO TO 260
128. C*** LETTER
129. 240 . 253 IF (NC .NE. JLRBRK) GO TO 380
145. C*** RIGHT BRACKET
146. E
157. 305 GO TO (330,330,340,380,345,380,380),ITYPE
158. 306 GO TO NBR = NBR + 1
169. IF (NBR .GT. MAX) GO TO 390
170. JLT(KROCESS DEVICE UNIT NUMBER
188. C*** ENTER "0" FOR DEFAULT DEVICE NUMBER
02:27 MAY 07,'75 PAGE 32
1. SUBROUTINE MPUPA2 (JPSW ON
12. C
13. C RTN: JPSW - N/C
14. C JB - N/C
25. C*
26. CC MPUCA2
27. CS LSPSP,KLUN,KLOL
28. CX (KLOL)/2
41. IF(L.GT.J) L=J
42. WRITE (JLU,11) (JB1(J),J=18. C RIGHT JUSTIFIED.
9. C JN - NUMBER OF WORDS C-
24. BYTE JLST(160), HOLD
25. JN2 = JN*2
26. 4. C
5. C SYS: ALL
6. C
7. C ENT: JSW - FUNCTION SW JB(4) = YEAR (0 TO 99)
15. C JB(5) = DAY OF THE YEARARACTERS
26. C AND STORE THEM IN THE PRINT BUFFER USE WITH THE
LCOLN
38. CX
39. C-
40. INTEGER JB(5)
41. GO TO RETURN
\f
MOTOROLA'S HELP-11-1.0 MPUFDA 02:27 MAY 07,'75 + NAM: MPUCNA
VER: 1.4 DAT: 04-24-75 CMP: ALL
3. C PGM: CONVERT THE REQUESTED BASE. ASCII OUTPUT IS PLACE IN A
RRAY
17. C "N COMMON ICOMON(138),L0,L1(334),KCFFFF,KC40(46),IBPWD
28. CX
29. C-
C*** CONVERSION FOR MACHINES WITH WORDSIZE > 16 BITS
45. C
46. 20 ROLA'S HELP-11-1.0 MPUXBS 02:27 MAY 07,'75 PAGE 38
1. 13. C JLSB - N/C
14. C
15. C FNC: FUNCTION IS SET TO T 10 I = JLSB, JMSB
30. K = K + 1
31. IF(MPUAND(JWORD,KCFOTA - 1ST VALUE TO BE 'ANDED'
8. C JB - 2ND VALUE TO BE 'ANDED'
07,'75 PAGE 40
1. SUBROUTINE MPUFNO (JN,JER)
2. C+ SELECT CHAR WAS NOT %, @ OR $
14. C
15. C
16. %N OR NB => BINARY (N = 0-1)
25. C @N NQ OR NO => OCTAL MMON ICOMON(138),L0,L1(3),LA,LB,LD,LE,LF
,LH,LN,LO,LT,LQ
36. COMMON LZ JNCSW=1
52. GO TO (120,190),LEVS
53. C*** * * * SP , 0-9. 160 JSB=JSB+1
65. 170 LEVS=2
66. GO TO 100
67. C*** =4
80. CALL MPVMUL(JN10, 10, JN10)
81. JN10 = JN10 + N
OR.ICSW.EQ.4) GO TO 230
95. 260 JSB=1
96. IF(JC.EQ.LB) GO TO 2
107. IF(JNSB.EQ.4) JSB=4
108. 310 IF(JSB.LT.JNSB) GO TO 140 CONVERTED AND PACKED
9. C JLSW - 1 => NO LINE NUMBVERTING IT TO BINARY) AND PACKING THE
BUFFER
19. C INTO THE SYSTEMY A
27. C SPACE. OTHER WISE IT IS A SPACE.
28. C SIMBF(3)'
37. C 1.2 - IF NO LINE 'ISILN' IS NOT CHANGED, MPURA1
IC,NC,ICSW,ISIMBF(43),IEOFSW(89),LLSPSP,IBPWD(2)
47. COMMON ICSHFT(4)
59. DO 200 I=1,80
60. JC=LSP
61. JW=JB(I)
IF(JC.EQ.LSP) GO TO 180
74. 160 J=J+1
75. ISIMBF(J)=JC*ICSACTER AND RETURN IT
89. 220 IC=0
90. CALL MPUGNC(NC)
91. RMAT
10. C
11. C FNC: SCAN OUT FROM THE IMAGE BUFFER THE NEXT 1 TOSP,LSP
22. CX *** SYMBOL TABLE VER: 1.1 DAT: 05/07/75 ***
23. JNAM(I)=JC+LSP
37. CALL MPUGNC (NC)
38. IF(ICSW.LT..1 DAT: 08-12-74 CMP: ALL
3. C PGM: GET NEXT CHARACTER FROM IMAGE BU. C 1 => SPACE ' '
17. C 2 => COMMA ','
18. C MMON ICOMON(133),LSP,LASK,LCOMA,LPERD(2),L0,L1,L9,LCOLN
29. COMMON LA
43. NC=IW/ICSHF
44. IF(I.NE.0) NC=IW-(NC*ICSHF)
45. ICSW=3
57. RETURN
58. 40 IF(NC.LT.LA.OR.NC.GT.LZ) GO TO 5 4. C
5. C SYS: ALL
6. C
7. C ENT: JSW - 1, CONVERT 'NJSW - 3, SAME AS 2
18. C ND - N/A
19. C JB(3) - DATEC))
29. C JB(3) = DAY OF THE MONTH (1 TO 28, 29, 30 OR 31)
THE BASE
42. C YEAR. AND BACK TO THE DATE FROM THE NUMBER OF DAYS. FOR 1961.
51. C*
52. CX *** SYMBOL TABLE VER: 1.1 DAT: 05/07/75 *61/
60. GO TO (1,50,60),JSW
61. C*** COMPUTE THE NUMBER OF LEAPY OF THE WEEK
75. N=JNL*5+JYC+JDY
76. J=(N-1)/7
77. YS
92. C
93. 50 JY=JB(1)
94. GO TO 70
95. 60 JY=
107. JDC=JDC+JMO(J)
108. 80 CONTINUE
109. 90 ND=JDC+JB(2ED.
9. C JN - NUMBER OF WORDS IN ARRAY
10. C
11. C )
25. DO 10 I = 1, JN
26. JLST(I) = JLST(I) + "20000
JC - CONVERTED CHARACTER
10. C
11. C FNC: CONVERT THE CHARAC IF (JC .LT. 96) GO TO 20
25. C*** CONVERT CHARACTER TO A SPACE
269. C
10. C RTN: JFNIN - N/C
11. C JFNOUT - ARRAY CONTAIN WHERE D - 2 OR 3 CHAR DEVICE MNUMO
NIC,
21. C N - DEVICER (1- 376), AND
30. C Å - RIGHT BRACKET.
31. C
32.1 - CHANGED ALL COMMON CHAR ("L" SYMBOLS) TO "JL"
41. C TYPE
51. JUN = 0
52. KOL = 0
53. C
\f
MOTOROLA'S HEL. C
68. C*** EXTRACT DEVICE MNUMONIC (KB, LP, DK, DTA, ...)
69. C
ENSION. IF 1ST CHAR IS BLANK, ASSUME DEVICE
85. C*** IS NOT FILE STRUCTURAR = JINB(KOL)
101. IF (KHAR .EQ. JLCOMA) GO TO 70
102. NGN D UIC
114. C
115. 100 JFNOUT(17) = JUNB(1)
116. JFNOUT(19) = MPURA1 VER: 1.0 DAT: 11-01-74 CMP: PDP-11
3. C PGM: READ FROM UNIT - N/C
15. C
16. C FNC:
17. C*
18. CS ISILN,LLSPSP,KC 30. JLUN=LUTB(KLUN)
31. C*** IF THE DEVICE IS THE CONSOLE, DO A LIN FORMAT(3H$? )
44. END
\f
MOTOROLA'S HELP-11-1.0 MPUSNC VER: 1.1 DAT: 05/07/75 ***
19. COMMON ICOMON(243),NB(140),INX
"ORED"
8. C JB - 2ND VALUE TO BE "ORED"
9. C
10. C PAGE 59
1. #MPHM1/DE
2. #MPHM1<BI:/FA
3. SUBROUTI. RETURN
17. END
\f
MOTOROLA'S HELP-11-1.0 MPHP1 2 EX - EXIT, DONE
13. C 3 - PACK, AUTOMATIC PACK OF THE HELP MEOD,KSTA,KOPF,KNPG
23. CS KFNM,LUCOTB,LUCO,LUCITB,LUERTB,LULTTB,LUHFTB,LUG,KLOL
31. COMMON KFNM,KPWD,KUID,IVARTB(8),LUCOTB(20),LUCITB(20)
PUOPN (LULTTB)
43. CALL MPUOPN (LUERTB)
44. C*** PRINT PROPIETA1
54. WRITE (LUCO,111)
55. 111 FORMAT(/,38H ENTER A "?CRUSR(I)) GO TO 220
69. J = J + 1
70. 200 CONTINUE
71. C
81. LUHFTB(KFNM)=1
82. C*** SET CODE TO: FILE/BINARY/RNADOM ACCESS/R IN PAGE 1
93. KFVNO=LUHFTB(7)
94. KNOFPG=10
95. -1.0 MPHP1 02:27 MAY 07,'75 PAGE 62
107. LUHFTB(KC*** RE-OPEN AND CREATE A NEW FILE
121. LUHFTB(KOPF)=JSOPF
122. I=2,KNAPG
133. CALL MPURRP (LUS2TB,I,IPBF1)
134. CALL MPUWRP MOTOROLA'S HELP-11-1.0 MPUUTD 02:27 MAY 07,
'75 PAGE 63
4. C GEN: THE USER ID IS RETURN IN THE COMMON BUFFER 'KURUSR(3)'
15. C )
22. C MTDATE(5) = DAY OF THE YEAR (1 TO 365 OR 366)
23. C
32. C ARITH OVERFLOW INHIBITED (CALL SETERR)
33. C
JLCOMA/44/,JL0/48/,JLLBRK/91/,JLRBRK/93/
44. C*** INHIBIT ARITH OVERFLOW
UTD 02:27 MAY 07,'75 PAGE 64
54. MTDATE(4) = JD/1000 15) + JL0
64. KUSRB(1) = MOVB(1)
65. MOV = MPUXBS(KUIC, 1RK
77. KUSRB(9) = JLSP
78. RETURN
79. END
\f
FILES. SEE WORDS 2 AND 6
12. C
13. C LUTB LOGICAL UNIT TABLE OF . C 4-5 - UNUSED
23. C 6 - 0=> ASCII OR COMPUTER'S CHAR SET. C 3 KUNO COMPUTER S
YSTEM'S LOGICAL UNIT NUMBER
36. C 4 KEOF END OC 09-11 FNM FILENAME
49. C 1 => REQUEST FILENAME ON CALLMPUOPF WHEN A DEVICE
58. C IS OPENED.
59. C*
60. CFN(2)/17742/,MSGEFN(3)/21573/,MSGEFN(4)/21024/
70. DATA MSGEFN(5)/226F(LUTB(KFNM).NE.1) GO TO 20
80. JER = 1
81. 10 MSGEFN(5)=LUTB IF(LUTB(KEOF).EQ.1) GO TO 25
93. IF (JRETRY .EQ. 1) GO TO 25
9 SUBROUTINE MPUPPM
2. C+ NAM: MPUPPM VER: 1.0 DAT: 01-27-75 CMP: PD03),LULTTB(20)
16. EQUIVALENCE (LULT,LULTTB(3))
17. C-
18.
MOTOROLA'S HELP-11-1.0 MPVHPS 02:27 MAY 07,'75 PAGE 68
12. C - 5 TO 7 OPEN
13. C JPBF - WORK BUFFER (PAGE SIHDRSW*10+IPRTSW
23. C WD 5 - UNUSED
24. C
25. C REVMON LUERTB(60),LUHFTB(20)
34. EQUIVALENCE (LUCO,LUCOTB(3)),(LUCI,LUCI(2).EQ.LUHFTB(KNPG)) GO TO
8
46. C*** REOPEN WITH CORRECT NUMBER OF PAGES 6. C*** THERE ARE MSG TO PRIN
T FOR THIS SYSTEM
57. JP=JSDATE+J
JHDRSW=JHDRSW-JPWDSW*10
70. JP=JPBF(J)
71. JWI=JPBF(J+GE
82. CALL MPVHPR (JHDRSW,JPRTSW,JPBF,JN,JD,JBSW)
83. GO DAT: 10-17-74 CMP: PDP-11
3. C PGM: GET REFERENCE FILENAME, PASSWOR 14. C RTN: JF - N/C
15. C LUTB - N/C
16. C JFE VERSION NUMBER ADDED TO THE FILE
26. C 1.2 - FILE IS ONLY CLOSED. C*** FILE IS OPENED IN 'MPUOSY'
40. 100 IF(JF.EQ.9) GO TO 140
41.
MOTOROLA'S HELP-11-1.0 MPUGRF 02:27 MAY 07,'75 PAGE 71
7. C ENT: LUTB - LOGICAL UNIT TABLE OF THE FILE TO WRITE TOO
8. C DS ARE
19. C WRITTERN OUT. THE REMAINNING PART OF THE LAST PAGE
I.GT.JN) GO TO 110
37. IPBF1(J)=JB(JWI)
38. JWI=JWI+1
5. C SYS: ALL
6. C
7. C ENT: LUTB - LOGICAL UNIT TABLHE READ STARTS FROM WORD 1 OF PAGE 'J
P' AND IS
19. C CONTINOUS UN 36. CALL MPURRP (LUTB,JPG,IPBF1)
37. DO 110 J=1,L
38. MESSAGE POINTER TO BY BUFFER 'JB'
4. C
5. C SYS: ALL
6. CGE TEXT ONLY
15. C - 3=> PRINT BOTH INDEX AND TEXT OF THE MES JD - N/C
27. C JBSW - 1=> NO BREAK OCCURRED WHILE PRINTING
TEST AND 'JBSW' PARAMETER ADDED
37. C*
38. CC MPUAND,MPUBRK,MPUGWP JB(4),JDATE(5)
48. DATA JPGLCT/53/
49. CALL MPUBRK (JBSW) CALL MPUORP (1,JB(1),J,LUHFTB,JB(1))
61. JSW=2
62. C*** GEPUFDA (1,JDATE)
75. C*** PRINT THE LINE BUFFER; HDR, INDEX OR TEXT LINE
87. GO TO (130,140),JHTSW
88. 130 IF(JWCT.NE.0) GO TO 140
102. CALL MPUSNC (LSP)
103. 160 CALL MPUSNC (LSP)
104. C*** UNE IS A CHAR TO BE PRINTED
115. CALL MPUSNC (JC)
116. GO TO 14-01-75 CMP: PDP-11
3. C PGM: CHECK THE BREAK KEY (INTERRUPT THE RUN).
15. C
16. C*
17. CC MPVRCS
18. CS KBKFLG,LUCO
FORMAT(/ 13H 090 ***BREAK)
32. END
\f
MOTOROLA'S HELP-11-1.0 JLB - NUMBER OF CHARACTERS IN THE BUFFER
11. C LUTB - LOGICALS IN ITS
23. C A1 FORMAT SO THE ROUTINE MAY ADDED UP TO 10 CHAR
LT,LULTTB(3))
35. CX
36. C-
37. INTEGER JB(140),JB1(140),LU1,L)
53. I=L
\f
MOTOROLA'S HELP-11-1.0 MPUPA1 02:27 MAY. #MPHM2/DE
2. #MPHM2<BI:/FA
3. SUBROUTINE MPHM2
4. C+ . END
\f
MOTOROLA'S HELP-11-1.0 MPHP2 02:27 MAY 07,'75 (ERRORS)
13. C 2 B - SET MSG RANGE TO 1000-1999 (BVM)
14. C - TOGGLE THE PAGING SWITCH
22. C 11 ? - PRINT 4000 HELP MESSAGE
D,IPBF1,ICSHF,LUCO,LUHFTB,LASK
33. CX *** SYMBOL TABLE VER: 1.1 DAT: 05 40. COMMON LUHFTB(20)
41. EQUIVALENCE (N1,NAM(1)),(N2,NAM(2))(140,140,250,150,150,100),ICSW
53. 140 CALL MPUGNC (NC)
\f
MOTOROLA'03' UNDEFINED HELP COMMAND
66. 190 N2=LSPSP
67. N3=LSPSP
,KCNDX
80. C*** GET THE MSG WANTED NUMBER
81. 250 LEVEL=2
82. 1)) GO TO 290
94. C*** DATE 1 > DATE 2, SWITCH THEM
95. J=JDR(1108. CALL MPUGNC (NC)
109. IF(NC.NE.LO) GO TO 650
110. T THE MSG WHO ARE WITHIN 'N TO N1' MSG NUMBER RANGE
124. C
125. 330 JD0
138. 380 J=J*5+1
139. JP=KSMGD(J)
140. JWI=KSMGD(J+1*** SEARCHING BY MSG DATE
153. 420 IF(JD.LT.JDR(1).OR.JD.GT.JDR(2)) GO TO PRINT MESSAGE'S INDEX FLAG
163. C
164. 470 I=MPUAND(1,IPRTSW+1)
1TH PRINT INDEX AND TEXT FLAGS ARE OFF)
179. IF(IEMSW.EQ.2) IPRTSW=1
110
195. C
196. C*** '?' PRINT THE INDEX ONLY OF MESSAGE 4000
197. MPUORP (2,JP,JWI,LUHFTB,IPBF1)
\f
MOTOROLA'S HELP-11-1.0 MPHP2 0210
223. C*** ERROR '401' HELP MESSAGE NUMBER NOT FOUND
224. 534 CALL 2. C+ NAM: MPHGDA VER: 0.1 DAT: 10-22-74 CMP: ALL
3. C PGM: RS
15. C - 2 SYNTAX ERROR IN THE DATE ENTERED
16. C
C MPUGNC,MPUFNO,MPUDAT
29. CS MTDATE,NC,ICSW,LSLASH,LO,LT,KMDATE
E(6).LT.KMDATE) JDR(2)=KMDATE
42. IF(NC.EQ.LSLASH) GO TO 140
43.0 MPHGDA 02:27 MAY 07,'75 PAGE 87
54. JB(J)=JD
LEV=3
69. C*** SEARCH FOR 'TO'
70. 180 GO TO (120,200,210,190,210,2
2. C+ NAM: MPHPTG VER: 0.5 DAT: 10-22-74 CMP: ALL
3. C
LP SWITCH AFTER IT
17. C BEEN TOGGLED. MESSAGE IS:
18. C 28. CC MPUGCB,MPUSNC,MPUCA1,MPUPA1
29. CS NB,INX,LPERD,LSP,LF,LN,8)/18247/,JPMG(9)/19525/
39. DATA JPMG(10)/17440/,JPMG(11)/21583/,JPM INX=7
48. C*** INITIALIZE THE GET CHAR FROM BUFFER ROUTINE
49. 9. IF(JC.EQ.1.OR.JC.EQ.LSP) GO TO 130
60. CALL MPUSNC (JC)
C (LF)
73. CALL MPUSNC (LF)
74. GO TO 170
75. C*** 'E LINE
89. 190 CALL MPUPA1 (2,NB,L,LUCOTB)
90. RETURN
91.B - 1, 2, AND 3 FWA OF THE BUFFER
10. C - 4 - N/A
11. C 8. C
19. C RTN: JC - 1 AND 3 N/C
20. C - 2 NEXT CHAR BITS LONG AND
31. C ARE REMOVED FROM LEFT TO RIGHT.
32. C
44. C*** INITIAIZLE FOR WORD 1 AND CHAR 1 OF JB
45. 10 JWX=0
CX=JCX-1
57. RETURN
58. C*** INITIALIZE THE CHAR INDEX
59. FOR OVERLAY SEGEMENT
6. C
7. C SYS: HELP
8. C
9. C AT: 10-22-74 CMP: ALL
3. C PGM: ENTER MESSAGES INTO THE HELP MESSAGE LE PASSWORD CHAR SWITCH
17. C
18. C REV: N/A
19. C*
20. SW
27. COMMON IPRTSW,IPAGSW,IHSCSW,IEMSW,MAXMSG(38),LT,LQ(92)
28 C*** ENTER MESSAGE
41. 550 LEVEL=LEVEL+1
42. MSGNO=0
43 53. INX=0
\f
MOTOROLA'S HELP-11-1.0 MPHP3 02:27 MAY 07, 65. C
66. 300 IPWDSW=IPWDSW+1
67. IF(IPWDSW.EQ.3) IPWDSW=1* PACK THE MESSAGE FILE IF IT IS WITHIN 2
PAGES FROM FULL
82. IF(KNA/DD/YY' SET DATE FOR ENTER MSG (EM)
98. C
99. 630 CALL MPHGDA (0,JDRSUBROUTINE MPHEMG (JDSW)
2. C+ NAM: MPHEMG VER: 0.3 DAT: 10-22-74 CM,LSP,LT,MSGNO,ISDATE,IPWDS
W,IHDRSW,IPRTSW,MSG2
18. CS MSG2L,MSG3,MSG3L,K. COMMON LQ(234),NC,ICSW,ISIMBF(43),IEOFSW
,ITERR(96)
26. COMMONJWI1,LUHFTB,IPBF1)
40. JWRSW=2
41. CALL MPUGWP (IPBF1,JP2)A'S HELP-11-1.0 MPHEMG 02:27 MAY 0
7,'75 PAGE 97
54. 30 F1(1),IPBF1(4))
65. 47 RETURN
66. C
67. C*** ENTER MESSAGE ANSW)=IPBF1(2)
80. CALL MPUSWP (IPBF1,0)
81. IEMCX=0
82NE.1) GO TO 150
95. C*** CHAR IS A SPACE
96. JSSW=JSSW+1
9 MPHSCW (J)
108. JSSW=JSSW-J
109. IF(JSSW.NE.0) GO TO 160
(IPBF1,IEMWD)
122. 210 JWCT(JMSW)=IEMWCT
123. 230 CONTINUE
124. F1,JWCT(JMSW))
136. 250 CONTINUE
137. C
138. C*** STRING IN THIS PG) JWRSW=2
151. CALL MPUGWP (IPBF1,JP2)
152. CALL MPUGWP (I (290,300),JFSW
164. C*** NEW MESSAGE IS 1ST BEAD OF THE STRING
165. 29SWP (IPBF1,JP1)
177. CALL MPUORP (3,MPPG,MPWX+1,LUHFTB,IPBF1)
178.
186. IF(ISDATE.GT.KMDATE) KMDATE=ISDATE
187. 900 CALL MPUWRB (LU REV: N/A
13. C*
14. CC MPUWRB,MPUORP,MPUGWP,MPUSWP,MPUWRP,MPURRP 22. EQUIVALENCE (L
UCO,LUCOTB(3))
23. C-
24. INTEGER JMH(5 THIS SYSTEM
35. JWI=KSMGD(JMI+1)
36. KSMGD(JMI)=IPBF2(1)MH(5)
49. IF(JWCT.EQ.0) GO TO 230
50. C*** MOVE THE MESSAGE'S I
60. DO 240 I=1,JWCT
61. CALL MPUGWP (IPBF1,J)
62. CALL MPUSWP (IPBF2,JMH(2))
73. C*** RESET THE OUTPUT BUFFFER (IPBF2)C*** CREATE A NEW FILE AND COPY S
CR 2 INTO IT
85. KONDX=1
86. C
11. C FNC: STORE THE CHAR INTO THE WORD, IF THE WORD OVERFLOWS
ICPWD
22. COMMON ICSHFT(4),MPGSIZ,IPBF1(259)
23. C-
24. C+ NAM: MPUSWP VER: 1.3 DAT: 01-16-75 CMP: ALL
3. C PGM: STORE THE WORD 'JW' INTO
15. C THE NEXT LOCATION POINTED TO BY JB(2) OF LOGICAL UNIT N
UMBER.
25. C 1.4 - CALL TO MPUDB1 DELETED
OMON(LTBNDX), JB, JB(4))
39. JB(1)=JB(1)+1
40. JB(2)=1
DE
2. #MPHWCO<BI:/FA
3. C PROGRAM MPHWCO
4. C+ NAM: MPH 16. C FROM THE VERSION NUMBER FILE 'MPHV10'.
17. C
18. C 2,OI,OE,NOOD,NOOS,NOOR
29. CS ICOMON,KCOMON
30. CX *** SYMBOL TAN FILE. GET OVERLAY NAME.
41. KERLUN = 1
42. CALL SETFIL(RMAT(3A2, 1X, 2O3)
53. 98 FORMAT( '**** SYSTEM OR PROGRAM ERROR', 2I5, 'G,KNAPG,KNWDIX,KMDAT
E
64. COMMON /A/ KHFDMY(5),KSMGD(50),NAM(3),IHCD(
71. COMMON /A/ NB(140),INX,IC,NC,ICSW,ISIMBF(43),IEOFSW,ITERR
7ON /A/ KDBCTR,KDBSTC,KDBSCO,KDNM,KCOD,KLUN,KEOF,KSTA
79. COMMON /A/ K86. EQUIVALENCE (ISIFCH,ISIMBF(3)),(IMAGE(1),ISI
MBF(4))
87. EQU94. EQUIVALENCE (LUCIDY(1),LUCITB(4)),(LUER,LUERTB(3))
95. EQUI/
102. DATA KSMGD(10)/0/,KSMGD(11)/0/,KSMGD(12)/0/,KSMGD(13)/0/
10)/0/
108. DATA KSMGD(34)/0/,KSMGD(35)/0/,KSMGD(36)/0/,KSMGD(37)/0/
)/20000/,IHCD(10)/20512/,IHCD(11)/16160/
116. DATA IHCD(12)/16716/,IHCX/1/
123. DATA KONDX/1/,MSGNO/0/,MSGNOL/0/,IPRSSW/2/,NERRCD/0/
124SPSP/8224/,LSP/32/,LASK/42/,LCOMA/44/,LPERD/46/
131. DATA LSLASH/47/,L,KDBSCO/0/
138. DATA KDNM/1/,KCOD/2/,KLUN/3/,KEOF/4/,KSTA/5/,KOPF/6/
5. DATA LUCODY(15)/8224/,LUCODY(16)/8224/,LUCODY(17)/8224/
146. LUERTB(1)/17746/,LUERTB(2)/257/,LUER/5/,LUERDY(1)/1/
153. DATA LUERDY5)/0/,LUCDTB(6)/0/,LUCDTB(7)/0/
\f
MOTOROLA'S HELP-11-1.0 MPHWCO 0Y(2)/0/,LULTDY(3)/0/
166. DATA LULTDY(4)/63/,LULTDY(5)/70/,LULTDY(6)/1 DATA LUS2TB(1)/2129
8/,LUS2TB(2)/79/,LUS2TB(3)/7/
174. DATA LUS2TB(4/8192/
182. DATA KCFOTB(15)/16384/,KCFOTB(16)/"100000/
183. TA KC3/3/,KCF/15/,KCFF/255/,KC700/1792/,KCFF00/"177400/
190. DATA KCFFT: JSW - N/A
8. ;
9. ; RTN: JSW - CONTENTS OF CONSOLE SWITCH REG110
1. #MPVDAT/DE
2. #MPVDAT<BI:/FA
3. .TITLE M4) AND DDD IS THE
17. ; DAY OF THE YEAR.
18. ;*
19. ;-
4. ;+ NAM: MPVUID VER: 1.0 DAT: 10-17-74 CMP: PDP-11
5. ; P MOV (SP)+,@2(R5) ; RETURN UIC
21. RTS R5
2 12. ; RTN: JLUN - N/C
13. ; JERR - 0=> NO ERRORS
14. ;DEL: MOV 2(R5),ADRLUN ; PASS ADDRESS OF LUN TO MPVBFL
28. JSET #LNKBLK,#FILBLK ; DELETE THE FILE
38. .RLSE #LNKBLK ;3. .TITLE MPVGFA
4. ;+ NAM: MPVGFA VER: 1.1 DAT: 10-31-74 C) OF A GIVEN
18. ; FORTRAN LOGICAL UNIT NUMBER.
19. ;
200. ; 1=> FILE IS CONTIGUOUS
31. ; 7 0=> FILE NONEXI JSR R5,MPVBFL ; SET UP
FILENAME AND LINK BLOCKS
44. 52. RTS R5
53. LFBLCK: .WORD 0 ; START OF LIN PGM: MULTIPLY ROUTINE
6. ;
7. ; ENT: MLTD - MULTIPLICAND
22. MPVMUL: MOV R0,-(SP) ; SAVE CONTENTS OF REGISTERS
23. HECK MULTIPLIER
32. BCC MUL2
33. ADD R0,R3 END
\f
MOTOROLA'S HELP-11-1.0 MPVDIV 02:27 MAY 07,'75 PAGE116NC: FORM
S 16-BIT UNSIGNED QUOTIENT OF 2 16-BIT
16. ; UNSIGNED OPERIALIZE QUOTIENT
28. MOV #1,R2
29. TST R1 OR TOO LARGE
39. CLC
40. BR DIV4
41. DIV3: (SP)+,R2
50. MOV (SP)+,R1
51. MOV (SP)+,R 10. ; JFLB - N/A
11. ;
12. ; RTN: JLUN - N/C
13. ; ; GEN: LAYOUT OF JFLB
22. ; WORDS 1 - 5 LINK BLOCK (WORD 1 SAVE CONTENTS OF R3
33. MOV R4,-(SP) ; SAVE CONTENTS OF ASL R3
44. ASL R3
45. ASL R3
55. ; R4 => FWA OF JFLB
56. ;
57. MOV 4(R5),64. MOVB #0,15(R4) ; ERROR CODE
65. MOVB 4(R3),
76. MOV R3,LUN ; FORM ASCII CHAR ($31-$38)
77. MOV (SP)+,R3 ; RESTORE R3
91. RTS R5
92LP-11-1.0 MPVBFL 02:27 MAY 07,'75 PAGE119
107. '$RU MPHW. S0: .FCTR HELP-MPHM/CC-MPHLIB/CC-FTNLIB ;ROOT SECTION
8. S1: .FCTR MPHO0
4. 1.0 1 0 0 HELP
5. DK0:MPHM03.REFÆ001,001Å 1
6ORTRN
2. #MPHM<MPHM/ON/SU/CO:0
3. #MPHM1<MPHM1/ON/SU/CO:0
4. #<MPHLIB.OBJ,MPVDAT.OBJ
21. #MPHLIB.OBJ/DE
22. #MPHLIB.OBJ<MPHDMY.OBJ/RPHLIB.OBJ,MPVDIV.OBJ
36. #MPHLIB.OBJ/DE
37. #MPHLIB.OBJ<MPHDMY.OBJ/RE. CHECK FOR FORTRAN COMPLIATION/MACRO ASSEMBLY
ERRORS
\f
MOTOROLA'S HELP-1 FOR
MOTOROLA'S HELP-11-1.0
. . . . 15 1.1 02-21-75 PDP-11
9. MPUORP . . . . 16 1. 28 1.1 01-29-75 PDP-11
17. MPUPA2 . . . . 32 1.1 04-288-75 ALL
25. MPUBN8 . . . . 45 1.0 04-28-75 ALL
33. MPUOR . . . . 58 1.0 08-28-74 PDP-11
34. 41. MPUWRB . . . . 72 1.0 04-28-75 ALL
42. MPURRB .. . . . 74
50. MPHPTG . . . . 88 0.5 10-22-74 ALL
\f
2-74 ALL
58. MPUWRB . . . . 72
59. MPHGDA . . . . .111 1.0 10-17-74 PDP-11
68. MPVDEL . . . .112 1.1▶1a◀S▶1a◀▶1a◀▶1a◀O▶1a◀▶1a◀▶1a◀▶0f◀▶14◀@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@\f
MPS1113BK.RB82108 JOBJCL 23:39 MAY 04,'75 CHI PAGE 1
: MAIN ROUTINE FOR SYSTEM MPSSIM
6. C
7. C SYS: MPS
8. C
22. C *** ***
23. C **VALENCE (KCOMON(1),ICOMON)
34. C-
35. INTEGER VNFILE(4), VNUID
DAT: 04-01-75 CMP: PDP-11
3. C PGM: OPEN THE SYSTEM (READ IN DATA CER
15. C ID, OVERLAY COMMON WITH THE FILE, READ IN THE SYSTEM'S
MPVRCS
28. CS KCOMON,KSYSVN,KOLNAM,KOLNOF,KERLUN,KMER1,KAERHR,KDBMOD
38. C-
39. INTEGER VNFILE(4), NDFILE(4), VNACCT
40. B CALL SETFIL(2, NDFILE, KMER1, 2HDK, 0, NDACCT)
51. READ (2, END=9
60. KOLNAM(I) = NDFILE(1)
61. KOLNAM(I+1) = NDFILE(2)
77. 99 FORMAT(3A2, 1X, 2O3)
78. 98 FORMAT(3A2, 3I4, 1X, 3A2)
79. 10. C FNC: THIS ROUTINE PASS CONTROL TO EACH OVERLAY
11. C AF 20. C 3 - READ A COMMAND AND
21. C CMD PROCESSOR FORSM7
31. CS KONDX,KCNDX
32. CX *** SYMBOL TABLE VER: 1.2 DAT: 056. C*** GO TO THE SELECTED OVER
LAY
47. GO TO (200,100,150,170,175,1850
60. C*** CMD 5 PROOCESSOR
61. 190 CALL MPUOVR (7)
62. 0 DAT: 08-28-74 CMP: PDP-11
3. C PGM: SYSTEM OVERLAY CALLING ROUTINE,KMER1,KAERHR
21. CX *** SYMBOL TABLE VER: 1.2 DAT: 05/04/75 ***
2R
36. 99 KERLUN = 99
37. GO TO KAERHR
38. END
\f
- 3 MPUOPF "OF"
11. C - 4 MPURRP "RP"
12. C 23. C RTN: JC - N/C
24. C JT - N/C
25. C JB - NE (NOT IN DEBUG MODE")
35. C 2 - PRINT COUNT AND NAME IF 'JT(1)=1'OUNTER "KDBCTR" IS LESS
THAN THE START
45. C DEBUG TRACE COUNT "KD:39 MAY 04,'75 CHI PAGE 9
54. CX
55. CX
56. CX
57. C 66. IF(KDBCTR.LT.KDBSTC) RETURN
67. IF(KDBSCO.NE.0.AND.KDBSCO. 300 WRITE (KDBLU,431) KDBCTR,JN,JT(1)
81. GO TO 900
82. C
MAT (21X,3HCOD,2X,3HLUN,1X,3HEOF,4(3X,2HWD,I1))
94. 407 IF(JB(9).GT.1) GO00
\f
MPS1113BK.RB82108 MPUDB1 23:39 MAY 04,'75 CHI PAGE 10JN,(JB(J
),J=1,3),JT(1)
118. 451 FORMAT (I5,X,A2,X,3I4,I8)
119. G00 RETURN
134. END
\f
MPS1113BK.RB82108 MPUCA2 23: ARRAY CONTAINING CHARACTERS, 2 PE
R WORD
12. C IN COMPUTER'(I)
28. JLST(I) = JLST(I+1)
29. JLST(I+1) = HOLD
30. D'
9. C
10. C RTN: JA - N/C
11. C JB - N/C
12.1<BI:/FA
3. SUBROUTINE MPSM1
4. C+ NAM: MPSM1 VER: 1.3 D113BK.RB82108 MPSS1 23:39 M
AY 04,'75 CHI PAGE 14
1. 1.3 - EX ADDED TO THE ROUTINE
15. C*
16. CC MPUUTD,MPUOPN,MPUPPM,M(3),KOLUID(37)
24. COMMON IPBF1(259),IPBF2(259),MEM(777),KPGEN,KPGB,KC*** SET UP THE
USER'S CATOLOG NUMBER, AND TIME AND DATE BUFFERS
35. 100 ESSAGE FILE, AND PRINT QUED MESSAGES
47. CALL MPVHPS (3,IPBF1)
4'S CONTROL STATUS
56. CALL MPURRB (LUMFTB,KPGSCS,MREG,NWDSCS)
57I+2).EQ.0) GO TO 210
71. J=MEM(I)+KPGMEM
72. CALL MPUWRP 83. CALL MPUCLF (LUCOTB)
84. CALL MPUCLF (LUERTB)
85. D, USER NUMBER OF WHERE
12. C THE PROGRAM IS RUNNING, THE TIME OF 20. C MTDATE(3
) = DAY OF THE MONTH (1 TO 28, 29, 30 OR 31)
21. CGE COMMON CHAR ("L" SYMBOLS) TO "JL"
30. C TYPE SYMBOLS DEFI), MOVB(2)
42. EQUIVALENCE (KUSRB, KURUSR), (KUIC, KURUSR(6)), (MOV, TE(9)+MTDATE
(10)/2
52. C*** GET THE DATE
53. CALL MPVDAT(JD)
\f
R2 FORMAT).
61. CALL MPVUID(KUIC)
62. KUSRB(2) = JLLBRK
(1)
74. MOV = MPUXBS(KUIC, 3, 1) + JL0
75. KUSRB(7) = MOVBTABLE OF VIRTUAL MACHINE FILE
8. C JDIR - N/A
9. C
10. FOR CURRENT VERSION AND 'MF' FILE
18. C IF NOT THE CURRENT 'MFDIRECTORY FORMAT:
28. C 1 - VERSION NUMBER
29. C 2 -. C 26 - 1ST WORD OF THE VMF'S LABEL BUFFER (38 WO
RDS)
37. C
3,MPGSIZ
46. CX *** SYMBOL TABLE VER: 1.2 DAT: 05/04/75 ***
47. )
55. IF (LUTB(KEOF).NE.1) GO TO 900
56. IF (MPUAND(LUTB(K20
67. C*** FILE IS A VMF. REOPEN WITH CORRECT NUMBER OF PAGES.
68. T CURRENT NUMBER
79. CALL MPUER1 (33,0)
80. C*** MPUER1 WILL NOQ.JNPG) GO TO 140
91. C*** REOPEN THE DEFAULT WITH CORRECT NUMBER OF PAGES02. C*** REOPEN TH
E FILE WITH THE CORRECT NUMBER OF PAGES
103. LUTB(KCALL MPUER1(924, 0)
113. C
114. C*** READ IN THE FILE DIRECTORY (PAGE 1 23:39 MAY 04,'75 CHI PAGE
21
1. SUBROUTINE MPUOPN (LUTB WORD
15. C 1 KDNM 2 CHAR (SYSTEM'S R2 FORMAT) ASCII DEVICE NAME
UNUSED
25. C 8-10- DEVICE TYPE CODE
26. C 0 - FILPEN
38. C 2 => EOF
39. C 3 => CLOSED
40. C 4ME
51. C 12-14 PWD PASSWORD IF THE DEVICE IS A FILE
52. C 15-1OPF,MPUER1
61. CS IEOFSW,KC700,KDNM,KCOD,KEOF,KOPF,KFNM
62. CX *4/
71. DATA MSGEFN(8)/17742/,MSGEFN(9)/16717/,MSGEFN(10)/17696/
FILENAME FROM THE CMD UNIT
83. CALL MPURCD (MSGEFN,LMSGEF,JER)
8, REQUEST THE FILENAME
95. 22 JER=2
96. JERCT=JERCT+1
97PIETARY MESSAGE ON THE COMMENT DEVICE
4. C
5. C SYS: ALL
6 19. WRITE (LULT,11)
20. WRITE (LULT,12) NAMPGM(1),NAMPGM(2),NA(JSYS,JPBF)
2. C+ NAM: MPVHPS VER: 1.1 DAT: 12-28-74 CMP: ALL
15. C RTN: JSYS - N/C
16. C JPBF - UNKNOWED
17. C
18PSM)
26. C 1.1 - BREAK TEST ADDED
27. C*
28. CC MPUGR INTEGER JPBF(98)
37. C*** GET THE "HELP" MESSAGE FILE'S NAME FROM THE SYLUHFTB(KNPG)=JPBF(2)
48. CALL MPUOPF (LUHFTB,J)
49. 8 J=JSYS
59. C*** REQUEST PASSWORD CHARACTER
60. WRITE (LUCO,11)
61 73. C*** SEARCH THE MSG STRING FOR ALL MESSAGES WITHIN THE DATE RANGE
74Q.1) GO TO 900
85. IF(JBSW.EQ.1) GO TO 10
86. CALL MPUCA1 THE FILE'S VERSION NUMBER.
5. C
6. C SYS: ALL
7. C
ER
17. C
18. C FNC: READ IN THE SECTECED REERENCE FILENAME FROM TH
28. CC MPUCVC
29. CS ICSHF,KFNM
30. CX *** SYMBOL TABLEME POINTED TO BY 'JF'
42. 110 READ (8,120) JFNB,JFVN
43. 120 FORMANCE FILE
55. 140 ENDFILE 8
56. JOSW=0
57. RETURN
C JB - BUFFER TO READ INTO
10. C JN - NUMBER OF WORD
23. CC MPURRP
24. CS MPGSIZ,IPBF1
25. CX *** SYMBOL TAB 41. JNW=JNW-L
42. IF(JNW.LE.0) RETURN
43. JPG=JPG+ JP - PAGE NUMBER OF START WRITTING AT
9. C JB - BUFFER TO 20. C IS ZEROED FILLED.
21. C
22. C REV: N/A
23. C*9. 110 CONTINUE
40. CALL MPUWRP (LUTB,JPG,IPBF1)
41. IF(> DO NOT PRINT MESSAGE NUMBER HEADER
8. C - X2=> PRINT MESSA BUFFER CONTAINING THE MESSAGE STRING
(POINTS
17. C TO THE EAK HAS OCCURRED
29. C - 3=> BREAK HAS OCCURRED, STOP THE PROUFDA,MPUPA1
39. CS ICPWD,ICSHFT,KCFF,NB,INX,LSP,LULTTB,LULT,LUHFTB
OR.JBSW.NE.1) RETURN
51. JSW=1
52. JPGSW=JHSW/10
53. . 100 CALL MPUGWP (JB,JWCT)
64. IF(JWCT.EQ.0) GO TO 135
65. O TO 129
77. IF(JPGLCT.LT.53) GO TO 126
78. C*** PAGING, GO TO CHECK FOR DONE
90. 135 JSW=JSW+1
91. IF(JSW.EQ.3.OR.JPSW.EQ.1TED
105. 170 IF(JCX.NE.0) GO TO 180
106. JWCT=JWCT-1
\f
MPS GO TO 120
118. IF(JC.EQ.0) GO TO 170
119. C*** CHAR IS THE NUMBE4. C
5. C SYS: ALL
6. C
7. C ENT: JSW - 1 READ IN PAGE JBF - PAGE BUFFER (MUST BE PAGE SIZE PL
US 3 WORDS)
15. C
16. C R) = FIRST WORD OF THE PAGE
25. C
26. C FNC: INITIALIZES THE PAGE B
34. C*
35. CC MPUWRP,MPURRP,MPUER1,MPVMUL,MPVDIV
36. CS KC)
47. JBF(2) = JWX -JTMP
48. J=JPN+J
49. DO 10 L=JBF(3)
58. CALL MPUWRP (KCOMON(L),JBF(1),JBF(4))
59. 3ANDOM FILE PAGE
4. C
5. C SYS: ALL
6. C
7. C ENTD BEFORE THE 1ST CALL AND THE
19. C WRITE MUST BE WITHIN THE FILE PS1113BK.RB82108 MPURCD
23:39 MAY 04,'75 CHI PAGE 36
UPA2,MPURA1,MPUPIB,MPUCLF,MPUGNC,MPUER1,MPUGNP,MPUOPF
16. CS ICDBUF,IMAG COMMON LUCDTB(20)
24. INTEGER IMAGE(40)
25. EQUIVAL*** READ THE CMD FROM THE 'CI' DEVICE
36. 110 CALL MPURA1 (LUCITB,ICDBUF I=LUCOTB(KLOL)/2
49. CALL MPUPA2(JPRSW,IMAGE,I,LUCOTB)
50. 190 CALL MPUGNC(NC)
60. CALL MPUGNC(NC)
61. C*** * * * F C250
73. C*** 'C' CONTINUE READING FROM THE COMMAND FILE
74. 240 JPA** 'D' SET DEBUG MODE FLAGS, KDBMOD AND KDBSTC
90. 300 CALL MPUGNP (1,KD 23:39 MAY 04,'75 CHI PAGE 38
1. SUBROUTINE MPUOPF (LUTB,JERSAME AS WORD 4 OF LOGICAL UNIT TABLE (L
UTB)
13. C
14. C FNC: OPENSCCESS
26. C 4-5 - UNUSED
27. C 6-7 - FILE TYPE:
28. PAPER TAPE READER/PUNCH
38. C 6 - UNUSED
39. C 48. C 2 => EOF
49. C 3 => CLOSED
50. C 4 => O 0 = 0 => OLD FILE OPENED
58. C = 1 => NEW (CREATED) FILE OPENED
C 3 UNUSED
69. C 4 = 0 => SAVE FILE AFTER CLOSING
LD
78. C PER RECORD (TYPE 0 AND 2)
79. C KNPG NUMBER O
88. C JERR = 0 => DO NOT PRINT ERROR MESSAGES
89. C
97. C = 2 => READ FROM THE FILE
98. C = 3 IS A DEVICE.
\f
MPS1113BK.RB82108 MPUOPF 23:39 MAY 04,'75 CHF,KSTA
115. COMMON KOPF,KWD7,KNPG,KLOL,KFNM,KPWD(2),IVARTB(8)
116.2)/2H0:/,SF(3)/2HSC/,SF(4)/2HRT/
125. DATA SF(5)/2HCH/,SF(6)/2H.0/,SF( 136. JTY=MPUXBS(JCOD,8,7)
137. JSCR=MPUXBS(JCOD,3,3)+1
138. IF (JWR .EQ. 1 .AND. JCRT .EQ. 1) GO TO 800
150. IF (JTY .EQ. TO 800
\f
MPS1113BK.RB82108 MPUOPF 23:39 MAY 04,'75 CHI PAG7) + JDN(JDN
DX)*256
172. CALL SETFIL(JLUN,JDAT,KMER1,JDAT(7),JDAT(9),J 186. C*** FILE DOE
S NOT EXIST
187. 180 IF (JCRT .EQ. 1) GO TO 905
1199. 200 ENDFILE JLUN
200. CALL MPVDEL(JLUN, JDERR)
201. ITEN TO ALLOCATE STORAGE FOR A NEW FILE.
\f
MPS1113BK.RB82108 MPUOPFO 240
223. 235 DEFINE FILE JLUN(JNBLK, 256, U, IVAR5)
224. GO TO 237. IF(JTY.NE.1.AND.JWR.EQ.2) LUTB(7)=0
238. 300 CALL MPUDB1 (3,9ASSWORD
254. 907 JER=JER+1
255. C*** ERROR '13' INCORRECT ACCESS PRIV43
266. C*** IF THE FILE WAS BUSY, CHECK FOR ABORT ON BUSY FLAG
2 279. C*** ABORT ERROR '82' UNABLE TO OPEN A SCRATCH FILE
280. CALL 9. C BIT 4 = 0 => SAVE AFTER CLOSING
10. C KLUN,KEOF,KOPF,KCOD
22. CX *** SYMBOL TABLE VER: 1.2 DAT: 05/04/75 ***BS(LUTB(KOPF), 5, 5) +
1
34. C
35. C*** CLOSE A PERMANENT FILE
3 51. C*** INDICATE THAT THE LU IS AVAILABLE FOR REASSIGNMENT
52. RET'MM/DD/YY'
9. C = 2, FORMAT DATE INTO 'YY DDD'
10. C 17. C JB(3) - TIME BUFFER TO BE FORMATTED
18. C J ARE IN THE SYSTEM'S R1 FORMAT AND
30. C ONLY ONE CHARACTER IS STONA (JB(2),10,2)
44. CALL MPUSNC (LSLASH)
45. CALL MPUCNA ( MPUCNA (JB(1),10,2)
56. CALL MPUSNC (LCOLN)
57. CALL MPUC ENT: JN -BINARY NUMBER TO BE CONVERTED
8. C JBAS-BASE TO USEINE INDEPENDENT
20. C 1.2 - FIX CODE FOR 1.1 CHANGE
21. C IF (IBPWD .GT. 16) GO TO 20
33. C
34. C*** CONVERSION FOR MACHINES W 49. NN=J
50. 30 CONTINUE
51. 40 I = JCOL
52. 50 N9-30-74 CMP: ALL
3. C PGM: PRINT FILE'S LABEL (DV, MF, OR CF FILES)
1 => END OF LINE, PRINT IT
18. C 2 TO 1F => N NUMBER OF S)
30. C-
31. INTEGER JBUF(38)
32. WRITE (LULT,180)
EQ.0) GO TO 200
46. J=J+1
47. GO TO 210
48. 220 I=J 2. C+ NAM: MPUPA1 VER: 1.2 DAT: 10-18-74 CMP: ALL
3. C PGM: PRI JLB - N/C
16. C LUTB - N/C
17. C
18. C FNC: MOVE TLINE
27. C 1.2 - FIX TO 1.1 CHANGE
28. C*
29. CC MPUC. JB1(J)=JB(J)
43. 10 CONTINUE
44. J=L+1
45. I=I-1
57. 40 CONTINUE
58. I=1
59. 50 IF(I.GT.LUTENT: JLST - ARRAY CONTAINING THE CHARACTERS, 1 PER WORD
8. C 2. CX *** SYMBOL TABLE VER: 1.2 DAT: 05/04/75 ***
23. C-
24. S: ALL
6. C
7. C ENT: JBSW - N/A
8. C
9. C RTN: ER: 1.2 DAT: 05/04/75 ***
20. COMMON ICOMON(921),KBKFLG,LLSPSP(1588)4,'75 CHI PAGE 55
1. SUBROUTINE MPUGCB (JC,JB,JSW,JWX)
- 2=> GET THE NEXT CHAR FROM THE BUFFER
13. C - 3=>BYTE
22. C JB - N/C
23. C JSW - N/C
24. C C 1.2 - JSW 3 AND 4 ADDED
35. C 1.3 - JWX IS UPDATED ON 1 TO 30
49. C*** LAST CHAR OF THE CURRENT WORD, SETUP FOR NEX WORD
50.. C*** RETURN THE CHAR INDEX
63. 50 JC=JCX
64. RETURN
6 JB - BUFFER TO IN SYSTEM'S R2 FORMAT
10. C JLB - BUFFER WORD 21. C DEVICE CAN HANDLE (WORD KLO
L OF THE LUTB)
22. C
23. C
IF(JB1(J).NE.LSPSP) L=J
37. 10 CONTINUE
38. CALL MPUCA2(JB1L
5. C
6. C ENT: JER - ERROR CODE
7. C JB - MESS
21. C 100-199 BUILD VIRTUAL MAHINE
22. C 200-299 (IN SYSTEM'S R2 FORMAT)
34. C 6 ERROR WITH - ERROR TYPE 7 ADDED
45. C 1.4 - DETAIL CODE ADDED
46. C 23:39 MAY 04,'75 CHI PAGE 59
54. CX *** SYMBOL TABLE VER:
63. JLUN = LUER
64. ITERR=ITERR+1
65. JCOD=JERL.EQ.0) GO TO 205
81. L=K/10
82. JB1(J)=K-L*10+L0
83.0,70),JTYP
98. C*** ERROR MESSAGES
99. 10 WRITE (JLUN,95) JERR,(JBOP
109. C*** GENERAL INFO ERRORS
110. 40 WRITE (JLUN,96) JERR,(JB1(J22. WRITE (LUER, 94) JERR, JLID,
(JB1(J), J = 1, JLEN)
123. C
124. 135. END
\f
MPS1113BK.RB82108 MPUGNP 23:39 MAY 04,'75JSW - N/A
12. C
13. C RTN: JTY - N/C
14. C JLT - PARIT NUMBER,
24. C : - COLON,
25. C F - 1 E DEVICE MNUMONIC, UNIT NUMBER, EXTENSION AND USE
R
34. C IDENTIFICC FIXED GO TO STATEMENT 100.
45. C*
46. CC MPUFNO,MP8/,JLK/75/
55. DATA JLLBRK/91/,JLRBRK/93/
56. JLT(1)=0
160
69. CALL MPUBN8 (JLT(1))
70. GO TO 385
71. C
ENSION MUST BE 1-3 ALPHANUMERIC CHARACTERS.
81. C 6. UIC MUST BE
VICE ONLY
94. C 4 UNIT # OF DEVICE
95. C 5 FILENAME JLT(3) = JL0
110. JLT(4) = JLCOLN
111. DO 202 I = 5, 14
230 ITYPE = 2
127. GO TO 260
128. C*** LETTER
129. 240 I253 IF (NC .NE. JLRBRK) GO TO 380
145. C*** RIGHT BRACKET
146.
157. 305 GO TO (330,330,340,380,345,380,380),ITYPE
158. 306 GO TO (3 NBR = NBR + 1
169. IF (NBR .GT. MAX) GO TO 390
170. JLT(KOLCESS DEVICE UNIT NUMBER
188. C*** ENTER "0" FOR DEFAULT DEVICE NUMBER
1 23:39 MAY 04,'75 CHI PAGE 65
1. SUBROUTINE MPUPIB (JB,JLS- N/C
13. C JLSW - SET TO 1 IF THE 1ST CHARACTER OF THE BUFFER
22. C WORD 1 NUMBER OF WORDS+3 TO END OF TEXT (TRAILING
23. 1. C GEN: THE 1ST CHARACTER IS RETURN BY A CALL TO 'MPUGNC'
32. C ONG
40. C 1.4 - FIX 16-BIT ARITH PROBLEM
41. C*
42. CC )
51. CALL MPUCVC (JB(1),JC)
52. IF(JC.LT.L0.OR.JC.GT.L9) GO TO (160,140),JLSW
65. C*** BUILD THE LINE NUMBER
66. 140 IF(JC.L. 180 JULSW=2
80. C*** SAVE THE END OF IMAGE INDEX
81. 190 IF(JC.E 67
1. SUBROUTINE MPUFNO (JN,JER)
2. C+ NAM: MPUFNO SELECT CHAR WAS NOT %, @ OR $
14. C
15. C
16. C FNC: THE RNB => BINARY (N = 0-1)
25. C @N NQ OR NO => OCTAL (N = 0-7)
2,L0,L1(7),LA,LB,LD,LF,LH,LI(2),LO,LQ
36. COMMON LT(259),NC,ICSW,ISIMB GO TO (120,190),LEVS
53. C*** * * * SP , 0-9 A-Z SPC END
\f
65. 170 LEVS=2
66. GO TO 100
67. C*** BUILD NUMBER (LEVELALL MPVMUL(JN10, 10, JN10)
81. JN10 = JN10 + N
82. 240 CALL MP 230
95. 260 JSB=1
96. IF(JC.EQ.LB) GO TO 290
97. I IF(JNSB.EQ.4) JSB=4
108. 310 IF(JSB.LT.JNSB) GO TO 140
109. JN= IN SYSTEM'S R2 FORMAT
10. C
11. C FNC: SCAN OUT FROM THE IMAGE BU ICSHF,NC,ICSW,LSPSP,LSP
22. CX *** SYMBOL TABLE VER: 1.2 DAT: 05/04/75 JC=NC*ICSHF
36. JNAM(I)=JC+LSP
37. CALL MPUGNC (NC)
NAM: MPUGNC VER: 1.1 DAT: 08-12-74 CMP: ALL
3. C PGM: GET NEXT CCSW IS SET TO)
16. C 1 => SPACE ' '
17. C 2 => COMMA ***
28. COMMON ICOMON(299),LSP,LPDS(3),LCOMA,LMNS(3),L0,L1(4),L9
IC-I*2
42. IC=IC+1
43. NC=IW/ICSHF
44. IF(I.NE. CHAR IS '0' - '9'
56. ICSW=3
57. RETURN
58. 40 IF 4. C
5. C SYS: ALL
6. C
7. C ENT: N/A
8. C
AY 04,'75 CHI PAGE 74
1. SUBROUTINE MPUDAT (JSW,ND,JB)
JB(2) - DATE BUFFER TO BE CONVERTED
14. C JB(1) = YEAR ND - N/C
26. C JB(5) - CONVERTED DATE BUFFER
27. C 37. C JSW - 3, N/C
38. C ND - NUMBER OF DAYS FROM BASE STARTS ON SUNDAY AND IS THE Y
EAR AFTER LEAP YEAR. THIS
49. C YEAR),JDY)
57. DATA JMO(1)/31/,JMO(3)/31/,JMO(4)/30/,JMO(5)/31/,JMO(6)/30.
N=2
70. C*** COMPUTE THE YEAR AND DAY OF YEAR
71. 10 JYC=( JM=12
86. 30 DO 40 J=1,5
87. JB(J)=JP(J)
88. 40 CO.2) GO TO 90
104. JM=JB(1)-1
105. IF(JM.LE.0) GO TO 90
1M: GET THE NEXT WORD FROM PAGE BUFFER
4. C
5. C SYS: ALL
6XIT JB(1) IS THE ADR OF THE CURRENT PAGE
16. C AND JB(2) POINTS TOT: 05/04/75 ***
28. COMMON ICOMON,ISCD(928),MPGSIZ
29. INTTURN
44. END
\f
MPS1113BK.RB82108 MPURRP 23:39 MAY JP - N/C
13. C JB - CONTENTS OF REQUESTED SECTOR
14. C
MON ICOMON(2492),KLUN,KEOF(6),KFNM
25. C-
26. INTEGER LUTB(20),JONVERTED
6. C JC - N/A
7. C
8. C RTN: JW - N/C
32) GO TO 10
22. IF (JC .LT. 96) GO TO 20
23. JC = JC - 32 7. C ENT: JWORD - WORD FROM WHICH TO EXTRACT BI
T STRING
8. C
21. C*
22. CF MPUAND,MPUOR
23. CS KCFOTB
24. CX **75 CHI PAGE 81
1. SUBROUTINE MPURA1 (LUTB,JB,JBL)
2. C+ END OF FILE
13. C JB - CONTAIN THE RECORD READ
14. C 3400/
27. DO 10 J=1,80
28. JB(J)=LLSPSP
29. 10 CON
40. 900 LUTB(KEOF)=2
41. RETURN
42. 99 FORMAT(80A1)
N - N/A
8. C
9. C RTN: LUTB - N/C
10. C JFNM - CON
23. J = KFNM
24. DO 10 I = 1, 12
25. JFNM(I) =6. C
7. C ENT: JFNIN - DEC DATASET (SET UP BY MPUGNP)
8. C UMENTS TO SUBROUTINE SETFIL.
18. C
19. C GEN: DATASET FORMAT: DN:1-376),
28. C , - COMMA,
29. C U - 1 TO BINARY VALUE.
38. C ARG 4 (WORD 10) UIC. BINARY VALUE.
39. JINB)
49. DATA JLSP/32/,JLCOMA/44/,JL0/48/,JLA/65/,JLLBRK/91/
5UCA2(JIN, 12)
64. DO 5 I = 1, 20
65. JFNOUT(I) = 0
66
81. 20 JUN = KHAR - JL0
82. KOL = KOL + 1
83. C
84 C*** BUILD UIC
97. C
98. 50 DO 60 I = 1, 4
99. KOL = KJL0
110. 80 CONTINUE
111. GO TO 999
112. C
113. C*** R 23:39 MAY 04,'75 CHI PAGE 86
1. FUNCTION MPUOR (JA,JB)
:
16. C
17. C REV:
18. C*
19. CX *** SYMBOL TABLE VERS: MPSSIM
8. C
9. C FNC: TRANSFERS CONTROL TO MPSS2 AND RETURNS TE INSTRUCTIONS (RUN O
R TRACE) AND PRINT REG.
4. C
5. C SYS: MPSOR:
17. C D - DISPLAY REGISTERS
18. C DL - DISPALY 27. C - ALSO TRACE BRANCHES ADDED
28. C 1.4 - BREAK IRQ,IRQTIM
37. CS NOPON,NOPONC,NOPONR,LUCO
38. CX *** SYMBOL TABNR,NOPDY0(1689)
45. COMMON LUCOTB(20)
46. EQUIVALENCE (MEM 23:39 MAY 04,'75 CHI PAGE 89
54. GO TO (290,295,100,300,ST INSTRUCTION BRANCHED TO SELF
68. NOPBRA=NOPBRA-1
69. IF 79. CALL MPSSIR (2)
80. 140 IF(NOPON.LT.5) GO TO 180
81. C** 93. 180 GO TO (231,210,225,190,220,230),NFAULT
94. 190 WRITE (LUCO,191 CALL MPUCA1 (NB,INX)
\f
MPS1113BK.RB82108 MPSS2 23:39 MCE THE BRANCHES, THIS IS A BRA
NCH PRINT IT.
118. 240 NOPRMD=3
119. C** 136. LMREG(I)=MREG(I)
137. 310 CONTINUE
138. IF(KCNDX.EQ5. C
156. C*** 'PF' POWERFAIL SIMULATION
157. C
158. 400 MRTI=MRTC + JL
169. GO TO 120
170. END
\f
MPS1113BK.RB82108
12. C
13. C REV: 1.3 - INTERRUPTS ADDED
14. C 1.4 -SK
23. COMMON LPOS(22),LT,LZ(3),INST,IOPRND,I7654,I3210,I54
24. IF(NOPIRQ.EQ.3.AND.MRIF.EQ.0) GO TO 200
33. CALL MPUGME(MRPC,I00 I=I7654+1
49. GO TO (150,130,120,140,110,110,110,110),I
50.ROUP V (0011)
63. 140 MROCI=KOI(I3210+17)
64. CALL MPEG5
IA+1
80. CALL MPUGME (JADR,JL)
81. CALL MPVMUL(JH, 256, MRM: SETUP ROUTINE FOR INTERRUPT REQUESTS
4. C
5. C ENT: JDSW - 1=- NEW ROUTINE
16. C REV: 1.4 - FIX TO 16 BIT ARITH PROBLEM
17. C )
25. COMMON LDB8(3),LDB16(3),NFAULT,NERBRA(2),NERRCD
26. MPUGME (IRQFWA,IRQTYP)
37. IF(IRQTYP.GT.7) GO TO 900
38. I IF(IRQDLT.EQ.0) GO TO 900
52. IF(IRQTYP.EQ.1) GO TO 500
51
62. IF(IRQTYP.EQ.6) GO TO 242
63. GO TO 260
64. C** AND/OR BYTE
77. C
78. IF(IRQNAD.GE.IRQLWA) GO TO 110
79. (IRQNAD,JH)
92. IRQNAD=IRQNAD+1
93. CALL MPUGME (IRQNAD,J MPS1113BK.RB82108 MPSSIR 23:39
MAY 04,'75 CHI PAGE 96
7 - ADR, (TIME, BYTE, TIME, BYTE....)
121. C
122. IF(IRQNAD.EQ.7)FL)
134. CALL MPUCA1 (NB,INX)
135. WRITE (LUCO,511) IRQTYP,IAY 04,'75 CHI PAGE 97
1. SUBROUTINE MPEG5
2. C+ NAM: RTS RTI WAI SWI
15. C
16. C REV: 1315),LA,LB,LD(16),ISUBGC,IAMOD,NDCYC
25. COMMON IREG(326),NFAULT,NERB4. 10 J=ISUBGC-8
35. GO TO (250,200,250,210,250,250,220,230),J
A=(SP)
\f
MPS1113BK.RB82108 MPEG5 23:39 MAY 04,'75 CHI PAGLL MPUSME (M
RSP,MRA)
72. MRSP=MRSP-1
73. 170 MROCR=LA
74.MRPC, 256, MRPC)
91. MRPC = MRPC + JB
92. GO TO 240
9 MPEG5 23:39 MAY 04,'75 CHI PAGE 99
107. CALL MPEP240 IF(NFAULT.EQ.1.AND.NOPRMD.EQ.3) NOPRMD=4
123. RETURN
124. C* - 2=> PULL THE REGISTERS FROM THE STACK
7. C
8. C RTN: JPSW -*
19. CC MPUXBY,MPUSME,MPEPSW,MPUGME,MPVMUL
20. CS MRPC,MRIX,MRAER ONTO THE STACK
31. C
32. 110 CALL MPUXBY (MRPC,JH,JL)
33. LL MPEPSW (2,JPS)
47. CALL MPUSME (MRSP,JPS)
48. MRSP=MRSP
61. MRSP=MRSP+1
62. CALL MPUGME (MRSP,MRIX)
63. 4,'75 CHI PAGE102
1. SUBROUTINE MPEG1
2. C+ NAM: MPEDC ORA ADD CPX JSR LDS STS
15. C BSPRMD
25. CX *** SYMBOL TABLE VER: 1.2 DAT: 05/04/75 ***
26. ,MREG(11))
33. EQUIVALENCE (MRZF,MREG(12)),(MRVF,MREG(13))
34.
47. C*** (11XX) WORKING WITH 'B'
48. 110 MROCR=LB
49. I
60. 122 CALL MPEADR (IREG,IOPRND,2)
61. RETURN
62. C
78. CALL MPEADR (IREG,IOPRND,1)
79. MRCF=JSCF
80. GO95. C
96. C*** 'ADC' ADD TO ACCX WITH CARRY (R+M+C>R) R=> A OR B
97. Q.5) RETURN
110. GO TO 135
111. C
112. C*** 'ADD' ADD TO ACCX 125. MROCI=153
126. IF(I3210.EQ.15) MROCI=155
127. 160 IF2)
141. IF(JH.NE.0) MRZF=0
142. MRNF=JSNF
143. MRCNE.0) GO TO 200
158. C*** 'LDS'
159. MRSP=IREG
\f
MPS1113BK.. JADR=JADR+1
173. MRNF=MPUXBS(JH,8,8)
174. CALL MPUSM>SP-1, PL->SP, SP-2-SP)
189. C
190. 310 MROCI=151
191. NDCYCOPCODE JSR -- EXTENDED ADDRESSING
208. C
209. 313 NDCYC=9
210. .EQ.1.AND.NOPRMD.EQ.3) NOPRMD=4
221. RETURN
222. 900 NFAULT=3
0 01 02 03 04 05 06 07
12. C NEG COM LSR 22. CS LA,LB,IOPRND,I3210,I54,ISUB
GC,IAMOD,NDCYC,NFAULT,MROCR
23. CS 30. EQUIVALENCE (MRA,MREG(7)),(MRB,MREG(8)),(MRNF,MREG(11))
31. 330
44. GO TO 40
45. C*** INDEXED ADDRESSING
46. 12 CA 57. 30 MRPC=MRPC+1
58. IF(I3210.NE.14) CALL MPUGME (JADR,IOPRND 1'S (NOT R>R) R=> A, B OR
M
72. C
73. 130 J=IOPRND
74. I 89. GO TO 195
90. C
91. C*** 'ASR' SHIFT RIGHT, ARITHMETIC (
106. IOPRND=MPUAND(KCFF,IOPRND)
\f
MPS1113BK.RB82108 MPEC
121. C*** 'INC' INREMENT (R+1>R) R=> A, B OR M
122. C
123. 210 140. IF(NFAULT.EQ.1.AND.NOPRMD.EQ.3) NOPRMD=4
141. RETURN
1459. END
\f
MPS1113BK.RB82108 MPEG3 23:39 MAY 04,'75 CH. C 08
09 0A 0B 0C 0D 0E 0F
14. C BVC BVS COMMON NOPRMD
24. EQUIVALENCE (MRPC,MREG(5)),(MRNF,MREG(11))
C
38. 100 J=1
39. IF(IOPRND.LT.128) GO TO 105
40. J
54. C*** OPCODE BLS
55. C
56. 130 IF(MRCF.EQ.1.OR.MRZF.EQ.1 78. 180 IF(MRVF) 100,100,300
79. C
80. C*** OPCODE BVS
81. C IF(IEXOR) 300,300,100
101. C
102. C*** OPCODE BGT
103. C
108 MPEOPA 23:39 MAY 04,'75 CHI PAGE113
1. SUBR 13. C THE NEXT INSTRUCTION ON EXIT
14. C
15. C REV: 1.3MMEDIATE ADDRESSING MODE
26. 100 JADR=MRPC
27. MRPC=MRPC+1
DDRESSING MODE
42. 111 CALL MPUGME (MRPC,JH)
43. MRPC=MRPC+1
4. C
5. C SYS: ALL
6. C
7. C ENT: JADR - MEMORY LOCAT1.2 - NFAULT CHANGED TO BE THE NUMBER OF T
HE FAULT
19. C 1.3 - ZER9. CALL MPUGMP (JADR,J)
30. JBY=0
31. IF(NFAULT.NE.25
42. NERBKP=JADR
43. 200 JBYT=MPUAND(JBY,KCFF)
44. R - N/C
11. C JBYT - N/C
12. C
13. C FNC: IF 'JADR' L TABLE VER: 1.2 DAT: 05/04/75 ***
23. COMMON ICOMON(662),NFAULT,NERONTROL BITS SET IN THE WORD, JUST STO
RE
35. MEM(J)=JBYT
36. 1. SUBROUTINE MPUGMP (JMA,JMI)
2. C+ NAM: MPUGMP VER: 1.5 IF THIS LOCATION IS
15. C WITHIN THE 'MF' MEMORY SECTION "JMI" IS VEL
24. C WD 3 - 0 PAGE HAS ONLY BEEN READ FROM
25. C 1.2 - FIXED ROUTINE TO WORK WITH ONE MEMORY PAGE
35. C 1.3 - NERERRCD(14)
44. COMMON KMFDIR(63),MREG(17),LMREG(170),MPGSIZ,IPBF1(518)CHI PAGE11
7
54. GO TO (10, 10, 7), JCMP
55. C*** MEMORY M(I).GT.JPL) GO TO 40
68. IF(MEM(I+1).NE.0.AND.MEM(KPGIX+2).EQ.0) GO THE PRIORITY LEVEL FOR
THIS PAGE
82. 90 KPGPL=KPGPL+1
83. ME 7. C ENT: JREG - 16 WORD ARRAY OF THE REGISTERS TO DISPLAY
8. C
LOL
20. CS LULTTB
21. CX *** SYMBOL TABLE VER: 1.2 DAT: 05/04/7 COMMON LULTTB(20)
29. EQUIVALENCE (ICSHF,ICSHFT(2))
30. C-
110 CONTINUE
43. INX=1
44. GO TO (120,130),JSW
45. .0) GO TO 340
56. GO TO (140,220),JSW
57. 140 GO TO (190,150,1
73. CALL MPUSNC(JNMR2(N))
74. J=J+1
75. 210 INX=INXPUSNC(J)
89. CALL MPUSNC(MPUAND(I,KCFF))
90. J=JREG(3)
=JREG(16)
106. GO TO 340
\f
MPS1113BK.RB82108 MPSDRG IF(LDREG(I).NE.NN) J=LASK
123. CALL MPUSNC(J)
124. LDREG(I)4-18-75 CMP: ALL
3. C PGM: COMPARE ADDRESSES
4. C
5. C T COMPARISON BETWEEN
17. C TO ADDRESSES.
18. C
19. C R1, JBYTA1, JBYTA2)
32. CALL MPUXBY(JADR2, JBYTB1, JBYTB2)
33. URN
48. END
\f
MPS1113BK.RB82108 MPUXBY 23:39 MAY JBYTE1 - CONTAINS UPPER B
YTE OF JWORD (RIGHT JUSTIFIED)
12. C JB
24. CALL MPVDIV(JWORD, 256, JBYTE1)
25. JBYTE2 = MPUAND(JW'
11. C 00 01 02 03 04 05 06 07
12. C GC,IAMOD,NDCYC,IREG
23. COMMON IONTYP(325),NFAULT,NERBRA(79),MREG(17) 'A' AND 'B'
37. C
38. 11 IREG=MRA
39. CALL MPEADR (IREG
54. 14 MRCF=JSCF
55. RETURN
56. C
57. C*** 'DAA' RN
70. C
71. C*** 'ABA' ADD 'A' TO 'B' STORE IN 'A'
72. C
COMPLEMENT ADDER FOR THE SIMULATOR
4. C
5. C ENT: JREG - OPERANDREV: 1.3 - REPLACES MPEADD
18. C*
19. CF MPUAND,MPUXBS
20. CS
32. 10 JOP1=JREG+JOP2
33. GO TO 30
34. 20 JOP1=JREG-
46. RETURN
47. 50 IF(J1.NE.0.AND.J2.EQ.0.AND.JR.EQ.0) MRVF=1C
10. C FNC: GROUP VI OPCODES '0000 XXXX'
11. C 00 01 04/75 ***
21. COMMON ICOMON(333),ISUBGC,IAMOD,NDCYC,IREG(326),NFAULT),J
32. C
33. C*** OPCODE NOP
34. C
35. C*** JUST RETURN
'75 CHI PAGE127
54. 190 CALL MPUADR (MRIX,2,1,JSW)
55. 191 1
78. RETURN
79. C
80. C*** OPCODE CLI
81. C
82.TATUS BYTE
4. C
5. C SYS: MPSSIM
6. C
7. C ENT: THE PROGRAM STATUS BYTE FROM/OR INTO THE 1 BIT WORDS
18. C USED TO C
32. C*** UNPACK THE PSW TO THE 1 BIT CONDITION WORDS
33. C
34 END
\f
MPS1113BK.RB82108 MPUADR 23:39 MAY 04,'75 CHI 4
=> DIVIDE
13. C JP2 - OPERAND 2
14. C IS CHECKED.
26. C
27. C REV: 1.1 - FIXED 16-BIT ARITH PROBLEM
TS.
42. C
43. GO TO (10, 20, 30, 40), JS
44. 10 JP1 = JPWORDSIZE > 16 BITS.
56. C
57. 100 GO TO (110, 120, 130, 140), JS
ND
\f
MPS1113BK.RB82108 MPUOVF 23:39 MAY 04,'75 CHI PAGE131 11. C
3 => TEST FOR OVERFLOW FOR *
12. C
13. C R PAGE132
1. #MPSM3/DE
2. #MPSM3<BI:/FA
3. SUBROUT 16. RETURN
17. END
\f
MPS1113BK.RB82108 MPSS3 C PROCESSOR FOR THE FOLLOWING:
13. C R - RUN
14. CCIX,ICMD
24. CS ICBIX,KONDX,KCNDX,LEVEL,NAM,NFAULT,NERMEM,NERRCD,NERBKPMCSW,MCIX,M
CCI
32. COMMON ICIX,ICIX1(4),ICMD(2),ICBIX,KONDX,KCNDX,LEVVALENCE (IMAGE(1
),ISIMBF(4)),(ICSHF,ICSHFT(2))
41. C-
42. C*** CHECK MPS1113BK.RB82108 MPSS3 23:39 MAY 04,'75
CHI PAGE134
BP' CMD
67. 120 IF(JC.EQ.0.AND.NFAULT.EQ.4) GO TO 200
68. JR1= IF(J.EQ.JC) GO TO 200
84. C*** CHECK THE NEXT CMD
85. 190 MCIX=MCICDBUF(I)=LSP
100. 230 CONTINUE
101. GO TO 350
102. 240 IF
113. ICMD(1)=ICMD(2)
114. GO TO 270
115. 260 J=ICMD(1) NERRCD=301
127. 310 J=(ICIX+1)/2
128. IF(NOPLM.NE.2) CALL MPU0+20001
143. CALL MPUER1 (NERRCD,NAM)
144. C*** RESET POINTER AND(NC)
159. LEVEL=1
\f
MPS1113BK.RB82108 MPSS3 23:39RACE BRANCHES, 1 OR N INSTRUCTIO
NS
175. C
176. 390 NOPRMD=3
177. 4 190. RETURN
191. END
\f
MPS1113BK.RB82108 MPVGCDACES
12. C AND ADDING A PERIOD AT THE END OF THE COMMAND.
13. MCMD,P1,P2,P3.
24. C TEXT SUBTITUTION: MCMD:TEXT1:TEXT2:TEXT3;
25 (#N) WHERE THE CHAR VALUE IS N, $20 TO $5F
35. C THE ASCII TEXT *** SYMBOL TABLE VER: 1.2 DAT: 05/04/75 *
**
45. COMMON ICOMON(297KFNM(31),LUCITB(20)
52. CX
53. C-
\f
MPS1113BK.RB82108 MP NOPRLC=NOPRLC-1
65. ICBIX=ICBIXL
66. NOPRCC=0
67. L MPVCBC (JC)
81. GO TO (200,220),JESW
82. 200 IF(LEVEL.LT.4) 210
95. C*** THE CMD IS A MACRO
96. MCSW=2
97. IF(JC
107. 215 IF(JC.NE.LLBRK) GO TO 220
108. C*** THE CMD IS DEFINING A 120. IC=ICPI
121. J=ISIMBF(1)
122. 240 IF(IC.EQ.ICIX) GMACRO COMMAND
137. C
138. 280 MCCI=ICPWD
139. MCIX=MCIX+3
D.ICIX.EQ.ICIX1) GO TO 100
152. 310 IC=ICPI
153. 320 RETURN
154. 8. C RTN: N/A
9. C
10. C FNC: THE LAST COMMAND READ BY 'MPV1.2 DAT: 05/04/75 ***
21. COMMON ICOMON(299),LSP,LPDS(5),LPERD,LSLASNE.0) GO TO 350
33. C*** GET THE NEXT CHAR FROM THE MACRO BUFFER
34. NC(JC)
47. ICPI2=IC
48. IF(JC.EQ.LCOLN) GO TO 360
49.THE MACRO
60. 380 MCSW=1
61. IF(ICIX.EQ.ICIX1) GO TO 387
: MPVGNN VER: 1.1 DAT: 04-18-75 CMP: ALL
3. C PGM: GET THE NEXT NUM
18. CS L0,LA,LF,LT,NC,ICSW,NOPIB
19. CX *** SYMBOL TABLE VER: 1.C (NC)
31. GO TO 10
32. END
\f
MPS1113BK.RB82108 OF COMMAND
12. C
13. C REV: 1.0 - NEW ROUTINE
14. C*
15. DAT: 10-01-74 CMP: ALL
3. C PGM: STORE NEW MACRO INTO MACRO BUFFER
TABLE VER: 1.2 DAT: 05/04/75 ***
19. COMMON ICOMON(300),LPDS,LASK(6ROR '307' MACRO BUFFER OVERFLOW, MAC
RO IS NOT STORED
30. NERRCD=307
Q.0) N=1
44. CALL MPUPCB (N,MACRO,2,MCIX)
45. IF(N.LT.31)THE MACRO NAME IN WORD 2 AND 3
55. MACRO(MCEIX+1)=ICMD(1)
56. AR TO STORE
8. C
9. C RTN: JC - N/C
10. C
11. C FN20. C THE 'CMD' IS PLACED IN THE 'ICMD' 2 WORD BUFFER
21. C SH,L0,L1(4),L9,LCOLN,LSCOL,LA,LB(9),LZ,LLBRK
32. COMMON LRBRK,INST(31C 6 => SPECIAL CHAR
45. C NOTE:
46. C IF JC IS NOT 20 TO 5'0' - '9'
58. JCSW=3
59. GO TO 70
60. 40 IF(JC.NE.LEVEL.NE.0) GO TO 120
74. ICPI=ICIX
75. I=ICIX
76. 10. I=I+1
90. J=I/2
91. IF(J*2.NE.I) GO TO 180
92 105. 250 LEVEL=4
106. CALL MPUSCI (LSP,ICIX)
\f
MPS1113BK.RB NAM: MPUSCI VER: 1.1 DAT: 04-29-75 CMP: ALL
3. C PGM: STORE CHAR WORD.
16. C
17. C REV: 1.1 - WCT+3 STORED IN 'ISIMBF(1)'
J=J+1
30. JW=IMAGE(J)
31. IF(I.EQ.1) GO TO 20
32. B VER: 1.1 DAT: 10-21-74 CMP: ALL
3. C PGM: PUT CHAR. INTO THE NEXT JB - N/C
15. C JSW - N/C
16. C JWD - WORD INDDEX IS UPDATED ON 1ST CALL (JCX=0)
25. C*
26. CS ICPWD,ICSHFT
42. JCX=JCX-1
43. RETURN
44. END
45. $EOD
\f
MPSS0.
11. C*
12. CC MPSS4
13. CX *** SYMBOL TABLE VER: 1.2
9. C
10. C FNC: COMMAND PROCESSOR FOR THE FOLLOWING:
11. C
21. C RS CMD NO LONGER RESTORES THE 'ON' AND BKPT STATUS
H(277),NC,ICSW,ISIMBF(54),MCSW,MCIX(11),KCNDX
31. COMMON LEVEL,NAM(3)MREA,MREG(4))
39. C-
40. N=0
41. IR=0
42. GE153
54. 130 CALL MPURRB (LUMFTB,KPGMAC,MACRO,MCLEN+2)
55. 304
70. 170 GO TO (100,100,370,180,370,310),ICSW
71. 180 CALL MPUB85. IF(NC.EQ.LPERD) RETURN
86. GO TO 170
87. C
88. C* 103. GO TO 230
104. C*** LOOK UP THE REGISTER NAME (P,X,A,B,C S OR RESTORE STATUS
118. C
119. 300 CALL MPURRB (LUMFTB,KPGSCS,MREG,NWDSCR)) NOPDPL=NOPDPL+I
135. GO TO 100
136. C*** ERROR '302' SYNTAX ERR FNC: LIST ALL OF THE MACROS IN THE LIBRARY
ON THE 'LUCO'
11. C D18)
21. COMMON LLBRK,LRBRK,INST(596),ICPWD,ICSHFT(4),MPGSIZ(1300)
GO TO 200
36. JB(3)=MACRO(JCIX+1)
37. IF(JB(3).LT.LSPSP) C
51. GO TO 100
52. 110 IF(JC.EQ.0) GO TO 130
53. L 140 JCIX=JCIX+JWCT
67. GO TO 10
68. C*** END OF THE LIBRARY ENT: N/A
8. C
9. C RTN: N/A
10. C
11. C FNC:
26. C
27. DO 10 I=1,3
28. 10 JNAM(I)=LSPSP
29. MPUGNC (NC)
43. IF(ICSW.LT.3.OR.ICSW.GT.4) RETURN
44. GO 4 => P
10. C 5 => X
11. C 6 => A (BYTE ONL 25. CF MPUAND
26. CS NERRCD,MREG,MRSP,MRTI
27. CX *** SYMBOL MREG(J)=MPUAND(JW1,1)
40. JW1=JW1/2
41. J=J-1
42$EOD
\f
MPS1113BK.RB82108 MPSM5 23:39 MAY 04,'75 CHI PAGE16E VER: 1.
2 DAT: 05/04/75 ***
14. C-
15. CALL MPSS5
16.
11. C DM - DISPLAY MEMORY
12. C SM - SET MEMORY
*** SYMBOL TABLE VER: 1.2 DAT: 05/04/75 ***
25. C-
26. CALL MOR FOR THE FOLLOWING:
11. C DM - DISPLAY MEMORY
12. C VDSM
24. CS ICDANS,LHPCTR,L0,L1,L2,L6,L8,NC,ICSW,NOPRLC,ICBIXL
25. R,KVER(125),NOPLM
32. COMMON NOPRUN(3),NOPHR,NOPDF,NOPIB,NOPBAS,IXBAS RETURN
47. C
48. C*** 'DM,FWA,WCT' DISPLAY MEMORY
49. C
63. 430 NOPLM=ICDANS
64. 435 RETURN
65. C
66. C*** 'HR0. ICPIM=0
81. RETURN
82. C
83. C*** 'RL N' REPEAT T(NC.EQ.L8) GO TO 153
98. IF(NC.NE.L1) GO TO 340
99. CALL M IF(NC.NE.L1) GO TO 340
113. CALL MPVGNC(NC)
114. IF(NC.END PROCESSOR
4. C
5. C SYS: MPSSIM OR MPBVM
6. C
7.
18. C 1.4 - FIX FOR 16-BIT ARITH PROBLEMS
19. C 1.55 ***
28. COMMON ICOMON(299),LSP,LPDS(5),LPERD,LSLASH(135),NB(140)
. N=0
39. JFWA=0
40. JWCT=0
41. NFAULT=1GE166
54. 210 GO TO (100,100,220,340,220,230),ICSW
55. 220 CDML(I)=JJ
68. J=J+1
69. 250 CONTINUE
70. GO TO (290
82. JW=JWCT
83. J=LDB8(IXBASE)
84. DO 270I=1,NP.OR.J.GT.95) J=LPERD
98. CALL MPUSNC(J)
99. JW=JW-1
1,310)
110. 310 FORMAT (13H SAME PATTERN)
111. 320 JFWA=JFWA+NOPBAS
GO TO 420
123. C*** ERROR '302' SYNTAX ERROR IN THE COMMAND (MPSDSM)
.256) GO TO 410
138. CALL MPVDIV(N, 256, J)
139. CALL MPUSME RESTORE THE DISPLAY'S EFFECTIVE MEMORY ADR
152. 420 MREA=JSMREA
153.
6. C
7. C SYS: MPSSIM
8. C
9. C FNC: TRANSFERS CLL
3. C PGM: MPU SIMULATOR COMMAND PROCESSOR NUMBER 4
4. C
17. C
18. C REV: 1.3 - HELP DONE IN MPVCD6
19. C - IR,IRQLWA
28. C-
29. C*** * * * HP IR PI ON OF OL ZW ZX
30QFWA+5
43. IF(ICSW.EQ.6) CALL MPSSIR (1)
44. 230 IF(ICSW.EQ.6.ICDANS
55. IF(ICSW.EQ.4) NOPPIR=3
56. IF(NOPIRQ.NE.1.AND.N RETURN
74. 800 RETURN
75. END
\f
MPS1113BK.RB82108 C 4000 => HLP
12. C
13. C RTN: JHPNB - N/C
. C*
24. CC MPVGNC,MPVGNN,MPUBNM,MPURRP,MPUORP,MPUGWP,MPVHPR
25. CS32. COMMON IPBF2(1321),LUCOTB(20),LUCITB(80),LUHFTB(20)
33. EQU=NOPIB
48. NOPIB=10
49. CALL MPVGNN (N)
50. NOP THE CMD IS 'AL', LIST ALL HELP COMMANDS
61. JEN=JHPNB+ISCDL
62.VGNC (NC)
75. IF(ICSW.EQ.6) GO TO 260
76. C*** *****SYNTAX ERROI, LUHFTB, IPBF1)
89. CALL MPUGWP (IPBF1,JP)
90. CALL MPUG RETURN
102. C*** ****ERROR**** HELP MESSAGE NUMBER NOT FOUND
103. 290TER 'HP AL' FOR LIST OF VALID COMMANDS.)
112. 296 FORMAT(14H SYNTAX ERROR., DELETE 'ON' COMMAND
8. C - 2=> 'ON' COMMAND, PLACE IN MAC
20. C WD4 - RANGE
21. C WD5 - 1ST WORD OF THE OF THCS LDB8,LDB16,NERRCD,NOPBAS,IXB
ASE,NOPON,NOPONC,NOPONR,KCFF
32. CS ICNFAULT(3),NERRCD,NERBKP(136),NOPBAS,IXBASE
40. COMMON NOPBKP(14),NOPO,101)
53. 101 FORMAT (/,4X,18HON LIBRARY LISTING,/)
\f
MPS1113BK.RB8
65. N=NC*ICSHF+LSP
66. CALL MPVGNC (NC)
67. IF( '=' OR '>'
79. 135 DO 140 JCND=1,3
80. IF(NC.EQ.IONCND(JCND)).AND.JDOSW.EQ.2) GO TO 918
91. JDSW=1
92. JONSW=1
93.ON FOR 'ALL' DELETE THIS COMMAND
106. JC=MACRO(MCIX+2)
\f
MPS1113O TO (231,240),JDSW
116. 231 WRITE (LULT,232)
117. 232 FORMAT (17H C1. C*** '<', '=' OR '>'
132. CALL MPUSNC(IONCND(N))
133. C*** STUSNC(J)
145. GO TO 260
146. C*** PRINT THE COMMAND
147. 270 AY 04,'75 CHI PAGE178
160. C
161. 300 GO TO (310,320,400),JDOSW(MCIX+2.LT.MCLEN) GO TO 340
174. C*** ERROR '307' MACRO TABLE OVERFLOW
X+3)=JRNG
187. MCEIX=MCIX
188. MACRO(MCEIX)=0
189. CHARACTERS,/)
202. RETURN
203. C*** ERROR '317' CMD NOT TERMINAT 23:39 MAY 04,'75 CHI PAGE180
1. #MPSM7/DE
2. #MPSM7<BI: 15. CALL MPSS7
16. RETURN
17. END
\f
MPS1113BKNTS SET
12. C BP - SET BREAK POINTS
13. C BS - SET BFF,KC8000,MEM,KPGIX,LULTTB,LULT
23. CX *** SYMBOL TABLE VER: 1.2 DAT: 030. COMMON LULTTB(20)
31. EQUIVALENCE (MREA,MREG(4)),(LULT,LULT TO 130
47. 123 WRITE (LULT,903)
48. 130 I=0
49. INX=0140
59. C*** PRINT THIS LINE
60. 150 IF(INX.NE.0) CALL MPUPA1 (2,NB. IF(NOPBKP.EQ.2) NOPBKP=3
75. 220 ICDANS=0
76. LEVEL=2 OR 'BC' COMMAND
88. 250 NERRCD=314
89. GO TO 270
90. C** 103. LEVEL=3
104. GO TO 340
105. 320 LEVEL=2
106. 325(JW,KC7FFF)
115. MEM(KPGIX+2)=1
116. IF(LEVEL.EQ.2) GO TO 10 JLBP=0
130. 365 NERBKP=0
131. CALL MPUGME (JA,J)
132. FORMAT (9H BP STORE)
146. END
\f
MPS1113BK.RB82108 MPUORNAM: MPSWCO VER: 1.3 DAT: 04-26-75 CMP: PD
P-11
5. C PGM: ROUTINE TO 18. C GEN: SET UP FOR VERSION "V13"
19. C
20. C REV: N/A
YMBOL TABLE VER: 1.2 DAT: 05/04/75 ***
31. COMMON /A/ ICOMON
32 SETFIL(1, VNFILE, KMER1, 2HDK, 0, UIC, "200)
43. READ (1, 99, END=90, 2I5, ' ****')
\f
MPS1113BK.RB82108 MPSWCO 23:39 MAY 04,'75 58),KOI(48),LSPSP,LN
O
65. COMMON /A/ LSP,LPDS,LASK,LPOS,LCOMA,LMNS,LP,NOPRMC
72. COMMON /A/ ICPIM,MCSW,MCIX,MCCI,ICIX,ICIX1,ICPI,ICPI1
79. COMMON /A/ NOPBKP,NOPBLA,NOPBHA,NOPWAI,NOPPIR,NOPIRQ
80. COR1,KMER2,KERLUN,KAERHR,KBKFLG,LLSPSP
87. COMMON /A/ IBPWD,ICPWD,ICSHF(20)
94. COMMON /A/ LTBFWI,LTBLWI
95. INTEGER KCOMON(2672)1),KMFDIR(15)),(MEMLWA,KMFDIR(21))
103. EQUIVALENCE (KPGDY2(1),KMFDIR( EQUIVALENCE (MRCF,MREG(14)),(MR
SP,MREG(15))
110. EQUIVALENCE (MRTCE (LUCODY(1),LUCOTB(4)),(LUCI,LUCITB(3))
118. EQUIVALENCE (LUCIDY(1),/17485/,ISCD(10)/17752/,ISCD(11)/18514/
126. DATA ISCD(12)/18512/,ISCD30/
133. DATA ISCD(33)/21331/,ISCD(34)/21570/,ISCD(35)/21536/
134.TA IXL(23)/205/,IXL(24)/603/,IXL(25)/204/,IXL(26)/301/
141. DATA IXL(2148. DATA NAMCOD(4)/90/,NAMCOD(5)/86/,NAMCOD(6)/67
/
149. DATA KO 156. DATA KO(24)/17440/,KO(25)/17232/,KO(26)/22560
/
157. DATA84/
163. DATA KO(45)/21071/,KO(46)/21024/,KO(47)/16723/
164. DATA KO(69)/16968/,KO(70)/18720/,KO(71)/16972/
172. DATA KO(72)/2126967/,KO(94)/21536/,KO(95)/16972/
180. DATA KO(96)/17696/,KO(97)/21314/21592/,KO(118)/21280/,KO(119)/2056
3/
188. DATA KO(120)/18464/,KO(121) KO(141)/21317/,KO(142)/22048/,KO(143)/
17228/
196. DATA KO(144)/17184/03. DATA KOI(10)/105/,KOI(11)/7/,KOI(12)/
107/,KOI(13)/7/
204. DA131/,KOI(40)/133/,KOI(41)/135/
211. DATA KOI(42)/137/,KOI(43)/139/,KOI,LH/72/,LI/73/
217. DATA LN/78/,LO/79/,LQ/81/,LT/84/,LZ/90/,LLBRK/91/NOPRLC/0/,ICBIXL/
0/,NOPRCC/0/,ICPIC/0/,NOPRMC/0/
225. DATA ICPIM/0/,MC/0/,KMFDIR(6)/0/,KMFDIR(7)/0/
232. DATA KMFDIR(8)/0/,KMFDIR(9)/0/,KMFD269/
239. DATA KPGDY2(14)/16707/,KPGDY2(15)/18505/
240. DATA24/,KPGDY2(34)/8224/
247. DATA KPGDY2(35)/8224/,KPGDY2(36)/8224/,KPGDY4. DATA NOPDF/3/
,NOPIB/16/,NOPBAS/16/,IXBASE/3/,NOPBKP/1/
255. D(2)/2/,NOPDY2(3)/2/,NOPDY2(4)/2/,NOPDY2(5)/2/
262. DATA NWDSCS/94/,NWDM/1/,KCOD/2/,KLUN/3/,KEOF/4/
268. DATA KSTA/5/,KOPF/6/,KWD7/7/,KNPG/8/ 275. DATA LUCODY(16)/82
24/,LUCODY(17)/8224/,LUCITB(1)/17225/
276. 46/,LUERTB(2)/257/,LUER/5/,LUERDY(1)/1/
283. DATA LUERDY(2)/0/,LUERDY()/0/,LUCDTB(7)/0/
290. DATA LUCDTB(8)/70/,LUCDTB(9)/17483/,LUCDTB(10)/ DATA LULTDY(7)/
12346/,LULTDY(8)/8224/,LULTDY(9)/8224/
298. DATA LU,LUMFTB(6)/3/,LUMFTB(7)/0/
305. DATA LUMFTB(8)/9/,LUMFTB(9)/1/,LUDVTB(13. DATA KCFOTB(12)/20
48/,KCFOTB(13)/4096/,KCFOTB(14)/8192/
314.
319. DATA KCFZTB(13)/"167777/,KCFZTB(14)/"157777/,KCFZTB(15)/"13
4. ;+ NAM: MPVRCS VER: 1.0 DAT: 04-01-75 CMP: PDP-11
5. ; URN SWITCH SETTING
18. RTS R5
19. .END
\f
MPSMLTR - N/C
13. ; PROD - PRODUCT
14. ;
15. ; FNC: FOR; PICK UP MULTIPLICAND
27. MOV @4(R5),R1 ; PICK UP MULTIP ; NO, CONT
INUE
36. MOV R3,@6(R5) ; YES, R17-74 CMP: PDP-11
5. ; PGM: GET SYSTEM DATE
6. ;
7. ; L .DATE,.PARAM
22. .GLOBL MPVDAT
23. MPVDAT: .DATE 8. ;
9. ; ENT: JUID - N/A
10. ;
11. ; RTN: JUID - UVDEL 23:39 MAY 04,'75 CHI PAGE197
1. #MPVDEL/DE
2. #MPVENAME BLOCK)
15. ;
16. ; FNC: DELETES FILE POINTED TO BY THE FORTR 29. BR E
NDARG
30. ADRLUN: .WORD 0 ; ADDRES
40. ;
41. ; DELETE ERROR
42. ;
43. ERROR: MOVB FI6. ;
7. ; ENT: DIVD - DIVIDEND
8. ; DIVR - DIVISOR
,-(SP)
23. MOV R2,-(SP)
24. MOV R3,-(SP)
IS A "1"
34. CMP #21,R2
35. BNE DIV1
36. ; ADJUST LOOP COUNT
46. BNE DIV2 ; .TITLE MPVGFA
4. ;+ NAM: MPVGFA VER: 1.1 DAT: 10-31-74 CMP: A GIVEN
18. ; FORTRAN LOGICAL UNIT NUMBER.
19. ;
20. ; 1=> FILE IS CONTIGUOUS
31. ; 7 0=> FILE NONEXISTEN JSR R5,MPVBFL ; SET UP
FILENAME AND LINK BLOCKS
44. . RTS R5
53. LFBLCK: .WORD 0 ; START OF LINK BL PGM: BUILD FILENAME A
ND LINK BLOCKS
6. ;
7. ; SYS: ALL
8. ; BY THE FORTRAN LOGICAL UNIT NUMBER, JLUN, AND STORES THEM
19. ; .IDENT /1.0/
30. .MCALL .RADPK,.PARAM
31. .G @2(R5),R3 ; PICK UP LOGICAL UNIT NO.
41. DEC R3
53. ;
\f
MPS1113BK.RB82108 MPVBFL 23:39 MAY 04,'75 CHI UNIT #
62. MOV 2(R3),10(R4) ; PHYSICAL DEVICE NAME
63. ; PROTECTION CODE
71. ;
72. ; FORM RAD50 OF LUN
73. ;
#1,(R4)
85. ;
86. ; RESTORE REGISTERS
87. ;
88. ;
MPSSIM.LDA/DE
103. '#MPSV13/DE
104. '#MPSO30/DE
105. '#MPSSIM.LDA/CO .NAME MPSSIM
4. .NAME MPSO31
5. .NAME MPSO32 1-MPSM1/CC-FTNLIB
13. S2: .FCTR MPSO32-MPSM2/CC-FTNLIB ;<1>
1 22. ***SYSTEM VERSION FILE***
\f
MPS1113BK.RB82108 MPSV13 ELP MESSAGE DATASET/VERSION NUMBER
12. LINE 4 - DEFAULT MACHINE DATASET/VERUL<MPVMUL
13. #MPVDAT<MPVDAT
14. #MPVUID<MPVUID
15. #MPVDEL<MPVDE #MPSDMY.OBJ<MPSLIB.OBJ,MPVUID.OBJ
31. #MPSLIB.OBJ/DE
32. #MPSLIB.OBJ<R FORTRN
46. #MPSWCO<MPSWCO/ON/CO:0/SU
47. $R LINK
48. #MPSWCO<MPYMBOLS" WILL OCCUR DURING
59. $ME ** THE LINKING OF MPSSIM.
60. 3. MPUOSY . . . . 3 1.2 04-01-75 PDP-11
4. MPSS0 .MPUUTD . . . . 16 1.1 01-29-75 PDP-11
12. MPUOMF . . . .. 30 1.2 12-28-74 ALL
20. MPUORP . . . . 33 1.4 03-18-730-74 ALL
28. MPUPA1 . . . . 51 1.2 10-18-74 ALL
36. MPUFNO . . . . 67 1.2 03-18-75 ALL
37. MPUUXBS . . . . 80 1.1 06-04-74 ALL
45. MPURA1 . . . . 81 1.4 03-18-75 ALL
52. MPSSIR . . . . 94 1.4 03-18-75 A 60. MPUSM
E . . . .115 1.3 12-28-74 ALL
61. M8-75 ALL
71. MPUXBY . . . .122 1.2 03-18-75 ALL
PDP-11
80. MPSM3 . . . .132 1.3 04-26-75 PDP-11
89. MPUER1 . . . . 58
90. MPVGC2 . . . .144 1.0 10-01-74 MPSS4 . . . .152 1.4
12-28-74 ALL
100. MPURRB . . . . 2157 1.0 12-29-73 ALL
110. MPSSRG . . . .158 1.0 10-08-74 MPUGMP . . . .116
120. MPUWRP . . . . 35
121. 132. MPUXBS . . . . 80
133. MPUOR . . . . 86
. MPUWRP . . . . 35
144. MPSONL . . . .175 1.4 05-04-75 . . . . 71
156. MPUSNC . . . . 73
157. MPUDAT 04-26-75 PDP-11
167. MPSS7 . . . .181 1.3 11-01-74 ALL
. 78
179. MPVCAD . . . .121
180. MPUXBY . . . 189. MPVUID . . . .196 1.0 10-17-74
PDP-11
190. MPVDEL▶EOF◀