home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 June / 64er_Magazin_89-06_1989_Markt__Technik_de_Side_B.d64 / s-rwabs.s5 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  1.5 KB  |  59 lines
  1. 90 open1,8,1,"s-rwabs 7f/a"
  2. 100 sys7*4096:.opt o1:*=$7f00
  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 trwabs  sta zei:sty zei+1:pha:tya:pha:txa:pha
  28. 1005 sec:jsr cursor:stx zeile:sty spalte
  29. 1010 ldx #0:ldy #15:clc:jsr cursor
  30. 1020 ldy #aprwflag:lda (zei),y:beq l1a:lda #"w":.byt $2c
  31. 1030 l1a lda #"r":jsr bsout:jsr spout
  32. 1040 ldy #apdrive:lda (zei),y:jsr hexsout
  33. 1050 ldy #aprecord+1:lda (zei),y:jsr hexout
  34. 1051 dey:lda (zei),y:jsr hexsout
  35. 1060 ldy #apanz+1:lda (zei),y:jsr hexout
  36. 1061 dey:lda (zei),y:jsr hexsout
  37. 1070 ldy #apbuffer+1:lda (zei),y:jsr hexout
  38. 1071 dey:lda (zei),y:jsr hexsout
  39. 1100 ldy #apbank:lda (zei),y:jsr hexout
  40. 1110 l1b jsr $ffe4:beq l1b
  41. 1200 ldx zeile:ldy spalte:clc:jsr cursor
  42. 1900 pla:tax:pla:tay:pla:jmp (vrwabs)
  43. 1990 zeile .byt 0
  44. 1991 spalte .byt 0
  45. 1999 ;*****
  46. 2000 hexout pha:lsr:lsr:lsr:lsr:jsr nibout
  47. 2010 pla:and #$0f
  48. 2020 nibout clc:adc #"0":cmp #"9"+1:bcc nib1
  49. 2030 adc #6:nib1 jmp bsout
  50. 2040 hexsout jsr hexout:spout lda #" ":jmp bsout
  51. 19999 ;**********
  52. 20010 anznew =1
  53. 20020 jmpadr
  54. 20030 .word  rwabs   -bdos*2/3
  55. 20070 jmpnew
  56. 20080 .word  trwabs
  57. 20120 jmpold
  58. 20130 vrwabs   .word 0
  59.