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