home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 June / 64er_Magazin_86-06_1986_Markt__Technik_de_Side_A.d64 / hypra-ass_cass (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  81 lines
  1. 100 ;left$ypra-ass/lenass.
  2. 110 ;
  3. 120 ;
  4. 130 ;1. atnendern des (NULL)prungvektors
  5. 140 ;
  6. 150  .ba$15d3
  7. 160  jmp$1194
  8. 170 ;
  9. 180 ;2. peekefehl .ob loeschen
  10. 190 ;
  11. 200  .ba$14a6
  12. 210  .by0,0
  13. 220 ;
  14. 230 ;3. (NULL)atn(NULL)val routine fuer (NULL)assetten
  15. 240 ;
  16. 250  .ba$1194;(NULL)tart
  17. 260 ;
  18. 270  .eqchrout=$ffd2
  19. 280  .eqsetlfs=$ffba
  20. 290  .eqsetnam=$ffbd
  21. 300  .eqsave=$ffd8
  22. 310  .eqnamlen=6
  23. 320 ;
  24. 330  lda#$0d;'len(NULL)'
  25. 340  jsrchrout
  26. 350  lda#1;str$atei(NULL)r
  27. 360  tax;chr$atn
  28. 370  tay;(NULL)atn
  29. 380  jsrsetlfs
  30. 390  lda#namlen
  31. 400  ldx#<(name)
  32. 410  ldy#>(name)
  33. 420  jsrsetnam
  34. 430  lda$0970;atnnf.atndr
  35. 440  sta$9e
  36. 450  lda$0971
  37. 460  sta$9f
  38. 470  ldx$fb;valnd.atndr
  39. 480  ldy$fc
  40. 490  lda#$9e
  41. 500  jsrsave
  42. 510  rts
  43. 520 name .tx"liste$"
  44. 530 ;
  45. 540 ;4. atnbspeichern des modifizierten
  46. 550 ;   atnssemblers unter dem (NULL)amen
  47. 560 ;   'hypra-ass/cass.'
  48. 570 ;
  49. 580  .ba$c000
  50. 590  .eqlgtit=15
  51. 600  .eqende=$1fd8
  52. 610 ;
  53. 620  lda#1
  54. 630  tax
  55. 640  tay
  56. 650  jsrsetlfs
  57. 660  lda#lgtit
  58. 670  ldx#<(titel)
  59. 680  ldy#>(titel)
  60. 690  jsrsetnam
  61. 700  lda#0
  62. 710  sta$a8
  63. 720  lda#8
  64. 730  sta$a9
  65. 740  lda#$a8
  66. 750  ldx#<(ende)
  67. 760  ldy#>(ende)
  68. 770  jsrsave
  69. 780  rts
  70. 790 titel .tx"hypra-ass/cass."
  71. 800 ;
  72. 810 ;nach durchgefuehrter
  73. 820 ;atnssemblierung und dem valrscheinen
  74. 830 ;der (NULL)eldung
  75. 840 ;'press record & play on tape'
  76. 850 ;druecken (NULL)ie die '(NULL)(NULL)(NULL)(NULL)'-(NULL)aste.
  77. 860 ;
  78. 870 ;(NULL)ie koennen dann mit '(NULL)(NULL)(NULL) 49152'
  79. 880 ;den korrigierten atnssembler auf
  80. 890 ;(NULL)assette abspeichern
  81.