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