home *** CD-ROM | disk | FTP | other *** search
/ ANG-Pokey Magazine 18 / ANG_Pokey_Magazine_18_1994_04_ANG_Software_nl_Side_B.atr / abra14.src < prev    next >
Text File  |  2023-02-26  |  3KB  |  196 lines
  1. **************************************
  2. *
  3. * TWO TASKS RUNNING INDEPENDANTLY
  4. *
  5. * TWOTASK.SRC
  6. *
  7. * 22 FEB 93
  8. *
  9. * YEB HAVINGA
  10. *
  11. **************************************
  12. *
  13. * WATCH THE FOLLOWING:
  14. * - $C0 IN NMIEN ONLY AFTER
  15. * INITIALISATION.
  16. * - THE TWO CONTEXT SWITCHES
  17. *
  18. **************************************
  19. *
  20. * 25 03 94 : THIS PROGRAM
  21. * ILLUSTRATES A SIMPLE CONTEXT
  22. * SWITCH. EVERYTHING WAS JUST
  23. * A TRY-OUT AND THEREFORE THE
  24. * WHOLE IS QUITE STATIC:
  25. *
  26. * - THERE ARE TWO CONTEXT SWITCHES,
  27. * INSTEAD OF ONE
  28. * - THE STACK IS NOT SAVED WITH
  29. * THE CONTEXT SWITCH.
  30. * - TASK 2 IS A SIMPLE COLOR THING
  31. * AND TASK 1 IS THE CALLING PROGRAM
  32. * - NMI'S ARE USED FOR INTERRUPT
  33. * GENERATION
  34. *
  35. *
  36. * THE FOLLOWING VARIABLES ARE
  37. * USED TO SAVE REGISTERS AND
  38. * STACKSHIT :
  39. * 
  40. * T-A  : accumulator
  41. * T-X  : X register
  42. * T-Y  : Y register
  43. * T-P  : statusregister
  44. * T-PC : program counter
  45. *  ^
  46. *  - is  1 or 2
  47. * 
  48.  
  49.     ORG $A800
  50.  
  51. *
  52. * INITIALISATION :
  53. * THE SCREEN FOR THE INTERRUPTS
  54.  
  55.     LDA #0
  56.     STA 559
  57.  
  58. * !!! 130 XE+ USERS !!!
  59. * NOTE THAT IF YOU WANT TO CONVERT
  60. * THIS SOURCE TO THE 130XE+ ASSEMBLER,
  61. * THE DL IS SOMEWHERE AT $28XX
  62.  
  63.     LDA #$82
  64.     STA $BC30
  65.     LDA #$82
  66.     STA $BC31
  67.  
  68. * THE CONTEXT SWITCHER WHICH
  69. * ACTIVATES TASK 2 AT THE NEXT
  70. * INTERRUPT
  71.  
  72.     LDA #TASK2:L
  73.     STA $200
  74.     LDA #TASK2:H
  75.     STA $201
  76.  
  77. * INITIALISATION OF TASK 2 :
  78. * DATA FROM THE CALLING PROGRAM
  79. * ARE PUT INTO T2**
  80.  
  81.     LDA #0
  82.     STA T2A        ; A
  83.     STA T2X        ; X
  84.     STA T2Y        ; Y
  85.     STA T2P        ; status reg
  86.     PLA
  87.     CLC
  88.     ADC #1
  89.     STA T2PC        ; PC lo
  90.     PLA
  91.     ADC #0
  92.     STA T2PC+1    ; PC hi
  93.  
  94. * WAIT FOR VERTICAL BLANK
  95. * HE! WE'RE SITTING HERE WITH
  96. * TWO DLI'S AND I WANT TO BE
  97. * SURE THAT THE CALLING PROGRAM
  98. * GETS THE FEW SCANLINES INSTEAD OF
  99. * THE COLOR THING
  100.  
  101.     LDA #$FF
  102.     STA 20
  103. WAIT    LDA 20
  104.     BNE WAIT
  105.  
  106. * AND GO WITH THAT BANANA
  107. * WE START THE INTERRUPTS AND
  108. * TASK 1, THE COLOR THING WILL
  109. * CONTINUE QUITELY
  110.  
  111.     LDA #$C0
  112.     STA $D40E
  113.  
  114.     LDA #34
  115.     STA 559
  116.  
  117.     JMP PROC1
  118.  
  119. *-----------------------------
  120. * PROCESSING TASK 1,
  121. * THE COLOR THING
  122.  
  123. PROC1    LDA $D20A
  124.     STA $D01A
  125.     JMP PROC1
  126.  
  127. *----------------------------
  128. * CONTEXT SWITCH TO TASK 2,
  129. * THE CALLING PROGRAM
  130. * (for comment : 'TASK1')
  131.  
  132. TASK2    STA T1A
  133.     STY T1Y
  134.     STX T1X
  135.     PLA
  136.     STA T1P
  137.     PLA
  138.     STA T1PC
  139.     PLA
  140.     STA T1PC+1
  141.  
  142.     LDA #TASK1:L
  143.     STA $200
  144.     LDA #TASK1:H
  145.     STA $201
  146.  
  147.     LDA T2P
  148.     PHA
  149.     LDA T2A
  150.     LDY T2Y
  151.     LDX T2X
  152.     PLP
  153.     JMP (T2PC)
  154.  
  155.  
  156. * ----------------------------
  157. * CONTEXT SWITCH TO TASK 1
  158.  
  159. TASK1    STA T2A       * SAVE INFO
  160.     STY T2Y         * FROM PREVIOUS
  161.     STX T2X       * TASK
  162.     PLA
  163.     STA T2P
  164.     PLA
  165.     STA T2PC
  166.     PLA
  167.     STA T2PC+1
  168.  
  169.     LDA #TASK2:L  * NEXT INT
  170.     STA $200      * TO BEGIN
  171.     LDA #TASK2:H  * OTHER TASK
  172.     STA $201
  173.  
  174.     LDA T1P       * GET INFO
  175.     PHA           * CURRENT TASK
  176.     LDA T1A
  177.     LDY T1Y
  178.     LDX T1X
  179.     PLP
  180.     JMP (T1PC)   * AND CONTINUE..
  181.  
  182.  
  183. * áשIJפחIJאכדצáקנáצIJשדáקIJציצקרההá
  184.  
  185. T1A    DFB 0
  186. T1Y    DFB 0
  187. T1X    DFB 0
  188. T1P    DFB 0
  189. T1PC     DFW 0
  190.  
  191. T2A    DFB 0
  192. T2Y    DFB 0
  193. T2X    DFB 0
  194. T2P    DFB 0
  195. T2PC     DFW 0
  196. ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯