mirror of
https://github.com/simh/simh.git
synced 2026-04-27 12:28:49 +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
63 lines
5.4 KiB
Plaintext
63 lines
5.4 KiB
Plaintext
5 SUBROUTINE 20 SQUARE RT
|
|
E00AU STD ARTHX SQUARE ROOT
|
|
BMI AU1 ALARM IF NEG
|
|
SLT 0008
|
|
NZU AU2 TEST FOR ZRO
|
|
STL ARTHF BREAK UP EXP
|
|
RAL 8003 AND MANTISSA
|
|
SLT 0002 CALCULATE
|
|
STL ARTHE INITIAL X
|
|
AUP AU8 AU3
|
|
AU4 RAU ARTHE CALCULATE
|
|
DVR ARTHG NEXT X
|
|
SLO 8001 VALUE
|
|
NZE AU5
|
|
BMI AU5 TEST FOR END
|
|
ALO 8001
|
|
ALO 8001 AU3
|
|
AU3 DVR AU9 RECYCLE
|
|
STL ARTHG AU4
|
|
AU5 RAL ARTHF MODIFY
|
|
ALO AU10 EXPONENT
|
|
SRT 0008
|
|
DIV AU9
|
|
ALO 8003
|
|
STL ARTHF TEST EVEN OR
|
|
NZU AU6 ODD EXP
|
|
RAU ARTHG EXP ODD
|
|
SRT 0001
|
|
MPY AU11 MPY BY SQRT
|
|
SRD 0010 AU7 OF 10
|
|
AU7 SLT 0002
|
|
ALO ARTHF ARTHX GO TO EXIT
|
|
AU6 RAL ARTHG EXP EVEN
|
|
SRD 0002 AU7
|
|
AU2 RAL 8003 ARTHX STORE ZERO
|
|
AU1 LDD ARTHX 3201 SQRT ALARM
|
|
AU8 00 0000 0001 CONSTANTS
|
|
AU9 00 0000 0002
|
|
AU10 49 0000 0000
|
|
AU11 03 1622 7766
|
|
5 LAST CARD SUBROUTINE 20
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
?
|
|
|
|
? ? ????
|