1
0
mirror of https://github.com/pkimpel/retro-220.git synced 2026-04-18 08:57:01 +00:00
Files
pkimpel.retro-220/software/BALGOL/BALGOL-Library/SIN.baca

64 lines
2.6 KiB
Plaintext

.00.0 0100 ERROR DEFN 100
.00.0 0000 SIN CRB
.00.0 0001 LDR 8 SIN2
.00.0 0002 STR 8 F+,04
.00.0 0003 CLL 6 ERROR+52
.00.0 0004 FMU 8 +5031830989 1/PI
.00.0 0005 SLT 2
.00.0 0006 STR 8 EXP,02
.00.0 0007 LDB 8 EXP
.00.0 0008 IBB 8 A+,9949
.00.0 0009 DBB 8 B+,7
.00.0 0010 SLT - 18
.00.0 0011 STA 6 ERROR+52
.00.0 0012 CAD 8 *+1
.00.0 0013 SLT 50
.00.0 0014 *A SLT 18
.00.0 0015 STA 6 ERROR+50 C
.00.0 0016 FAD 6 ERROR+50 C
.00.0 0017 CFA 6 ERROR+51,00 =1.0=
.00.0 0018 BCL 8 D+
.00.0 0019 LSA 0
.00.0 0020 FSU 8 +5120000000
.00.0 0021 SLT 0
.00.0 0022 *D STA 6 ERROR+50 C
.00.0 0023 FMU 6 ERROR+50 C
.00.0 0024 STA 6 ERROR+49 B
.00.0 0025 FMU 8 +4715148419
.00.0 0026 FAD 8 -4846737656
.00.0 0027 FMU 6 ERROR+49 B
.00.0 0028 FAD 8 +4979689679
.00.0 0029 FMU 6 ERROR+49 B
.00.0 0030 FAD 8 -5064596371
.00.0 0031 FMU 6 ERROR+49 B
.00.0 0032 FAD 8 +5057079632
.00.0 0033 FMU 6 ERROR+50 C
.00.0 0034 FAD 6 ERROR+50 C
.00.0 0035 STA 6 ERROR+50 C
.00.0 0036 CAD 6 ERROR+48 =5(11)=
.00.0 0037 MUL 6 ERROR+52
.00.0 0038 CAD 6 ERROR+50 C
.00.0 0039 LDB 8 SIN
.00.0 0040 BZR - 0
.00.0 0041 CSU 6 ERROR+50 C
.00.0 0042 BUN - 0
.00.0 0043 *B LDB 8 SIN
.00.0 0044 *F LDR 8 SIN1
.00.0 0045 BUN 6 ERROR+14
.00.0 0046 SIN2 HLT 8 SIN1
.00.0 0047 SIN1 CNST $SIN$
.00.0 0048 EXP 0
.00.0 0049 LOCN LOCN *+7
.00.0 0056 CNST 40000990000
.00.0 0057 CNST $SIN,REAL(REAL) ERROR=1 $
.00.0 0062 CNST 90000000000
.00.0 0063 LOCN LOCN
.00.0 0049 FINI SIN
49 +5120000000
50 -5064596371
051 -4846737656
052 +4979689679
053 +5031830989
-54 +5057079632
55 +4715148419