File: FPPT5.LS of Disk: Disks/Working/Build-11-03-07
(Source file text)
RALF V50A 2-FEB-23 PAGE 1
EXTERN DBLE
EXTERN DLOG
00000 1030 JA #ST
00001 0141
#XR, ORG .+10
00012 1501 TEXT +MAIN +
00013 1116
00014 4040
00015 1100 #RET, SETX #XR
00016 0002
00017 1110 SETB #BASE
00020 0023
00021 1030 JA .+3
00022 0024
#BASE, ORG .+6
ORG #BASE+30
00053 0040 FNOP
00054 1030 JA #RET
00055 0015
00056 0040 FNOP
00057 0000 #GOBAK, 0;0
00060 0000
#DPT, ORG .+14
DPCHK
DUMMY, ORG .+0006
I, ORG .+0003
#TMP, ORG .+0011
00117 0000 #LIT, 0000
00120 0000 0000
00121 0000 0000
00122 0001 0001
00123 2000 2000
00124 0000 0000
00125 0002 0002
00126 3000 3000
00127 0000 0000
00130 0003 0003
00131 2000 2000
00132 0000 0000
00133 0003 0003
00134 3000 3000
00135 0000 0000
00136 0021 0021
00137 3032 3032
00140 4000 4000
#LBL=.
ORG #LBL
#ST, BASE #BASE
00141 1110 SETB #BASE
00142 0023
00143 1100 SETX #XR
00144 0002
00145 0100 LDX 0002,0
00146 0002
00147 0100 LDX 0003,0
00150 0003
RALF V50A 2-FEB-23 PAGE 1-1
EXTERN #WRITO
00151 3000 TRAP3 #WRITO
00152 0000
00153 1030 JA #LIT+0011
00154 0130
00155 1030 JA #1+2
00156 0165
EXTERN #RENDO
00157 3000 TRAP3 #RENDO
00160 0000
00161 0100 LDX 0004,0
00162 0004
00163 1030 #1, JA .+0015
00164 0200
00165 4050 4050
00166 5757 5757
00167 5757 5757
00170 5461 5461
00171 3054 3054
00172 4724 4724
00173 0523 0523
00174 2440 2440
00175 0620 0620
00176 2047 2047
00177 5100 5100
00200 0100 LDX 0005,0
00201 0005
00202 0224 FLDA #LIT+0000
00203 0050 STARTE
00204 6216 FSTA DUMMY
00205 0100 LDX 0006,0
00206 0006
00207 0005 STARTF
00210 0225 FLDA #LIT+0003
00211 6220 FSTA I
--US--
00212 0000 #G00 0000
00213 0137 00136 0021 0021
00214 3137 00137 3032 3032
00215 4140 00140 4000 4000
#LBL=.
ORG #LBL
--MD--
#ST, BASE #BASE
--US--
--RE--
00216 1173 00141 1110 SETB #BASE
00217 0163 00142 0023
--US--
--RE--
00220 1143 00143 1100 SETX #XR
00221 0146 00144 0002
--US--
00222 0147 00145 0100 LDX 0002,0
RALF V50A 2-FEB-23 PAGE 1-2
--EG--
00223 0146 00146 0002
--US--
00224 0147 00147 0100 LDX 0003,0
--EG--
00225 0153 00150 0003
RALF V50A 2-FEB-23 PAGE 2
--US--
--US--
--US--
--US--
00226 7756 RALF V50A 2-FEB-23 PAGE 1-1
EXTERN #WRITO
--US--
--RE--
00227 3151 00151 3000 TRAP3 #WRITO
00230 0152 00152 0000
--US--
--RE--
00231 1210 00153 1030 JA #LIT+0011
00232 0174 00154 0130
--US--
--RE--
00233 1201 00155 1030 JA #1+2
00234 0177 00156 0165
EXTERN #RENDO
--US--
--RE--
00235 3157 00157 3000 TRAP3 #RENDO
00236 0160 00160 0000
--US--
00237 0165 00161 0100 LDX 0004,0
--EG--
00240 0166 00162 0004
RALF V50A 2-FEB-23 PAGE 2-1
24 ERRORS
32 SYMBOLS, NO ABS REFS
# C 00000 #BASE 00023 #DPT 00061 #EXIT X 00000
#GOBAK 00057 #G00 U 00000 #G0001 00212 #LBL 00216
#LIT 00117 #MAIN S 00241 #NE X 00000 #RENDO X 00000
#RET 00015 #RSVO X 00000 #ST 00141 #TMP 00106
#WRITO X 00000 #XR 00002 #1 00163 #10 00266
#9 00237 DBLE X 00000 DLOG X 00000 DUMMY 00075
FEB U 00000 I 00103 JA U 00000 LDX U 00000
PAGE U 00000 RALF U 00000 SETB U 00000 SETX U 00000
TRAP3 U 00000 V50A U 00000