1
0
mirror of https://github.com/pkimpel/retro-220.git synced 2026-02-10 02:00:38 +00:00
Files
pkimpel.retro-220/software/BALGOL/BALGOL-Library/LOG.baca

95 lines
4.3 KiB
Plaintext

.00.0 0100 ERROR DEFN 100
.00.0 0000 LOG CRB
.00.0 0001 BMA 8 F+
.00.0 0002 BZA 8 F+
.00.0 0003 SRT 2
.00.0 0004 STA 8 EXP,42
.00.0 0005 SLT 4
.00.0 0006 CFA 8 CP1+
.00.0 0007 BCL 8 SMALL
.00.0 0008 CFA 8 CP2+
.00.0 0009 BCH 8 SMALL
.00.0 0010 SRT 1
.00.0 0011 ADD 8 +316227766
.00.0 0012 STA 6 ERROR+52
.00.0 0013 SUB 8 +632455532
.00.0 0014 *CP1 F4246 1014,15,ERROR+52
.00.0 0015 STA 6 ERROR+52
.00.0 0016 MUL 6 ERROR+52 V
.00.0 0017 STA 6 ERROR+49 B V**2
.00.0 0018 MUL 8 +0410597044 A1
.00.0 0019 ADD 8 +0057228327 A2
.00.0 0020 MUL 6 ERROR+49 B
.00.0 0021 ADD 8 +0250341093 A3
.00.0 0022 MUL 6 ERROR+49 B
.00.0 0023 ADD 8 +0282433571 A4
.00.0 0024 MUL 6 ERROR+49 B
.00.0 0025 ADD 8 +0400193033 A5
.00.0 0026 MUL 6 ERROR+49 B
.00.0 0027 ADD 8 +0666661710 A6
.00.0 0028 MUL 6 ERROR+49 B
.00.0 0029 ADD 8 +2000000037 A7
.00.0 0030 MUL 6 ERROR+52
.00.0 0031 ADD 8 +1151292547 A8
.00.0 0032 *A BFA 8 D+,22,00
.00.0 0033 *CP2 F424 9858,48,1
.00.0 0034 IBB 8 A-,1
.00.0 0035 *D STA 9 RGN,08
.00.0 0036 *B CAD 8 EXP
.00.0 0037 FSU 8 +5251000000
.00.0 0038 BCL 8 *+2
.00.0 0039 FAD 6 ERROR+51 =1.0=
.00.0 0040 FMU 8 +5123025851
.00.0 0041 FAD 9 RGN
.00.0 0042 LDB 8 LOG
.00.0 0043 BUN - 0
.00.0 0044 SMALL BFA 8 A+,11,1
.00.0 0045 SRT 1
.00.0 0046 SUB 8 +2000000000
.00.0 0047 *A FAD 8 +1000000000
.00.0 0048 BZA 8 E+
.00.0 0049 STA 6 ERROR+52
.00.0 0050 IFL 6 ERROR+52,22,39
.00.0 0051 CAD 6 ERROR+52
.00.0 0052 FMU 8 -5025000000
.00.0 0053 FAD 8 +5033333333
.00.0 0054 FMU 6 ERROR+52
.00.0 0055 FAD 8 -5050000000
.00.0 0056 FMU 6 ERROR+52
.00.0 0057 FMU 6 ERROR+52
.00.0 0058 FAD 6 ERROR+52
.00.0 0059 *E STA 8 RGN+3
.00.0 0060 IBB 8 B-,3
.00.0 0061 *F LDR 8 $LOG$
.00.0 0062 LDB 8 LOG
.00.0 0063 BUN 6 ERROR+7
.00.0 0064 RGN CNST 4900000000
.00.0 0065 5000000000
.00.0 0066 5100000000
.00.0 0067 0000000000
.00.0 0068 EXP 5200000000
.00.0 0069 LOCN LOCN *+18
.00.0 0087 CNST 40000990000
.00.0 0088 CNST $LOG,REAL(REAL) ERROR=1 $
.00.0 0093 CNST 90000000000
.00.0 0094 LOCN LOCN
.00.0 0069 FINI LOG
69 +1000000000
70 +2000000000
71 +5033333333
72 +5123025851
73 +0316227766
74 +0057228327
75 +0632455532
76 +0400193033
77 -5025000000
78 $LOG
79 +0666661710
80 +2000000037
81 +0410597044
82 -5050000000
83 +5251000000
84 +0250341093
85 +0282433571
86 +1151292547