Home » Archimedes archive » Acorn User » AU 1997-08 B.adf » Features » 3D/!AU_Attack/source/h/our_lib
3D/!AU_Attack/source/h/our_lib
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 » Acorn User » AU 1997-08 B.adf » Features |
| Filename: | 3D/!AU_Attack/source/h/our_lib |
| Read OK: | ✔ |
| File size: | 4695 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
/*
our_lib.h : Written by Greg Scott 1997
for Acorn User, as part of the "Virtual
Worlds" series.
Usage of the source code is done at the
owners risk, and Acorn User or the auth
or hold no responsibility for damages.
This has been written with EasyC/C++, hence
the #pragma commands. A little cutting/pasting
should be adequate for other compilers. Otherwise
just run the executable!
*/
#include <stdio.h>
/* Assembler Functions (SWIs, etc) */
#pragma asm
EXPORT ourlib_gettime
.ourlib_gettime
STMFD R13!,{R1-R4,R14}
SWI OS_ReadMonotonicTime
LDMFD R13!,{R1-R4,R15}
EXPORT ourlib_keydown
.ourlib_keydown
STMFD R13!,{R1-R2,R14}
EOR R1,R0,#128
MOV R0,#121
SWI OS_Byte
MOV R0,R1
LDMFD R13!,{R1-R2,PC}
EXPORT ourlib_sliver_mask
.ourlib_sliver_mask
STMFD R13!,{R1-R9,R14}
LDMIA R0,{R0-R5}
/*
.noclippingz
ADD R1,R1,R6,LSL #12 ; calculate offset in walls[][] array
ADD R1,R1,R2 ; add the column to this
*/
/*CMP R3,R2
MOVGE R3,R2*/
MOV R8,#128
SUB R8,R8,R3,LSR #1 ; set start y pos
ADD R4,R4,R8,LSL #8 ; work out usual screen (320x256)
ADD R4,R4,R8,LSL #6 ; offset to begin loop
ADD R0,R0,R4
MOV R8,#64 ; start loop counter
MOV R7,R8
CMP R3,#64
BLLE loopy64looz
CMP R3,#127
BLLE loopy127looz
CMP R3,#191
BLLE loopy191looz
BL loopy192looz
.loopy64looz
.doddle64z
CMP R7,#64
BLLT done64looz
LDRBS R9,[R1] ; if so load in pixel value
SUB R7,R7,#64
CMP R9,#0
/*BEQ skip1*/
STRNEB R9,[R0]
.skip1
ADD R0,R0,#320
.done64looz
ADD R1,R1,#64
ADD R7,R7,R3 ; add scale onto vert. error term
SUBS R8,R8,#1
BLNE loopy64looz ; loop if so
LDMFD R13!,{R1-R9,R15}^
.loopy127looz
.doddle127z
CMP R7,#64
LDRB R9,[R1] ; if so load in pixel value
SUB R7,R7,#64
CMP R9,#0
/*BEQ skip2*/
STRNEB R9,[R0]
.skip2
ADD R0,R0,#320
CMP R7,#64
BLLT done127looz
LDRB R9,[R1] ; if so load in pixel value
SUB R7,R7,#64
CMP R9,#0
/*BEQ skip3*/
STRNEB R9,[R0]
.skip3
ADD R0,R0,#320
.done127looz
ADD R1,R1,#64
ADD R7,R7,R3 ; add scale onto vert. error term
SUBS R8,R8,#1
BLNE loopy127looz ; loop if so
LDMFD R13!,{R1-R9,R15}^
.loopy191looz
.doddle191z
CMP R7,#64
LDRB R9,[R1] ; if so load in pixel value
SUB R7,R7,#64
CMP R9,#0
/*BEQ skip4*/
STRNEB R9,[R0]
.skip4
ADD R0,R0,#320
CMP R7,#64
LDRB R9,[R1] ; if so load in pixel value
SUB R7,R7,#64
CMP R9,#0
/*BEQ skip5*/
STRNEB R9,[R0]
.skip5
ADD R0,R0,#320
CMP R7,#64
BLT done191looz
LDRB R9,[R1] ; if so load in pixel value
SUB R7,R7,#64
CMP R9,#0
/*BEQ skip6*/
STRNEB R9,[R0]
.skip6
ADD R0,R0,#320
.done191looz
ADD R1,R1,#64
ADD R7,R7,R3 ; add scale onto vert. error term
SUBS R8,R8,#1
BLNE loopy191looz ; loop if so
LDMFD R13!,{R1-R9,R15}^
.loopy192looz
.doddle192z
CMP R7,#64
LDRB R9,[R1] ; if so load in pixel value
SUB R7,R7,#64
CMP R9,#0
/*BEQ skip7*/
STRNEB R9,[R0]
.skip7
ADD R0,R0,#320
CMP R7,#64
LDRB R9,[R1] ; if so load in pixel value
SUB R7,R7,#64
CMP R9,#0
BEQ skip8
STRB R9,[R0]
.skip8
ADD R0,R0,#320
CMP R7,#64
LDRB R9,[R1] ; if so load in pixel value
SUB R7,R7,#64
CMP R9,#0
/*BEQ skip9*/
STRNEB R9,[R0]
.skip9
ADD R0,R0,#320
CMP R7,#64
BLLT done192looz
LDRB R9,[R1] ; if so load in pixel value
SUB R7,R7,#64
CMP R9,#0
/*BEQ skip10*/
STRNEB R9,[R0]
.skip10
ADD R0,R0,#320
.done192looz
ADD R1,R1,#64
ADD R7,R7,R3 ; add scale onto vert. error term
SUBS R8,R8,#1
BLNE loopy192looz ; loop if so
.endoffunctionz
LDMFD R13!,{R1-R9,R15}^
EXPORT ourlib_bar_plot
.ourlib_bar_plot
STMFD R13!,{R1-R4,R14}
; R0 = screen R1 = bar R2 = startoffset
MOV R3,#250
ADD R0,R0,R2
.bar_loop
LDR R2,[R1],#4
STR R2,[R0],#4
LDR R2,[R1],#4
STR R2,[R0],#4
LDR R2,[R1],#4
STR R2,[R0],#4
LDR R2,[R1],#4
STR R2,[R0],#4
LDR R2,[R1],#4
STR R2,[R0],#4
LDR R2,[R1],#4
STR R2,[R0],#4
LDR R2,[R1],#4
STR R2,[R0],#4
LDR R2,[R1],#4
STR R2,[R0],#4
LDR R2,[R1],#4
STR R2,[R0],#4
LDR R2,[R1],#4
STR R2,[R0],#4
LDR R2,[R1],#4
STR R2,[R0],#4
LDR R2,[R1],#4
STR R2,[R0],#4
LDR R2,[R1],#4
STR R2,[R0],#4
LDR R2,[R1],#4
STR R2,[R0],#4
LDR R2,[R1],#4
STR R2,[R0],#4
LDR R2,[R1],#4
STR R2,[R0],#4SUBS R3,R3,#1
BNE bar_loop
LDMFD R13!,{R1-R4,R15}^
EXPORT ourlib_gun_plot
.ourlib_gun_plot
STMFD R13!,{R1-R12,R14}
/* R0 = video R1 =graphic R2 = width R3 =height */
MOV R5,R0
.yg_loop
MOV R4,R2
ADD R0,R0,#320
MOV R5,R0
.xg_loop
LDRB R6,[R1],#1
CMP R6,#151
BEQ cont
STRB R6,[R5]
.cont
ADD R5,R5,#1
SUBS R4,R4,#1
BNE xg_loop
SUBS R3,R3,#1
BNE yg_loop
LDMFD R13!,{R1-R12,R15}
EXPORT ourlib_changemode
.ourlib_changemode
STMFD R13!,{R1-R4,R14}
MOV R1,R0
MOV R0,#22
SWI OS_WriteC
MOV R0,R1
SWI OS_WriteC
LDMFD R13!,{R1-R4,R15}
EXPORT ourlib_wait
.ourlib_wait
STMFD R13!,{R1-R5,R14}
MOV R3,R0 /* Copy variable into safe place */
SWI OS_ReadMonotonicTime
ADD R2,R0,R3
.time_loop
SWI OS_ReadMonotonicTime
CMP R0,R2
BLE time_loop
LDMFD R13!,{R1-R5,R15}^
EXPORT ourlib_closedown_screens
.ourlib_closedown_screens
STMFD R13!,{R1-R4,R14}
MOV R0,#114
MOV R1,#1
SWI "OS_Byte"
LDMFD R13!,{R1-R4,R15}^
.simplenumber
EQUD 0
EXPORT ourlib_simpleswitch
.ourlib_simpleswitch
STMFD R13!,{R1-R5,R14}
LDR R1,simplenumber
MOV R0,#113
MOV R4,R1
SWI "OS_Byte"
MVN R1,R4
STR R1,simplenumber
MOV R0,#112
SWI "OS_Byte"
LDMFD R13!,{R1-R5,R15}^
EXPORT ourlib_setup_screens
.ourlib_setup_screens
STMFD R13!,{R1-R4,R14}
MOV R0,#114
MOV R1,#0
SWI "OS_Byte"
LDMFD R13!,{R1-R4,R15}^
EXPORT ourlib_killcursor
.ourlib_killcursor
STMFD R13!,{R1-R4,R14}
SWI "OS_RemoveCursors"
LDMFD R13!,{R1-R4,R15}^
EXPORT ourlib_revivecursor
.ourlib_revivecursor
STMFD R13!,{R1-R4,R14}
SWI "OS_RestoreCursors"
LDMFD R13!,{R1-R4,R15}^
EXPORT ourlib_sliver_two
.ourlib_sliver_two
STMFD R13!,{R1-R12,R14}
LDMIA R0,{R0-R6}
CMP R3,#255
MOVGE R3,#255
ADD R1,R1,R6,LSL #2
ADD R1,R1,R2
MOV R8,#128
SUB R8,R8,R3,LSR #1
ADD R4,R4,R8,LSL #8
ADD R4,R4,R8,LSL #6
ADD R0,R0,R4
MOV R10,#0
MOV R8,R3
MOV R3,R1
.looop
LDRB R9,[R1,R10,LSL #6] ; if so load in pixel value
STRB R9,[R0],#320
ADD R10,R10,R5
MOV R10,R10,LSR #8
SUBS R8,R8,#1
BNE looop
LDMFD R13!,{R0-R12,R15}^
EXPORT ourlib_new
.ourlib_new
STMFD R13!,{R1-R6,R14}
LDMIA R0,{R0-R4}
; loop by adding increment each time
; CMP R3,R2 ;
MOV R6,#128
SUB R6,R6,R2,ASR #1
ADD R5,R3,R6,LSL #8
ADD R5,R5,R6,LSL #6
ADD R0,R0,R5
MOV R6,#0
MOV R2,R2,LSR #1
.loop
MOV R3,R6,LSR #16
LDRB R5,[R1,R3,LSL #6]
ADD R6,R6,R4
STRB R5,[R0],#320
MOV R3,R6,LSR #16
LDRB R5,[R1,R3,LSL #6]
ADD R6,R6,R4
STRB R5,[R0],#320
SUBS R2,R2,#1
BLNE loop
LDMFD R13!,{R1-R6,R15}
EXPORT ourlib_new_mask
.ourlib_new_mask
STMFD R13!,{R1-R6,R14}
LDMIA R0,{R0-R4}
; loop by adding increment each time
; CMP R3,R2 ;
MOV R6,#128
SUB R6,R6,R2,ASR #1
ADD R5,R3,R6,LSL #8
ADD R5,R5,R6,LSL #6
ADD R0,R0,R5
MOV R6,#0
MOV R7,R2,LSR #2
.loopm
MOV R3,R6,LSR #16
LDRB R5,[R1,R3,LSL #6]
CMP R5,#0
STRNEB R5,[R0]
ADD R0,R0,#320
SUBS R2,R2,#1
ADD R6,R6,R4
BNE loopm
LDMFD R13!,{R1-R6,R15}
EXPORT ourlib_sliver
.ourlib_sliver
STMFD R13!,{R1-R12,R14}
LDMIA R0,{R0-R4}
CMP R3,R2
MOVGE R3,R2
/*.noclipping
ADD R1,R1,R6,LSL #12 ; calculate offset in walls[][] array
ADD R1,R1,R2 ; add the column to this
*/
MOV R8,#128
SUB R8,R8,R3,LSR #1 ; set start y pos
ADD R4,R4,R8,LSL #8 ; work out usual screen (320x256)
ADD R4,R4,R8,LSL #6 ; offset to begin loop
ADD R0,R0,R4
MOV R8,#64 ; start loop counter
MOV R7,R8
CMP R3,#64
BLLE loopy64loo
CMP R3,#127
BLLE loopy127loo
CMP R3,#191
BLLE loopy191loo
BL loopy192loo
.loopy64loo
.doddle64
CMP R7,#64
BLLT done64loo
LDRB R9,[R1] ; if so load in pixel value
STRB R9,[R0],#320
SUB R7,R7,#64
.done64loo
ADD R1,R1,#64
ADD R7,R7,R3 ; add scale onto vert. error term
SUBS R8,R8,#1
BLNE loopy64loo ; loop if so
LDMFD R13!,{R1-R12,R15}^
/*MOVS PC,R14*/
.loopy127loo
.doddle127
CMP R7,#64
LDRB R9,[R1] ; if so load in pixel value
STRB R9,[R0],#320
SUB R7,R7,#64
CMP R7,#64
BLLT done127loo
LDRB R9,[R1] ; if so load in pixel value
STRB R9,[R0],#320
SUB R7,R7,#64
.done127loo
ADD R1,R1,#64
ADD R7,R7,R3 ; add scale onto vert. error term
SUBS R8,R8,#1
BLNE loopy127loo ; loop if so
LDMFD R13!,{R1-R12,R15}^
/*MOVS PC,R14*/
.loopy191loo
.doddle191
CMP R7,#64
LDRB R9,[R1] ; if so load in pixel value
STRB R9,[R0],#320
SUB R7,R7,#64
CMP R7,#64
LDRB R9,[R1] ; if so load in pixel value
STRB R9,[R0],#320
SUB R7,R7,#64
CMP R7,#64
BLT done191loo
LDRB R9,[R1] ; if so load in pixel value
STRB R9,[R0],#320
SUB R7,R7,#64
.done191loo
ADD R1,R1,#64
ADD R7,R7,R3 ; add scale onto vert. error term
SUBS R8,R8,#1
BLNE loopy191loo ; loop if so
LDMFD R13!,{R1-R12,R15}^
/*MOVS PC,R14*/
.loopy192loo
.doddle192
CMP R7,#64
LDRB R9,[R1] ; if so load in pixel value
STRB R9,[R0],#320
SUB R7,R7,#64
CMP R7,#64
LDRB R9,[R1] ; if so load in pixel value
STRB R9,[R0],#320
SUB R7,R7,#64
CMP R7,#64
LDRB R9,[R1] ; if so load in pixel value
STRB R9,[R0],#320
SUB R7,R7,#64
CMP R7,#64
BLLT done192loo
LDRB R9,[R1] ; if so load in pixel value
STRB R9,[R0],#320
SUB R7,R7,#64
.done192loo
ADD R1,R1,#64
ADD R7,R7,R3 ; add scale onto vert. error term
SUBS R8,R8,#1
BLNE loopy192loo ; loop if so
.endoffunction
LDMFD R13!,{R1-R12,R15}^
/*MOVS PC,R14^*/
EXPORT ourlib_sliverx
.ourlib_sliverx
STMFD R13!,{R0-R12,R14}
LDMIA R0,{R0-R7}
MOV R10,#256
CMP R3,R5
MOVGE R3,R5
.noclippingx
ADD R1,R1,R6,LSL #12 ; calculate offset in walls[][] array
ADD R1,R1,R2 ; add the column to this
MOV R8,#100
SUB R8,R8,R3,LSR #1 ; set start y pos
ADD R4,R4,R8,LSL #8 ; work out usual screen (320x256)
ADD R4,R4,R8,LSL #6 ; offset to begin loop
ADD R0,R0,R4
; setup inc and fixed
MOV R9,#0,LSL #16
MOV R11,#0
; R3 holds counter
.loopxxx
LDRB R10,[R1,R11,LSL #6]
STRB R10,[R0],#320
ADD R9,R9,R7
MOV R11,R9,LSR #16
;endxxx
SUBS R3,R3,#1
BNE loopxxx
LDMFD R13!,{R0-R12,R15}^
/*MOVS PC,R14^*/
EXPORT ourlib_slowclear
.ourlib_slowclear
STMFD R13!,{R0-R5,R14}
.clearing
STRB R2,[R0,R1]
SUBS R1,R1,#1
BNE clearing
LDMFD R13!,{R0-R5,R15}
EXPORT ourlib_fastclg_two
.ourlib_fastclg_two
STMFD R13!,{R0-R12,R14}
MOV R4,#128
SUB R4,R4,R2,ASR #1
ADD R11,R0,R4,LSL #8
ADD R11,R11,R4,LSL #6
MOV R10,R11 ; start offset calculated
MOV R9,R1
MOV R12,R2,LSR #1
LDR R0,topcolour
MOV R1,R0
MOV R2,R0
MOV R3,R0
MOV R4,R0
MOV R5,R0
MOV R6,R0
MOV R7,R0
MOV R14,R12
.y_loop
MOV R8,R9,LSR #5
.x_loop
STMIA R11!,{R0-R7}
SUBS R8,R8,#1
BNE x_loop
ADD R10,R10,#320
MOV R11,R10
SUBS R12,R12,#1
BNE y_loop
LDR R0,bottomcolour
MOV R1,R0
MOV R2,R0
MOV R3,R0
MOV R4,R0
MOV R5,R0
MOV R6,R0
MOV R7,R0
MOV R12,R14
.y_loopb
MOV R8,R9,LSR #5
.x_loopb
STMIA R11!,{R0-R7}
SUBS R8,R8,#1
BNE x_loopb
ADD R10,R10,#320
MOV R11,R10
SUBS R12,R12,#1
BNE y_loopb
LDMFD R13!,{R0-R12,R15}^
EXPORT ourlib_fastclg
.ourlib_fastclg
STMFD R13!,{R1-R12,R14}
MOV R11,R0
MOV R10,#32
LDR R0,topcolour
MOV R0,R0
MOV R1,R0
MOV R2,R0
MOV R3,R0
MOV R4,R0
MOV R5,R0
MOV R6,R0
MOV R7,R0
MOV R8,R0
MOV R9,R0
.fast
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
SUBS R10,R10,#1
BNE fast
MOV R10,#32
LDR R1,bottomcolour
MOV R0,R1
MOV R2,R1
MOV R3,R1
MOV R4,R1
MOV R5,R1
MOV R6,R1
MOV R7,R1
MOV R8,R1
MOV R9,R1
.fast2
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
STMIA R11!,{R0-R9}
SUBS R10,R10,#1
BNE fast2
LDMFD R13!,{R1-R12,R15}^
.topcolour
EQUD 0
.bottomcolour
EQUD 0
.screenyoffset
EQUD 0
.screenystop
EQUD 0
.screenxoffset
EQUD 0
.screenxstop
EQUD 0
EXPORT ourlib_setupbackground
.ourlib_setup_background
STMFD R13!,{R1-R6,R14}
/*MOV R10,#320
SUB R9,R10,R2,LSR #1
STR R9,screenxoffset
SUB R9,R10,R9
STR R9,screenxstop
MOV R10,#128
SUB R9,R10,R3,LSR #1
STR R9,screenyoffset
MOV R10,#256
SUB R9,R10,R9
STR R9,screenystop*/
MOV R3,R0
MOV R4,R1
ORR R0,R0,R3
ORR R0,R0,R3,LSL #8
ORR R0,R0,R3,LSL #16
ORR R0,R0,R3,LSL #24
STR R0,topcolour
MOV R0,#0
ORR R0,R0,R4
ORR R0,R0,R4,LSL #8
ORR R0,R0,R4,LSL #16
ORR R0,R0,R4,LSL #24
STR R0,bottomcolour
LDMFD R13!,{R1-R6,R15}^
EXPORT colour_box
.colour_box
/* R0 = video_address R1= startx R2 = starty R3 = endx R4 = endy R5 = colour*/
STMFD R13!,{R1-R10,R14}
LDMIA R0,{R0-R5}
MOV R6,R2
.loop_y
MOV R7,R1
.loop_x
ADD R8,R7,R6,LSL #8
ADD R8,R8,R6,LSL #6
STRB R5,[R0,R8]
ADD R7,R7,#1
CMP R7,R3
BLT loop_x
ADD R6,R6,#1
CMP R6,R4
BLT loop_y
LDMFD R13!,{R1-R10,PC}
EXPORT ourlib_rayback
.ourlib_rayback
STMFD R13!,{R1-R12,R14}
MOV R12,#00000000000000
MOV R2,#20480
.raybackloop
STR R12,[R0,#4]!
SUBS R2,R2 ,#1
BNE raybackloop
LDMFD R13!,{R1-R12,R15}^
EXPORT ourlib_waitvsync
.ourlib_waitvsync
STMFD R13!,{R1-R2,R14}
MOV R0,#19
SWI OS_Byte
LDMFD R13!,{R1-R2,R15}^
EXPORT ourlib_screen_rotate
.ourlib_screen_rotate
STMFD R13!,{R1-R4,R14}
LDR R1,screensize
LDR R1,screensize
.rotateloop
LDRB R3,[R0]
MOV R3,R3,ROR #24
STRB R3,[R0],#1
SUBS R1,R1,#1
BNE rotateloop
LDMFD R13!,{R1-R4,PC}
.screensize
EQUD 81920
EXPORT ourlib_fade_out
.ourlib_fade_out
STMFD R13!,{R1-R7,R14}
/* R0 = videoaddress R1 = screensize */
ADD R0,R0,R1 ; Point R0 to bottom of screen
MOV R5,#8 ; Loop will execute #4 cycles
.outer_loop ; Outer loop begins
MOV R4,R1 ; Move screensize into temp R4
.fader_loop ; Inner loop begins
SUB R2,R0,R4 ; Subtract R4 from screen pointer
LDRB R3,[R2] ; Load the value pointed to
MOV R3,R3,LSR #1 ; Shift (fade) it
STRB R3,[R2] ; And store it back where it was
SUBS R4,R4,#1 ; Move pointer to next pixel
BNE fader_loop ; Loop if not done yet
SUBS R5,R5,#1 ; Decrement outer loop counter
BNE outer_loop ; Loop again if incomplete
LDMFD R13!,{R1-R7,PC}^
EXPORT ourlib_colourscreen13
.ourlib_colourscreen13
STMFD R13!,{R1-R12,R14}
/* R0 = video_address R1 = pixels R2 = colour */
.loop_pixel
STRB R2,[R0,R1]
SUBS R1,R1,#1
BNE loop_pixel
LDMFD R13!,{R1-R12,R15}^
EXPORT ourlib_findscreen
.ourlib_findscreen
STMFD R13!,{R1-R5,R14}
ADR R0,Screen_Params
ADR R1,Screen_Address
SWI "OS_ReadVduVariables"
LDR R0,Screen_Address
LDMFD R13!,{R1-R5,R15}^
.Screen_Address
EQUD 0;
.Screen_Params
EQUD 148;
EQUD -1;
#pragma endasm
void ourlib_write(char string[]);
void ourlib_bitmap_plot(int start_x,int start_y,int end_x,int end_y,char *memory,char *video);
void ourlib_bitmap_grab(int start_x,int start_y,int end_x,int end_y,char *memory,char *video);
void ourlib_bitmap_grab(int start_x,int start_y,int end_x,int end_y,char *memory,char *video)
{
int offset_in_memory;
int offset_in_screen;
int pixel_x,pixel_y;
for(offset_in_memory=0,pixel_y=start_y;pixel_y<=end_y;pixel_y++)
{
for(pixel_x=start_x;pixel_x<=end_x;pixel_x++,offset_in_memory++)
{
offset_in_screen=pixel_x+(pixel_y<<6)+(pixel_y<<8);
memory[offset_in_memory]=*(video+offset_in_screen);
}
}
}
void ourlib_bitmap_plot(int start_x,int start_y,int end_x,int end_y,char *memory,char *video)
{
int offset_in_memory;
int offset_in_screen;
int pixel_x,pixel_y;
for(offset_in_memory=0,pixel_y=start_y;pixel_y<=end_y;pixel_y++)
{
for(pixel_x=start_x;pixel_x<=end_x;pixel_x++,offset_in_memory++)
{
offset_in_screen=pixel_x+(pixel_y<<6)+(pixel_y<<8);
*(video+offset_in_screen)=memory[offset_in_memory];
}
}
}
void ourlib_write(char string[])
{
printf("%s\n",string);
}
void ourlib_bitmap_scale(char *screen,int screenx,int screeny,int percent, int width,int height,char *bitmap)
{
int yerror=0;
/*int screeny=(200-percent)/2;*/
int xerror,x;
unsigned int scrptr=screeny*320+screenx;
unsigned int bitptr=0;
int y;
unsigned int old_scrptr;
unsigned int old_bitptr;
for (y=0; y<height; y++) {
yerror+=percent;
while (yerror>100) {
yerror-=100;
old_scrptr=scrptr;
old_bitptr=bitptr;
xerror=0;
for ( x=0; x<width; x++) {
xerror+=percent;
while (xerror>100) {
xerror-=100;
screen[scrptr]=bitmap[bitptr];
scrptr++;
}
bitptr++;
}
scrptr=old_scrptr+320;
bitptr=old_bitptr;
}
bitptr+=width;
}
}
void ourlib_screen_dissolve(char *screen_address,int screen_size)
{
int number,
counter;
float temp;
for(counter=400000;counter>0;counter--)
{
number=rand();
temp=(float)number/RAND_MAX;
number=(float)temp*screen_size;;
if(number>screen_size)number=screen_size;
*(screen_address+number)=0;
}
}
void ourlib_screen_shift(char *screen_address,int screen_size)
{
int counter;
for(counter=screen_size;counter>0;counter--)
{
*(screen_address+counter)>>=1;
}
}
void ourlib_screen_switch(char *screen_address,char *memory,int screen_size)
{
int number,
counter;
float temp;
for(counter=400000;counter>0;counter--)
{
number=rand();
temp=(float)number/RAND_MAX;
number=(float)temp*screen_size;;
if(number>screen_size)number=screen_size;
*(screen_address+number)=*(memory+number);
}
}
00000000 2f 2a 0a 20 20 20 6f 75 72 5f 6c 69 62 2e 68 20 |/*. our_lib.h |
00000010 3a 20 57 72 69 74 74 65 6e 20 62 79 20 47 72 65 |: Written by Gre|
00000020 67 20 53 63 6f 74 74 20 20 20 31 39 39 37 0a 20 |g Scott 1997. |
00000030 20 20 66 6f 72 20 41 63 6f 72 6e 20 55 73 65 72 | for Acorn User|
00000040 2c 20 61 73 20 70 61 72 74 20 6f 66 20 74 68 65 |, as part of the|
00000050 20 22 56 69 72 74 75 61 6c 0a 20 20 20 57 6f 72 | "Virtual. Wor|
00000060 6c 64 73 22 20 73 65 72 69 65 73 2e 0a 0a 20 20 |lds" series... |
00000070 20 55 73 61 67 65 20 6f 66 20 74 68 65 20 73 6f | Usage of the so|
00000080 75 72 63 65 20 63 6f 64 65 20 69 73 20 64 6f 6e |urce code is don|
00000090 65 20 61 74 20 74 68 65 0a 20 20 20 6f 77 6e 65 |e at the. owne|
000000a0 72 73 20 72 69 73 6b 2c 20 61 6e 64 20 41 63 6f |rs risk, and Aco|
000000b0 72 6e 20 55 73 65 72 20 6f 72 20 74 68 65 20 61 |rn User or the a|
000000c0 75 74 68 0a 20 20 20 6f 72 20 68 6f 6c 64 20 6e |uth. or hold n|
000000d0 6f 20 72 65 73 70 6f 6e 73 69 62 69 6c 69 74 79 |o responsibility|
000000e0 20 66 6f 72 20 64 61 6d 61 67 65 73 2e 0a 0a 20 | for damages... |
000000f0 20 20 54 68 69 73 20 68 61 73 20 62 65 65 6e 20 | This has been |
00000100 77 72 69 74 74 65 6e 20 77 69 74 68 20 45 61 73 |written with Eas|
00000110 79 43 2f 43 2b 2b 2c 20 68 65 6e 63 65 0a 20 20 |yC/C++, hence. |
00000120 20 74 68 65 20 23 70 72 61 67 6d 61 20 63 6f 6d | the #pragma com|
00000130 6d 61 6e 64 73 2e 20 41 20 6c 69 74 74 6c 65 20 |mands. A little |
00000140 63 75 74 74 69 6e 67 2f 70 61 73 74 69 6e 67 0a |cutting/pasting.|
00000150 20 20 20 73 68 6f 75 6c 64 20 62 65 20 61 64 65 | should be ade|
00000160 71 75 61 74 65 20 66 6f 72 20 6f 74 68 65 72 20 |quate for other |
00000170 63 6f 6d 70 69 6c 65 72 73 2e 20 4f 74 68 65 72 |compilers. Other|
00000180 77 69 73 65 0a 20 20 20 6a 75 73 74 20 72 75 6e |wise. just run|
00000190 20 74 68 65 20 65 78 65 63 75 74 61 62 6c 65 21 | the executable!|
000001a0 0a 2a 2f 0a 0a 23 69 6e 63 6c 75 64 65 20 3c 73 |.*/..#include <s|
000001b0 74 64 69 6f 2e 68 3e 0a 0a 2f 2a 20 41 73 73 65 |tdio.h>../* Asse|
000001c0 6d 62 6c 65 72 20 46 75 6e 63 74 69 6f 6e 73 20 |mbler Functions |
000001d0 28 53 57 49 73 2c 20 65 74 63 29 20 2a 2f 0a 23 |(SWIs, etc) */.#|
000001e0 70 72 61 67 6d 61 20 61 73 6d 0a 45 58 50 4f 52 |pragma asm.EXPOR|
000001f0 54 20 6f 75 72 6c 69 62 5f 67 65 74 74 69 6d 65 |T ourlib_gettime|
00000200 0a 2e 6f 75 72 6c 69 62 5f 67 65 74 74 69 6d 65 |..ourlib_gettime|
00000210 0a 0a 53 54 4d 46 44 20 52 31 33 21 2c 7b 52 31 |..STMFD R13!,{R1|
00000220 2d 52 34 2c 52 31 34 7d 0a 53 57 49 20 4f 53 5f |-R4,R14}.SWI OS_|
00000230 52 65 61 64 4d 6f 6e 6f 74 6f 6e 69 63 54 69 6d |ReadMonotonicTim|
00000240 65 0a 4c 44 4d 46 44 20 52 31 33 21 2c 7b 52 31 |e.LDMFD R13!,{R1|
00000250 2d 52 34 2c 52 31 35 7d 0a 0a 0a 0a 45 58 50 4f |-R4,R15}....EXPO|
00000260 52 54 20 6f 75 72 6c 69 62 5f 6b 65 79 64 6f 77 |RT ourlib_keydow|
00000270 6e 0a 2e 6f 75 72 6c 69 62 5f 6b 65 79 64 6f 77 |n..ourlib_keydow|
00000280 6e 0a 53 54 4d 46 44 20 52 31 33 21 2c 7b 52 31 |n.STMFD R13!,{R1|
00000290 2d 52 32 2c 52 31 34 7d 0a 0a 45 4f 52 20 52 31 |-R2,R14}..EOR R1|
000002a0 2c 52 30 2c 23 31 32 38 0a 4d 4f 56 20 52 30 2c |,R0,#128.MOV R0,|
000002b0 23 31 32 31 0a 53 57 49 20 4f 53 5f 42 79 74 65 |#121.SWI OS_Byte|
000002c0 0a 4d 4f 56 20 52 30 2c 52 31 0a 4c 44 4d 46 44 |.MOV R0,R1.LDMFD|
000002d0 20 52 31 33 21 2c 7b 52 31 2d 52 32 2c 50 43 7d | R13!,{R1-R2,PC}|
000002e0 0a 0a 0a 0a 45 58 50 4f 52 54 20 6f 75 72 6c 69 |....EXPORT ourli|
000002f0 62 5f 73 6c 69 76 65 72 5f 6d 61 73 6b 0a 2e 6f |b_sliver_mask..o|
00000300 75 72 6c 69 62 5f 73 6c 69 76 65 72 5f 6d 61 73 |urlib_sliver_mas|
00000310 6b 0a 53 54 4d 46 44 20 52 31 33 21 2c 7b 52 31 |k.STMFD R13!,{R1|
00000320 2d 52 39 2c 52 31 34 7d 0a 4c 44 4d 49 41 20 52 |-R9,R14}.LDMIA R|
00000330 30 2c 7b 52 30 2d 52 35 7d 0a 2f 2a 0a 2e 6e 6f |0,{R0-R5}./*..no|
00000340 63 6c 69 70 70 69 6e 67 7a 0a 41 44 44 20 52 31 |clippingz.ADD R1|
00000350 2c 52 31 2c 52 36 2c 4c 53 4c 20 23 31 32 20 3b |,R1,R6,LSL #12 ;|
00000360 20 63 61 6c 63 75 6c 61 74 65 20 6f 66 66 73 65 | calculate offse|
00000370 74 20 69 6e 20 77 61 6c 6c 73 5b 5d 5b 5d 20 61 |t in walls[][] a|
00000380 72 72 61 79 0a 41 44 44 20 52 31 2c 52 31 2c 52 |rray.ADD R1,R1,R|
00000390 32 20 20 20 20 20 20 20 20 20 3b 20 61 64 64 20 |2 ; add |
000003a0 74 68 65 20 63 6f 6c 75 6d 6e 20 74 6f 20 74 68 |the column to th|
000003b0 69 73 0a 2a 2f 0a 2f 2a 43 4d 50 20 52 33 2c 52 |is.*/./*CMP R3,R|
000003c0 32 0a 4d 4f 56 47 45 20 52 33 2c 52 32 2a 2f 0a |2.MOVGE R3,R2*/.|
000003d0 0a 4d 4f 56 20 52 38 2c 23 31 32 38 0a 53 55 42 |.MOV R8,#128.SUB|
000003e0 20 52 38 2c 52 38 2c 52 33 2c 4c 53 52 20 23 31 | R8,R8,R3,LSR #1|
000003f0 20 3b 20 73 65 74 20 73 74 61 72 74 20 79 20 70 | ; set start y p|
00000400 6f 73 0a 0a 41 44 44 20 52 34 2c 52 34 2c 52 38 |os..ADD R4,R4,R8|
00000410 2c 4c 53 4c 20 23 38 20 3b 20 77 6f 72 6b 20 6f |,LSL #8 ; work o|
00000420 75 74 20 75 73 75 61 6c 20 73 63 72 65 65 6e 20 |ut usual screen |
00000430 28 33 32 30 78 32 35 36 29 0a 41 44 44 20 52 34 |(320x256).ADD R4|
00000440 2c 52 34 2c 52 38 2c 4c 53 4c 20 23 36 20 3b 20 |,R4,R8,LSL #6 ; |
00000450 6f 66 66 73 65 74 20 74 6f 20 62 65 67 69 6e 20 |offset to begin |
00000460 6c 6f 6f 70 0a 41 44 44 20 52 30 2c 52 30 2c 52 |loop.ADD R0,R0,R|
00000470 34 0a 0a 4d 4f 56 20 52 38 2c 23 36 34 20 20 20 |4..MOV R8,#64 |
00000480 20 20 20 20 20 3b 20 73 74 61 72 74 20 6c 6f 6f | ; start loo|
00000490 70 20 63 6f 75 6e 74 65 72 0a 4d 4f 56 20 52 37 |p counter.MOV R7|
000004a0 2c 52 38 0a 0a 43 4d 50 20 52 33 2c 23 36 34 0a |,R8..CMP R3,#64.|
000004b0 42 4c 4c 45 20 6c 6f 6f 70 79 36 34 6c 6f 6f 7a |BLLE loopy64looz|
000004c0 0a 43 4d 50 20 52 33 2c 23 31 32 37 0a 42 4c 4c |.CMP R3,#127.BLL|
000004d0 45 20 6c 6f 6f 70 79 31 32 37 6c 6f 6f 7a 0a 43 |E loopy127looz.C|
000004e0 4d 50 20 52 33 2c 23 31 39 31 0a 42 4c 4c 45 20 |MP R3,#191.BLLE |
000004f0 6c 6f 6f 70 79 31 39 31 6c 6f 6f 7a 0a 42 4c 20 |loopy191looz.BL |
00000500 6c 6f 6f 70 79 31 39 32 6c 6f 6f 7a 0a 2e 6c 6f |loopy192looz..lo|
00000510 6f 70 79 36 34 6c 6f 6f 7a 0a 2e 64 6f 64 64 6c |opy64looz..doddl|
00000520 65 36 34 7a 0a 43 4d 50 20 52 37 2c 23 36 34 0a |e64z.CMP R7,#64.|
00000530 42 4c 4c 54 20 64 6f 6e 65 36 34 6c 6f 6f 7a 0a |BLLT done64looz.|
00000540 4c 44 52 42 53 20 52 39 2c 5b 52 31 5d 20 20 20 |LDRBS R9,[R1] |
00000550 20 20 20 20 3b 20 69 66 20 73 6f 20 6c 6f 61 64 | ; if so load|
00000560 20 69 6e 20 70 69 78 65 6c 20 76 61 6c 75 65 0a | in pixel value.|
00000570 53 55 42 20 52 37 2c 52 37 2c 23 36 34 0a 43 4d |SUB R7,R7,#64.CM|
00000580 50 20 52 39 2c 23 30 0a 2f 2a 42 45 51 20 73 6b |P R9,#0./*BEQ sk|
00000590 69 70 31 2a 2f 0a 53 54 52 4e 45 42 20 52 39 2c |ip1*/.STRNEB R9,|
000005a0 5b 52 30 5d 0a 2e 73 6b 69 70 31 0a 41 44 44 20 |[R0]..skip1.ADD |
000005b0 52 30 2c 52 30 2c 23 33 32 30 0a 0a 2e 64 6f 6e |R0,R0,#320...don|
000005c0 65 36 34 6c 6f 6f 7a 0a 41 44 44 20 52 31 2c 52 |e64looz.ADD R1,R|
000005d0 31 2c 23 36 34 0a 41 44 44 20 52 37 2c 52 37 2c |1,#64.ADD R7,R7,|
000005e0 52 33 20 20 20 20 20 20 20 20 20 3b 20 61 64 64 |R3 ; add|
000005f0 20 73 63 61 6c 65 20 6f 6e 74 6f 20 76 65 72 74 | scale onto vert|
00000600 2e 20 65 72 72 6f 72 20 74 65 72 6d 0a 53 55 42 |. error term.SUB|
00000610 53 20 52 38 2c 52 38 2c 23 31 0a 42 4c 4e 45 20 |S R8,R8,#1.BLNE |
00000620 6c 6f 6f 70 79 36 34 6c 6f 6f 7a 20 20 20 20 20 |loopy64looz |
00000630 20 20 20 20 3b 20 6c 6f 6f 70 20 69 66 20 73 6f | ; loop if so|
00000640 0a 0a 4c 44 4d 46 44 20 52 31 33 21 2c 7b 52 31 |..LDMFD R13!,{R1|
00000650 2d 52 39 2c 52 31 35 7d 5e 0a 0a 2e 6c 6f 6f 70 |-R9,R15}^...loop|
00000660 79 31 32 37 6c 6f 6f 7a 0a 2e 64 6f 64 64 6c 65 |y127looz..doddle|
00000670 31 32 37 7a 0a 43 4d 50 20 52 37 2c 23 36 34 0a |127z.CMP R7,#64.|
00000680 4c 44 52 42 20 52 39 2c 5b 52 31 5d 20 20 20 20 |LDRB R9,[R1] |
00000690 20 20 20 3b 20 69 66 20 73 6f 20 6c 6f 61 64 20 | ; if so load |
000006a0 69 6e 20 70 69 78 65 6c 20 76 61 6c 75 65 0a 53 |in pixel value.S|
000006b0 55 42 20 52 37 2c 52 37 2c 23 36 34 0a 43 4d 50 |UB R7,R7,#64.CMP|
000006c0 20 52 39 2c 23 30 0a 2f 2a 42 45 51 20 73 6b 69 | R9,#0./*BEQ ski|
000006d0 70 32 2a 2f 0a 53 54 52 4e 45 42 20 52 39 2c 5b |p2*/.STRNEB R9,[|
000006e0 52 30 5d 0a 2e 73 6b 69 70 32 0a 41 44 44 20 52 |R0]..skip2.ADD R|
000006f0 30 2c 52 30 2c 23 33 32 30 0a 0a 43 4d 50 20 52 |0,R0,#320..CMP R|
00000700 37 2c 23 36 34 0a 42 4c 4c 54 20 64 6f 6e 65 31 |7,#64.BLLT done1|
00000710 32 37 6c 6f 6f 7a 0a 4c 44 52 42 20 52 39 2c 5b |27looz.LDRB R9,[|
00000720 52 31 5d 20 20 20 20 20 20 20 3b 20 69 66 20 73 |R1] ; if s|
00000730 6f 20 6c 6f 61 64 20 69 6e 20 70 69 78 65 6c 20 |o load in pixel |
00000740 76 61 6c 75 65 0a 53 55 42 20 52 37 2c 52 37 2c |value.SUB R7,R7,|
00000750 23 36 34 0a 43 4d 50 20 52 39 2c 23 30 0a 2f 2a |#64.CMP R9,#0./*|
00000760 42 45 51 20 73 6b 69 70 33 2a 2f 0a 53 54 52 4e |BEQ skip3*/.STRN|
00000770 45 42 20 52 39 2c 5b 52 30 5d 0a 2e 73 6b 69 70 |EB R9,[R0]..skip|
00000780 33 0a 41 44 44 20 52 30 2c 52 30 2c 23 33 32 30 |3.ADD R0,R0,#320|
00000790 0a 0a 2e 64 6f 6e 65 31 32 37 6c 6f 6f 7a 0a 41 |...done127looz.A|
000007a0 44 44 20 52 31 2c 52 31 2c 23 36 34 0a 41 44 44 |DD R1,R1,#64.ADD|
000007b0 20 52 37 2c 52 37 2c 52 33 20 20 20 20 20 20 20 | R7,R7,R3 |
000007c0 20 20 3b 20 61 64 64 20 73 63 61 6c 65 20 6f 6e | ; add scale on|
000007d0 74 6f 20 76 65 72 74 2e 20 65 72 72 6f 72 20 74 |to vert. error t|
000007e0 65 72 6d 0a 53 55 42 53 20 52 38 2c 52 38 2c 23 |erm.SUBS R8,R8,#|
000007f0 31 0a 42 4c 4e 45 20 6c 6f 6f 70 79 31 32 37 6c |1.BLNE loopy127l|
00000800 6f 6f 7a 20 20 20 20 20 20 20 20 20 3b 20 6c 6f |ooz ; lo|
00000810 6f 70 20 69 66 20 73 6f 0a 4c 44 4d 46 44 20 52 |op if so.LDMFD R|
00000820 31 33 21 2c 7b 52 31 2d 52 39 2c 52 31 35 7d 5e |13!,{R1-R9,R15}^|
00000830 0a 0a 0a 2e 6c 6f 6f 70 79 31 39 31 6c 6f 6f 7a |....loopy191looz|
00000840 0a 2e 64 6f 64 64 6c 65 31 39 31 7a 0a 43 4d 50 |..doddle191z.CMP|
00000850 20 52 37 2c 23 36 34 0a 4c 44 52 42 20 52 39 2c | R7,#64.LDRB R9,|
00000860 5b 52 31 5d 20 20 20 20 20 20 20 3b 20 69 66 20 |[R1] ; if |
00000870 73 6f 20 6c 6f 61 64 20 69 6e 20 70 69 78 65 6c |so load in pixel|
00000880 20 76 61 6c 75 65 0a 53 55 42 20 52 37 2c 52 37 | value.SUB R7,R7|
00000890 2c 23 36 34 0a 43 4d 50 20 52 39 2c 23 30 0a 2f |,#64.CMP R9,#0./|
000008a0 2a 42 45 51 20 73 6b 69 70 34 2a 2f 0a 53 54 52 |*BEQ skip4*/.STR|
000008b0 4e 45 42 20 52 39 2c 5b 52 30 5d 0a 2e 73 6b 69 |NEB R9,[R0]..ski|
000008c0 70 34 0a 41 44 44 20 52 30 2c 52 30 2c 23 33 32 |p4.ADD R0,R0,#32|
000008d0 30 0a 0a 43 4d 50 20 52 37 2c 23 36 34 0a 4c 44 |0..CMP R7,#64.LD|
000008e0 52 42 20 52 39 2c 5b 52 31 5d 20 20 20 20 20 20 |RB R9,[R1] |
000008f0 20 3b 20 69 66 20 73 6f 20 6c 6f 61 64 20 69 6e | ; if so load in|
00000900 20 70 69 78 65 6c 20 76 61 6c 75 65 0a 53 55 42 | pixel value.SUB|
00000910 20 52 37 2c 52 37 2c 23 36 34 0a 43 4d 50 20 52 | R7,R7,#64.CMP R|
00000920 39 2c 23 30 0a 2f 2a 42 45 51 20 73 6b 69 70 35 |9,#0./*BEQ skip5|
00000930 2a 2f 0a 53 54 52 4e 45 42 20 52 39 2c 5b 52 30 |*/.STRNEB R9,[R0|
00000940 5d 0a 2e 73 6b 69 70 35 0a 41 44 44 20 52 30 2c |]..skip5.ADD R0,|
00000950 52 30 2c 23 33 32 30 0a 0a 43 4d 50 20 52 37 2c |R0,#320..CMP R7,|
00000960 23 36 34 0a 42 4c 54 20 64 6f 6e 65 31 39 31 6c |#64.BLT done191l|
00000970 6f 6f 7a 0a 4c 44 52 42 20 52 39 2c 5b 52 31 5d |ooz.LDRB R9,[R1]|
00000980 20 20 20 20 20 20 20 3b 20 69 66 20 73 6f 20 6c | ; if so l|
00000990 6f 61 64 20 69 6e 20 70 69 78 65 6c 20 76 61 6c |oad in pixel val|
000009a0 75 65 0a 53 55 42 20 52 37 2c 52 37 2c 23 36 34 |ue.SUB R7,R7,#64|
000009b0 0a 43 4d 50 20 52 39 2c 23 30 0a 2f 2a 42 45 51 |.CMP R9,#0./*BEQ|
000009c0 20 73 6b 69 70 36 2a 2f 0a 53 54 52 4e 45 42 20 | skip6*/.STRNEB |
000009d0 52 39 2c 5b 52 30 5d 0a 2e 73 6b 69 70 36 0a 41 |R9,[R0]..skip6.A|
000009e0 44 44 20 52 30 2c 52 30 2c 23 33 32 30 0a 0a 2e |DD R0,R0,#320...|
000009f0 64 6f 6e 65 31 39 31 6c 6f 6f 7a 0a 41 44 44 20 |done191looz.ADD |
00000a00 52 31 2c 52 31 2c 23 36 34 0a 41 44 44 20 52 37 |R1,R1,#64.ADD R7|
00000a10 2c 52 37 2c 52 33 20 20 20 20 20 20 20 20 20 3b |,R7,R3 ;|
00000a20 20 61 64 64 20 73 63 61 6c 65 20 6f 6e 74 6f 20 | add scale onto |
00000a30 76 65 72 74 2e 20 65 72 72 6f 72 20 74 65 72 6d |vert. error term|
00000a40 0a 53 55 42 53 20 52 38 2c 52 38 2c 23 31 0a 42 |.SUBS R8,R8,#1.B|
00000a50 4c 4e 45 20 6c 6f 6f 70 79 31 39 31 6c 6f 6f 7a |LNE loopy191looz|
00000a60 20 20 20 20 20 20 20 20 20 3b 20 6c 6f 6f 70 20 | ; loop |
00000a70 69 66 20 73 6f 0a 4c 44 4d 46 44 20 52 31 33 21 |if so.LDMFD R13!|
00000a80 2c 7b 52 31 2d 52 39 2c 52 31 35 7d 5e 0a 0a 2e |,{R1-R9,R15}^...|
00000a90 6c 6f 6f 70 79 31 39 32 6c 6f 6f 7a 0a 2e 64 6f |loopy192looz..do|
00000aa0 64 64 6c 65 31 39 32 7a 0a 43 4d 50 20 52 37 2c |ddle192z.CMP R7,|
00000ab0 23 36 34 0a 4c 44 52 42 20 52 39 2c 5b 52 31 5d |#64.LDRB R9,[R1]|
00000ac0 20 20 20 20 20 20 20 3b 20 69 66 20 73 6f 20 6c | ; if so l|
00000ad0 6f 61 64 20 69 6e 20 70 69 78 65 6c 20 76 61 6c |oad in pixel val|
00000ae0 75 65 0a 53 55 42 20 52 37 2c 52 37 2c 23 36 34 |ue.SUB R7,R7,#64|
00000af0 0a 43 4d 50 20 52 39 2c 23 30 0a 2f 2a 42 45 51 |.CMP R9,#0./*BEQ|
00000b00 20 73 6b 69 70 37 2a 2f 0a 53 54 52 4e 45 42 20 | skip7*/.STRNEB |
00000b10 52 39 2c 5b 52 30 5d 0a 2e 73 6b 69 70 37 0a 41 |R9,[R0]..skip7.A|
00000b20 44 44 20 52 30 2c 52 30 2c 23 33 32 30 0a 0a 43 |DD R0,R0,#320..C|
00000b30 4d 50 20 52 37 2c 23 36 34 0a 4c 44 52 42 20 52 |MP R7,#64.LDRB R|
00000b40 39 2c 5b 52 31 5d 20 20 20 20 20 20 20 3b 20 69 |9,[R1] ; i|
00000b50 66 20 73 6f 20 6c 6f 61 64 20 69 6e 20 70 69 78 |f so load in pix|
00000b60 65 6c 20 76 61 6c 75 65 0a 53 55 42 20 52 37 2c |el value.SUB R7,|
00000b70 52 37 2c 23 36 34 0a 43 4d 50 20 52 39 2c 23 30 |R7,#64.CMP R9,#0|
00000b80 0a 42 45 51 20 73 6b 69 70 38 0a 53 54 52 42 20 |.BEQ skip8.STRB |
00000b90 52 39 2c 5b 52 30 5d 0a 2e 73 6b 69 70 38 0a 41 |R9,[R0]..skip8.A|
00000ba0 44 44 20 52 30 2c 52 30 2c 23 33 32 30 0a 0a 43 |DD R0,R0,#320..C|
00000bb0 4d 50 20 52 37 2c 23 36 34 0a 4c 44 52 42 20 52 |MP R7,#64.LDRB R|
00000bc0 39 2c 5b 52 31 5d 20 20 20 20 20 20 20 3b 20 69 |9,[R1] ; i|
00000bd0 66 20 73 6f 20 6c 6f 61 64 20 69 6e 20 70 69 78 |f so load in pix|
00000be0 65 6c 20 76 61 6c 75 65 0a 53 55 42 20 52 37 2c |el value.SUB R7,|
00000bf0 52 37 2c 23 36 34 0a 43 4d 50 20 52 39 2c 23 30 |R7,#64.CMP R9,#0|
00000c00 0a 2f 2a 42 45 51 20 73 6b 69 70 39 2a 2f 0a 53 |./*BEQ skip9*/.S|
00000c10 54 52 4e 45 42 20 52 39 2c 5b 52 30 5d 0a 2e 73 |TRNEB R9,[R0]..s|
00000c20 6b 69 70 39 0a 41 44 44 20 52 30 2c 52 30 2c 23 |kip9.ADD R0,R0,#|
00000c30 33 32 30 0a 0a 43 4d 50 20 52 37 2c 23 36 34 0a |320..CMP R7,#64.|
00000c40 42 4c 4c 54 20 64 6f 6e 65 31 39 32 6c 6f 6f 7a |BLLT done192looz|
00000c50 0a 4c 44 52 42 20 52 39 2c 5b 52 31 5d 20 20 20 |.LDRB R9,[R1] |
00000c60 20 20 20 20 3b 20 69 66 20 73 6f 20 6c 6f 61 64 | ; if so load|
00000c70 20 69 6e 20 70 69 78 65 6c 20 76 61 6c 75 65 0a | in pixel value.|
00000c80 53 55 42 20 52 37 2c 52 37 2c 23 36 34 0a 43 4d |SUB R7,R7,#64.CM|
00000c90 50 20 52 39 2c 23 30 0a 2f 2a 42 45 51 20 73 6b |P R9,#0./*BEQ sk|
00000ca0 69 70 31 30 2a 2f 0a 53 54 52 4e 45 42 20 52 39 |ip10*/.STRNEB R9|
00000cb0 2c 5b 52 30 5d 0a 2e 73 6b 69 70 31 30 0a 41 44 |,[R0]..skip10.AD|
00000cc0 44 20 52 30 2c 52 30 2c 23 33 32 30 0a 0a 2e 64 |D R0,R0,#320...d|
00000cd0 6f 6e 65 31 39 32 6c 6f 6f 7a 0a 41 44 44 20 52 |one192looz.ADD R|
00000ce0 31 2c 52 31 2c 23 36 34 0a 41 44 44 20 52 37 2c |1,R1,#64.ADD R7,|
00000cf0 52 37 2c 52 33 20 20 20 20 20 20 20 20 20 3b 20 |R7,R3 ; |
00000d00 61 64 64 20 73 63 61 6c 65 20 6f 6e 74 6f 20 76 |add scale onto v|
00000d10 65 72 74 2e 20 65 72 72 6f 72 20 74 65 72 6d 0a |ert. error term.|
00000d20 53 55 42 53 20 52 38 2c 52 38 2c 23 31 0a 42 4c |SUBS R8,R8,#1.BL|
00000d30 4e 45 20 6c 6f 6f 70 79 31 39 32 6c 6f 6f 7a 20 |NE loopy192looz |
00000d40 20 20 20 20 20 20 20 20 3b 20 6c 6f 6f 70 20 69 | ; loop i|
00000d50 66 20 73 6f 0a 2e 65 6e 64 6f 66 66 75 6e 63 74 |f so..endoffunct|
00000d60 69 6f 6e 7a 0a 4c 44 4d 46 44 20 52 31 33 21 2c |ionz.LDMFD R13!,|
00000d70 7b 52 31 2d 52 39 2c 52 31 35 7d 5e 0a 0a 45 58 |{R1-R9,R15}^..EX|
00000d80 50 4f 52 54 20 6f 75 72 6c 69 62 5f 62 61 72 5f |PORT ourlib_bar_|
00000d90 70 6c 6f 74 0a 2e 6f 75 72 6c 69 62 5f 62 61 72 |plot..ourlib_bar|
00000da0 5f 70 6c 6f 74 0a 53 54 4d 46 44 20 52 31 33 21 |_plot.STMFD R13!|
00000db0 2c 7b 52 31 2d 52 34 2c 52 31 34 7d 0a 3b 20 52 |,{R1-R4,R14}.; R|
00000dc0 30 20 3d 20 73 63 72 65 65 6e 20 52 31 20 3d 20 |0 = screen R1 = |
00000dd0 62 61 72 20 52 32 20 3d 20 73 74 61 72 74 6f 66 |bar R2 = startof|
00000de0 66 73 65 74 0a 4d 4f 56 20 52 33 2c 23 32 35 30 |fset.MOV R3,#250|
00000df0 0a 0a 41 44 44 20 52 30 2c 52 30 2c 52 32 0a 2e |..ADD R0,R0,R2..|
00000e00 62 61 72 5f 6c 6f 6f 70 0a 0a 4c 44 52 20 52 32 |bar_loop..LDR R2|
00000e10 2c 5b 52 31 5d 2c 23 34 0a 53 54 52 20 52 32 2c |,[R1],#4.STR R2,|
00000e20 5b 52 30 5d 2c 23 34 0a 4c 44 52 20 52 32 2c 5b |[R0],#4.LDR R2,[|
00000e30 52 31 5d 2c 23 34 0a 53 54 52 20 52 32 2c 5b 52 |R1],#4.STR R2,[R|
00000e40 30 5d 2c 23 34 0a 4c 44 52 20 52 32 2c 5b 52 31 |0],#4.LDR R2,[R1|
00000e50 5d 2c 23 34 0a 53 54 52 20 52 32 2c 5b 52 30 5d |],#4.STR R2,[R0]|
00000e60 2c 23 34 0a 4c 44 52 20 52 32 2c 5b 52 31 5d 2c |,#4.LDR R2,[R1],|
00000e70 23 34 0a 53 54 52 20 52 32 2c 5b 52 30 5d 2c 23 |#4.STR R2,[R0],#|
00000e80 34 0a 4c 44 52 20 52 32 2c 5b 52 31 5d 2c 23 34 |4.LDR R2,[R1],#4|
00000e90 0a 53 54 52 20 52 32 2c 5b 52 30 5d 2c 23 34 0a |.STR R2,[R0],#4.|
00000ea0 4c 44 52 20 52 32 2c 5b 52 31 5d 2c 23 34 0a 53 |LDR R2,[R1],#4.S|
00000eb0 54 52 20 52 32 2c 5b 52 30 5d 2c 23 34 0a 4c 44 |TR R2,[R0],#4.LD|
00000ec0 52 20 52 32 2c 5b 52 31 5d 2c 23 34 0a 53 54 52 |R R2,[R1],#4.STR|
00000ed0 20 52 32 2c 5b 52 30 5d 2c 23 34 0a 4c 44 52 20 | R2,[R0],#4.LDR |
00000ee0 52 32 2c 5b 52 31 5d 2c 23 34 0a 53 54 52 20 52 |R2,[R1],#4.STR R|
00000ef0 32 2c 5b 52 30 5d 2c 23 34 0a 4c 44 52 20 52 32 |2,[R0],#4.LDR R2|
00000f00 2c 5b 52 31 5d 2c 23 34 0a 53 54 52 20 52 32 2c |,[R1],#4.STR R2,|
00000f10 5b 52 30 5d 2c 23 34 0a 4c 44 52 20 52 32 2c 5b |[R0],#4.LDR R2,[|
00000f20 52 31 5d 2c 23 34 0a 53 54 52 20 52 32 2c 5b 52 |R1],#4.STR R2,[R|
00000f30 30 5d 2c 23 34 0a 4c 44 52 20 52 32 2c 5b 52 31 |0],#4.LDR R2,[R1|
00000f40 5d 2c 23 34 0a 53 54 52 20 52 32 2c 5b 52 30 5d |],#4.STR R2,[R0]|
00000f50 2c 23 34 0a 4c 44 52 20 52 32 2c 5b 52 31 5d 2c |,#4.LDR R2,[R1],|
00000f60 23 34 0a 53 54 52 20 52 32 2c 5b 52 30 5d 2c 23 |#4.STR R2,[R0],#|
00000f70 34 0a 4c 44 52 20 52 32 2c 5b 52 31 5d 2c 23 34 |4.LDR R2,[R1],#4|
00000f80 0a 53 54 52 20 52 32 2c 5b 52 30 5d 2c 23 34 0a |.STR R2,[R0],#4.|
00000f90 4c 44 52 20 52 32 2c 5b 52 31 5d 2c 23 34 0a 53 |LDR R2,[R1],#4.S|
00000fa0 54 52 20 52 32 2c 5b 52 30 5d 2c 23 34 0a 4c 44 |TR R2,[R0],#4.LD|
00000fb0 52 20 52 32 2c 5b 52 31 5d 2c 23 34 0a 53 54 52 |R R2,[R1],#4.STR|
00000fc0 20 52 32 2c 5b 52 30 5d 2c 23 34 0a 4c 44 52 20 | R2,[R0],#4.LDR |
00000fd0 52 32 2c 5b 52 31 5d 2c 23 34 0a 53 54 52 20 52 |R2,[R1],#4.STR R|
00000fe0 32 2c 5b 52 30 5d 2c 23 34 53 55 42 53 20 52 33 |2,[R0],#4SUBS R3|
00000ff0 2c 52 33 2c 23 31 0a 42 4e 45 20 62 61 72 5f 6c |,R3,#1.BNE bar_l|
00001000 6f 6f 70 0a 0a 4c 44 4d 46 44 20 52 31 33 21 2c |oop..LDMFD R13!,|
00001010 7b 52 31 2d 52 34 2c 52 31 35 7d 5e 0a 0a 45 58 |{R1-R4,R15}^..EX|
00001020 50 4f 52 54 20 6f 75 72 6c 69 62 5f 67 75 6e 5f |PORT ourlib_gun_|
00001030 70 6c 6f 74 0a 2e 6f 75 72 6c 69 62 5f 67 75 6e |plot..ourlib_gun|
00001040 5f 70 6c 6f 74 0a 0a 53 54 4d 46 44 20 52 31 33 |_plot..STMFD R13|
00001050 21 2c 7b 52 31 2d 52 31 32 2c 52 31 34 7d 0a 0a |!,{R1-R12,R14}..|
00001060 2f 2a 20 52 30 20 3d 20 76 69 64 65 6f 20 52 31 |/* R0 = video R1|
00001070 20 3d 67 72 61 70 68 69 63 20 52 32 20 3d 20 77 | =graphic R2 = w|
00001080 69 64 74 68 20 52 33 20 3d 68 65 69 67 68 74 20 |idth R3 =height |
00001090 2a 2f 0a 4d 4f 56 20 52 35 2c 52 30 0a 0a 2e 79 |*/.MOV R5,R0...y|
000010a0 67 5f 6c 6f 6f 70 0a 4d 4f 56 20 52 34 2c 52 32 |g_loop.MOV R4,R2|
000010b0 0a 41 44 44 20 52 30 2c 52 30 2c 23 33 32 30 0a |.ADD R0,R0,#320.|
000010c0 4d 4f 56 20 52 35 2c 52 30 0a 2e 78 67 5f 6c 6f |MOV R5,R0..xg_lo|
000010d0 6f 70 0a 4c 44 52 42 20 52 36 2c 5b 52 31 5d 2c |op.LDRB R6,[R1],|
000010e0 23 31 0a 43 4d 50 20 52 36 2c 23 31 35 31 0a 42 |#1.CMP R6,#151.B|
000010f0 45 51 20 63 6f 6e 74 0a 53 54 52 42 20 52 36 2c |EQ cont.STRB R6,|
00001100 5b 52 35 5d 0a 2e 63 6f 6e 74 0a 41 44 44 20 52 |[R5]..cont.ADD R|
00001110 35 2c 52 35 2c 23 31 0a 0a 0a 53 55 42 53 20 52 |5,R5,#1...SUBS R|
00001120 34 2c 52 34 2c 23 31 0a 42 4e 45 20 78 67 5f 6c |4,R4,#1.BNE xg_l|
00001130 6f 6f 70 0a 53 55 42 53 20 52 33 2c 52 33 2c 23 |oop.SUBS R3,R3,#|
00001140 31 0a 42 4e 45 20 79 67 5f 6c 6f 6f 70 0a 0a 4c |1.BNE yg_loop..L|
00001150 44 4d 46 44 20 52 31 33 21 2c 7b 52 31 2d 52 31 |DMFD R13!,{R1-R1|
00001160 32 2c 52 31 35 7d 0a 0a 0a 45 58 50 4f 52 54 20 |2,R15}...EXPORT |
00001170 6f 75 72 6c 69 62 5f 63 68 61 6e 67 65 6d 6f 64 |ourlib_changemod|
00001180 65 0a 2e 6f 75 72 6c 69 62 5f 63 68 61 6e 67 65 |e..ourlib_change|
00001190 6d 6f 64 65 0a 53 54 4d 46 44 20 52 31 33 21 2c |mode.STMFD R13!,|
000011a0 7b 52 31 2d 52 34 2c 52 31 34 7d 0a 4d 4f 56 20 |{R1-R4,R14}.MOV |
000011b0 52 31 2c 52 30 0a 4d 4f 56 20 52 30 2c 23 32 32 |R1,R0.MOV R0,#22|
000011c0 0a 53 57 49 20 4f 53 5f 57 72 69 74 65 43 0a 4d |.SWI OS_WriteC.M|
000011d0 4f 56 20 52 30 2c 52 31 0a 53 57 49 20 4f 53 5f |OV R0,R1.SWI OS_|
000011e0 57 72 69 74 65 43 0a 0a 4c 44 4d 46 44 20 52 31 |WriteC..LDMFD R1|
000011f0 33 21 2c 7b 52 31 2d 52 34 2c 52 31 35 7d 0a 0a |3!,{R1-R4,R15}..|
00001200 45 58 50 4f 52 54 20 6f 75 72 6c 69 62 5f 77 61 |EXPORT ourlib_wa|
00001210 69 74 0a 2e 6f 75 72 6c 69 62 5f 77 61 69 74 0a |it..ourlib_wait.|
00001220 53 54 4d 46 44 20 52 31 33 21 2c 7b 52 31 2d 52 |STMFD R13!,{R1-R|
00001230 35 2c 52 31 34 7d 0a 4d 4f 56 20 52 33 2c 52 30 |5,R14}.MOV R3,R0|
00001240 20 2f 2a 20 43 6f 70 79 20 76 61 72 69 61 62 6c | /* Copy variabl|
00001250 65 20 69 6e 74 6f 20 73 61 66 65 20 70 6c 61 63 |e into safe plac|
00001260 65 20 2a 2f 0a 53 57 49 20 4f 53 5f 52 65 61 64 |e */.SWI OS_Read|
00001270 4d 6f 6e 6f 74 6f 6e 69 63 54 69 6d 65 0a 41 44 |MonotonicTime.AD|
00001280 44 20 52 32 2c 52 30 2c 52 33 0a 2e 74 69 6d 65 |D R2,R0,R3..time|
00001290 5f 6c 6f 6f 70 0a 53 57 49 20 4f 53 5f 52 65 61 |_loop.SWI OS_Rea|
000012a0 64 4d 6f 6e 6f 74 6f 6e 69 63 54 69 6d 65 0a 43 |dMonotonicTime.C|
000012b0 4d 50 20 52 30 2c 52 32 0a 42 4c 45 20 74 69 6d |MP R0,R2.BLE tim|
000012c0 65 5f 6c 6f 6f 70 0a 4c 44 4d 46 44 20 52 31 33 |e_loop.LDMFD R13|
000012d0 21 2c 7b 52 31 2d 52 35 2c 52 31 35 7d 5e 0a 0a |!,{R1-R5,R15}^..|
000012e0 45 58 50 4f 52 54 20 6f 75 72 6c 69 62 5f 63 6c |EXPORT ourlib_cl|
000012f0 6f 73 65 64 6f 77 6e 5f 73 63 72 65 65 6e 73 0a |osedown_screens.|
00001300 2e 6f 75 72 6c 69 62 5f 63 6c 6f 73 65 64 6f 77 |.ourlib_closedow|
00001310 6e 5f 73 63 72 65 65 6e 73 0a 53 54 4d 46 44 20 |n_screens.STMFD |
00001320 52 31 33 21 2c 7b 52 31 2d 52 34 2c 52 31 34 7d |R13!,{R1-R4,R14}|
00001330 0a 4d 4f 56 20 52 30 2c 23 31 31 34 0a 4d 4f 56 |.MOV R0,#114.MOV|
00001340 20 52 31 2c 23 31 0a 53 57 49 20 22 4f 53 5f 42 | R1,#1.SWI "OS_B|
00001350 79 74 65 22 0a 4c 44 4d 46 44 20 52 31 33 21 2c |yte".LDMFD R13!,|
00001360 7b 52 31 2d 52 34 2c 52 31 35 7d 5e 0a 0a 0a 0a |{R1-R4,R15}^....|
00001370 0a 0a 0a 2e 73 69 6d 70 6c 65 6e 75 6d 62 65 72 |....simplenumber|
00001380 0a 45 51 55 44 20 30 0a 0a 45 58 50 4f 52 54 20 |.EQUD 0..EXPORT |
00001390 6f 75 72 6c 69 62 5f 73 69 6d 70 6c 65 73 77 69 |ourlib_simpleswi|
000013a0 74 63 68 0a 2e 6f 75 72 6c 69 62 5f 73 69 6d 70 |tch..ourlib_simp|
000013b0 6c 65 73 77 69 74 63 68 0a 53 54 4d 46 44 20 52 |leswitch.STMFD R|
000013c0 31 33 21 2c 7b 52 31 2d 52 35 2c 52 31 34 7d 0a |13!,{R1-R5,R14}.|
000013d0 4c 44 52 20 52 31 2c 73 69 6d 70 6c 65 6e 75 6d |LDR R1,simplenum|
000013e0 62 65 72 0a 4d 4f 56 20 52 30 2c 23 31 31 33 0a |ber.MOV R0,#113.|
000013f0 4d 4f 56 20 52 34 2c 52 31 0a 53 57 49 20 22 4f |MOV R4,R1.SWI "O|
00001400 53 5f 42 79 74 65 22 0a 4d 56 4e 20 52 31 2c 52 |S_Byte".MVN R1,R|
00001410 34 0a 53 54 52 20 52 31 2c 73 69 6d 70 6c 65 6e |4.STR R1,simplen|
00001420 75 6d 62 65 72 0a 4d 4f 56 20 52 30 2c 23 31 31 |umber.MOV R0,#11|
00001430 32 0a 53 57 49 20 22 4f 53 5f 42 79 74 65 22 0a |2.SWI "OS_Byte".|
00001440 4c 44 4d 46 44 20 52 31 33 21 2c 7b 52 31 2d 52 |LDMFD R13!,{R1-R|
00001450 35 2c 52 31 35 7d 5e 0a 0a 0a 0a 0a 45 58 50 4f |5,R15}^.....EXPO|
00001460 52 54 20 6f 75 72 6c 69 62 5f 73 65 74 75 70 5f |RT ourlib_setup_|
00001470 73 63 72 65 65 6e 73 0a 2e 6f 75 72 6c 69 62 5f |screens..ourlib_|
00001480 73 65 74 75 70 5f 73 63 72 65 65 6e 73 0a 0a 53 |setup_screens..S|
00001490 54 4d 46 44 20 52 31 33 21 2c 7b 52 31 2d 52 34 |TMFD R13!,{R1-R4|
000014a0 2c 52 31 34 7d 0a 4d 4f 56 20 52 30 2c 23 31 31 |,R14}.MOV R0,#11|
000014b0 34 0a 4d 4f 56 20 52 31 2c 23 30 0a 53 57 49 20 |4.MOV R1,#0.SWI |
000014c0 22 4f 53 5f 42 79 74 65 22 0a 0a 4c 44 4d 46 44 |"OS_Byte"..LDMFD|
000014d0 20 52 31 33 21 2c 7b 52 31 2d 52 34 2c 52 31 35 | R13!,{R1-R4,R15|
000014e0 7d 5e 0a 0a 45 58 50 4f 52 54 20 6f 75 72 6c 69 |}^..EXPORT ourli|
000014f0 62 5f 6b 69 6c 6c 63 75 72 73 6f 72 0a 2e 6f 75 |b_killcursor..ou|
00001500 72 6c 69 62 5f 6b 69 6c 6c 63 75 72 73 6f 72 0a |rlib_killcursor.|
00001510 53 54 4d 46 44 20 52 31 33 21 2c 7b 52 31 2d 52 |STMFD R13!,{R1-R|
00001520 34 2c 52 31 34 7d 0a 53 57 49 20 22 4f 53 5f 52 |4,R14}.SWI "OS_R|
00001530 65 6d 6f 76 65 43 75 72 73 6f 72 73 22 0a 4c 44 |emoveCursors".LD|
00001540 4d 46 44 20 52 31 33 21 2c 7b 52 31 2d 52 34 2c |MFD R13!,{R1-R4,|
00001550 52 31 35 7d 5e 0a 0a 45 58 50 4f 52 54 20 6f 75 |R15}^..EXPORT ou|
00001560 72 6c 69 62 5f 72 65 76 69 76 65 63 75 72 73 6f |rlib_revivecurso|
00001570 72 0a 2e 6f 75 72 6c 69 62 5f 72 65 76 69 76 65 |r..ourlib_revive|
00001580 63 75 72 73 6f 72 0a 53 54 4d 46 44 20 52 31 33 |cursor.STMFD R13|
00001590 21 2c 7b 52 31 2d 52 34 2c 52 31 34 7d 0a 53 57 |!,{R1-R4,R14}.SW|
000015a0 49 20 22 4f 53 5f 52 65 73 74 6f 72 65 43 75 72 |I "OS_RestoreCur|
000015b0 73 6f 72 73 22 0a 4c 44 4d 46 44 20 52 31 33 21 |sors".LDMFD R13!|
000015c0 2c 7b 52 31 2d 52 34 2c 52 31 35 7d 5e 0a 0a 0a |,{R1-R4,R15}^...|
000015d0 0a 45 58 50 4f 52 54 20 6f 75 72 6c 69 62 5f 73 |.EXPORT ourlib_s|
000015e0 6c 69 76 65 72 5f 74 77 6f 0a 2e 6f 75 72 6c 69 |liver_two..ourli|
000015f0 62 5f 73 6c 69 76 65 72 5f 74 77 6f 0a 53 54 4d |b_sliver_two.STM|
00001600 46 44 20 52 31 33 21 2c 7b 52 31 2d 52 31 32 2c |FD R13!,{R1-R12,|
00001610 52 31 34 7d 0a 4c 44 4d 49 41 20 52 30 2c 7b 52 |R14}.LDMIA R0,{R|
00001620 30 2d 52 36 7d 0a 0a 43 4d 50 20 52 33 2c 23 32 |0-R6}..CMP R3,#2|
00001630 35 35 0a 4d 4f 56 47 45 20 52 33 2c 23 32 35 35 |55.MOVGE R3,#255|
00001640 0a 41 44 44 20 52 31 2c 52 31 2c 52 36 2c 4c 53 |.ADD R1,R1,R6,LS|
00001650 4c 20 23 32 0a 41 44 44 20 52 31 2c 52 31 2c 52 |L #2.ADD R1,R1,R|
00001660 32 0a 4d 4f 56 20 52 38 2c 23 31 32 38 0a 53 55 |2.MOV R8,#128.SU|
00001670 42 20 52 38 2c 52 38 2c 52 33 2c 4c 53 52 20 23 |B R8,R8,R3,LSR #|
00001680 31 0a 41 44 44 20 52 34 2c 52 34 2c 52 38 2c 4c |1.ADD R4,R4,R8,L|
00001690 53 4c 20 23 38 0a 41 44 44 20 52 34 2c 52 34 2c |SL #8.ADD R4,R4,|
000016a0 52 38 2c 4c 53 4c 20 23 36 0a 41 44 44 20 52 30 |R8,LSL #6.ADD R0|
000016b0 2c 52 30 2c 52 34 0a 4d 4f 56 20 52 31 30 2c 23 |,R0,R4.MOV R10,#|
000016c0 30 0a 4d 4f 56 20 52 38 2c 52 33 0a 4d 4f 56 20 |0.MOV R8,R3.MOV |
000016d0 52 33 2c 52 31 0a 2e 6c 6f 6f 6f 70 0a 4c 44 52 |R3,R1..looop.LDR|
000016e0 42 20 52 39 2c 5b 52 31 2c 52 31 30 2c 4c 53 4c |B R9,[R1,R10,LSL|
000016f0 20 23 36 5d 20 20 20 20 20 20 20 3b 20 69 66 20 | #6] ; if |
00001700 73 6f 20 6c 6f 61 64 20 69 6e 20 70 69 78 65 6c |so load in pixel|
00001710 20 76 61 6c 75 65 0a 53 54 52 42 20 52 39 2c 5b | value.STRB R9,[|
00001720 52 30 5d 2c 23 33 32 30 0a 41 44 44 20 52 31 30 |R0],#320.ADD R10|
00001730 2c 52 31 30 2c 52 35 0a 4d 4f 56 20 52 31 30 2c |,R10,R5.MOV R10,|
00001740 52 31 30 2c 4c 53 52 20 23 38 0a 53 55 42 53 20 |R10,LSR #8.SUBS |
00001750 52 38 2c 52 38 2c 23 31 0a 42 4e 45 20 6c 6f 6f |R8,R8,#1.BNE loo|
00001760 6f 70 0a 0a 20 4c 44 4d 46 44 20 52 31 33 21 2c |op.. LDMFD R13!,|
00001770 7b 52 30 2d 52 31 32 2c 52 31 35 7d 5e 0a 0a 45 |{R0-R12,R15}^..E|
00001780 58 50 4f 52 54 20 6f 75 72 6c 69 62 5f 6e 65 77 |XPORT ourlib_new|
00001790 0a 2e 6f 75 72 6c 69 62 5f 6e 65 77 0a 53 54 4d |..ourlib_new.STM|
000017a0 46 44 20 52 31 33 21 2c 7b 52 31 2d 52 36 2c 52 |FD R13!,{R1-R6,R|
000017b0 31 34 7d 0a 0a 4c 44 4d 49 41 20 52 30 2c 7b 52 |14}..LDMIA R0,{R|
000017c0 30 2d 52 34 7d 0a 0a 3b 20 6c 6f 6f 70 20 62 79 |0-R4}..; loop by|
000017d0 20 61 64 64 69 6e 67 20 69 6e 63 72 65 6d 65 6e | adding incremen|
000017e0 74 20 65 61 63 68 20 74 69 6d 65 0a 3b 20 43 4d |t each time.; CM|
000017f0 50 20 52 33 2c 52 32 20 3b 0a 4d 4f 56 20 52 36 |P R3,R2 ;.MOV R6|
00001800 2c 23 31 32 38 0a 53 55 42 20 52 36 2c 52 36 2c |,#128.SUB R6,R6,|
00001810 52 32 2c 41 53 52 20 23 31 0a 41 44 44 20 52 35 |R2,ASR #1.ADD R5|
00001820 2c 52 33 2c 52 36 2c 4c 53 4c 20 23 38 0a 41 44 |,R3,R6,LSL #8.AD|
00001830 44 20 52 35 2c 52 35 2c 52 36 2c 4c 53 4c 20 23 |D R5,R5,R6,LSL #|
00001840 36 0a 41 44 44 20 52 30 2c 52 30 2c 52 35 0a 4d |6.ADD R0,R0,R5.M|
00001850 4f 56 20 52 36 2c 23 30 0a 4d 4f 56 20 52 32 2c |OV R6,#0.MOV R2,|
00001860 52 32 2c 4c 53 52 20 23 31 0a 2e 6c 6f 6f 70 0a |R2,LSR #1..loop.|
00001870 4d 4f 56 20 52 33 2c 52 36 2c 4c 53 52 20 23 31 |MOV R3,R6,LSR #1|
00001880 36 0a 4c 44 52 42 20 52 35 2c 5b 52 31 2c 52 33 |6.LDRB R5,[R1,R3|
00001890 2c 4c 53 4c 20 23 36 5d 0a 41 44 44 20 52 36 2c |,LSL #6].ADD R6,|
000018a0 52 36 2c 52 34 0a 53 54 52 42 20 52 35 2c 5b 52 |R6,R4.STRB R5,[R|
000018b0 30 5d 2c 23 33 32 30 0a 0a 4d 4f 56 20 52 33 2c |0],#320..MOV R3,|
000018c0 52 36 2c 4c 53 52 20 23 31 36 0a 4c 44 52 42 20 |R6,LSR #16.LDRB |
000018d0 52 35 2c 5b 52 31 2c 52 33 2c 4c 53 4c 20 23 36 |R5,[R1,R3,LSL #6|
000018e0 5d 0a 41 44 44 20 52 36 2c 52 36 2c 52 34 0a 53 |].ADD R6,R6,R4.S|
000018f0 54 52 42 20 52 35 2c 5b 52 30 5d 2c 23 33 32 30 |TRB R5,[R0],#320|
00001900 0a 0a 53 55 42 53 20 52 32 2c 52 32 2c 23 31 0a |..SUBS R2,R2,#1.|
00001910 42 4c 4e 45 20 6c 6f 6f 70 0a 4c 44 4d 46 44 20 |BLNE loop.LDMFD |
00001920 52 31 33 21 2c 7b 52 31 2d 52 36 2c 52 31 35 7d |R13!,{R1-R6,R15}|
00001930 0a 0a 45 58 50 4f 52 54 20 6f 75 72 6c 69 62 5f |..EXPORT ourlib_|
00001940 6e 65 77 5f 6d 61 73 6b 0a 2e 6f 75 72 6c 69 62 |new_mask..ourlib|
00001950 5f 6e 65 77 5f 6d 61 73 6b 0a 53 54 4d 46 44 20 |_new_mask.STMFD |
00001960 52 31 33 21 2c 7b 52 31 2d 52 36 2c 52 31 34 7d |R13!,{R1-R6,R14}|
00001970 0a 4c 44 4d 49 41 20 52 30 2c 7b 52 30 2d 52 34 |.LDMIA R0,{R0-R4|
00001980 7d 0a 0a 3b 20 6c 6f 6f 70 20 62 79 20 61 64 64 |}..; loop by add|
00001990 69 6e 67 20 69 6e 63 72 65 6d 65 6e 74 20 65 61 |ing increment ea|
000019a0 63 68 20 74 69 6d 65 0a 3b 20 43 4d 50 20 52 33 |ch time.; CMP R3|
000019b0 2c 52 32 20 3b 0a 4d 4f 56 20 52 36 2c 23 31 32 |,R2 ;.MOV R6,#12|
000019c0 38 0a 53 55 42 20 52 36 2c 52 36 2c 52 32 2c 41 |8.SUB R6,R6,R2,A|
000019d0 53 52 20 23 31 0a 41 44 44 20 52 35 2c 52 33 2c |SR #1.ADD R5,R3,|
000019e0 52 36 2c 4c 53 4c 20 23 38 0a 41 44 44 20 52 35 |R6,LSL #8.ADD R5|
000019f0 2c 52 35 2c 52 36 2c 4c 53 4c 20 23 36 0a 41 44 |,R5,R6,LSL #6.AD|
00001a00 44 20 52 30 2c 52 30 2c 52 35 0a 4d 4f 56 20 52 |D R0,R0,R5.MOV R|
00001a10 36 2c 23 30 0a 0a 4d 4f 56 20 52 37 2c 52 32 2c |6,#0..MOV R7,R2,|
00001a20 4c 53 52 20 23 32 0a 0a 2e 6c 6f 6f 70 6d 0a 4d |LSR #2...loopm.M|
00001a30 4f 56 20 52 33 2c 52 36 2c 4c 53 52 20 23 31 36 |OV R3,R6,LSR #16|
00001a40 0a 4c 44 52 42 20 52 35 2c 5b 52 31 2c 52 33 2c |.LDRB R5,[R1,R3,|
00001a50 4c 53 4c 20 23 36 5d 0a 0a 43 4d 50 20 52 35 2c |LSL #6]..CMP R5,|
00001a60 23 30 0a 53 54 52 4e 45 42 20 52 35 2c 5b 52 30 |#0.STRNEB R5,[R0|
00001a70 5d 0a 41 44 44 20 52 30 2c 52 30 2c 23 33 32 30 |].ADD R0,R0,#320|
00001a80 0a 53 55 42 53 20 52 32 2c 52 32 2c 23 31 0a 41 |.SUBS R2,R2,#1.A|
00001a90 44 44 20 52 36 2c 52 36 2c 52 34 0a 42 4e 45 20 |DD R6,R6,R4.BNE |
00001aa0 6c 6f 6f 70 6d 0a 4c 44 4d 46 44 20 52 31 33 21 |loopm.LDMFD R13!|
00001ab0 2c 7b 52 31 2d 52 36 2c 52 31 35 7d 0a 0a 0a 0a |,{R1-R6,R15}....|
00001ac0 45 58 50 4f 52 54 20 6f 75 72 6c 69 62 5f 73 6c |EXPORT ourlib_sl|
00001ad0 69 76 65 72 0a 2e 6f 75 72 6c 69 62 5f 73 6c 69 |iver..ourlib_sli|
00001ae0 76 65 72 0a 53 54 4d 46 44 20 52 31 33 21 2c 7b |ver.STMFD R13!,{|
00001af0 52 31 2d 52 31 32 2c 52 31 34 7d 0a 4c 44 4d 49 |R1-R12,R14}.LDMI|
00001b00 41 20 52 30 2c 7b 52 30 2d 52 34 7d 0a 0a 43 4d |A R0,{R0-R4}..CM|
00001b10 50 20 52 33 2c 52 32 0a 4d 4f 56 47 45 20 52 33 |P R3,R2.MOVGE R3|
00001b20 2c 52 32 0a 0a 2f 2a 2e 6e 6f 63 6c 69 70 70 69 |,R2../*.noclippi|
00001b30 6e 67 0a 41 44 44 20 52 31 2c 52 31 2c 52 36 2c |ng.ADD R1,R1,R6,|
00001b40 4c 53 4c 20 23 31 32 20 3b 20 63 61 6c 63 75 6c |LSL #12 ; calcul|
00001b50 61 74 65 20 6f 66 66 73 65 74 20 69 6e 20 77 61 |ate offset in wa|
00001b60 6c 6c 73 5b 5d 5b 5d 20 61 72 72 61 79 0a 41 44 |lls[][] array.AD|
00001b70 44 20 52 31 2c 52 31 2c 52 32 20 20 20 20 20 20 |D R1,R1,R2 |
00001b80 20 20 20 3b 20 61 64 64 20 74 68 65 20 63 6f 6c | ; add the col|
00001b90 75 6d 6e 20 74 6f 20 74 68 69 73 0a 2a 2f 0a 0a |umn to this.*/..|
00001ba0 4d 4f 56 20 52 38 2c 23 31 32 38 0a 53 55 42 20 |MOV R8,#128.SUB |
00001bb0 52 38 2c 52 38 2c 52 33 2c 4c 53 52 20 23 31 20 |R8,R8,R3,LSR #1 |
00001bc0 3b 20 73 65 74 20 73 74 61 72 74 20 79 20 70 6f |; set start y po|
00001bd0 73 0a 41 44 44 20 52 34 2c 52 34 2c 52 38 2c 4c |s.ADD R4,R4,R8,L|
00001be0 53 4c 20 23 38 20 3b 20 77 6f 72 6b 20 6f 75 74 |SL #8 ; work out|
00001bf0 20 75 73 75 61 6c 20 73 63 72 65 65 6e 20 28 33 | usual screen (3|
00001c00 32 30 78 32 35 36 29 0a 41 44 44 20 52 34 2c 52 |20x256).ADD R4,R|
00001c10 34 2c 52 38 2c 4c 53 4c 20 23 36 20 3b 20 6f 66 |4,R8,LSL #6 ; of|
00001c20 66 73 65 74 20 74 6f 20 62 65 67 69 6e 20 6c 6f |fset to begin lo|
00001c30 6f 70 0a 41 44 44 20 52 30 2c 52 30 2c 52 34 0a |op.ADD R0,R0,R4.|
00001c40 0a 4d 4f 56 20 52 38 2c 23 36 34 20 20 20 20 20 |.MOV R8,#64 |
00001c50 20 20 20 3b 20 73 74 61 72 74 20 6c 6f 6f 70 20 | ; start loop |
00001c60 63 6f 75 6e 74 65 72 0a 4d 4f 56 20 52 37 2c 52 |counter.MOV R7,R|
00001c70 38 0a 0a 43 4d 50 20 52 33 2c 23 36 34 0a 42 4c |8..CMP R3,#64.BL|
00001c80 4c 45 20 6c 6f 6f 70 79 36 34 6c 6f 6f 0a 43 4d |LE loopy64loo.CM|
00001c90 50 20 52 33 2c 23 31 32 37 0a 42 4c 4c 45 20 6c |P R3,#127.BLLE l|
00001ca0 6f 6f 70 79 31 32 37 6c 6f 6f 0a 43 4d 50 20 52 |oopy127loo.CMP R|
00001cb0 33 2c 23 31 39 31 0a 42 4c 4c 45 20 6c 6f 6f 70 |3,#191.BLLE loop|
00001cc0 79 31 39 31 6c 6f 6f 0a 42 4c 20 6c 6f 6f 70 79 |y191loo.BL loopy|
00001cd0 31 39 32 6c 6f 6f 0a 2e 6c 6f 6f 70 79 36 34 6c |192loo..loopy64l|
00001ce0 6f 6f 0a 2e 64 6f 64 64 6c 65 36 34 0a 43 4d 50 |oo..doddle64.CMP|
00001cf0 20 52 37 2c 23 36 34 0a 42 4c 4c 54 20 64 6f 6e | R7,#64.BLLT don|
00001d00 65 36 34 6c 6f 6f 0a 4c 44 52 42 20 52 39 2c 5b |e64loo.LDRB R9,[|
00001d10 52 31 5d 20 20 20 20 20 20 20 3b 20 69 66 20 73 |R1] ; if s|
00001d20 6f 20 6c 6f 61 64 20 69 6e 20 70 69 78 65 6c 20 |o load in pixel |
00001d30 76 61 6c 75 65 0a 53 54 52 42 20 52 39 2c 5b 52 |value.STRB R9,[R|
00001d40 30 5d 2c 23 33 32 30 0a 53 55 42 20 52 37 2c 52 |0],#320.SUB R7,R|
00001d50 37 2c 23 36 34 0a 2e 64 6f 6e 65 36 34 6c 6f 6f |7,#64..done64loo|
00001d60 0a 41 44 44 20 52 31 2c 52 31 2c 23 36 34 0a 41 |.ADD R1,R1,#64.A|
00001d70 44 44 20 52 37 2c 52 37 2c 52 33 20 20 20 20 20 |DD R7,R7,R3 |
00001d80 20 20 20 20 3b 20 61 64 64 20 73 63 61 6c 65 20 | ; add scale |
00001d90 6f 6e 74 6f 20 76 65 72 74 2e 20 65 72 72 6f 72 |onto vert. error|
00001da0 20 74 65 72 6d 0a 53 55 42 53 20 52 38 2c 52 38 | term.SUBS R8,R8|
00001db0 2c 23 31 0a 42 4c 4e 45 20 6c 6f 6f 70 79 36 34 |,#1.BLNE loopy64|
00001dc0 6c 6f 6f 20 20 20 20 20 20 20 20 20 3b 20 6c 6f |loo ; lo|
00001dd0 6f 70 20 69 66 20 73 6f 0a 0a 4c 44 4d 46 44 20 |op if so..LDMFD |
00001de0 52 31 33 21 2c 7b 52 31 2d 52 31 32 2c 52 31 35 |R13!,{R1-R12,R15|
00001df0 7d 5e 0a 2f 2a 4d 4f 56 53 20 50 43 2c 52 31 34 |}^./*MOVS PC,R14|
00001e00 2a 2f 0a 0a 0a 2e 6c 6f 6f 70 79 31 32 37 6c 6f |*/....loopy127lo|
00001e10 6f 0a 2e 64 6f 64 64 6c 65 31 32 37 0a 43 4d 50 |o..doddle127.CMP|
00001e20 20 52 37 2c 23 36 34 0a 4c 44 52 42 20 52 39 2c | R7,#64.LDRB R9,|
00001e30 5b 52 31 5d 20 20 20 20 20 20 20 3b 20 69 66 20 |[R1] ; if |
00001e40 73 6f 20 6c 6f 61 64 20 69 6e 20 70 69 78 65 6c |so load in pixel|
00001e50 20 76 61 6c 75 65 0a 53 54 52 42 20 52 39 2c 5b | value.STRB R9,[|
00001e60 52 30 5d 2c 23 33 32 30 0a 53 55 42 20 52 37 2c |R0],#320.SUB R7,|
00001e70 52 37 2c 23 36 34 0a 43 4d 50 20 52 37 2c 23 36 |R7,#64.CMP R7,#6|
00001e80 34 0a 42 4c 4c 54 20 64 6f 6e 65 31 32 37 6c 6f |4.BLLT done127lo|
00001e90 6f 0a 4c 44 52 42 20 52 39 2c 5b 52 31 5d 20 20 |o.LDRB R9,[R1] |
00001ea0 20 20 20 20 20 3b 20 69 66 20 73 6f 20 6c 6f 61 | ; if so loa|
00001eb0 64 20 69 6e 20 70 69 78 65 6c 20 76 61 6c 75 65 |d in pixel value|
00001ec0 0a 53 54 52 42 20 52 39 2c 5b 52 30 5d 2c 23 33 |.STRB R9,[R0],#3|
00001ed0 32 30 0a 53 55 42 20 52 37 2c 52 37 2c 23 36 34 |20.SUB R7,R7,#64|
00001ee0 0a 2e 64 6f 6e 65 31 32 37 6c 6f 6f 0a 41 44 44 |..done127loo.ADD|
00001ef0 20 52 31 2c 52 31 2c 23 36 34 0a 41 44 44 20 52 | R1,R1,#64.ADD R|
00001f00 37 2c 52 37 2c 52 33 20 20 20 20 20 20 20 20 20 |7,R7,R3 |
00001f10 3b 20 61 64 64 20 73 63 61 6c 65 20 6f 6e 74 6f |; add scale onto|
00001f20 20 76 65 72 74 2e 20 65 72 72 6f 72 20 74 65 72 | vert. error ter|
00001f30 6d 0a 53 55 42 53 20 52 38 2c 52 38 2c 23 31 0a |m.SUBS R8,R8,#1.|
00001f40 42 4c 4e 45 20 6c 6f 6f 70 79 31 32 37 6c 6f 6f |BLNE loopy127loo|
00001f50 20 20 20 20 20 20 20 20 20 3b 20 6c 6f 6f 70 20 | ; loop |
00001f60 69 66 20 73 6f 0a 4c 44 4d 46 44 20 52 31 33 21 |if so.LDMFD R13!|
00001f70 2c 7b 52 31 2d 52 31 32 2c 52 31 35 7d 5e 0a 0a |,{R1-R12,R15}^..|
00001f80 2f 2a 4d 4f 56 53 20 50 43 2c 52 31 34 2a 2f 0a |/*MOVS PC,R14*/.|
00001f90 0a 0a 2e 6c 6f 6f 70 79 31 39 31 6c 6f 6f 0a 2e |...loopy191loo..|
00001fa0 64 6f 64 64 6c 65 31 39 31 0a 43 4d 50 20 52 37 |doddle191.CMP R7|
00001fb0 2c 23 36 34 0a 4c 44 52 42 20 52 39 2c 5b 52 31 |,#64.LDRB R9,[R1|
00001fc0 5d 20 20 20 20 20 20 20 3b 20 69 66 20 73 6f 20 |] ; if so |
00001fd0 6c 6f 61 64 20 69 6e 20 70 69 78 65 6c 20 76 61 |load in pixel va|
00001fe0 6c 75 65 0a 53 54 52 42 20 52 39 2c 5b 52 30 5d |lue.STRB R9,[R0]|
00001ff0 2c 23 33 32 30 0a 53 55 42 20 52 37 2c 52 37 2c |,#320.SUB R7,R7,|
00002000 23 36 34 0a 43 4d 50 20 52 37 2c 23 36 34 0a 4c |#64.CMP R7,#64.L|
00002010 44 52 42 20 52 39 2c 5b 52 31 5d 20 20 20 20 20 |DRB R9,[R1] |
00002020 20 20 3b 20 69 66 20 73 6f 20 6c 6f 61 64 20 69 | ; if so load i|
00002030 6e 20 70 69 78 65 6c 20 76 61 6c 75 65 0a 53 54 |n pixel value.ST|
00002040 52 42 20 52 39 2c 5b 52 30 5d 2c 23 33 32 30 0a |RB R9,[R0],#320.|
00002050 53 55 42 20 52 37 2c 52 37 2c 23 36 34 0a 43 4d |SUB R7,R7,#64.CM|
00002060 50 20 52 37 2c 23 36 34 0a 42 4c 54 20 64 6f 6e |P R7,#64.BLT don|
00002070 65 31 39 31 6c 6f 6f 0a 4c 44 52 42 20 52 39 2c |e191loo.LDRB R9,|
00002080 5b 52 31 5d 20 20 20 20 20 20 20 3b 20 69 66 20 |[R1] ; if |
00002090 73 6f 20 6c 6f 61 64 20 69 6e 20 70 69 78 65 6c |so load in pixel|
000020a0 20 76 61 6c 75 65 0a 53 54 52 42 20 52 39 2c 5b | value.STRB R9,[|
000020b0 52 30 5d 2c 23 33 32 30 0a 53 55 42 20 52 37 2c |R0],#320.SUB R7,|
000020c0 52 37 2c 23 36 34 0a 2e 64 6f 6e 65 31 39 31 6c |R7,#64..done191l|
000020d0 6f 6f 0a 41 44 44 20 52 31 2c 52 31 2c 23 36 34 |oo.ADD R1,R1,#64|
000020e0 0a 41 44 44 20 52 37 2c 52 37 2c 52 33 20 20 20 |.ADD R7,R7,R3 |
000020f0 20 20 20 20 20 20 3b 20 61 64 64 20 73 63 61 6c | ; add scal|
00002100 65 20 6f 6e 74 6f 20 76 65 72 74 2e 20 65 72 72 |e onto vert. err|
00002110 6f 72 20 74 65 72 6d 0a 53 55 42 53 20 52 38 2c |or term.SUBS R8,|
00002120 52 38 2c 23 31 0a 42 4c 4e 45 20 6c 6f 6f 70 79 |R8,#1.BLNE loopy|
00002130 31 39 31 6c 6f 6f 20 20 20 20 20 20 20 20 20 3b |191loo ;|
00002140 20 6c 6f 6f 70 20 69 66 20 73 6f 0a 4c 44 4d 46 | loop if so.LDMF|
00002150 44 20 52 31 33 21 2c 7b 52 31 2d 52 31 32 2c 52 |D R13!,{R1-R12,R|
00002160 31 35 7d 5e 0a 2f 2a 4d 4f 56 53 20 50 43 2c 52 |15}^./*MOVS PC,R|
00002170 31 34 2a 2f 0a 0a 0a 2e 6c 6f 6f 70 79 31 39 32 |14*/....loopy192|
00002180 6c 6f 6f 0a 2e 64 6f 64 64 6c 65 31 39 32 0a 43 |loo..doddle192.C|
00002190 4d 50 20 52 37 2c 23 36 34 0a 4c 44 52 42 20 52 |MP R7,#64.LDRB R|
000021a0 39 2c 5b 52 31 5d 20 20 20 20 20 20 20 3b 20 69 |9,[R1] ; i|
000021b0 66 20 73 6f 20 6c 6f 61 64 20 69 6e 20 70 69 78 |f so load in pix|
000021c0 65 6c 20 76 61 6c 75 65 0a 53 54 52 42 20 52 39 |el value.STRB R9|
000021d0 2c 5b 52 30 5d 2c 23 33 32 30 0a 53 55 42 20 52 |,[R0],#320.SUB R|
000021e0 37 2c 52 37 2c 23 36 34 0a 43 4d 50 20 52 37 2c |7,R7,#64.CMP R7,|
000021f0 23 36 34 0a 4c 44 52 42 20 52 39 2c 5b 52 31 5d |#64.LDRB R9,[R1]|
00002200 20 20 20 20 20 20 20 3b 20 69 66 20 73 6f 20 6c | ; if so l|
00002210 6f 61 64 20 69 6e 20 70 69 78 65 6c 20 76 61 6c |oad in pixel val|
00002220 75 65 0a 53 54 52 42 20 52 39 2c 5b 52 30 5d 2c |ue.STRB R9,[R0],|
00002230 23 33 32 30 0a 53 55 42 20 52 37 2c 52 37 2c 23 |#320.SUB R7,R7,#|
00002240 36 34 0a 43 4d 50 20 52 37 2c 23 36 34 0a 4c 44 |64.CMP R7,#64.LD|
00002250 52 42 20 52 39 2c 5b 52 31 5d 20 20 20 20 20 20 |RB R9,[R1] |
00002260 20 3b 20 69 66 20 73 6f 20 6c 6f 61 64 20 69 6e | ; if so load in|
00002270 20 70 69 78 65 6c 20 76 61 6c 75 65 0a 53 54 52 | pixel value.STR|
00002280 42 20 52 39 2c 5b 52 30 5d 2c 23 33 32 30 0a 53 |B R9,[R0],#320.S|
00002290 55 42 20 52 37 2c 52 37 2c 23 36 34 0a 43 4d 50 |UB R7,R7,#64.CMP|
000022a0 20 52 37 2c 23 36 34 0a 42 4c 4c 54 20 64 6f 6e | R7,#64.BLLT don|
000022b0 65 31 39 32 6c 6f 6f 0a 4c 44 52 42 20 52 39 2c |e192loo.LDRB R9,|
000022c0 5b 52 31 5d 20 20 20 20 20 20 20 3b 20 69 66 20 |[R1] ; if |
000022d0 73 6f 20 6c 6f 61 64 20 69 6e 20 70 69 78 65 6c |so load in pixel|
000022e0 20 76 61 6c 75 65 0a 53 54 52 42 20 52 39 2c 5b | value.STRB R9,[|
000022f0 52 30 5d 2c 23 33 32 30 0a 53 55 42 20 52 37 2c |R0],#320.SUB R7,|
00002300 52 37 2c 23 36 34 0a 2e 64 6f 6e 65 31 39 32 6c |R7,#64..done192l|
00002310 6f 6f 0a 41 44 44 20 52 31 2c 52 31 2c 23 36 34 |oo.ADD R1,R1,#64|
00002320 0a 41 44 44 20 52 37 2c 52 37 2c 52 33 20 20 20 |.ADD R7,R7,R3 |
00002330 20 20 20 20 20 20 3b 20 61 64 64 20 73 63 61 6c | ; add scal|
00002340 65 20 6f 6e 74 6f 20 76 65 72 74 2e 20 65 72 72 |e onto vert. err|
00002350 6f 72 20 74 65 72 6d 0a 53 55 42 53 20 52 38 2c |or term.SUBS R8,|
00002360 52 38 2c 23 31 0a 42 4c 4e 45 20 6c 6f 6f 70 79 |R8,#1.BLNE loopy|
00002370 31 39 32 6c 6f 6f 20 20 20 20 20 20 20 20 20 3b |192loo ;|
00002380 20 6c 6f 6f 70 20 69 66 20 73 6f 0a 2e 65 6e 64 | loop if so..end|
00002390 6f 66 66 75 6e 63 74 69 6f 6e 0a 4c 44 4d 46 44 |offunction.LDMFD|
000023a0 20 52 31 33 21 2c 7b 52 31 2d 52 31 32 2c 52 31 | R13!,{R1-R12,R1|
000023b0 35 7d 5e 0a 2f 2a 4d 4f 56 53 20 50 43 2c 52 31 |5}^./*MOVS PC,R1|
000023c0 34 5e 2a 2f 0a 0a 45 58 50 4f 52 54 20 6f 75 72 |4^*/..EXPORT our|
000023d0 6c 69 62 5f 73 6c 69 76 65 72 78 0a 2e 6f 75 72 |lib_sliverx..our|
000023e0 6c 69 62 5f 73 6c 69 76 65 72 78 0a 53 54 4d 46 |lib_sliverx.STMF|
000023f0 44 20 52 31 33 21 2c 7b 52 30 2d 52 31 32 2c 52 |D R13!,{R0-R12,R|
00002400 31 34 7d 0a 4c 44 4d 49 41 20 52 30 2c 7b 52 30 |14}.LDMIA R0,{R0|
00002410 2d 52 37 7d 0a 4d 4f 56 20 52 31 30 2c 23 32 35 |-R7}.MOV R10,#25|
00002420 36 0a 43 4d 50 20 52 33 2c 52 35 0a 4d 4f 56 47 |6.CMP R3,R5.MOVG|
00002430 45 20 52 33 2c 52 35 0a 0a 2e 6e 6f 63 6c 69 70 |E R3,R5...noclip|
00002440 70 69 6e 67 78 0a 41 44 44 20 52 31 2c 52 31 2c |pingx.ADD R1,R1,|
00002450 52 36 2c 4c 53 4c 20 23 31 32 20 3b 20 63 61 6c |R6,LSL #12 ; cal|
00002460 63 75 6c 61 74 65 20 6f 66 66 73 65 74 20 69 6e |culate offset in|
00002470 20 77 61 6c 6c 73 5b 5d 5b 5d 20 61 72 72 61 79 | walls[][] array|
00002480 0a 41 44 44 20 52 31 2c 52 31 2c 52 32 20 20 20 |.ADD R1,R1,R2 |
00002490 20 20 20 20 20 20 3b 20 61 64 64 20 74 68 65 20 | ; add the |
000024a0 63 6f 6c 75 6d 6e 20 74 6f 20 74 68 69 73 0a 4d |column to this.M|
000024b0 4f 56 20 52 38 2c 23 31 30 30 0a 53 55 42 20 52 |OV R8,#100.SUB R|
000024c0 38 2c 52 38 2c 52 33 2c 4c 53 52 20 23 31 20 3b |8,R8,R3,LSR #1 ;|
000024d0 20 73 65 74 20 73 74 61 72 74 20 79 20 70 6f 73 | set start y pos|
000024e0 0a 41 44 44 20 52 34 2c 52 34 2c 52 38 2c 4c 53 |.ADD R4,R4,R8,LS|
000024f0 4c 20 23 38 20 3b 20 77 6f 72 6b 20 6f 75 74 20 |L #8 ; work out |
00002500 75 73 75 61 6c 20 73 63 72 65 65 6e 20 28 33 32 |usual screen (32|
00002510 30 78 32 35 36 29 0a 41 44 44 20 52 34 2c 52 34 |0x256).ADD R4,R4|
00002520 2c 52 38 2c 4c 53 4c 20 23 36 20 3b 20 6f 66 66 |,R8,LSL #6 ; off|
00002530 73 65 74 20 74 6f 20 62 65 67 69 6e 20 6c 6f 6f |set to begin loo|
00002540 70 0a 41 44 44 20 52 30 2c 52 30 2c 52 34 0a 0a |p.ADD R0,R0,R4..|
00002550 3b 20 73 65 74 75 70 20 69 6e 63 20 61 6e 64 20 |; setup inc and |
00002560 66 69 78 65 64 0a 4d 4f 56 20 52 39 2c 23 30 2c |fixed.MOV R9,#0,|
00002570 4c 53 4c 20 23 31 36 0a 4d 4f 56 20 52 31 31 2c |LSL #16.MOV R11,|
00002580 23 30 0a 3b 20 52 33 20 68 6f 6c 64 73 20 63 6f |#0.; R3 holds co|
00002590 75 6e 74 65 72 0a 2e 6c 6f 6f 70 78 78 78 0a 4c |unter..loopxxx.L|
000025a0 44 52 42 20 52 31 30 2c 5b 52 31 2c 52 31 31 2c |DRB R10,[R1,R11,|
000025b0 4c 53 4c 20 23 36 5d 0a 53 54 52 42 20 52 31 30 |LSL #6].STRB R10|
000025c0 2c 5b 52 30 5d 2c 23 33 32 30 0a 41 44 44 20 52 |,[R0],#320.ADD R|
000025d0 39 2c 52 39 2c 52 37 0a 4d 4f 56 20 52 31 31 2c |9,R9,R7.MOV R11,|
000025e0 52 39 2c 4c 53 52 20 23 31 36 0a 0a 3b 65 6e 64 |R9,LSR #16..;end|
000025f0 78 78 78 0a 53 55 42 53 20 52 33 2c 52 33 2c 23 |xxx.SUBS R3,R3,#|
00002600 31 0a 42 4e 45 20 6c 6f 6f 70 78 78 78 0a 0a 0a |1.BNE loopxxx...|
00002610 4c 44 4d 46 44 20 52 31 33 21 2c 7b 52 30 2d 52 |LDMFD R13!,{R0-R|
00002620 31 32 2c 52 31 35 7d 5e 0a 2f 2a 4d 4f 56 53 20 |12,R15}^./*MOVS |
00002630 50 43 2c 52 31 34 5e 2a 2f 0a 0a 45 58 50 4f 52 |PC,R14^*/..EXPOR|
00002640 54 20 6f 75 72 6c 69 62 5f 73 6c 6f 77 63 6c 65 |T ourlib_slowcle|
00002650 61 72 0a 2e 6f 75 72 6c 69 62 5f 73 6c 6f 77 63 |ar..ourlib_slowc|
00002660 6c 65 61 72 0a 53 54 4d 46 44 20 52 31 33 21 2c |lear.STMFD R13!,|
00002670 7b 52 30 2d 52 35 2c 52 31 34 7d 0a 0a 2e 63 6c |{R0-R5,R14}...cl|
00002680 65 61 72 69 6e 67 0a 53 54 52 42 20 52 32 2c 5b |earing.STRB R2,[|
00002690 52 30 2c 52 31 5d 0a 53 55 42 53 20 52 31 2c 52 |R0,R1].SUBS R1,R|
000026a0 31 2c 23 31 0a 42 4e 45 20 63 6c 65 61 72 69 6e |1,#1.BNE clearin|
000026b0 67 0a 4c 44 4d 46 44 20 52 31 33 21 2c 7b 52 30 |g.LDMFD R13!,{R0|
000026c0 2d 52 35 2c 52 31 35 7d 0a 0a 45 58 50 4f 52 54 |-R5,R15}..EXPORT|
000026d0 20 6f 75 72 6c 69 62 5f 66 61 73 74 63 6c 67 5f | ourlib_fastclg_|
000026e0 74 77 6f 0a 2e 6f 75 72 6c 69 62 5f 66 61 73 74 |two..ourlib_fast|
000026f0 63 6c 67 5f 74 77 6f 0a 0a 53 54 4d 46 44 20 52 |clg_two..STMFD R|
00002700 31 33 21 2c 7b 52 30 2d 52 31 32 2c 52 31 34 7d |13!,{R0-R12,R14}|
00002710 0a 0a 4d 4f 56 20 52 34 2c 23 31 32 38 0a 0a 53 |..MOV R4,#128..S|
00002720 55 42 20 52 34 2c 52 34 2c 52 32 2c 41 53 52 20 |UB R4,R4,R2,ASR |
00002730 23 31 0a 41 44 44 20 52 31 31 2c 52 30 2c 52 34 |#1.ADD R11,R0,R4|
00002740 2c 4c 53 4c 20 23 38 0a 41 44 44 20 52 31 31 2c |,LSL #8.ADD R11,|
00002750 52 31 31 2c 52 34 2c 4c 53 4c 20 23 36 0a 4d 4f |R11,R4,LSL #6.MO|
00002760 56 20 52 31 30 2c 52 31 31 20 3b 20 73 74 61 72 |V R10,R11 ; star|
00002770 74 20 6f 66 66 73 65 74 20 63 61 6c 63 75 6c 61 |t offset calcula|
00002780 74 65 64 0a 4d 4f 56 20 52 39 2c 52 31 0a 0a 4d |ted.MOV R9,R1..M|
00002790 4f 56 20 52 31 32 2c 52 32 2c 4c 53 52 20 23 31 |OV R12,R2,LSR #1|
000027a0 0a 0a 4c 44 52 20 52 30 2c 74 6f 70 63 6f 6c 6f |..LDR R0,topcolo|
000027b0 75 72 0a 4d 4f 56 20 52 31 2c 52 30 0a 4d 4f 56 |ur.MOV R1,R0.MOV|
000027c0 20 52 32 2c 52 30 0a 4d 4f 56 20 52 33 2c 52 30 | R2,R0.MOV R3,R0|
000027d0 0a 4d 4f 56 20 52 34 2c 52 30 0a 4d 4f 56 20 52 |.MOV R4,R0.MOV R|
000027e0 35 2c 52 30 0a 4d 4f 56 20 52 36 2c 52 30 0a 4d |5,R0.MOV R6,R0.M|
000027f0 4f 56 20 52 37 2c 52 30 0a 0a 4d 4f 56 20 52 31 |OV R7,R0..MOV R1|
00002800 34 2c 52 31 32 0a 2e 79 5f 6c 6f 6f 70 0a 4d 4f |4,R12..y_loop.MO|
00002810 56 20 52 38 2c 52 39 2c 4c 53 52 20 23 35 0a 2e |V R8,R9,LSR #5..|
00002820 78 5f 6c 6f 6f 70 0a 0a 53 54 4d 49 41 20 52 31 |x_loop..STMIA R1|
00002830 31 21 2c 7b 52 30 2d 52 37 7d 0a 53 55 42 53 20 |1!,{R0-R7}.SUBS |
00002840 52 38 2c 52 38 2c 23 31 0a 42 4e 45 20 78 5f 6c |R8,R8,#1.BNE x_l|
00002850 6f 6f 70 0a 0a 41 44 44 20 52 31 30 2c 52 31 30 |oop..ADD R10,R10|
00002860 2c 23 33 32 30 0a 4d 4f 56 20 52 31 31 2c 52 31 |,#320.MOV R11,R1|
00002870 30 0a 0a 53 55 42 53 20 52 31 32 2c 52 31 32 2c |0..SUBS R12,R12,|
00002880 23 31 0a 42 4e 45 20 79 5f 6c 6f 6f 70 0a 0a 4c |#1.BNE y_loop..L|
00002890 44 52 20 52 30 2c 62 6f 74 74 6f 6d 63 6f 6c 6f |DR R0,bottomcolo|
000028a0 75 72 0a 4d 4f 56 20 52 31 2c 52 30 0a 4d 4f 56 |ur.MOV R1,R0.MOV|
000028b0 20 52 32 2c 52 30 0a 4d 4f 56 20 52 33 2c 52 30 | R2,R0.MOV R3,R0|
000028c0 0a 4d 4f 56 20 52 34 2c 52 30 0a 4d 4f 56 20 52 |.MOV R4,R0.MOV R|
000028d0 35 2c 52 30 0a 4d 4f 56 20 52 36 2c 52 30 0a 4d |5,R0.MOV R6,R0.M|
000028e0 4f 56 20 52 37 2c 52 30 0a 4d 4f 56 20 52 31 32 |OV R7,R0.MOV R12|
000028f0 2c 52 31 34 0a 2e 79 5f 6c 6f 6f 70 62 0a 4d 4f |,R14..y_loopb.MO|
00002900 56 20 52 38 2c 52 39 2c 4c 53 52 20 23 35 0a 2e |V R8,R9,LSR #5..|
00002910 78 5f 6c 6f 6f 70 62 0a 0a 53 54 4d 49 41 20 52 |x_loopb..STMIA R|
00002920 31 31 21 2c 7b 52 30 2d 52 37 7d 0a 53 55 42 53 |11!,{R0-R7}.SUBS|
00002930 20 52 38 2c 52 38 2c 23 31 0a 42 4e 45 20 78 5f | R8,R8,#1.BNE x_|
00002940 6c 6f 6f 70 62 0a 0a 41 44 44 20 52 31 30 2c 52 |loopb..ADD R10,R|
00002950 31 30 2c 23 33 32 30 0a 4d 4f 56 20 52 31 31 2c |10,#320.MOV R11,|
00002960 52 31 30 0a 0a 53 55 42 53 20 52 31 32 2c 52 31 |R10..SUBS R12,R1|
00002970 32 2c 23 31 0a 42 4e 45 20 79 5f 6c 6f 6f 70 62 |2,#1.BNE y_loopb|
00002980 0a 0a 0a 0a 0a 0a 0a 0a 0a 0a 0a 4c 44 4d 46 44 |...........LDMFD|
00002990 20 52 31 33 21 2c 7b 52 30 2d 52 31 32 2c 52 31 | R13!,{R0-R12,R1|
000029a0 35 7d 5e 0a 0a 0a 45 58 50 4f 52 54 20 6f 75 72 |5}^...EXPORT our|
000029b0 6c 69 62 5f 66 61 73 74 63 6c 67 0a 2e 6f 75 72 |lib_fastclg..our|
000029c0 6c 69 62 5f 66 61 73 74 63 6c 67 0a 53 54 4d 46 |lib_fastclg.STMF|
000029d0 44 20 52 31 33 21 2c 7b 52 31 2d 52 31 32 2c 52 |D R13!,{R1-R12,R|
000029e0 31 34 7d 0a 0a 0a 4d 4f 56 20 52 31 31 2c 52 30 |14}...MOV R11,R0|
000029f0 0a 0a 0a 4d 4f 56 20 52 31 30 2c 23 33 32 0a 0a |...MOV R10,#32..|
00002a00 4c 44 52 20 52 30 2c 74 6f 70 63 6f 6c 6f 75 72 |LDR R0,topcolour|
00002a10 0a 4d 4f 56 20 52 30 2c 52 30 0a 4d 4f 56 20 52 |.MOV R0,R0.MOV R|
00002a20 31 2c 52 30 0a 4d 4f 56 20 52 32 2c 52 30 0a 4d |1,R0.MOV R2,R0.M|
00002a30 4f 56 20 52 33 2c 52 30 0a 4d 4f 56 20 52 34 2c |OV R3,R0.MOV R4,|
00002a40 52 30 0a 4d 4f 56 20 52 35 2c 52 30 0a 4d 4f 56 |R0.MOV R5,R0.MOV|
00002a50 20 52 36 2c 52 30 0a 4d 4f 56 20 52 37 2c 52 30 | R6,R0.MOV R7,R0|
00002a60 0a 4d 4f 56 20 52 38 2c 52 30 0a 4d 4f 56 20 52 |.MOV R8,R0.MOV R|
00002a70 39 2c 52 30 0a 2e 66 61 73 74 0a 53 54 4d 49 41 |9,R0..fast.STMIA|
00002a80 20 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 | R11!,{R0-R9}.S|
00002a90 54 4d 49 41 20 20 52 31 31 21 2c 7b 52 30 2d 52 |TMIA R11!,{R0-R|
00002aa0 39 7d 0a 53 54 4d 49 41 20 20 52 31 31 21 2c 7b |9}.STMIA R11!,{|
00002ab0 52 30 2d 52 39 7d 0a 53 54 4d 49 41 20 20 52 31 |R0-R9}.STMIA R1|
00002ac0 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 41 |1!,{R0-R9}.STMIA|
00002ad0 20 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 | R11!,{R0-R9}.S|
00002ae0 54 4d 49 41 20 20 52 31 31 21 2c 7b 52 30 2d 52 |TMIA R11!,{R0-R|
00002af0 39 7d 0a 53 54 4d 49 41 20 20 52 31 31 21 2c 7b |9}.STMIA R11!,{|
00002b00 52 30 2d 52 39 7d 0a 53 54 4d 49 41 20 20 52 31 |R0-R9}.STMIA R1|
00002b10 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 41 |1!,{R0-R9}.STMIA|
00002b20 20 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 | R11!,{R0-R9}.S|
00002b30 54 4d 49 41 20 20 52 31 31 21 2c 7b 52 30 2d 52 |TMIA R11!,{R0-R|
00002b40 39 7d 0a 53 54 4d 49 41 20 20 52 31 31 21 2c 7b |9}.STMIA R11!,{|
00002b50 52 30 2d 52 39 7d 0a 53 54 4d 49 41 20 20 52 31 |R0-R9}.STMIA R1|
00002b60 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 41 |1!,{R0-R9}.STMIA|
00002b70 20 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 | R11!,{R0-R9}.S|
00002b80 54 4d 49 41 20 20 52 31 31 21 2c 7b 52 30 2d 52 |TMIA R11!,{R0-R|
00002b90 39 7d 0a 53 54 4d 49 41 20 20 52 31 31 21 2c 7b |9}.STMIA R11!,{|
00002ba0 52 30 2d 52 39 7d 0a 53 54 4d 49 41 20 20 52 31 |R0-R9}.STMIA R1|
00002bb0 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 41 |1!,{R0-R9}.STMIA|
00002bc0 20 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 | R11!,{R0-R9}.S|
00002bd0 54 4d 49 41 20 20 52 31 31 21 2c 7b 52 30 2d 52 |TMIA R11!,{R0-R|
00002be0 39 7d 0a 53 54 4d 49 41 20 20 52 31 31 21 2c 7b |9}.STMIA R11!,{|
00002bf0 52 30 2d 52 39 7d 0a 53 54 4d 49 41 20 20 52 31 |R0-R9}.STMIA R1|
00002c00 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 41 |1!,{R0-R9}.STMIA|
00002c10 20 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 | R11!,{R0-R9}.S|
00002c20 54 4d 49 41 20 20 52 31 31 21 2c 7b 52 30 2d 52 |TMIA R11!,{R0-R|
00002c30 39 7d 0a 53 54 4d 49 41 20 20 52 31 31 21 2c 7b |9}.STMIA R11!,{|
00002c40 52 30 2d 52 39 7d 0a 53 54 4d 49 41 20 20 52 31 |R0-R9}.STMIA R1|
00002c50 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 41 |1!,{R0-R9}.STMIA|
00002c60 20 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 | R11!,{R0-R9}.S|
00002c70 54 4d 49 41 20 20 52 31 31 21 2c 7b 52 30 2d 52 |TMIA R11!,{R0-R|
00002c80 39 7d 0a 53 54 4d 49 41 20 20 52 31 31 21 2c 7b |9}.STMIA R11!,{|
00002c90 52 30 2d 52 39 7d 0a 53 54 4d 49 41 20 20 52 31 |R0-R9}.STMIA R1|
00002ca0 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 41 |1!,{R0-R9}.STMIA|
00002cb0 20 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 | R11!,{R0-R9}.S|
00002cc0 54 4d 49 41 20 20 52 31 31 21 2c 7b 52 30 2d 52 |TMIA R11!,{R0-R|
00002cd0 39 7d 0a 53 54 4d 49 41 20 20 52 31 31 21 2c 7b |9}.STMIA R11!,{|
00002ce0 52 30 2d 52 39 7d 0a 53 54 4d 49 41 20 20 52 31 |R0-R9}.STMIA R1|
00002cf0 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 55 42 53 20 |1!,{R0-R9}.SUBS |
00002d00 20 20 52 31 30 2c 52 31 30 2c 23 31 0a 42 4e 45 | R10,R10,#1.BNE|
00002d10 20 20 20 20 66 61 73 74 0a 0a 0a 4d 4f 56 20 52 | fast...MOV R|
00002d20 31 30 2c 23 33 32 0a 4c 44 52 20 52 31 2c 62 6f |10,#32.LDR R1,bo|
00002d30 74 74 6f 6d 63 6f 6c 6f 75 72 0a 4d 4f 56 20 52 |ttomcolour.MOV R|
00002d40 30 2c 52 31 0a 4d 4f 56 20 52 32 2c 52 31 0a 4d |0,R1.MOV R2,R1.M|
00002d50 4f 56 20 52 33 2c 52 31 0a 4d 4f 56 20 52 34 2c |OV R3,R1.MOV R4,|
00002d60 52 31 0a 4d 4f 56 20 52 35 2c 52 31 0a 4d 4f 56 |R1.MOV R5,R1.MOV|
00002d70 20 52 36 2c 52 31 0a 4d 4f 56 20 52 37 2c 52 31 | R6,R1.MOV R7,R1|
00002d80 0a 4d 4f 56 20 52 38 2c 52 31 0a 4d 4f 56 20 52 |.MOV R8,R1.MOV R|
00002d90 39 2c 52 31 0a 2e 66 61 73 74 32 0a 53 54 4d 49 |9,R1..fast2.STMI|
00002da0 41 20 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0a |A R11!,{R0-R9}.|
00002db0 53 54 4d 49 41 20 20 52 31 31 21 2c 7b 52 30 2d |STMIA R11!,{R0-|
00002dc0 52 39 7d 0a 53 54 4d 49 41 20 20 52 31 31 21 2c |R9}.STMIA R11!,|
00002dd0 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 41 20 20 52 |{R0-R9}.STMIA R|
00002de0 31 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 |11!,{R0-R9}.STMI|
00002df0 41 20 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0a |A R11!,{R0-R9}.|
00002e00 53 54 4d 49 41 20 20 52 31 31 21 2c 7b 52 30 2d |STMIA R11!,{R0-|
00002e10 52 39 7d 0a 53 54 4d 49 41 20 20 52 31 31 21 2c |R9}.STMIA R11!,|
00002e20 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 41 20 20 52 |{R0-R9}.STMIA R|
00002e30 31 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 |11!,{R0-R9}.STMI|
00002e40 41 20 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0a |A R11!,{R0-R9}.|
00002e50 53 54 4d 49 41 20 20 52 31 31 21 2c 7b 52 30 2d |STMIA R11!,{R0-|
00002e60 52 39 7d 0a 53 54 4d 49 41 20 20 52 31 31 21 2c |R9}.STMIA R11!,|
00002e70 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 41 20 20 52 |{R0-R9}.STMIA R|
00002e80 31 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 |11!,{R0-R9}.STMI|
00002e90 41 20 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0a |A R11!,{R0-R9}.|
00002ea0 53 54 4d 49 41 20 20 52 31 31 21 2c 7b 52 30 2d |STMIA R11!,{R0-|
00002eb0 52 39 7d 0a 53 54 4d 49 41 20 20 52 31 31 21 2c |R9}.STMIA R11!,|
00002ec0 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 41 20 20 52 |{R0-R9}.STMIA R|
00002ed0 31 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 |11!,{R0-R9}.STMI|
00002ee0 41 20 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0a |A R11!,{R0-R9}.|
00002ef0 53 54 4d 49 41 20 20 52 31 31 21 2c 7b 52 30 2d |STMIA R11!,{R0-|
00002f00 52 39 7d 0a 53 54 4d 49 41 20 20 52 31 31 21 2c |R9}.STMIA R11!,|
00002f10 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 41 20 20 52 |{R0-R9}.STMIA R|
00002f20 31 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 |11!,{R0-R9}.STMI|
00002f30 41 20 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0a |A R11!,{R0-R9}.|
00002f40 53 54 4d 49 41 20 20 52 31 31 21 2c 7b 52 30 2d |STMIA R11!,{R0-|
00002f50 52 39 7d 0a 53 54 4d 49 41 20 20 52 31 31 21 2c |R9}.STMIA R11!,|
00002f60 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 41 20 20 52 |{R0-R9}.STMIA R|
00002f70 31 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 |11!,{R0-R9}.STMI|
00002f80 41 20 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0a |A R11!,{R0-R9}.|
00002f90 53 54 4d 49 41 20 20 52 31 31 21 2c 7b 52 30 2d |STMIA R11!,{R0-|
00002fa0 52 39 7d 0a 53 54 4d 49 41 20 20 52 31 31 21 2c |R9}.STMIA R11!,|
00002fb0 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 41 20 20 52 |{R0-R9}.STMIA R|
00002fc0 31 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 |11!,{R0-R9}.STMI|
00002fd0 41 20 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0a |A R11!,{R0-R9}.|
00002fe0 53 54 4d 49 41 20 20 52 31 31 21 2c 7b 52 30 2d |STMIA R11!,{R0-|
00002ff0 52 39 7d 0a 53 54 4d 49 41 20 20 52 31 31 21 2c |R9}.STMIA R11!,|
00003000 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 41 20 20 52 |{R0-R9}.STMIA R|
00003010 31 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 55 42 53 |11!,{R0-R9}.SUBS|
00003020 20 20 20 52 31 30 2c 52 31 30 2c 23 31 0a 42 4e | R10,R10,#1.BN|
00003030 45 20 20 20 20 66 61 73 74 32 0a 4c 44 4d 46 44 |E fast2.LDMFD|
00003040 20 52 31 33 21 2c 7b 52 31 2d 52 31 32 2c 52 31 | R13!,{R1-R12,R1|
00003050 35 7d 5e 0a 0a 0a 2e 74 6f 70 63 6f 6c 6f 75 72 |5}^....topcolour|
00003060 0a 45 51 55 44 20 30 0a 2e 62 6f 74 74 6f 6d 63 |.EQUD 0..bottomc|
00003070 6f 6c 6f 75 72 0a 45 51 55 44 20 30 0a 2e 73 63 |olour.EQUD 0..sc|
00003080 72 65 65 6e 79 6f 66 66 73 65 74 0a 45 51 55 44 |reenyoffset.EQUD|
00003090 20 30 0a 2e 73 63 72 65 65 6e 79 73 74 6f 70 0a | 0..screenystop.|
000030a0 45 51 55 44 20 30 0a 2e 73 63 72 65 65 6e 78 6f |EQUD 0..screenxo|
000030b0 66 66 73 65 74 0a 45 51 55 44 20 30 0a 2e 73 63 |ffset.EQUD 0..sc|
000030c0 72 65 65 6e 78 73 74 6f 70 0a 45 51 55 44 20 30 |reenxstop.EQUD 0|
000030d0 0a 0a 0a 0a 0a 45 58 50 4f 52 54 20 6f 75 72 6c |.....EXPORT ourl|
000030e0 69 62 5f 73 65 74 75 70 62 61 63 6b 67 72 6f 75 |ib_setupbackgrou|
000030f0 6e 64 0a 2e 6f 75 72 6c 69 62 5f 73 65 74 75 70 |nd..ourlib_setup|
00003100 5f 62 61 63 6b 67 72 6f 75 6e 64 0a 53 54 4d 46 |_background.STMF|
00003110 44 20 52 31 33 21 2c 7b 52 31 2d 52 36 2c 52 31 |D R13!,{R1-R6,R1|
00003120 34 7d 0a 2f 2a 4d 4f 56 20 52 31 30 2c 23 33 32 |4}./*MOV R10,#32|
00003130 30 0a 53 55 42 20 52 39 2c 52 31 30 2c 52 32 2c |0.SUB R9,R10,R2,|
00003140 4c 53 52 20 23 31 0a 53 54 52 20 52 39 2c 73 63 |LSR #1.STR R9,sc|
00003150 72 65 65 6e 78 6f 66 66 73 65 74 0a 53 55 42 20 |reenxoffset.SUB |
00003160 52 39 2c 52 31 30 2c 52 39 0a 53 54 52 20 52 39 |R9,R10,R9.STR R9|
00003170 2c 73 63 72 65 65 6e 78 73 74 6f 70 0a 4d 4f 56 |,screenxstop.MOV|
00003180 20 52 31 30 2c 23 31 32 38 0a 53 55 42 20 52 39 | R10,#128.SUB R9|
00003190 2c 52 31 30 2c 52 33 2c 4c 53 52 20 23 31 0a 53 |,R10,R3,LSR #1.S|
000031a0 54 52 20 52 39 2c 73 63 72 65 65 6e 79 6f 66 66 |TR R9,screenyoff|
000031b0 73 65 74 0a 4d 4f 56 20 52 31 30 2c 23 32 35 36 |set.MOV R10,#256|
000031c0 0a 53 55 42 20 52 39 2c 52 31 30 2c 52 39 0a 53 |.SUB R9,R10,R9.S|
000031d0 54 52 20 52 39 2c 73 63 72 65 65 6e 79 73 74 6f |TR R9,screenysto|
000031e0 70 2a 2f 0a 0a 4d 4f 56 20 52 33 2c 52 30 0a 4d |p*/..MOV R3,R0.M|
000031f0 4f 56 20 52 34 2c 52 31 0a 0a 4f 52 52 20 52 30 |OV R4,R1..ORR R0|
00003200 2c 52 30 2c 52 33 0a 4f 52 52 20 52 30 2c 52 30 |,R0,R3.ORR R0,R0|
00003210 2c 52 33 2c 4c 53 4c 20 23 38 0a 4f 52 52 20 52 |,R3,LSL #8.ORR R|
00003220 30 2c 52 30 2c 52 33 2c 4c 53 4c 20 23 31 36 0a |0,R0,R3,LSL #16.|
00003230 4f 52 52 20 52 30 2c 52 30 2c 52 33 2c 4c 53 4c |ORR R0,R0,R3,LSL|
00003240 20 23 32 34 0a 53 54 52 20 52 30 2c 74 6f 70 63 | #24.STR R0,topc|
00003250 6f 6c 6f 75 72 0a 0a 4d 4f 56 20 52 30 2c 23 30 |olour..MOV R0,#0|
00003260 0a 4f 52 52 20 52 30 2c 52 30 2c 52 34 0a 4f 52 |.ORR R0,R0,R4.OR|
00003270 52 20 52 30 2c 52 30 2c 52 34 2c 4c 53 4c 20 23 |R R0,R0,R4,LSL #|
00003280 38 0a 4f 52 52 20 52 30 2c 52 30 2c 52 34 2c 4c |8.ORR R0,R0,R4,L|
00003290 53 4c 20 23 31 36 0a 4f 52 52 20 52 30 2c 52 30 |SL #16.ORR R0,R0|
000032a0 2c 52 34 2c 4c 53 4c 20 23 32 34 0a 53 54 52 20 |,R4,LSL #24.STR |
000032b0 52 30 2c 62 6f 74 74 6f 6d 63 6f 6c 6f 75 72 0a |R0,bottomcolour.|
000032c0 4c 44 4d 46 44 20 52 31 33 21 2c 7b 52 31 2d 52 |LDMFD R13!,{R1-R|
000032d0 36 2c 52 31 35 7d 5e 0a 0a 45 58 50 4f 52 54 20 |6,R15}^..EXPORT |
000032e0 63 6f 6c 6f 75 72 5f 62 6f 78 0a 2e 63 6f 6c 6f |colour_box..colo|
000032f0 75 72 5f 62 6f 78 0a 0a 2f 2a 20 52 30 20 3d 20 |ur_box../* R0 = |
00003300 76 69 64 65 6f 5f 61 64 64 72 65 73 73 20 52 31 |video_address R1|
00003310 3d 20 73 74 61 72 74 78 20 52 32 20 3d 20 73 74 |= startx R2 = st|
00003320 61 72 74 79 20 52 33 20 3d 20 65 6e 64 78 20 52 |arty R3 = endx R|
00003330 34 20 3d 20 65 6e 64 79 20 52 35 20 3d 20 63 6f |4 = endy R5 = co|
00003340 6c 6f 75 72 2a 2f 0a 53 54 4d 46 44 20 52 31 33 |lour*/.STMFD R13|
00003350 21 2c 7b 52 31 2d 52 31 30 2c 52 31 34 7d 0a 4c |!,{R1-R10,R14}.L|
00003360 44 4d 49 41 20 52 30 2c 7b 52 30 2d 52 35 7d 0a |DMIA R0,{R0-R5}.|
00003370 0a 4d 4f 56 20 52 36 2c 52 32 0a 0a 2e 6c 6f 6f |.MOV R6,R2...loo|
00003380 70 5f 79 0a 4d 4f 56 20 52 37 2c 52 31 0a 2e 6c |p_y.MOV R7,R1..l|
00003390 6f 6f 70 5f 78 0a 41 44 44 20 52 38 2c 52 37 2c |oop_x.ADD R8,R7,|
000033a0 52 36 2c 4c 53 4c 20 23 38 0a 41 44 44 20 52 38 |R6,LSL #8.ADD R8|
000033b0 2c 52 38 2c 52 36 2c 4c 53 4c 20 23 36 0a 53 54 |,R8,R6,LSL #6.ST|
000033c0 52 42 20 52 35 2c 5b 52 30 2c 52 38 5d 0a 41 44 |RB R5,[R0,R8].AD|
000033d0 44 20 52 37 2c 52 37 2c 23 31 0a 43 4d 50 20 52 |D R7,R7,#1.CMP R|
000033e0 37 2c 52 33 0a 42 4c 54 20 6c 6f 6f 70 5f 78 0a |7,R3.BLT loop_x.|
000033f0 0a 41 44 44 20 52 36 2c 52 36 2c 23 31 0a 43 4d |.ADD R6,R6,#1.CM|
00003400 50 20 52 36 2c 52 34 0a 42 4c 54 20 6c 6f 6f 70 |P R6,R4.BLT loop|
00003410 5f 79 0a 0a 4c 44 4d 46 44 20 52 31 33 21 2c 7b |_y..LDMFD R13!,{|
00003420 52 31 2d 52 31 30 2c 50 43 7d 0a 0a 0a 0a 0a 0a |R1-R10,PC}......|
00003430 0a 45 58 50 4f 52 54 20 6f 75 72 6c 69 62 5f 72 |.EXPORT ourlib_r|
00003440 61 79 62 61 63 6b 0a 2e 6f 75 72 6c 69 62 5f 72 |ayback..ourlib_r|
00003450 61 79 62 61 63 6b 0a 53 54 4d 46 44 20 52 31 33 |ayback.STMFD R13|
00003460 21 2c 7b 52 31 2d 52 31 32 2c 52 31 34 7d 0a 0a |!,{R1-R12,R14}..|
00003470 4d 4f 56 20 52 31 32 2c 23 30 30 30 30 30 30 30 |MOV R12,#0000000|
00003480 30 30 30 30 30 30 30 0a 4d 4f 56 20 52 32 2c 23 |0000000.MOV R2,#|
00003490 32 30 34 38 30 0a 0a 2e 72 61 79 62 61 63 6b 6c |20480...raybackl|
000034a0 6f 6f 70 0a 53 54 52 20 52 31 32 2c 5b 52 30 2c |oop.STR R12,[R0,|
000034b0 23 34 5d 21 0a 53 55 42 53 20 52 32 2c 52 32 20 |#4]!.SUBS R2,R2 |
000034c0 2c 23 31 0a 42 4e 45 20 72 61 79 62 61 63 6b 6c |,#1.BNE raybackl|
000034d0 6f 6f 70 0a 0a 0a 4c 44 4d 46 44 20 52 31 33 21 |oop...LDMFD R13!|
000034e0 2c 7b 52 31 2d 52 31 32 2c 52 31 35 7d 5e 0a 0a |,{R1-R12,R15}^..|
000034f0 45 58 50 4f 52 54 20 6f 75 72 6c 69 62 5f 77 61 |EXPORT ourlib_wa|
00003500 69 74 76 73 79 6e 63 0a 2e 6f 75 72 6c 69 62 5f |itvsync..ourlib_|
00003510 77 61 69 74 76 73 79 6e 63 0a 53 54 4d 46 44 20 |waitvsync.STMFD |
00003520 52 31 33 21 2c 7b 52 31 2d 52 32 2c 52 31 34 7d |R13!,{R1-R2,R14}|
00003530 0a 4d 4f 56 20 52 30 2c 23 31 39 0a 53 57 49 20 |.MOV R0,#19.SWI |
00003540 4f 53 5f 42 79 74 65 0a 4c 44 4d 46 44 20 52 31 |OS_Byte.LDMFD R1|
00003550 33 21 2c 7b 52 31 2d 52 32 2c 52 31 35 7d 5e 0a |3!,{R1-R2,R15}^.|
00003560 0a 45 58 50 4f 52 54 20 6f 75 72 6c 69 62 5f 73 |.EXPORT ourlib_s|
00003570 63 72 65 65 6e 5f 72 6f 74 61 74 65 0a 2e 6f 75 |creen_rotate..ou|
00003580 72 6c 69 62 5f 73 63 72 65 65 6e 5f 72 6f 74 61 |rlib_screen_rota|
00003590 74 65 0a 53 54 4d 46 44 20 52 31 33 21 2c 7b 52 |te.STMFD R13!,{R|
000035a0 31 2d 52 34 2c 52 31 34 7d 0a 4c 44 52 20 52 31 |1-R4,R14}.LDR R1|
000035b0 2c 73 63 72 65 65 6e 73 69 7a 65 0a 4c 44 52 20 |,screensize.LDR |
000035c0 52 31 2c 73 63 72 65 65 6e 73 69 7a 65 0a 2e 72 |R1,screensize..r|
000035d0 6f 74 61 74 65 6c 6f 6f 70 0a 4c 44 52 42 20 52 |otateloop.LDRB R|
000035e0 33 2c 5b 52 30 5d 0a 4d 4f 56 20 52 33 2c 52 33 |3,[R0].MOV R3,R3|
000035f0 2c 52 4f 52 20 23 32 34 0a 53 54 52 42 20 52 33 |,ROR #24.STRB R3|
00003600 2c 5b 52 30 5d 2c 23 31 0a 53 55 42 53 20 52 31 |,[R0],#1.SUBS R1|
00003610 2c 52 31 2c 23 31 0a 42 4e 45 20 72 6f 74 61 74 |,R1,#1.BNE rotat|
00003620 65 6c 6f 6f 70 0a 4c 44 4d 46 44 20 52 31 33 21 |eloop.LDMFD R13!|
00003630 2c 7b 52 31 2d 52 34 2c 50 43 7d 0a 2e 73 63 72 |,{R1-R4,PC}..scr|
00003640 65 65 6e 73 69 7a 65 0a 45 51 55 44 20 38 31 39 |eensize.EQUD 819|
00003650 32 30 0a 0a 0a 0a 0a 45 58 50 4f 52 54 20 6f 75 |20.....EXPORT ou|
00003660 72 6c 69 62 5f 66 61 64 65 5f 6f 75 74 0a 2e 6f |rlib_fade_out..o|
00003670 75 72 6c 69 62 5f 66 61 64 65 5f 6f 75 74 0a 53 |urlib_fade_out.S|
00003680 54 4d 46 44 20 52 31 33 21 2c 7b 52 31 2d 52 37 |TMFD R13!,{R1-R7|
00003690 2c 52 31 34 7d 0a 2f 2a 20 52 30 20 3d 20 76 69 |,R14}./* R0 = vi|
000036a0 64 65 6f 61 64 64 72 65 73 73 20 52 31 20 3d 20 |deoaddress R1 = |
000036b0 73 63 72 65 65 6e 73 69 7a 65 20 2a 2f 0a 0a 41 |screensize */..A|
000036c0 44 44 20 52 30 2c 52 30 2c 52 31 20 20 20 20 20 |DD R0,R0,R1 |
000036d0 20 20 20 20 3b 20 50 6f 69 6e 74 20 52 30 20 74 | ; Point R0 t|
000036e0 6f 20 62 6f 74 74 6f 6d 20 6f 66 20 73 63 72 65 |o bottom of scre|
000036f0 65 6e 0a 4d 4f 56 20 52 35 2c 23 38 20 20 20 20 |en.MOV R5,#8 |
00003700 20 20 20 20 20 20 20 20 3b 20 4c 6f 6f 70 20 77 | ; Loop w|
00003710 69 6c 6c 20 65 78 65 63 75 74 65 20 20 23 34 20 |ill execute #4 |
00003720 63 79 63 6c 65 73 0a 2e 6f 75 74 65 72 5f 6c 6f |cycles..outer_lo|
00003730 6f 70 20 20 20 20 20 20 20 20 20 20 3b 20 4f 75 |op ; Ou|
00003740 74 65 72 20 6c 6f 6f 70 20 62 65 67 69 6e 73 0a |ter loop begins.|
00003750 4d 4f 56 20 52 34 2c 52 31 20 20 20 20 20 20 20 |MOV R4,R1 |
00003760 20 20 20 20 20 3b 20 4d 6f 76 65 20 73 63 72 65 | ; Move scre|
00003770 65 6e 73 69 7a 65 20 69 6e 74 6f 20 74 65 6d 70 |ensize into temp|
00003780 20 52 34 0a 2e 66 61 64 65 72 5f 6c 6f 6f 70 20 | R4..fader_loop |
00003790 20 20 20 20 20 20 20 20 20 3b 20 49 6e 6e 65 72 | ; Inner|
000037a0 20 6c 6f 6f 70 20 62 65 67 69 6e 73 0a 53 55 42 | loop begins.SUB|
000037b0 20 52 32 2c 52 30 2c 52 34 20 20 20 20 20 20 20 | R2,R0,R4 |
000037c0 20 20 3b 20 53 75 62 74 72 61 63 74 20 52 34 20 | ; Subtract R4 |
000037d0 66 72 6f 6d 20 73 63 72 65 65 6e 20 70 6f 69 6e |from screen poin|
000037e0 74 65 72 0a 4c 44 52 42 20 52 33 2c 5b 52 32 5d |ter.LDRB R3,[R2]|
000037f0 20 20 20 20 20 20 20 20 20 3b 20 4c 6f 61 64 20 | ; Load |
00003800 74 68 65 20 76 61 6c 75 65 20 70 6f 69 6e 74 65 |the value pointe|
00003810 64 20 74 6f 0a 4d 4f 56 20 52 33 2c 52 33 2c 4c |d to.MOV R3,R3,L|
00003820 53 52 20 23 31 20 20 20 20 20 3b 20 53 68 69 66 |SR #1 ; Shif|
00003830 74 20 28 66 61 64 65 29 20 69 74 0a 53 54 52 42 |t (fade) it.STRB|
00003840 20 52 33 2c 5b 52 32 5d 20 20 20 20 20 20 20 20 | R3,[R2] |
00003850 20 3b 20 41 6e 64 20 73 74 6f 72 65 20 69 74 20 | ; And store it |
00003860 62 61 63 6b 20 77 68 65 72 65 20 69 74 20 77 61 |back where it wa|
00003870 73 0a 53 55 42 53 20 52 34 2c 52 34 2c 23 31 20 |s.SUBS R4,R4,#1 |
00003880 20 20 20 20 20 20 20 3b 20 4d 6f 76 65 20 70 6f | ; Move po|
00003890 69 6e 74 65 72 20 74 6f 20 6e 65 78 74 20 70 69 |inter to next pi|
000038a0 78 65 6c 0a 42 4e 45 20 66 61 64 65 72 5f 6c 6f |xel.BNE fader_lo|
000038b0 6f 70 20 20 20 20 20 20 20 3b 20 4c 6f 6f 70 20 |op ; Loop |
000038c0 69 66 20 6e 6f 74 20 64 6f 6e 65 20 79 65 74 0a |if not done yet.|
000038d0 53 55 42 53 20 52 35 2c 52 35 2c 23 31 20 20 20 |SUBS R5,R5,#1 |
000038e0 20 20 20 20 20 3b 20 44 65 63 72 65 6d 65 6e 74 | ; Decrement|
000038f0 20 6f 75 74 65 72 20 6c 6f 6f 70 20 63 6f 75 6e | outer loop coun|
00003900 74 65 72 0a 42 4e 45 20 6f 75 74 65 72 5f 6c 6f |ter.BNE outer_lo|
00003910 6f 70 20 20 20 20 20 20 20 3b 20 4c 6f 6f 70 20 |op ; Loop |
00003920 61 67 61 69 6e 20 69 66 20 69 6e 63 6f 6d 70 6c |again if incompl|
00003930 65 74 65 0a 4c 44 4d 46 44 20 52 31 33 21 2c 7b |ete.LDMFD R13!,{|
00003940 52 31 2d 52 37 2c 50 43 7d 5e 0a 0a 45 58 50 4f |R1-R7,PC}^..EXPO|
00003950 52 54 20 6f 75 72 6c 69 62 5f 63 6f 6c 6f 75 72 |RT ourlib_colour|
00003960 73 63 72 65 65 6e 31 33 0a 2e 6f 75 72 6c 69 62 |screen13..ourlib|
00003970 5f 63 6f 6c 6f 75 72 73 63 72 65 65 6e 31 33 0a |_colourscreen13.|
00003980 0a 53 54 4d 46 44 20 52 31 33 21 2c 7b 52 31 2d |.STMFD R13!,{R1-|
00003990 52 31 32 2c 52 31 34 7d 0a 2f 2a 20 52 30 20 3d |R12,R14}./* R0 =|
000039a0 20 76 69 64 65 6f 5f 61 64 64 72 65 73 73 20 52 | video_address R|
000039b0 31 20 3d 20 70 69 78 65 6c 73 20 52 32 20 3d 20 |1 = pixels R2 = |
000039c0 63 6f 6c 6f 75 72 20 2a 2f 0a 0a 2e 6c 6f 6f 70 |colour */...loop|
000039d0 5f 70 69 78 65 6c 0a 53 54 52 42 20 52 32 2c 5b |_pixel.STRB R2,[|
000039e0 52 30 2c 52 31 5d 0a 53 55 42 53 20 52 31 2c 52 |R0,R1].SUBS R1,R|
000039f0 31 2c 23 31 0a 42 4e 45 20 6c 6f 6f 70 5f 70 69 |1,#1.BNE loop_pi|
00003a00 78 65 6c 0a 4c 44 4d 46 44 20 52 31 33 21 2c 7b |xel.LDMFD R13!,{|
00003a10 52 31 2d 52 31 32 2c 52 31 35 7d 5e 0a 0a 0a 45 |R1-R12,R15}^...E|
00003a20 58 50 4f 52 54 20 6f 75 72 6c 69 62 5f 66 69 6e |XPORT ourlib_fin|
00003a30 64 73 63 72 65 65 6e 0a 2e 6f 75 72 6c 69 62 5f |dscreen..ourlib_|
00003a40 66 69 6e 64 73 63 72 65 65 6e 0a 53 54 4d 46 44 |findscreen.STMFD|
00003a50 20 52 31 33 21 2c 7b 52 31 2d 52 35 2c 52 31 34 | R13!,{R1-R5,R14|
00003a60 7d 0a 41 44 52 20 52 30 2c 53 63 72 65 65 6e 5f |}.ADR R0,Screen_|
00003a70 50 61 72 61 6d 73 0a 41 44 52 20 52 31 2c 53 63 |Params.ADR R1,Sc|
00003a80 72 65 65 6e 5f 41 64 64 72 65 73 73 0a 53 57 49 |reen_Address.SWI|
00003a90 20 22 4f 53 5f 52 65 61 64 56 64 75 56 61 72 69 | "OS_ReadVduVari|
00003aa0 61 62 6c 65 73 22 0a 4c 44 52 20 52 30 2c 53 63 |ables".LDR R0,Sc|
00003ab0 72 65 65 6e 5f 41 64 64 72 65 73 73 0a 4c 44 4d |reen_Address.LDM|
00003ac0 46 44 20 52 31 33 21 2c 7b 52 31 2d 52 35 2c 52 |FD R13!,{R1-R5,R|
00003ad0 31 35 7d 5e 0a 2e 53 63 72 65 65 6e 5f 41 64 64 |15}^..Screen_Add|
00003ae0 72 65 73 73 0a 45 51 55 44 20 30 3b 0a 2e 53 63 |ress.EQUD 0;..Sc|
00003af0 72 65 65 6e 5f 50 61 72 61 6d 73 0a 45 51 55 44 |reen_Params.EQUD|
00003b00 20 31 34 38 3b 0a 45 51 55 44 20 2d 31 3b 0a 0a | 148;.EQUD -1;..|
00003b10 0a 23 70 72 61 67 6d 61 20 65 6e 64 61 73 6d 0a |.#pragma endasm.|
00003b20 0a 0a 76 6f 69 64 20 6f 75 72 6c 69 62 5f 77 72 |..void ourlib_wr|
00003b30 69 74 65 28 63 68 61 72 20 73 74 72 69 6e 67 5b |ite(char string[|
00003b40 5d 29 3b 0a 76 6f 69 64 20 6f 75 72 6c 69 62 5f |]);.void ourlib_|
00003b50 62 69 74 6d 61 70 5f 70 6c 6f 74 28 69 6e 74 20 |bitmap_plot(int |
00003b60 73 74 61 72 74 5f 78 2c 69 6e 74 20 73 74 61 72 |start_x,int star|
00003b70 74 5f 79 2c 69 6e 74 20 65 6e 64 5f 78 2c 69 6e |t_y,int end_x,in|
00003b80 74 20 65 6e 64 5f 79 2c 63 68 61 72 20 2a 6d 65 |t end_y,char *me|
00003b90 6d 6f 72 79 2c 63 68 61 72 20 2a 76 69 64 65 6f |mory,char *video|
00003ba0 29 3b 0a 76 6f 69 64 20 6f 75 72 6c 69 62 5f 62 |);.void ourlib_b|
00003bb0 69 74 6d 61 70 5f 67 72 61 62 28 69 6e 74 20 73 |itmap_grab(int s|
00003bc0 74 61 72 74 5f 78 2c 69 6e 74 20 73 74 61 72 74 |tart_x,int start|
00003bd0 5f 79 2c 69 6e 74 20 65 6e 64 5f 78 2c 69 6e 74 |_y,int end_x,int|
00003be0 20 65 6e 64 5f 79 2c 63 68 61 72 20 2a 6d 65 6d | end_y,char *mem|
00003bf0 6f 72 79 2c 63 68 61 72 20 2a 76 69 64 65 6f 29 |ory,char *video)|
00003c00 3b 0a 0a 0a 76 6f 69 64 20 6f 75 72 6c 69 62 5f |;...void ourlib_|
00003c10 62 69 74 6d 61 70 5f 67 72 61 62 28 69 6e 74 20 |bitmap_grab(int |
00003c20 73 74 61 72 74 5f 78 2c 69 6e 74 20 73 74 61 72 |start_x,int star|
00003c30 74 5f 79 2c 69 6e 74 20 65 6e 64 5f 78 2c 69 6e |t_y,int end_x,in|
00003c40 74 20 65 6e 64 5f 79 2c 63 68 61 72 20 2a 6d 65 |t end_y,char *me|
00003c50 6d 6f 72 79 2c 63 68 61 72 20 2a 76 69 64 65 6f |mory,char *video|
00003c60 29 0a 7b 0a 20 20 69 6e 74 20 6f 66 66 73 65 74 |).{. int offset|
00003c70 5f 69 6e 5f 6d 65 6d 6f 72 79 3b 0a 20 20 69 6e |_in_memory;. in|
00003c80 74 20 6f 66 66 73 65 74 5f 69 6e 5f 73 63 72 65 |t offset_in_scre|
00003c90 65 6e 3b 0a 20 20 69 6e 74 20 70 69 78 65 6c 5f |en;. int pixel_|
00003ca0 78 2c 70 69 78 65 6c 5f 79 3b 0a 0a 20 20 66 6f |x,pixel_y;.. fo|
00003cb0 72 28 6f 66 66 73 65 74 5f 69 6e 5f 6d 65 6d 6f |r(offset_in_memo|
00003cc0 72 79 3d 30 2c 70 69 78 65 6c 5f 79 3d 73 74 61 |ry=0,pixel_y=sta|
00003cd0 72 74 5f 79 3b 70 69 78 65 6c 5f 79 3c 3d 65 6e |rt_y;pixel_y<=en|
00003ce0 64 5f 79 3b 70 69 78 65 6c 5f 79 2b 2b 29 0a 20 |d_y;pixel_y++). |
00003cf0 20 7b 0a 20 20 20 20 66 6f 72 28 70 69 78 65 6c | {. for(pixel|
00003d00 5f 78 3d 73 74 61 72 74 5f 78 3b 70 69 78 65 6c |_x=start_x;pixel|
00003d10 5f 78 3c 3d 65 6e 64 5f 78 3b 70 69 78 65 6c 5f |_x<=end_x;pixel_|
00003d20 78 2b 2b 2c 6f 66 66 73 65 74 5f 69 6e 5f 6d 65 |x++,offset_in_me|
00003d30 6d 6f 72 79 2b 2b 29 0a 20 20 20 20 7b 0a 20 20 |mory++). {. |
00003d40 20 20 20 20 6f 66 66 73 65 74 5f 69 6e 5f 73 63 | offset_in_sc|
00003d50 72 65 65 6e 3d 70 69 78 65 6c 5f 78 2b 28 70 69 |reen=pixel_x+(pi|
00003d60 78 65 6c 5f 79 3c 3c 36 29 2b 28 70 69 78 65 6c |xel_y<<6)+(pixel|
00003d70 5f 79 3c 3c 38 29 3b 0a 20 20 20 20 20 20 6d 65 |_y<<8);. me|
00003d80 6d 6f 72 79 5b 6f 66 66 73 65 74 5f 69 6e 5f 6d |mory[offset_in_m|
00003d90 65 6d 6f 72 79 5d 3d 2a 28 76 69 64 65 6f 2b 6f |emory]=*(video+o|
00003da0 66 66 73 65 74 5f 69 6e 5f 73 63 72 65 65 6e 29 |ffset_in_screen)|
00003db0 3b 0a 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 7d 0a |;.. }. }..}.|
00003dc0 76 6f 69 64 20 6f 75 72 6c 69 62 5f 62 69 74 6d |void ourlib_bitm|
00003dd0 61 70 5f 70 6c 6f 74 28 69 6e 74 20 73 74 61 72 |ap_plot(int star|
00003de0 74 5f 78 2c 69 6e 74 20 73 74 61 72 74 5f 79 2c |t_x,int start_y,|
00003df0 69 6e 74 20 65 6e 64 5f 78 2c 69 6e 74 20 65 6e |int end_x,int en|
00003e00 64 5f 79 2c 63 68 61 72 20 2a 6d 65 6d 6f 72 79 |d_y,char *memory|
00003e10 2c 63 68 61 72 20 2a 76 69 64 65 6f 29 0a 7b 0a |,char *video).{.|
00003e20 20 20 69 6e 74 20 6f 66 66 73 65 74 5f 69 6e 5f | int offset_in_|
00003e30 6d 65 6d 6f 72 79 3b 0a 20 20 69 6e 74 20 6f 66 |memory;. int of|
00003e40 66 73 65 74 5f 69 6e 5f 73 63 72 65 65 6e 3b 0a |fset_in_screen;.|
00003e50 20 20 69 6e 74 20 70 69 78 65 6c 5f 78 2c 70 69 | int pixel_x,pi|
00003e60 78 65 6c 5f 79 3b 0a 0a 20 20 66 6f 72 28 6f 66 |xel_y;.. for(of|
00003e70 66 73 65 74 5f 69 6e 5f 6d 65 6d 6f 72 79 3d 30 |fset_in_memory=0|
00003e80 2c 70 69 78 65 6c 5f 79 3d 73 74 61 72 74 5f 79 |,pixel_y=start_y|
00003e90 3b 70 69 78 65 6c 5f 79 3c 3d 65 6e 64 5f 79 3b |;pixel_y<=end_y;|
00003ea0 70 69 78 65 6c 5f 79 2b 2b 29 0a 20 20 7b 0a 20 |pixel_y++). {. |
00003eb0 20 20 20 66 6f 72 28 70 69 78 65 6c 5f 78 3d 73 | for(pixel_x=s|
00003ec0 74 61 72 74 5f 78 3b 70 69 78 65 6c 5f 78 3c 3d |tart_x;pixel_x<=|
00003ed0 65 6e 64 5f 78 3b 70 69 78 65 6c 5f 78 2b 2b 2c |end_x;pixel_x++,|
00003ee0 6f 66 66 73 65 74 5f 69 6e 5f 6d 65 6d 6f 72 79 |offset_in_memory|
00003ef0 2b 2b 29 0a 20 20 20 20 7b 0a 20 20 20 20 20 20 |++). {. |
00003f00 6f 66 66 73 65 74 5f 69 6e 5f 73 63 72 65 65 6e |offset_in_screen|
00003f10 3d 70 69 78 65 6c 5f 78 2b 28 70 69 78 65 6c 5f |=pixel_x+(pixel_|
00003f20 79 3c 3c 36 29 2b 28 70 69 78 65 6c 5f 79 3c 3c |y<<6)+(pixel_y<<|
00003f30 38 29 3b 0a 20 20 20 20 20 20 2a 28 76 69 64 65 |8);. *(vide|
00003f40 6f 2b 6f 66 66 73 65 74 5f 69 6e 5f 73 63 72 65 |o+offset_in_scre|
00003f50 65 6e 29 3d 6d 65 6d 6f 72 79 5b 6f 66 66 73 65 |en)=memory[offse|
00003f60 74 5f 69 6e 5f 6d 65 6d 6f 72 79 5d 3b 0a 20 20 |t_in_memory];. |
00003f70 20 20 7d 0a 20 20 7d 0a 7d 0a 76 6f 69 64 20 6f | }. }.}.void o|
00003f80 75 72 6c 69 62 5f 77 72 69 74 65 28 63 68 61 72 |urlib_write(char|
00003f90 20 73 74 72 69 6e 67 5b 5d 29 0a 7b 0a 20 70 72 | string[]).{. pr|
00003fa0 69 6e 74 66 28 22 25 73 5c 6e 22 2c 73 74 72 69 |intf("%s\n",stri|
00003fb0 6e 67 29 3b 0a 7d 0a 76 6f 69 64 20 6f 75 72 6c |ng);.}.void ourl|
00003fc0 69 62 5f 62 69 74 6d 61 70 5f 73 63 61 6c 65 28 |ib_bitmap_scale(|
00003fd0 63 68 61 72 20 2a 73 63 72 65 65 6e 2c 69 6e 74 |char *screen,int|
00003fe0 20 73 63 72 65 65 6e 78 2c 69 6e 74 20 73 63 72 | screenx,int scr|
00003ff0 65 65 6e 79 2c 69 6e 74 20 70 65 72 63 65 6e 74 |eeny,int percent|
00004000 2c 20 69 6e 74 20 77 69 64 74 68 2c 69 6e 74 20 |, int width,int |
00004010 68 65 69 67 68 74 2c 63 68 61 72 20 2a 62 69 74 |height,char *bit|
00004020 6d 61 70 29 0a 7b 0a 0a 0a 20 20 20 20 20 20 69 |map).{... i|
00004030 6e 74 20 79 65 72 72 6f 72 3d 30 3b 0a 0a 20 20 |nt yerror=0;.. |
00004040 20 20 20 20 2f 2a 69 6e 74 20 73 63 72 65 65 6e | /*int screen|
00004050 79 3d 28 32 30 30 2d 70 65 72 63 65 6e 74 29 2f |y=(200-percent)/|
00004060 32 3b 2a 2f 0a 69 6e 74 20 78 65 72 72 6f 72 2c |2;*/.int xerror,|
00004070 78 3b 0a 0a 0a 20 20 20 20 20 20 75 6e 73 69 67 |x;... unsig|
00004080 6e 65 64 20 69 6e 74 20 73 63 72 70 74 72 3d 73 |ned int scrptr=s|
00004090 63 72 65 65 6e 79 2a 33 32 30 2b 73 63 72 65 65 |creeny*320+scree|
000040a0 6e 78 3b 0a 20 20 20 20 20 20 75 6e 73 69 67 6e |nx;. unsign|
000040b0 65 64 20 69 6e 74 20 62 69 74 70 74 72 3d 30 3b |ed int bitptr=0;|
000040c0 0a 0a 20 20 20 20 20 20 69 6e 74 20 79 3b 0a 75 |.. int y;.u|
000040d0 6e 73 69 67 6e 65 64 20 69 6e 74 20 6f 6c 64 5f |nsigned int old_|
000040e0 73 63 72 70 74 72 3b 0a 75 6e 73 69 67 6e 65 64 |scrptr;.unsigned|
000040f0 20 69 6e 74 20 6f 6c 64 5f 62 69 74 70 74 72 3b | int old_bitptr;|
00004100 0a 20 20 20 20 20 20 66 6f 72 20 28 79 3d 30 3b |. for (y=0;|
00004110 20 79 3c 68 65 69 67 68 74 3b 20 79 2b 2b 29 20 | y<height; y++) |
00004120 7b 0a 0a 0a 0a 20 20 20 20 20 20 20 20 79 65 72 |{.... yer|
00004130 72 6f 72 2b 3d 70 65 72 63 65 6e 74 3b 0a 0a 0a |ror+=percent;...|
00004140 0a 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 28 |. while (|
00004150 79 65 72 72 6f 72 3e 31 30 30 29 20 7b 0a 0a 0a |yerror>100) {...|
00004160 0a 20 20 20 20 20 20 20 20 20 20 79 65 72 72 6f |. yerro|
00004170 72 2d 3d 31 30 30 3b 0a 0a 0a 20 20 20 20 20 20 |r-=100;... |
00004180 20 20 6f 6c 64 5f 73 63 72 70 74 72 3d 73 63 72 | old_scrptr=scr|
00004190 70 74 72 3b 0a 0a 0a 0a 20 20 20 20 20 20 20 20 |ptr;.... |
000041a0 20 6f 6c 64 5f 62 69 74 70 74 72 3d 62 69 74 70 | old_bitptr=bitp|
000041b0 74 72 3b 0a 0a 0a 0a 20 20 20 20 20 20 20 20 20 |tr;.... |
000041c0 20 20 78 65 72 72 6f 72 3d 30 3b 0a 0a 0a 0a 20 | xerror=0;.... |
000041d0 20 20 20 20 20 20 20 20 20 66 6f 72 20 28 20 78 | for ( x|
000041e0 3d 30 3b 20 78 3c 77 69 64 74 68 3b 20 78 2b 2b |=0; x<width; x++|
000041f0 29 20 7b 0a 0a 0a 20 20 20 20 20 20 20 20 20 20 |) {... |
00004200 20 20 78 65 72 72 6f 72 2b 3d 70 65 72 63 65 6e | xerror+=percen|
00004210 74 3b 0a 0a 0a 20 20 20 20 20 20 20 20 20 20 20 |t;... |
00004220 20 77 68 69 6c 65 20 28 78 65 72 72 6f 72 3e 31 | while (xerror>1|
00004230 30 30 29 20 7b 0a 0a 0a 0a 20 20 20 20 20 20 20 |00) {.... |
00004240 20 20 20 20 20 20 20 78 65 72 72 6f 72 2d 3d 31 | xerror-=1|
00004250 30 30 3b 0a 0a 0a 0a 20 20 20 20 20 20 20 20 20 |00;.... |
00004260 20 20 20 20 20 73 63 72 65 65 6e 5b 73 63 72 70 | screen[scrp|
00004270 74 72 5d 3d 62 69 74 6d 61 70 5b 62 69 74 70 74 |tr]=bitmap[bitpt|
00004280 72 5d 3b 0a 0a 0a 20 20 20 20 20 20 20 20 20 20 |r];... |
00004290 20 20 20 20 73 63 72 70 74 72 2b 2b 3b 0a 20 20 | scrptr++;. |
000042a0 20 20 20 20 20 20 20 20 20 20 7d 0a 0a 0a 20 20 | }... |
000042b0 20 20 20 20 20 20 20 20 20 20 62 69 74 70 74 72 | bitptr|
000042c0 2b 2b 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a |++;. }.|
000042d0 0a 0a 0a 20 20 20 20 20 20 20 20 20 20 73 63 72 |... scr|
000042e0 70 74 72 3d 6f 6c 64 5f 73 63 72 70 74 72 2b 33 |ptr=old_scrptr+3|
000042f0 32 30 3b 0a 0a 0a 0a 20 20 20 20 20 20 20 20 20 |20;.... |
00004300 20 62 69 74 70 74 72 3d 6f 6c 64 5f 62 69 74 70 | bitptr=old_bitp|
00004310 74 72 3b 0a 20 20 20 20 20 20 20 20 7d 0a 0a 0a |tr;. }...|
00004320 0a 20 20 20 20 20 20 20 20 62 69 74 70 74 72 2b |. bitptr+|
00004330 3d 77 69 64 74 68 3b 0a 20 20 20 20 20 20 7d 0a |=width;. }.|
00004340 0a 0a 0a 20 20 20 20 7d 0a 0a 76 6f 69 64 20 6f |... }..void o|
00004350 75 72 6c 69 62 5f 73 63 72 65 65 6e 5f 64 69 73 |urlib_screen_dis|
00004360 73 6f 6c 76 65 28 63 68 61 72 20 2a 73 63 72 65 |solve(char *scre|
00004370 65 6e 5f 61 64 64 72 65 73 73 2c 69 6e 74 20 73 |en_address,int s|
00004380 63 72 65 65 6e 5f 73 69 7a 65 29 0a 7b 0a 20 20 |creen_size).{. |
00004390 69 6e 74 20 6e 75 6d 62 65 72 2c 0a 20 20 63 6f |int number,. co|
000043a0 75 6e 74 65 72 3b 0a 20 20 66 6c 6f 61 74 20 74 |unter;. float t|
000043b0 65 6d 70 3b 0a 0a 0a 20 20 66 6f 72 28 63 6f 75 |emp;... for(cou|
000043c0 6e 74 65 72 3d 34 30 30 30 30 30 3b 63 6f 75 6e |nter=400000;coun|
000043d0 74 65 72 3e 30 3b 63 6f 75 6e 74 65 72 2d 2d 29 |ter>0;counter--)|
000043e0 0a 20 20 7b 0a 20 20 20 6e 75 6d 62 65 72 3d 72 |. {. number=r|
000043f0 61 6e 64 28 29 3b 0a 0a 20 20 20 74 65 6d 70 3d |and();.. temp=|
00004400 28 66 6c 6f 61 74 29 6e 75 6d 62 65 72 2f 52 41 |(float)number/RA|
00004410 4e 44 5f 4d 41 58 3b 0a 20 6e 75 6d 62 65 72 3d |ND_MAX;. number=|
00004420 28 66 6c 6f 61 74 29 74 65 6d 70 2a 73 63 72 65 |(float)temp*scre|
00004430 65 6e 5f 73 69 7a 65 3b 3b 0a 69 66 28 6e 75 6d |en_size;;.if(num|
00004440 62 65 72 3e 73 63 72 65 65 6e 5f 73 69 7a 65 29 |ber>screen_size)|
00004450 6e 75 6d 62 65 72 3d 73 63 72 65 65 6e 5f 73 69 |number=screen_si|
00004460 7a 65 3b 0a 0a 20 2a 28 73 63 72 65 65 6e 5f 61 |ze;.. *(screen_a|
00004470 64 64 72 65 73 73 2b 6e 75 6d 62 65 72 29 3d 30 |ddress+number)=0|
00004480 3b 0a 0a 20 20 7d 0a 0a 0a 0a 7d 0a 76 6f 69 64 |;.. }....}.void|
00004490 20 6f 75 72 6c 69 62 5f 73 63 72 65 65 6e 5f 73 | ourlib_screen_s|
000044a0 68 69 66 74 28 63 68 61 72 20 2a 73 63 72 65 65 |hift(char *scree|
000044b0 6e 5f 61 64 64 72 65 73 73 2c 69 6e 74 20 73 63 |n_address,int sc|
000044c0 72 65 65 6e 5f 73 69 7a 65 29 0a 7b 0a 20 69 6e |reen_size).{. in|
000044d0 74 20 63 6f 75 6e 74 65 72 3b 0a 0a 0a 20 20 66 |t counter;... f|
000044e0 6f 72 28 63 6f 75 6e 74 65 72 3d 73 63 72 65 65 |or(counter=scree|
000044f0 6e 5f 73 69 7a 65 3b 63 6f 75 6e 74 65 72 3e 30 |n_size;counter>0|
00004500 3b 63 6f 75 6e 74 65 72 2d 2d 29 0a 20 20 7b 0a |;counter--). {.|
00004510 20 2a 28 73 63 72 65 65 6e 5f 61 64 64 72 65 73 | *(screen_addres|
00004520 73 2b 63 6f 75 6e 74 65 72 29 3e 3e 3d 31 3b 0a |s+counter)>>=1;.|
00004530 0a 20 20 7d 0a 0a 0a 0a 7d 0a 0a 76 6f 69 64 20 |. }....}..void |
00004540 6f 75 72 6c 69 62 5f 73 63 72 65 65 6e 5f 73 77 |ourlib_screen_sw|
00004550 69 74 63 68 28 63 68 61 72 20 2a 73 63 72 65 65 |itch(char *scree|
00004560 6e 5f 61 64 64 72 65 73 73 2c 63 68 61 72 20 2a |n_address,char *|
00004570 6d 65 6d 6f 72 79 2c 69 6e 74 20 73 63 72 65 65 |memory,int scree|
00004580 6e 5f 73 69 7a 65 29 0a 7b 0a 20 20 69 6e 74 20 |n_size).{. int |
00004590 6e 75 6d 62 65 72 2c 0a 20 20 63 6f 75 6e 74 65 |number,. counte|
000045a0 72 3b 0a 20 20 66 6c 6f 61 74 20 74 65 6d 70 3b |r;. float temp;|
000045b0 0a 0a 0a 20 20 66 6f 72 28 63 6f 75 6e 74 65 72 |... for(counter|
000045c0 3d 34 30 30 30 30 30 3b 63 6f 75 6e 74 65 72 3e |=400000;counter>|
000045d0 30 3b 63 6f 75 6e 74 65 72 2d 2d 29 0a 20 20 7b |0;counter--). {|
000045e0 0a 20 20 20 6e 75 6d 62 65 72 3d 72 61 6e 64 28 |. number=rand(|
000045f0 29 3b 0a 0a 20 20 20 74 65 6d 70 3d 28 66 6c 6f |);.. temp=(flo|
00004600 61 74 29 6e 75 6d 62 65 72 2f 52 41 4e 44 5f 4d |at)number/RAND_M|
00004610 41 58 3b 0a 20 6e 75 6d 62 65 72 3d 28 66 6c 6f |AX;. number=(flo|
00004620 61 74 29 74 65 6d 70 2a 73 63 72 65 65 6e 5f 73 |at)temp*screen_s|
00004630 69 7a 65 3b 3b 0a 69 66 28 6e 75 6d 62 65 72 3e |ize;;.if(number>|
00004640 73 63 72 65 65 6e 5f 73 69 7a 65 29 6e 75 6d 62 |screen_size)numb|
00004650 65 72 3d 73 63 72 65 65 6e 5f 73 69 7a 65 3b 0a |er=screen_size;.|
00004660 0a 20 2a 28 73 63 72 65 65 6e 5f 61 64 64 72 65 |. *(screen_addre|
00004670 73 73 2b 6e 75 6d 62 65 72 29 3d 2a 28 6d 65 6d |ss+number)=*(mem|
00004680 6f 72 79 2b 6e 75 6d 62 65 72 29 3b 0a 0a 20 20 |ory+number);.. |
00004690 7d 0a 0a 7d 0a |}..}.|
00004695 
.