File: FPPT.LS of Disk: Disks/Working/Build-11-03-07
(Source file text)
RALF V62A 2-FEB-91 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 V62A 2-FEB-91 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
00212 0100 #G0001, LDX 0007,0
00213 0007
00214 1130 JSR DBLE
00215 0000
00216 1030 JA .+0004
00217 0222
00220 1030 JA I
00221 0103
00222 6221 FSTA #TMP+0000
00223 1130 JSR DLOG
00224 0000
00225 1030 JA .+0004
00226 0231
00227 1030 JA #TMP+0000
00230 0106
00231 0050 STARTE
00232 1216 FADD DUMMY
00233 6216 FSTA DUMMY
00234 0100 LDX 0010,0
RALF V62A 2-FEB-91 PAGE 1-2
00235 0010
00236 0005 STARTF
00237 0220 #9, FLDA I
00240 1225 FADD #LIT+0003
00241 6220 FSTA I
00242 2231 FSUB #LIT+0017
00243 1020 JLE #G0001
00244 0212
00245 0100 LDX 0011,0
00246 0011
EXTERN #WRITO
00247 3000 TRAP3 #WRITO
00250 0000
00251 1030 JA #LIT+0011
00252 0130
00253 1030 JA #10+2
00254 0270
00255 0050 STARTE
00256 0216 FLDA DUMMY
EXTERN #RSVO
00257 3000 TRAP3 #RSVO
00260 0000
00261 0005 STARTF
EXTERN #RENDO
00262 3000 TRAP3 #RENDO
00263 0000
00264 0100 LDX 0012,0
00265 0012
00266 1030 #10, JA .+0020
00267 0306
00270 5057 5057
00271 5757 5757
00272 5754 5754
00273 6130 6130
00274 5447 5447
00275 2205 2205
00276 2325 2325
00277 1424 1424
00300 7240 7240
00301 4754 4754
00302 0462 0462
00303 6356 6356
00304 6162 6162
00305 5100 5100
00306 0100 LDX 0013,0
00307 0013
EXTERN #NE
EXTERN #EXIT
00310 1130 JSR #EXIT
00311 0000
RALF V62A 2-FEB-91 PAGE 1-3
NO ERRORS
22 SYMBOLS, NO ABS REFS
# C 00000 #BASE 00023 #DPT 00061 #EXIT X 00000
#GOBAK 00057 #G0001 00212 #LBL 00141 #LIT 00117
#MAIN S 00312 #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 I 00103