home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 November / 64er_Magazin_93-11_1993_Markt__Technik_de_Side_A.d64 / dir.src < prev    next >
Text File  |  2022-10-26  |  1KB  |  80 lines
  1.  
  2.  
  3. *=$c000
  4. ;
  5. ; **** externe spruenge **** 
  6. ;
  7. eaad7   =$aad7
  8. eab3f   =$ab3f
  9. ebdcd   =$bdcd
  10. effba   =$ffba
  11. effbd   =$ffbd
  12. effc0   =$ffc0
  13. effc3   =$ffc3
  14. effc6   =$ffc6
  15. effcc   =$ffcc
  16. effd2   =$ffd2
  17. effe4   =$ffe4
  18. effe7   =$ffe7
  19. ;
  20. ; **** felder **** 
  21. ;
  22. ;
  23. ; **** absolute adressen **** 
  24. ;
  25. a02     =$02
  26. a03     =$03
  27. a04     =$04
  28. a90     =$90
  29. ;
  30. ; **** pointer **** 
  31. ;
  32. ;
  33. ; **** programm **** 
  34. ;
  35. ;
  36.        jsr effe7
  37.        lda #$01
  38.        ldx #$08
  39.        ldy #$00
  40.        jsr effba
  41.        ldx #$24
  42.        stx a02
  43.        ldx #$02
  44.        ldy #$00
  45.        jsr effbd
  46.        jsr effc0
  47.        ldx #$01
  48.        jsr effc6
  49.        ldy #$03
  50. ic021  sty a03
  51.        jsr effe4
  52.        sta a04
  53.        ldy a90
  54.        bne ic057
  55.        jsr effe4
  56.        ldy a90
  57.        bne ic057
  58.        ldy a03
  59.        dey
  60.        bne ic021
  61.        ldx a04
  62.        jsr ebdcd
  63.        jsr eab3f
  64. ic040  jsr effe4
  65.        ldx a90
  66.        bne ic057
  67.        tax
  68.        beq ic050
  69.        jsr effd2
  70.        jmp ic040
  71. ic050  jsr eaad7
  72.        ldy #$02
  73.        bne ic021
  74. ic057  jsr effcc
  75.        lda #$01
  76.        jmp effc3
  77.        brk
  78.        brk
  79. ;
  80.