1
0
mirror of https://github.com/pkimpel/retro-220.git synced 2026-02-26 16:53:53 +00:00
Files
pkimpel.retro-220/software/BALGOL/BALGOL-Library/ACOS.card

29 lines
4.5 KiB
Plaintext

1 ATAN DEFN 100 .00.0
1 ROMXX DEFN 200 .00.0
1 ERROR DEFN 300 .00.0
1 ACOS NOP .00.0
1 STA 6 ERROR+52 .00.0
1 LDB 8 ACOS .00.0
1 BZA 6 ROMXX+39 .00.0
1 LDR 8 ACOS2 .00.0
1 STP 6 ROMXX .00.0
1 BUN 6 ROMXX+4 .00.0
1 FDV 6 ERROR+52 .00.0
1 STP 6 ATAN .00.0
1 BUN 6 ATAN .00.0
1 LDB 8 ACOS .00.0
1 LDR 6 ERROR+52 .00.0
1 SLT 0 .00.0
1 BPA - 0 .00.0
1 FAD 8 +5131415927 .00.0
1 BUN - 0 .00.0
1 ACOS2 HLT 8 ACOS1 .00.0
1 ACOS1 CNST $ACOS$ .00.0
1 X CNST 0 .00.0
1 LOCN LOCN *+1 .00.0
1 CNST 40000990000 .00.0
1 CNST $ARCCOS,REAL(REAL) ARCTAN=1 ROMXX=2 ERROR=3 $ .00.0
1 CNST 90000000000 .00.0
1 LOCN LOCN .00.0
1 FINI ACOS .00.0