home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 June / 64er_Magazin_89-06_1989_Markt__Technik_de_Side_B.d64 / s-floprw.s5 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  58 lines
  1. 90 open1,8,1,"s-floprw 7e/a"
  2. 100 sys7*4096:.opt o1:*=$7e00
  3. 110 prg =1
  4. 120 bdos =$a000
  5. 125 .if #:.goto 210
  6. 130 .icl 8,"bds*
  7. 140 .icl 8,"bdk*
  8. 150 .icl 8,"bdj*
  9. 160 .icl 8,"bde*
  10. 170 cursor =$fff0
  11. 210 ;********
  12. 220 rdinit jsr version:stx rwbzei:sty rwbzei+1
  13. 230 ldy #vejmpadr+1:lda (rwbzei),y:tax:dey:lda (rwbzei),y
  14. 240 sta rwbzei:stx rwbzei+1
  15. 250 ldx #0
  16. 260 l1 ldy jmpadr,x
  17. 270 lda (rwbzei),y:sta jmpold,x
  18. 280 lda jmpnew,x:sta (rwbzei),y
  19. 290 inx:iny
  20. 300 lda (rwbzei),y:sta jmpold,x
  21. 310 lda jmpnew,x:sta (rwbzei),y
  22. 320 inx:iny
  23. 330 cpx #anznew*2; anzahl neuer routinen
  24. 340 bcc l1
  25. 345 tend lda #0:rts
  26. 999 ;*********
  27. 1000 tfloprw sta zei:sty zei+1:pha:tya:pha:txa:pha
  28. 1005 sec:jsr cursor:stx zeile:sty spalte
  29. 1010 ldx #0:ldy #18:clc:jsr cursor
  30. 1020 ldy #pbrwflag:lda (zei),y:beq l1a:lda #"w":.byt $2c
  31. 1030 l1a lda #"r":jsr bsout:jsr spout
  32. 1040 ldy #pbdrive:lda (zei),y:jsr hexsout
  33. 1050 ldy #pbside:lda (zei),y:jsr hexsout
  34. 1060 ldy #pbtrack:lda (zei),y:jsr hexsout
  35. 1070 ldy #pbsector:lda (zei),y:jsr hexsout
  36. 1080 ldy #pbbuffer+1:lda (zei),y:jsr hexout
  37. 1090 dey:lda (zei),y:jsr hexsout
  38. 1100 ldy #pbbank:lda (zei),y:jsr hexout
  39. 1110 l1b jsr $ffe4:beq l1b
  40. 1200 ldx zeile:ldy spalte:clc:jsr cursor
  41. 1900 pla:tax:pla:tay:pla:jmp (vfloprw)
  42. 1990 zeile .byt 0
  43. 1991 spalte .byt 0
  44. 1999 ;*****
  45. 2000 hexout pha:lsr:lsr:lsr:lsr:jsr nibout
  46. 2010 pla:and #$0f
  47. 2020 nibout clc:adc #"0":cmp #"9"+1:bcc nib1
  48. 2030 adc #6:nib1 jmp bsout
  49. 2040 hexsout jsr hexout:spout lda #" ":jmp bsout
  50. 19999 ;**********
  51. 20010 anznew =1
  52. 20020 jmpadr
  53. 20030 .word  floprw  -bdos*2/3
  54. 20070 jmpnew
  55. 20080 .word  tfloprw
  56. 20120 jmpold
  57. 20130 vfloprw  .word 0
  58.