home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 July / 64er_Magazin_89-07_1989_Markt__Technik_de_Side_A.d64 / dir.src (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  531b  |  18 lines
  1. 5 open1,8,2,"dir.obj,p,w"
  2. 10 sys 9*4096:.opt p,o1:*= $c000
  3. 12 .asc "program:"
  4. 15 lda #1:jsr $ffc3:jsr $fd15
  5. 20 lda #1:ldx #8:ldy #0:jsr $ffba
  6. 25 lda #1:ldx prgadr+1:ldy prgadr+2:jsr $ffbd
  7. 30 jsr $ffc0:ldx #1:jsr $ffc6:jsr $ffcf:jsr $ffcf
  8. 35 ; eingabe
  9. 40 l40 jsr $ffcf:jsr $ffcf:bit 144:bvs close
  10. 50 jsr $ffcf:tax:jsr $ffcf:jsr $bdcd
  11. 60 l60 jsr $ffcf:beq l70:jsr $f1ca:jmp l60
  12. 70 l70 lda #13:jsr $f1ca:jmp l40
  13. 210 close jsr $ffcc:lda #1:jsr $ffc3:jsr $fd15:rts
  14. 215 prgadr jmp prgname
  15. 218 .byte $ff
  16. 220 prgname .asc "$"
  17. 230 .end:close1
  18.