File: DSTROY.LS of Disk: V50/Source/Source-Listing-FORTRAN-2
(Source file text)
RALF V50A 24-JUL-20 PAGE 1
SECT DSTROY
/ SUBROUTINE DSTROY(OBJECT)
/ C
/ C PERMANENTLY ELIMINATE "OBJECT" BY MOVING TO A NON-EXISTENT LOCATION.
/ C
/
/ IMPLICIT INTEGER (A-Z)
EXTERN MOVE
00000 1030 JA #ST
00001 0051
00002 0423 TEXT +DSTROY+
00003 2422
00004 1731
00005 1100 DSTXR, SETX XRDST
00006 0021
00007 1110 SETB BPDST
00010 0013
00011 1030 JA .+3
00012 0014
00013 0000 BPDST, F 0.0
00014 0000
00015 0000
00016 0000 F 0.0
00017 0000
00020 0000
00021 0000 XRDST, F 0.0
00022 0000
00023 0000
00024 0000 F 0.0
00025 0000
00026 0000
00027 0000 ZERO, F 0.0
00030 0000
00031 0000
ORG 10*3+BPDST
00043 0040 FNOP
00044 1030 JA DSTXR
00045 0005
00046 0000 0
00047 1030 DSTRTN, JA .
00050 0047
BASE 0
00051 0006 #ST, STARTD
00052 0210 FLDA 10*3
00053 6400 FSTA DSTRTN
00054 0047
00055 0200 FLDA 0
00056 1100 SETX XRDST
00057 0021
00060 1110 SETB BPDST
00061 0013
BASE BPDST
00062 6200 FSTA BPDST
00063 0101 LDX 1,1
00064 0001
00065 0610 FLDA% BPDST,1
RALF V50A 24-JUL-20 PAGE 1-1
00066 6400 FSTA CALLPT
00067 0075
00070 0005 STARTF
/ CALL MOVE(OBJECT,0)
/ RETURN
/ END
00071 1130 JSR MOVE
00072 0000
00073 1030 JA DSTRTN
00074 0047
00075 1030 CALLPT, JA .
00076 0075
00077 1030 JA ZERO
00100 0027
RALF V50A 24-JUL-20 PAGE 1-2
NO ERRORS
9 SYMBOLS, NO ABS REFS
# C 00000 #MAIN S 00000 #ST 00051 BPDST 00013
CALLPT 00075 DSTROY S 00101 DSTRTN 00047 DSTXR 00005
MOVE X 00000 XRDST 00021 ZERO 00027