home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 2 / 64er_Magazin_Sonderheft_02_86-02_1986_Markt__Technik_de.d64 / quell.page4 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  72 lines
  1. 10 sys 9*4096      ;profi-ass
  2. 12 .opt oo
  3. 13 *= $033c        ;startadresse
  4. 14 ;
  5. 50 illq  = $b248
  6. 55 koget = $b7f1
  7. 90 ;
  8. 100 jsr koget
  9. 110 cpx #1 :beq hole1
  10. 120 cpx #2 :beq hole2
  11. 130 cpx #3 :beq hole3
  12. 140 cpx #4 :beq hole4
  13. 150 jmp illq
  14. 200 ;
  15. 201 ;==================================
  16. 202 ;die gespeich.screens werden ueber   sys-befehl->sys828,n (n=1-4)aufgerufen
  17. 203 ;==================================
  18. 500 hole1 lda $01  :pha
  19. 510 :     lda #$36 :sta $01
  20. 515 :     jsr up3  :sta $fb
  21. 520 :     ldy #$a0 :sty $fc
  22. 525 :     jsr copy
  23. 530 :     jsr up4  :ldy #$a4
  24. 540 :     jmp cop2
  25. 545 ;
  26. 555 hole2 lda $01  :pha
  27. 560 :     lda #$36 :sta $01
  28. 565 :     jsr up3  :sta $fb
  29. 570 :     ldy #$a8 :sty $fc
  30. 580 :     jsr copy
  31. 585 :     jsr up4  :ldy #$ac
  32. 595 :     jmp cop2
  33. 600 ;
  34. 610 hole3 lda $01  :pha
  35. 615 :     lda #$36 :sta $01
  36. 620 :     jsr up3  :sta $fb
  37. 625 :     ldy #$b0 :sty $fc
  38. 635 :     jsr copy
  39. 640 :     jsr up4  :ldy #$b4
  40. 650 :     jmp cop2
  41. 655 ;
  42. 665 hole4 lda $01  :pha
  43. 670 :     lda #$36 :sta $01
  44. 675 :     jsr up3  :sta $fb
  45. 680 :     ldy #$b8 :sty $fc
  46. 690 :     jsr copy
  47. 695 :     jsr up4  :ldy #$bc
  48. 705 :     jmp cop2
  49. 710 ;
  50. 720 up3 lda #$00 :ldy #$04 ;$0400 nach
  51. 725 :   sta $fd  :sty $fe  ;$fd/e
  52. 730 :   rts
  53. 734 ;
  54. 735 up4 lda #$00 :ldy #$d8 ;$d800 nach
  55. 740 :   sta $fd  :sty $fe  ;$fd/e
  56. 745 :   rts
  57. 749 ;
  58. 750 cop2 sta $fb :sty $fc
  59. 755 :    jsr copy
  60. 765 :    pla :sta $01
  61. 770 :    rts               ;fertig
  62. 775 ;
  63. 900 copy ldx #4 :ldy #0  ;kopierroutine
  64. 905 n lda ($fb),y
  65. 910 : sta ($fd),y
  66. 915 : iny
  67. 920 : bne n
  68. 925 : inc $fc :inc $fe
  69. 930 : dex
  70. 935 : bne n
  71. 940 rts
  72.