ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:08 2020
Source File: \t2stop.asm
1 | *************************************************** T2B00010
2 | * SUBROUTINE NAME * T2B00020
3 | * FULL NAME- FORTRAN 'STOP' STATEMENT * T2B00030
4 | * CODE NAME- STOP * T2B00040
5 | * PURPOSE- SERVICE THE FORTRAN 'STOP' * T2B00050
6 | * STATEMENT BY BRINGING EXECUTION TO * T2B00060
7 | * A WAIT DISPLAYING THE REQUESTED CODE. * T2B00070
8 | * METHOD- N/A * T2B00080
9 | * CAPABILITIES AND LIMITATIONS- N/A * T2B00090
10 | * SPECIAL FEATURES- N/A * T2B00100
11 | * ADDITIONAL INFORMATION- N/A * T2B00110
12 | *************************************************** T2B00120
LIBF STOP
14 | LIBR T2B00140
15 | * CALLING SEQ LIBF STOP T2B00150
16 | * DC CONST ADDR T2B00160
17 | ENT STOP T2B00170
0000 1000 18 | STOP SLA 0 NOP T2B00180
0001 6680 0000 19 | LDX I2 *-* PICK UP ADDR OF CONSTANT T2B00190
0003 C400 0032 20 | LD L 50 T2B00200
0005 4C20 0003R 21 | BSC L *-4,Z T2B00210
0007 C680 0000 22 | LD I2 *-* LOAD CONSTANT IN AREG T2B00220
0009 4400 0028 23 | BSI L /28 WAIT T2B00230
000B 6038 24 | LDX /38 T2B00240
000C 25 | END T2B00250
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
STOP 0000R 18