home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 June / 64er_Magazin_89-06_1989_Markt__Technik_de_Side_B.d64 / prg2.s4 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  659b  |  29 lines
  1. 100 open1,8,1,"prg2/a"
  2. 110 sys7*4096:     ; assembler aufrufen
  3. 120 bdos =$a000    ; startadresse bdos
  4. 130 prg  =1        ; fuer include-datei
  5. 140 .icl 8,"bds*   ; strukturen
  6. 150 .icl 8,"bdj*   ; jump-tabelle
  7. 160 zei  =$18
  8. 170 .opt o1        ; code in file 1
  9. 180 *=$7000        ; startadresse prg
  10. 190 ;
  11. 200 sta zei        ; adresse speichern
  12. 210 sty zei+1
  13. 220 ;
  14. 230 lda #13        ; cr
  15. 240 jsr $ffd2      ; ausgeben
  16. 250 ;
  17. 260 ldy #0         ; index
  18. 270 loop
  19. 280 lda (zei),y    ; parameter
  20. 290 beq endprg     ; null=ende
  21. 300 jsr $ffd2      ; ausgeben
  22. 310 iny
  23. 320 bne loop
  24. 330 endprg
  25. 340 lda #13        ; cr
  26. 350 jsr $ffd2
  27. 360 lda #0         ; meldung an prompt
  28. 370 rts
  29.