LOAD ADJ.ASM BLOAD ADJ.ASM,A$1800 !L 1 ORG $7200 2 OBJ $800 3 NLS 4 ; 5 ; 6 ;----->>> MOD10 7 ; 12-16-86 8 ; 9 JMP START 10 ; 11 MIN HEX 0000 12 MAX HEX 0000 13 SDRV HEX 00 14 TDRV HEX 00 15 TNLEN HEX 00 16 TNAME DFS $1F 17 SNLEN HEX 00 18 SNAME DFS $1F 19 ; 20 Z06 EPZ $06 21 Z08 EPZ $08 22 Z1A EPZ $1A 23 Z1C EPZ $1C 24 ZFE EPZ $FE 25 BUF EQU $7600 26 NDIR EQU $9600 27 DIR EQU $9500 28 AUXMOV EQU $C311 29 DRV/LG EQU $1E56 30 DRIVE EQU $E15 31 ZIP/SZ EQU $1EE7 32 PAGE HEX 00 33 FLT HEX 00 34 WS HEX 00 35 BRBP HEX 00 36 TOP HEX 0000 37 COM HEX 0000000000 38 FL HEX 00 39 T1 HEX 00 40 T2 HEX 00 41 ; 42 START LDA #BUF 43 STA Z06 44 LDA /BUF 45 STA Z06+1 46 CLC 47 LDA MAX+1 48 STA TOP 49 LDA MAX 50 ADC /BUF 51 STA TOP+1 52 LDA #$00 53 STA PAGE 54 STA FLT 55 ; 56 LOOP INC PAGE 57 LDA DIR 58 CMP PAGE 59 BCC DONE 60 JSR PTOY 61 LDA DIR,Y 62 STA FL 63 LDA DIR+1,Y 64 BNE SG 65 LDA DIR+2,Y 66 BEQ LOOP 67 ; 68 SG JSR TEST 69 BPL SGON 70 JSR LOAD 71 SGON JSR TEST 72 BMI LOOP 73 JSR FINDBR 74 JSR SAVE 75 JSR SHIFTB 76 JMP SGON 77 ; 78 DONE JSR SAVEA 79 LDY #$00 80 DLOOP LDA NDIR,Y 81 STA DIR,Y 82 DEY 83 BNE DLOOP 84 STA $C001 85 RTS 86 ; 87 ; 88 ; 89 PTOY LDA PAGE 90 PTOY1 STA DIR+2 91 CLC 92 ASL 93 ADC DIR+2 94 TAY 95 RTS 96 ; 97 FINDBR LDA #$FF 98 STA WS 99 BRMLP INC WS 100 LDA WS 101 ASL 102 ASL 103 TAY 104 LDX #$00 105 BR1 LDA BIG,Y 106 STA COM,X 107 INY 108 INX 109 CPX #$04 110 BNE BR1 111 LDX WS 112 LDA BPTAB,X 113 STA BRBP 114 CLC 115 LDA MIN+1 116 STA Z08 117 LDA MIN 118 ADC /BUF 119 STA Z08+1 120 LDA COM 121 BEQ FINDBR 122 BRLP LDY #$FF 123 BRLPI INY 124 LDA COM,Y 125 BEQ BRFIND 126 CMP (Z08),Y 127 BEQ BRLPI 128 INC Z08 129 BNE BR6 130 INC Z08+1 131 BR6 LDA TOP+1 132 CMP Z08+1 133 BCC BRMLP 134 BNE BRLP 135 LDA TOP 136 CMP Z08 137 BCC BRMLP 138 BCS BRLP 139 BRFIND CLC 140 LDA BRBP 141 ADC Z08 142 STA Z08 143 BCC BRF1 144 INC Z08+1 145 BRF1 SEC 146 LDA Z08+1 147 SBC /BUF 148 STA Z08+1 149 RTS 150 ; 151 ; 152 SHIFTB SEC 153 LDA Z06 154 SBC Z08 155 STA ZFE 156 LDA Z06+1 157 SBC Z08+1 158 SEC 159 SBC /BUF 160 STA ZFE+1 161 LDA Z08 162 STA Z1A 163 CLC 164 LDA Z08+1 165 ADC /BUF 166 STA Z1A+1 167 LDA #BUF 168 STA Z1C 169 LDA /BUF 170 STA Z1C+1 171 SEC 172 LDA Z06 173 SBC Z08 174 STA Z06 175 LDA Z06+1 176 SBC Z08+1 177 STA Z06+1 178 JMP MOVEB 179 SAVEA SEC 180 LDA Z06+1 181 SBC /BUF 182 STA Z08+1 183 LDA Z06 184 STA Z08 185 SAVE INC FLT 186 LDA FLT 187 JSR PTOY1 188 LDA FLT 189 STA NDIR 190 STA NDIR,Y 191 LDA Z08 192 STA NDIR+1,Y 193 LDA Z08+1 194 STA NDIR+2,Y 195 ; 196 LDA TDRV 197 STA DRV/LG 198 JSR DRIVE 199 LDA TNLEN 200 CMP #$01 201 BNE NZIPS 202 LDA TNAME 203 CMP '] 204 BNE NZIPS 205 LDA ZIP/SZ 206 CMP FLT 207 BCS ZIPSV 208 ; 209 NZIPS LDY #$00 210 STY $AA52 211 SV LDA SLIT,Y 212 BEQ SV1 213 JSR PRMON 214 INY 215 BNE SV 216 SV1 LDY #$00 217 SV3 LDA TNAME,Y 218 CPY TNLEN 219 BEQ SV4 220 JSR PRMON 221 INY 222 BNE SV3 223 SV4 LDA '. 224 JSR PRMON 225 CLC 226 LDA FLT 227 ADC #$40 228 JSR PRMON 229 LDY #$00 230 SV5 LDA SLITF,Y 231 BEQ SV6 232 JSR PRMON 233 INY 234 BNE SV5 235 SV6 LDA Z08+1 236 JSR $FDDA 237 LDA Z08 238 JSR $FDDA 239 LDA #$8D 240 JSR PRMON 241 RTS 242 ; 243 ZIPSV LDA #$02 244 STA $0A 245 LDA FLT 246 STA $0B 247 LDA #$01 248 STA $0C 249 LDA #$00 250 STA $00 251 LDA #$76 252 STA $01 253 LDX #$18 254 JMP $E12 255 ; 256 ; 257 ; 258 TEST SEC 259 LDA Z06 260 SBC MAX+1 261 LDA Z06+1 262 SBC MAX 263 SEC 264 SBC /BUF 265 RTS 266 ; 267 ZIPLD LDA #$02 268 STA $0A 269 LDA FL 270 STA $0B 271 LDA #$00 272 STA $0C 273 LDA $06 274 STA $00 275 LDA $07 276 STA $01 277 LDA FL 278 JSR PTOY1 279 LDA DIR+1,Y 280 CLC 281 ADC Z06 282 STA Z06 283 LDA DIR+2,Y 284 ADC Z06+1 285 STA Z06+1 286 LDX #$18 287 JMP $E12 288 ; 289 ; 290 LOAD LDA SDRV 291 STA DRV/LG 292 JSR DRIVE 293 LDA SNLEN 294 CMP #$01 295 BNE NZIPL 296 LDA SNAME 297 CMP '] 298 BNE NZIPL 299 LDA ZIP/SZ 300 CMP FL 301 BCS ZIPLD 302 ; 303 NZIPL LDY #$00 304 STY $AA52 305 L1 LDA LLIT,Y 306 BEQ L2 307 JSR PRMON 308 INY 309 BNE L1 310 L2 LDY #$00 311 L3 LDA SNAME,Y 312 CPY SNLEN 313 BEQ L4 314 JSR PRMON 315 INY 316 BNE L3 317 L4 LDA '. 318 JSR PRMON 319 CLC 320 LDA FL 321 ADC #$40 322 JSR PRMON 323 LDA ', 324 JSR PRMON 325 LDA 'A 326 JSR PRMON 327 LDA '$ 328 JSR PRMON 329 LDA Z06+1 330 JSR $FDDA 331 LDA Z06 332 JSR $FDDA 333 LDA #$8D 334 JSR PRMON 335 CLC 336 LDA Z06 337 ADC $AA60 338 STA Z06 339 LDA Z06+1 340 ADC $AA61 341 STA Z06+1 342 RTS 343 ; 344 BIG ASC ' $s ' 345 ASC ' $p ' 346 ASC ' $f ' 347 ASC ' $l ' 348 HEX 0D0A0000 349 HEX 0D000000 350 HEX 2E202000 351 HEX 2E20FF00 352 HEX 2E200000 353 HEX 20000000 354 HEX 00000000 355 BPTAB HEX 000000000000 356 HEX 02010100 357 LLIT HEX 84 358 ASC 'BLOAD ' 359 HEX 00 360 SLIT HEX 84 361 ASC 'BSAVE ' 362 HEX 00 363 SLITF ASC ',A$7600,L$' 364 HEX 00 365 PRMON ORA #$80 366 JMP $FDED 367 ; 368 ; 369 INCA INC Z1A 370 BNE B1 371 INC Z1A+1 372 B1 RTS 373 INCC INC Z1C 374 BNE B2 375 INC Z1C+1 376 B2 RTS 377 TSDC LDA ZFE 378 BNE DECE 379 LDA ZFE+1 380 BNE DECE 381 RTS 382 DECE LDA ZFE 383 BNE B5 384 DEC ZFE+1 385 B5 DEC ZFE 386 LDA #$FF 387 RTS 388 MOVEB JSR TSDC 389 BEQ B2 390 LDY #$00 391 LDA (Z1A),Y 392 STA (Z1C),Y 393 JSR INCA 394 JSR INCC 395 CLC 396 BCC MOVEB 397 ; 398 ; 399 XX HEX 00 400 ; 401 ; 402 END !