mirror of
https://github.com/pkimpel/retro-220.git
synced 2026-04-19 01:08:27 +00:00
73 lines
3.5 KiB
Plaintext
73 lines
3.5 KiB
Plaintext
.00.0 0100 ERROR DEFN 100
|
|
.00.0 0000 ATAN CRB
|
|
.00.0 0001 LDB 8 ATAN
|
|
.00.0 0002 CFA 6 ERROR+51,00 =1.0=
|
|
.00.0 0003 STA 6 ERROR+52
|
|
.00.0 0004 STB 8 C+,44
|
|
.00.0 0005 BCL 8 B+
|
|
.00.0 0006 DFL 8 C+,44,1
|
|
.00.0 0007 F4248 5010,10,+5099999999
|
|
.00.0 0008 FDV 6 ERROR+52
|
|
.00.0 0009 *B CFA 8 *-2,00
|
|
.00.0 0010 BCL 8 A+
|
|
.00.0 0011 SLA 2
|
|
.00.0 0012 STA 6 ERROR+52
|
|
.00.0 0013 MUL 6 ERROR+52
|
|
.00.0 0014 STA 6 ERROR+49 B
|
|
.00.0 0015 MUL 8 +0049017591 A1
|
|
.00.0 0016 ADD 8 +0565030980 A2
|
|
.00.0 0017 MUL 6 ERROR+49 B
|
|
.00.0 0018 ADD 8 +1453567135 A3
|
|
.00.0 0019 MUL 6 ERROR+49 B
|
|
.00.0 0020 ADD 8 +1000000000 A4
|
|
.00.0 0021 STA 6 ERROR+50 C Z
|
|
.00.0 0022 CAD 8 +0008561189 B1
|
|
.00.0 0023 MUL 6 ERROR+49 B
|
|
.00.0 0024 ADD 8 +0280504541 B2
|
|
.00.0 0025 MUL 6 ERROR+49 B
|
|
.00.0 0026 ADD 8 +1120234014 B3
|
|
.00.0 0027 MUL 6 ERROR+49 B
|
|
.00.0 0028 ADD 8 +1000000000 B4
|
|
.00.0 0029 MUL 6 ERROR+52
|
|
.00.0 0030 SRT 2
|
|
.00.0 0031 DIV 6 ERROR+50 C
|
|
.00.0 0032 STA 6 ERROR+50 C
|
|
.00.0 0033 IFL 6 ERROR+50,11,5
|
|
.00.0 0034 CAD 6 ERROR+50 C
|
|
.00.0 0035 *C IBB - 0,0
|
|
.00.0 0036 CAD 8 +5115707963 PI/2
|
|
.00.0 0037 LDR 6 ERROR+52
|
|
.00.0 0038 SLT 0
|
|
.00.0 0039 FSU 6 ERROR+50 C
|
|
.00.0 0040 BUN - 1
|
|
.00.0 0041 *A STA 6 ERROR+52
|
|
.00.0 0042 FMU 6 ERROR+52
|
|
.00.0 0043 STA 6 ERROR+49 B
|
|
.00.0 0044 FMU 8 -5014281428 C1
|
|
.00.0 0045 FAD 8 +5020000000 C2
|
|
.00.0 0046 FMU 6 ERROR+49 B
|
|
.00.0 0047 FSU 8 +5033333333 C3=-1/3
|
|
.00.0 0048 FMU 6 ERROR+49 B
|
|
.00.0 0049 FMU 6 ERROR+52
|
|
.00.0 0050 FAD 6 ERROR+52
|
|
.00.0 0051 STA 6 ERROR+50 C
|
|
.00.0 0052 BUN 8 C-
|
|
.00.0 0053 LOCN LOCN *+12
|
|
.00.0 0065 CNST 40000990000
|
|
.00.0 0066 CNST $ARCTAN,REAL(REAL) ERROR=1 $
|
|
.00.0 0072 CNST 90000000000
|
|
.00.0 0073 LOCN LOCN
|
|
.00.0 0053 FINI ATAN
|
|
53 +1000000000
|
|
54 +5099999999
|
|
55 +5033333333
|
|
56 +5020000000
|
|
57 +0280504541
|
|
58 -5014281428
|
|
059 +1453567135
|
|
60 +0049017591
|
|
61 +0008561189
|
|
62 +1120234014
|
|
63 +0565030980
|
|
64 +5115707963
|