home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / a / appsswi / ZSource / SWIVeSrc (.txt) < prev   
Encoding:
RISC OS BBC BASIC V Source  |  1995-10-08  |  14.3 KB  |  420 lines
  1.  WimpSWIVe 0.05 - Wimp SWI trapping module
  2.  by AjC of DoggySoft
  3.  Requires BAX 1.00 or later to compile. Source best viewed in a big mode, 114 column formatting
  4.  Note - the list of SWI traps is checked through _backwards_ when looking for pre-trapping code. This means
  5.  that traps at the start of the list get called _after_ those at end. This may confuse some people. ;-)
  6. trapped_chunk=&400C0
  7. specialswi=&400F5-&400C0
  8. chainchunks=512
  9. os_module_claim=6
  10. os_module_release=7
  11. os_module_extend=13
  12.  Workblock constants - wimpprivateword MUST be the first item (don't ask why...)
  13. w=0 :wk_wimpprivateword=w
  14. w+=4:wk_wimpswihandler=w
  15. w+=4:wk_chainptr=w
  16. w+=4:wk_numberoftraps=w
  17.  code 100000
  18.  0,"Error in compilation, pass "+
  19. pass+": "+
  20. $+", at line "+
  21.  pass=4
  22. O%=code:P%=0
  23. [OPT pass
  24.   Equd    0
  25.   Equd    mod_init
  26.   Equd    mod_quit
  27.   Equd    mod_service
  28.   Equd    mod_title
  29.   Equd    mod_help
  30.   Equd    0
  31. .mod_chunk
  32.   Equd    trapped_chunk
  33.   Equd    swi_handler
  34.   Equd    swi_table
  35.   Equd    0
  36. .mod_title
  37.   Equz    "WimpSWIVe"
  38.   Align
  39. .mod_help
  40.   Equs    "WimpSWIVe"+
  41. 2"  Equz    "0.05 (30 Oct 1995)"
  42.   Align
  43. .swi_table
  44.   Equz    "Wimp"
  45.   Equz    "Initialise"
  46.   Equz    "CreateWindow"
  47.   Equz    "CreateIcon"
  48.   Equz    "DeleteWindow"
  49.   Equz    "DeleteIcon"
  50.   Equz    "OpenWindow"
  51.   Equz    "CloseWindow"
  52.   Equz    "Poll"
  53.   Equz    "RedrawWindow"
  54.   Equz    "UpdateWindow"
  55.   Equz    "GetRectangle"
  56.   Equz    "GetWindowState"
  57.   Equz    "GetWindowInfo"
  58.   Equz    "SetIconState"
  59.   Equz    "GetIconState"
  60.   Equz    "GetPointerInfo"
  61.   Equz    "DragBox"
  62.   Equz    "ForceRedraw"
  63. I   Equz    "SetCaretPosition"
  64. J   Equz    "GetCaretPosition"
  65.   Equz    "CreateMenu"
  66.   Equz    "DecodeMenu"
  67.   Equz    "WhichIcon"
  68.   Equz    "SetExtent"
  69.   Equz    "SetPointerShape"
  70.   Equz    "OpenTemplate"
  71.   Equz    "CloseTemplate"
  72.   Equz    "LoadTemplate"
  73.   Equz    "ProcessKey"
  74.   Equz    "CloseDown"
  75.   Equz    "StartTask"
  76.   Equz    "ReportError"
  77. W   Equz    "GetWindowOutline"
  78.   Equz    "PollIdle"
  79.   Equz    "PlotIcon"
  80.   Equz    "SetMode"
  81.   Equz    "SetPalette"
  82.   Equz    "ReadPalette"
  83.   Equz    "SetColour"
  84.   Equz    "SendMessage"
  85.   Equz    "CreateSubMenu"
  86.   Equz    "SpriteOp"
  87.   Equz    "BaseOfSprites"
  88.   Equz    "BlockCopy"
  89.   Equz    "SlotSize"
  90.   Equz    "ReadPixTrans"
  91.   Equz    "ClaimFreeMemory"
  92.   Equz    "CommandWindow"
  93.   Equz    "TextColour"
  94.   Equz    "TransferBlock"
  95.   Equz    "ReadSysInfo"
  96.   Equz    "SetFontColours"
  97.   Equz    "GetMenuState"
  98.   Equz    "RegisterFilter"
  99.   Equz    "AddMessages"
  100.   Equz    "RemoveMessages"
  101. o   Equz    "SetColourMapping"
  102.   Equz    "TextOp"
  103. q   Equz    "SetWatchdogState"
  104.   Equz    "Extend"
  105.   Equz    "ResizeIcon"
  106.   Equb    0
  107. .wimpmodulename
  108.   Equz    "WindowManager"
  109.   Align
  110. z    .wswi
  111.   Equs    "WSWI"
  112. .error_cantquit
  113.   Equd    0
  114. ~V  Equz    "WimpSWIVe cannot be quit right now, as some clients are still using it"
  115.   Align
  116. .error_badrelease
  117.   Equd    0
  118. %  Equz    "Bad WimpSWIVe release"
  119.   Align
  120. .mod_init
  121.   StmFd   R13!,{R0-R5,R14}
  122. !  Mov     R0,#os_module_claim
  123.   Mov     R3,#w
  124. Q  Swi     "XOS_Module"                                      ; claim workspace
  125.   AddVs   R13,R13,#4
  126.   LdmVsFd R13!,{R1-R5,Pc}
  127. .init_jumpin
  128.   Str     R2,[R12]
  129.   Mov     R12,R2
  130.   Mov     R0,#18
  131.   Adr     R1,wimpmodulename
  132. a  Swi     "XOS_Module"                                      ; find out details of WIMP module
  133.   AddVs   R13,R13,#4
  134.   LdmVsFd R13!,{R1-R5,Pc}
  135. *  Str     R4,[R12,#wk_wimpprivateword]
  136.   Ldr     R0,[R3,#&20]
  137.   Add     R3,R3,R0
  138. \  Str     R3,[R12,#wk_wimpswihandler]                       ; store details in workspace
  139.   Mov     R0,#0
  140. (  Str     R0,[R12,#wk_numberoftraps]
  141. !  Mov     R0,#os_module_claim
  142.   Mov     R3,#chainchunks
  143.   Swi     "XOS_Module"
  144.   AddVs   R13,R13,#4
  145.   LdmVsFd R13!,{R1-R5,Pc}
  146. ^  Str     R2,[R12,#wk_chainptr]                             ; initialise null vector chain
  147.   LdmFd   R13!,{R0-R5,Pc}^
  148. .mod_quit
  149.   StmFd   R13!,{R0-R3,R14}
  150.   Ldr     R12,[R12]
  151. (  Ldr     R0,[R12,#wk_numberoftraps]
  152.   Teq     R0,#0
  153.   LdmNeFd R13!,{R0-R3,R14}
  154.   AdrNe   R0,error_cantquit
  155. ]  OrrNeS  Pc,R14,#1<<28                                     ; check we're allowed to quit
  156. #  Mov     R0,#os_module_release
  157. #  Ldr     R2,[R12,#wk_chainptr]
  158.   Swi     "XOS_Module"
  159. #  Mov     R0,#os_module_release
  160.   Mov     R2,R12
  161. _  Swi     "XOS_Module"                                      ; free claimed RMA then go away
  162.   LdmFd   R13!,{R0-R3,Pc}^
  163. .mod_service
  164.   Teq     R1,#&27
  165.   MovNeS  Pc,R14
  166.   Ldr     R12,[R12]
  167.   StmFd   R13!,{R0-R5,R14}
  168. d  B       init_jumpin                                       ; re-init when reset service happens
  169. .swi_handler
  170.   Ldr     R12,[R12]
  171.   StmFd   R13!,{R9,R10,R14}
  172.   Mov     R14,#0
  173. v  StmFd   R13!,{R14}                                        ; unset post-flag, initially no post-trapping required
  174.   Teq     R11,#specialswi
  175.   LdrEq   R14,wswi
  176.   TeqEq   R0,R14
  177. t  BEq     ourspecialswi                                     ; check if the WimpSWIVe control SWI has been called
  178. #  Ldr     R9,[R12,#wk_chainptr]
  179. )  Ldr     R10,[R12,#wk_numberoftraps]
  180.   Add     R9,R9,R10,Lsl#4
  181. .checkchainlooppre
  182.   Sub     R9,R9,#16
  183.   SubS    R10,R10,#1
  184.   BMi     swi_donepre
  185.   Ldr     R14,[R9]
  186.   Tst     R14,#1<<6
  187.   BNe     preloopallswis
  188.   And     R14,R14,#63
  189.   Teq     R14,R11
  190. j  BNe     checkchainlooppre                                 ; go through chain looking for SWI to trap
  191. .preloopallswis
  192.   Ldr     R14,[R9,#12]
  193.   Teq     R14,#0
  194.   MovNe   R14,#1
  195. m  StrNe   R14,[R13]                                         ; set the post-flag if post-trapping required
  196.   Ldr     R14,[R9,#8]
  197.   Teq     R14,#0
  198. h  BEq     checkchainlooppre                                 ; if no pre-trapping to do, back to loop
  199.   StmFd   R13!,{R9,R10,R12}
  200.   Orr     R10,R14,#3
  201.   Orr     R10,R10,#1<<27
  202.   Ldr     R12,[R9,#4]
  203.   Mov     R9,R11
  204. !  Adr     R14,backfrompretrap
  205.   Orr     R14,R14,#3
  206.   Orr     R14,R14,#1<<27
  207.   MovS    Pc,R10
  208. Y.backfrompretrap                                            ; call a pre-trap routine
  209.   Mov     R10,Pc
  210.    And     R10,R10,#&F0000000
  211.   Cmn     R9,#1
  212.   LdrEq   R9,[R13,#24]
  213.   BicEq   R9,R9,#&F0000000
  214.   OrrEq   R9,R9,R10
  215. s  StrEq   R9,[R13,#24]                                      ; if interception, update return PSR with new flags
  216.   LdmFd   R13!,{R9,R10,R12}
  217.   BNe     checkchainlooppre
  218.   LdmFd   R13!,{R14}
  219.   Teq     R14,#0
  220.   LdmEqFd R13!,{R9,R10,Pc}^
  221. )  Ldr     R14,[R12,#wk_numberoftraps]
  222.   Sub     R10,R14,R10
  223.   Sub     R10,R10,#1
  224. t  B       checkchainlooppost                                ; if interception, act as if SWI had been executed -
  225. t                                                            ; jump into post-trap loop with chain pointer intact
  226. t                                                            ; so that any post-code is called whose pre-code has
  227. m                                                            ; already been done. (Only if post-flag set.)
  228. .swi_donepre
  229.   LdmFd   R13!,{R14}
  230.   Teq     R14,#0
  231.   LdmEqFd R13!,{R9,R10,R14}
  232. r  LdrEq   Pc,[R12,#wk_wimpswihandler]                       ; pass on to real SWI if no post-trapping required
  233.   LdmFd   R13!,{R9,R10}
  234.   StmFd   R13!,{R12}
  235. !  Adr     R14,backfromrealswi
  236.   Orr     R14,R14,#3
  237.   Orr     R14,R14,#1<<27
  238. )  Ldr     Pc,[R12,#wk_wimpswihandler]
  239. \.backfromrealswi                                            ; call the swi and post-trap
  240.   LdmFd   R13!,{R12}
  241.   StmFd   R13!,{R9,R10}
  242.   Mov     R10,Pc
  243.    And     R10,R10,#&F0000000
  244.   Ldr     R9,[R13,#8]
  245.   Bic     R9,R9,#&F0000000
  246.   Orr     R9,R9,R10
  247. b  Str     R9,[R13,#8]                                       ; update return PSR with new flags
  248. #  Ldr     R9,[R12,#wk_chainptr]
  249. )  Ldr     R10,[R12,#wk_numberoftraps]
  250.   Sub     R9,R9,#16
  251. .checkchainlooppost
  252.   Add     R9,R9,#16
  253.   SubS    R10,R10,#1
  254.   LdmMiFd R13!,{R9,R10,Pc}^
  255.   Ldr     R14,[R9]
  256.   Tst     R14,#1<<6
  257.   BNe     postloopallswis
  258.   And     R14,R14,#63
  259.   Teq     R14,R11
  260. o  BNe     checkchainlooppost                                ; go through chain looking for SWI to post-trap
  261. .postloopallswis
  262.   Ldr     R14,[R9,#12]
  263.   Teq     R14,#0
  264. d  BEq     checkchainlooppost                                ; if not post-trapping, back to loop
  265.   StmFd   R13!,{R9,R10,R12}
  266.   Ldr     R12,[R13,#20]
  267.    And     R12,R12,#&F0000000
  268.   Orr     R10,R14,#3
  269.   Orr     R10,R10,#1<<27
  270. !`  Orr     R10,R10,R12                                       ; pass returned flags to routine
  271. ""  Adr     R14,backfromposttrap
  272.   Orr     R14,R14,R12
  273.   Orr     R14,R14,#3
  274.   Orr     R14,R14,#1<<27
  275.   Ldr     R12,[R9,#4]
  276.   Mov     R9,R11
  277.   MovS    Pc,R10
  278. )Z.backfromposttrap                                           ; call a post-trap routine
  279.   Mov     R10,Pc
  280. +   And     R10,R10,#&F0000000
  281.   Ldr     R9,[R13,#20]
  282.   Bic     R9,R9,#&F0000000
  283.   Orr     R9,R9,R10
  284. /b  Str     R9,[R13,#20]                                      ; update return PSR with new flags
  285.   LdmFd   R13!,{R9,R10,R12}
  286. 1   B       checkchainlooppost
  287. .ourspecialswi
  288.   StmFd   R13!,{R0-R4}
  289.   Tst     R1,#1<<31
  290.   BEq     ourswi_release
  291. 7^  B       ourswi_claim                                      ; split into claim and release
  292. .ourswi_claim
  293. :(  Ldr     R0,[R12,#wk_numberoftraps]
  294.   Add     R1,R0,#1
  295.   Mov     R0,R0,Lsl#4
  296.   Mov     R1,R1,Lsl#4
  297.   Mov     R2,#chainchunks
  298.   Sub     R2,R2,#1
  299.   Bic     R0,R0,R2
  300.   Bic     R1,R1,R2
  301.   Teq     R0,R1
  302. C$  BEq     claim_noneedtoaddchunk
  303. D"  Mov     R0,#os_module_extend
  304. E#  Ldr     R2,[R12,#wk_chainptr]
  305.   Mov     R3,#chainchunks
  306.   Swi     "XOS_Module"
  307.   BVs     ourswi_error
  308. I`  Str     R2,[R12,#wk_chainptr]                             ; claim extra memory if required
  309. .claim_noneedtoaddchunk
  310.   LdmFd   R13,{R0-R4}
  311.   Tst     R1,#1<<30
  312. Mp  BEq     claim_add_lowpriority                             ; more complex routine needed for low-prio traps
  313.   Bic     R1,R1,#1<<31
  314. O#  Ldr     R0,[R12,#wk_chainptr]
  315. P)  Ldr     R14,[R12,#wk_numberoftraps]
  316.   Add     R0,R0,R14,Lsl#4
  317. Ra  StmIa   R0,{R1-R4}                                        ; copy information to chain block
  318. S(  Ldr     R0,[R12,#wk_numberoftraps]
  319.   Add     R0,R0,#1
  320. Ul  Str     R0,[R12,#wk_numberoftraps]                        ; increment numberoftraps, adding it to list
  321.   LdmFd   R13!,{R0-R4,R14}
  322. Wr  LdmFd   R13!,{R9,R10,Pc}^                                 ; and intercept SWI, having replaced functionality
  323. .claim_add_lowpriority
  324. Z#  Ldr     R0,[R12,#wk_chainptr]
  325. [(  Ldr     R1,[R12,#wk_numberoftraps]
  326. .claim_lowprioloop
  327.   Cmp     R1,#0
  328.   BLe     claim_lowputtit
  329.   Ldr     R14,[R0]
  330.   Tst     R14,#1<<30
  331.   AddEq   R0,R0,#16
  332.   SubEq   R1,R1,#1
  333. ct  BEq     claim_lowprioloop                                 ; find first entry in list to be hi-pri, or list end
  334.   Add     R2,R0,R1,Lsl#4
  335. .claim_budgeuploop
  336.   Cmp     R2,R0
  337.   BLe     claim_lowputtit
  338.   Ldr     R14,[R2,#-16]!
  339.   Str     R14,[R2,#16]
  340.   Ldr     R14,[R2,#4]
  341.   Str     R14,[R2,#20]
  342.   Ldr     R14,[R2,#8]
  343.   Str     R14,[R2,#24]
  344.   Ldr     R14,[R2,#12]
  345.   Str     R14,[R2,#28]
  346. pa  B       claim_budgeuploop                                 ; shift up all entries after this
  347. .claim_lowputtit
  348.   Ldr     R14,[R13,#4]
  349.   Bic     R14,R14,#1<<31
  350.   Str     R14,[R0]
  351.   Ldr     R14,[R13,#8]
  352.   Str     R14,[R0,#4]
  353.   Ldr     R14,[R13,#12]
  354.   Str     R14,[R0,#8]
  355.   Ldr     R14,[R13,#16]
  356. zZ  Str     R14,[R0,#12]                                      ; copy new entry into list
  357. {(  Ldr     R0,[R12,#wk_numberoftraps]
  358.   Add     R0,R0,#1
  359. }Y  Str     R0,[R12,#wk_numberoftraps]                        ; increment numberoftraps
  360.   LdmFd   R13!,{R0-R4,R14}
  361. r  LdmFd   R13!,{R9,R10,Pc}^                                 ; and intercept SWI, having replaced functionality
  362. .ourswi_release
  363. #  Ldr     R9,[R12,#wk_chainptr]
  364. )  Ldr     R10,[R12,#wk_numberoftraps]
  365. .checkchainreleaseloop
  366.   SubS    R10,R10,#1
  367. !  AdrMi   R0,error_badrelease
  368. l  BMi     ourswi_error                                      ; complain if we reached the end of the list
  369.   Ldr     R0,[R9]
  370.   And     R0,R0,#63
  371.   And     R14,R1,#63
  372.   Teq     R0,R14
  373.   LdrEq   R0,[R9,#4]
  374.   TeqEq   R0,R2
  375.   LdrEq   R0,[R9,#8]
  376.   TeqEq   R0,R3
  377.   LdrEq   R0,[R9,#12]
  378.   TeqEq   R0,R4
  379.   AddNe   R9,R9,#16
  380. l  BNe     checkchainreleaseloop                             ; check if values match, try next lot if not
  381.   Add     R0,R9,#16
  382. .releaseblockmoveloop
  383.   Teq     R10,#0
  384.   LdmGtIa R0!,{R1-R4}
  385.   StmGtIa R9!,{R1-R4}
  386.   SubGt   R10,R10,#1
  387. `  BGt     releaseblockmoveloop                              ; shove list after released down
  388. (  Ldr     R0,[R12,#wk_numberoftraps]
  389.   Sub     R1,R0,#1
  390.   Mov     R0,R0,Lsl#4
  391.   Mov     R1,R1,Lsl#4
  392.   Mov     R2,#chainchunks
  393.   Sub     R2,R2,#1
  394.   Bic     R0,R0,R2
  395.   Bic     R1,R1,R2
  396.   Teq     R0,R1
  397. )  BEq     release_noneedtoremovechunk
  398. "  Mov     R0,#os_module_extend
  399. #  Ldr     R2,[R12,#wk_chainptr]
  400.   Mov     R3,#chainchunks
  401.   Rsb     R3,R3,#0
  402.   Swi     "XOS_Module"
  403. h  Str     R2,[R12,#wk_chainptr]                             ; release any extra chunks we don't need
  404.  .release_noneedtoremovechunk
  405. (  Ldr     R0,[R12,#wk_numberoftraps]
  406.   Sub     R0,R0,#1
  407. r  Str     R0,[R12,#wk_numberoftraps]                        ; take one off, leaving things nice and consistent
  408.   LdmFd   R13!,{R0-R4,R14}
  409. r  LdmFd   R13!,{R9,R10,Pc}^                                 ; and intercept SWI, having replaced functionality
  410. .ourswi_error
  411.   Mov     R9,R0
  412.   LdmFd   R13!,{R0-R4,R14}
  413.   Mov     R0,R9
  414.   LdmFd   R13!,{R9,R10,R14}
  415. Q  OrrS    Pc,R14,#1<<28                                     ; return an error
  416. g  Equs    
  417. 10+"In an emergency, we walk."+
  418. 10+"And... anything below here is probably a virus."
  419.  "OS_File",10,"<Program$Path>WimpSWIVe",&FFA,,code,O%
  420.