download PDF (32MB)

- ou/npu/citiLiu ljvu isuiuui
0001 32807 FORTH
0002 32807 WORD 'NDUP' ( n l . . . n N N - > n l . . . n N
0002 32807 2E723 C O N ( 5 ) # 3 2 7 E 2 nl . nN )
0002 3280C 48 CON(2) #80 + 1304
0002 3280E E44455 NIBASC 'NDU f
0002 32814 OD C O N ( 2 ) # 8 0 + -p.
0002 32816 B1823 C O N ( 5 ) * + 5 ■
0003 328 IB 143 A=DAT1 A A: =N
0004 328 IE 100 R0 = A R0:=N, store!
0005 32821 D6 C = A A C: =N
0006 32823 C6 C = C + C A C:=2*N
0007 32825 C6 C = C + C A C:=4*N
0008 32827 C2 C = C + A A C:=5*N
0009 32829 109 R1=C Rl:=5*N, store!
0010 3282C 133 ADlEX A : = D l : = R I G H T
0011 3282F 102 R2 = A R2:=RIGHT, store!
0012 32832 CA A = A + C A A : = D 1 + 5 * N : = L E F T
0013 32834 7230 GOSUB NDUP3 C: =nl
0014 32838 145 NDUP1 DAT1=C A DATI:=nl
0015 3283B 128 CROEX C:=N, recal 1 !
0016 3283E CE C=C-1 A C:=N:=N-1
0017 32840 8AE ?c#o A end?
0018 32843 40 GOYES NDUP2 no, continue!
0019 32845 03 RTNCC end!
0020 32847 128 NDUP2 CROEX R0:=N:=N-1, store!
0021 3284A 113 A = R3 A:=LEFT, recall!
0022 3284D 131 D1=A Dl:=LEFT
0023 32850 1C4 D1=D1- 5 Dl:=LEFT:=LEFT'
0024 32853 133 AD1EX A:=LEFT
0025 32856 7010 GOSUB NDUP3 C: -nl
0026 3285A 1C4 D1=D1- 5 Dl :=RIGHT:=RIGHT'
0027 3285D 133 ADlEX A:=RIGHT
0028 32860 102 R2 = A R2:=RIGHT, Store!
0029 32863 133 ADlEX Dl :=RIGHT
0030 32866 61DF GOTO NDUP1
0031 3286A 103 NDUP3 R3 = A R3:=LEFT, store!
0032 3286D 133 ADlEX Dl:=LEFT
0033 32870 147 C=DAT1 A C: =nl
0034 32873 112 A = R2 A:=RIGHT, recall!
0035 32876 131 D1=A Dl : =RIGHT
0036 32879 01 RTN return!
0037 3287B END
PAGE 002
Forth Assembler
FiLeNd
NDUP 1
NDUP2
NDUP3
3287B
32838
32847
3286A
SOURCE : NDUP
OBJECT : FORTHRAM
LISTING : N
D AT E : 0 1 : 1 0 : 4 7 o n 8 7 / 0 2 / 2 6
ERRORS : 000
xxxx SYMBOL TABLE xxxx
NDUP
Das FORTH-Wort "NDUP" ist eine Verallgemeinerung
der im HP-71 FORTH Assembler
vorkompilierten Worter "DUP" und "2DUP",
also einer Erweiterung von 1 bzw. 2 auf N Terme.
Anwenden laBt sich das Wort z.B. bei Rekursionen.
Die Funktionsweise ist hoffentlich
aus dem implementierten Kommentar heraus
-hinreichend ersichtlich. Nachstehend noch 2
Beispiele:
1)21 34 65 78 4 NDUP .S ENDLINE
78 65 34 21 78 65 34 21 OK {8}
2) 3567 37 2 NDUP .S ENDLINE
37 3567 37 3567 OK {4}
Dipl. Ing. Georg Urbanski (2064)
Berliner Str. 43
6101 Messel
^06158/1217
87.3.27