7Т >Sloader2 BudgieSoft screen loader (all versions) Т Version 0.21 Т (#Т by Richard Murray Winter 1997 2Т <:Т Downloaded from: http://www.heyrick.co.uk/assembler/ F P: ZН ┘ Я Ж$+" at "+ц(·/10) : Ю d: n Рassemble x5Ъ("Save .Loader "+ц~(code%)+" "+ц~(O%)) ┌'Ъ("SetType .Loader &FFC") ▄Ю √: ═щРassemble ╙ ч code% &1000 Є Ц pass% = 4 ╦ 6 ┬ 2 Ў P%=0 х O%=code% р [ OPT pass% э Ф MOV R10, R14 П MOV R0, #&4C З SWI "XOS_Find" BVS exit MOV R5, R0 " ; Skip header , MOV R8, #0 6 .skip_header @ MOV R1, R5 J BL read_byte T ADD R8, R8, #1 ^ CMP R8, #23 h BLT skip_header r | MOV R1, R5 ├ BL read_byte ░ 4 CMP R0, #10 ; Newline - version 0. є BEQ version_zero ў ╦0 CMP R0, #49 ; '1' - version 1. б BEQ version_one л ж0 CMP R0, #50 ; '2' - version 2. Ю BEQ version_two Й Т# ADR R0, unknown_string Ч! SWI "OS_PrettyPrint" SWI "OS_NewLine" SWI "OS_NewLine" B exit & 0 .unknown_string :: EQUS "Unable to load this screen - the format" D. EQUS " has not been recognised..." N EQUB 0 X ALIGN b l v& ; *** VERSION ZERO HANDLER *** ─ ┼ .version_zero ■ B load_old_format · ╗ ╡$ ; *** VERSION НE HANDLER *** ╪ ф .version_one п MOV R1, R5 з BL read_byte Д BL read_byte Н Ь B load_old_format ! ; *** VERSION TWO HANDLER * .version_two 4 MOV R1, R5 > BL read_byte H BL read_byte R \ B load_new_format f p z └ ; *** г≤ ЦMAT г∙ER *** ▌ ≤ .load_old_format ╒# BL switch_screen_mode ╛ BL get_screen_info І BL load_palette ю й .old_loop т MOV R1, R5 ч BL read_byte Х MOV R4, R0 Р BL read_byte Э .old_loop2 SUB R0, R0, #1 STRB R4, [R2, #1]! CMP R0, #0 $ BGT old_loop2 . CMP R2, R3 8 BLT old_loop B L B exit V ` j t ; *** г≈ ЦMAT г∙ER *** ~ ┬ .load_new_format ▓# BL switch_screen_mode ° BL get_screen_info і BL load_palette ╟ ╨ .new_loop д MOV R1, R5 н BL read_byte ь CMP R0, #255 Б BLEQ read_loop Л STRB R0, [R2, #1]! Ж CMP R2, R3 BLT new_loop B exit ( 2 < ; *** RESOURCES *** F P .switch_screen_mode Z MOV R12, R14 d MOV R0, #&87 n SWI "XOS_Byte" x MOV R1, R5 ┌ BL read_byte ▄ CMP R0, R2 √ SWINE &100 + 22 ═ SWINE "OS_WriteC" ╙ Є MOV PC, R12 Ў х .get_screen_info р ADR R0, vdu_block э ADD R1, R0, #12 Ф& SWI "OS_ReadVduVariables" П LDR R2, [R1] З LDR R3, [R1, #4] ADD R3, R3, R2 SUB R2, R2, #1 " MOV PC, R14 , 6 .load_palette @ MOV R12, R14 J MOV R4, #0 T ADR R7, os_block ^ .col_loop h MOV R1, R5 r STRB R4, [R7, #0] | MOV R0, #17 ├ STRB R0, [R7, #1] ░ BL read_byte STRB R0, [R7, #2] є BL read_byte ў STRB R0, [R7, #3] ╦ BL read_byte б STRB R0, [R7, #4] л MOV R0, #&0C ж MOV R1, R7 Ю SWI "OS_Word" Й MOV R1, R5 Т MOV R0, #18 Ч STRB R0, [R7, #1] BL read_byte STRB R0, [R7, #2] BL read_byte & STRB R0, [R7, #3] 0 BL read_byte : STRB R0, [R7, #4] D MOV R0, #&0C N MOV R1, R7 X SWI "OS_Word" b ADD R4, R4, #1 l CMP R4, #16 v BLT col_loop ─ MOV R0, #0 ┼ ■ MOV PC, R12 · ╗ .exit ╡ MOV R2, R0 ╪ MOV R1, R5 ф MOV R0, #0 п SWI "XOS_Find" з MOV PC, R10 Д Н .read_byte Ь SWI "XOS_BGet" MOVVC PC, R14 A .read_loop ; Read and deal with loop data. MOV R1, R5 */ BL read_byte ; Read colour 4 MOV R4, R0 >/ BL read_byte ; Read length H .loop2 R SUB R0, R0, #1 \ STRB R4, [R2, #1]! f1 CMP R0, #0 ; More to loop? p BGT loop2 z2 CMP R2, R3 ; End of screen? └ BLT new_loop ▌ B exit ≤ ╒ .vdu_block ╛ EQUD 149 І EQUD 7 ю EQUD -1 й EQUD 0 т EQUD 0 ч Х .os_block Р EQUD 0 Э EQUB 0 ALIGN ] М $А . Ъ