mirror of
https://github.com/simh/simh.git
synced 2026-05-03 06:28:41 +00:00
13cb294274
New Hardware support: - IBM 653 Storage Unit: provides machine opcodes for Floating Point, Immediate Access Storage (IAS), Three Index registers, Cards Punch-read synchronizers 2 and 3. New Software included: - FORTRANSIT: version II (S), plus run time PACKAGE with standard Fortran functions. - Reorganized sw directory, separating each language in its own folder. Each one Includes a 00_readme.txt file with restoration notes and comments. New features: - Support for SOAP opcode mnemonics in addition to regular IBM mnemonics - FAST / REALTIME CPU options - PROP pseudo register - CARDDECK ECHOLAST command
81 lines
7.1 KiB
Plaintext
81 lines
7.1 KiB
Plaintext
5 SUBROUTINE 21 COSINE
|
|
E00AV STD ARTHX BEGIN COSINE
|
|
SLT 0008 ARGUMENT
|
|
STU ARTHF ALARM IF PWR
|
|
RSM 8002 OVERSCALE
|
|
ALO AV1 COSX EQUALS
|
|
BMI AV2 ONE IF PWR
|
|
SLO AV3 UNDERSCALE
|
|
BMI AV4
|
|
SRT 0004
|
|
ALO AV5
|
|
STL AV6
|
|
RAU ARTHF FORM
|
|
MPY AV7 AV6 FRACTIONAL
|
|
AV6 HLT AV6 AV23 AND INTGRL
|
|
AV23 STL ARTHG PARTS
|
|
RAU 8003
|
|
MPY AV8 FORM S AS
|
|
STL ARTHE ONE MINUS
|
|
RSM ARTHG TWICE ABVAL
|
|
SML 8001 OF FRACTNL
|
|
ALO AV9 PART
|
|
RAU 8002
|
|
STU ARTHF
|
|
MPY 8001 FORM SINE
|
|
STU ARTHG
|
|
RAU AV16 POLYNOMIAL
|
|
MPY ARTHG APPROXIMATOR
|
|
RAU 8003
|
|
AUP AV15
|
|
MPY ARTHG
|
|
RAU 8003
|
|
AUP AV14
|
|
MPY ARTHG
|
|
RAU 8003
|
|
AUP AV13
|
|
MPY ARTHG
|
|
SRT 0001
|
|
RAU 8003
|
|
AUP AV12 EQUALS ONE
|
|
MPY ARTHF
|
|
SCT 0000
|
|
BOV AV19
|
|
STL ARTHF
|
|
RAL 8003 ROUND
|
|
SRT 0002 AND
|
|
STL ARTHG ADJUST
|
|
RSU ARTHF POWER
|
|
SRT 0002
|
|
BMI AV25
|
|
SUP 8003
|
|
ALO AV8 AV24
|
|
AV24 AUP ARTHG
|
|
SLT 0002 AV22
|
|
AV22 STU ARTHF DETERMINE
|
|
RAU ARTHE SIGN OF
|
|
NZU AV20 RESULT
|
|
RSL ARTHF ARTHX
|
|
AV20 RAL ARTHF ARTHX
|
|
AV25 SUP 8003
|
|
SLO AV8 AV24
|
|
AV2 RAL ARTHE OVERSCALE
|
|
LDD ARTHX 3211 DISPLAY
|
|
AV4 RAL AV21 ARTHX COSX IS ONE
|
|
AV19 RAL 8002 COSX IS ZERO
|
|
SLO 8001 ARTHX
|
|
AV17 RAU AV21 AV22 COSX IS PLUS
|
|
AV1 57 0000 0000 OR MINUS 1
|
|
AV3 11 0000 0000
|
|
AV5 SRD 0011 AV23
|
|
AV7 31 8309 8862
|
|
AV8 50 0000 0000
|
|
AV9 99 9999 9999
|
|
AV12 15 7079 6318
|
|
AV13 - 64 5963 7111
|
|
AV14 07 9689 6793
|
|
AV15 - 00 4673 7656
|
|
AV16 00 0151 4842
|
|
AV21 10 0000 0050
|
|
5 LAST CARD SUBROUTINE 21
|