Home » Archimedes archive » Zipped Apps » BCPL » BCPLi/wimps
BCPLi/wimps
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Zipped Apps » BCPL |
| Filename: | BCPLi/wimps |
| Read OK: | ✔ |
| File size: | 48A6 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
;Compiled code conventions ;
;Registers:
;
;RB 8 Called address ;can be used without saving
;RL 12 Caller's static
;RTS 11 Top of stack (empty word above)
;RP 10 Frame pointer
;RG 9 Global base
;RGB 7 Special global base
;
;There is an upwards-growing stack, addressed by two registers. R(F)P is the
;frame pointer, RTS the top of stack+1 free word pointer.
;RG points at the base of the global vector; RGB addresses a set of subroutines
;within the library.
;
;On procedure entry, RB holds the address of the called procedure. It need not
;be preserved. RL holds the address of the caller's static data, and must be
;preserved. R14 holds the link: this must be written to both PC and PSR on
;return. R1 to R4 hold the first four arguments, with others on the stack
;above RTS in the usual way. Thus, a general procedure would look like:
; STMEA rts!, {rb, rp, rl, r14} ; save linkage
; SUB rp, rts, #16 ; new frame pointer
; STMEA rts!, {a1, ...} ; arguments
; ...
; MOV rts, rp ; unwind our frame
; LDMIB rp, {rp, rl, pc}^ ; no need to restore RB
;
;R0 to R6 and RB(8) may be used without saving their values; so may R13 and
;moreover it is accessible from BCPL through the name NIL (assignment to NIL
;from BCPL has the side-effect of updating R6). R6 and R13 are guaranteed
;untouched by the library, and by BCPL code which does not update NIL.
;
;On return, a1 holds value received.
.include "regnames"
.include "swinames"
Result2 = 52
Wb = 150
.AREA Code
Start: .ascii "BCPL"
.LONG Globinits-Start
.ascii "WimpSWIs"
.ASCII "25 Dec 89 00-00-00 "
.LONG 0
.LONG -1
.ascic "WimInit"
WimpInitialise:
mov r0, a1 ; Wimp Version Required
ldr a1, Task ;
; mov a2, a2 ; BcToC0( WimpTaskName )
mov a3, a3, lsl #2 ; Message Vec (0 all)
Wswi: swi Wimp_Initialise ;
str r0, [rg, #Result2] ; Current Wimp Version
mov pc, lr ; Resultis Task Handle
Task: .ascii "TASK"
; mov a2, #1
; add a2, a2, a1, lsl #2 ; bug if string not zero-terminated.
; ldr a1, Task
; ldr r0, RiscNo
;Wswi: swi Wimp_Initialise
; str r0, [rg, #Result2]
; mov r0, #0xc0
; mov a4, a1
; ldr a1, fl
; swi OS_Find
; str r0, fl
; mov a1, a4
; mov pc, lr
;Task: .ascii "TASK"
;RiscNo: .long 200
;
.long -1
.ascic "WCreWin"
WimpCreateWindow:
mov r5, #Wimp_CreateWindow-Wimp_Initialise
Wswic: ldr rb, [pc, #Wswi-$-8]
add r5, r5, rb
str r5, [pc, #Wswid-$-8]
mov a2, a2 ;allow for pipelining
mov a1, a1, lsl #2
Wswid: .blkl 1
mov a1, r0
; mov a4, a1
; ldr r0, [a1]
; ldr a1, tmp
; mov a2, #12
; swi OS_ConvertInteger4
; mov a1, r0
; mov r0, #2
; ldr a2, tmp
; mov r3, #12
; swi OS_GBPB
;
; mov a1, a4
mov pc,lr
;
.long -1
.ascic "WCrIcon"
WimpCreateIcon:
mov r5, #Wimp_CreateIcon-Wimp_Initialise
b Wswic
.long -1
.ascic "WDelWin"
WimpDeleteWindow:
mov r5, #Wimp_DeleteWindow-Wimp_Initialise
b Wswic
.long -1
.ascic "WDeIcon"
WimpDeleteIcon:
mov r5, #Wimp_DeleteIcon-Wimp_Initialise
b Wswic
.long -1
.ascic "WiOpenW"
WimpOpenWindow:
mov r5, #Wimp_OpenWindow-Wimp_Initialise
b Wswic
.long -1
.ascic "WCloseW"
WimpCloseWindow:
mov r5, #Wimp_CloseWindow-Wimp_Initialise
b Wswic
;
.long -1
.ascic "WimPoll"
WimpPoll: mov r0, a1
mov a1, a2, lsl #2
swi Wimp_Poll
mov a1, r0
mov pc, lr
;
.long -1
.ascic "WRedraw"
WimpRedrawWindow:
mov r5, #Wimp_RedrawWindow-Wimp_Initialise
b Wswic
.long -1
.ascic "WUpdate"
WimpUpdateWindow:
mov r5, #Wimp_UpdateWindow-Wimp_Initialise
b Wswic
.long -1
.ascic "WGtRect"
WimpGetRectangle:
mov r5, #Wimp_GetRectangle-Wimp_Initialise
b Wswic
.long -1
.ascic "WGtWsta"
WimpGetWindowState:
mov r5, #Wimp_GetWindowState-Wimp_Initialise
b Wswic
.long -1
.ascic "WgtWinf"
WimpGetWindowInfo:
mov r5, #Wimp_GetWindowInfo-Wimp_Initialise
b Wswic
.long -1
.ascic "WSIconS"
WimpSetIconState:
mov r5, #Wimp_SetIconState-Wimp_Initialise
b Wswic
.long -1
.ascic "WGIconS"
WimpGetIconState:
mov r5, #Wimp_GetIconState-Wimp_Initialise
b Wswic
.long -1
.ascic "WGtPtIn"
WimpGetPointerInfo:
mov r5, #Wimp_GetPointerInfo-Wimp_Initialise
b Wswic
.long -1
.ascic "WDragBx"
WimpDragBox:
mov r5, #Wimp_DragBox-Wimp_Initialise
b Wswic
;
.long -1
.ascic "WFRedra"
WimpForceRedraw:
mov r0, a1
mov rb, a2, lsl #2
ldmia rb, {a1-a4}
swi Wimp_ForceRedraw
mov pc, lr
.long -1
.ascic "WSCaret"
WimpSetCaretPosition:
mov r0, a1
mov a1, a2
mov rb, a3, lsl #2
ldmia rb, {a2-r5}
swi Wimp_SetCaretPosition
mov pc, lr
;
.long -1
.ascic "CreMenu"
WimpCreateMenu:
cmn a1, #1
movne a1, a1, lsl #2
swi Wimp_CreateMenu
mov pc, lr
;
.long -1
.ascic "MenuDec"
WimpDecodeMenu:
mov a1, a1, lsl #2
mov a2, a2, lsl #2
mov a3, a3, lsl #2
swi Wimp_DecodeMenu
mov pc, lr
;
.long -1
.ascic "WiWIcon"
WimpWhichIcon:
mov r0, a1
mov a1, a2, lsl #2
mov a2, a3
mov a3, a4
swi Wimp_WhichIcon
mov pc, lr
;
.long -1
.ascic "WSetExt"
WimpSetExtent:
mov r0, a1
mov a1, a2, lsl #2
swi Wimp_SetExtent
mov pc, lr
;
.long -1
.ascic "OpTempl"
WimpOpenTemplate:
swi Wimp_OpenTemplate
mov pc, lr
.long -1
.ascic "ClTempl"
WimpCloseTemplate:
swi Wimp_CloseTemplate
mov pc, lr
.long -1
.ascic "LdTempl"
WimpLoadTemplate:
mov a1, a1, lsl #2
mov rb, a2, lsl #2
ldmia rb, {a2-v3}
swi Wimp_LoadTemplate
stmea rb, {a2-v3}
str v3, [rg, #Result2]
; mov a2, rb, lsr #2
mov a1, a1, lsr #2
mov pc, lr
;
.long -1
.ascic "WProKey"
WimpProcessKey:
mov r0, a1
swi Wimp_ProcessKey
mov pc, lr
.long -1
.ascic "WGCaret"
WimpGetCaretPosition:
mov r5, #Wimp_GetCaretPosition-Wimp_Initialise
b Wswic
;
.long -1
.ascic "WCloseD"
WimpCloseDown:
; mov r0, a1
; ldr a1, Task
swi Wimp_CloseDown
mov pc, lr
.long -1
.ascic "WStTask"
WimpStartTask:
mov r0, a1
swi Wimp_StartTask
mov a1, r0
Mov pc, lr
;
.long -1
.ascic "WRepErr"
WimpReportError:
cmp a1, #0
movgt r0, a1, lsl #2
movle r0, a1
mov a1, a2
mov a2, a3
swi Wimp_ReportError
mov pc, lr
;
.long -1
.ascic "Windout"
WimpGetWindowOutline:
mov r5, #Wimp_GetWindowOutline-Wimp_Initialise
b Wswic
;
.long -1
.ascic "WPollid"
WimpPollIdle:
mov r0, a1
mov a1, a2, lsl #2
mov a2, a3
swi Wimp_PollIdle
mov a1, r0
mov pc, lr
;
.long -1
.ascic "WPlIcon"
WimpPlotIcon:
mov r5, #Wimp_PlotIcon-Wimp_Initialise
b Wswic
;
.long -1
.ascic "SetMode"
WimpSetMode:
mov r0, a1
swi Wimp_SetMode
mov pc, lr
;
.long -1
.ascic "SetPalt"
WimpSetPalette:
mov r5, #Wimp_SetPalette-Wimp_Initialise
b Wswic
.long -1
.ascic "ReadPal"
WimpReadPalette:
mov r5, #Wimp_ReadPalette-Wimp_Initialise
b Wswic
.long -1
.ascic "WSetCol"
WimpSetColour:
mov r0, a1
swi Wimp_SetColour
mov pc, lr
;
.long -1
.ascic "SendMes"
WimpSendMessage:
mov r0, a1
mov a1, a2, lsl #2
mov a2, a3
mov a3, a4
swi Wimp_SendMessage
mov a1, a2
mov pc, lr
;
.long -1
.ascic "CrSuMen"
WimpCreateSubMenu:
mov a1, a1, lsl #2
swi Wimp_CreateSubMenu
mov pc, lr
;
.long -1
.ascic "WSpriOp"
WimpSpriteOp:
mov r0, a1
mov a1, rgb
mov a2, a2, lsl #2
add a2, a2, #1
mov rb, a3, lsl #2
ldmia rb, {a3-rgb}
swi Wimp_SpriteOp
stmea rb, {a3-rgb}
mov rgb, a1
mov a1, a2
mov pc, lr
;
.long -1
.ascic "WSlotSz"
WimpSlotSize:
mov r0, a1
mov a1, a2
mov rb, a3, lsl #2
swi Wimp_SlotSize
str a2, [rb]
str a1, [rg, #Result2]
mov a1, r0
mov pc, lr
;
.long -1
.ascic "WClFMem"
WimpClaimFreeMemory:
mov r0, a1
mov a1, a2
swi Wimp_ClaimFreeMemory
str a2, [rg, #Result2]
mov pc, lr
;
.long -1
.ascic "WCommdW"
WimpCommandWindow:
cmp a1, #1
movgt r0, #1
addgt r0, r0, a1, lsl #2
mvnle r0, a1
swi Wimp_CommandWindow
mov pc, lr
.long -1
.ascic "WTextCl"
WimpTextColour:
mov r0, a1
swi Wimp_TextColour
mov pc, lr
.long -1
.ascic "WSysInf"
WimpReadSysInfo:
mov r0, a1
swi Wimp_ReadSysInfo
mov a1, r0
mov pc, lr
.long -1
.ascic "WGtMenS"
WimpGetMenuState:
mov r0, a1
mov a1, a2, lsl #2
mov a2, a3
mov a3, a4
swi Wimp_GetMenuState
mov pc, lr
Globinits:
.long Wb+0
.long WimpInitialise - Start
.long Wb+1
.long WimpCreateWindow - Start
.long Wb+2
.long WimpCreateIcon -Start
.long Wb+3
.long WimpDeleteWindow -Start
.long Wb+4
.long WimpDeleteIcon - Start
.long Wb+5
.long WimpOpenWindow - Start
.long Wb+6
.long WimpCloseWindow - Start
.long Wb+7
.long WimpPoll - Start
.long Wb+8
.long WimpRedrawWindow - Start
.long Wb+9
.long WimpUpdateWindow - Start
.long Wb+10
.long WimpGetRectangle - Start
.long Wb+11
.long WimpGetWindowState - Start
.long Wb+12
.long WimpGetWindowInfo - Start
.long Wb+13
.long WimpSetIconState - Start
.long Wb+14
.long WimpGetIconState - Start
.long Wb+15
.long WimpGetPointerInfo - Start
.long Wb+16
.long WimpDragBox - Start
.long Wb+17
.long WimpForceRedraw - Start
.long Wb+18
.long WimpSetCaretPosition - Start
.long Wb+19
.long WimpGetCaretPosition - Start
.long Wb+20
.long WimpCreateMenu - Start
.long Wb+21
.long WimpDecodeMenu - Start
.long Wb+22
.long WimpWhichIcon - Start
.long Wb+23
.long WimpSetExtent - Start
.long Wb+25
.long WimpOpenTemplate - Start
.long Wb+26
.long WimpCloseTemplate - Start
.long Wb+27
.long WimpLoadTemplate - Start
.long Wb+28
.long WimpProcessKey - Start
.long Wb+29
.long WimpCloseDown - Start
.long Wb+30
.long WimpStartTask - Start
.long Wb+31
.long WimpReportError - Start
.long Wb+32
.long WimpGetWindowOutline -Start
.long Wb+33
.long WimpPollIdle -Start
.long Wb+34
.long WimpPlotIcon -Start
.long Wb+35
.long WimpSetMode - Start
.long Wb+36
.long WimpSetPalette - Start
.long Wb+37
.long WimpReadPalette - Start
.long Wb+38
.long WimpSetColour - Start
.long Wb+39
.long WimpSendMessage - Start
.long Wb+40
.long WimpCreateSubMenu - Start
.long Wb+41
.long WimpSpriteOp - Start
.long Wb+44
.long WimpSlotSize - Start
.long Wb+46
.long WimpClaimFreeMemory - Start
.long Wb+47
.long WimpCommandWindow - Start
.long Wb+48
.long WimpTextColour - Start
.long Wb+50
.long WimpReadSysInfo - Start
.long Wb+70 ; rearrange
.long WimpGetMenuState - Start
.long Wb+52
.long 0
;cs;dc;tb;i/.long/;tb;e/_//;nw;dc;i/ - Start/;s;i/.long/;tb;tu;2n
.LONG 0x12345678
.LONG Globinits + 4 - Start
.LONG Globinits + 12 - Start
.LONG Globinits + 20 - Start
.LONG Globinits + 28 - Start
.LONG Globinits + 36 - Start
.LONG Globinits + 44 - Start
.LONG Globinits + 52 - Start
.LONG Globinits + 60 - Start
.LONG Globinits + 68 - Start
.LONG Globinits + 76 - Start
.LONG Globinits + 84 - Start
.LONG Globinits + 92 - Start
.LONG Globinits + 100 - Start
.LONG Globinits + 108 - Start
.LONG Globinits + 116 - Start
.LONG Globinits + 124 - Start
.LONG Globinits + 132 - Start
.LONG Globinits + 140 - Start
.LONG Globinits + 148 - Start
.LONG Globinits + 156 - Start
.LONG Globinits + 164 - Start
.LONG Globinits + 172 - Start
.LONG Globinits + 180 - Start
.LONG Globinits + 188 - Start
.LONG Globinits + 196 - Start
.LONG Globinits + 204 - Start
.LONG Globinits + 212 - Start
.LONG Globinits + 220 - Start
.LONG Globinits + 228 - Start
.LONG Globinits + 236 - Start
.LONG Globinits + 244 - Start
.LONG Globinits + 252 - Start
.LONG Globinits + 260 - Start
.LONG Globinits + 268 - Start
.LONG Globinits + 276 - Start
.LONG Globinits + 284 - Start
.LONG Globinits + 292 - Start
.LONG Globinits + 300 - Start
.LONG Globinits + 308 - Start
.LONG Globinits + 316 - Start
.LONG Globinits + 324 - Start
.LONG Globinits + 332 - Start
.LONG Globinits + 340 - Start
.LONG Globinits + 348 - Start
.LONG Globinits + 356 - Start
.LONG Globinits + 364 - Start
.LONG Globinits + 372 - Start
.LONG 0x87654321
;Wimp_SetPointerShape : Wb + 24
;Wimp_BaseOfSprites : Wb + 42
;Wimp_BlockCopy : Wb + 43
;Wimp_ReadPixTrans : Wb + 45
;Wimp_TransferBlock : Wb + 49
;Wimp_SetFontColours : Wb + 51
00000000 3b 43 6f 6d 70 69 6c 65 64 20 63 6f 64 65 20 63 |;Compiled code c|
00000010 6f 6e 76 65 6e 74 69 6f 6e 73 20 3b 0d 0a 3b 52 |onventions ;..;R|
00000020 65 67 69 73 74 65 72 73 3a 0d 0a 3b 0d 0a 3b 52 |egisters:..;..;R|
00000030 42 20 20 20 20 20 20 20 20 20 38 20 20 20 20 43 |B 8 C|
00000040 61 6c 6c 65 64 20 61 64 64 72 65 73 73 20 20 20 |alled address |
00000050 20 20 3b 63 61 6e 20 62 65 20 75 73 65 64 20 77 | ;can be used w|
00000060 69 74 68 6f 75 74 20 73 61 76 69 6e 67 0d 0a 3b |ithout saving..;|
00000070 52 4c 20 20 20 20 20 20 20 20 20 31 32 20 20 20 |RL 12 |
00000080 43 61 6c 6c 65 72 27 73 20 73 74 61 74 69 63 0d |Caller's static.|
00000090 0a 3b 52 54 53 20 20 20 20 20 20 20 20 31 31 20 |.;RTS 11 |
000000a0 20 20 54 6f 70 20 6f 66 20 73 74 61 63 6b 20 28 | Top of stack (|
000000b0 65 6d 70 74 79 20 77 6f 72 64 20 61 62 6f 76 65 |empty word above|
000000c0 29 0d 0a 3b 52 50 20 20 20 20 20 20 20 20 20 31 |)..;RP 1|
000000d0 30 20 20 20 46 72 61 6d 65 20 70 6f 69 6e 74 65 |0 Frame pointe|
000000e0 72 0d 0a 3b 52 47 20 20 20 20 20 20 20 20 20 39 |r..;RG 9|
000000f0 20 20 20 20 47 6c 6f 62 61 6c 20 62 61 73 65 0d | Global base.|
00000100 0a 3b 52 47 42 20 20 20 20 20 20 20 20 37 20 20 |.;RGB 7 |
00000110 20 20 53 70 65 63 69 61 6c 20 67 6c 6f 62 61 6c | Special global|
00000120 20 62 61 73 65 0d 0a 3b 0d 0a 3b 54 68 65 72 65 | base..;..;There|
00000130 20 69 73 20 61 6e 20 75 70 77 61 72 64 73 2d 67 | is an upwards-g|
00000140 72 6f 77 69 6e 67 20 73 74 61 63 6b 2c 20 61 64 |rowing stack, ad|
00000150 64 72 65 73 73 65 64 20 62 79 20 74 77 6f 20 72 |dressed by two r|
00000160 65 67 69 73 74 65 72 73 2e 20 20 52 28 46 29 50 |egisters. R(F)P|
00000170 20 69 73 20 74 68 65 0d 0a 3b 66 72 61 6d 65 20 | is the..;frame |
00000180 70 6f 69 6e 74 65 72 2c 20 52 54 53 20 74 68 65 |pointer, RTS the|
00000190 20 74 6f 70 20 6f 66 20 73 74 61 63 6b 2b 31 20 | top of stack+1 |
000001a0 66 72 65 65 20 77 6f 72 64 20 70 6f 69 6e 74 65 |free word pointe|
000001b0 72 2e 0d 0a 3b 52 47 20 70 6f 69 6e 74 73 20 61 |r...;RG points a|
000001c0 74 20 74 68 65 20 62 61 73 65 20 6f 66 20 74 68 |t the base of th|
000001d0 65 20 67 6c 6f 62 61 6c 20 76 65 63 74 6f 72 3b |e global vector;|
000001e0 20 52 47 42 20 61 64 64 72 65 73 73 65 73 20 61 | RGB addresses a|
000001f0 20 73 65 74 20 6f 66 20 73 75 62 72 6f 75 74 69 | set of subrouti|
00000200 6e 65 73 0d 0a 3b 77 69 74 68 69 6e 20 74 68 65 |nes..;within the|
00000210 20 6c 69 62 72 61 72 79 2e 0d 0a 3b 0d 0a 3b 4f | library...;..;O|
00000220 6e 20 70 72 6f 63 65 64 75 72 65 20 65 6e 74 72 |n procedure entr|
00000230 79 2c 20 52 42 20 68 6f 6c 64 73 20 74 68 65 20 |y, RB holds the |
00000240 61 64 64 72 65 73 73 20 6f 66 20 74 68 65 20 63 |address of the c|
00000250 61 6c 6c 65 64 20 70 72 6f 63 65 64 75 72 65 2e |alled procedure.|
00000260 20 20 49 74 20 6e 65 65 64 20 6e 6f 74 0d 0a 3b | It need not..;|
00000270 62 65 20 70 72 65 73 65 72 76 65 64 2e 20 20 52 |be preserved. R|
00000280 4c 20 68 6f 6c 64 73 20 74 68 65 20 61 64 64 72 |L holds the addr|
00000290 65 73 73 20 6f 66 20 74 68 65 20 63 61 6c 6c 65 |ess of the calle|
000002a0 72 27 73 20 73 74 61 74 69 63 20 64 61 74 61 2c |r's static data,|
000002b0 20 61 6e 64 20 6d 75 73 74 20 62 65 0d 0a 3b 70 | and must be..;p|
000002c0 72 65 73 65 72 76 65 64 2e 20 20 52 31 34 20 68 |reserved. R14 h|
000002d0 6f 6c 64 73 20 74 68 65 20 6c 69 6e 6b 3a 20 74 |olds the link: t|
000002e0 68 69 73 20 6d 75 73 74 20 62 65 20 77 72 69 74 |his must be writ|
000002f0 74 65 6e 20 74 6f 20 62 6f 74 68 20 50 43 20 61 |ten to both PC a|
00000300 6e 64 20 50 53 52 20 6f 6e 0d 0a 3b 72 65 74 75 |nd PSR on..;retu|
00000310 72 6e 2e 20 20 52 31 20 74 6f 20 52 34 20 68 6f |rn. R1 to R4 ho|
00000320 6c 64 20 74 68 65 20 66 69 72 73 74 20 66 6f 75 |ld the first fou|
00000330 72 20 61 72 67 75 6d 65 6e 74 73 2c 20 77 69 74 |r arguments, wit|
00000340 68 20 6f 74 68 65 72 73 20 6f 6e 20 74 68 65 20 |h others on the |
00000350 73 74 61 63 6b 0d 0a 3b 61 62 6f 76 65 20 52 54 |stack..;above RT|
00000360 53 20 69 6e 20 74 68 65 20 75 73 75 61 6c 20 77 |S in the usual w|
00000370 61 79 2e 20 54 68 75 73 2c 20 61 20 67 65 6e 65 |ay. Thus, a gene|
00000380 72 61 6c 20 70 72 6f 63 65 64 75 72 65 20 77 6f |ral procedure wo|
00000390 75 6c 64 20 6c 6f 6f 6b 20 6c 69 6b 65 3a 0d 0a |uld look like:..|
000003a0 3b 20 20 20 20 20 20 20 20 53 54 4d 45 41 20 20 |; STMEA |
000003b0 20 72 74 73 21 2c 20 7b 72 62 2c 20 72 70 2c 20 | rts!, {rb, rp, |
000003c0 72 6c 2c 20 72 31 34 7d 20 3b 20 73 61 76 65 20 |rl, r14} ; save |
000003d0 6c 69 6e 6b 61 67 65 0d 0a 3b 20 20 20 20 20 20 |linkage..; |
000003e0 20 20 53 55 42 20 20 20 20 20 72 70 2c 20 72 74 | SUB rp, rt|
000003f0 73 2c 20 23 31 36 20 20 20 20 20 20 20 20 20 20 |s, #16 |
00000400 20 20 3b 20 6e 65 77 20 66 72 61 6d 65 20 70 6f | ; new frame po|
00000410 69 6e 74 65 72 0d 0a 3b 20 20 20 20 20 20 20 20 |inter..; |
00000420 53 54 4d 45 41 20 20 20 72 74 73 21 2c 20 7b 61 |STMEA rts!, {a|
00000430 31 2c 20 2e 2e 2e 7d 20 20 20 20 20 20 20 20 20 |1, ...} |
00000440 3b 20 61 72 67 75 6d 65 6e 74 73 0d 0a 3b 20 20 |; arguments..; |
00000450 20 20 20 20 20 20 20 20 20 2e 2e 2e 0d 0a 3b 20 | .....; |
00000460 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 72 | MOV r|
00000470 74 73 2c 20 72 70 20 20 20 20 20 20 20 20 20 20 |ts, rp |
00000480 20 20 20 20 20 20 20 3b 20 75 6e 77 69 6e 64 20 | ; unwind |
00000490 6f 75 72 20 66 72 61 6d 65 0d 0a 3b 20 20 20 20 |our frame..; |
000004a0 20 20 20 20 4c 44 4d 49 42 20 20 20 72 70 2c 20 | LDMIB rp, |
000004b0 7b 72 70 2c 20 72 6c 2c 20 70 63 7d 5e 20 20 20 |{rp, rl, pc}^ |
000004c0 20 20 20 20 3b 20 6e 6f 20 6e 65 65 64 20 74 6f | ; no need to|
000004d0 20 72 65 73 74 6f 72 65 20 52 42 0d 0a 3b 0d 0a | restore RB..;..|
000004e0 3b 52 30 20 74 6f 20 52 36 20 61 6e 64 20 52 42 |;R0 to R6 and RB|
000004f0 28 38 29 20 6d 61 79 20 62 65 20 75 73 65 64 20 |(8) may be used |
00000500 77 69 74 68 6f 75 74 20 73 61 76 69 6e 67 20 74 |without saving t|
00000510 68 65 69 72 20 76 61 6c 75 65 73 3b 20 73 6f 20 |heir values; so |
00000520 6d 61 79 20 52 31 33 20 61 6e 64 0d 0a 3b 6d 6f |may R13 and..;mo|
00000530 72 65 6f 76 65 72 20 69 74 20 69 73 20 61 63 63 |reover it is acc|
00000540 65 73 73 69 62 6c 65 20 66 72 6f 6d 20 42 43 50 |essible from BCP|
00000550 4c 20 74 68 72 6f 75 67 68 20 74 68 65 20 6e 61 |L through the na|
00000560 6d 65 20 4e 49 4c 20 28 61 73 73 69 67 6e 6d 65 |me NIL (assignme|
00000570 6e 74 20 74 6f 20 4e 49 4c 0d 0a 3b 66 72 6f 6d |nt to NIL..;from|
00000580 20 42 43 50 4c 20 68 61 73 20 74 68 65 20 73 69 | BCPL has the si|
00000590 64 65 2d 65 66 66 65 63 74 20 6f 66 20 75 70 64 |de-effect of upd|
000005a0 61 74 69 6e 67 20 52 36 29 2e 20 20 52 36 20 61 |ating R6). R6 a|
000005b0 6e 64 20 52 31 33 20 61 72 65 20 67 75 61 72 61 |nd R13 are guara|
000005c0 6e 74 65 65 64 0d 0a 3b 75 6e 74 6f 75 63 68 65 |nteed..;untouche|
000005d0 64 20 62 79 20 74 68 65 20 6c 69 62 72 61 72 79 |d by the library|
000005e0 2c 20 61 6e 64 20 62 79 20 42 43 50 4c 20 63 6f |, and by BCPL co|
000005f0 64 65 20 77 68 69 63 68 20 64 6f 65 73 20 6e 6f |de which does no|
00000600 74 20 75 70 64 61 74 65 20 4e 49 4c 2e 0d 0a 3b |t update NIL...;|
00000610 0d 0a 3b 4f 6e 20 72 65 74 75 72 6e 2c 20 61 31 |..;On return, a1|
00000620 20 68 6f 6c 64 73 20 76 61 6c 75 65 20 72 65 63 | holds value rec|
00000630 65 69 76 65 64 2e 0d 0a 0d 0a 0d 0a 20 20 20 20 |eived....... |
00000640 20 20 20 20 20 20 2e 69 6e 63 6c 75 64 65 20 20 | .include |
00000650 22 72 65 67 6e 61 6d 65 73 22 0d 0a 20 20 20 20 |"regnames".. |
00000660 20 20 20 20 20 20 2e 69 6e 63 6c 75 64 65 20 20 | .include |
00000670 22 73 77 69 6e 61 6d 65 73 22 0d 0a 20 20 20 20 |"swinames".. |
00000680 20 20 20 20 20 20 52 65 73 75 6c 74 32 20 3d 20 | Result2 = |
00000690 35 32 0d 0a 20 20 20 20 20 20 20 20 20 20 57 62 |52.. Wb|
000006a0 20 20 20 20 20 20 3d 20 31 35 30 0d 0a 0d 0a 20 | = 150.... |
000006b0 20 20 20 20 20 20 20 20 20 2e 41 52 45 41 20 20 | .AREA |
000006c0 20 20 20 43 6f 64 65 0d 0a 53 74 61 72 74 3a 20 | Code..Start: |
000006d0 20 20 20 2e 61 73 63 69 69 20 20 20 20 20 22 42 | .ascii "B|
000006e0 43 50 4c 22 0d 0a 20 20 20 20 20 20 20 20 20 20 |CPL".. |
000006f0 2e 4c 4f 4e 47 20 20 20 20 20 47 6c 6f 62 69 6e |.LONG Globin|
00000700 69 74 73 2d 53 74 61 72 74 0d 0a 20 20 20 20 20 |its-Start.. |
00000710 20 20 20 20 20 2e 61 73 63 69 69 20 20 20 20 22 | .ascii "|
00000720 57 69 6d 70 53 57 49 73 22 0d 0a 20 20 20 20 20 |WimpSWIs".. |
00000730 20 20 20 20 20 2e 41 53 43 49 49 20 20 20 20 22 | .ASCII "|
00000740 32 35 20 44 65 63 20 38 39 20 30 30 2d 30 30 2d |25 Dec 89 00-00-|
00000750 30 30 20 20 22 0d 0a 20 20 20 20 20 20 20 20 20 |00 ".. |
00000760 20 2e 4c 4f 4e 47 20 20 20 20 20 30 0d 0a 20 20 | .LONG 0.. |
00000770 20 20 20 20 20 20 20 20 2e 4c 4f 4e 47 20 20 20 | .LONG |
00000780 20 20 2d 31 0d 0a 20 20 20 20 20 20 20 20 20 20 | -1.. |
00000790 2e 61 73 63 69 63 20 20 20 20 22 57 69 6d 49 6e |.ascic "WimIn|
000007a0 69 74 22 0d 0a 57 69 6d 70 49 6e 69 74 69 61 6c |it"..WimpInitial|
000007b0 69 73 65 3a 0d 0a 20 20 20 20 20 20 20 20 20 20 |ise:.. |
000007c0 6d 6f 76 20 20 20 20 20 20 20 72 30 2c 20 61 31 |mov r0, a1|
000007d0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 | ; |
000007e0 57 69 6d 70 20 56 65 72 73 69 6f 6e 20 52 65 71 |Wimp Version Req|
000007f0 75 69 72 65 64 0d 0a 20 20 20 20 20 20 20 20 20 |uired.. |
00000800 20 6c 64 72 20 20 20 20 20 20 20 61 31 2c 20 54 | ldr a1, T|
00000810 61 73 6b 20 20 20 20 20 20 20 20 20 20 20 20 3b |ask ;|
00000820 0d 0a 3b 20 20 20 20 20 20 20 20 20 6d 6f 76 20 |..; mov |
00000830 20 20 20 20 20 20 61 32 2c 20 61 32 20 20 20 20 | a2, a2 |
00000840 20 20 20 20 20 20 20 20 20 20 3b 20 42 63 54 6f | ; BcTo|
00000850 43 30 28 20 57 69 6d 70 54 61 73 6b 4e 61 6d 65 |C0( WimpTaskName|
00000860 20 29 0d 0a 20 20 20 20 20 20 20 20 20 20 6d 6f | ).. mo|
00000870 76 20 20 20 20 20 20 20 61 33 2c 20 61 33 2c 20 |v a3, a3, |
00000880 6c 73 6c 20 23 32 20 20 20 20 20 20 3b 20 4d 65 |lsl #2 ; Me|
00000890 73 73 61 67 65 20 56 65 63 20 28 30 20 61 6c 6c |ssage Vec (0 all|
000008a0 29 0d 0a 57 73 77 69 3a 20 20 20 20 20 73 77 69 |)..Wswi: swi|
000008b0 20 20 20 20 20 20 20 57 69 6d 70 5f 49 6e 69 74 | Wimp_Init|
000008c0 69 61 6c 69 73 65 20 20 20 20 20 3b 0d 0a 20 20 |ialise ;.. |
000008d0 20 20 20 20 20 20 20 20 73 74 72 20 20 20 20 20 | str |
000008e0 20 20 72 30 2c 20 5b 72 67 2c 20 23 52 65 73 75 | r0, [rg, #Resu|
000008f0 6c 74 32 5d 20 20 3b 20 43 75 72 72 65 6e 74 20 |lt2] ; Current |
00000900 57 69 6d 70 20 56 65 72 73 69 6f 6e 0d 0a 20 20 |Wimp Version.. |
00000910 20 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 | mov |
00000920 20 20 70 63 2c 20 6c 72 20 20 20 20 20 20 20 20 | pc, lr |
00000930 20 20 20 20 20 20 3b 20 52 65 73 75 6c 74 69 73 | ; Resultis|
00000940 20 54 61 73 6b 20 48 61 6e 64 6c 65 0d 0a 54 61 | Task Handle..Ta|
00000950 73 6b 3a 20 20 20 20 20 2e 61 73 63 69 69 20 20 |sk: .ascii |
00000960 20 20 22 54 41 53 4b 22 0d 0a 0d 0a 3b 20 20 20 | "TASK"....; |
00000970 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 20 | mov |
00000980 20 61 32 2c 20 23 31 0d 0a 3b 20 20 20 20 20 20 | a2, #1..; |
00000990 20 20 20 20 61 64 64 20 20 20 20 20 20 20 61 32 | add a2|
000009a0 2c 20 61 32 2c 20 61 31 2c 20 6c 73 6c 20 23 32 |, a2, a1, lsl #2|
000009b0 20 3b 20 62 75 67 20 69 66 20 73 74 72 69 6e 67 | ; bug if string|
000009c0 20 6e 6f 74 20 7a 65 72 6f 2d 74 65 72 6d 69 6e | not zero-termin|
000009d0 61 74 65 64 2e 0d 0a 3b 20 20 20 20 20 20 20 20 |ated...; |
000009e0 20 20 6c 64 72 20 20 20 20 20 20 20 61 31 2c 20 | ldr a1, |
000009f0 54 61 73 6b 0d 0a 3b 20 20 20 20 20 20 20 20 20 |Task..; |
00000a00 20 6c 64 72 20 20 20 20 20 20 20 72 30 2c 20 52 | ldr r0, R|
00000a10 69 73 63 4e 6f 0d 0a 3b 57 73 77 69 3a 20 20 20 |iscNo..;Wswi: |
00000a20 20 20 73 77 69 20 20 20 20 20 20 20 57 69 6d 70 | swi Wimp|
00000a30 5f 49 6e 69 74 69 61 6c 69 73 65 0d 0a 3b 20 20 |_Initialise..; |
00000a40 20 20 20 20 20 20 20 20 73 74 72 20 20 20 20 20 | str |
00000a50 20 20 72 30 2c 20 5b 72 67 2c 20 23 52 65 73 75 | r0, [rg, #Resu|
00000a60 6c 74 32 5d 0d 0a 3b 20 20 20 20 20 20 20 20 20 |lt2]..; |
00000a70 20 6d 6f 76 20 20 20 20 20 20 20 72 30 2c 20 23 | mov r0, #|
00000a80 30 78 63 30 0d 0a 3b 20 20 20 20 20 20 20 20 20 |0xc0..; |
00000a90 20 6d 6f 76 20 20 20 20 20 20 20 61 34 2c 20 61 | mov a4, a|
00000aa0 31 0d 0a 3b 20 20 20 20 20 20 20 20 20 20 6c 64 |1..; ld|
00000ab0 72 20 20 20 20 20 20 20 61 31 2c 20 66 6c 0d 0a |r a1, fl..|
00000ac0 3b 20 20 20 20 20 20 20 20 20 20 73 77 69 20 20 |; swi |
00000ad0 20 20 20 20 20 4f 53 5f 46 69 6e 64 0d 0a 3b 20 | OS_Find..; |
00000ae0 20 20 20 20 20 20 20 20 20 73 74 72 20 20 20 20 | str |
00000af0 20 20 20 72 30 2c 20 66 6c 0d 0a 3b 20 20 20 20 | r0, fl..; |
00000b00 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 20 20 | mov |
00000b10 61 31 2c 20 61 34 0d 0a 3b 20 20 20 20 20 20 20 |a1, a4..; |
00000b20 20 20 20 6d 6f 76 20 20 20 20 20 20 20 70 63 2c | mov pc,|
00000b30 20 6c 72 0d 0a 3b 54 61 73 6b 3a 20 20 20 20 20 | lr..;Task: |
00000b40 2e 61 73 63 69 69 20 20 20 20 22 54 41 53 4b 22 |.ascii "TASK"|
00000b50 0d 0a 3b 52 69 73 63 4e 6f 3a 20 20 20 2e 6c 6f |..;RiscNo: .lo|
00000b60 6e 67 20 20 20 20 20 32 30 30 0d 0a 3b 0d 0a 20 |ng 200..;.. |
00000b70 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 | .long |
00000b80 20 20 20 2d 31 0d 0a 20 20 20 20 20 20 20 20 20 | -1.. |
00000b90 20 2e 61 73 63 69 63 20 20 20 20 22 57 43 72 65 | .ascic "WCre|
00000ba0 57 69 6e 22 0d 0a 57 69 6d 70 43 72 65 61 74 65 |Win"..WimpCreate|
00000bb0 57 69 6e 64 6f 77 3a 0d 0a 20 20 20 20 20 20 20 |Window:.. |
00000bc0 20 20 20 6d 6f 76 20 20 20 20 20 20 20 72 35 2c | mov r5,|
00000bd0 20 23 57 69 6d 70 5f 43 72 65 61 74 65 57 69 6e | #Wimp_CreateWin|
00000be0 64 6f 77 2d 57 69 6d 70 5f 49 6e 69 74 69 61 6c |dow-Wimp_Initial|
00000bf0 69 73 65 0d 0a 57 73 77 69 63 3a 20 20 20 20 6c |ise..Wswic: l|
00000c00 64 72 20 20 20 20 20 20 20 72 62 2c 20 5b 70 63 |dr rb, [pc|
00000c10 2c 20 23 57 73 77 69 2d 24 2d 38 5d 0d 0a 20 20 |, #Wswi-$-8].. |
00000c20 20 20 20 20 20 20 20 20 61 64 64 20 20 20 20 20 | add |
00000c30 20 20 72 35 2c 20 72 35 2c 20 72 62 0d 0a 20 20 | r5, r5, rb.. |
00000c40 20 20 20 20 20 20 20 20 73 74 72 20 20 20 20 20 | str |
00000c50 20 20 72 35 2c 20 5b 70 63 2c 20 23 57 73 77 69 | r5, [pc, #Wswi|
00000c60 64 2d 24 2d 38 5d 0d 0a 20 20 20 20 20 20 20 20 |d-$-8].. |
00000c70 20 20 6d 6f 76 20 20 20 20 20 20 20 61 32 2c 20 | mov a2, |
00000c80 61 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |a2 |
00000c90 3b 61 6c 6c 6f 77 20 66 6f 72 20 70 69 70 65 6c |;allow for pipel|
00000ca0 69 6e 69 6e 67 0d 0a 20 20 20 20 20 20 20 20 20 |ining.. |
00000cb0 20 6d 6f 76 20 20 20 20 20 20 20 61 31 2c 20 61 | mov a1, a|
00000cc0 31 2c 20 6c 73 6c 20 23 32 0d 0a 57 73 77 69 64 |1, lsl #2..Wswid|
00000cd0 3a 20 20 20 20 2e 62 6c 6b 6c 20 20 20 20 20 31 |: .blkl 1|
00000ce0 0d 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 20 |.. mov |
00000cf0 20 20 20 20 20 20 61 31 2c 20 72 30 0d 0a 3b 20 | a1, r0..; |
00000d00 20 20 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 | mov |
00000d10 20 20 20 61 34 2c 20 61 31 0d 0a 3b 20 20 20 20 | a4, a1..; |
00000d20 20 20 20 20 20 20 6c 64 72 20 20 20 20 20 20 20 | ldr |
00000d30 72 30 2c 20 5b 61 31 5d 0d 0a 3b 20 20 20 20 20 |r0, [a1]..; |
00000d40 20 20 20 20 20 6c 64 72 20 20 20 20 20 20 20 61 | ldr a|
00000d50 31 2c 20 74 6d 70 0d 0a 3b 20 20 20 20 20 20 20 |1, tmp..; |
00000d60 20 20 20 6d 6f 76 20 20 20 20 20 20 20 61 32 2c | mov a2,|
00000d70 20 23 31 32 0d 0a 3b 20 20 20 20 20 20 20 20 20 | #12..; |
00000d80 20 73 77 69 20 20 20 20 20 20 20 4f 53 5f 43 6f | swi OS_Co|
00000d90 6e 76 65 72 74 49 6e 74 65 67 65 72 34 0d 0a 3b |nvertInteger4..;|
00000da0 20 20 20 20 20 20 20 20 20 20 6d 6f 76 20 20 20 | mov |
00000db0 20 20 20 20 61 31 2c 20 72 30 0d 0a 3b 20 20 20 | a1, r0..; |
00000dc0 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 20 | mov |
00000dd0 20 72 30 2c 20 23 32 0d 0a 3b 20 20 20 20 20 20 | r0, #2..; |
00000de0 20 20 20 20 6c 64 72 20 20 20 20 20 20 20 61 32 | ldr a2|
00000df0 2c 20 74 6d 70 0d 0a 3b 20 20 20 20 20 20 20 20 |, tmp..; |
00000e00 20 20 6d 6f 76 20 20 20 20 20 20 20 72 33 2c 20 | mov r3, |
00000e10 23 31 32 0d 0a 3b 20 20 20 20 20 20 20 20 20 20 |#12..; |
00000e20 73 77 69 20 20 20 20 20 20 20 4f 53 5f 47 42 50 |swi OS_GBP|
00000e30 42 0d 0a 3b 0d 0a 3b 20 20 20 20 20 20 20 20 20 |B..;..; |
00000e40 20 6d 6f 76 20 20 20 20 20 20 20 61 31 2c 20 61 | mov a1, a|
00000e50 34 0d 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 |4.. mov|
00000e60 20 20 20 20 20 20 20 70 63 2c 6c 72 0d 0a 3b 0d | pc,lr..;.|
00000e70 0a 20 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 |. .long|
00000e80 20 20 20 20 20 2d 31 0d 0a 20 20 20 20 20 20 20 | -1.. |
00000e90 20 20 20 2e 61 73 63 69 63 20 20 20 20 22 57 43 | .ascic "WC|
00000ea0 72 49 63 6f 6e 22 0d 0a 57 69 6d 70 43 72 65 61 |rIcon"..WimpCrea|
00000eb0 74 65 49 63 6f 6e 3a 0d 0a 20 20 20 20 20 20 20 |teIcon:.. |
00000ec0 20 20 20 6d 6f 76 20 20 20 20 20 20 20 72 35 2c | mov r5,|
00000ed0 20 23 57 69 6d 70 5f 43 72 65 61 74 65 49 63 6f | #Wimp_CreateIco|
00000ee0 6e 2d 57 69 6d 70 5f 49 6e 69 74 69 61 6c 69 73 |n-Wimp_Initialis|
00000ef0 65 0d 0a 20 20 20 20 20 20 20 20 20 20 62 20 20 |e.. b |
00000f00 20 20 20 20 20 20 20 57 73 77 69 63 0d 0a 20 20 | Wswic.. |
00000f10 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 20 | .long |
00000f20 20 20 2d 31 0d 0a 20 20 20 20 20 20 20 20 20 20 | -1.. |
00000f30 2e 61 73 63 69 63 20 20 20 20 22 57 44 65 6c 57 |.ascic "WDelW|
00000f40 69 6e 22 0d 0a 57 69 6d 70 44 65 6c 65 74 65 57 |in"..WimpDeleteW|
00000f50 69 6e 64 6f 77 3a 0d 0a 20 20 20 20 20 20 20 20 |indow:.. |
00000f60 20 20 6d 6f 76 20 20 20 20 20 20 20 72 35 2c 20 | mov r5, |
00000f70 23 57 69 6d 70 5f 44 65 6c 65 74 65 57 69 6e 64 |#Wimp_DeleteWind|
00000f80 6f 77 2d 57 69 6d 70 5f 49 6e 69 74 69 61 6c 69 |ow-Wimp_Initiali|
00000f90 73 65 0d 0a 20 20 20 20 20 20 20 20 20 20 62 20 |se.. b |
00000fa0 20 20 20 20 20 20 20 20 57 73 77 69 63 0d 0a 20 | Wswic.. |
00000fb0 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 | .long |
00000fc0 20 20 20 2d 31 0d 0a 20 20 20 20 20 20 20 20 20 | -1.. |
00000fd0 20 2e 61 73 63 69 63 20 20 20 20 22 57 44 65 49 | .ascic "WDeI|
00000fe0 63 6f 6e 22 0d 0a 57 69 6d 70 44 65 6c 65 74 65 |con"..WimpDelete|
00000ff0 49 63 6f 6e 3a 0d 0a 20 20 20 20 20 20 20 20 20 |Icon:.. |
00001000 20 6d 6f 76 20 20 20 20 20 20 20 72 35 2c 20 23 | mov r5, #|
00001010 57 69 6d 70 5f 44 65 6c 65 74 65 49 63 6f 6e 2d |Wimp_DeleteIcon-|
00001020 57 69 6d 70 5f 49 6e 69 74 69 61 6c 69 73 65 0d |Wimp_Initialise.|
00001030 0a 20 20 20 20 20 20 20 20 20 20 62 20 20 20 20 |. b |
00001040 20 20 20 20 20 57 73 77 69 63 0d 0a 20 20 20 20 | Wswic.. |
00001050 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 | .long |
00001060 2d 31 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 61 |-1.. .a|
00001070 73 63 69 63 20 20 20 20 22 57 69 4f 70 65 6e 57 |scic "WiOpenW|
00001080 22 0d 0a 57 69 6d 70 4f 70 65 6e 57 69 6e 64 6f |"..WimpOpenWindo|
00001090 77 3a 0d 0a 20 20 20 20 20 20 20 20 20 20 6d 6f |w:.. mo|
000010a0 76 20 20 20 20 20 20 20 72 35 2c 20 23 57 69 6d |v r5, #Wim|
000010b0 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 2d 57 69 6d |p_OpenWindow-Wim|
000010c0 70 5f 49 6e 69 74 69 61 6c 69 73 65 0d 0a 20 20 |p_Initialise.. |
000010d0 20 20 20 20 20 20 20 20 62 20 20 20 20 20 20 20 | b |
000010e0 20 20 57 73 77 69 63 0d 0a 20 20 20 20 20 20 20 | Wswic.. |
000010f0 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 2d 31 0d | .long -1.|
00001100 0a 20 20 20 20 20 20 20 20 20 20 2e 61 73 63 69 |. .asci|
00001110 63 20 20 20 20 22 57 43 6c 6f 73 65 57 22 0d 0a |c "WCloseW"..|
00001120 57 69 6d 70 43 6c 6f 73 65 57 69 6e 64 6f 77 3a |WimpCloseWindow:|
00001130 0d 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 20 |.. mov |
00001140 20 20 20 20 20 20 72 35 2c 20 23 57 69 6d 70 5f | r5, #Wimp_|
00001150 43 6c 6f 73 65 57 69 6e 64 6f 77 2d 57 69 6d 70 |CloseWindow-Wimp|
00001160 5f 49 6e 69 74 69 61 6c 69 73 65 0d 0a 20 20 20 |_Initialise.. |
00001170 20 20 20 20 20 20 20 62 20 20 20 20 20 20 20 20 | b |
00001180 20 57 73 77 69 63 0d 0a 3b 0d 0a 20 20 20 20 20 | Wswic..;.. |
00001190 20 20 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 2d | .long -|
000011a0 31 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 61 73 |1.. .as|
000011b0 63 69 63 20 20 20 20 22 57 69 6d 50 6f 6c 6c 22 |cic "WimPoll"|
000011c0 0d 0a 57 69 6d 70 50 6f 6c 6c 3a 20 6d 6f 76 20 |..WimpPoll: mov |
000011d0 20 20 20 20 20 20 72 30 2c 20 61 31 0d 0a 20 20 | r0, a1.. |
000011e0 20 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 | mov |
000011f0 20 20 61 31 2c 20 61 32 2c 20 6c 73 6c 20 23 32 | a1, a2, lsl #2|
00001200 0d 0a 20 20 20 20 20 20 20 20 20 20 73 77 69 20 |.. swi |
00001210 20 20 20 20 20 20 57 69 6d 70 5f 50 6f 6c 6c 0d | Wimp_Poll.|
00001220 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 20 20 |. mov |
00001230 20 20 20 20 20 61 31 2c 20 72 30 0d 0a 20 20 20 | a1, r0.. |
00001240 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 20 | mov |
00001250 20 70 63 2c 20 6c 72 0d 0a 3b 0d 0a 20 20 20 20 | pc, lr..;.. |
00001260 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 | .long |
00001270 2d 31 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 61 |-1.. .a|
00001280 73 63 69 63 20 20 20 20 22 57 52 65 64 72 61 77 |scic "WRedraw|
00001290 22 0d 0a 57 69 6d 70 52 65 64 72 61 77 57 69 6e |"..WimpRedrawWin|
000012a0 64 6f 77 3a 0d 0a 20 20 20 20 20 20 20 20 20 20 |dow:.. |
000012b0 6d 6f 76 20 20 20 20 20 20 20 72 35 2c 20 23 57 |mov r5, #W|
000012c0 69 6d 70 5f 52 65 64 72 61 77 57 69 6e 64 6f 77 |imp_RedrawWindow|
000012d0 2d 57 69 6d 70 5f 49 6e 69 74 69 61 6c 69 73 65 |-Wimp_Initialise|
000012e0 0d 0a 20 20 20 20 20 20 20 20 20 20 62 20 20 20 |.. b |
000012f0 20 20 20 20 20 20 57 73 77 69 63 0d 0a 20 20 20 | Wswic.. |
00001300 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 20 20 | .long |
00001310 20 2d 31 0d 0a 20 20 20 20 20 20 20 20 20 20 2e | -1.. .|
00001320 61 73 63 69 63 20 20 20 20 22 57 55 70 64 61 74 |ascic "WUpdat|
00001330 65 22 0d 0a 57 69 6d 70 55 70 64 61 74 65 57 69 |e"..WimpUpdateWi|
00001340 6e 64 6f 77 3a 0d 0a 20 20 20 20 20 20 20 20 20 |ndow:.. |
00001350 20 6d 6f 76 20 20 20 20 20 20 20 72 35 2c 20 23 | mov r5, #|
00001360 57 69 6d 70 5f 55 70 64 61 74 65 57 69 6e 64 6f |Wimp_UpdateWindo|
00001370 77 2d 57 69 6d 70 5f 49 6e 69 74 69 61 6c 69 73 |w-Wimp_Initialis|
00001380 65 0d 0a 20 20 20 20 20 20 20 20 20 20 62 20 20 |e.. b |
00001390 20 20 20 20 20 20 20 57 73 77 69 63 0d 0a 20 20 | Wswic.. |
000013a0 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 20 | .long |
000013b0 20 20 2d 31 0d 0a 20 20 20 20 20 20 20 20 20 20 | -1.. |
000013c0 2e 61 73 63 69 63 20 20 20 20 22 57 47 74 52 65 |.ascic "WGtRe|
000013d0 63 74 22 0d 0a 57 69 6d 70 47 65 74 52 65 63 74 |ct"..WimpGetRect|
000013e0 61 6e 67 6c 65 3a 0d 0a 20 20 20 20 20 20 20 20 |angle:.. |
000013f0 20 20 6d 6f 76 20 20 20 20 20 20 20 72 35 2c 20 | mov r5, |
00001400 23 57 69 6d 70 5f 47 65 74 52 65 63 74 61 6e 67 |#Wimp_GetRectang|
00001410 6c 65 2d 57 69 6d 70 5f 49 6e 69 74 69 61 6c 69 |le-Wimp_Initiali|
00001420 73 65 0d 0a 20 20 20 20 20 20 20 20 20 20 62 20 |se.. b |
00001430 20 20 20 20 20 20 20 20 57 73 77 69 63 0d 0a 20 | Wswic.. |
00001440 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 | .long |
00001450 20 20 20 2d 31 0d 0a 20 20 20 20 20 20 20 20 20 | -1.. |
00001460 20 2e 61 73 63 69 63 20 20 20 20 22 57 47 74 57 | .ascic "WGtW|
00001470 73 74 61 22 0d 0a 57 69 6d 70 47 65 74 57 69 6e |sta"..WimpGetWin|
00001480 64 6f 77 53 74 61 74 65 3a 0d 0a 20 20 20 20 20 |dowState:.. |
00001490 20 20 20 20 20 6d 6f 76 20 20 20 20 20 20 20 72 | mov r|
000014a0 35 2c 20 23 57 69 6d 70 5f 47 65 74 57 69 6e 64 |5, #Wimp_GetWind|
000014b0 6f 77 53 74 61 74 65 2d 57 69 6d 70 5f 49 6e 69 |owState-Wimp_Ini|
000014c0 74 69 61 6c 69 73 65 0d 0a 20 20 20 20 20 20 20 |tialise.. |
000014d0 20 20 20 62 20 20 20 20 20 20 20 20 20 57 73 77 | b Wsw|
000014e0 69 63 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 6c |ic.. .l|
000014f0 6f 6e 67 20 20 20 20 20 2d 31 0d 0a 20 20 20 20 |ong -1.. |
00001500 20 20 20 20 20 20 2e 61 73 63 69 63 20 20 20 20 | .ascic |
00001510 22 57 67 74 57 69 6e 66 22 0d 0a 57 69 6d 70 47 |"WgtWinf"..WimpG|
00001520 65 74 57 69 6e 64 6f 77 49 6e 66 6f 3a 0d 0a 20 |etWindowInfo:.. |
00001530 20 20 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 | mov |
00001540 20 20 20 72 35 2c 20 23 57 69 6d 70 5f 47 65 74 | r5, #Wimp_Get|
00001550 57 69 6e 64 6f 77 49 6e 66 6f 2d 57 69 6d 70 5f |WindowInfo-Wimp_|
00001560 49 6e 69 74 69 61 6c 69 73 65 0d 0a 20 20 20 20 |Initialise.. |
00001570 20 20 20 20 20 20 62 20 20 20 20 20 20 20 20 20 | b |
00001580 57 73 77 69 63 0d 0a 20 20 20 20 20 20 20 20 20 |Wswic.. |
00001590 20 2e 6c 6f 6e 67 20 20 20 20 20 2d 31 0d 0a 20 | .long -1.. |
000015a0 20 20 20 20 20 20 20 20 20 2e 61 73 63 69 63 20 | .ascic |
000015b0 20 20 20 22 57 53 49 63 6f 6e 53 22 0d 0a 57 69 | "WSIconS"..Wi|
000015c0 6d 70 53 65 74 49 63 6f 6e 53 74 61 74 65 3a 0d |mpSetIconState:.|
000015d0 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 20 20 |. mov |
000015e0 20 20 20 20 20 72 35 2c 20 23 57 69 6d 70 5f 53 | r5, #Wimp_S|
000015f0 65 74 49 63 6f 6e 53 74 61 74 65 2d 57 69 6d 70 |etIconState-Wimp|
00001600 5f 49 6e 69 74 69 61 6c 69 73 65 0d 0a 20 20 20 |_Initialise.. |
00001610 20 20 20 20 20 20 20 62 20 20 20 20 20 20 20 20 | b |
00001620 20 57 73 77 69 63 0d 0a 20 20 20 20 20 20 20 20 | Wswic.. |
00001630 20 20 2e 6c 6f 6e 67 20 20 20 20 20 2d 31 0d 0a | .long -1..|
00001640 20 20 20 20 20 20 20 20 20 20 2e 61 73 63 69 63 | .ascic|
00001650 20 20 20 20 22 57 47 49 63 6f 6e 53 22 0d 0a 57 | "WGIconS"..W|
00001660 69 6d 70 47 65 74 49 63 6f 6e 53 74 61 74 65 3a |impGetIconState:|
00001670 0d 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 20 |.. mov |
00001680 20 20 20 20 20 20 72 35 2c 20 23 57 69 6d 70 5f | r5, #Wimp_|
00001690 47 65 74 49 63 6f 6e 53 74 61 74 65 2d 57 69 6d |GetIconState-Wim|
000016a0 70 5f 49 6e 69 74 69 61 6c 69 73 65 0d 0a 20 20 |p_Initialise.. |
000016b0 20 20 20 20 20 20 20 20 62 20 20 20 20 20 20 20 | b |
000016c0 20 20 57 73 77 69 63 0d 0a 20 20 20 20 20 20 20 | Wswic.. |
000016d0 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 2d 31 0d | .long -1.|
000016e0 0a 20 20 20 20 20 20 20 20 20 20 2e 61 73 63 69 |. .asci|
000016f0 63 20 20 20 20 22 57 47 74 50 74 49 6e 22 0d 0a |c "WGtPtIn"..|
00001700 57 69 6d 70 47 65 74 50 6f 69 6e 74 65 72 49 6e |WimpGetPointerIn|
00001710 66 6f 3a 0d 0a 20 20 20 20 20 20 20 20 20 20 6d |fo:.. m|
00001720 6f 76 20 20 20 20 20 20 20 72 35 2c 20 23 57 69 |ov r5, #Wi|
00001730 6d 70 5f 47 65 74 50 6f 69 6e 74 65 72 49 6e 66 |mp_GetPointerInf|
00001740 6f 2d 57 69 6d 70 5f 49 6e 69 74 69 61 6c 69 73 |o-Wimp_Initialis|
00001750 65 0d 0a 20 20 20 20 20 20 20 20 20 20 62 20 20 |e.. b |
00001760 20 20 20 20 20 20 20 57 73 77 69 63 0d 0a 20 20 | Wswic.. |
00001770 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 20 | .long |
00001780 20 20 2d 31 0d 0a 20 20 20 20 20 20 20 20 20 20 | -1.. |
00001790 2e 61 73 63 69 63 20 20 20 20 22 57 44 72 61 67 |.ascic "WDrag|
000017a0 42 78 22 0d 0a 57 69 6d 70 44 72 61 67 42 6f 78 |Bx"..WimpDragBox|
000017b0 3a 0d 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 |:.. mov|
000017c0 20 20 20 20 20 20 20 72 35 2c 20 23 57 69 6d 70 | r5, #Wimp|
000017d0 5f 44 72 61 67 42 6f 78 2d 57 69 6d 70 5f 49 6e |_DragBox-Wimp_In|
000017e0 69 74 69 61 6c 69 73 65 0d 0a 20 20 20 20 20 20 |itialise.. |
000017f0 20 20 20 20 62 20 20 20 20 20 20 20 20 20 57 73 | b Ws|
00001800 77 69 63 0d 0a 3b 0d 0a 20 20 20 20 20 20 20 20 |wic..;.. |
00001810 20 20 2e 6c 6f 6e 67 20 20 20 20 20 2d 31 0d 0a | .long -1..|
00001820 20 20 20 20 20 20 20 20 20 20 2e 61 73 63 69 63 | .ascic|
00001830 20 20 20 20 22 57 46 52 65 64 72 61 22 0d 0a 57 | "WFRedra"..W|
00001840 69 6d 70 46 6f 72 63 65 52 65 64 72 61 77 3a 0d |impForceRedraw:.|
00001850 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 20 20 |. mov |
00001860 20 20 20 20 20 72 30 2c 20 61 31 0d 0a 20 20 20 | r0, a1.. |
00001870 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 20 | mov |
00001880 20 72 62 2c 20 61 32 2c 20 6c 73 6c 20 23 32 0d | rb, a2, lsl #2.|
00001890 0a 20 20 20 20 20 20 20 20 20 20 6c 64 6d 69 61 |. ldmia|
000018a0 20 20 20 20 20 72 62 2c 20 7b 61 31 2d 61 34 7d | rb, {a1-a4}|
000018b0 0d 0a 20 20 20 20 20 20 20 20 20 20 73 77 69 20 |.. swi |
000018c0 20 20 20 20 20 20 57 69 6d 70 5f 46 6f 72 63 65 | Wimp_Force|
000018d0 52 65 64 72 61 77 0d 0a 20 20 20 20 20 20 20 20 |Redraw.. |
000018e0 20 20 6d 6f 76 20 20 20 20 20 20 20 70 63 2c 20 | mov pc, |
000018f0 6c 72 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 6c |lr.. .l|
00001900 6f 6e 67 20 20 20 20 20 2d 31 0d 0a 20 20 20 20 |ong -1.. |
00001910 20 20 20 20 20 20 2e 61 73 63 69 63 20 20 20 20 | .ascic |
00001920 22 57 53 43 61 72 65 74 22 0d 0a 57 69 6d 70 53 |"WSCaret"..WimpS|
00001930 65 74 43 61 72 65 74 50 6f 73 69 74 69 6f 6e 3a |etCaretPosition:|
00001940 0d 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 20 |.. mov |
00001950 20 20 20 20 20 20 72 30 2c 20 61 31 0d 0a 20 20 | r0, a1.. |
00001960 20 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 | mov |
00001970 20 20 61 31 2c 20 61 32 0d 0a 20 20 20 20 20 20 | a1, a2.. |
00001980 20 20 20 20 6d 6f 76 20 20 20 20 20 20 20 72 62 | mov rb|
00001990 2c 20 61 33 2c 20 6c 73 6c 20 23 32 0d 0a 20 20 |, a3, lsl #2.. |
000019a0 20 20 20 20 20 20 20 20 6c 64 6d 69 61 20 20 20 | ldmia |
000019b0 20 20 72 62 2c 20 7b 61 32 2d 72 35 7d 0d 0a 20 | rb, {a2-r5}.. |
000019c0 20 20 20 20 20 20 20 20 20 73 77 69 20 20 20 20 | swi |
000019d0 20 20 20 57 69 6d 70 5f 53 65 74 43 61 72 65 74 | Wimp_SetCaret|
000019e0 50 6f 73 69 74 69 6f 6e 0d 0a 20 20 20 20 20 20 |Position.. |
000019f0 20 20 20 20 6d 6f 76 20 20 20 20 20 20 20 70 63 | mov pc|
00001a00 2c 20 6c 72 0d 0a 3b 0d 0a 20 20 20 20 20 20 20 |, lr..;.. |
00001a10 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 2d 31 0d | .long -1.|
00001a20 0a 20 20 20 20 20 20 20 20 20 20 2e 61 73 63 69 |. .asci|
00001a30 63 20 20 20 20 22 43 72 65 4d 65 6e 75 22 0d 0a |c "CreMenu"..|
00001a40 57 69 6d 70 43 72 65 61 74 65 4d 65 6e 75 3a 0d |WimpCreateMenu:.|
00001a50 0a 20 20 20 20 20 20 20 20 20 20 63 6d 6e 20 20 |. cmn |
00001a60 20 20 20 20 20 61 31 2c 20 23 31 0d 0a 20 20 20 | a1, #1.. |
00001a70 20 20 20 20 20 20 20 6d 6f 76 6e 65 20 20 20 20 | movne |
00001a80 20 61 31 2c 20 61 31 2c 20 6c 73 6c 20 23 32 0d | a1, a1, lsl #2.|
00001a90 0a 20 20 20 20 20 20 20 20 20 20 73 77 69 20 20 |. swi |
00001aa0 20 20 20 20 20 57 69 6d 70 5f 43 72 65 61 74 65 | Wimp_Create|
00001ab0 4d 65 6e 75 0d 0a 20 20 20 20 20 20 20 20 20 20 |Menu.. |
00001ac0 6d 6f 76 20 20 20 20 20 20 20 70 63 2c 20 6c 72 |mov pc, lr|
00001ad0 0d 0a 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 2e |..;.. .|
00001ae0 6c 6f 6e 67 20 20 20 20 20 2d 31 0d 0a 20 20 20 |long -1.. |
00001af0 20 20 20 20 20 20 20 2e 61 73 63 69 63 20 20 20 | .ascic |
00001b00 20 22 4d 65 6e 75 44 65 63 22 0d 0a 57 69 6d 70 | "MenuDec"..Wimp|
00001b10 44 65 63 6f 64 65 4d 65 6e 75 3a 0d 0a 20 20 20 |DecodeMenu:.. |
00001b20 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 20 | mov |
00001b30 20 61 31 2c 20 61 31 2c 20 6c 73 6c 20 23 32 0d | a1, a1, lsl #2.|
00001b40 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 20 20 |. mov |
00001b50 20 20 20 20 20 61 32 2c 20 61 32 2c 20 6c 73 6c | a2, a2, lsl|
00001b60 20 23 32 0d 0a 20 20 20 20 20 20 20 20 20 20 6d | #2.. m|
00001b70 6f 76 20 20 20 20 20 20 20 61 33 2c 20 61 33 2c |ov a3, a3,|
00001b80 20 6c 73 6c 20 23 32 0d 0a 20 20 20 20 20 20 20 | lsl #2.. |
00001b90 20 20 20 73 77 69 20 20 20 20 20 20 20 57 69 6d | swi Wim|
00001ba0 70 5f 44 65 63 6f 64 65 4d 65 6e 75 0d 0a 20 20 |p_DecodeMenu.. |
00001bb0 20 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 | mov |
00001bc0 20 20 70 63 2c 20 6c 72 0d 0a 3b 0d 0a 20 20 20 | pc, lr..;.. |
00001bd0 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 20 20 | .long |
00001be0 20 2d 31 0d 0a 20 20 20 20 20 20 20 20 20 20 2e | -1.. .|
00001bf0 61 73 63 69 63 20 20 20 20 22 57 69 57 49 63 6f |ascic "WiWIco|
00001c00 6e 22 0d 0a 57 69 6d 70 57 68 69 63 68 49 63 6f |n"..WimpWhichIco|
00001c10 6e 3a 0d 0a 20 20 20 20 20 20 20 20 20 20 6d 6f |n:.. mo|
00001c20 76 20 20 20 20 20 20 20 72 30 2c 20 61 31 0d 0a |v r0, a1..|
00001c30 20 20 20 20 20 20 20 20 20 20 6d 6f 76 20 20 20 | mov |
00001c40 20 20 20 20 61 31 2c 20 61 32 2c 20 6c 73 6c 20 | a1, a2, lsl |
00001c50 23 32 0d 0a 20 20 20 20 20 20 20 20 20 20 6d 6f |#2.. mo|
00001c60 76 20 20 20 20 20 20 20 61 32 2c 20 61 33 0d 0a |v a2, a3..|
00001c70 20 20 20 20 20 20 20 20 20 20 6d 6f 76 20 20 20 | mov |
00001c80 20 20 20 20 61 33 2c 20 61 34 0d 0a 20 20 20 20 | a3, a4.. |
00001c90 20 20 20 20 20 20 73 77 69 20 20 20 20 20 20 20 | swi |
00001ca0 57 69 6d 70 5f 57 68 69 63 68 49 63 6f 6e 0d 0a |Wimp_WhichIcon..|
00001cb0 20 20 20 20 20 20 20 20 20 20 6d 6f 76 20 20 20 | mov |
00001cc0 20 20 20 20 70 63 2c 20 6c 72 0d 0a 3b 0d 0a 20 | pc, lr..;.. |
00001cd0 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 | .long |
00001ce0 20 20 20 2d 31 0d 0a 20 20 20 20 20 20 20 20 20 | -1.. |
00001cf0 20 2e 61 73 63 69 63 20 20 20 20 22 57 53 65 74 | .ascic "WSet|
00001d00 45 78 74 22 0d 0a 57 69 6d 70 53 65 74 45 78 74 |Ext"..WimpSetExt|
00001d10 65 6e 74 3a 0d 0a 20 20 20 20 20 20 20 20 20 20 |ent:.. |
00001d20 6d 6f 76 20 20 20 20 20 20 20 72 30 2c 20 61 31 |mov r0, a1|
00001d30 0d 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 20 |.. mov |
00001d40 20 20 20 20 20 20 61 31 2c 20 61 32 2c 20 6c 73 | a1, a2, ls|
00001d50 6c 20 23 32 0d 0a 20 20 20 20 20 20 20 20 20 20 |l #2.. |
00001d60 73 77 69 20 20 20 20 20 20 20 57 69 6d 70 5f 53 |swi Wimp_S|
00001d70 65 74 45 78 74 65 6e 74 0d 0a 20 20 20 20 20 20 |etExtent.. |
00001d80 20 20 20 20 6d 6f 76 20 20 20 20 20 20 20 70 63 | mov pc|
00001d90 2c 20 6c 72 0d 0a 3b 0d 0a 20 20 20 20 20 20 20 |, lr..;.. |
00001da0 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 2d 31 0d | .long -1.|
00001db0 0a 20 20 20 20 20 20 20 20 20 20 2e 61 73 63 69 |. .asci|
00001dc0 63 20 20 20 20 22 4f 70 54 65 6d 70 6c 22 0d 0a |c "OpTempl"..|
00001dd0 57 69 6d 70 4f 70 65 6e 54 65 6d 70 6c 61 74 65 |WimpOpenTemplate|
00001de0 3a 0d 0a 20 20 20 20 20 20 20 20 20 20 73 77 69 |:.. swi|
00001df0 20 20 20 20 20 20 20 57 69 6d 70 5f 4f 70 65 6e | Wimp_Open|
00001e00 54 65 6d 70 6c 61 74 65 0d 0a 20 20 20 20 20 20 |Template.. |
00001e10 20 20 20 20 6d 6f 76 20 20 20 20 20 20 20 70 63 | mov pc|
00001e20 2c 20 6c 72 0d 0a 20 20 20 20 20 20 20 20 20 20 |, lr.. |
00001e30 2e 6c 6f 6e 67 20 20 20 20 20 2d 31 0d 0a 20 20 |.long -1.. |
00001e40 20 20 20 20 20 20 20 20 2e 61 73 63 69 63 20 20 | .ascic |
00001e50 20 20 22 43 6c 54 65 6d 70 6c 22 0d 0a 57 69 6d | "ClTempl"..Wim|
00001e60 70 43 6c 6f 73 65 54 65 6d 70 6c 61 74 65 3a 0d |pCloseTemplate:.|
00001e70 0a 20 20 20 20 20 20 20 20 20 20 73 77 69 20 20 |. swi |
00001e80 20 20 20 20 20 57 69 6d 70 5f 43 6c 6f 73 65 54 | Wimp_CloseT|
00001e90 65 6d 70 6c 61 74 65 0d 0a 20 20 20 20 20 20 20 |emplate.. |
00001ea0 20 20 20 6d 6f 76 20 20 20 20 20 20 20 70 63 2c | mov pc,|
00001eb0 20 6c 72 0d 0a 20 20 20 20 20 20 20 20 20 20 2e | lr.. .|
00001ec0 6c 6f 6e 67 20 20 20 20 20 2d 31 0d 0a 20 20 20 |long -1.. |
00001ed0 20 20 20 20 20 20 20 2e 61 73 63 69 63 20 20 20 | .ascic |
00001ee0 20 22 4c 64 54 65 6d 70 6c 22 0d 0a 57 69 6d 70 | "LdTempl"..Wimp|
00001ef0 4c 6f 61 64 54 65 6d 70 6c 61 74 65 3a 0d 0a 20 |LoadTemplate:.. |
00001f00 20 20 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 | mov |
00001f10 20 20 20 61 31 2c 20 61 31 2c 20 6c 73 6c 20 23 | a1, a1, lsl #|
00001f20 32 0d 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 |2.. mov|
00001f30 20 20 20 20 20 20 20 72 62 2c 20 61 32 2c 20 6c | rb, a2, l|
00001f40 73 6c 20 23 32 0d 0a 20 20 20 20 20 20 20 20 20 |sl #2.. |
00001f50 20 6c 64 6d 69 61 20 20 20 20 20 72 62 2c 20 7b | ldmia rb, {|
00001f60 61 32 2d 76 33 7d 0d 0a 20 20 20 20 20 20 20 20 |a2-v3}.. |
00001f70 20 20 73 77 69 20 20 20 20 20 20 20 57 69 6d 70 | swi Wimp|
00001f80 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 65 0d 0a 20 |_LoadTemplate.. |
00001f90 20 20 20 20 20 20 20 20 20 73 74 6d 65 61 20 20 | stmea |
00001fa0 20 20 20 72 62 2c 20 7b 61 32 2d 76 33 7d 0d 0a | rb, {a2-v3}..|
00001fb0 20 20 20 20 20 20 20 20 20 20 73 74 72 20 20 20 | str |
00001fc0 20 20 20 20 76 33 2c 20 5b 72 67 2c 20 23 52 65 | v3, [rg, #Re|
00001fd0 73 75 6c 74 32 5d 0d 0a 3b 20 20 20 20 20 20 20 |sult2]..; |
00001fe0 20 20 20 6d 6f 76 20 20 20 20 20 20 20 61 32 2c | mov a2,|
00001ff0 20 72 62 2c 20 6c 73 72 20 23 32 0d 0a 20 20 20 | rb, lsr #2.. |
00002000 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 20 | mov |
00002010 20 61 31 2c 20 61 31 2c 20 6c 73 72 20 23 32 0d | a1, a1, lsr #2.|
00002020 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 20 20 |. mov |
00002030 20 20 20 20 20 70 63 2c 20 6c 72 0d 0a 3b 0d 0a | pc, lr..;..|
00002040 20 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 | .long |
00002050 20 20 20 20 2d 31 0d 0a 20 20 20 20 20 20 20 20 | -1.. |
00002060 20 20 2e 61 73 63 69 63 20 20 20 20 22 57 50 72 | .ascic "WPr|
00002070 6f 4b 65 79 22 0d 0a 57 69 6d 70 50 72 6f 63 65 |oKey"..WimpProce|
00002080 73 73 4b 65 79 3a 0d 0a 20 20 20 20 20 20 20 20 |ssKey:.. |
00002090 20 20 6d 6f 76 20 20 20 20 20 20 20 72 30 2c 20 | mov r0, |
000020a0 61 31 0d 0a 20 20 20 20 20 20 20 20 20 20 73 77 |a1.. sw|
000020b0 69 20 20 20 20 20 20 20 57 69 6d 70 5f 50 72 6f |i Wimp_Pro|
000020c0 63 65 73 73 4b 65 79 0d 0a 20 20 20 20 20 20 20 |cessKey.. |
000020d0 20 20 20 6d 6f 76 20 20 20 20 20 20 20 70 63 2c | mov pc,|
000020e0 20 6c 72 0d 0a 20 20 20 20 20 20 20 20 20 20 2e | lr.. .|
000020f0 6c 6f 6e 67 20 20 20 20 20 2d 31 0d 0a 20 20 20 |long -1.. |
00002100 20 20 20 20 20 20 20 2e 61 73 63 69 63 20 20 20 | .ascic |
00002110 20 22 57 47 43 61 72 65 74 22 0d 0a 57 69 6d 70 | "WGCaret"..Wimp|
00002120 47 65 74 43 61 72 65 74 50 6f 73 69 74 69 6f 6e |GetCaretPosition|
00002130 3a 0d 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 |:.. mov|
00002140 20 20 20 20 20 20 20 72 35 2c 20 23 57 69 6d 70 | r5, #Wimp|
00002150 5f 47 65 74 43 61 72 65 74 50 6f 73 69 74 69 6f |_GetCaretPositio|
00002160 6e 2d 57 69 6d 70 5f 49 6e 69 74 69 61 6c 69 73 |n-Wimp_Initialis|
00002170 65 0d 0a 20 20 20 20 20 20 20 20 20 20 62 20 20 |e.. b |
00002180 20 20 20 20 20 20 20 57 73 77 69 63 0d 0a 3b 0d | Wswic..;.|
00002190 0a 20 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 |. .long|
000021a0 20 20 20 20 20 2d 31 0d 0a 20 20 20 20 20 20 20 | -1.. |
000021b0 20 20 20 2e 61 73 63 69 63 20 20 20 20 22 57 43 | .ascic "WC|
000021c0 6c 6f 73 65 44 22 0d 0a 57 69 6d 70 43 6c 6f 73 |loseD"..WimpClos|
000021d0 65 44 6f 77 6e 3a 0d 0a 3b 20 20 20 20 20 20 20 |eDown:..; |
000021e0 20 20 20 6d 6f 76 20 20 20 20 20 20 20 72 30 2c | mov r0,|
000021f0 20 61 31 0d 0a 3b 20 20 20 20 20 20 20 20 20 20 | a1..; |
00002200 6c 64 72 20 20 20 20 20 20 20 61 31 2c 20 54 61 |ldr a1, Ta|
00002210 73 6b 0d 0a 20 20 20 20 20 20 20 20 20 20 73 77 |sk.. sw|
00002220 69 20 20 20 20 20 20 20 57 69 6d 70 5f 43 6c 6f |i Wimp_Clo|
00002230 73 65 44 6f 77 6e 0d 0a 20 20 20 20 20 20 20 20 |seDown.. |
00002240 20 20 6d 6f 76 20 20 20 20 20 20 20 70 63 2c 20 | mov pc, |
00002250 6c 72 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 6c |lr.. .l|
00002260 6f 6e 67 20 20 20 20 20 2d 31 0d 0a 20 20 20 20 |ong -1.. |
00002270 20 20 20 20 20 20 2e 61 73 63 69 63 20 20 20 20 | .ascic |
00002280 22 57 53 74 54 61 73 6b 22 0d 0a 57 69 6d 70 53 |"WStTask"..WimpS|
00002290 74 61 72 74 54 61 73 6b 3a 0d 0a 20 20 20 20 20 |tartTask:.. |
000022a0 20 20 20 20 20 6d 6f 76 20 20 20 20 20 20 20 72 | mov r|
000022b0 30 2c 20 61 31 0d 0a 20 20 20 20 20 20 20 20 20 |0, a1.. |
000022c0 20 73 77 69 20 20 20 20 20 20 20 57 69 6d 70 5f | swi Wimp_|
000022d0 53 74 61 72 74 54 61 73 6b 0d 0a 20 20 20 20 20 |StartTask.. |
000022e0 20 20 20 20 20 6d 6f 76 20 20 20 20 20 20 20 61 | mov a|
000022f0 31 2c 20 72 30 0d 0a 20 20 20 20 20 20 20 20 20 |1, r0.. |
00002300 20 4d 6f 76 20 20 20 20 20 20 20 70 63 2c 20 6c | Mov pc, l|
00002310 72 0d 0a 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 |r..;.. |
00002320 2e 6c 6f 6e 67 20 20 20 20 20 2d 31 0d 0a 20 20 |.long -1.. |
00002330 20 20 20 20 20 20 20 20 2e 61 73 63 69 63 20 20 | .ascic |
00002340 20 20 22 57 52 65 70 45 72 72 22 0d 0a 57 69 6d | "WRepErr"..Wim|
00002350 70 52 65 70 6f 72 74 45 72 72 6f 72 3a 0d 0a 20 |pReportError:.. |
00002360 20 20 20 20 20 20 20 20 20 63 6d 70 20 20 20 20 | cmp |
00002370 20 20 20 61 31 2c 20 23 30 0d 0a 20 20 20 20 20 | a1, #0.. |
00002380 20 20 20 20 20 6d 6f 76 67 74 20 20 20 20 20 72 | movgt r|
00002390 30 2c 20 61 31 2c 20 6c 73 6c 20 23 32 0d 0a 20 |0, a1, lsl #2.. |
000023a0 20 20 20 20 20 20 20 20 20 6d 6f 76 6c 65 20 20 | movle |
000023b0 20 20 20 72 30 2c 20 61 31 0d 0a 20 20 20 20 20 | r0, a1.. |
000023c0 20 20 20 20 20 6d 6f 76 20 20 20 20 20 20 20 61 | mov a|
000023d0 31 2c 20 61 32 0d 0a 20 20 20 20 20 20 20 20 20 |1, a2.. |
000023e0 20 6d 6f 76 20 20 20 20 20 20 20 61 32 2c 20 61 | mov a2, a|
000023f0 33 0d 0a 20 20 20 20 20 20 20 20 20 20 73 77 69 |3.. swi|
00002400 20 20 20 20 20 20 20 57 69 6d 70 5f 52 65 70 6f | Wimp_Repo|
00002410 72 74 45 72 72 6f 72 0d 0a 20 20 20 20 20 20 20 |rtError.. |
00002420 20 20 20 6d 6f 76 20 20 20 20 20 20 20 70 63 2c | mov pc,|
00002430 20 6c 72 0d 0a 3b 0d 0a 20 20 20 20 20 20 20 20 | lr..;.. |
00002440 20 20 2e 6c 6f 6e 67 20 20 20 20 20 2d 31 0d 0a | .long -1..|
00002450 20 20 20 20 20 20 20 20 20 20 2e 61 73 63 69 63 | .ascic|
00002460 20 20 20 20 22 57 69 6e 64 6f 75 74 22 0d 0a 57 | "Windout"..W|
00002470 69 6d 70 47 65 74 57 69 6e 64 6f 77 4f 75 74 6c |impGetWindowOutl|
00002480 69 6e 65 3a 0d 0a 20 20 20 20 20 20 20 20 20 20 |ine:.. |
00002490 6d 6f 76 20 20 20 20 20 20 20 72 35 2c 20 23 57 |mov r5, #W|
000024a0 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 4f 75 74 |imp_GetWindowOut|
000024b0 6c 69 6e 65 2d 57 69 6d 70 5f 49 6e 69 74 69 61 |line-Wimp_Initia|
000024c0 6c 69 73 65 0d 0a 20 20 20 20 20 20 20 20 20 20 |lise.. |
000024d0 62 20 20 20 20 20 20 20 20 20 57 73 77 69 63 0d |b Wswic.|
000024e0 0a 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 6c |.;.. .l|
000024f0 6f 6e 67 20 20 20 20 20 2d 31 0d 0a 20 20 20 20 |ong -1.. |
00002500 20 20 20 20 20 20 2e 61 73 63 69 63 20 20 20 20 | .ascic |
00002510 22 57 50 6f 6c 6c 69 64 22 0d 0a 57 69 6d 70 50 |"WPollid"..WimpP|
00002520 6f 6c 6c 49 64 6c 65 3a 0d 0a 20 20 20 20 20 20 |ollIdle:.. |
00002530 20 20 20 20 6d 6f 76 20 20 20 20 20 20 20 72 30 | mov r0|
00002540 2c 20 61 31 0d 0a 20 20 20 20 20 20 20 20 20 20 |, a1.. |
00002550 6d 6f 76 20 20 20 20 20 20 20 61 31 2c 20 61 32 |mov a1, a2|
00002560 2c 20 6c 73 6c 20 23 32 0d 0a 20 20 20 20 20 20 |, lsl #2.. |
00002570 20 20 20 20 6d 6f 76 20 20 20 20 20 20 20 61 32 | mov a2|
00002580 2c 20 61 33 0d 0a 20 20 20 20 20 20 20 20 20 20 |, a3.. |
00002590 73 77 69 20 20 20 20 20 20 20 57 69 6d 70 5f 50 |swi Wimp_P|
000025a0 6f 6c 6c 49 64 6c 65 0d 0a 20 20 20 20 20 20 20 |ollIdle.. |
000025b0 20 20 20 6d 6f 76 20 20 20 20 20 20 20 61 31 2c | mov a1,|
000025c0 20 72 30 0d 0a 20 20 20 20 20 20 20 20 20 20 6d | r0.. m|
000025d0 6f 76 20 20 20 20 20 20 20 70 63 2c 20 6c 72 0d |ov pc, lr.|
000025e0 0a 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 6c |.;.. .l|
000025f0 6f 6e 67 20 20 20 20 20 2d 31 0d 0a 20 20 20 20 |ong -1.. |
00002600 20 20 20 20 20 20 2e 61 73 63 69 63 20 20 20 20 | .ascic |
00002610 22 57 50 6c 49 63 6f 6e 22 0d 0a 57 69 6d 70 50 |"WPlIcon"..WimpP|
00002620 6c 6f 74 49 63 6f 6e 3a 0d 0a 20 20 20 20 20 20 |lotIcon:.. |
00002630 20 20 20 20 6d 6f 76 20 20 20 20 20 20 20 72 35 | mov r5|
00002640 2c 20 23 57 69 6d 70 5f 50 6c 6f 74 49 63 6f 6e |, #Wimp_PlotIcon|
00002650 2d 57 69 6d 70 5f 49 6e 69 74 69 61 6c 69 73 65 |-Wimp_Initialise|
00002660 0d 0a 20 20 20 20 20 20 20 20 20 20 62 20 20 20 |.. b |
00002670 20 20 20 20 20 20 57 73 77 69 63 0d 0a 3b 0d 0a | Wswic..;..|
00002680 20 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 | .long |
00002690 20 20 20 20 2d 31 0d 0a 20 20 20 20 20 20 20 20 | -1.. |
000026a0 20 20 2e 61 73 63 69 63 20 20 20 20 22 53 65 74 | .ascic "Set|
000026b0 4d 6f 64 65 22 0d 0a 57 69 6d 70 53 65 74 4d 6f |Mode"..WimpSetMo|
000026c0 64 65 3a 0d 0a 20 20 20 20 20 20 20 20 20 20 6d |de:.. m|
000026d0 6f 76 20 20 20 20 20 20 20 72 30 2c 20 61 31 0d |ov r0, a1.|
000026e0 0a 20 20 20 20 20 20 20 20 20 20 73 77 69 20 20 |. swi |
000026f0 20 20 20 20 20 57 69 6d 70 5f 53 65 74 4d 6f 64 | Wimp_SetMod|
00002700 65 0d 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 |e.. mov|
00002710 20 20 20 20 20 20 20 70 63 2c 20 6c 72 0d 0a 3b | pc, lr..;|
00002720 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e |.. .lon|
00002730 67 20 20 20 20 20 2d 31 0d 0a 20 20 20 20 20 20 |g -1.. |
00002740 20 20 20 20 2e 61 73 63 69 63 20 20 20 20 22 53 | .ascic "S|
00002750 65 74 50 61 6c 74 22 0d 0a 57 69 6d 70 53 65 74 |etPalt"..WimpSet|
00002760 50 61 6c 65 74 74 65 3a 0d 0a 20 20 20 20 20 20 |Palette:.. |
00002770 20 20 20 20 6d 6f 76 20 20 20 20 20 20 20 72 35 | mov r5|
00002780 2c 20 23 57 69 6d 70 5f 53 65 74 50 61 6c 65 74 |, #Wimp_SetPalet|
00002790 74 65 2d 57 69 6d 70 5f 49 6e 69 74 69 61 6c 69 |te-Wimp_Initiali|
000027a0 73 65 0d 0a 20 20 20 20 20 20 20 20 20 20 62 20 |se.. b |
000027b0 20 20 20 20 20 20 20 20 57 73 77 69 63 0d 0a 20 | Wswic.. |
000027c0 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 | .long |
000027d0 20 20 20 2d 31 0d 0a 20 20 20 20 20 20 20 20 20 | -1.. |
000027e0 20 2e 61 73 63 69 63 20 20 20 20 22 52 65 61 64 | .ascic "Read|
000027f0 50 61 6c 22 0d 0a 57 69 6d 70 52 65 61 64 50 61 |Pal"..WimpReadPa|
00002800 6c 65 74 74 65 3a 0d 0a 20 20 20 20 20 20 20 20 |lette:.. |
00002810 20 20 6d 6f 76 20 20 20 20 20 20 20 72 35 2c 20 | mov r5, |
00002820 23 57 69 6d 70 5f 52 65 61 64 50 61 6c 65 74 74 |#Wimp_ReadPalett|
00002830 65 2d 57 69 6d 70 5f 49 6e 69 74 69 61 6c 69 73 |e-Wimp_Initialis|
00002840 65 0d 0a 20 20 20 20 20 20 20 20 20 20 62 20 20 |e.. b |
00002850 20 20 20 20 20 20 20 57 73 77 69 63 0d 0a 20 20 | Wswic.. |
00002860 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 20 | .long |
00002870 20 20 2d 31 0d 0a 20 20 20 20 20 20 20 20 20 20 | -1.. |
00002880 2e 61 73 63 69 63 20 20 20 20 22 57 53 65 74 43 |.ascic "WSetC|
00002890 6f 6c 22 0d 0a 57 69 6d 70 53 65 74 43 6f 6c 6f |ol"..WimpSetColo|
000028a0 75 72 3a 0d 0a 20 20 20 20 20 20 20 20 20 20 6d |ur:.. m|
000028b0 6f 76 20 20 20 20 20 20 20 72 30 2c 20 61 31 0d |ov r0, a1.|
000028c0 0a 20 20 20 20 20 20 20 20 20 20 73 77 69 20 20 |. swi |
000028d0 20 20 20 20 20 57 69 6d 70 5f 53 65 74 43 6f 6c | Wimp_SetCol|
000028e0 6f 75 72 0d 0a 20 20 20 20 20 20 20 20 20 20 6d |our.. m|
000028f0 6f 76 20 20 20 20 20 20 20 70 63 2c 20 6c 72 0d |ov pc, lr.|
00002900 0a 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 6c |.;.. .l|
00002910 6f 6e 67 20 20 20 20 20 2d 31 0d 0a 20 20 20 20 |ong -1.. |
00002920 20 20 20 20 20 20 2e 61 73 63 69 63 20 20 20 20 | .ascic |
00002930 22 53 65 6e 64 4d 65 73 22 0d 0a 57 69 6d 70 53 |"SendMes"..WimpS|
00002940 65 6e 64 4d 65 73 73 61 67 65 3a 0d 0a 20 20 20 |endMessage:.. |
00002950 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 20 | mov |
00002960 20 72 30 2c 20 61 31 0d 0a 20 20 20 20 20 20 20 | r0, a1.. |
00002970 20 20 20 6d 6f 76 20 20 20 20 20 20 20 61 31 2c | mov a1,|
00002980 20 61 32 2c 20 6c 73 6c 20 23 32 0d 0a 20 20 20 | a2, lsl #2.. |
00002990 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 20 | mov |
000029a0 20 61 32 2c 20 61 33 0d 0a 20 20 20 20 20 20 20 | a2, a3.. |
000029b0 20 20 20 6d 6f 76 20 20 20 20 20 20 20 61 33 2c | mov a3,|
000029c0 20 61 34 0d 0a 20 20 20 20 20 20 20 20 20 20 73 | a4.. s|
000029d0 77 69 20 20 20 20 20 20 20 57 69 6d 70 5f 53 65 |wi Wimp_Se|
000029e0 6e 64 4d 65 73 73 61 67 65 0d 0a 20 20 20 20 20 |ndMessage.. |
000029f0 20 20 20 20 20 6d 6f 76 20 20 20 20 20 20 20 61 | mov a|
00002a00 31 2c 20 61 32 0d 0a 20 20 20 20 20 20 20 20 20 |1, a2.. |
00002a10 20 6d 6f 76 20 20 20 20 20 20 20 70 63 2c 20 6c | mov pc, l|
00002a20 72 0d 0a 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 |r..;.. |
00002a30 2e 6c 6f 6e 67 20 20 20 20 20 2d 31 0d 0a 20 20 |.long -1.. |
00002a40 20 20 20 20 20 20 20 20 2e 61 73 63 69 63 20 20 | .ascic |
00002a50 20 20 22 43 72 53 75 4d 65 6e 22 0d 0a 57 69 6d | "CrSuMen"..Wim|
00002a60 70 43 72 65 61 74 65 53 75 62 4d 65 6e 75 3a 0d |pCreateSubMenu:.|
00002a70 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 20 20 |. mov |
00002a80 20 20 20 20 20 61 31 2c 20 61 31 2c 20 6c 73 6c | a1, a1, lsl|
00002a90 20 23 32 0d 0a 20 20 20 20 20 20 20 20 20 20 73 | #2.. s|
00002aa0 77 69 20 20 20 20 20 20 20 57 69 6d 70 5f 43 72 |wi Wimp_Cr|
00002ab0 65 61 74 65 53 75 62 4d 65 6e 75 0d 0a 20 20 20 |eateSubMenu.. |
00002ac0 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 20 | mov |
00002ad0 20 70 63 2c 20 6c 72 0d 0a 3b 0d 0a 20 20 20 20 | pc, lr..;.. |
00002ae0 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 | .long |
00002af0 2d 31 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 61 |-1.. .a|
00002b00 73 63 69 63 20 20 20 20 22 57 53 70 72 69 4f 70 |scic "WSpriOp|
00002b10 22 0d 0a 57 69 6d 70 53 70 72 69 74 65 4f 70 3a |"..WimpSpriteOp:|
00002b20 0d 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 20 |.. mov |
00002b30 20 20 20 20 20 20 72 30 2c 20 61 31 0d 0a 20 20 | r0, a1.. |
00002b40 20 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 | mov |
00002b50 20 20 61 31 2c 20 72 67 62 0d 0a 20 20 20 20 20 | a1, rgb.. |
00002b60 20 20 20 20 20 6d 6f 76 20 20 20 20 20 20 20 61 | mov a|
00002b70 32 2c 20 61 32 2c 20 6c 73 6c 20 23 32 0d 0a 20 |2, a2, lsl #2.. |
00002b80 20 20 20 20 20 20 20 20 20 61 64 64 20 20 20 20 | add |
00002b90 20 20 20 61 32 2c 20 61 32 2c 20 23 31 0d 0a 20 | a2, a2, #1.. |
00002ba0 20 20 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 | mov |
00002bb0 20 20 20 72 62 2c 20 61 33 2c 20 6c 73 6c 20 23 | rb, a3, lsl #|
00002bc0 32 0d 0a 20 20 20 20 20 20 20 20 20 20 6c 64 6d |2.. ldm|
00002bd0 69 61 20 20 20 20 20 72 62 2c 20 7b 61 33 2d 72 |ia rb, {a3-r|
00002be0 67 62 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 73 |gb}.. s|
00002bf0 77 69 20 20 20 20 20 20 20 57 69 6d 70 5f 53 70 |wi Wimp_Sp|
00002c00 72 69 74 65 4f 70 0d 0a 20 20 20 20 20 20 20 20 |riteOp.. |
00002c10 20 20 73 74 6d 65 61 20 20 20 20 20 72 62 2c 20 | stmea rb, |
00002c20 7b 61 33 2d 72 67 62 7d 0d 0a 20 20 20 20 20 20 |{a3-rgb}.. |
00002c30 20 20 20 20 6d 6f 76 20 20 20 20 20 20 20 72 67 | mov rg|
00002c40 62 2c 20 61 31 0d 0a 20 20 20 20 20 20 20 20 20 |b, a1.. |
00002c50 20 6d 6f 76 20 20 20 20 20 20 20 61 31 2c 20 61 | mov a1, a|
00002c60 32 0d 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 |2.. mov|
00002c70 20 20 20 20 20 20 20 70 63 2c 20 6c 72 0d 0a 3b | pc, lr..;|
00002c80 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e |.. .lon|
00002c90 67 20 20 20 20 20 2d 31 0d 0a 20 20 20 20 20 20 |g -1.. |
00002ca0 20 20 20 20 2e 61 73 63 69 63 20 20 20 20 22 57 | .ascic "W|
00002cb0 53 6c 6f 74 53 7a 22 0d 0a 57 69 6d 70 53 6c 6f |SlotSz"..WimpSlo|
00002cc0 74 53 69 7a 65 3a 0d 0a 20 20 20 20 20 20 20 20 |tSize:.. |
00002cd0 20 20 6d 6f 76 20 20 20 20 20 20 20 72 30 2c 20 | mov r0, |
00002ce0 61 31 0d 0a 20 20 20 20 20 20 20 20 20 20 6d 6f |a1.. mo|
00002cf0 76 20 20 20 20 20 20 20 61 31 2c 20 61 32 0d 0a |v a1, a2..|
00002d00 20 20 20 20 20 20 20 20 20 20 6d 6f 76 20 20 20 | mov |
00002d10 20 20 20 20 72 62 2c 20 61 33 2c 20 6c 73 6c 20 | rb, a3, lsl |
00002d20 23 32 0d 0a 20 20 20 20 20 20 20 20 20 20 73 77 |#2.. sw|
00002d30 69 20 20 20 20 20 20 20 57 69 6d 70 5f 53 6c 6f |i Wimp_Slo|
00002d40 74 53 69 7a 65 0d 0a 20 20 20 20 20 20 20 20 20 |tSize.. |
00002d50 20 73 74 72 20 20 20 20 20 20 20 61 32 2c 20 5b | str a2, [|
00002d60 72 62 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 73 |rb].. s|
00002d70 74 72 20 20 20 20 20 20 20 61 31 2c 20 5b 72 67 |tr a1, [rg|
00002d80 2c 20 23 52 65 73 75 6c 74 32 5d 0d 0a 20 20 20 |, #Result2].. |
00002d90 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 20 | mov |
00002da0 20 61 31 2c 20 72 30 0d 0a 20 20 20 20 20 20 20 | a1, r0.. |
00002db0 20 20 20 6d 6f 76 20 20 20 20 20 20 20 70 63 2c | mov pc,|
00002dc0 20 6c 72 0d 0a 3b 0d 0a 20 20 20 20 20 20 20 20 | lr..;.. |
00002dd0 20 20 2e 6c 6f 6e 67 20 20 20 20 20 2d 31 0d 0a | .long -1..|
00002de0 20 20 20 20 20 20 20 20 20 20 2e 61 73 63 69 63 | .ascic|
00002df0 20 20 20 20 22 57 43 6c 46 4d 65 6d 22 0d 0a 57 | "WClFMem"..W|
00002e00 69 6d 70 43 6c 61 69 6d 46 72 65 65 4d 65 6d 6f |impClaimFreeMemo|
00002e10 72 79 3a 0d 0a 20 20 20 20 20 20 20 20 20 20 6d |ry:.. m|
00002e20 6f 76 20 20 20 20 20 20 20 72 30 2c 20 61 31 0d |ov r0, a1.|
00002e30 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 20 20 |. mov |
00002e40 20 20 20 20 20 61 31 2c 20 61 32 0d 0a 20 20 20 | a1, a2.. |
00002e50 20 20 20 20 20 20 20 73 77 69 20 20 20 20 20 20 | swi |
00002e60 20 57 69 6d 70 5f 43 6c 61 69 6d 46 72 65 65 4d | Wimp_ClaimFreeM|
00002e70 65 6d 6f 72 79 0d 0a 20 20 20 20 20 20 20 20 20 |emory.. |
00002e80 20 73 74 72 20 20 20 20 20 20 20 61 32 2c 20 5b | str a2, [|
00002e90 72 67 2c 20 23 52 65 73 75 6c 74 32 5d 0d 0a 20 |rg, #Result2].. |
00002ea0 20 20 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 | mov |
00002eb0 20 20 20 70 63 2c 20 6c 72 0d 0a 3b 0d 0a 20 20 | pc, lr..;.. |
00002ec0 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 20 | .long |
00002ed0 20 20 2d 31 0d 0a 20 20 20 20 20 20 20 20 20 20 | -1.. |
00002ee0 2e 61 73 63 69 63 20 20 20 20 22 57 43 6f 6d 6d |.ascic "WComm|
00002ef0 64 57 22 0d 0a 57 69 6d 70 43 6f 6d 6d 61 6e 64 |dW"..WimpCommand|
00002f00 57 69 6e 64 6f 77 3a 0d 0a 20 20 20 20 20 20 20 |Window:.. |
00002f10 20 20 20 63 6d 70 20 20 20 20 20 20 20 61 31 2c | cmp a1,|
00002f20 20 23 31 0d 0a 20 20 20 20 20 20 20 20 20 20 6d | #1.. m|
00002f30 6f 76 67 74 20 20 20 20 20 72 30 2c 20 23 31 0d |ovgt r0, #1.|
00002f40 0a 20 20 20 20 20 20 20 20 20 20 61 64 64 67 74 |. addgt|
00002f50 20 20 20 20 20 72 30 2c 20 72 30 2c 20 61 31 2c | r0, r0, a1,|
00002f60 20 6c 73 6c 20 23 32 0d 0a 20 20 20 20 20 20 20 | lsl #2.. |
00002f70 20 20 20 6d 76 6e 6c 65 20 20 20 20 20 72 30 2c | mvnle r0,|
00002f80 20 61 31 0d 0a 20 20 20 20 20 20 20 20 20 20 73 | a1.. s|
00002f90 77 69 20 20 20 20 20 20 20 57 69 6d 70 5f 43 6f |wi Wimp_Co|
00002fa0 6d 6d 61 6e 64 57 69 6e 64 6f 77 0d 0a 20 20 20 |mmandWindow.. |
00002fb0 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 20 | mov |
00002fc0 20 70 63 2c 20 6c 72 0d 0a 20 20 20 20 20 20 20 | pc, lr.. |
00002fd0 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 2d 31 0d | .long -1.|
00002fe0 0a 20 20 20 20 20 20 20 20 20 20 2e 61 73 63 69 |. .asci|
00002ff0 63 20 20 20 20 22 57 54 65 78 74 43 6c 22 0d 0a |c "WTextCl"..|
00003000 57 69 6d 70 54 65 78 74 43 6f 6c 6f 75 72 3a 0d |WimpTextColour:.|
00003010 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 20 20 |. mov |
00003020 20 20 20 20 20 72 30 2c 20 61 31 0d 0a 20 20 20 | r0, a1.. |
00003030 20 20 20 20 20 20 20 73 77 69 20 20 20 20 20 20 | swi |
00003040 20 57 69 6d 70 5f 54 65 78 74 43 6f 6c 6f 75 72 | Wimp_TextColour|
00003050 0d 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 20 |.. mov |
00003060 20 20 20 20 20 20 70 63 2c 20 6c 72 0d 0a 20 20 | pc, lr.. |
00003070 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 20 | .long |
00003080 20 20 2d 31 0d 0a 20 20 20 20 20 20 20 20 20 20 | -1.. |
00003090 2e 61 73 63 69 63 20 20 20 20 22 57 53 79 73 49 |.ascic "WSysI|
000030a0 6e 66 22 0d 0a 57 69 6d 70 52 65 61 64 53 79 73 |nf"..WimpReadSys|
000030b0 49 6e 66 6f 3a 0d 0a 20 20 20 20 20 20 20 20 20 |Info:.. |
000030c0 20 6d 6f 76 20 20 20 20 20 20 20 72 30 2c 20 61 | mov r0, a|
000030d0 31 0d 0a 20 20 20 20 20 20 20 20 20 20 73 77 69 |1.. swi|
000030e0 20 20 20 20 20 20 20 57 69 6d 70 5f 52 65 61 64 | Wimp_Read|
000030f0 53 79 73 49 6e 66 6f 0d 0a 20 20 20 20 20 20 20 |SysInfo.. |
00003100 20 20 20 6d 6f 76 20 20 20 20 20 20 20 61 31 2c | mov a1,|
00003110 20 72 30 0d 0a 20 20 20 20 20 20 20 20 20 20 6d | r0.. m|
00003120 6f 76 20 20 20 20 20 20 20 70 63 2c 20 6c 72 0d |ov pc, lr.|
00003130 0a 20 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 |. .long|
00003140 20 20 20 20 20 2d 31 0d 0a 20 20 20 20 20 20 20 | -1.. |
00003150 20 20 20 2e 61 73 63 69 63 20 20 20 20 22 57 47 | .ascic "WG|
00003160 74 4d 65 6e 53 22 0d 0a 57 69 6d 70 47 65 74 4d |tMenS"..WimpGetM|
00003170 65 6e 75 53 74 61 74 65 3a 0d 0a 20 20 20 20 20 |enuState:.. |
00003180 20 20 20 20 20 6d 6f 76 20 20 20 20 20 20 20 72 | mov r|
00003190 30 2c 20 61 31 0d 0a 20 20 20 20 20 20 20 20 20 |0, a1.. |
000031a0 20 6d 6f 76 20 20 20 20 20 20 20 61 31 2c 20 61 | mov a1, a|
000031b0 32 2c 20 6c 73 6c 20 23 32 0d 0a 20 20 20 20 20 |2, lsl #2.. |
000031c0 20 20 20 20 20 6d 6f 76 20 20 20 20 20 20 20 61 | mov a|
000031d0 32 2c 20 61 33 0d 0a 20 20 20 20 20 20 20 20 20 |2, a3.. |
000031e0 20 6d 6f 76 20 20 20 20 20 20 20 61 33 2c 20 61 | mov a3, a|
000031f0 34 0d 0a 20 20 20 20 20 20 20 20 20 20 73 77 69 |4.. swi|
00003200 20 20 20 20 20 20 20 57 69 6d 70 5f 47 65 74 4d | Wimp_GetM|
00003210 65 6e 75 53 74 61 74 65 0d 0a 20 20 20 20 20 20 |enuState.. |
00003220 20 20 20 20 6d 6f 76 20 20 20 20 20 20 20 70 63 | mov pc|
00003230 2c 20 6c 72 0d 0a 47 6c 6f 62 69 6e 69 74 73 3a |, lr..Globinits:|
00003240 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e |.. .lon|
00003250 67 20 20 20 20 20 57 62 2b 30 0d 0a 20 20 20 20 |g Wb+0.. |
00003260 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 | .long |
00003270 57 69 6d 70 49 6e 69 74 69 61 6c 69 73 65 20 2d |WimpInitialise -|
00003280 20 53 74 61 72 74 0d 0a 20 20 20 20 20 20 20 20 | Start.. |
00003290 20 20 2e 6c 6f 6e 67 20 20 20 20 20 57 62 2b 31 | .long Wb+1|
000032a0 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e |.. .lon|
000032b0 67 20 20 20 20 20 57 69 6d 70 43 72 65 61 74 65 |g WimpCreate|
000032c0 57 69 6e 64 6f 77 20 2d 20 53 74 61 72 74 0d 0a |Window - Start..|
000032d0 20 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 | .long |
000032e0 20 20 20 20 57 62 2b 32 0d 0a 20 20 20 20 20 20 | Wb+2.. |
000032f0 20 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 57 69 | .long Wi|
00003300 6d 70 43 72 65 61 74 65 49 63 6f 6e 20 2d 53 74 |mpCreateIcon -St|
00003310 61 72 74 0d 0a 20 20 20 20 20 20 20 20 20 20 2e |art.. .|
00003320 6c 6f 6e 67 20 20 20 20 20 57 62 2b 33 0d 0a 20 |long Wb+3.. |
00003330 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 | .long |
00003340 20 20 20 57 69 6d 70 44 65 6c 65 74 65 57 69 6e | WimpDeleteWin|
00003350 64 6f 77 20 2d 53 74 61 72 74 0d 0a 20 20 20 20 |dow -Start.. |
00003360 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 | .long |
00003370 57 62 2b 34 0d 0a 20 20 20 20 20 20 20 20 20 20 |Wb+4.. |
00003380 2e 6c 6f 6e 67 20 20 20 20 20 57 69 6d 70 44 65 |.long WimpDe|
00003390 6c 65 74 65 49 63 6f 6e 20 2d 20 53 74 61 72 74 |leteIcon - Start|
000033a0 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e |.. .lon|
000033b0 67 20 20 20 20 20 57 62 2b 35 0d 0a 20 20 20 20 |g Wb+5.. |
000033c0 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 | .long |
000033d0 57 69 6d 70 4f 70 65 6e 57 69 6e 64 6f 77 20 2d |WimpOpenWindow -|
000033e0 20 53 74 61 72 74 0d 0a 20 20 20 20 20 20 20 20 | Start.. |
000033f0 20 20 2e 6c 6f 6e 67 20 20 20 20 20 57 62 2b 36 | .long Wb+6|
00003400 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e |.. .lon|
00003410 67 20 20 20 20 20 57 69 6d 70 43 6c 6f 73 65 57 |g WimpCloseW|
00003420 69 6e 64 6f 77 20 2d 20 53 74 61 72 74 0d 0a 20 |indow - Start.. |
00003430 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 | .long |
00003440 20 20 20 57 62 2b 37 0d 0a 20 20 20 20 20 20 20 | Wb+7.. |
00003450 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 57 69 6d | .long Wim|
00003460 70 50 6f 6c 6c 20 2d 20 53 74 61 72 74 0d 0a 20 |pPoll - Start.. |
00003470 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 | .long |
00003480 20 20 20 57 62 2b 38 0d 0a 20 20 20 20 20 20 20 | Wb+8.. |
00003490 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 57 69 6d | .long Wim|
000034a0 70 52 65 64 72 61 77 57 69 6e 64 6f 77 20 2d 20 |pRedrawWindow - |
000034b0 53 74 61 72 74 0d 0a 20 20 20 20 20 20 20 20 20 |Start.. |
000034c0 20 2e 6c 6f 6e 67 20 20 20 20 20 57 62 2b 39 0d | .long Wb+9.|
000034d0 0a 20 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 |. .long|
000034e0 20 20 20 20 20 57 69 6d 70 55 70 64 61 74 65 57 | WimpUpdateW|
000034f0 69 6e 64 6f 77 20 2d 20 53 74 61 72 74 0d 0a 20 |indow - Start.. |
00003500 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 | .long |
00003510 20 20 20 57 62 2b 31 30 0d 0a 20 20 20 20 20 20 | Wb+10.. |
00003520 20 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 57 69 | .long Wi|
00003530 6d 70 47 65 74 52 65 63 74 61 6e 67 6c 65 20 2d |mpGetRectangle -|
00003540 20 53 74 61 72 74 0d 0a 20 20 20 20 20 20 20 20 | Start.. |
00003550 20 20 2e 6c 6f 6e 67 20 20 20 20 20 57 62 2b 31 | .long Wb+1|
00003560 31 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 6c 6f |1.. .lo|
00003570 6e 67 20 20 20 20 20 57 69 6d 70 47 65 74 57 69 |ng WimpGetWi|
00003580 6e 64 6f 77 53 74 61 74 65 20 2d 20 53 74 61 72 |ndowState - Star|
00003590 74 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 6c 6f |t.. .lo|
000035a0 6e 67 20 20 20 20 20 57 62 2b 31 32 0d 0a 20 20 |ng Wb+12.. |
000035b0 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 20 | .long |
000035c0 20 20 57 69 6d 70 47 65 74 57 69 6e 64 6f 77 49 | WimpGetWindowI|
000035d0 6e 66 6f 20 2d 20 53 74 61 72 74 0d 0a 20 20 20 |nfo - Start.. |
000035e0 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 20 20 | .long |
000035f0 20 57 62 2b 31 33 0d 0a 20 20 20 20 20 20 20 20 | Wb+13.. |
00003600 20 20 2e 6c 6f 6e 67 20 20 20 20 20 57 69 6d 70 | .long Wimp|
00003610 53 65 74 49 63 6f 6e 53 74 61 74 65 20 2d 20 53 |SetIconState - S|
00003620 74 61 72 74 0d 0a 20 20 20 20 20 20 20 20 20 20 |tart.. |
00003630 2e 6c 6f 6e 67 20 20 20 20 20 57 62 2b 31 34 0d |.long Wb+14.|
00003640 0a 20 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 |. .long|
00003650 20 20 20 20 20 57 69 6d 70 47 65 74 49 63 6f 6e | WimpGetIcon|
00003660 53 74 61 74 65 20 2d 20 53 74 61 72 74 0d 0a 20 |State - Start.. |
00003670 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 | .long |
00003680 20 20 20 57 62 2b 31 35 0d 0a 20 20 20 20 20 20 | Wb+15.. |
00003690 20 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 57 69 | .long Wi|
000036a0 6d 70 47 65 74 50 6f 69 6e 74 65 72 49 6e 66 6f |mpGetPointerInfo|
000036b0 20 20 2d 20 53 74 61 72 74 0d 0a 20 20 20 20 20 | - Start.. |
000036c0 20 20 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 57 | .long W|
000036d0 62 2b 31 36 0d 0a 20 20 20 20 20 20 20 20 20 20 |b+16.. |
000036e0 2e 6c 6f 6e 67 20 20 20 20 20 57 69 6d 70 44 72 |.long WimpDr|
000036f0 61 67 42 6f 78 20 2d 20 53 74 61 72 74 0d 0a 20 |agBox - Start.. |
00003700 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 | .long |
00003710 20 20 20 57 62 2b 31 37 0d 0a 20 20 20 20 20 20 | Wb+17.. |
00003720 20 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 57 69 | .long Wi|
00003730 6d 70 46 6f 72 63 65 52 65 64 72 61 77 20 2d 20 |mpForceRedraw - |
00003740 53 74 61 72 74 0d 0a 20 20 20 20 20 20 20 20 20 |Start.. |
00003750 20 2e 6c 6f 6e 67 20 20 20 20 20 57 62 2b 31 38 | .long Wb+18|
00003760 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e |.. .lon|
00003770 67 20 20 20 20 20 57 69 6d 70 53 65 74 43 61 72 |g WimpSetCar|
00003780 65 74 50 6f 73 69 74 69 6f 6e 20 2d 20 53 74 61 |etPosition - Sta|
00003790 72 74 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 6c |rt.. .l|
000037a0 6f 6e 67 20 20 20 20 20 57 62 2b 31 39 0d 0a 20 |ong Wb+19.. |
000037b0 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 | .long |
000037c0 20 20 20 57 69 6d 70 47 65 74 43 61 72 65 74 50 | WimpGetCaretP|
000037d0 6f 73 69 74 69 6f 6e 20 2d 20 53 74 61 72 74 0d |osition - Start.|
000037e0 0a 20 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 |. .long|
000037f0 20 20 20 20 20 57 62 2b 32 30 0d 0a 20 20 20 20 | Wb+20.. |
00003800 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 | .long |
00003810 57 69 6d 70 43 72 65 61 74 65 4d 65 6e 75 20 2d |WimpCreateMenu -|
00003820 20 53 74 61 72 74 0d 0a 20 20 20 20 20 20 20 20 | Start.. |
00003830 20 20 2e 6c 6f 6e 67 20 20 20 20 20 57 62 2b 32 | .long Wb+2|
00003840 31 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 6c 6f |1.. .lo|
00003850 6e 67 20 20 20 20 20 57 69 6d 70 44 65 63 6f 64 |ng WimpDecod|
00003860 65 4d 65 6e 75 20 2d 20 53 74 61 72 74 0d 0a 20 |eMenu - Start.. |
00003870 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 | .long |
00003880 20 20 20 57 62 2b 32 32 0d 0a 20 20 20 20 20 20 | Wb+22.. |
00003890 20 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 57 69 | .long Wi|
000038a0 6d 70 57 68 69 63 68 49 63 6f 6e 20 2d 20 53 74 |mpWhichIcon - St|
000038b0 61 72 74 0d 0a 20 20 20 20 20 20 20 20 20 20 2e |art.. .|
000038c0 6c 6f 6e 67 20 20 20 20 20 57 62 2b 32 33 0d 0a |long Wb+23..|
000038d0 20 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 | .long |
000038e0 20 20 20 20 57 69 6d 70 53 65 74 45 78 74 65 6e | WimpSetExten|
000038f0 74 20 2d 20 53 74 61 72 74 0d 0a 20 20 20 20 20 |t - Start.. |
00003900 20 20 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 57 | .long W|
00003910 62 2b 32 35 0d 0a 20 20 20 20 20 20 20 20 20 20 |b+25.. |
00003920 2e 6c 6f 6e 67 20 20 20 20 20 57 69 6d 70 4f 70 |.long WimpOp|
00003930 65 6e 54 65 6d 70 6c 61 74 65 20 2d 20 53 74 61 |enTemplate - Sta|
00003940 72 74 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 6c |rt.. .l|
00003950 6f 6e 67 20 20 20 20 20 57 62 2b 32 36 0d 0a 20 |ong Wb+26.. |
00003960 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 | .long |
00003970 20 20 20 57 69 6d 70 43 6c 6f 73 65 54 65 6d 70 | WimpCloseTemp|
00003980 6c 61 74 65 20 2d 20 53 74 61 72 74 0d 0a 20 20 |late - Start.. |
00003990 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 20 | .long |
000039a0 20 20 57 62 2b 32 37 0d 0a 20 20 20 20 20 20 20 | Wb+27.. |
000039b0 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 57 69 6d | .long Wim|
000039c0 70 4c 6f 61 64 54 65 6d 70 6c 61 74 65 20 2d 20 |pLoadTemplate - |
000039d0 53 74 61 72 74 0d 0a 20 20 20 20 20 20 20 20 20 |Start.. |
000039e0 20 2e 6c 6f 6e 67 20 20 20 20 20 57 62 2b 32 38 | .long Wb+28|
000039f0 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e |.. .lon|
00003a00 67 20 20 20 20 20 57 69 6d 70 50 72 6f 63 65 73 |g WimpProces|
00003a10 73 4b 65 79 20 2d 20 53 74 61 72 74 0d 0a 20 20 |sKey - Start.. |
00003a20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 20 | .long |
00003a30 20 20 57 62 2b 32 39 0d 0a 20 20 20 20 20 20 20 | Wb+29.. |
00003a40 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 57 69 6d | .long Wim|
00003a50 70 43 6c 6f 73 65 44 6f 77 6e 20 2d 20 53 74 61 |pCloseDown - Sta|
00003a60 72 74 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 6c |rt.. .l|
00003a70 6f 6e 67 20 20 20 20 20 57 62 2b 33 30 0d 0a 20 |ong Wb+30.. |
00003a80 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 | .long |
00003a90 20 20 20 57 69 6d 70 53 74 61 72 74 54 61 73 6b | WimpStartTask|
00003aa0 20 2d 20 53 74 61 72 74 0d 0a 20 20 20 20 20 20 | - Start.. |
00003ab0 20 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 57 62 | .long Wb|
00003ac0 2b 33 31 0d 0a 20 20 20 20 20 20 20 20 20 20 2e |+31.. .|
00003ad0 6c 6f 6e 67 20 20 20 20 20 57 69 6d 70 52 65 70 |long WimpRep|
00003ae0 6f 72 74 45 72 72 6f 72 20 2d 20 53 74 61 72 74 |ortError - Start|
00003af0 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e |.. .lon|
00003b00 67 20 20 20 20 20 57 62 2b 33 32 0d 0a 20 20 20 |g Wb+32.. |
00003b10 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 20 20 | .long |
00003b20 20 57 69 6d 70 47 65 74 57 69 6e 64 6f 77 4f 75 | WimpGetWindowOu|
00003b30 74 6c 69 6e 65 20 2d 53 74 61 72 74 0d 0a 20 20 |tline -Start.. |
00003b40 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 20 | .long |
00003b50 20 20 57 62 2b 33 33 0d 0a 20 20 20 20 20 20 20 | Wb+33.. |
00003b60 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 57 69 6d | .long Wim|
00003b70 70 50 6f 6c 6c 49 64 6c 65 20 2d 53 74 61 72 74 |pPollIdle -Start|
00003b80 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e |.. .lon|
00003b90 67 20 20 20 20 20 57 62 2b 33 34 0d 0a 20 20 20 |g Wb+34.. |
00003ba0 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 20 20 | .long |
00003bb0 20 57 69 6d 70 50 6c 6f 74 49 63 6f 6e 20 2d 53 | WimpPlotIcon -S|
00003bc0 74 61 72 74 0d 0a 20 20 20 20 20 20 20 20 20 20 |tart.. |
00003bd0 2e 6c 6f 6e 67 20 20 20 20 20 57 62 2b 33 35 0d |.long Wb+35.|
00003be0 0a 20 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 |. .long|
00003bf0 20 20 20 20 20 57 69 6d 70 53 65 74 4d 6f 64 65 | WimpSetMode|
00003c00 20 2d 20 53 74 61 72 74 0d 0a 20 20 20 20 20 20 | - Start.. |
00003c10 20 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 57 62 | .long Wb|
00003c20 2b 33 36 0d 0a 20 20 20 20 20 20 20 20 20 20 2e |+36.. .|
00003c30 6c 6f 6e 67 20 20 20 20 20 57 69 6d 70 53 65 74 |long WimpSet|
00003c40 50 61 6c 65 74 74 65 20 2d 20 53 74 61 72 74 0d |Palette - Start.|
00003c50 0a 20 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 |. .long|
00003c60 20 20 20 20 20 57 62 2b 33 37 0d 0a 20 20 20 20 | Wb+37.. |
00003c70 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 | .long |
00003c80 57 69 6d 70 52 65 61 64 50 61 6c 65 74 74 65 20 |WimpReadPalette |
00003c90 2d 20 53 74 61 72 74 0d 0a 20 20 20 20 20 20 20 |- Start.. |
00003ca0 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 57 62 2b | .long Wb+|
00003cb0 33 38 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 6c |38.. .l|
00003cc0 6f 6e 67 20 20 20 20 20 57 69 6d 70 53 65 74 43 |ong WimpSetC|
00003cd0 6f 6c 6f 75 72 20 2d 20 53 74 61 72 74 0d 0a 20 |olour - Start.. |
00003ce0 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 | .long |
00003cf0 20 20 20 57 62 2b 33 39 0d 0a 20 20 20 20 20 20 | Wb+39.. |
00003d00 20 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 57 69 | .long Wi|
00003d10 6d 70 53 65 6e 64 4d 65 73 73 61 67 65 20 2d 20 |mpSendMessage - |
00003d20 53 74 61 72 74 0d 0a 20 20 20 20 20 20 20 20 20 |Start.. |
00003d30 20 2e 6c 6f 6e 67 20 20 20 20 20 57 62 2b 34 30 | .long Wb+40|
00003d40 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e |.. .lon|
00003d50 67 20 20 20 20 20 57 69 6d 70 43 72 65 61 74 65 |g WimpCreate|
00003d60 53 75 62 4d 65 6e 75 20 2d 20 53 74 61 72 74 0d |SubMenu - Start.|
00003d70 0a 20 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 |. .long|
00003d80 20 20 20 20 20 57 62 2b 34 31 0d 0a 20 20 20 20 | Wb+41.. |
00003d90 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 | .long |
00003da0 57 69 6d 70 53 70 72 69 74 65 4f 70 20 2d 20 53 |WimpSpriteOp - S|
00003db0 74 61 72 74 0d 0a 20 20 20 20 20 20 20 20 20 20 |tart.. |
00003dc0 2e 6c 6f 6e 67 20 20 20 20 20 57 62 2b 34 34 0d |.long Wb+44.|
00003dd0 0a 20 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 |. .long|
00003de0 20 20 20 20 20 57 69 6d 70 53 6c 6f 74 53 69 7a | WimpSlotSiz|
00003df0 65 20 2d 20 53 74 61 72 74 0d 0a 20 20 20 20 20 |e - Start.. |
00003e00 20 20 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 57 | .long W|
00003e10 62 2b 34 36 0d 0a 20 20 20 20 20 20 20 20 20 20 |b+46.. |
00003e20 2e 6c 6f 6e 67 20 20 20 20 20 57 69 6d 70 43 6c |.long WimpCl|
00003e30 61 69 6d 46 72 65 65 4d 65 6d 6f 72 79 20 2d 20 |aimFreeMemory - |
00003e40 53 74 61 72 74 0d 0a 20 20 20 20 20 20 20 20 20 |Start.. |
00003e50 20 2e 6c 6f 6e 67 20 20 20 20 20 57 62 2b 34 37 | .long Wb+47|
00003e60 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e |.. .lon|
00003e70 67 20 20 20 20 20 57 69 6d 70 43 6f 6d 6d 61 6e |g WimpComman|
00003e80 64 57 69 6e 64 6f 77 20 2d 20 53 74 61 72 74 0d |dWindow - Start.|
00003e90 0a 20 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 |. .long|
00003ea0 20 20 20 20 20 57 62 2b 34 38 0d 0a 20 20 20 20 | Wb+48.. |
00003eb0 20 20 20 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 | .long |
00003ec0 57 69 6d 70 54 65 78 74 43 6f 6c 6f 75 72 20 2d |WimpTextColour -|
00003ed0 20 53 74 61 72 74 0d 0a 20 20 20 20 20 20 20 20 | Start.. |
00003ee0 20 20 2e 6c 6f 6e 67 20 20 20 20 20 57 62 2b 35 | .long Wb+5|
00003ef0 30 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 6c 6f |0.. .lo|
00003f00 6e 67 20 20 20 20 20 57 69 6d 70 52 65 61 64 53 |ng WimpReadS|
00003f10 79 73 49 6e 66 6f 20 2d 20 53 74 61 72 74 0d 0a |ysInfo - Start..|
00003f20 20 20 20 20 20 20 20 20 20 20 2e 6c 6f 6e 67 20 | .long |
00003f30 20 20 20 20 57 62 2b 37 30 20 20 20 20 20 20 20 | Wb+70 |
00003f40 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 72 | ; r|
00003f50 65 61 72 72 61 6e 67 65 0d 0a 20 20 20 20 20 20 |earrange.. |
00003f60 20 20 20 20 2e 6c 6f 6e 67 20 20 20 20 20 57 69 | .long Wi|
00003f70 6d 70 47 65 74 4d 65 6e 75 53 74 61 74 65 20 2d |mpGetMenuState -|
00003f80 20 53 74 61 72 74 0d 0a 20 20 20 20 20 20 20 20 | Start.. |
00003f90 20 20 2e 6c 6f 6e 67 20 20 20 20 20 57 62 2b 35 | .long Wb+5|
00003fa0 32 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 6c 6f |2.. .lo|
00003fb0 6e 67 20 20 20 20 20 30 0d 0a 3b 63 73 3b 64 63 |ng 0..;cs;dc|
00003fc0 3b 74 62 3b 69 2f 2e 6c 6f 6e 67 2f 3b 74 62 3b |;tb;i/.long/;tb;|
00003fd0 65 2f 5f 2f 2f 3b 6e 77 3b 64 63 3b 69 2f 20 2d |e/_//;nw;dc;i/ -|
00003fe0 20 53 74 61 72 74 2f 3b 73 3b 69 2f 2e 6c 6f 6e | Start/;s;i/.lon|
00003ff0 67 2f 3b 74 62 3b 74 75 3b 32 6e 0d 0a 20 20 20 |g/;tb;tu;2n.. |
00004000 20 20 20 20 20 20 20 2e 4c 4f 4e 47 20 20 30 78 | .LONG 0x|
00004010 31 32 33 34 35 36 37 38 0d 0a 20 20 20 20 20 20 |12345678.. |
00004020 20 20 20 20 2e 4c 4f 4e 47 20 20 47 6c 6f 62 69 | .LONG Globi|
00004030 6e 69 74 73 20 2b 20 34 20 2d 20 53 74 61 72 74 |nits + 4 - Start|
00004040 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 4c 4f 4e |.. .LON|
00004050 47 20 20 47 6c 6f 62 69 6e 69 74 73 20 2b 20 31 |G Globinits + 1|
00004060 32 20 2d 20 53 74 61 72 74 0d 0a 20 20 20 20 20 |2 - Start.. |
00004070 20 20 20 20 20 2e 4c 4f 4e 47 20 20 47 6c 6f 62 | .LONG Glob|
00004080 69 6e 69 74 73 20 2b 20 32 30 20 2d 20 53 74 61 |inits + 20 - Sta|
00004090 72 74 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 4c |rt.. .L|
000040a0 4f 4e 47 20 20 47 6c 6f 62 69 6e 69 74 73 20 2b |ONG Globinits +|
000040b0 20 32 38 20 2d 20 53 74 61 72 74 0d 0a 20 20 20 | 28 - Start.. |
000040c0 20 20 20 20 20 20 20 2e 4c 4f 4e 47 20 20 47 6c | .LONG Gl|
000040d0 6f 62 69 6e 69 74 73 20 2b 20 33 36 20 2d 20 53 |obinits + 36 - S|
000040e0 74 61 72 74 0d 0a 20 20 20 20 20 20 20 20 20 20 |tart.. |
000040f0 2e 4c 4f 4e 47 20 20 47 6c 6f 62 69 6e 69 74 73 |.LONG Globinits|
00004100 20 2b 20 34 34 20 2d 20 53 74 61 72 74 0d 0a 20 | + 44 - Start.. |
00004110 20 20 20 20 20 20 20 20 20 2e 4c 4f 4e 47 20 20 | .LONG |
00004120 47 6c 6f 62 69 6e 69 74 73 20 2b 20 35 32 20 2d |Globinits + 52 -|
00004130 20 53 74 61 72 74 0d 0a 20 20 20 20 20 20 20 20 | Start.. |
00004140 20 20 2e 4c 4f 4e 47 20 20 47 6c 6f 62 69 6e 69 | .LONG Globini|
00004150 74 73 20 2b 20 36 30 20 2d 20 53 74 61 72 74 0d |ts + 60 - Start.|
00004160 0a 20 20 20 20 20 20 20 20 20 20 2e 4c 4f 4e 47 |. .LONG|
00004170 20 20 47 6c 6f 62 69 6e 69 74 73 20 2b 20 36 38 | Globinits + 68|
00004180 20 2d 20 53 74 61 72 74 0d 0a 20 20 20 20 20 20 | - Start.. |
00004190 20 20 20 20 2e 4c 4f 4e 47 20 20 47 6c 6f 62 69 | .LONG Globi|
000041a0 6e 69 74 73 20 2b 20 37 36 20 2d 20 53 74 61 72 |nits + 76 - Star|
000041b0 74 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 4c 4f |t.. .LO|
000041c0 4e 47 20 20 47 6c 6f 62 69 6e 69 74 73 20 2b 20 |NG Globinits + |
000041d0 38 34 20 2d 20 53 74 61 72 74 0d 0a 20 20 20 20 |84 - Start.. |
000041e0 20 20 20 20 20 20 2e 4c 4f 4e 47 20 20 47 6c 6f | .LONG Glo|
000041f0 62 69 6e 69 74 73 20 2b 20 39 32 20 2d 20 53 74 |binits + 92 - St|
00004200 61 72 74 0d 0a 20 20 20 20 20 20 20 20 20 20 2e |art.. .|
00004210 4c 4f 4e 47 20 20 47 6c 6f 62 69 6e 69 74 73 20 |LONG Globinits |
00004220 2b 20 31 30 30 20 2d 20 53 74 61 72 74 0d 0a 20 |+ 100 - Start.. |
00004230 20 20 20 20 20 20 20 20 20 2e 4c 4f 4e 47 20 20 | .LONG |
00004240 47 6c 6f 62 69 6e 69 74 73 20 2b 20 31 30 38 20 |Globinits + 108 |
00004250 2d 20 53 74 61 72 74 0d 0a 20 20 20 20 20 20 20 |- Start.. |
00004260 20 20 20 2e 4c 4f 4e 47 20 20 47 6c 6f 62 69 6e | .LONG Globin|
00004270 69 74 73 20 2b 20 31 31 36 20 2d 20 53 74 61 72 |its + 116 - Star|
00004280 74 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 4c 4f |t.. .LO|
00004290 4e 47 20 20 47 6c 6f 62 69 6e 69 74 73 20 2b 20 |NG Globinits + |
000042a0 31 32 34 20 2d 20 53 74 61 72 74 0d 0a 20 20 20 |124 - Start.. |
000042b0 20 20 20 20 20 20 20 2e 4c 4f 4e 47 20 20 47 6c | .LONG Gl|
000042c0 6f 62 69 6e 69 74 73 20 2b 20 31 33 32 20 2d 20 |obinits + 132 - |
000042d0 53 74 61 72 74 0d 0a 20 20 20 20 20 20 20 20 20 |Start.. |
000042e0 20 2e 4c 4f 4e 47 20 20 47 6c 6f 62 69 6e 69 74 | .LONG Globinit|
000042f0 73 20 2b 20 31 34 30 20 2d 20 53 74 61 72 74 0d |s + 140 - Start.|
00004300 0a 20 20 20 20 20 20 20 20 20 20 2e 4c 4f 4e 47 |. .LONG|
00004310 20 20 47 6c 6f 62 69 6e 69 74 73 20 2b 20 31 34 | Globinits + 14|
00004320 38 20 2d 20 53 74 61 72 74 0d 0a 20 20 20 20 20 |8 - Start.. |
00004330 20 20 20 20 20 2e 4c 4f 4e 47 20 20 47 6c 6f 62 | .LONG Glob|
00004340 69 6e 69 74 73 20 2b 20 31 35 36 20 2d 20 53 74 |inits + 156 - St|
00004350 61 72 74 0d 0a 20 20 20 20 20 20 20 20 20 20 2e |art.. .|
00004360 4c 4f 4e 47 20 20 47 6c 6f 62 69 6e 69 74 73 20 |LONG Globinits |
00004370 2b 20 31 36 34 20 2d 20 53 74 61 72 74 0d 0a 20 |+ 164 - Start.. |
00004380 20 20 20 20 20 20 20 20 20 2e 4c 4f 4e 47 20 20 | .LONG |
00004390 47 6c 6f 62 69 6e 69 74 73 20 2b 20 31 37 32 20 |Globinits + 172 |
000043a0 2d 20 53 74 61 72 74 0d 0a 20 20 20 20 20 20 20 |- Start.. |
000043b0 20 20 20 2e 4c 4f 4e 47 20 20 47 6c 6f 62 69 6e | .LONG Globin|
000043c0 69 74 73 20 2b 20 31 38 30 20 2d 20 53 74 61 72 |its + 180 - Star|
000043d0 74 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 4c 4f |t.. .LO|
000043e0 4e 47 20 20 47 6c 6f 62 69 6e 69 74 73 20 2b 20 |NG Globinits + |
000043f0 31 38 38 20 2d 20 53 74 61 72 74 0d 0a 20 20 20 |188 - Start.. |
00004400 20 20 20 20 20 20 20 2e 4c 4f 4e 47 20 20 47 6c | .LONG Gl|
00004410 6f 62 69 6e 69 74 73 20 2b 20 31 39 36 20 2d 20 |obinits + 196 - |
00004420 53 74 61 72 74 0d 0a 20 20 20 20 20 20 20 20 20 |Start.. |
00004430 20 2e 4c 4f 4e 47 20 20 47 6c 6f 62 69 6e 69 74 | .LONG Globinit|
00004440 73 20 2b 20 32 30 34 20 2d 20 53 74 61 72 74 0d |s + 204 - Start.|
00004450 0a 20 20 20 20 20 20 20 20 20 20 2e 4c 4f 4e 47 |. .LONG|
00004460 20 20 47 6c 6f 62 69 6e 69 74 73 20 2b 20 32 31 | Globinits + 21|
00004470 32 20 2d 20 53 74 61 72 74 0d 0a 20 20 20 20 20 |2 - Start.. |
00004480 20 20 20 20 20 2e 4c 4f 4e 47 20 20 47 6c 6f 62 | .LONG Glob|
00004490 69 6e 69 74 73 20 2b 20 32 32 30 20 2d 20 53 74 |inits + 220 - St|
000044a0 61 72 74 0d 0a 20 20 20 20 20 20 20 20 20 20 2e |art.. .|
000044b0 4c 4f 4e 47 20 20 47 6c 6f 62 69 6e 69 74 73 20 |LONG Globinits |
000044c0 2b 20 32 32 38 20 2d 20 53 74 61 72 74 0d 0a 20 |+ 228 - Start.. |
000044d0 20 20 20 20 20 20 20 20 20 2e 4c 4f 4e 47 20 20 | .LONG |
000044e0 47 6c 6f 62 69 6e 69 74 73 20 2b 20 32 33 36 20 |Globinits + 236 |
000044f0 2d 20 53 74 61 72 74 0d 0a 20 20 20 20 20 20 20 |- Start.. |
00004500 20 20 20 2e 4c 4f 4e 47 20 20 47 6c 6f 62 69 6e | .LONG Globin|
00004510 69 74 73 20 2b 20 32 34 34 20 2d 20 53 74 61 72 |its + 244 - Star|
00004520 74 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 4c 4f |t.. .LO|
00004530 4e 47 20 20 47 6c 6f 62 69 6e 69 74 73 20 2b 20 |NG Globinits + |
00004540 32 35 32 20 2d 20 53 74 61 72 74 0d 0a 20 20 20 |252 - Start.. |
00004550 20 20 20 20 20 20 20 2e 4c 4f 4e 47 20 20 47 6c | .LONG Gl|
00004560 6f 62 69 6e 69 74 73 20 2b 20 32 36 30 20 2d 20 |obinits + 260 - |
00004570 53 74 61 72 74 0d 0a 20 20 20 20 20 20 20 20 20 |Start.. |
00004580 20 2e 4c 4f 4e 47 20 20 47 6c 6f 62 69 6e 69 74 | .LONG Globinit|
00004590 73 20 2b 20 32 36 38 20 2d 20 53 74 61 72 74 0d |s + 268 - Start.|
000045a0 0a 20 20 20 20 20 20 20 20 20 20 2e 4c 4f 4e 47 |. .LONG|
000045b0 20 20 47 6c 6f 62 69 6e 69 74 73 20 2b 20 32 37 | Globinits + 27|
000045c0 36 20 2d 20 53 74 61 72 74 0d 0a 20 20 20 20 20 |6 - Start.. |
000045d0 20 20 20 20 20 2e 4c 4f 4e 47 20 20 47 6c 6f 62 | .LONG Glob|
000045e0 69 6e 69 74 73 20 2b 20 32 38 34 20 2d 20 53 74 |inits + 284 - St|
000045f0 61 72 74 0d 0a 20 20 20 20 20 20 20 20 20 20 2e |art.. .|
00004600 4c 4f 4e 47 20 20 47 6c 6f 62 69 6e 69 74 73 20 |LONG Globinits |
00004610 2b 20 32 39 32 20 2d 20 53 74 61 72 74 0d 0a 20 |+ 292 - Start.. |
00004620 20 20 20 20 20 20 20 20 20 2e 4c 4f 4e 47 20 20 | .LONG |
00004630 47 6c 6f 62 69 6e 69 74 73 20 2b 20 33 30 30 20 |Globinits + 300 |
00004640 2d 20 53 74 61 72 74 0d 0a 20 20 20 20 20 20 20 |- Start.. |
00004650 20 20 20 2e 4c 4f 4e 47 20 20 47 6c 6f 62 69 6e | .LONG Globin|
00004660 69 74 73 20 2b 20 33 30 38 20 2d 20 53 74 61 72 |its + 308 - Star|
00004670 74 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 4c 4f |t.. .LO|
00004680 4e 47 20 20 47 6c 6f 62 69 6e 69 74 73 20 2b 20 |NG Globinits + |
00004690 33 31 36 20 2d 20 53 74 61 72 74 0d 0a 20 20 20 |316 - Start.. |
000046a0 20 20 20 20 20 20 20 2e 4c 4f 4e 47 20 20 47 6c | .LONG Gl|
000046b0 6f 62 69 6e 69 74 73 20 2b 20 33 32 34 20 2d 20 |obinits + 324 - |
000046c0 53 74 61 72 74 0d 0a 20 20 20 20 20 20 20 20 20 |Start.. |
000046d0 20 2e 4c 4f 4e 47 20 20 47 6c 6f 62 69 6e 69 74 | .LONG Globinit|
000046e0 73 20 2b 20 33 33 32 20 2d 20 53 74 61 72 74 0d |s + 332 - Start.|
000046f0 0a 20 20 20 20 20 20 20 20 20 20 2e 4c 4f 4e 47 |. .LONG|
00004700 20 20 47 6c 6f 62 69 6e 69 74 73 20 2b 20 33 34 | Globinits + 34|
00004710 30 20 2d 20 53 74 61 72 74 0d 0a 20 20 20 20 20 |0 - Start.. |
00004720 20 20 20 20 20 2e 4c 4f 4e 47 20 20 47 6c 6f 62 | .LONG Glob|
00004730 69 6e 69 74 73 20 2b 20 33 34 38 20 2d 20 53 74 |inits + 348 - St|
00004740 61 72 74 0d 0a 20 20 20 20 20 20 20 20 20 20 2e |art.. .|
00004750 4c 4f 4e 47 20 20 47 6c 6f 62 69 6e 69 74 73 20 |LONG Globinits |
00004760 2b 20 33 35 36 20 2d 20 53 74 61 72 74 0d 0a 20 |+ 356 - Start.. |
00004770 20 20 20 20 20 20 20 20 20 2e 4c 4f 4e 47 20 20 | .LONG |
00004780 47 6c 6f 62 69 6e 69 74 73 20 2b 20 33 36 34 20 |Globinits + 364 |
00004790 2d 20 53 74 61 72 74 0d 0a 20 20 20 20 20 20 20 |- Start.. |
000047a0 20 20 20 2e 4c 4f 4e 47 20 20 47 6c 6f 62 69 6e | .LONG Globin|
000047b0 69 74 73 20 2b 20 33 37 32 20 2d 20 53 74 61 72 |its + 372 - Star|
000047c0 74 0d 0a 20 20 20 20 20 20 20 20 20 20 2e 4c 4f |t.. .LO|
000047d0 4e 47 20 20 30 78 38 37 36 35 34 33 32 31 0d 0a |NG 0x87654321..|
000047e0 3b 57 69 6d 70 5f 53 65 74 50 6f 69 6e 74 65 72 |;Wimp_SetPointer|
000047f0 53 68 61 70 65 20 3a 20 57 62 20 2b 20 32 34 0d |Shape : Wb + 24.|
00004800 0a 3b 57 69 6d 70 5f 42 61 73 65 4f 66 53 70 72 |.;Wimp_BaseOfSpr|
00004810 69 74 65 73 20 3a 20 20 20 57 62 20 2b 20 34 32 |ites : Wb + 42|
00004820 0d 0a 3b 57 69 6d 70 5f 42 6c 6f 63 6b 43 6f 70 |..;Wimp_BlockCop|
00004830 79 20 3a 20 20 20 20 20 20 20 57 62 20 2b 20 34 |y : Wb + 4|
00004840 33 0d 0a 3b 57 69 6d 70 5f 52 65 61 64 50 69 78 |3..;Wimp_ReadPix|
00004850 54 72 61 6e 73 20 3a 20 20 20 20 57 62 20 2b 20 |Trans : Wb + |
00004860 34 35 0d 0a 3b 57 69 6d 70 5f 54 72 61 6e 73 66 |45..;Wimp_Transf|
00004870 65 72 42 6c 6f 63 6b 20 3a 20 20 20 57 62 20 2b |erBlock : Wb +|
00004880 20 34 39 0d 0a 3b 57 69 6d 70 5f 53 65 74 46 6f | 49..;Wimp_SetFo|
00004890 6e 74 43 6f 6c 6f 75 72 73 20 3a 20 20 57 62 20 |ntColours : Wb |
000048a0 2b 20 35 31 0d 0a |+ 51..|
000048a6 
.