File: LTR.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1 / LTR (LOAD TRUTH) EMULATION ROUTINES / / / VERSION 50A 23-MAY-80 WVDM / / SECT #LTR / ENTRY #EQ / 00000 0400 FLDA TRUE 00001 0073 00002 0005 STARTF 00003 1030 #EQ, JA . 00004 0003 00005 1000 JEQ #EQ-3 00006 0000 00007 0002 FCLA 00010 1030 JA #EQ-1 00011 0002 / ENTRY #NE / 00012 1030 #NE, JA . 00013 0012 00014 1000 JEQ .+4 00015 0020 00016 0400 FLDA TRUE 00017 0073 00020 0005 STARTF 00021 1030 JA #NE 00022 0012 / ENTRY #GE / 00023 0400 FLDA TRUE 00024 0073 00025 0005 STARTF 00026 1030 #GE, JA . 00027 0026 00030 1010 JGE #GE-3 00031 0023 00032 0002 FCLA 00033 1030 JA #GE-1 00034 0025 / ENTRY #LE / 00035 0400 FLDA TRUE 00036 0073 00037 0005 STARTF 00040 1030 #LE, JA . 00041 0040 00042 1020 JLE #LE-3 00043 0035 00044 0002 FCLA RALF V50A 8-APR-92 PAGE 1-1 00045 1030 JA #LE-1 00046 0037 / ENTRY #GT / 00047 0400 FLDA TRUE 00050 0073 00051 0005 STARTF 00052 1030 #GT, JA . 00053 0052 00054 1060 JGT #GT-3 00055 0047 00056 0002 FCLA 00057 1030 JA #GT-1 00060 0051 / ENTRY #LT / 00061 0400 FLDA TRUE 00062 0073 00063 0005 STARTF 00064 1030 #LT, JA . 00065 0064 00066 1050 JLT #LT-3 00067 0061 00070 0002 FCLA 00071 1030 JA #LT-1 00072 0063 / 00073 0001 TRUE, F 1.0 00074 2000 00075 0000 00076 0000 F 0.0 00077 0000 00100 0000 RALF V50A 8-APR-92 PAGE 1-2 NO ERRORS 8 SYMBOLS, NO ABS REFS # C 00000 #EQ 00003 #GE 00026 #GT 00052 #LE 00040 #LT 00064 #LTR S 00101 #MAIN S 00000 #NE 00012 TRUE 00073