Home » Archimedes archive » Acorn User » AU 1997-10 B.adf » 3D » !AU_Attack/source/h/our_lib
!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-10 B.adf » 3D |
| Filename: | !AU_Attack/source/h/our_lib |
| Read OK: | ✔ |
| File size: | 5280 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,#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
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_sliver_mask_mirror
.ourlib_sliver_mask_mirror
STMFD R13!,{R1-R10,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,#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
MOV R8,#64 ; start loop counter
MOV R7,R8
CMP R3,#64
BLLE loopy64loozm
CMP R3,#127
BLLE loopy127loozm
CMP R3,#191
BLLE loopy191loozm
BL loopy192loozm
.loopy64loozm
.doddle64zm
CMP R7,#64
BLLT done64loozm
LDRBS R9,[R1] ; if so load in pixel value
SUB R7,R7,#64
CMP R9,#0
/*BEQ skip1m*/
LDRNEB R10,[R0]
CMPNE R10,#255
STRNEB R9,[R0]
.skip1m
ADD R0,R0,#320
.done64loozm
ADD R1,R1,#64
ADD R7,R7,R3 ; add scale onto vert. error term
SUBS R8,R8,#1
BLNE loopy64loozm ; loop if so
LDMFD R13!,{R1-R10,R15}^
.loopy127loozm
.doddle127zm
CMP R7,#64
LDRB R9,[R1] ; if so load in pixel value
SUB R7,R7,#64
CMP R9,#0
/*BEQ skip2*/
LDRNEB R10,[R0]
CMPNE R10,#255
STRNEB R9,[R0]
.skip2m
ADD R0,R0,#320
CMP R7,#64
BLLT done127loozm
LDRB R9,[R1] ; if so load in pixel value
SUB R7,R7,#64
CMP R9,#0
/*BEQ skip3*/
LDRNEB R10,[R0]
CMPNE R10,#255
STRNEB R9,[R0]
.skip3m
ADD R0,R0,#320
.done127loozm
ADD R1,R1,#64
ADD R7,R7,R3 ; add scale onto vert. error term
SUBS R8,R8,#1
BLNE loopy127loozm ; loop if so
LDMFD R13!,{R1-R10,R15}^
.loopy191loozm
.doddle191zm
CMP R7,#64
LDRB R9,[R1] ; if so load in pixel value
SUB R7,R7,#64
CMP R9,#0
/*BEQ skip4*/
LDRNEB R10,[R0]
CMPNE R10,#255
STRNEB R9,[R0]
.skip4m
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*/
LDRNEB R10,[R0]
CMPNE R10,#255
STRNEB R9,[R0]
.skip5m
ADD R0,R0,#320
CMP R7,#64
BLT done191loozm
LDRB R9,[R1] ; if so load in pixel value
SUB R7,R7,#64
CMP R9,#0
/*BEQ skip6m*/
LDRNEB R10,[R0]
CMPNE R10,#255
STRNEB R9,[R0]
.skip6m
ADD R0,R0,#320
.done191loozm
ADD R1,R1,#64
ADD R7,R7,R3 ; add scale onto vert. error term
SUBS R8,R8,#1
BLNE loopy191loozm ; loop if so
LDMFD R13!,{R1-R10,R15}^
.loopy192loozm
.doddle192zm
CMP R7,#64
LDRB R9,[R1] ; if so load in pixel value
SUB R7,R7,#64
CMP R9,#0
/*BEQ skip7*/
LDRNEB R10,[R0]
CMPNE R10,#255
STRNEB R9,[R0]
.skip7m
ADD R0,R0,#320
CMP R7,#64
LDRB R9,[R1] ; if so load in pixel value
SUB R7,R7,#64
CMP R9,#0
BEQ skip8m
STRB R9,[R0]
.skip8m
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*/
LDRNEB R10,[R0]
CMPNE R10,#255
STRNEB R9,[R0]
.skip9m
ADD R0,R0,#320
CMP R7,#64
BLLT done192loozm
LDRB R9,[R1] ; if so load in pixel value
SUB R7,R7,#64
CMP R9,#0
/*BEQ skip10*/
LDRNEB R10,[R0]
CMPNE R10,#255
STRNEB R9,[R0]
.skip10m
ADD R0,R0,#320
.done192loozm
ADD R1,R1,#64
ADD R7,R7,R3 ; add scale onto vert. error term
SUBS R8,R8,#1
BLNE loopy192loozm ; loop if so
.endoffunctionzm
LDMFD R13!,{R1-R10,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,#200
MOVGE R3,#200
ADD R1,R1,R6,LSL #2
ADD R1,R1,R2
MOV R8,#100
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,#100
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,#100
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,#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
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,#100
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 30 30 0a 53 55 42 |.MOV R8,#100.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 0a 45 |{R1-R9,R15}^...E|
00000d80 58 50 4f 52 54 20 6f 75 72 6c 69 62 5f 73 6c 69 |XPORT ourlib_sli|
00000d90 76 65 72 5f 6d 61 73 6b 5f 6d 69 72 72 6f 72 0a |ver_mask_mirror.|
00000da0 2e 6f 75 72 6c 69 62 5f 73 6c 69 76 65 72 5f 6d |.ourlib_sliver_m|
00000db0 61 73 6b 5f 6d 69 72 72 6f 72 0a 53 54 4d 46 44 |ask_mirror.STMFD|
00000dc0 20 52 31 33 21 2c 7b 52 31 2d 52 31 30 2c 52 31 | R13!,{R1-R10,R1|
00000dd0 34 7d 0a 4c 44 4d 49 41 20 52 30 2c 7b 52 30 2d |4}.LDMIA R0,{R0-|
00000de0 52 35 7d 0a 2f 2a 0a 2e 6e 6f 63 6c 69 70 70 69 |R5}./*..noclippi|
00000df0 6e 67 7a 0a 41 44 44 20 52 31 2c 52 31 2c 52 36 |ngz.ADD R1,R1,R6|
00000e00 2c 4c 53 4c 20 23 31 32 20 3b 20 63 61 6c 63 75 |,LSL #12 ; calcu|
00000e10 6c 61 74 65 20 6f 66 66 73 65 74 20 69 6e 20 77 |late offset in w|
00000e20 61 6c 6c 73 5b 5d 5b 5d 20 61 72 72 61 79 0a 41 |alls[][] array.A|
00000e30 44 44 20 52 31 2c 52 31 2c 52 32 20 20 20 20 20 |DD R1,R1,R2 |
00000e40 20 20 20 20 3b 20 61 64 64 20 74 68 65 20 63 6f | ; add the co|
00000e50 6c 75 6d 6e 20 74 6f 20 74 68 69 73 0a 2a 2f 0a |lumn to this.*/.|
00000e60 2f 2a 43 4d 50 20 52 33 2c 52 32 0a 4d 4f 56 47 |/*CMP R3,R2.MOVG|
00000e70 45 20 52 33 2c 52 32 2a 2f 0a 0a 4d 4f 56 20 52 |E R3,R2*/..MOV R|
00000e80 38 2c 23 31 30 30 0a 53 55 42 20 52 38 2c 52 38 |8,#100.SUB R8,R8|
00000e90 2c 52 33 2c 4c 53 52 20 23 31 20 3b 20 73 65 74 |,R3,LSR #1 ; set|
00000ea0 20 73 74 61 72 74 20 79 20 70 6f 73 0a 0a 41 44 | start y pos..AD|
00000eb0 44 20 52 34 2c 52 34 2c 52 38 2c 4c 53 4c 20 23 |D R4,R4,R8,LSL #|
00000ec0 38 20 3b 20 77 6f 72 6b 20 6f 75 74 20 75 73 75 |8 ; work out usu|
00000ed0 61 6c 20 73 63 72 65 65 6e 20 28 33 32 30 78 32 |al screen (320x2|
00000ee0 35 36 29 0a 41 44 44 20 52 34 2c 52 34 2c 52 38 |56).ADD R4,R4,R8|
00000ef0 2c 4c 53 4c 20 23 36 20 3b 20 6f 66 66 73 65 74 |,LSL #6 ; offset|
00000f00 20 74 6f 20 62 65 67 69 6e 20 6c 6f 6f 70 0a 41 | to begin loop.A|
00000f10 44 44 20 52 30 2c 52 30 2c 52 34 0a 0a 4d 4f 56 |DD R0,R0,R4..MOV|
00000f20 20 52 38 2c 23 36 34 20 20 20 20 20 20 20 20 3b | R8,#64 ;|
00000f30 20 73 74 61 72 74 20 6c 6f 6f 70 20 63 6f 75 6e | start loop coun|
00000f40 74 65 72 0a 4d 4f 56 20 52 37 2c 52 38 0a 0a 43 |ter.MOV R7,R8..C|
00000f50 4d 50 20 52 33 2c 23 36 34 0a 42 4c 4c 45 20 6c |MP R3,#64.BLLE l|
00000f60 6f 6f 70 79 36 34 6c 6f 6f 7a 6d 0a 43 4d 50 20 |oopy64loozm.CMP |
00000f70 52 33 2c 23 31 32 37 0a 42 4c 4c 45 20 6c 6f 6f |R3,#127.BLLE loo|
00000f80 70 79 31 32 37 6c 6f 6f 7a 6d 0a 43 4d 50 20 52 |py127loozm.CMP R|
00000f90 33 2c 23 31 39 31 0a 42 4c 4c 45 20 6c 6f 6f 70 |3,#191.BLLE loop|
00000fa0 79 31 39 31 6c 6f 6f 7a 6d 0a 42 4c 20 6c 6f 6f |y191loozm.BL loo|
00000fb0 70 79 31 39 32 6c 6f 6f 7a 6d 0a 2e 6c 6f 6f 70 |py192loozm..loop|
00000fc0 79 36 34 6c 6f 6f 7a 6d 0a 2e 64 6f 64 64 6c 65 |y64loozm..doddle|
00000fd0 36 34 7a 6d 0a 43 4d 50 20 52 37 2c 23 36 34 0a |64zm.CMP R7,#64.|
00000fe0 42 4c 4c 54 20 64 6f 6e 65 36 34 6c 6f 6f 7a 6d |BLLT done64loozm|
00000ff0 0a 4c 44 52 42 53 20 52 39 2c 5b 52 31 5d 20 20 |.LDRBS R9,[R1] |
00001000 20 20 20 20 20 3b 20 69 66 20 73 6f 20 6c 6f 61 | ; if so loa|
00001010 64 20 69 6e 20 70 69 78 65 6c 20 76 61 6c 75 65 |d in pixel value|
00001020 0a 53 55 42 20 52 37 2c 52 37 2c 23 36 34 0a 43 |.SUB R7,R7,#64.C|
00001030 4d 50 20 52 39 2c 23 30 0a 2f 2a 42 45 51 20 73 |MP R9,#0./*BEQ s|
00001040 6b 69 70 31 6d 2a 2f 0a 4c 44 52 4e 45 42 20 52 |kip1m*/.LDRNEB R|
00001050 31 30 2c 5b 52 30 5d 0a 43 4d 50 4e 45 20 52 31 |10,[R0].CMPNE R1|
00001060 30 2c 23 32 35 35 0a 53 54 52 4e 45 42 20 52 39 |0,#255.STRNEB R9|
00001070 2c 5b 52 30 5d 0a 2e 73 6b 69 70 31 6d 0a 41 44 |,[R0]..skip1m.AD|
00001080 44 20 52 30 2c 52 30 2c 23 33 32 30 0a 0a 2e 64 |D R0,R0,#320...d|
00001090 6f 6e 65 36 34 6c 6f 6f 7a 6d 0a 41 44 44 20 52 |one64loozm.ADD R|
000010a0 31 2c 52 31 2c 23 36 34 0a 41 44 44 20 52 37 2c |1,R1,#64.ADD R7,|
000010b0 52 37 2c 52 33 20 20 20 20 20 20 20 20 20 3b 20 |R7,R3 ; |
000010c0 61 64 64 20 73 63 61 6c 65 20 6f 6e 74 6f 20 76 |add scale onto v|
000010d0 65 72 74 2e 20 65 72 72 6f 72 20 74 65 72 6d 0a |ert. error term.|
000010e0 53 55 42 53 20 52 38 2c 52 38 2c 23 31 0a 42 4c |SUBS R8,R8,#1.BL|
000010f0 4e 45 20 6c 6f 6f 70 79 36 34 6c 6f 6f 7a 6d 20 |NE loopy64loozm |
00001100 20 20 20 20 20 20 20 20 3b 20 6c 6f 6f 70 20 69 | ; loop i|
00001110 66 20 73 6f 0a 0a 4c 44 4d 46 44 20 52 31 33 21 |f so..LDMFD R13!|
00001120 2c 7b 52 31 2d 52 31 30 2c 52 31 35 7d 5e 0a 0a |,{R1-R10,R15}^..|
00001130 2e 6c 6f 6f 70 79 31 32 37 6c 6f 6f 7a 6d 0a 2e |.loopy127loozm..|
00001140 64 6f 64 64 6c 65 31 32 37 7a 6d 0a 43 4d 50 20 |doddle127zm.CMP |
00001150 52 37 2c 23 36 34 0a 4c 44 52 42 20 52 39 2c 5b |R7,#64.LDRB R9,[|
00001160 52 31 5d 20 20 20 20 20 20 20 3b 20 69 66 20 73 |R1] ; if s|
00001170 6f 20 6c 6f 61 64 20 69 6e 20 70 69 78 65 6c 20 |o load in pixel |
00001180 76 61 6c 75 65 0a 53 55 42 20 52 37 2c 52 37 2c |value.SUB R7,R7,|
00001190 23 36 34 0a 43 4d 50 20 52 39 2c 23 30 0a 2f 2a |#64.CMP R9,#0./*|
000011a0 42 45 51 20 73 6b 69 70 32 2a 2f 0a 4c 44 52 4e |BEQ skip2*/.LDRN|
000011b0 45 42 20 52 31 30 2c 5b 52 30 5d 0a 43 4d 50 4e |EB R10,[R0].CMPN|
000011c0 45 20 52 31 30 2c 23 32 35 35 0a 53 54 52 4e 45 |E R10,#255.STRNE|
000011d0 42 20 52 39 2c 5b 52 30 5d 0a 2e 73 6b 69 70 32 |B R9,[R0]..skip2|
000011e0 6d 0a 41 44 44 20 52 30 2c 52 30 2c 23 33 32 30 |m.ADD R0,R0,#320|
000011f0 0a 0a 43 4d 50 20 52 37 2c 23 36 34 0a 42 4c 4c |..CMP R7,#64.BLL|
00001200 54 20 64 6f 6e 65 31 32 37 6c 6f 6f 7a 6d 0a 4c |T done127loozm.L|
00001210 44 52 42 20 52 39 2c 5b 52 31 5d 20 20 20 20 20 |DRB R9,[R1] |
00001220 20 20 3b 20 69 66 20 73 6f 20 6c 6f 61 64 20 69 | ; if so load i|
00001230 6e 20 70 69 78 65 6c 20 76 61 6c 75 65 0a 53 55 |n pixel value.SU|
00001240 42 20 52 37 2c 52 37 2c 23 36 34 0a 43 4d 50 20 |B R7,R7,#64.CMP |
00001250 52 39 2c 23 30 0a 2f 2a 42 45 51 20 73 6b 69 70 |R9,#0./*BEQ skip|
00001260 33 2a 2f 0a 4c 44 52 4e 45 42 20 52 31 30 2c 5b |3*/.LDRNEB R10,[|
00001270 52 30 5d 0a 43 4d 50 4e 45 20 52 31 30 2c 23 32 |R0].CMPNE R10,#2|
00001280 35 35 0a 53 54 52 4e 45 42 20 52 39 2c 5b 52 30 |55.STRNEB R9,[R0|
00001290 5d 0a 2e 73 6b 69 70 33 6d 0a 41 44 44 20 52 30 |]..skip3m.ADD R0|
000012a0 2c 52 30 2c 23 33 32 30 0a 0a 2e 64 6f 6e 65 31 |,R0,#320...done1|
000012b0 32 37 6c 6f 6f 7a 6d 0a 41 44 44 20 52 31 2c 52 |27loozm.ADD R1,R|
000012c0 31 2c 23 36 34 0a 41 44 44 20 52 37 2c 52 37 2c |1,#64.ADD R7,R7,|
000012d0 52 33 20 20 20 20 20 20 20 20 20 3b 20 61 64 64 |R3 ; add|
000012e0 20 73 63 61 6c 65 20 6f 6e 74 6f 20 76 65 72 74 | scale onto vert|
000012f0 2e 20 65 72 72 6f 72 20 74 65 72 6d 0a 53 55 42 |. error term.SUB|
00001300 53 20 52 38 2c 52 38 2c 23 31 0a 42 4c 4e 45 20 |S R8,R8,#1.BLNE |
00001310 6c 6f 6f 70 79 31 32 37 6c 6f 6f 7a 6d 20 20 20 |loopy127loozm |
00001320 20 20 20 20 20 20 3b 20 6c 6f 6f 70 20 69 66 20 | ; loop if |
00001330 73 6f 0a 4c 44 4d 46 44 20 52 31 33 21 2c 7b 52 |so.LDMFD R13!,{R|
00001340 31 2d 52 31 30 2c 52 31 35 7d 5e 0a 0a 0a 2e 6c |1-R10,R15}^....l|
00001350 6f 6f 70 79 31 39 31 6c 6f 6f 7a 6d 0a 2e 64 6f |oopy191loozm..do|
00001360 64 64 6c 65 31 39 31 7a 6d 0a 43 4d 50 20 52 37 |ddle191zm.CMP R7|
00001370 2c 23 36 34 0a 4c 44 52 42 20 52 39 2c 5b 52 31 |,#64.LDRB R9,[R1|
00001380 5d 20 20 20 20 20 20 20 3b 20 69 66 20 73 6f 20 |] ; if so |
00001390 6c 6f 61 64 20 69 6e 20 70 69 78 65 6c 20 76 61 |load in pixel va|
000013a0 6c 75 65 0a 53 55 42 20 52 37 2c 52 37 2c 23 36 |lue.SUB R7,R7,#6|
000013b0 34 0a 43 4d 50 20 52 39 2c 23 30 0a 2f 2a 42 45 |4.CMP R9,#0./*BE|
000013c0 51 20 73 6b 69 70 34 2a 2f 0a 4c 44 52 4e 45 42 |Q skip4*/.LDRNEB|
000013d0 20 52 31 30 2c 5b 52 30 5d 0a 43 4d 50 4e 45 20 | R10,[R0].CMPNE |
000013e0 52 31 30 2c 23 32 35 35 0a 53 54 52 4e 45 42 20 |R10,#255.STRNEB |
000013f0 52 39 2c 5b 52 30 5d 0a 2e 73 6b 69 70 34 6d 0a |R9,[R0]..skip4m.|
00001400 41 44 44 20 52 30 2c 52 30 2c 23 33 32 30 0a 0a |ADD R0,R0,#320..|
00001410 43 4d 50 20 52 37 2c 23 36 34 0a 4c 44 52 42 20 |CMP R7,#64.LDRB |
00001420 52 39 2c 5b 52 31 5d 20 20 20 20 20 20 20 3b 20 |R9,[R1] ; |
00001430 69 66 20 73 6f 20 6c 6f 61 64 20 69 6e 20 70 69 |if so load in pi|
00001440 78 65 6c 20 76 61 6c 75 65 0a 53 55 42 20 52 37 |xel value.SUB R7|
00001450 2c 52 37 2c 23 36 34 0a 43 4d 50 20 52 39 2c 23 |,R7,#64.CMP R9,#|
00001460 30 0a 2f 2a 42 45 51 20 73 6b 69 70 35 2a 2f 0a |0./*BEQ skip5*/.|
00001470 4c 44 52 4e 45 42 20 52 31 30 2c 5b 52 30 5d 0a |LDRNEB R10,[R0].|
00001480 43 4d 50 4e 45 20 52 31 30 2c 23 32 35 35 0a 53 |CMPNE R10,#255.S|
00001490 54 52 4e 45 42 20 52 39 2c 5b 52 30 5d 0a 2e 73 |TRNEB R9,[R0]..s|
000014a0 6b 69 70 35 6d 0a 41 44 44 20 52 30 2c 52 30 2c |kip5m.ADD R0,R0,|
000014b0 23 33 32 30 0a 0a 43 4d 50 20 52 37 2c 23 36 34 |#320..CMP R7,#64|
000014c0 0a 42 4c 54 20 64 6f 6e 65 31 39 31 6c 6f 6f 7a |.BLT done191looz|
000014d0 6d 0a 4c 44 52 42 20 52 39 2c 5b 52 31 5d 20 20 |m.LDRB R9,[R1] |
000014e0 20 20 20 20 20 3b 20 69 66 20 73 6f 20 6c 6f 61 | ; if so loa|
000014f0 64 20 69 6e 20 70 69 78 65 6c 20 76 61 6c 75 65 |d in pixel value|
00001500 0a 53 55 42 20 52 37 2c 52 37 2c 23 36 34 0a 43 |.SUB R7,R7,#64.C|
00001510 4d 50 20 52 39 2c 23 30 0a 2f 2a 42 45 51 20 73 |MP R9,#0./*BEQ s|
00001520 6b 69 70 36 6d 2a 2f 0a 4c 44 52 4e 45 42 20 52 |kip6m*/.LDRNEB R|
00001530 31 30 2c 5b 52 30 5d 0a 43 4d 50 4e 45 20 52 31 |10,[R0].CMPNE R1|
00001540 30 2c 23 32 35 35 0a 53 54 52 4e 45 42 20 52 39 |0,#255.STRNEB R9|
00001550 2c 5b 52 30 5d 0a 2e 73 6b 69 70 36 6d 0a 41 44 |,[R0]..skip6m.AD|
00001560 44 20 52 30 2c 52 30 2c 23 33 32 30 0a 0a 2e 64 |D R0,R0,#320...d|
00001570 6f 6e 65 31 39 31 6c 6f 6f 7a 6d 0a 41 44 44 20 |one191loozm.ADD |
00001580 52 31 2c 52 31 2c 23 36 34 0a 41 44 44 20 52 37 |R1,R1,#64.ADD R7|
00001590 2c 52 37 2c 52 33 20 20 20 20 20 20 20 20 20 3b |,R7,R3 ;|
000015a0 20 61 64 64 20 73 63 61 6c 65 20 6f 6e 74 6f 20 | add scale onto |
000015b0 76 65 72 74 2e 20 65 72 72 6f 72 20 74 65 72 6d |vert. error term|
000015c0 0a 53 55 42 53 20 52 38 2c 52 38 2c 23 31 0a 42 |.SUBS R8,R8,#1.B|
000015d0 4c 4e 45 20 6c 6f 6f 70 79 31 39 31 6c 6f 6f 7a |LNE loopy191looz|
000015e0 6d 20 20 20 20 20 20 20 20 20 3b 20 6c 6f 6f 70 |m ; loop|
000015f0 20 69 66 20 73 6f 0a 4c 44 4d 46 44 20 52 31 33 | if so.LDMFD R13|
00001600 21 2c 7b 52 31 2d 52 31 30 2c 52 31 35 7d 5e 0a |!,{R1-R10,R15}^.|
00001610 0a 2e 6c 6f 6f 70 79 31 39 32 6c 6f 6f 7a 6d 0a |..loopy192loozm.|
00001620 2e 64 6f 64 64 6c 65 31 39 32 7a 6d 0a 43 4d 50 |.doddle192zm.CMP|
00001630 20 52 37 2c 23 36 34 0a 4c 44 52 42 20 52 39 2c | R7,#64.LDRB R9,|
00001640 5b 52 31 5d 20 20 20 20 20 20 20 3b 20 69 66 20 |[R1] ; if |
00001650 73 6f 20 6c 6f 61 64 20 69 6e 20 70 69 78 65 6c |so load in pixel|
00001660 20 76 61 6c 75 65 0a 53 55 42 20 52 37 2c 52 37 | value.SUB R7,R7|
00001670 2c 23 36 34 0a 43 4d 50 20 52 39 2c 23 30 0a 2f |,#64.CMP R9,#0./|
00001680 2a 42 45 51 20 73 6b 69 70 37 2a 2f 0a 4c 44 52 |*BEQ skip7*/.LDR|
00001690 4e 45 42 20 52 31 30 2c 5b 52 30 5d 0a 43 4d 50 |NEB R10,[R0].CMP|
000016a0 4e 45 20 52 31 30 2c 23 32 35 35 0a 53 54 52 4e |NE R10,#255.STRN|
000016b0 45 42 20 52 39 2c 5b 52 30 5d 0a 2e 73 6b 69 70 |EB R9,[R0]..skip|
000016c0 37 6d 0a 41 44 44 20 52 30 2c 52 30 2c 23 33 32 |7m.ADD R0,R0,#32|
000016d0 30 0a 0a 43 4d 50 20 52 37 2c 23 36 34 0a 4c 44 |0..CMP R7,#64.LD|
000016e0 52 42 20 52 39 2c 5b 52 31 5d 20 20 20 20 20 20 |RB R9,[R1] |
000016f0 20 3b 20 69 66 20 73 6f 20 6c 6f 61 64 20 69 6e | ; if so load in|
00001700 20 70 69 78 65 6c 20 76 61 6c 75 65 0a 53 55 42 | pixel value.SUB|
00001710 20 52 37 2c 52 37 2c 23 36 34 0a 43 4d 50 20 52 | R7,R7,#64.CMP R|
00001720 39 2c 23 30 0a 42 45 51 20 73 6b 69 70 38 6d 0a |9,#0.BEQ skip8m.|
00001730 53 54 52 42 20 52 39 2c 5b 52 30 5d 0a 2e 73 6b |STRB R9,[R0]..sk|
00001740 69 70 38 6d 0a 41 44 44 20 52 30 2c 52 30 2c 23 |ip8m.ADD R0,R0,#|
00001750 33 32 30 0a 0a 43 4d 50 20 52 37 2c 23 36 34 0a |320..CMP R7,#64.|
00001760 4c 44 52 42 20 52 39 2c 5b 52 31 5d 20 20 20 20 |LDRB R9,[R1] |
00001770 20 20 20 3b 20 69 66 20 73 6f 20 6c 6f 61 64 20 | ; if so load |
00001780 69 6e 20 70 69 78 65 6c 20 76 61 6c 75 65 0a 53 |in pixel value.S|
00001790 55 42 20 52 37 2c 52 37 2c 23 36 34 0a 43 4d 50 |UB R7,R7,#64.CMP|
000017a0 20 52 39 2c 23 30 0a 2f 2a 42 45 51 20 73 6b 69 | R9,#0./*BEQ ski|
000017b0 70 39 2a 2f 0a 4c 44 52 4e 45 42 20 52 31 30 2c |p9*/.LDRNEB R10,|
000017c0 5b 52 30 5d 0a 43 4d 50 4e 45 20 52 31 30 2c 23 |[R0].CMPNE R10,#|
000017d0 32 35 35 0a 53 54 52 4e 45 42 20 52 39 2c 5b 52 |255.STRNEB R9,[R|
000017e0 30 5d 0a 2e 73 6b 69 70 39 6d 0a 41 44 44 20 52 |0]..skip9m.ADD R|
000017f0 30 2c 52 30 2c 23 33 32 30 0a 0a 43 4d 50 20 52 |0,R0,#320..CMP R|
00001800 37 2c 23 36 34 0a 42 4c 4c 54 20 64 6f 6e 65 31 |7,#64.BLLT done1|
00001810 39 32 6c 6f 6f 7a 6d 0a 4c 44 52 42 20 52 39 2c |92loozm.LDRB R9,|
00001820 5b 52 31 5d 20 20 20 20 20 20 20 3b 20 69 66 20 |[R1] ; if |
00001830 73 6f 20 6c 6f 61 64 20 69 6e 20 70 69 78 65 6c |so load in pixel|
00001840 20 76 61 6c 75 65 0a 53 55 42 20 52 37 2c 52 37 | value.SUB R7,R7|
00001850 2c 23 36 34 0a 43 4d 50 20 52 39 2c 23 30 0a 2f |,#64.CMP R9,#0./|
00001860 2a 42 45 51 20 73 6b 69 70 31 30 2a 2f 0a 4c 44 |*BEQ skip10*/.LD|
00001870 52 4e 45 42 20 52 31 30 2c 5b 52 30 5d 0a 43 4d |RNEB R10,[R0].CM|
00001880 50 4e 45 20 52 31 30 2c 23 32 35 35 0a 53 54 52 |PNE R10,#255.STR|
00001890 4e 45 42 20 52 39 2c 5b 52 30 5d 0a 2e 73 6b 69 |NEB R9,[R0]..ski|
000018a0 70 31 30 6d 0a 41 44 44 20 52 30 2c 52 30 2c 23 |p10m.ADD R0,R0,#|
000018b0 33 32 30 0a 0a 2e 64 6f 6e 65 31 39 32 6c 6f 6f |320...done192loo|
000018c0 7a 6d 0a 41 44 44 20 52 31 2c 52 31 2c 23 36 34 |zm.ADD R1,R1,#64|
000018d0 0a 41 44 44 20 52 37 2c 52 37 2c 52 33 20 20 20 |.ADD R7,R7,R3 |
000018e0 20 20 20 20 20 20 3b 20 61 64 64 20 73 63 61 6c | ; add scal|
000018f0 65 20 6f 6e 74 6f 20 76 65 72 74 2e 20 65 72 72 |e onto vert. err|
00001900 6f 72 20 74 65 72 6d 0a 53 55 42 53 20 52 38 2c |or term.SUBS R8,|
00001910 52 38 2c 23 31 0a 42 4c 4e 45 20 6c 6f 6f 70 79 |R8,#1.BLNE loopy|
00001920 31 39 32 6c 6f 6f 7a 6d 20 20 20 20 20 20 20 20 |192loozm |
00001930 20 3b 20 6c 6f 6f 70 20 69 66 20 73 6f 0a 2e 65 | ; loop if so..e|
00001940 6e 64 6f 66 66 75 6e 63 74 69 6f 6e 7a 6d 0a 4c |ndoffunctionzm.L|
00001950 44 4d 46 44 20 52 31 33 21 2c 7b 52 31 2d 52 31 |DMFD R13!,{R1-R1|
00001960 30 2c 52 31 35 7d 5e 0a 0a 45 58 50 4f 52 54 20 |0,R15}^..EXPORT |
00001970 6f 75 72 6c 69 62 5f 62 61 72 5f 70 6c 6f 74 0a |ourlib_bar_plot.|
00001980 2e 6f 75 72 6c 69 62 5f 62 61 72 5f 70 6c 6f 74 |.ourlib_bar_plot|
00001990 0a 53 54 4d 46 44 20 52 31 33 21 2c 7b 52 31 2d |.STMFD R13!,{R1-|
000019a0 52 34 2c 52 31 34 7d 0a 3b 20 52 30 20 3d 20 73 |R4,R14}.; R0 = s|
000019b0 63 72 65 65 6e 20 52 31 20 3d 20 62 61 72 20 52 |creen R1 = bar R|
000019c0 32 20 3d 20 73 74 61 72 74 6f 66 66 73 65 74 0a |2 = startoffset.|
000019d0 4d 4f 56 20 52 33 2c 23 32 35 30 0a 0a 41 44 44 |MOV R3,#250..ADD|
000019e0 20 52 30 2c 52 30 2c 52 32 0a 2e 62 61 72 5f 6c | R0,R0,R2..bar_l|
000019f0 6f 6f 70 0a 0a 4c 44 52 20 52 32 2c 5b 52 31 5d |oop..LDR R2,[R1]|
00001a00 2c 23 34 0a 53 54 52 20 52 32 2c 5b 52 30 5d 2c |,#4.STR R2,[R0],|
00001a10 23 34 0a 4c 44 52 20 52 32 2c 5b 52 31 5d 2c 23 |#4.LDR R2,[R1],#|
00001a20 34 0a 53 54 52 20 52 32 2c 5b 52 30 5d 2c 23 34 |4.STR R2,[R0],#4|
00001a30 0a 4c 44 52 20 52 32 2c 5b 52 31 5d 2c 23 34 0a |.LDR R2,[R1],#4.|
00001a40 53 54 52 20 52 32 2c 5b 52 30 5d 2c 23 34 0a 4c |STR R2,[R0],#4.L|
00001a50 44 52 20 52 32 2c 5b 52 31 5d 2c 23 34 0a 53 54 |DR R2,[R1],#4.ST|
00001a60 52 20 52 32 2c 5b 52 30 5d 2c 23 34 0a 4c 44 52 |R R2,[R0],#4.LDR|
00001a70 20 52 32 2c 5b 52 31 5d 2c 23 34 0a 53 54 52 20 | R2,[R1],#4.STR |
00001a80 52 32 2c 5b 52 30 5d 2c 23 34 0a 4c 44 52 20 52 |R2,[R0],#4.LDR R|
00001a90 32 2c 5b 52 31 5d 2c 23 34 0a 53 54 52 20 52 32 |2,[R1],#4.STR R2|
00001aa0 2c 5b 52 30 5d 2c 23 34 0a 4c 44 52 20 52 32 2c |,[R0],#4.LDR R2,|
00001ab0 5b 52 31 5d 2c 23 34 0a 53 54 52 20 52 32 2c 5b |[R1],#4.STR R2,[|
00001ac0 52 30 5d 2c 23 34 0a 4c 44 52 20 52 32 2c 5b 52 |R0],#4.LDR R2,[R|
00001ad0 31 5d 2c 23 34 0a 53 54 52 20 52 32 2c 5b 52 30 |1],#4.STR R2,[R0|
00001ae0 5d 2c 23 34 0a 4c 44 52 20 52 32 2c 5b 52 31 5d |],#4.LDR R2,[R1]|
00001af0 2c 23 34 0a 53 54 52 20 52 32 2c 5b 52 30 5d 2c |,#4.STR R2,[R0],|
00001b00 23 34 0a 4c 44 52 20 52 32 2c 5b 52 31 5d 2c 23 |#4.LDR R2,[R1],#|
00001b10 34 0a 53 54 52 20 52 32 2c 5b 52 30 5d 2c 23 34 |4.STR R2,[R0],#4|
00001b20 0a 4c 44 52 20 52 32 2c 5b 52 31 5d 2c 23 34 0a |.LDR R2,[R1],#4.|
00001b30 53 54 52 20 52 32 2c 5b 52 30 5d 2c 23 34 0a 4c |STR R2,[R0],#4.L|
00001b40 44 52 20 52 32 2c 5b 52 31 5d 2c 23 34 0a 53 54 |DR R2,[R1],#4.ST|
00001b50 52 20 52 32 2c 5b 52 30 5d 2c 23 34 0a 4c 44 52 |R R2,[R0],#4.LDR|
00001b60 20 52 32 2c 5b 52 31 5d 2c 23 34 0a 53 54 52 20 | R2,[R1],#4.STR |
00001b70 52 32 2c 5b 52 30 5d 2c 23 34 0a 4c 44 52 20 52 |R2,[R0],#4.LDR R|
00001b80 32 2c 5b 52 31 5d 2c 23 34 0a 53 54 52 20 52 32 |2,[R1],#4.STR R2|
00001b90 2c 5b 52 30 5d 2c 23 34 0a 4c 44 52 20 52 32 2c |,[R0],#4.LDR R2,|
00001ba0 5b 52 31 5d 2c 23 34 0a 53 54 52 20 52 32 2c 5b |[R1],#4.STR R2,[|
00001bb0 52 30 5d 2c 23 34 0a 4c 44 52 20 52 32 2c 5b 52 |R0],#4.LDR R2,[R|
00001bc0 31 5d 2c 23 34 0a 53 54 52 20 52 32 2c 5b 52 30 |1],#4.STR R2,[R0|
00001bd0 5d 2c 23 34 53 55 42 53 20 52 33 2c 52 33 2c 23 |],#4SUBS R3,R3,#|
00001be0 31 0a 42 4e 45 20 62 61 72 5f 6c 6f 6f 70 0a 0a |1.BNE bar_loop..|
00001bf0 4c 44 4d 46 44 20 52 31 33 21 2c 7b 52 31 2d 52 |LDMFD R13!,{R1-R|
00001c00 34 2c 52 31 35 7d 5e 0a 0a 45 58 50 4f 52 54 20 |4,R15}^..EXPORT |
00001c10 6f 75 72 6c 69 62 5f 67 75 6e 5f 70 6c 6f 74 0a |ourlib_gun_plot.|
00001c20 2e 6f 75 72 6c 69 62 5f 67 75 6e 5f 70 6c 6f 74 |.ourlib_gun_plot|
00001c30 0a 0a 53 54 4d 46 44 20 52 31 33 21 2c 7b 52 31 |..STMFD R13!,{R1|
00001c40 2d 52 31 32 2c 52 31 34 7d 0a 0a 2f 2a 20 52 30 |-R12,R14}../* R0|
00001c50 20 3d 20 76 69 64 65 6f 20 52 31 20 3d 67 72 61 | = video R1 =gra|
00001c60 70 68 69 63 20 52 32 20 3d 20 77 69 64 74 68 20 |phic R2 = width |
00001c70 52 33 20 3d 68 65 69 67 68 74 20 2a 2f 0a 4d 4f |R3 =height */.MO|
00001c80 56 20 52 35 2c 52 30 0a 0a 2e 79 67 5f 6c 6f 6f |V R5,R0...yg_loo|
00001c90 70 0a 4d 4f 56 20 52 34 2c 52 32 0a 41 44 44 20 |p.MOV R4,R2.ADD |
00001ca0 52 30 2c 52 30 2c 23 33 32 30 0a 4d 4f 56 20 52 |R0,R0,#320.MOV R|
00001cb0 35 2c 52 30 0a 2e 78 67 5f 6c 6f 6f 70 0a 4c 44 |5,R0..xg_loop.LD|
00001cc0 52 42 20 52 36 2c 5b 52 31 5d 2c 23 31 0a 43 4d |RB R6,[R1],#1.CM|
00001cd0 50 20 52 36 2c 23 31 35 31 0a 42 45 51 20 63 6f |P R6,#151.BEQ co|
00001ce0 6e 74 0a 53 54 52 42 20 52 36 2c 5b 52 35 5d 0a |nt.STRB R6,[R5].|
00001cf0 2e 63 6f 6e 74 0a 41 44 44 20 52 35 2c 52 35 2c |.cont.ADD R5,R5,|
00001d00 23 31 0a 0a 0a 53 55 42 53 20 52 34 2c 52 34 2c |#1...SUBS R4,R4,|
00001d10 23 31 0a 42 4e 45 20 78 67 5f 6c 6f 6f 70 0a 53 |#1.BNE xg_loop.S|
00001d20 55 42 53 20 52 33 2c 52 33 2c 23 31 0a 42 4e 45 |UBS R3,R3,#1.BNE|
00001d30 20 79 67 5f 6c 6f 6f 70 0a 0a 4c 44 4d 46 44 20 | yg_loop..LDMFD |
00001d40 52 31 33 21 2c 7b 52 31 2d 52 31 32 2c 52 31 35 |R13!,{R1-R12,R15|
00001d50 7d 0a 0a 0a 45 58 50 4f 52 54 20 6f 75 72 6c 69 |}...EXPORT ourli|
00001d60 62 5f 63 68 61 6e 67 65 6d 6f 64 65 0a 2e 6f 75 |b_changemode..ou|
00001d70 72 6c 69 62 5f 63 68 61 6e 67 65 6d 6f 64 65 0a |rlib_changemode.|
00001d80 53 54 4d 46 44 20 52 31 33 21 2c 7b 52 31 2d 52 |STMFD R13!,{R1-R|
00001d90 34 2c 52 31 34 7d 0a 4d 4f 56 20 52 31 2c 52 30 |4,R14}.MOV R1,R0|
00001da0 0a 4d 4f 56 20 52 30 2c 23 32 32 0a 53 57 49 20 |.MOV R0,#22.SWI |
00001db0 4f 53 5f 57 72 69 74 65 43 0a 4d 4f 56 20 52 30 |OS_WriteC.MOV R0|
00001dc0 2c 52 31 0a 53 57 49 20 4f 53 5f 57 72 69 74 65 |,R1.SWI OS_Write|
00001dd0 43 0a 0a 4c 44 4d 46 44 20 52 31 33 21 2c 7b 52 |C..LDMFD R13!,{R|
00001de0 31 2d 52 34 2c 52 31 35 7d 0a 0a 45 58 50 4f 52 |1-R4,R15}..EXPOR|
00001df0 54 20 6f 75 72 6c 69 62 5f 77 61 69 74 0a 2e 6f |T ourlib_wait..o|
00001e00 75 72 6c 69 62 5f 77 61 69 74 0a 53 54 4d 46 44 |urlib_wait.STMFD|
00001e10 20 52 31 33 21 2c 7b 52 31 2d 52 35 2c 52 31 34 | R13!,{R1-R5,R14|
00001e20 7d 0a 4d 4f 56 20 52 33 2c 52 30 20 2f 2a 20 43 |}.MOV R3,R0 /* C|
00001e30 6f 70 79 20 76 61 72 69 61 62 6c 65 20 69 6e 74 |opy variable int|
00001e40 6f 20 73 61 66 65 20 70 6c 61 63 65 20 2a 2f 0a |o safe place */.|
00001e50 53 57 49 20 4f 53 5f 52 65 61 64 4d 6f 6e 6f 74 |SWI OS_ReadMonot|
00001e60 6f 6e 69 63 54 69 6d 65 0a 41 44 44 20 52 32 2c |onicTime.ADD R2,|
00001e70 52 30 2c 52 33 0a 2e 74 69 6d 65 5f 6c 6f 6f 70 |R0,R3..time_loop|
00001e80 0a 53 57 49 20 4f 53 5f 52 65 61 64 4d 6f 6e 6f |.SWI OS_ReadMono|
00001e90 74 6f 6e 69 63 54 69 6d 65 0a 43 4d 50 20 52 30 |tonicTime.CMP R0|
00001ea0 2c 52 32 0a 42 4c 45 20 74 69 6d 65 5f 6c 6f 6f |,R2.BLE time_loo|
00001eb0 70 0a 4c 44 4d 46 44 20 52 31 33 21 2c 7b 52 31 |p.LDMFD R13!,{R1|
00001ec0 2d 52 35 2c 52 31 35 7d 5e 0a 0a 45 58 50 4f 52 |-R5,R15}^..EXPOR|
00001ed0 54 20 6f 75 72 6c 69 62 5f 63 6c 6f 73 65 64 6f |T ourlib_closedo|
00001ee0 77 6e 5f 73 63 72 65 65 6e 73 0a 2e 6f 75 72 6c |wn_screens..ourl|
00001ef0 69 62 5f 63 6c 6f 73 65 64 6f 77 6e 5f 73 63 72 |ib_closedown_scr|
00001f00 65 65 6e 73 0a 53 54 4d 46 44 20 52 31 33 21 2c |eens.STMFD R13!,|
00001f10 7b 52 31 2d 52 34 2c 52 31 34 7d 0a 4d 4f 56 20 |{R1-R4,R14}.MOV |
00001f20 52 30 2c 23 31 31 34 0a 4d 4f 56 20 52 31 2c 23 |R0,#114.MOV R1,#|
00001f30 31 0a 53 57 49 20 22 4f 53 5f 42 79 74 65 22 0a |1.SWI "OS_Byte".|
00001f40 4c 44 4d 46 44 20 52 31 33 21 2c 7b 52 31 2d 52 |LDMFD R13!,{R1-R|
00001f50 34 2c 52 31 35 7d 5e 0a 0a 0a 0a 0a 0a 0a 2e 73 |4,R15}^........s|
00001f60 69 6d 70 6c 65 6e 75 6d 62 65 72 0a 45 51 55 44 |implenumber.EQUD|
00001f70 20 30 0a 0a 45 58 50 4f 52 54 20 6f 75 72 6c 69 | 0..EXPORT ourli|
00001f80 62 5f 73 69 6d 70 6c 65 73 77 69 74 63 68 0a 2e |b_simpleswitch..|
00001f90 6f 75 72 6c 69 62 5f 73 69 6d 70 6c 65 73 77 69 |ourlib_simpleswi|
00001fa0 74 63 68 0a 53 54 4d 46 44 20 52 31 33 21 2c 7b |tch.STMFD R13!,{|
00001fb0 52 31 2d 52 35 2c 52 31 34 7d 0a 4c 44 52 20 52 |R1-R5,R14}.LDR R|
00001fc0 31 2c 73 69 6d 70 6c 65 6e 75 6d 62 65 72 0a 4d |1,simplenumber.M|
00001fd0 4f 56 20 52 30 2c 23 31 31 33 0a 4d 4f 56 20 52 |OV R0,#113.MOV R|
00001fe0 34 2c 52 31 0a 53 57 49 20 22 4f 53 5f 42 79 74 |4,R1.SWI "OS_Byt|
00001ff0 65 22 0a 4d 56 4e 20 52 31 2c 52 34 0a 53 54 52 |e".MVN R1,R4.STR|
00002000 20 52 31 2c 73 69 6d 70 6c 65 6e 75 6d 62 65 72 | R1,simplenumber|
00002010 0a 4d 4f 56 20 52 30 2c 23 31 31 32 0a 53 57 49 |.MOV R0,#112.SWI|
00002020 20 22 4f 53 5f 42 79 74 65 22 0a 4c 44 4d 46 44 | "OS_Byte".LDMFD|
00002030 20 52 31 33 21 2c 7b 52 31 2d 52 35 2c 52 31 35 | R13!,{R1-R5,R15|
00002040 7d 5e 0a 0a 0a 0a 0a 45 58 50 4f 52 54 20 6f 75 |}^.....EXPORT ou|
00002050 72 6c 69 62 5f 73 65 74 75 70 5f 73 63 72 65 65 |rlib_setup_scree|
00002060 6e 73 0a 2e 6f 75 72 6c 69 62 5f 73 65 74 75 70 |ns..ourlib_setup|
00002070 5f 73 63 72 65 65 6e 73 0a 0a 53 54 4d 46 44 20 |_screens..STMFD |
00002080 52 31 33 21 2c 7b 52 31 2d 52 34 2c 52 31 34 7d |R13!,{R1-R4,R14}|
00002090 0a 4d 4f 56 20 52 30 2c 23 31 31 34 0a 4d 4f 56 |.MOV R0,#114.MOV|
000020a0 20 52 31 2c 23 30 0a 53 57 49 20 22 4f 53 5f 42 | R1,#0.SWI "OS_B|
000020b0 79 74 65 22 0a 0a 4c 44 4d 46 44 20 52 31 33 21 |yte"..LDMFD R13!|
000020c0 2c 7b 52 31 2d 52 34 2c 52 31 35 7d 5e 0a 0a 45 |,{R1-R4,R15}^..E|
000020d0 58 50 4f 52 54 20 6f 75 72 6c 69 62 5f 6b 69 6c |XPORT ourlib_kil|
000020e0 6c 63 75 72 73 6f 72 0a 2e 6f 75 72 6c 69 62 5f |lcursor..ourlib_|
000020f0 6b 69 6c 6c 63 75 72 73 6f 72 0a 53 54 4d 46 44 |killcursor.STMFD|
00002100 20 52 31 33 21 2c 7b 52 31 2d 52 34 2c 52 31 34 | R13!,{R1-R4,R14|
00002110 7d 0a 53 57 49 20 22 4f 53 5f 52 65 6d 6f 76 65 |}.SWI "OS_Remove|
00002120 43 75 72 73 6f 72 73 22 0a 4c 44 4d 46 44 20 52 |Cursors".LDMFD R|
00002130 31 33 21 2c 7b 52 31 2d 52 34 2c 52 31 35 7d 5e |13!,{R1-R4,R15}^|
00002140 0a 0a 45 58 50 4f 52 54 20 6f 75 72 6c 69 62 5f |..EXPORT ourlib_|
00002150 72 65 76 69 76 65 63 75 72 73 6f 72 0a 2e 6f 75 |revivecursor..ou|
00002160 72 6c 69 62 5f 72 65 76 69 76 65 63 75 72 73 6f |rlib_revivecurso|
00002170 72 0a 53 54 4d 46 44 20 52 31 33 21 2c 7b 52 31 |r.STMFD R13!,{R1|
00002180 2d 52 34 2c 52 31 34 7d 0a 53 57 49 20 22 4f 53 |-R4,R14}.SWI "OS|
00002190 5f 52 65 73 74 6f 72 65 43 75 72 73 6f 72 73 22 |_RestoreCursors"|
000021a0 0a 4c 44 4d 46 44 20 52 31 33 21 2c 7b 52 31 2d |.LDMFD R13!,{R1-|
000021b0 52 34 2c 52 31 35 7d 5e 0a 0a 0a 0a 45 58 50 4f |R4,R15}^....EXPO|
000021c0 52 54 20 6f 75 72 6c 69 62 5f 73 6c 69 76 65 72 |RT ourlib_sliver|
000021d0 5f 74 77 6f 0a 2e 6f 75 72 6c 69 62 5f 73 6c 69 |_two..ourlib_sli|
000021e0 76 65 72 5f 74 77 6f 0a 53 54 4d 46 44 20 52 31 |ver_two.STMFD R1|
000021f0 33 21 2c 7b 52 31 2d 52 31 32 2c 52 31 34 7d 0a |3!,{R1-R12,R14}.|
00002200 4c 44 4d 49 41 20 52 30 2c 7b 52 30 2d 52 36 7d |LDMIA R0,{R0-R6}|
00002210 0a 0a 43 4d 50 20 52 33 2c 23 32 30 30 0a 4d 4f |..CMP R3,#200.MO|
00002220 56 47 45 20 52 33 2c 23 32 30 30 0a 41 44 44 20 |VGE R3,#200.ADD |
00002230 52 31 2c 52 31 2c 52 36 2c 4c 53 4c 20 23 32 0a |R1,R1,R6,LSL #2.|
00002240 41 44 44 20 52 31 2c 52 31 2c 52 32 0a 4d 4f 56 |ADD R1,R1,R2.MOV|
00002250 20 52 38 2c 23 31 30 30 0a 53 55 42 20 52 38 2c | R8,#100.SUB R8,|
00002260 52 38 2c 52 33 2c 4c 53 52 20 23 31 0a 41 44 44 |R8,R3,LSR #1.ADD|
00002270 20 52 34 2c 52 34 2c 52 38 2c 4c 53 4c 20 23 38 | R4,R4,R8,LSL #8|
00002280 0a 41 44 44 20 52 34 2c 52 34 2c 52 38 2c 4c 53 |.ADD R4,R4,R8,LS|
00002290 4c 20 23 36 0a 41 44 44 20 52 30 2c 52 30 2c 52 |L #6.ADD R0,R0,R|
000022a0 34 0a 4d 4f 56 20 52 31 30 2c 23 30 0a 4d 4f 56 |4.MOV R10,#0.MOV|
000022b0 20 52 38 2c 52 33 0a 4d 4f 56 20 52 33 2c 52 31 | R8,R3.MOV R3,R1|
000022c0 0a 2e 6c 6f 6f 6f 70 0a 4c 44 52 42 20 52 39 2c |..looop.LDRB R9,|
000022d0 5b 52 31 2c 52 31 30 2c 4c 53 4c 20 23 36 5d 20 |[R1,R10,LSL #6] |
000022e0 20 20 20 20 20 20 3b 20 69 66 20 73 6f 20 6c 6f | ; if so lo|
000022f0 61 64 20 69 6e 20 70 69 78 65 6c 20 76 61 6c 75 |ad in pixel valu|
00002300 65 0a 53 54 52 42 20 52 39 2c 5b 52 30 5d 2c 23 |e.STRB R9,[R0],#|
00002310 33 32 30 0a 41 44 44 20 52 31 30 2c 52 31 30 2c |320.ADD R10,R10,|
00002320 52 35 0a 4d 4f 56 20 52 31 30 2c 52 31 30 2c 4c |R5.MOV R10,R10,L|
00002330 53 52 20 23 38 0a 53 55 42 53 20 52 38 2c 52 38 |SR #8.SUBS R8,R8|
00002340 2c 23 31 0a 42 4e 45 20 6c 6f 6f 6f 70 0a 0a 20 |,#1.BNE looop.. |
00002350 4c 44 4d 46 44 20 52 31 33 21 2c 7b 52 30 2d 52 |LDMFD R13!,{R0-R|
00002360 31 32 2c 52 31 35 7d 5e 0a 0a 45 58 50 4f 52 54 |12,R15}^..EXPORT|
00002370 20 6f 75 72 6c 69 62 5f 6e 65 77 0a 2e 6f 75 72 | ourlib_new..our|
00002380 6c 69 62 5f 6e 65 77 0a 53 54 4d 46 44 20 52 31 |lib_new.STMFD R1|
00002390 33 21 2c 7b 52 31 2d 52 36 2c 52 31 34 7d 0a 0a |3!,{R1-R6,R14}..|
000023a0 4c 44 4d 49 41 20 52 30 2c 7b 52 30 2d 52 34 7d |LDMIA R0,{R0-R4}|
000023b0 0a 0a 3b 20 6c 6f 6f 70 20 62 79 20 61 64 64 69 |..; loop by addi|
000023c0 6e 67 20 69 6e 63 72 65 6d 65 6e 74 20 65 61 63 |ng increment eac|
000023d0 68 20 74 69 6d 65 0a 3b 20 43 4d 50 20 52 33 2c |h time.; CMP R3,|
000023e0 52 32 20 3b 0a 4d 4f 56 20 52 36 2c 23 31 30 30 |R2 ;.MOV R6,#100|
000023f0 0a 53 55 42 20 52 36 2c 52 36 2c 52 32 2c 41 53 |.SUB R6,R6,R2,AS|
00002400 52 20 23 31 0a 41 44 44 20 52 35 2c 52 33 2c 52 |R #1.ADD R5,R3,R|
00002410 36 2c 4c 53 4c 20 23 38 0a 41 44 44 20 52 35 2c |6,LSL #8.ADD R5,|
00002420 52 35 2c 52 36 2c 4c 53 4c 20 23 36 0a 41 44 44 |R5,R6,LSL #6.ADD|
00002430 20 52 30 2c 52 30 2c 52 35 0a 4d 4f 56 20 52 36 | R0,R0,R5.MOV R6|
00002440 2c 23 30 0a 4d 4f 56 20 52 32 2c 52 32 2c 4c 53 |,#0.MOV R2,R2,LS|
00002450 52 20 23 31 0a 2e 6c 6f 6f 70 0a 4d 4f 56 20 52 |R #1..loop.MOV R|
00002460 33 2c 52 36 2c 4c 53 52 20 23 31 36 0a 4c 44 52 |3,R6,LSR #16.LDR|
00002470 42 20 52 35 2c 5b 52 31 2c 52 33 2c 4c 53 4c 20 |B R5,[R1,R3,LSL |
00002480 23 36 5d 0a 41 44 44 20 52 36 2c 52 36 2c 52 34 |#6].ADD R6,R6,R4|
00002490 0a 53 54 52 42 20 52 35 2c 5b 52 30 5d 2c 23 33 |.STRB R5,[R0],#3|
000024a0 32 30 0a 0a 4d 4f 56 20 52 33 2c 52 36 2c 4c 53 |20..MOV R3,R6,LS|
000024b0 52 20 23 31 36 0a 4c 44 52 42 20 52 35 2c 5b 52 |R #16.LDRB R5,[R|
000024c0 31 2c 52 33 2c 4c 53 4c 20 23 36 5d 0a 41 44 44 |1,R3,LSL #6].ADD|
000024d0 20 52 36 2c 52 36 2c 52 34 0a 53 54 52 42 20 52 | R6,R6,R4.STRB R|
000024e0 35 2c 5b 52 30 5d 2c 23 33 32 30 0a 0a 53 55 42 |5,[R0],#320..SUB|
000024f0 53 20 52 32 2c 52 32 2c 23 31 0a 42 4c 4e 45 20 |S R2,R2,#1.BLNE |
00002500 6c 6f 6f 70 0a 4c 44 4d 46 44 20 52 31 33 21 2c |loop.LDMFD R13!,|
00002510 7b 52 31 2d 52 36 2c 52 31 35 7d 0a 0a 45 58 50 |{R1-R6,R15}..EXP|
00002520 4f 52 54 20 6f 75 72 6c 69 62 5f 6e 65 77 5f 6d |ORT ourlib_new_m|
00002530 61 73 6b 0a 2e 6f 75 72 6c 69 62 5f 6e 65 77 5f |ask..ourlib_new_|
00002540 6d 61 73 6b 0a 53 54 4d 46 44 20 52 31 33 21 2c |mask.STMFD R13!,|
00002550 7b 52 31 2d 52 36 2c 52 31 34 7d 0a 4c 44 4d 49 |{R1-R6,R14}.LDMI|
00002560 41 20 52 30 2c 7b 52 30 2d 52 34 7d 0a 0a 3b 20 |A R0,{R0-R4}..; |
00002570 6c 6f 6f 70 20 62 79 20 61 64 64 69 6e 67 20 69 |loop by adding i|
00002580 6e 63 72 65 6d 65 6e 74 20 65 61 63 68 20 74 69 |ncrement each ti|
00002590 6d 65 0a 3b 20 43 4d 50 20 52 33 2c 52 32 20 3b |me.; CMP R3,R2 ;|
000025a0 0a 4d 4f 56 20 52 36 2c 23 31 30 30 0a 53 55 42 |.MOV R6,#100.SUB|
000025b0 20 52 36 2c 52 36 2c 52 32 2c 41 53 52 20 23 31 | R6,R6,R2,ASR #1|
000025c0 0a 41 44 44 20 52 35 2c 52 33 2c 52 36 2c 4c 53 |.ADD R5,R3,R6,LS|
000025d0 4c 20 23 38 0a 41 44 44 20 52 35 2c 52 35 2c 52 |L #8.ADD R5,R5,R|
000025e0 36 2c 4c 53 4c 20 23 36 0a 41 44 44 20 52 30 2c |6,LSL #6.ADD R0,|
000025f0 52 30 2c 52 35 0a 4d 4f 56 20 52 36 2c 23 30 0a |R0,R5.MOV R6,#0.|
00002600 0a 4d 4f 56 20 52 37 2c 52 32 2c 4c 53 52 20 23 |.MOV R7,R2,LSR #|
00002610 32 0a 0a 2e 6c 6f 6f 70 6d 0a 4d 4f 56 20 52 33 |2...loopm.MOV R3|
00002620 2c 52 36 2c 4c 53 52 20 23 31 36 0a 4c 44 52 42 |,R6,LSR #16.LDRB|
00002630 20 52 35 2c 5b 52 31 2c 52 33 2c 4c 53 4c 20 23 | R5,[R1,R3,LSL #|
00002640 36 5d 0a 0a 43 4d 50 20 52 35 2c 23 30 0a 53 54 |6]..CMP R5,#0.ST|
00002650 52 4e 45 42 20 52 35 2c 5b 52 30 5d 0a 41 44 44 |RNEB R5,[R0].ADD|
00002660 20 52 30 2c 52 30 2c 23 33 32 30 0a 53 55 42 53 | R0,R0,#320.SUBS|
00002670 20 52 32 2c 52 32 2c 23 31 0a 41 44 44 20 52 36 | R2,R2,#1.ADD R6|
00002680 2c 52 36 2c 52 34 0a 42 4e 45 20 6c 6f 6f 70 6d |,R6,R4.BNE loopm|
00002690 0a 4c 44 4d 46 44 20 52 31 33 21 2c 7b 52 31 2d |.LDMFD R13!,{R1-|
000026a0 52 36 2c 52 31 35 7d 0a 0a 0a 0a 45 58 50 4f 52 |R6,R15}....EXPOR|
000026b0 54 20 6f 75 72 6c 69 62 5f 73 6c 69 76 65 72 0a |T ourlib_sliver.|
000026c0 2e 6f 75 72 6c 69 62 5f 73 6c 69 76 65 72 0a 53 |.ourlib_sliver.S|
000026d0 54 4d 46 44 20 52 31 33 21 2c 7b 52 31 2d 52 31 |TMFD R13!,{R1-R1|
000026e0 32 2c 52 31 34 7d 0a 4c 44 4d 49 41 20 52 30 2c |2,R14}.LDMIA R0,|
000026f0 7b 52 30 2d 52 34 7d 0a 0a 43 4d 50 20 52 33 2c |{R0-R4}..CMP R3,|
00002700 52 32 0a 4d 4f 56 47 45 20 52 33 2c 52 32 0a 0a |R2.MOVGE R3,R2..|
00002710 2f 2a 2e 6e 6f 63 6c 69 70 70 69 6e 67 0a 41 44 |/*.noclipping.AD|
00002720 44 20 52 31 2c 52 31 2c 52 36 2c 4c 53 4c 20 23 |D R1,R1,R6,LSL #|
00002730 31 32 20 3b 20 63 61 6c 63 75 6c 61 74 65 20 6f |12 ; calculate o|
00002740 66 66 73 65 74 20 69 6e 20 77 61 6c 6c 73 5b 5d |ffset in walls[]|
00002750 5b 5d 20 61 72 72 61 79 0a 41 44 44 20 52 31 2c |[] array.ADD R1,|
00002760 52 31 2c 52 32 20 20 20 20 20 20 20 20 20 3b 20 |R1,R2 ; |
00002770 61 64 64 20 74 68 65 20 63 6f 6c 75 6d 6e 20 74 |add the column t|
00002780 6f 20 74 68 69 73 0a 2a 2f 0a 0a 4d 4f 56 20 52 |o this.*/..MOV R|
00002790 38 2c 23 31 30 30 0a 53 55 42 20 52 38 2c 52 38 |8,#100.SUB R8,R8|
000027a0 2c 52 33 2c 4c 53 52 20 23 31 20 3b 20 73 65 74 |,R3,LSR #1 ; set|
000027b0 20 73 74 61 72 74 20 79 20 70 6f 73 0a 41 44 44 | start y pos.ADD|
000027c0 20 52 34 2c 52 34 2c 52 38 2c 4c 53 4c 20 23 38 | R4,R4,R8,LSL #8|
000027d0 20 3b 20 77 6f 72 6b 20 6f 75 74 20 75 73 75 61 | ; work out usua|
000027e0 6c 20 73 63 72 65 65 6e 20 28 33 32 30 78 32 35 |l screen (320x25|
000027f0 36 29 0a 41 44 44 20 52 34 2c 52 34 2c 52 38 2c |6).ADD R4,R4,R8,|
00002800 4c 53 4c 20 23 36 20 3b 20 6f 66 66 73 65 74 20 |LSL #6 ; offset |
00002810 74 6f 20 62 65 67 69 6e 20 6c 6f 6f 70 0a 41 44 |to begin loop.AD|
00002820 44 20 52 30 2c 52 30 2c 52 34 0a 0a 4d 4f 56 20 |D R0,R0,R4..MOV |
00002830 52 38 2c 23 36 34 20 20 20 20 20 20 20 20 3b 20 |R8,#64 ; |
00002840 73 74 61 72 74 20 6c 6f 6f 70 20 63 6f 75 6e 74 |start loop count|
00002850 65 72 0a 4d 4f 56 20 52 37 2c 52 38 0a 0a 43 4d |er.MOV R7,R8..CM|
00002860 50 20 52 33 2c 23 36 34 0a 42 4c 4c 45 20 6c 6f |P R3,#64.BLLE lo|
00002870 6f 70 79 36 34 6c 6f 6f 0a 43 4d 50 20 52 33 2c |opy64loo.CMP R3,|
00002880 23 31 32 37 0a 42 4c 4c 45 20 6c 6f 6f 70 79 31 |#127.BLLE loopy1|
00002890 32 37 6c 6f 6f 0a 43 4d 50 20 52 33 2c 23 31 39 |27loo.CMP R3,#19|
000028a0 31 0a 42 4c 4c 45 20 6c 6f 6f 70 79 31 39 31 6c |1.BLLE loopy191l|
000028b0 6f 6f 0a 42 4c 20 6c 6f 6f 70 79 31 39 32 6c 6f |oo.BL loopy192lo|
000028c0 6f 0a 2e 6c 6f 6f 70 79 36 34 6c 6f 6f 0a 2e 64 |o..loopy64loo..d|
000028d0 6f 64 64 6c 65 36 34 0a 43 4d 50 20 52 37 2c 23 |oddle64.CMP R7,#|
000028e0 36 34 0a 42 4c 4c 54 20 64 6f 6e 65 36 34 6c 6f |64.BLLT done64lo|
000028f0 6f 0a 4c 44 52 42 20 52 39 2c 5b 52 31 5d 20 20 |o.LDRB R9,[R1] |
00002900 20 20 20 20 20 3b 20 69 66 20 73 6f 20 6c 6f 61 | ; if so loa|
00002910 64 20 69 6e 20 70 69 78 65 6c 20 76 61 6c 75 65 |d in pixel value|
00002920 0a 53 54 52 42 20 52 39 2c 5b 52 30 5d 2c 23 33 |.STRB R9,[R0],#3|
00002930 32 30 0a 53 55 42 20 52 37 2c 52 37 2c 23 36 34 |20.SUB R7,R7,#64|
00002940 0a 2e 64 6f 6e 65 36 34 6c 6f 6f 0a 41 44 44 20 |..done64loo.ADD |
00002950 52 31 2c 52 31 2c 23 36 34 0a 41 44 44 20 52 37 |R1,R1,#64.ADD R7|
00002960 2c 52 37 2c 52 33 20 20 20 20 20 20 20 20 20 3b |,R7,R3 ;|
00002970 20 61 64 64 20 73 63 61 6c 65 20 6f 6e 74 6f 20 | add scale onto |
00002980 76 65 72 74 2e 20 65 72 72 6f 72 20 74 65 72 6d |vert. error term|
00002990 0a 53 55 42 53 20 52 38 2c 52 38 2c 23 31 0a 42 |.SUBS R8,R8,#1.B|
000029a0 4c 4e 45 20 6c 6f 6f 70 79 36 34 6c 6f 6f 20 20 |LNE loopy64loo |
000029b0 20 20 20 20 20 20 20 3b 20 6c 6f 6f 70 20 69 66 | ; loop if|
000029c0 20 73 6f 0a 0a 4c 44 4d 46 44 20 52 31 33 21 2c | so..LDMFD R13!,|
000029d0 7b 52 31 2d 52 31 32 2c 52 31 35 7d 5e 0a 2f 2a |{R1-R12,R15}^./*|
000029e0 4d 4f 56 53 20 50 43 2c 52 31 34 2a 2f 0a 0a 0a |MOVS PC,R14*/...|
000029f0 2e 6c 6f 6f 70 79 31 32 37 6c 6f 6f 0a 2e 64 6f |.loopy127loo..do|
00002a00 64 64 6c 65 31 32 37 0a 43 4d 50 20 52 37 2c 23 |ddle127.CMP R7,#|
00002a10 36 34 0a 4c 44 52 42 20 52 39 2c 5b 52 31 5d 20 |64.LDRB R9,[R1] |
00002a20 20 20 20 20 20 20 3b 20 69 66 20 73 6f 20 6c 6f | ; if so lo|
00002a30 61 64 20 69 6e 20 70 69 78 65 6c 20 76 61 6c 75 |ad in pixel valu|
00002a40 65 0a 53 54 52 42 20 52 39 2c 5b 52 30 5d 2c 23 |e.STRB R9,[R0],#|
00002a50 33 32 30 0a 53 55 42 20 52 37 2c 52 37 2c 23 36 |320.SUB R7,R7,#6|
00002a60 34 0a 43 4d 50 20 52 37 2c 23 36 34 0a 42 4c 4c |4.CMP R7,#64.BLL|
00002a70 54 20 64 6f 6e 65 31 32 37 6c 6f 6f 0a 4c 44 52 |T done127loo.LDR|
00002a80 42 20 52 39 2c 5b 52 31 5d 20 20 20 20 20 20 20 |B R9,[R1] |
00002a90 3b 20 69 66 20 73 6f 20 6c 6f 61 64 20 69 6e 20 |; if so load in |
00002aa0 70 69 78 65 6c 20 76 61 6c 75 65 0a 53 54 52 42 |pixel value.STRB|
00002ab0 20 52 39 2c 5b 52 30 5d 2c 23 33 32 30 0a 53 55 | R9,[R0],#320.SU|
00002ac0 42 20 52 37 2c 52 37 2c 23 36 34 0a 2e 64 6f 6e |B R7,R7,#64..don|
00002ad0 65 31 32 37 6c 6f 6f 0a 41 44 44 20 52 31 2c 52 |e127loo.ADD R1,R|
00002ae0 31 2c 23 36 34 0a 41 44 44 20 52 37 2c 52 37 2c |1,#64.ADD R7,R7,|
00002af0 52 33 20 20 20 20 20 20 20 20 20 3b 20 61 64 64 |R3 ; add|
00002b00 20 73 63 61 6c 65 20 6f 6e 74 6f 20 76 65 72 74 | scale onto vert|
00002b10 2e 20 65 72 72 6f 72 20 74 65 72 6d 0a 53 55 42 |. error term.SUB|
00002b20 53 20 52 38 2c 52 38 2c 23 31 0a 42 4c 4e 45 20 |S R8,R8,#1.BLNE |
00002b30 6c 6f 6f 70 79 31 32 37 6c 6f 6f 20 20 20 20 20 |loopy127loo |
00002b40 20 20 20 20 3b 20 6c 6f 6f 70 20 69 66 20 73 6f | ; loop if so|
00002b50 0a 4c 44 4d 46 44 20 52 31 33 21 2c 7b 52 31 2d |.LDMFD R13!,{R1-|
00002b60 52 31 32 2c 52 31 35 7d 5e 0a 0a 2f 2a 4d 4f 56 |R12,R15}^../*MOV|
00002b70 53 20 50 43 2c 52 31 34 2a 2f 0a 0a 0a 2e 6c 6f |S PC,R14*/....lo|
00002b80 6f 70 79 31 39 31 6c 6f 6f 0a 2e 64 6f 64 64 6c |opy191loo..doddl|
00002b90 65 31 39 31 0a 43 4d 50 20 52 37 2c 23 36 34 0a |e191.CMP R7,#64.|
00002ba0 4c 44 52 42 20 52 39 2c 5b 52 31 5d 20 20 20 20 |LDRB R9,[R1] |
00002bb0 20 20 20 3b 20 69 66 20 73 6f 20 6c 6f 61 64 20 | ; if so load |
00002bc0 69 6e 20 70 69 78 65 6c 20 76 61 6c 75 65 0a 53 |in pixel value.S|
00002bd0 54 52 42 20 52 39 2c 5b 52 30 5d 2c 23 33 32 30 |TRB R9,[R0],#320|
00002be0 0a 53 55 42 20 52 37 2c 52 37 2c 23 36 34 0a 43 |.SUB R7,R7,#64.C|
00002bf0 4d 50 20 52 37 2c 23 36 34 0a 4c 44 52 42 20 52 |MP R7,#64.LDRB R|
00002c00 39 2c 5b 52 31 5d 20 20 20 20 20 20 20 3b 20 69 |9,[R1] ; i|
00002c10 66 20 73 6f 20 6c 6f 61 64 20 69 6e 20 70 69 78 |f so load in pix|
00002c20 65 6c 20 76 61 6c 75 65 0a 53 54 52 42 20 52 39 |el value.STRB R9|
00002c30 2c 5b 52 30 5d 2c 23 33 32 30 0a 53 55 42 20 52 |,[R0],#320.SUB R|
00002c40 37 2c 52 37 2c 23 36 34 0a 43 4d 50 20 52 37 2c |7,R7,#64.CMP R7,|
00002c50 23 36 34 0a 42 4c 54 20 64 6f 6e 65 31 39 31 6c |#64.BLT done191l|
00002c60 6f 6f 0a 4c 44 52 42 20 52 39 2c 5b 52 31 5d 20 |oo.LDRB R9,[R1] |
00002c70 20 20 20 20 20 20 3b 20 69 66 20 73 6f 20 6c 6f | ; if so lo|
00002c80 61 64 20 69 6e 20 70 69 78 65 6c 20 76 61 6c 75 |ad in pixel valu|
00002c90 65 0a 53 54 52 42 20 52 39 2c 5b 52 30 5d 2c 23 |e.STRB R9,[R0],#|
00002ca0 33 32 30 0a 53 55 42 20 52 37 2c 52 37 2c 23 36 |320.SUB R7,R7,#6|
00002cb0 34 0a 2e 64 6f 6e 65 31 39 31 6c 6f 6f 0a 41 44 |4..done191loo.AD|
00002cc0 44 20 52 31 2c 52 31 2c 23 36 34 0a 41 44 44 20 |D R1,R1,#64.ADD |
00002cd0 52 37 2c 52 37 2c 52 33 20 20 20 20 20 20 20 20 |R7,R7,R3 |
00002ce0 20 3b 20 61 64 64 20 73 63 61 6c 65 20 6f 6e 74 | ; add scale ont|
00002cf0 6f 20 76 65 72 74 2e 20 65 72 72 6f 72 20 74 65 |o vert. error te|
00002d00 72 6d 0a 53 55 42 53 20 52 38 2c 52 38 2c 23 31 |rm.SUBS R8,R8,#1|
00002d10 0a 42 4c 4e 45 20 6c 6f 6f 70 79 31 39 31 6c 6f |.BLNE loopy191lo|
00002d20 6f 20 20 20 20 20 20 20 20 20 3b 20 6c 6f 6f 70 |o ; loop|
00002d30 20 69 66 20 73 6f 0a 4c 44 4d 46 44 20 52 31 33 | if so.LDMFD R13|
00002d40 21 2c 7b 52 31 2d 52 31 32 2c 52 31 35 7d 5e 0a |!,{R1-R12,R15}^.|
00002d50 2f 2a 4d 4f 56 53 20 50 43 2c 52 31 34 2a 2f 0a |/*MOVS PC,R14*/.|
00002d60 0a 0a 2e 6c 6f 6f 70 79 31 39 32 6c 6f 6f 0a 2e |...loopy192loo..|
00002d70 64 6f 64 64 6c 65 31 39 32 0a 43 4d 50 20 52 37 |doddle192.CMP R7|
00002d80 2c 23 36 34 0a 4c 44 52 42 20 52 39 2c 5b 52 31 |,#64.LDRB R9,[R1|
00002d90 5d 20 20 20 20 20 20 20 3b 20 69 66 20 73 6f 20 |] ; if so |
00002da0 6c 6f 61 64 20 69 6e 20 70 69 78 65 6c 20 76 61 |load in pixel va|
00002db0 6c 75 65 0a 53 54 52 42 20 52 39 2c 5b 52 30 5d |lue.STRB R9,[R0]|
00002dc0 2c 23 33 32 30 0a 53 55 42 20 52 37 2c 52 37 2c |,#320.SUB R7,R7,|
00002dd0 23 36 34 0a 43 4d 50 20 52 37 2c 23 36 34 0a 4c |#64.CMP R7,#64.L|
00002de0 44 52 42 20 52 39 2c 5b 52 31 5d 20 20 20 20 20 |DRB R9,[R1] |
00002df0 20 20 3b 20 69 66 20 73 6f 20 6c 6f 61 64 20 69 | ; if so load i|
00002e00 6e 20 70 69 78 65 6c 20 76 61 6c 75 65 0a 53 54 |n pixel value.ST|
00002e10 52 42 20 52 39 2c 5b 52 30 5d 2c 23 33 32 30 0a |RB R9,[R0],#320.|
00002e20 53 55 42 20 52 37 2c 52 37 2c 23 36 34 0a 43 4d |SUB R7,R7,#64.CM|
00002e30 50 20 52 37 2c 23 36 34 0a 4c 44 52 42 20 52 39 |P R7,#64.LDRB R9|
00002e40 2c 5b 52 31 5d 20 20 20 20 20 20 20 3b 20 69 66 |,[R1] ; if|
00002e50 20 73 6f 20 6c 6f 61 64 20 69 6e 20 70 69 78 65 | so load in pixe|
00002e60 6c 20 76 61 6c 75 65 0a 53 54 52 42 20 52 39 2c |l value.STRB R9,|
00002e70 5b 52 30 5d 2c 23 33 32 30 0a 53 55 42 20 52 37 |[R0],#320.SUB R7|
00002e80 2c 52 37 2c 23 36 34 0a 43 4d 50 20 52 37 2c 23 |,R7,#64.CMP R7,#|
00002e90 36 34 0a 42 4c 4c 54 20 64 6f 6e 65 31 39 32 6c |64.BLLT done192l|
00002ea0 6f 6f 0a 4c 44 52 42 20 52 39 2c 5b 52 31 5d 20 |oo.LDRB R9,[R1] |
00002eb0 20 20 20 20 20 20 3b 20 69 66 20 73 6f 20 6c 6f | ; if so lo|
00002ec0 61 64 20 69 6e 20 70 69 78 65 6c 20 76 61 6c 75 |ad in pixel valu|
00002ed0 65 0a 53 54 52 42 20 52 39 2c 5b 52 30 5d 2c 23 |e.STRB R9,[R0],#|
00002ee0 33 32 30 0a 53 55 42 20 52 37 2c 52 37 2c 23 36 |320.SUB R7,R7,#6|
00002ef0 34 0a 2e 64 6f 6e 65 31 39 32 6c 6f 6f 0a 41 44 |4..done192loo.AD|
00002f00 44 20 52 31 2c 52 31 2c 23 36 34 0a 41 44 44 20 |D R1,R1,#64.ADD |
00002f10 52 37 2c 52 37 2c 52 33 20 20 20 20 20 20 20 20 |R7,R7,R3 |
00002f20 20 3b 20 61 64 64 20 73 63 61 6c 65 20 6f 6e 74 | ; add scale ont|
00002f30 6f 20 76 65 72 74 2e 20 65 72 72 6f 72 20 74 65 |o vert. error te|
00002f40 72 6d 0a 53 55 42 53 20 52 38 2c 52 38 2c 23 31 |rm.SUBS R8,R8,#1|
00002f50 0a 42 4c 4e 45 20 6c 6f 6f 70 79 31 39 32 6c 6f |.BLNE loopy192lo|
00002f60 6f 20 20 20 20 20 20 20 20 20 3b 20 6c 6f 6f 70 |o ; loop|
00002f70 20 69 66 20 73 6f 0a 2e 65 6e 64 6f 66 66 75 6e | if so..endoffun|
00002f80 63 74 69 6f 6e 0a 4c 44 4d 46 44 20 52 31 33 21 |ction.LDMFD R13!|
00002f90 2c 7b 52 31 2d 52 31 32 2c 52 31 35 7d 5e 0a 2f |,{R1-R12,R15}^./|
00002fa0 2a 4d 4f 56 53 20 50 43 2c 52 31 34 5e 2a 2f 0a |*MOVS PC,R14^*/.|
00002fb0 0a 45 58 50 4f 52 54 20 6f 75 72 6c 69 62 5f 73 |.EXPORT ourlib_s|
00002fc0 6c 69 76 65 72 78 0a 2e 6f 75 72 6c 69 62 5f 73 |liverx..ourlib_s|
00002fd0 6c 69 76 65 72 78 0a 53 54 4d 46 44 20 52 31 33 |liverx.STMFD R13|
00002fe0 21 2c 7b 52 30 2d 52 31 32 2c 52 31 34 7d 0a 4c |!,{R0-R12,R14}.L|
00002ff0 44 4d 49 41 20 52 30 2c 7b 52 30 2d 52 37 7d 0a |DMIA R0,{R0-R7}.|
00003000 4d 4f 56 20 52 31 30 2c 23 32 35 36 0a 43 4d 50 |MOV R10,#256.CMP|
00003010 20 52 33 2c 52 35 0a 4d 4f 56 47 45 20 52 33 2c | R3,R5.MOVGE R3,|
00003020 52 35 0a 0a 2e 6e 6f 63 6c 69 70 70 69 6e 67 78 |R5...noclippingx|
00003030 0a 41 44 44 20 52 31 2c 52 31 2c 52 36 2c 4c 53 |.ADD R1,R1,R6,LS|
00003040 4c 20 23 31 32 20 3b 20 63 61 6c 63 75 6c 61 74 |L #12 ; calculat|
00003050 65 20 6f 66 66 73 65 74 20 69 6e 20 77 61 6c 6c |e offset in wall|
00003060 73 5b 5d 5b 5d 20 61 72 72 61 79 0a 41 44 44 20 |s[][] array.ADD |
00003070 52 31 2c 52 31 2c 52 32 20 20 20 20 20 20 20 20 |R1,R1,R2 |
00003080 20 3b 20 61 64 64 20 74 68 65 20 63 6f 6c 75 6d | ; add the colum|
00003090 6e 20 74 6f 20 74 68 69 73 0a 4d 4f 56 20 52 38 |n to this.MOV R8|
000030a0 2c 23 31 30 30 0a 53 55 42 20 52 38 2c 52 38 2c |,#100.SUB R8,R8,|
000030b0 52 33 2c 4c 53 52 20 23 31 20 3b 20 73 65 74 20 |R3,LSR #1 ; set |
000030c0 73 74 61 72 74 20 79 20 70 6f 73 0a 41 44 44 20 |start y pos.ADD |
000030d0 52 34 2c 52 34 2c 52 38 2c 4c 53 4c 20 23 38 20 |R4,R4,R8,LSL #8 |
000030e0 3b 20 77 6f 72 6b 20 6f 75 74 20 75 73 75 61 6c |; work out usual|
000030f0 20 73 63 72 65 65 6e 20 28 33 32 30 78 32 35 36 | screen (320x256|
00003100 29 0a 41 44 44 20 52 34 2c 52 34 2c 52 38 2c 4c |).ADD R4,R4,R8,L|
00003110 53 4c 20 23 36 20 3b 20 6f 66 66 73 65 74 20 74 |SL #6 ; offset t|
00003120 6f 20 62 65 67 69 6e 20 6c 6f 6f 70 0a 41 44 44 |o begin loop.ADD|
00003130 20 52 30 2c 52 30 2c 52 34 0a 0a 3b 20 73 65 74 | R0,R0,R4..; set|
00003140 75 70 20 69 6e 63 20 61 6e 64 20 66 69 78 65 64 |up inc and fixed|
00003150 0a 4d 4f 56 20 52 39 2c 23 30 2c 4c 53 4c 20 23 |.MOV R9,#0,LSL #|
00003160 31 36 0a 4d 4f 56 20 52 31 31 2c 23 30 0a 3b 20 |16.MOV R11,#0.; |
00003170 52 33 20 68 6f 6c 64 73 20 63 6f 75 6e 74 65 72 |R3 holds counter|
00003180 0a 2e 6c 6f 6f 70 78 78 78 0a 4c 44 52 42 20 52 |..loopxxx.LDRB R|
00003190 31 30 2c 5b 52 31 2c 52 31 31 2c 4c 53 4c 20 23 |10,[R1,R11,LSL #|
000031a0 36 5d 0a 53 54 52 42 20 52 31 30 2c 5b 52 30 5d |6].STRB R10,[R0]|
000031b0 2c 23 33 32 30 0a 41 44 44 20 52 39 2c 52 39 2c |,#320.ADD R9,R9,|
000031c0 52 37 0a 4d 4f 56 20 52 31 31 2c 52 39 2c 4c 53 |R7.MOV R11,R9,LS|
000031d0 52 20 23 31 36 0a 0a 3b 65 6e 64 78 78 78 0a 53 |R #16..;endxxx.S|
000031e0 55 42 53 20 52 33 2c 52 33 2c 23 31 0a 42 4e 45 |UBS R3,R3,#1.BNE|
000031f0 20 6c 6f 6f 70 78 78 78 0a 0a 0a 4c 44 4d 46 44 | loopxxx...LDMFD|
00003200 20 52 31 33 21 2c 7b 52 30 2d 52 31 32 2c 52 31 | R13!,{R0-R12,R1|
00003210 35 7d 5e 0a 2f 2a 4d 4f 56 53 20 50 43 2c 52 31 |5}^./*MOVS PC,R1|
00003220 34 5e 2a 2f 0a 0a 45 58 50 4f 52 54 20 6f 75 72 |4^*/..EXPORT our|
00003230 6c 69 62 5f 73 6c 6f 77 63 6c 65 61 72 0a 2e 6f |lib_slowclear..o|
00003240 75 72 6c 69 62 5f 73 6c 6f 77 63 6c 65 61 72 0a |urlib_slowclear.|
00003250 53 54 4d 46 44 20 52 31 33 21 2c 7b 52 30 2d 52 |STMFD R13!,{R0-R|
00003260 35 2c 52 31 34 7d 0a 0a 2e 63 6c 65 61 72 69 6e |5,R14}...clearin|
00003270 67 0a 53 54 52 42 20 52 32 2c 5b 52 30 2c 52 31 |g.STRB R2,[R0,R1|
00003280 5d 0a 53 55 42 53 20 52 31 2c 52 31 2c 23 31 0a |].SUBS R1,R1,#1.|
00003290 42 4e 45 20 63 6c 65 61 72 69 6e 67 0a 4c 44 4d |BNE clearing.LDM|
000032a0 46 44 20 52 31 33 21 2c 7b 52 30 2d 52 35 2c 52 |FD R13!,{R0-R5,R|
000032b0 31 35 7d 0a 0a 45 58 50 4f 52 54 20 6f 75 72 6c |15}..EXPORT ourl|
000032c0 69 62 5f 66 61 73 74 63 6c 67 5f 74 77 6f 0a 2e |ib_fastclg_two..|
000032d0 6f 75 72 6c 69 62 5f 66 61 73 74 63 6c 67 5f 74 |ourlib_fastclg_t|
000032e0 77 6f 0a 0a 53 54 4d 46 44 20 52 31 33 21 2c 7b |wo..STMFD R13!,{|
000032f0 52 30 2d 52 31 32 2c 52 31 34 7d 0a 0a 4d 4f 56 |R0-R12,R14}..MOV|
00003300 20 52 34 2c 23 31 30 30 0a 0a 53 55 42 20 52 34 | R4,#100..SUB R4|
00003310 2c 52 34 2c 52 32 2c 41 53 52 20 23 31 0a 41 44 |,R4,R2,ASR #1.AD|
00003320 44 20 52 31 31 2c 52 30 2c 52 34 2c 4c 53 4c 20 |D R11,R0,R4,LSL |
00003330 23 38 0a 41 44 44 20 52 31 31 2c 52 31 31 2c 52 |#8.ADD R11,R11,R|
00003340 34 2c 4c 53 4c 20 23 36 0a 4d 4f 56 20 52 31 30 |4,LSL #6.MOV R10|
00003350 2c 52 31 31 20 3b 20 73 74 61 72 74 20 6f 66 66 |,R11 ; start off|
00003360 73 65 74 20 63 61 6c 63 75 6c 61 74 65 64 0a 4d |set calculated.M|
00003370 4f 56 20 52 39 2c 52 31 0a 0a 4d 4f 56 20 52 31 |OV R9,R1..MOV R1|
00003380 32 2c 52 32 2c 4c 53 52 20 23 31 0a 0a 4c 44 52 |2,R2,LSR #1..LDR|
00003390 20 52 30 2c 74 6f 70 63 6f 6c 6f 75 72 0a 4d 4f | R0,topcolour.MO|
000033a0 56 20 52 31 2c 52 30 0a 4d 4f 56 20 52 32 2c 52 |V R1,R0.MOV R2,R|
000033b0 30 0a 4d 4f 56 20 52 33 2c 52 30 0a 4d 4f 56 20 |0.MOV R3,R0.MOV |
000033c0 52 34 2c 52 30 0a 4d 4f 56 20 52 35 2c 52 30 0a |R4,R0.MOV R5,R0.|
000033d0 4d 4f 56 20 52 36 2c 52 30 0a 4d 4f 56 20 52 37 |MOV R6,R0.MOV R7|
000033e0 2c 52 30 0a 0a 4d 4f 56 20 52 31 34 2c 52 31 32 |,R0..MOV R14,R12|
000033f0 0a 2e 79 5f 6c 6f 6f 70 0a 4d 4f 56 20 52 38 2c |..y_loop.MOV R8,|
00003400 52 39 2c 4c 53 52 20 23 35 0a 2e 78 5f 6c 6f 6f |R9,LSR #5..x_loo|
00003410 70 0a 0a 53 54 4d 49 41 20 52 31 31 21 2c 7b 52 |p..STMIA R11!,{R|
00003420 30 2d 52 37 7d 0a 53 55 42 53 20 52 38 2c 52 38 |0-R7}.SUBS R8,R8|
00003430 2c 23 31 0a 42 4e 45 20 78 5f 6c 6f 6f 70 0a 0a |,#1.BNE x_loop..|
00003440 41 44 44 20 52 31 30 2c 52 31 30 2c 23 33 32 30 |ADD R10,R10,#320|
00003450 0a 4d 4f 56 20 52 31 31 2c 52 31 30 0a 0a 53 55 |.MOV R11,R10..SU|
00003460 42 53 20 52 31 32 2c 52 31 32 2c 23 31 0a 42 4e |BS R12,R12,#1.BN|
00003470 45 20 79 5f 6c 6f 6f 70 0a 0a 4c 44 52 20 52 30 |E y_loop..LDR R0|
00003480 2c 62 6f 74 74 6f 6d 63 6f 6c 6f 75 72 0a 4d 4f |,bottomcolour.MO|
00003490 56 20 52 31 2c 52 30 0a 4d 4f 56 20 52 32 2c 52 |V R1,R0.MOV R2,R|
000034a0 30 0a 4d 4f 56 20 52 33 2c 52 30 0a 4d 4f 56 20 |0.MOV R3,R0.MOV |
000034b0 52 34 2c 52 30 0a 4d 4f 56 20 52 35 2c 52 30 0a |R4,R0.MOV R5,R0.|
000034c0 4d 4f 56 20 52 36 2c 52 30 0a 4d 4f 56 20 52 37 |MOV R6,R0.MOV R7|
000034d0 2c 52 30 0a 4d 4f 56 20 52 31 32 2c 52 31 34 0a |,R0.MOV R12,R14.|
000034e0 2e 79 5f 6c 6f 6f 70 62 0a 4d 4f 56 20 52 38 2c |.y_loopb.MOV R8,|
000034f0 52 39 2c 4c 53 52 20 23 35 0a 2e 78 5f 6c 6f 6f |R9,LSR #5..x_loo|
00003500 70 62 0a 0a 53 54 4d 49 41 20 52 31 31 21 2c 7b |pb..STMIA R11!,{|
00003510 52 30 2d 52 37 7d 0a 53 55 42 53 20 52 38 2c 52 |R0-R7}.SUBS R8,R|
00003520 38 2c 23 31 0a 42 4e 45 20 78 5f 6c 6f 6f 70 62 |8,#1.BNE x_loopb|
00003530 0a 0a 41 44 44 20 52 31 30 2c 52 31 30 2c 23 33 |..ADD R10,R10,#3|
00003540 32 30 0a 4d 4f 56 20 52 31 31 2c 52 31 30 0a 0a |20.MOV R11,R10..|
00003550 53 55 42 53 20 52 31 32 2c 52 31 32 2c 23 31 0a |SUBS R12,R12,#1.|
00003560 42 4e 45 20 79 5f 6c 6f 6f 70 62 0a 0a 0a 0a 0a |BNE y_loopb.....|
00003570 0a 0a 0a 0a 0a 0a 4c 44 4d 46 44 20 52 31 33 21 |......LDMFD R13!|
00003580 2c 7b 52 30 2d 52 31 32 2c 52 31 35 7d 5e 0a 0a |,{R0-R12,R15}^..|
00003590 0a 45 58 50 4f 52 54 20 6f 75 72 6c 69 62 5f 66 |.EXPORT ourlib_f|
000035a0 61 73 74 63 6c 67 0a 2e 6f 75 72 6c 69 62 5f 66 |astclg..ourlib_f|
000035b0 61 73 74 63 6c 67 0a 53 54 4d 46 44 20 52 31 33 |astclg.STMFD R13|
000035c0 21 2c 7b 52 31 2d 52 31 32 2c 52 31 34 7d 0a 0a |!,{R1-R12,R14}..|
000035d0 0a 4d 4f 56 20 52 31 31 2c 52 30 0a 0a 0a 4d 4f |.MOV R11,R0...MO|
000035e0 56 20 52 31 30 2c 23 33 32 0a 0a 4c 44 52 20 52 |V R10,#32..LDR R|
000035f0 30 2c 74 6f 70 63 6f 6c 6f 75 72 0a 4d 4f 56 20 |0,topcolour.MOV |
00003600 52 30 2c 52 30 0a 4d 4f 56 20 52 31 2c 52 30 0a |R0,R0.MOV R1,R0.|
00003610 4d 4f 56 20 52 32 2c 52 30 0a 4d 4f 56 20 52 33 |MOV R2,R0.MOV R3|
00003620 2c 52 30 0a 4d 4f 56 20 52 34 2c 52 30 0a 4d 4f |,R0.MOV R4,R0.MO|
00003630 56 20 52 35 2c 52 30 0a 4d 4f 56 20 52 36 2c 52 |V R5,R0.MOV R6,R|
00003640 30 0a 4d 4f 56 20 52 37 2c 52 30 0a 4d 4f 56 20 |0.MOV R7,R0.MOV |
00003650 52 38 2c 52 30 0a 4d 4f 56 20 52 39 2c 52 30 0a |R8,R0.MOV R9,R0.|
00003660 2e 66 61 73 74 0a 53 54 4d 49 41 20 20 52 31 31 |.fast.STMIA R11|
00003670 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 41 20 |!,{R0-R9}.STMIA |
00003680 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 | R11!,{R0-R9}.ST|
00003690 4d 49 41 20 20 52 31 31 21 2c 7b 52 30 2d 52 39 |MIA R11!,{R0-R9|
000036a0 7d 0a 53 54 4d 49 41 20 20 52 31 31 21 2c 7b 52 |}.STMIA R11!,{R|
000036b0 30 2d 52 39 7d 0a 53 54 4d 49 41 20 20 52 31 31 |0-R9}.STMIA R11|
000036c0 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 41 20 |!,{R0-R9}.STMIA |
000036d0 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 | R11!,{R0-R9}.ST|
000036e0 4d 49 41 20 20 52 31 31 21 2c 7b 52 30 2d 52 39 |MIA R11!,{R0-R9|
000036f0 7d 0a 53 54 4d 49 41 20 20 52 31 31 21 2c 7b 52 |}.STMIA R11!,{R|
00003700 30 2d 52 39 7d 0a 53 54 4d 49 41 20 20 52 31 31 |0-R9}.STMIA R11|
00003710 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 41 20 |!,{R0-R9}.STMIA |
00003720 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 | R11!,{R0-R9}.ST|
00003730 4d 49 41 20 20 52 31 31 21 2c 7b 52 30 2d 52 39 |MIA R11!,{R0-R9|
00003740 7d 0a 53 54 4d 49 41 20 20 52 31 31 21 2c 7b 52 |}.STMIA R11!,{R|
00003750 30 2d 52 39 7d 0a 53 54 4d 49 41 20 20 52 31 31 |0-R9}.STMIA R11|
00003760 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 41 20 |!,{R0-R9}.STMIA |
00003770 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 | R11!,{R0-R9}.ST|
00003780 4d 49 41 20 20 52 31 31 21 2c 7b 52 30 2d 52 39 |MIA R11!,{R0-R9|
00003790 7d 0a 53 54 4d 49 41 20 20 52 31 31 21 2c 7b 52 |}.STMIA R11!,{R|
000037a0 30 2d 52 39 7d 0a 53 54 4d 49 41 20 20 52 31 31 |0-R9}.STMIA R11|
000037b0 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 41 20 |!,{R0-R9}.STMIA |
000037c0 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 | R11!,{R0-R9}.ST|
000037d0 4d 49 41 20 20 52 31 31 21 2c 7b 52 30 2d 52 39 |MIA R11!,{R0-R9|
000037e0 7d 0a 53 54 4d 49 41 20 20 52 31 31 21 2c 7b 52 |}.STMIA R11!,{R|
000037f0 30 2d 52 39 7d 0a 53 54 4d 49 41 20 20 52 31 31 |0-R9}.STMIA R11|
00003800 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 41 20 |!,{R0-R9}.STMIA |
00003810 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 | R11!,{R0-R9}.ST|
00003820 4d 49 41 20 20 52 31 31 21 2c 7b 52 30 2d 52 39 |MIA R11!,{R0-R9|
00003830 7d 0a 53 54 4d 49 41 20 20 52 31 31 21 2c 7b 52 |}.STMIA R11!,{R|
00003840 30 2d 52 39 7d 0a 53 54 4d 49 41 20 20 52 31 31 |0-R9}.STMIA R11|
00003850 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 41 20 |!,{R0-R9}.STMIA |
00003860 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 | R11!,{R0-R9}.ST|
00003870 4d 49 41 20 20 52 31 31 21 2c 7b 52 30 2d 52 39 |MIA R11!,{R0-R9|
00003880 7d 0a 53 54 4d 49 41 20 20 52 31 31 21 2c 7b 52 |}.STMIA R11!,{R|
00003890 30 2d 52 39 7d 0a 53 54 4d 49 41 20 20 52 31 31 |0-R9}.STMIA R11|
000038a0 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 41 20 |!,{R0-R9}.STMIA |
000038b0 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 | R11!,{R0-R9}.ST|
000038c0 4d 49 41 20 20 52 31 31 21 2c 7b 52 30 2d 52 39 |MIA R11!,{R0-R9|
000038d0 7d 0a 53 54 4d 49 41 20 20 52 31 31 21 2c 7b 52 |}.STMIA R11!,{R|
000038e0 30 2d 52 39 7d 0a 53 55 42 53 20 20 20 52 31 30 |0-R9}.SUBS R10|
000038f0 2c 52 31 30 2c 23 31 0a 42 4e 45 20 20 20 20 66 |,R10,#1.BNE f|
00003900 61 73 74 0a 0a 0a 4d 4f 56 20 52 31 30 2c 23 33 |ast...MOV R10,#3|
00003910 32 0a 4c 44 52 20 52 31 2c 62 6f 74 74 6f 6d 63 |2.LDR R1,bottomc|
00003920 6f 6c 6f 75 72 0a 4d 4f 56 20 52 30 2c 52 31 0a |olour.MOV R0,R1.|
00003930 4d 4f 56 20 52 32 2c 52 31 0a 4d 4f 56 20 52 33 |MOV R2,R1.MOV R3|
00003940 2c 52 31 0a 4d 4f 56 20 52 34 2c 52 31 0a 4d 4f |,R1.MOV R4,R1.MO|
00003950 56 20 52 35 2c 52 31 0a 4d 4f 56 20 52 36 2c 52 |V R5,R1.MOV R6,R|
00003960 31 0a 4d 4f 56 20 52 37 2c 52 31 0a 4d 4f 56 20 |1.MOV R7,R1.MOV |
00003970 52 38 2c 52 31 0a 4d 4f 56 20 52 39 2c 52 31 0a |R8,R1.MOV R9,R1.|
00003980 2e 66 61 73 74 32 0a 53 54 4d 49 41 20 20 52 31 |.fast2.STMIA R1|
00003990 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 41 |1!,{R0-R9}.STMIA|
000039a0 20 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 | R11!,{R0-R9}.S|
000039b0 54 4d 49 41 20 20 52 31 31 21 2c 7b 52 30 2d 52 |TMIA R11!,{R0-R|
000039c0 39 7d 0a 53 54 4d 49 41 20 20 52 31 31 21 2c 7b |9}.STMIA R11!,{|
000039d0 52 30 2d 52 39 7d 0a 53 54 4d 49 41 20 20 52 31 |R0-R9}.STMIA R1|
000039e0 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 41 |1!,{R0-R9}.STMIA|
000039f0 20 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 | R11!,{R0-R9}.S|
00003a00 54 4d 49 41 20 20 52 31 31 21 2c 7b 52 30 2d 52 |TMIA R11!,{R0-R|
00003a10 39 7d 0a 53 54 4d 49 41 20 20 52 31 31 21 2c 7b |9}.STMIA R11!,{|
00003a20 52 30 2d 52 39 7d 0a 53 54 4d 49 41 20 20 52 31 |R0-R9}.STMIA R1|
00003a30 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 41 |1!,{R0-R9}.STMIA|
00003a40 20 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 | R11!,{R0-R9}.S|
00003a50 54 4d 49 41 20 20 52 31 31 21 2c 7b 52 30 2d 52 |TMIA R11!,{R0-R|
00003a60 39 7d 0a 53 54 4d 49 41 20 20 52 31 31 21 2c 7b |9}.STMIA R11!,{|
00003a70 52 30 2d 52 39 7d 0a 53 54 4d 49 41 20 20 52 31 |R0-R9}.STMIA R1|
00003a80 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 41 |1!,{R0-R9}.STMIA|
00003a90 20 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 | R11!,{R0-R9}.S|
00003aa0 54 4d 49 41 20 20 52 31 31 21 2c 7b 52 30 2d 52 |TMIA R11!,{R0-R|
00003ab0 39 7d 0a 53 54 4d 49 41 20 20 52 31 31 21 2c 7b |9}.STMIA R11!,{|
00003ac0 52 30 2d 52 39 7d 0a 53 54 4d 49 41 20 20 52 31 |R0-R9}.STMIA R1|
00003ad0 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 41 |1!,{R0-R9}.STMIA|
00003ae0 20 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 | R11!,{R0-R9}.S|
00003af0 54 4d 49 41 20 20 52 31 31 21 2c 7b 52 30 2d 52 |TMIA R11!,{R0-R|
00003b00 39 7d 0a 53 54 4d 49 41 20 20 52 31 31 21 2c 7b |9}.STMIA R11!,{|
00003b10 52 30 2d 52 39 7d 0a 53 54 4d 49 41 20 20 52 31 |R0-R9}.STMIA R1|
00003b20 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 41 |1!,{R0-R9}.STMIA|
00003b30 20 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 | R11!,{R0-R9}.S|
00003b40 54 4d 49 41 20 20 52 31 31 21 2c 7b 52 30 2d 52 |TMIA R11!,{R0-R|
00003b50 39 7d 0a 53 54 4d 49 41 20 20 52 31 31 21 2c 7b |9}.STMIA R11!,{|
00003b60 52 30 2d 52 39 7d 0a 53 54 4d 49 41 20 20 52 31 |R0-R9}.STMIA R1|
00003b70 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 41 |1!,{R0-R9}.STMIA|
00003b80 20 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 | R11!,{R0-R9}.S|
00003b90 54 4d 49 41 20 20 52 31 31 21 2c 7b 52 30 2d 52 |TMIA R11!,{R0-R|
00003ba0 39 7d 0a 53 54 4d 49 41 20 20 52 31 31 21 2c 7b |9}.STMIA R11!,{|
00003bb0 52 30 2d 52 39 7d 0a 53 54 4d 49 41 20 20 52 31 |R0-R9}.STMIA R1|
00003bc0 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 54 4d 49 41 |1!,{R0-R9}.STMIA|
00003bd0 20 20 52 31 31 21 2c 7b 52 30 2d 52 39 7d 0a 53 | R11!,{R0-R9}.S|
00003be0 54 4d 49 41 20 20 52 31 31 21 2c 7b 52 30 2d 52 |TMIA R11!,{R0-R|
00003bf0 39 7d 0a 53 54 4d 49 41 20 20 52 31 31 21 2c 7b |9}.STMIA R11!,{|
00003c00 52 30 2d 52 39 7d 0a 53 55 42 53 20 20 20 52 31 |R0-R9}.SUBS R1|
00003c10 30 2c 52 31 30 2c 23 31 0a 42 4e 45 20 20 20 20 |0,R10,#1.BNE |
00003c20 66 61 73 74 32 0a 4c 44 4d 46 44 20 52 31 33 21 |fast2.LDMFD R13!|
00003c30 2c 7b 52 31 2d 52 31 32 2c 52 31 35 7d 5e 0a 0a |,{R1-R12,R15}^..|
00003c40 0a 2e 74 6f 70 63 6f 6c 6f 75 72 0a 45 51 55 44 |..topcolour.EQUD|
00003c50 20 30 0a 2e 62 6f 74 74 6f 6d 63 6f 6c 6f 75 72 | 0..bottomcolour|
00003c60 0a 45 51 55 44 20 30 0a 2e 73 63 72 65 65 6e 79 |.EQUD 0..screeny|
00003c70 6f 66 66 73 65 74 0a 45 51 55 44 20 30 0a 2e 73 |offset.EQUD 0..s|
00003c80 63 72 65 65 6e 79 73 74 6f 70 0a 45 51 55 44 20 |creenystop.EQUD |
00003c90 30 0a 2e 73 63 72 65 65 6e 78 6f 66 66 73 65 74 |0..screenxoffset|
00003ca0 0a 45 51 55 44 20 30 0a 2e 73 63 72 65 65 6e 78 |.EQUD 0..screenx|
00003cb0 73 74 6f 70 0a 45 51 55 44 20 30 0a 0a 0a 0a 0a |stop.EQUD 0.....|
00003cc0 45 58 50 4f 52 54 20 6f 75 72 6c 69 62 5f 73 65 |EXPORT ourlib_se|
00003cd0 74 75 70 62 61 63 6b 67 72 6f 75 6e 64 0a 2e 6f |tupbackground..o|
00003ce0 75 72 6c 69 62 5f 73 65 74 75 70 5f 62 61 63 6b |urlib_setup_back|
00003cf0 67 72 6f 75 6e 64 0a 53 54 4d 46 44 20 52 31 33 |ground.STMFD R13|
00003d00 21 2c 7b 52 31 2d 52 36 2c 52 31 34 7d 0a 2f 2a |!,{R1-R6,R14}./*|
00003d10 4d 4f 56 20 52 31 30 2c 23 33 32 30 0a 53 55 42 |MOV R10,#320.SUB|
00003d20 20 52 39 2c 52 31 30 2c 52 32 2c 4c 53 52 20 23 | R9,R10,R2,LSR #|
00003d30 31 0a 53 54 52 20 52 39 2c 73 63 72 65 65 6e 78 |1.STR R9,screenx|
00003d40 6f 66 66 73 65 74 0a 53 55 42 20 52 39 2c 52 31 |offset.SUB R9,R1|
00003d50 30 2c 52 39 0a 53 54 52 20 52 39 2c 73 63 72 65 |0,R9.STR R9,scre|
00003d60 65 6e 78 73 74 6f 70 0a 4d 4f 56 20 52 31 30 2c |enxstop.MOV R10,|
00003d70 23 31 32 38 0a 53 55 42 20 52 39 2c 52 31 30 2c |#128.SUB R9,R10,|
00003d80 52 33 2c 4c 53 52 20 23 31 0a 53 54 52 20 52 39 |R3,LSR #1.STR R9|
00003d90 2c 73 63 72 65 65 6e 79 6f 66 66 73 65 74 0a 4d |,screenyoffset.M|
00003da0 4f 56 20 52 31 30 2c 23 32 35 36 0a 53 55 42 20 |OV R10,#256.SUB |
00003db0 52 39 2c 52 31 30 2c 52 39 0a 53 54 52 20 52 39 |R9,R10,R9.STR R9|
00003dc0 2c 73 63 72 65 65 6e 79 73 74 6f 70 2a 2f 0a 0a |,screenystop*/..|
00003dd0 4d 4f 56 20 52 33 2c 52 30 0a 4d 4f 56 20 52 34 |MOV R3,R0.MOV R4|
00003de0 2c 52 31 0a 0a 4f 52 52 20 52 30 2c 52 30 2c 52 |,R1..ORR R0,R0,R|
00003df0 33 0a 4f 52 52 20 52 30 2c 52 30 2c 52 33 2c 4c |3.ORR R0,R0,R3,L|
00003e00 53 4c 20 23 38 0a 4f 52 52 20 52 30 2c 52 30 2c |SL #8.ORR R0,R0,|
00003e10 52 33 2c 4c 53 4c 20 23 31 36 0a 4f 52 52 20 52 |R3,LSL #16.ORR R|
00003e20 30 2c 52 30 2c 52 33 2c 4c 53 4c 20 23 32 34 0a |0,R0,R3,LSL #24.|
00003e30 53 54 52 20 52 30 2c 74 6f 70 63 6f 6c 6f 75 72 |STR R0,topcolour|
00003e40 0a 0a 4d 4f 56 20 52 30 2c 23 30 0a 4f 52 52 20 |..MOV R0,#0.ORR |
00003e50 52 30 2c 52 30 2c 52 34 0a 4f 52 52 20 52 30 2c |R0,R0,R4.ORR R0,|
00003e60 52 30 2c 52 34 2c 4c 53 4c 20 23 38 0a 4f 52 52 |R0,R4,LSL #8.ORR|
00003e70 20 52 30 2c 52 30 2c 52 34 2c 4c 53 4c 20 23 31 | R0,R0,R4,LSL #1|
00003e80 36 0a 4f 52 52 20 52 30 2c 52 30 2c 52 34 2c 4c |6.ORR R0,R0,R4,L|
00003e90 53 4c 20 23 32 34 0a 53 54 52 20 52 30 2c 62 6f |SL #24.STR R0,bo|
00003ea0 74 74 6f 6d 63 6f 6c 6f 75 72 0a 4c 44 4d 46 44 |ttomcolour.LDMFD|
00003eb0 20 52 31 33 21 2c 7b 52 31 2d 52 36 2c 52 31 35 | R13!,{R1-R6,R15|
00003ec0 7d 5e 0a 0a 45 58 50 4f 52 54 20 63 6f 6c 6f 75 |}^..EXPORT colou|
00003ed0 72 5f 62 6f 78 0a 2e 63 6f 6c 6f 75 72 5f 62 6f |r_box..colour_bo|
00003ee0 78 0a 0a 2f 2a 20 52 30 20 3d 20 76 69 64 65 6f |x../* R0 = video|
00003ef0 5f 61 64 64 72 65 73 73 20 52 31 3d 20 73 74 61 |_address R1= sta|
00003f00 72 74 78 20 52 32 20 3d 20 73 74 61 72 74 79 20 |rtx R2 = starty |
00003f10 52 33 20 3d 20 65 6e 64 78 20 52 34 20 3d 20 65 |R3 = endx R4 = e|
00003f20 6e 64 79 20 52 35 20 3d 20 63 6f 6c 6f 75 72 2a |ndy R5 = colour*|
00003f30 2f 0a 53 54 4d 46 44 20 52 31 33 21 2c 7b 52 31 |/.STMFD R13!,{R1|
00003f40 2d 52 31 30 2c 52 31 34 7d 0a 4c 44 4d 49 41 20 |-R10,R14}.LDMIA |
00003f50 52 30 2c 7b 52 30 2d 52 35 7d 0a 0a 4d 4f 56 20 |R0,{R0-R5}..MOV |
00003f60 52 36 2c 52 32 0a 0a 2e 6c 6f 6f 70 5f 79 0a 4d |R6,R2...loop_y.M|
00003f70 4f 56 20 52 37 2c 52 31 0a 2e 6c 6f 6f 70 5f 78 |OV R7,R1..loop_x|
00003f80 0a 41 44 44 20 52 38 2c 52 37 2c 52 36 2c 4c 53 |.ADD R8,R7,R6,LS|
00003f90 4c 20 23 38 0a 41 44 44 20 52 38 2c 52 38 2c 52 |L #8.ADD R8,R8,R|
00003fa0 36 2c 4c 53 4c 20 23 36 0a 53 54 52 42 20 52 35 |6,LSL #6.STRB R5|
00003fb0 2c 5b 52 30 2c 52 38 5d 0a 41 44 44 20 52 37 2c |,[R0,R8].ADD R7,|
00003fc0 52 37 2c 23 31 0a 43 4d 50 20 52 37 2c 52 33 0a |R7,#1.CMP R7,R3.|
00003fd0 42 4c 54 20 6c 6f 6f 70 5f 78 0a 0a 41 44 44 20 |BLT loop_x..ADD |
00003fe0 52 36 2c 52 36 2c 23 31 0a 43 4d 50 20 52 36 2c |R6,R6,#1.CMP R6,|
00003ff0 52 34 0a 42 4c 54 20 6c 6f 6f 70 5f 79 0a 0a 4c |R4.BLT loop_y..L|
00004000 44 4d 46 44 20 52 31 33 21 2c 7b 52 31 2d 52 31 |DMFD R13!,{R1-R1|
00004010 30 2c 50 43 7d 0a 0a 0a 0a 0a 0a 0a 45 58 50 4f |0,PC}.......EXPO|
00004020 52 54 20 6f 75 72 6c 69 62 5f 72 61 79 62 61 63 |RT ourlib_raybac|
00004030 6b 0a 2e 6f 75 72 6c 69 62 5f 72 61 79 62 61 63 |k..ourlib_raybac|
00004040 6b 0a 53 54 4d 46 44 20 52 31 33 21 2c 7b 52 31 |k.STMFD R13!,{R1|
00004050 2d 52 31 32 2c 52 31 34 7d 0a 0a 4d 4f 56 20 52 |-R12,R14}..MOV R|
00004060 31 32 2c 23 30 30 30 30 30 30 30 30 30 30 30 30 |12,#000000000000|
00004070 30 30 0a 4d 4f 56 20 52 32 2c 23 32 30 34 38 30 |00.MOV R2,#20480|
00004080 0a 0a 2e 72 61 79 62 61 63 6b 6c 6f 6f 70 0a 53 |...raybackloop.S|
00004090 54 52 20 52 31 32 2c 5b 52 30 2c 23 34 5d 21 0a |TR R12,[R0,#4]!.|
000040a0 53 55 42 53 20 52 32 2c 52 32 20 2c 23 31 0a 42 |SUBS R2,R2 ,#1.B|
000040b0 4e 45 20 72 61 79 62 61 63 6b 6c 6f 6f 70 0a 0a |NE raybackloop..|
000040c0 0a 4c 44 4d 46 44 20 52 31 33 21 2c 7b 52 31 2d |.LDMFD R13!,{R1-|
000040d0 52 31 32 2c 52 31 35 7d 5e 0a 0a 45 58 50 4f 52 |R12,R15}^..EXPOR|
000040e0 54 20 6f 75 72 6c 69 62 5f 77 61 69 74 76 73 79 |T ourlib_waitvsy|
000040f0 6e 63 0a 2e 6f 75 72 6c 69 62 5f 77 61 69 74 76 |nc..ourlib_waitv|
00004100 73 79 6e 63 0a 53 54 4d 46 44 20 52 31 33 21 2c |sync.STMFD R13!,|
00004110 7b 52 31 2d 52 32 2c 52 31 34 7d 0a 4d 4f 56 20 |{R1-R2,R14}.MOV |
00004120 52 30 2c 23 31 39 0a 53 57 49 20 4f 53 5f 42 79 |R0,#19.SWI OS_By|
00004130 74 65 0a 4c 44 4d 46 44 20 52 31 33 21 2c 7b 52 |te.LDMFD R13!,{R|
00004140 31 2d 52 32 2c 52 31 35 7d 5e 0a 0a 45 58 50 4f |1-R2,R15}^..EXPO|
00004150 52 54 20 6f 75 72 6c 69 62 5f 73 63 72 65 65 6e |RT ourlib_screen|
00004160 5f 72 6f 74 61 74 65 0a 2e 6f 75 72 6c 69 62 5f |_rotate..ourlib_|
00004170 73 63 72 65 65 6e 5f 72 6f 74 61 74 65 0a 53 54 |screen_rotate.ST|
00004180 4d 46 44 20 52 31 33 21 2c 7b 52 31 2d 52 34 2c |MFD R13!,{R1-R4,|
00004190 52 31 34 7d 0a 4c 44 52 20 52 31 2c 73 63 72 65 |R14}.LDR R1,scre|
000041a0 65 6e 73 69 7a 65 0a 4c 44 52 20 52 31 2c 73 63 |ensize.LDR R1,sc|
000041b0 72 65 65 6e 73 69 7a 65 0a 2e 72 6f 74 61 74 65 |reensize..rotate|
000041c0 6c 6f 6f 70 0a 4c 44 52 42 20 52 33 2c 5b 52 30 |loop.LDRB R3,[R0|
000041d0 5d 0a 4d 4f 56 20 52 33 2c 52 33 2c 52 4f 52 20 |].MOV R3,R3,ROR |
000041e0 23 32 34 0a 53 54 52 42 20 52 33 2c 5b 52 30 5d |#24.STRB R3,[R0]|
000041f0 2c 23 31 0a 53 55 42 53 20 52 31 2c 52 31 2c 23 |,#1.SUBS R1,R1,#|
00004200 31 0a 42 4e 45 20 72 6f 74 61 74 65 6c 6f 6f 70 |1.BNE rotateloop|
00004210 0a 4c 44 4d 46 44 20 52 31 33 21 2c 7b 52 31 2d |.LDMFD R13!,{R1-|
00004220 52 34 2c 50 43 7d 0a 2e 73 63 72 65 65 6e 73 69 |R4,PC}..screensi|
00004230 7a 65 0a 45 51 55 44 20 38 31 39 32 30 0a 0a 0a |ze.EQUD 81920...|
00004240 0a 0a 45 58 50 4f 52 54 20 6f 75 72 6c 69 62 5f |..EXPORT ourlib_|
00004250 66 61 64 65 5f 6f 75 74 0a 2e 6f 75 72 6c 69 62 |fade_out..ourlib|
00004260 5f 66 61 64 65 5f 6f 75 74 0a 53 54 4d 46 44 20 |_fade_out.STMFD |
00004270 52 31 33 21 2c 7b 52 31 2d 52 37 2c 52 31 34 7d |R13!,{R1-R7,R14}|
00004280 0a 2f 2a 20 52 30 20 3d 20 76 69 64 65 6f 61 64 |./* R0 = videoad|
00004290 64 72 65 73 73 20 52 31 20 3d 20 73 63 72 65 65 |dress R1 = scree|
000042a0 6e 73 69 7a 65 20 2a 2f 0a 0a 41 44 44 20 52 30 |nsize */..ADD R0|
000042b0 2c 52 30 2c 52 31 20 20 20 20 20 20 20 20 20 3b |,R0,R1 ;|
000042c0 20 50 6f 69 6e 74 20 52 30 20 74 6f 20 62 6f 74 | Point R0 to bot|
000042d0 74 6f 6d 20 6f 66 20 73 63 72 65 65 6e 0a 4d 4f |tom of screen.MO|
000042e0 56 20 52 35 2c 23 38 20 20 20 20 20 20 20 20 20 |V R5,#8 |
000042f0 20 20 20 3b 20 4c 6f 6f 70 20 77 69 6c 6c 20 65 | ; Loop will e|
00004300 78 65 63 75 74 65 20 20 23 34 20 63 79 63 6c 65 |xecute #4 cycle|
00004310 73 0a 2e 6f 75 74 65 72 5f 6c 6f 6f 70 20 20 20 |s..outer_loop |
00004320 20 20 20 20 20 20 20 3b 20 4f 75 74 65 72 20 6c | ; Outer l|
00004330 6f 6f 70 20 62 65 67 69 6e 73 0a 4d 4f 56 20 52 |oop begins.MOV R|
00004340 34 2c 52 31 20 20 20 20 20 20 20 20 20 20 20 20 |4,R1 |
00004350 3b 20 4d 6f 76 65 20 73 63 72 65 65 6e 73 69 7a |; Move screensiz|
00004360 65 20 69 6e 74 6f 20 74 65 6d 70 20 52 34 0a 2e |e into temp R4..|
00004370 66 61 64 65 72 5f 6c 6f 6f 70 20 20 20 20 20 20 |fader_loop |
00004380 20 20 20 20 3b 20 49 6e 6e 65 72 20 6c 6f 6f 70 | ; Inner loop|
00004390 20 62 65 67 69 6e 73 0a 53 55 42 20 52 32 2c 52 | begins.SUB R2,R|
000043a0 30 2c 52 34 20 20 20 20 20 20 20 20 20 3b 20 53 |0,R4 ; S|
000043b0 75 62 74 72 61 63 74 20 52 34 20 66 72 6f 6d 20 |ubtract R4 from |
000043c0 73 63 72 65 65 6e 20 70 6f 69 6e 74 65 72 0a 4c |screen pointer.L|
000043d0 44 52 42 20 52 33 2c 5b 52 32 5d 20 20 20 20 20 |DRB R3,[R2] |
000043e0 20 20 20 20 3b 20 4c 6f 61 64 20 74 68 65 20 76 | ; Load the v|
000043f0 61 6c 75 65 20 70 6f 69 6e 74 65 64 20 74 6f 0a |alue pointed to.|
00004400 4d 4f 56 20 52 33 2c 52 33 2c 4c 53 52 20 23 31 |MOV R3,R3,LSR #1|
00004410 20 20 20 20 20 3b 20 53 68 69 66 74 20 28 66 61 | ; Shift (fa|
00004420 64 65 29 20 69 74 0a 53 54 52 42 20 52 33 2c 5b |de) it.STRB R3,[|
00004430 52 32 5d 20 20 20 20 20 20 20 20 20 3b 20 41 6e |R2] ; An|
00004440 64 20 73 74 6f 72 65 20 69 74 20 62 61 63 6b 20 |d store it back |
00004450 77 68 65 72 65 20 69 74 20 77 61 73 0a 53 55 42 |where it was.SUB|
00004460 53 20 52 34 2c 52 34 2c 23 31 20 20 20 20 20 20 |S R4,R4,#1 |
00004470 20 20 3b 20 4d 6f 76 65 20 70 6f 69 6e 74 65 72 | ; Move pointer|
00004480 20 74 6f 20 6e 65 78 74 20 70 69 78 65 6c 0a 42 | to next pixel.B|
00004490 4e 45 20 66 61 64 65 72 5f 6c 6f 6f 70 20 20 20 |NE fader_loop |
000044a0 20 20 20 20 3b 20 4c 6f 6f 70 20 69 66 20 6e 6f | ; Loop if no|
000044b0 74 20 64 6f 6e 65 20 79 65 74 0a 53 55 42 53 20 |t done yet.SUBS |
000044c0 52 35 2c 52 35 2c 23 31 20 20 20 20 20 20 20 20 |R5,R5,#1 |
000044d0 3b 20 44 65 63 72 65 6d 65 6e 74 20 6f 75 74 65 |; Decrement oute|
000044e0 72 20 6c 6f 6f 70 20 63 6f 75 6e 74 65 72 0a 42 |r loop counter.B|
000044f0 4e 45 20 6f 75 74 65 72 5f 6c 6f 6f 70 20 20 20 |NE outer_loop |
00004500 20 20 20 20 3b 20 4c 6f 6f 70 20 61 67 61 69 6e | ; Loop again|
00004510 20 69 66 20 69 6e 63 6f 6d 70 6c 65 74 65 0a 4c | if incomplete.L|
00004520 44 4d 46 44 20 52 31 33 21 2c 7b 52 31 2d 52 37 |DMFD R13!,{R1-R7|
00004530 2c 50 43 7d 5e 0a 0a 45 58 50 4f 52 54 20 6f 75 |,PC}^..EXPORT ou|
00004540 72 6c 69 62 5f 63 6f 6c 6f 75 72 73 63 72 65 65 |rlib_colourscree|
00004550 6e 31 33 0a 2e 6f 75 72 6c 69 62 5f 63 6f 6c 6f |n13..ourlib_colo|
00004560 75 72 73 63 72 65 65 6e 31 33 0a 0a 53 54 4d 46 |urscreen13..STMF|
00004570 44 20 52 31 33 21 2c 7b 52 31 2d 52 31 32 2c 52 |D R13!,{R1-R12,R|
00004580 31 34 7d 0a 2f 2a 20 52 30 20 3d 20 76 69 64 65 |14}./* R0 = vide|
00004590 6f 5f 61 64 64 72 65 73 73 20 52 31 20 3d 20 70 |o_address R1 = p|
000045a0 69 78 65 6c 73 20 52 32 20 3d 20 63 6f 6c 6f 75 |ixels R2 = colou|
000045b0 72 20 2a 2f 0a 0a 2e 6c 6f 6f 70 5f 70 69 78 65 |r */...loop_pixe|
000045c0 6c 0a 53 54 52 42 20 52 32 2c 5b 52 30 2c 52 31 |l.STRB R2,[R0,R1|
000045d0 5d 0a 53 55 42 53 20 52 31 2c 52 31 2c 23 31 0a |].SUBS R1,R1,#1.|
000045e0 42 4e 45 20 6c 6f 6f 70 5f 70 69 78 65 6c 0a 4c |BNE loop_pixel.L|
000045f0 44 4d 46 44 20 52 31 33 21 2c 7b 52 31 2d 52 31 |DMFD R13!,{R1-R1|
00004600 32 2c 52 31 35 7d 5e 0a 0a 0a 45 58 50 4f 52 54 |2,R15}^...EXPORT|
00004610 20 6f 75 72 6c 69 62 5f 66 69 6e 64 73 63 72 65 | ourlib_findscre|
00004620 65 6e 0a 2e 6f 75 72 6c 69 62 5f 66 69 6e 64 73 |en..ourlib_finds|
00004630 63 72 65 65 6e 0a 53 54 4d 46 44 20 52 31 33 21 |creen.STMFD R13!|
00004640 2c 7b 52 31 2d 52 35 2c 52 31 34 7d 0a 41 44 52 |,{R1-R5,R14}.ADR|
00004650 20 52 30 2c 53 63 72 65 65 6e 5f 50 61 72 61 6d | R0,Screen_Param|
00004660 73 0a 41 44 52 20 52 31 2c 53 63 72 65 65 6e 5f |s.ADR R1,Screen_|
00004670 41 64 64 72 65 73 73 0a 53 57 49 20 22 4f 53 5f |Address.SWI "OS_|
00004680 52 65 61 64 56 64 75 56 61 72 69 61 62 6c 65 73 |ReadVduVariables|
00004690 22 0a 4c 44 52 20 52 30 2c 53 63 72 65 65 6e 5f |".LDR R0,Screen_|
000046a0 41 64 64 72 65 73 73 0a 4c 44 4d 46 44 20 52 31 |Address.LDMFD R1|
000046b0 33 21 2c 7b 52 31 2d 52 35 2c 52 31 35 7d 5e 0a |3!,{R1-R5,R15}^.|
000046c0 2e 53 63 72 65 65 6e 5f 41 64 64 72 65 73 73 0a |.Screen_Address.|
000046d0 45 51 55 44 20 30 3b 0a 2e 53 63 72 65 65 6e 5f |EQUD 0;..Screen_|
000046e0 50 61 72 61 6d 73 0a 45 51 55 44 20 31 34 38 3b |Params.EQUD 148;|
000046f0 0a 45 51 55 44 20 2d 31 3b 0a 0a 0a 23 70 72 61 |.EQUD -1;...#pra|
00004700 67 6d 61 20 65 6e 64 61 73 6d 0a 0a 0a 76 6f 69 |gma endasm...voi|
00004710 64 20 6f 75 72 6c 69 62 5f 77 72 69 74 65 28 63 |d ourlib_write(c|
00004720 68 61 72 20 73 74 72 69 6e 67 5b 5d 29 3b 0a 76 |har string[]);.v|
00004730 6f 69 64 20 6f 75 72 6c 69 62 5f 62 69 74 6d 61 |oid ourlib_bitma|
00004740 70 5f 70 6c 6f 74 28 69 6e 74 20 73 74 61 72 74 |p_plot(int start|
00004750 5f 78 2c 69 6e 74 20 73 74 61 72 74 5f 79 2c 69 |_x,int start_y,i|
00004760 6e 74 20 65 6e 64 5f 78 2c 69 6e 74 20 65 6e 64 |nt end_x,int end|
00004770 5f 79 2c 63 68 61 72 20 2a 6d 65 6d 6f 72 79 2c |_y,char *memory,|
00004780 63 68 61 72 20 2a 76 69 64 65 6f 29 3b 0a 76 6f |char *video);.vo|
00004790 69 64 20 6f 75 72 6c 69 62 5f 62 69 74 6d 61 70 |id ourlib_bitmap|
000047a0 5f 67 72 61 62 28 69 6e 74 20 73 74 61 72 74 5f |_grab(int start_|
000047b0 78 2c 69 6e 74 20 73 74 61 72 74 5f 79 2c 69 6e |x,int start_y,in|
000047c0 74 20 65 6e 64 5f 78 2c 69 6e 74 20 65 6e 64 5f |t end_x,int end_|
000047d0 79 2c 63 68 61 72 20 2a 6d 65 6d 6f 72 79 2c 63 |y,char *memory,c|
000047e0 68 61 72 20 2a 76 69 64 65 6f 29 3b 0a 0a 0a 76 |har *video);...v|
000047f0 6f 69 64 20 6f 75 72 6c 69 62 5f 62 69 74 6d 61 |oid ourlib_bitma|
00004800 70 5f 67 72 61 62 28 69 6e 74 20 73 74 61 72 74 |p_grab(int start|
00004810 5f 78 2c 69 6e 74 20 73 74 61 72 74 5f 79 2c 69 |_x,int start_y,i|
00004820 6e 74 20 65 6e 64 5f 78 2c 69 6e 74 20 65 6e 64 |nt end_x,int end|
00004830 5f 79 2c 63 68 61 72 20 2a 6d 65 6d 6f 72 79 2c |_y,char *memory,|
00004840 63 68 61 72 20 2a 76 69 64 65 6f 29 0a 7b 0a 20 |char *video).{. |
00004850 20 69 6e 74 20 6f 66 66 73 65 74 5f 69 6e 5f 6d | int offset_in_m|
00004860 65 6d 6f 72 79 3b 0a 20 20 69 6e 74 20 6f 66 66 |emory;. int off|
00004870 73 65 74 5f 69 6e 5f 73 63 72 65 65 6e 3b 0a 20 |set_in_screen;. |
00004880 20 69 6e 74 20 70 69 78 65 6c 5f 78 2c 70 69 78 | int pixel_x,pix|
00004890 65 6c 5f 79 3b 0a 0a 20 20 66 6f 72 28 6f 66 66 |el_y;.. for(off|
000048a0 73 65 74 5f 69 6e 5f 6d 65 6d 6f 72 79 3d 30 2c |set_in_memory=0,|
000048b0 70 69 78 65 6c 5f 79 3d 73 74 61 72 74 5f 79 3b |pixel_y=start_y;|
000048c0 70 69 78 65 6c 5f 79 3c 3d 65 6e 64 5f 79 3b 70 |pixel_y<=end_y;p|
000048d0 69 78 65 6c 5f 79 2b 2b 29 0a 20 20 7b 0a 20 20 |ixel_y++). {. |
000048e0 20 20 66 6f 72 28 70 69 78 65 6c 5f 78 3d 73 74 | for(pixel_x=st|
000048f0 61 72 74 5f 78 3b 70 69 78 65 6c 5f 78 3c 3d 65 |art_x;pixel_x<=e|
00004900 6e 64 5f 78 3b 70 69 78 65 6c 5f 78 2b 2b 2c 6f |nd_x;pixel_x++,o|
00004910 66 66 73 65 74 5f 69 6e 5f 6d 65 6d 6f 72 79 2b |ffset_in_memory+|
00004920 2b 29 0a 20 20 20 20 7b 0a 20 20 20 20 20 20 6f |+). {. o|
00004930 66 66 73 65 74 5f 69 6e 5f 73 63 72 65 65 6e 3d |ffset_in_screen=|
00004940 70 69 78 65 6c 5f 78 2b 28 70 69 78 65 6c 5f 79 |pixel_x+(pixel_y|
00004950 3c 3c 36 29 2b 28 70 69 78 65 6c 5f 79 3c 3c 38 |<<6)+(pixel_y<<8|
00004960 29 3b 0a 20 20 20 20 20 20 6d 65 6d 6f 72 79 5b |);. memory[|
00004970 6f 66 66 73 65 74 5f 69 6e 5f 6d 65 6d 6f 72 79 |offset_in_memory|
00004980 5d 3d 2a 28 76 69 64 65 6f 2b 6f 66 66 73 65 74 |]=*(video+offset|
00004990 5f 69 6e 5f 73 63 72 65 65 6e 29 3b 0a 0a 20 20 |_in_screen);.. |
000049a0 20 20 7d 0a 20 20 7d 0a 0a 7d 0a 76 6f 69 64 20 | }. }..}.void |
000049b0 6f 75 72 6c 69 62 5f 62 69 74 6d 61 70 5f 70 6c |ourlib_bitmap_pl|
000049c0 6f 74 28 69 6e 74 20 73 74 61 72 74 5f 78 2c 69 |ot(int start_x,i|
000049d0 6e 74 20 73 74 61 72 74 5f 79 2c 69 6e 74 20 65 |nt start_y,int e|
000049e0 6e 64 5f 78 2c 69 6e 74 20 65 6e 64 5f 79 2c 63 |nd_x,int end_y,c|
000049f0 68 61 72 20 2a 6d 65 6d 6f 72 79 2c 63 68 61 72 |har *memory,char|
00004a00 20 2a 76 69 64 65 6f 29 0a 7b 0a 20 20 69 6e 74 | *video).{. int|
00004a10 20 6f 66 66 73 65 74 5f 69 6e 5f 6d 65 6d 6f 72 | offset_in_memor|
00004a20 79 3b 0a 20 20 69 6e 74 20 6f 66 66 73 65 74 5f |y;. int offset_|
00004a30 69 6e 5f 73 63 72 65 65 6e 3b 0a 20 20 69 6e 74 |in_screen;. int|
00004a40 20 70 69 78 65 6c 5f 78 2c 70 69 78 65 6c 5f 79 | pixel_x,pixel_y|
00004a50 3b 0a 0a 20 20 66 6f 72 28 6f 66 66 73 65 74 5f |;.. for(offset_|
00004a60 69 6e 5f 6d 65 6d 6f 72 79 3d 30 2c 70 69 78 65 |in_memory=0,pixe|
00004a70 6c 5f 79 3d 73 74 61 72 74 5f 79 3b 70 69 78 65 |l_y=start_y;pixe|
00004a80 6c 5f 79 3c 3d 65 6e 64 5f 79 3b 70 69 78 65 6c |l_y<=end_y;pixel|
00004a90 5f 79 2b 2b 29 0a 20 20 7b 0a 20 20 20 20 66 6f |_y++). {. fo|
00004aa0 72 28 70 69 78 65 6c 5f 78 3d 73 74 61 72 74 5f |r(pixel_x=start_|
00004ab0 78 3b 70 69 78 65 6c 5f 78 3c 3d 65 6e 64 5f 78 |x;pixel_x<=end_x|
00004ac0 3b 70 69 78 65 6c 5f 78 2b 2b 2c 6f 66 66 73 65 |;pixel_x++,offse|
00004ad0 74 5f 69 6e 5f 6d 65 6d 6f 72 79 2b 2b 29 0a 20 |t_in_memory++). |
00004ae0 20 20 20 7b 0a 20 20 20 20 20 20 6f 66 66 73 65 | {. offse|
00004af0 74 5f 69 6e 5f 73 63 72 65 65 6e 3d 70 69 78 65 |t_in_screen=pixe|
00004b00 6c 5f 78 2b 28 70 69 78 65 6c 5f 79 3c 3c 36 29 |l_x+(pixel_y<<6)|
00004b10 2b 28 70 69 78 65 6c 5f 79 3c 3c 38 29 3b 0a 20 |+(pixel_y<<8);. |
00004b20 20 20 20 20 20 2a 28 76 69 64 65 6f 2b 6f 66 66 | *(video+off|
00004b30 73 65 74 5f 69 6e 5f 73 63 72 65 65 6e 29 3d 6d |set_in_screen)=m|
00004b40 65 6d 6f 72 79 5b 6f 66 66 73 65 74 5f 69 6e 5f |emory[offset_in_|
00004b50 6d 65 6d 6f 72 79 5d 3b 0a 20 20 20 20 7d 0a 20 |memory];. }. |
00004b60 20 7d 0a 7d 0a 76 6f 69 64 20 6f 75 72 6c 69 62 | }.}.void ourlib|
00004b70 5f 77 72 69 74 65 28 63 68 61 72 20 73 74 72 69 |_write(char stri|
00004b80 6e 67 5b 5d 29 0a 7b 0a 20 70 72 69 6e 74 66 28 |ng[]).{. printf(|
00004b90 22 25 73 5c 6e 22 2c 73 74 72 69 6e 67 29 3b 0a |"%s\n",string);.|
00004ba0 7d 0a 76 6f 69 64 20 6f 75 72 6c 69 62 5f 62 69 |}.void ourlib_bi|
00004bb0 74 6d 61 70 5f 73 63 61 6c 65 28 63 68 61 72 20 |tmap_scale(char |
00004bc0 2a 73 63 72 65 65 6e 2c 69 6e 74 20 73 63 72 65 |*screen,int scre|
00004bd0 65 6e 78 2c 69 6e 74 20 73 63 72 65 65 6e 79 2c |enx,int screeny,|
00004be0 69 6e 74 20 70 65 72 63 65 6e 74 2c 20 69 6e 74 |int percent, int|
00004bf0 20 77 69 64 74 68 2c 69 6e 74 20 68 65 69 67 68 | width,int heigh|
00004c00 74 2c 63 68 61 72 20 2a 62 69 74 6d 61 70 29 0a |t,char *bitmap).|
00004c10 7b 0a 0a 0a 20 20 20 20 20 20 69 6e 74 20 79 65 |{... int ye|
00004c20 72 72 6f 72 3d 30 3b 0a 0a 20 20 20 20 20 20 2f |rror=0;.. /|
00004c30 2a 69 6e 74 20 73 63 72 65 65 6e 79 3d 28 32 30 |*int screeny=(20|
00004c40 30 2d 70 65 72 63 65 6e 74 29 2f 32 3b 2a 2f 0a |0-percent)/2;*/.|
00004c50 69 6e 74 20 78 65 72 72 6f 72 2c 78 3b 0a 0a 0a |int xerror,x;...|
00004c60 20 20 20 20 20 20 75 6e 73 69 67 6e 65 64 20 69 | unsigned i|
00004c70 6e 74 20 73 63 72 70 74 72 3d 73 63 72 65 65 6e |nt scrptr=screen|
00004c80 79 2a 33 32 30 2b 73 63 72 65 65 6e 78 3b 0a 20 |y*320+screenx;. |
00004c90 20 20 20 20 20 75 6e 73 69 67 6e 65 64 20 69 6e | unsigned in|
00004ca0 74 20 62 69 74 70 74 72 3d 30 3b 0a 0a 20 20 20 |t bitptr=0;.. |
00004cb0 20 20 20 69 6e 74 20 79 3b 0a 75 6e 73 69 67 6e | int y;.unsign|
00004cc0 65 64 20 69 6e 74 20 6f 6c 64 5f 73 63 72 70 74 |ed int old_scrpt|
00004cd0 72 3b 0a 75 6e 73 69 67 6e 65 64 20 69 6e 74 20 |r;.unsigned int |
00004ce0 6f 6c 64 5f 62 69 74 70 74 72 3b 0a 20 20 20 20 |old_bitptr;. |
00004cf0 20 20 66 6f 72 20 28 79 3d 30 3b 20 79 3c 68 65 | for (y=0; y<he|
00004d00 69 67 68 74 3b 20 79 2b 2b 29 20 7b 0a 0a 0a 0a |ight; y++) {....|
00004d10 20 20 20 20 20 20 20 20 79 65 72 72 6f 72 2b 3d | yerror+=|
00004d20 70 65 72 63 65 6e 74 3b 0a 0a 0a 0a 20 20 20 20 |percent;.... |
00004d30 20 20 20 20 77 68 69 6c 65 20 28 79 65 72 72 6f | while (yerro|
00004d40 72 3e 31 30 30 29 20 7b 0a 0a 0a 0a 20 20 20 20 |r>100) {.... |
00004d50 20 20 20 20 20 20 79 65 72 72 6f 72 2d 3d 31 30 | yerror-=10|
00004d60 30 3b 0a 0a 0a 20 20 20 20 20 20 20 20 6f 6c 64 |0;... old|
00004d70 5f 73 63 72 70 74 72 3d 73 63 72 70 74 72 3b 0a |_scrptr=scrptr;.|
00004d80 0a 0a 0a 20 20 20 20 20 20 20 20 20 6f 6c 64 5f |... old_|
00004d90 62 69 74 70 74 72 3d 62 69 74 70 74 72 3b 0a 0a |bitptr=bitptr;..|
00004da0 0a 0a 20 20 20 20 20 20 20 20 20 20 20 78 65 72 |.. xer|
00004db0 72 6f 72 3d 30 3b 0a 0a 0a 0a 20 20 20 20 20 20 |ror=0;.... |
00004dc0 20 20 20 20 66 6f 72 20 28 20 78 3d 30 3b 20 78 | for ( x=0; x|
00004dd0 3c 77 69 64 74 68 3b 20 78 2b 2b 29 20 7b 0a 0a |<width; x++) {..|
00004de0 0a 20 20 20 20 20 20 20 20 20 20 20 20 78 65 72 |. xer|
00004df0 72 6f 72 2b 3d 70 65 72 63 65 6e 74 3b 0a 0a 0a |ror+=percent;...|
00004e00 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c | whil|
00004e10 65 20 28 78 65 72 72 6f 72 3e 31 30 30 29 20 7b |e (xerror>100) {|
00004e20 0a 0a 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 |.... |
00004e30 20 20 78 65 72 72 6f 72 2d 3d 31 30 30 3b 0a 0a | xerror-=100;..|
00004e40 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00004e50 73 63 72 65 65 6e 5b 73 63 72 70 74 72 5d 3d 62 |screen[scrptr]=b|
00004e60 69 74 6d 61 70 5b 62 69 74 70 74 72 5d 3b 0a 0a |itmap[bitptr];..|
00004e70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 |. s|
00004e80 63 72 70 74 72 2b 2b 3b 0a 20 20 20 20 20 20 20 |crptr++;. |
00004e90 20 20 20 20 20 7d 0a 0a 0a 20 20 20 20 20 20 20 | }... |
00004ea0 20 20 20 20 20 62 69 74 70 74 72 2b 2b 3b 0a 20 | bitptr++;. |
00004eb0 20 20 20 20 20 20 20 20 20 7d 0a 0a 0a 0a 20 20 | }.... |
00004ec0 20 20 20 20 20 20 20 20 73 63 72 70 74 72 3d 6f | scrptr=o|
00004ed0 6c 64 5f 73 63 72 70 74 72 2b 33 32 30 3b 0a 0a |ld_scrptr+320;..|
00004ee0 0a 0a 20 20 20 20 20 20 20 20 20 20 62 69 74 70 |.. bitp|
00004ef0 74 72 3d 6f 6c 64 5f 62 69 74 70 74 72 3b 0a 20 |tr=old_bitptr;. |
00004f00 20 20 20 20 20 20 20 7d 0a 0a 0a 0a 20 20 20 20 | }.... |
00004f10 20 20 20 20 62 69 74 70 74 72 2b 3d 77 69 64 74 | bitptr+=widt|
00004f20 68 3b 0a 20 20 20 20 20 20 7d 0a 0a 0a 0a 20 20 |h;. }.... |
00004f30 20 20 7d 0a 0a 76 6f 69 64 20 6f 75 72 6c 69 62 | }..void ourlib|
00004f40 5f 73 63 72 65 65 6e 5f 64 69 73 73 6f 6c 76 65 |_screen_dissolve|
00004f50 28 63 68 61 72 20 2a 73 63 72 65 65 6e 5f 61 64 |(char *screen_ad|
00004f60 64 72 65 73 73 2c 69 6e 74 20 73 63 72 65 65 6e |dress,int screen|
00004f70 5f 73 69 7a 65 29 0a 7b 0a 20 20 69 6e 74 20 6e |_size).{. int n|
00004f80 75 6d 62 65 72 2c 0a 20 20 63 6f 75 6e 74 65 72 |umber,. counter|
00004f90 3b 0a 20 20 66 6c 6f 61 74 20 74 65 6d 70 3b 0a |;. float temp;.|
00004fa0 0a 0a 20 20 66 6f 72 28 63 6f 75 6e 74 65 72 3d |.. for(counter=|
00004fb0 34 30 30 30 30 30 3b 63 6f 75 6e 74 65 72 3e 30 |400000;counter>0|
00004fc0 3b 63 6f 75 6e 74 65 72 2d 2d 29 0a 20 20 7b 0a |;counter--). {.|
00004fd0 20 20 20 6e 75 6d 62 65 72 3d 72 61 6e 64 28 29 | number=rand()|
00004fe0 3b 0a 0a 20 20 20 74 65 6d 70 3d 28 66 6c 6f 61 |;.. temp=(floa|
00004ff0 74 29 6e 75 6d 62 65 72 2f 52 41 4e 44 5f 4d 41 |t)number/RAND_MA|
00005000 58 3b 0a 20 6e 75 6d 62 65 72 3d 28 66 6c 6f 61 |X;. number=(floa|
00005010 74 29 74 65 6d 70 2a 73 63 72 65 65 6e 5f 73 69 |t)temp*screen_si|
00005020 7a 65 3b 3b 0a 69 66 28 6e 75 6d 62 65 72 3e 73 |ze;;.if(number>s|
00005030 63 72 65 65 6e 5f 73 69 7a 65 29 6e 75 6d 62 65 |creen_size)numbe|
00005040 72 3d 73 63 72 65 65 6e 5f 73 69 7a 65 3b 0a 0a |r=screen_size;..|
00005050 20 2a 28 73 63 72 65 65 6e 5f 61 64 64 72 65 73 | *(screen_addres|
00005060 73 2b 6e 75 6d 62 65 72 29 3d 30 3b 0a 0a 20 20 |s+number)=0;.. |
00005070 7d 0a 0a 0a 0a 7d 0a 76 6f 69 64 20 6f 75 72 6c |}....}.void ourl|
00005080 69 62 5f 73 63 72 65 65 6e 5f 73 68 69 66 74 28 |ib_screen_shift(|
00005090 63 68 61 72 20 2a 73 63 72 65 65 6e 5f 61 64 64 |char *screen_add|
000050a0 72 65 73 73 2c 69 6e 74 20 73 63 72 65 65 6e 5f |ress,int screen_|
000050b0 73 69 7a 65 29 0a 7b 0a 20 69 6e 74 20 63 6f 75 |size).{. int cou|
000050c0 6e 74 65 72 3b 0a 0a 0a 20 20 66 6f 72 28 63 6f |nter;... for(co|
000050d0 75 6e 74 65 72 3d 73 63 72 65 65 6e 5f 73 69 7a |unter=screen_siz|
000050e0 65 3b 63 6f 75 6e 74 65 72 3e 30 3b 63 6f 75 6e |e;counter>0;coun|
000050f0 74 65 72 2d 2d 29 0a 20 20 7b 0a 20 2a 28 73 63 |ter--). {. *(sc|
00005100 72 65 65 6e 5f 61 64 64 72 65 73 73 2b 63 6f 75 |reen_address+cou|
00005110 6e 74 65 72 29 3e 3e 3d 31 3b 0a 0a 20 20 7d 0a |nter)>>=1;.. }.|
00005120 0a 0a 0a 7d 0a 0a 76 6f 69 64 20 6f 75 72 6c 69 |...}..void ourli|
00005130 62 5f 73 63 72 65 65 6e 5f 73 77 69 74 63 68 28 |b_screen_switch(|
00005140 63 68 61 72 20 2a 73 63 72 65 65 6e 5f 61 64 64 |char *screen_add|
00005150 72 65 73 73 2c 63 68 61 72 20 2a 6d 65 6d 6f 72 |ress,char *memor|
00005160 79 2c 69 6e 74 20 73 63 72 65 65 6e 5f 73 69 7a |y,int screen_siz|
00005170 65 29 0a 7b 0a 20 20 69 6e 74 20 6e 75 6d 62 65 |e).{. int numbe|
00005180 72 2c 0a 20 20 63 6f 75 6e 74 65 72 3b 0a 20 20 |r,. counter;. |
00005190 66 6c 6f 61 74 20 74 65 6d 70 3b 0a 0a 0a 20 20 |float temp;... |
000051a0 66 6f 72 28 63 6f 75 6e 74 65 72 3d 34 30 30 30 |for(counter=4000|
000051b0 30 30 3b 63 6f 75 6e 74 65 72 3e 30 3b 63 6f 75 |00;counter>0;cou|
000051c0 6e 74 65 72 2d 2d 29 0a 20 20 7b 0a 20 20 20 6e |nter--). {. n|
000051d0 75 6d 62 65 72 3d 72 61 6e 64 28 29 3b 0a 0a 20 |umber=rand();.. |
000051e0 20 20 74 65 6d 70 3d 28 66 6c 6f 61 74 29 6e 75 | temp=(float)nu|
000051f0 6d 62 65 72 2f 52 41 4e 44 5f 4d 41 58 3b 0a 20 |mber/RAND_MAX;. |
00005200 6e 75 6d 62 65 72 3d 28 66 6c 6f 61 74 29 74 65 |number=(float)te|
00005210 6d 70 2a 73 63 72 65 65 6e 5f 73 69 7a 65 3b 3b |mp*screen_size;;|
00005220 0a 69 66 28 6e 75 6d 62 65 72 3e 73 63 72 65 65 |.if(number>scree|
00005230 6e 5f 73 69 7a 65 29 6e 75 6d 62 65 72 3d 73 63 |n_size)number=sc|
00005240 72 65 65 6e 5f 73 69 7a 65 3b 0a 0a 20 2a 28 73 |reen_size;.. *(s|
00005250 63 72 65 65 6e 5f 61 64 64 72 65 73 73 2b 6e 75 |creen_address+nu|
00005260 6d 62 65 72 29 3d 2a 28 6d 65 6d 6f 72 79 2b 6e |mber)=*(memory+n|
00005270 75 6d 62 65 72 29 3b 0a 0a 20 20 7d 0a 0a 7d 0a |umber);.. }..}.|
00005280 
.