08027162ca
- Integration with updated sim_card API - Addition of MT (Mag Tape) device - Addition of DSK (Disk) device - Build time simulator test
22 lines
No EOL
1.4 KiB
Text
22 lines
No EOL
1.4 KiB
Text
0001 1 EXAMPLE CALCULATE F OF X
|
|
0002
|
|
0003 BLR 1951 1960 READ AREA
|
|
0004 P0001 BLR 27 P0002 PUNCH AREA
|
|
0005 START RAU ONE 1F SET X 0004 +60 0007 0011
|
|
0006 1 STU P0001 TO 1 0011 +21 0027 0030
|
|
0007 MPY A CALCULATE 0030 +19 0033 0003
|
|
0008 ALO B F 0003 +15 0006 0061
|
|
0009 RAU 8002 0061 +60 8002 0019
|
|
0010 MPY P0001 0019 +19 0027 0047
|
|
0011 ALO C 0047 +15 0000 0005
|
|
0012 STL P0002 0005 +20 0028 0031
|
|
0013 WR1 P0001 PUNCH 0031 +71 0027 0037
|
|
0014 RAU P0001 0037 +60 0027 0081
|
|
0015 SUP XMAX IS X MAX 0081 +11 0034 0039
|
|
0016 NZU 9876 0039 +44 0043 9876
|
|
0017 AUP 101 1B INCREASE X 0043 +10 0046 0011
|
|
0018
|
|
0019 ONE 00 0000 0001 CONSTANTS 0007 +00 0000 0001
|
|
0020 XMAX 00 0000 0100 0034 +00 0000 0100
|
|
0021 101 00 0000 0101 0046 +00 0000 0101
|
|
0022 END |