home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8606a.d64 / hypra-ass_cass (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.