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