IBM1620-Baseball/gotran_demo.txt at master · mdoege/IBM1620-Baseball · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
$ simh-i1620 gotran.simh

IBM 1620 simulator V3.12-5

HALT instruction, PC: 18168 (B 07362,00000)

Enter "c" to start the machine when it halts.

sim> c
>      TP=0.10471975

>      X=0.0

>      DO 3 I=1,31

>      F=SIN(X)

>      Y=50.*F

>      PRINT, X

>      PLOT (Y,+)

> 3    X=X+TP

>      END


HALT instruction, PC: 8526 (B 00488,01602)
sim> c

 0.0    +
 .10471975           +
 .20943950                +
 .31415925                     +
 .41887900                          +
 .52359875                              +
 .62831850                                   +
 .73303825                                       +
 .83775800                                           +
 .94247775                                              +
 1.0471975                                                 +
 1.1519172                                                   +
 1.2566369                                                     +
 1.3613566                                                      +
 1.4660763                                                       +
 1.5707960                                                        +
 1.6755157                                                       +
 1.7802354                                                      +
 1.8849551                                                     +
 1.9896748                                                   +
 2.0943945                                                 +
 2.1991142                                              +
 2.3038339                                           +
 2.4085536                                       +
 2.5132733                                   +
 2.6179930                               +
 2.7227127                          +
 2.8274324                     +
 2.9321521                +
 3.0368718           +
 3.1415915      +
END OF PROGRAM


HALT instruction, PC: 1854 (TDM 06107,00001)
sim>