Trailing-Edge
-
PDP-10 Archives
-
decuslib10-12
-
43,50547/fibsrh.mac
There is 1 other file named fibsrh.mac in the archive. Click here to see a list.
ENTRY FIBSRH
TITLE FIBSRH - TRANSLATED BY MACRO
;ACS
SIXBIT /FIBSRH/ ;0 465142,636250
FIBSRH: MOVM 1,@2(16) ;1 214076,2
MOVSI 4,-33 ;2 205200,777745
FIBS03: CAMG 1,FIBTBL(4) ;3 317044,37
JRST FIBS12 ;4 254000,12
AOBJN 4,FIBS03 ;5 253200,3
TDZA 1,1 ;6 634040,1
FIBS07: MOVNI 1,(2) ;7 211042,0
FIBS10: MOVEM 1,@3(16) ;10 202076,3
POPJ 17, ;11 263740,0
FIBS12: MOVE @(16) ;12 200036,0
MOVEI 2,@1(16) ;13 201136,1
SOJ 2, ;14 360100,0
HRRM 2,FIBS24 ;15 542100,24
HRLI 2,311001 ;16 505100,311001
SKIPGE @2(16) ;17 335036,2
TLO 2,7000 ;20 661100,7000
MOVEM 2,FIBS26 ;21 202100,26
SETZB 2,3 ;22 403100,3
MOVEI 4,(4) ;23 201204,0
FIBS24: CAMN (1) ;24 316001,0
JRST FIBS10 ;25 254000,10
FIBS26: CAM (1) ;26 310001,0
SKIPA 2,1 ;27 334100,1
MOVEI 3,(1) ;30 201141,0
FIBS31: SOJL 4,FIBS07 ;31 361200,7
MOVE 1,FIBTBL(4) ;32 200044,37
ADDI 1,(2) ;33 271042,0
CAIGE 1,(3) ;34 305043,0
JRST FIBS24 ;35 254000,24
JRST FIBS31 ;36 254000,31
FIBTBL: RADIX 5+5
1 ;37
2 ;40
3 ;41
5 ;42
8 ;43
13 ;44
21 ;45
34 ;46
55 ;47
89 ;50
144 ;51
233 ;52
377 ;53
610 ;54
987 ;55
1597 ;56
2584 ;57
4181 ;60
6765 ;61
10946 ;62
17711 ;63
28657 ;64
46368 ;65
75025 ;66
121393 ;67
196418 ;70
317811 ;71
RADIX 8
END