home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1991 …esperately Seeking Seven / Desperately Seeking Seven.2mg / Dev.CD.8 / Essentials / Tools / DTS.Samples / SC20DTSToolLib / PMUserTool.asm < prev    next >
Encoding:
Assembly Source File  |  1990-05-25  |  3.2 KB  |  109 lines  |  [04] ASCII Text (0x0000)
  1. **************************************************************************
  2. *
  3. * User-Toolset shell for Apple IIgs pixelMap2Rgn code
  4. *
  5. * David A. Lyons
  6. * Apple II Developer Technical Support
  7. *
  8. * Developer Technical Support Apple II Sample Code
  9. *
  10. * v3.0    20-Apr-90 DAL
  11. *
  12. **************************************************************************
  13. *
  14. * How to build this thing:
  15. *    asmiigs pixelmap2rgn.aii
  16. *    asmiigs pmusertool.aii
  17. *    linkiigs pmusertool.aii.obj pixelmap2rgn.aii.obj -o pixMapTool -t $ba
  18. *
  19. **************************************************************************
  20.                     case on
  21.  
  22. Version             gequ $0100          ;v1.0
  23.  
  24. pmUserTool          start
  25.  
  26. *                   Import pixelMap2Rgn, newPort, killPort
  27.  
  28. ptrTable            dc i4'(ptrTableEnd-ptrTable)/4'
  29.                     dc i4'fNoError-1'                       ;$01xx BootInit
  30.                     dc i4'fNoError-1'                       ;$02xx StartUp
  31.                     dc i4'fNoError-1'                       ;$03xx ShutDown
  32.                     dc i4'fVersion-1'                       ;$04xx Version
  33.                     dc i4'fNoError-1'                       ;$05xx Reset
  34.                     dc i4'fStatus-1'                        ;$06xx Status
  35.                     dc i4'fNoError-1'                       ;$07xx reserved
  36.                     dc i4'fNoError-1'                       ;$08xx reserved
  37.                     dc i4'fPixelMap2Rgn-1'                  ;$09xx pixelMap2Rgn
  38.                     dc i4'fNewPort-1'                       ;$0Axx newPort
  39.                     dc i4'fKillPort-1'                      ;$0Axx killPort
  40. ptrTableEnd         ANOP
  41. *
  42. save6               lda >myStatus
  43.                     beq notStarted
  44.                     plx
  45.                     pla
  46.                     sta >temp
  47.                     pla
  48.                     sta >temp+2
  49.                     pla
  50.                     sta >temp+4
  51.                     phx
  52.                     rts
  53.  
  54. temp                ds 6
  55.  
  56. myStatus            ds 2
  57.  
  58. notStarted          pla                 ;discard return address
  59.                     txa
  60.                     xba
  61.                     and #$FF00
  62.                     ora #$8001
  63.                     sec
  64.                     rtl
  65.  
  66. fStartUp            lda #$FFFF
  67.                     bra startStop
  68.  
  69. fShutDown           lda #$0000
  70. startStop           sta >myStatus
  71. fNoError            lda #0
  72.                     clc
  73.                     rtl
  74.  
  75. fVersion            lda #Version
  76.                     sta 7,s
  77.                     bra fNoError
  78.  
  79. fStatus             lda >myStatus
  80.                     sta 7,s
  81.                     bra fNoError
  82.  
  83. ********************
  84.  
  85. fPixelMap2Rgn       jsr save6
  86.                     jsl pixelMap2Rgn
  87.                     bra restore6        
  88.  
  89. fNewPort            jsr save6
  90.                     jsl newPort
  91.                     bra restore6        
  92.  
  93. fKillPort           jsr save6
  94.                     jsl killPort
  95.  
  96. restore6            tay                 ;This is here so everybody
  97.                     lda >temp+4         ;can reach it.
  98.                     pha
  99.                     lda >temp+2
  100.                     pha
  101.                     lda >temp
  102.                     pha
  103.                     tya
  104.                     rtl
  105.  
  106.                     end
  107.  
  108.                     END
  109.