Приложение 2. Листинг программы "Океан"
Ниже приводится листинг программы, рисующей заставку с надписью «Океан». Программа оттранслирована ассемблером DUAD.
ocean.asm— исходный код программы на ассемблереocean.lst— листинг программы на ассемблереocean.obj— оттранслированная программа на ассемблере
TITLE Ocean
ORG 9000h
9000 CDC793 CALL ocean@
9003 C9 RET
;--------------------------------------------------------------
0010 = nosprz EQU 16 ;номера спрайтов для заставки (и +1)
;-------------------------------------------------------------
; Подпрограмма записи данных в регистр VDP
; [b] - данные, [c] - номер регистра
9004 78 wrrvdp: LD A,B ; грузим данные
9005 D399 OUT (99H),A ; выкидываем в порт VDP
9007 79 LD A,C ; теперь номер регистра VDP
9008 F680 OR 80H ; устанавливаем 7 бит в 1
900A D399 OUT (99H),A ; выкидываем в порт VDP
900C C9 RET ; возвращаемся
;--------------------------------------------------------------
; данные-"кирпичики" для рисования картинок типа "Океан"
900D FFFFC0C0 block1: DB 0FFh,0FFh,0C0h,0C0h,0C0h,0C0h,080h,0FFh
9011 C0C080FF
9015 91919898 DB 91h, 91H, 98h, 98h, 98h, 98h, 96h, 61h
9019 98989661
901D FFFFFFFF block2: DB 0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
9021 FFFFFFFF
9025 91918181 DB 91h, 91h, 81h, 81h, 81h, 81h, 61h, 61h
9029 81816161
902D FFFEFCFC block3: DB 0FFh,0FEh,0FCh,0FCh,0FCh,0FCh,0FFh,0FFh
9031 FCFCFFFF
9035 91968686 DB 91h, 96h, 86h, 86h, 86h, 86h, 61h, 61h
9039 86866161
;---------------------------------------------------------------
; Подпрограмма подготовки графического режима
; данные для "Шум моря"
903D DEFS 6
9043 1EB71000 DEFB 30,183,16,0,0,0,90,14
9047 00005A0E
904B CD2894 draw: CALL EXchg
; -------- шум моря
904E F7 RST 30h
904F 00 DEFB 0
9050 C000 DEFW 0c0h
9052 214A90 LD HL,draw-1 ; адрес байта данных
; для 13 регистра PSG
9055 3E0D LD a,13 ; кол-во регистров PSG
9057 5E LD e,(HL) ; загрузить данные
9058 F7 RST 30h
9059 00 DEFB 0
905A 9300 DEFW 93h ; записать в регистр
905C 2B DEC HL ; следующий байт данных
905D 3D DEC a ; след.номер регистра PSG
905E F25690 JP p,draw+1 ; если не -1, повт.
; -------- colOR 4=040
9061 011004 LD BC,410H ; записать в 16 регистр VDP
9064 CD0490 CALL wrrvdp ; номер регистра палитры 4
9067 3E04 LD A,4 ; переделать палитру
9069 D39A OUT (9AH),A ; номер 4
906B 3E00 LD A,0
906D D39A OUT (9AH),A
; -------- colOR 15,1,1
906F 210F01 LD HL,10Fh ; загр. номера цветов
9072 22EAF3 LD (0F3EAH),HL; записать в сист.яч.
9075 22E9F3 LD (0F3E9h),HL
; -------- screen 2,2
9078 21E0F3 LD HL,0F3E0h ; адрес регистра 1 VDP
907B CBCE SET 1,(HL) ; размер спрайта 16x16
907D CB86 RES 0,(HL) ; без увеличения
907F F7 RST 30h
9080 00 DEFB 0
9081 7200 DEFW 72H ; screen 2
; -------- clear the sprites
9083 F7 RST 30h
9084 00 DEFB 0
9085 6900 DEFW 69H
; -------- Установка начальной позиции экрана
9087 011758 LD BC,5817H ; начальная строка экрана
; и регистр 23
908A CD0490 CALL wrrvdp ; записать в 23 регистр
908D C5 PUSH BC ; записать данные для
; движения экрана
908E CD2894 CALL EXchg
; ---------------------
; Подпрограмма рисования изображения из кирпичиков (напр: Океан)
; [HL] - адрес картинки, [DE] - x,y, [BC] - размер Y*X
; ---------------------
9091 ED534994 LD (const),DE ; сохр. координаты X,Y
9095 79 LD a,c ; сохр. размер по X
9096 324B94 LD (const+2),a
9099 78 l03: LD A,B ; загруз.размер по Y
909A 82 ADD A,D ; добавить коорд. Y
909B 57 LD D,A ; записать в коорд. Y
909C D5 l04: PUSH DE ; сохранить координаты
909D 7E LD a,(HL) ; загрузить очередной байт
; (блок) картинки
909E CD2894 CALL EXchg
90A1 D1 POP DE ; считать координаты
90A2 210D90 LD HL,block1 ; загрузить адрес 1 кирп.
90A5 FE31 CP '1' ; надо его рисовать ?
90A7 280E JR z,wrvdm ; если да, рисуем
90A9 211D90 LD HL,block2 ; загрузить адрес 2 кирп.
90AC FE32 CP '2' ; надо его рисовать ?
90AE 2807 JR z,wrvdm ; если да, рисуем
90B0 212D90 LD HL,block3 ; загрузить адрес 2 кирп.
90B3 FE33 CP '3' ; надо его рисовать ?
90B5 2010 JR nz,ewrvdm ; если нет, переходим
90B7 D5 wrvdm: PUSH DE ; сохраняем координаты
90B8 0608 LD b,8 ; грузим длину кирпичика
90BA CD8092 CALL ldirvm ; переписываем в VRAM
; по адресу [DE]
90BD D1 POP DE ; считываем координаты
90BE D5 PUSH DE ; опять сохраняем
90BF 7A LD A,D ; загр.ст.байт адр.VRAM
90C0 C620 ADD a,32 ; делаем из адреса
; шаблонов адрес цветов
90C2 57 LD D,A ; записыв. в адрес VRAM
90C3 CD8092 CALL ldirvm ; перепис.в цвета данные
90C6 D1 POP DE ; считываем адрес VRAM
90C7 3E08 ewrvdm: LD a,8 ; грузим длину блока
90C9 83 ADD A,E ; добавл. к младшему
; байту адреса VRAM
90CA 5F LD E,A
90CB D5 PUSH DE ; сохраняем адрес VRAM
90CC CD2894 CALL EXchg
90CF D1 POP DE ; т.е. передаем его
; осн. группе регистров
90D0 23 INC HL ; следующий адрес рисунка
90D1 0D DEC c ; уменьшаем размер по X
90D2 20C8 JR nz,l04 ; если <> 0, то повт.рисов.
90D4 ED5B4994 LD DE,(const) ; загр. исходн.координаты
90D8 3A4B94 LD a,(const+2); востановить размер по X
90DB 4F LD C,A
90DC 10BB DJNZ l03 ; если не все, то повт.
90DE C1 POP BC ; иначе счит.рег.управления
; экраном 23
;--------------------------------------------------------------
; Движение экрана [b] - текущее состояние 23 регистра VDP
; [c] - равен 23 (номер регистра)
90DF CD0490 move: CALL wrrvdp ; сдвинуть экран
90E2 113001 LD DE,130H ; загр. размер задержки
90E5 CD2294 CALL time ; задержка
90E8 04 INC b ; след. позиция экрана
90E9 20F4 JR nz,move ; если не 0, то повт.
90EB CD0490 CALL wrrvdp ; иначе посл.раз сдвин.
; ----------------------
; рисуем кораблик
; ----------------------
90EE 212291 ship: LD HL,shipdt ;адрес блока данных
90F1 11D010 LD DE,10D0h ;координаты Y и X
90F4 010628 LD BC,2806h ; размеры XxY
90F7 C5 PUSH BC ; сохранить размеры
90F8 CD5A92 CALL draw1 ; перебр. данные в шабл.
90FB C1 POP BC ; считать размеры
90FC 11D030 LD DE,30D0h ; адрес цветов
90FF 3E71 LD a,71h ; цвет изображения и фона
9101 CD6492 CALL draw2 ; заполнить цвета
; ----------------------
; пишем спрайты # Nosprz
; ----------------------
9104 3E10 SETspr: LD a,nosprz ; узнаем адрес
9106 F7 RST 30h
9107 00 DEFB 0
9108 8400 DEFW 84h ; шаблона номер
; Nosprz
910A 111292 LD DE,sprz ; грузим адрес данных
; для шаблонов
910D EB EX DE,HL
910E 0640 LD b,64 ; и длину 2 шаблонов
9110 CD8092 CALL ldirvm ; переписываем в VRAM
; вывод спрайтов # Nosprz
9113 3E10 LD a,nosprz ; узнаем адрес
9115 F7 RST 30h
9116 00 DEFB 0
9117 8700 DEFW 87h ; таблицы атрибутов
; плоскости Nosprz
9119 115292 LD DE,xyspr ; грузим адрес
; блока данных
911C EB EX DE,HL
911D 0608 LD b,8 ; и длину блока
911F C38092 JP ldirvm ; переписываем в VRAM
;-----
9122 00000000 shipdt: DEFB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
9126 00000000 0,0,0,0,0,0,0,0,0,0
912A 0000000000000000
9132 00000000000000000000
913C 0102060C DEFB 1,2,6,12,28,78H
9140 1C78
9142 00000000 DEFB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
9146 00000000 0,0,0,0,0,0,0,0,0
914A 0000000000000000
9152 000000000000000000
915B 01020408 DEFB 1,2,4,8,16,32,64,248,248,56,68H,
915F 102040F8 68H,78H,216,232
9163 F838686878D8E8
916A 00000000 DEFB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
916E 00000000 0
9172 000000000000000000
917B 01020408 DEFB 1,2,4,8,16,48,64,81H,1,3,3,3,3,
917F 10304081 7,7,232,98H,88H,232,98H,8,252,4
9183 01030303030707E8
918B 9888E89808FC04
9192 00000000 DEFB 0,0,0,0,0,0,0,0,0
9196 0000000000
919B 01010206 DEFB 1,1,2,6,15,0,0,80H,80H,0,0,0,0,
919F 0F000080 192,48,6,7,7,7,7,7,7,7
91A3 8000000000C03006
91AB 07070707070707
91B2 7C82027E DEFB 7CH,82H,2,7EH,81H,63,68,87H
91B6 813F4487
91BA 000000000000 DEFB 0,0,0,0,0,0
91C0 80C00000 DEFB 80H,192,0,0,0,0,1,0,0,0,12,2,1,
91C4 00000100 0,255,15,2,1,0,0,0,80H,255,255,0
91C8 00000C020100FF0F
91D0 020100000080FFFF00
91D9 007C7830 DEFB 0,7CH,78H,48,32,255,255,1,242,0,
91DD 20FFFF01 0,0,0,224,80H
91E1 F200000000E080
91E8 00000000 DEFB 0,0,0,0,0,0,0,0,0,0
91EC 000000000000
91F2 01061860 DEFB 1,6,24,96,0,0,0,0,241,16,27H
91F6 00000000F11027
91FD 0000000000 DEFB 0,0,0,0,0
9202 0C81F008 DEFB 12,81H,240,8,7,0,0,0,0,0,248
9206 070000000000F8
920D 0000000000 DEFB 0,0,0,0,0
;-----
; данные для спрайтов ДВГУ и МАТФАК
9212 89DAAA8B sprz: DEFB 137,218,170,139,138,0,127,255,
9216 8A007FFF 193,192,0,113,170,170,115,34
921A C1C00071AAAA7322
9222 9F4444C4 DEFB 159,68,68,196,68,0,3,131,255,
9226 44000383FFFE0091 254,0,145,82,92,210,81
922E 525CD251
9232 36555556 DEFB 54,85,85,86,85,85,85,246,0,0,0,
9236 555555F6 48,121,255,207,134
923A 0000003079FFCF86
9242 75554545 DEFB 117,85,69,69,67,65,69,66,0,0,0,
9246 43414542 195,231,255,60,24
924A 000000C3E7FF3C18
;-----
; координаты xy спрайтов # Nosprz
9252 6010400E xyspr:DEFB 60h,10h,nosprz*4,14,60h,0E0h,
9256 60E0440E (nosprz+1)*4,14
;-----------------------------------------------
; заполнение VRAM данными
; [HL] - откуда, [DE] - куда, [BC] - х,y
925A D5 draw1: PUSH DE ; сохранить адрес VRAM
925B CD8092 CALL ldirvm ; переписать блок
925E D1 POP DE ; считать адрес VRAM
925F 14 INC D ; следующая строка
9260 0D DEC C ; если не все,
9261 20F7 JR NZ,draw1 ; то повторить
9263 C9 RET ; иначе возврат
;-----------------------------------------------
; заполнение VRAM const
; [DE] - куда, [BC] - x,y, [a] - const
9264 D5 draw2: PUSH DE ; сохранить адрес
9265 C5 PUSH BC ; VRAM и размеры
9266 CD7292 CALL fillvm ; заполнить строку
9269 C1 POP BC ; считать размеры
926A D1 POP DE ; и адрес VRAM
926B 14 INC D ; следующая строка
926C 0D DEC C ; размер Y=Y-1
926D 20F5 JR NZ,draw2 ; если не все,то
926F C9 RET ; повторить
;-----------------------------------------------
; заполнение VRAM 255
9270 3EFF fvmFF: LD A,255
;-----------------------------------------------
; заполнение VRAM const [a], len [b], adr [DE]
9272 CD7992 fillvm: CALL wrvram ; записать байт во VRAM
9275 13 INC DE
9276 10FA DJNZ $-4 ; повторить, если надо
9278 C9 RET
;-----------------------------------------------
; запись [a] во VRAM [DE] - adr
9279 EB wrvram: EX DE,HL
927A F7 RST 30h
927B 00 DEFB 0
927C 4D00 DEFW 4Dh ;записать в VRAM
927E EB EX DE,HL ; (для msx-2)
927F C9 RET
;-----------------------------------------------
; пересылка RAM в VRAM [HL] source, [DE] DEst, [b] length
9280 C5 ldirvm: PUSH BC ; сохранить регистровую пару
9281 7B LD A,E ; выбросить младший байт
9282 D399 OUT (99h),a ; адреса VRAM
9284 7A LD A,D ; затем старший байт
9285 F640 OR 40h ; выставить 6 бит в 1
9287 D399 OUT (99h),a
9289 0E98 LD c,98h ; загрузить номер порта VDP
928B EDB3 OTIR ; вывести блок
928D C1 POP BC ; считать регистровую пару
928E C9 RET
;===============================================
; Подпрограмма 'ОКЕАН'
928F 20313232 okean: DEFB ' 1223 13 13 1223 13 13 13 13'
9293 33202031
9297 3320203133203132
929F 3233203133202031
92A7 3320313320203133
92AF 31332020 DEFB '13 13 13 13 13 13 13 13 13'
92B3 31332031
92B7 3320313320203133
92BF 2020203133202031
92C7 3320313320203133
92CF 31332020 DEFB '13 13 1223 13 122223 13 13'
92D3 31332031
92D7 3232332020203133
92DF 2020203132323232
92E7 3320313320203133
92EF 31332020 DEFB '13 13 123 123 13 13 122223'
92F3 31332031
92F7 3233202020203132
92FF 3320203133202031
9307 3320313232323233
930F 31332020 DEFB '13 13 1223 13 13 13 13 13'
9313 31332031
9317 3232332020203133
931F 2020203133202031
9327 3320313320203133
932F 31332020 DEFB '13 13 13 13 13 1223 13 13'
9333 31332031
9337 3320313320203133
933F 2020202031323233
9347 2020313320203133
934F 20313232 DEFB ' 1223 13 13 1223 13 13 13'
9353 33202031
9357 3320203133203132
935F 3233202020313320
9367 2020313320203133
;------
936F F7D3C5D3 pbyok: DEFB 247,211,197,211,207,192,218,206,
9373 CFC0DACE 217,202,32,208,201,207,206
9377 D9CA20D0
937B C9CFCE
937E C5D2D3CB DEFB 197,210,211,203,201,202,32,204,
9382 C9CA20CC 193,199,197,210,216,32,227,235
9386 C1C7C5D2D820E3EB
938E 20F7ECEB DEFB 32,247,236,235,243,237,0
9392 F3ED00
9395 28632920 cfib: DEFB '(c) ',199,210,213,208,208,193,
9399 C7D2D5D0 ' F&B, ',247,240,236,' "'
939D D0C12046
93A1 26422C20F7F0EC2022
93AA EFCBC5C1 DEFB 239,203,197,193,206,'", 1988',0
93AE CE222C203139383800
93B7 E2D5C8D4 emar: DEFB 226,213,200,212,193,32,229,205,
93BB C120E5CD 193,210,0
93BF C1D200
93C2 3139383800 year: DEFB '1988',0
;---------------------------------------------
ocean@: ; Рисуем изображение
93C7 218F92 LD HL,okean ; адрес данных
93CA 012007 LD BC,0720h ; размер YxX
93CD 110002 LD DE,0200h ; начальный адрес VRAM
93D0 CD4B90 CALL draw ; рисуем кирпичиками
93D3 3E0F LD a,0Fh ; цветом 15
93D5 116F93 LD DE,pbyOK ; надпись 'Всесоюзный ...'
93D8 210812 LD HL,1208h ; с таких координат
93DB CD0994 CALL print2
93DE 21A261 LD HL,61A2h ; точно также написать
93E1 11B793 LD DE,emar ; 'Бухта Емар'
93E4 3E0F LD A,0Fh
93E6 CD0994 CALL print2
93E9 21AC73 LD HL,73ACh
93EC 11C293 LD DE,year ; и '1988'
93EF 3E0F LD A,0Fh
93F1 CD0994 CALL print2
93F4 111837 LD DE,3718h ; зарисовать строку с
; этими координатами
93F7 06D0 LD B,0D0h ; такой длины
93F9 3EE4 LD A,0E4h ; цветом 4 (фон)
93FB CD7292 CALL fillvm
93FE 3E0E LD A,14 ; установить цвет 14
9400 21B81C LD HL,1CB8h ; и такие координаты
9403 119593 LD DE,cfib ; взять текст '(c)
; группа F&B...'
9406 C30994 JP print2 ; и вывести его на
; экран
;-----------------------------------------------
; Подпрограмма плотной печати в режиме SCREEN 2
; [HL] - x,y, [DE] - адрес надписи, [a] - цвет
9409 32E9F3 print2:ld (0F3E9h),a ; устанавливаем цвет [a]
940C D5 PUSH DE ; сохраняем адрес текста
940D EB EX DE,HL ; заносим в DE координаты
940E 21B9FC LD HL,0FCB9h ; загружаем адрес системных
; координат
9411 73 LD (HL),E ; записываем координату Y
9412 2B DEC HL ; получаем адрес системной
; координаты X
9413 2B DEC HL
9414 72 LD (HL),D ; записываем координату X
9415 D1 POP DE ; считываем адрес текста
9416 1A l08: LD A,(DE) ; грузим очередной байт
; текста
9417 B7 OR A ; проверяем: последний ?
9418 C8 RET Z ; если да, то возврат
9419 F7 RST 30h
941A 00 DEFB 0
941B 8D00 DEFW 8Dh ; иначе печатаем его
941D 35 DEC (HL) ; приращение X = 6,а не 8
; (как в системе)
941E 35 DEC (HL)
941F 13 INC DE ; следующий символ
9420 18F4 JR l08 ; повторить
;-----------------------------------------------
; Подпрограмма задержки
; вход на TIME+3, [DE] - кол-во циклов
; вход на TIME, кол-во циклов = FFFF
9422 1B time: DEC DE ; уменьшить,
9423 7A LD A,D ; если DE <> 0
9424 B3 OR E
9425 20FB JR NZ,time ; то повторить
9427 C9 RET ; иначе возврат
;-----------------------------------------------
9428 F5 EXchg: PUSH AF
9429 E5 PUSH HL
942A 214D94 LD HL,EXxd
942D 7E LD A,(HL)
942E 70 LD (HL),B
942F 47 LD B,A
9430 23 INC HL
9431 7E LD A,(HL)
9432 71 LD (HL),C
9433 4F LD C,A
9434 23 INC HL
9435 7E LD A,(HL)
9436 72 LD (HL),D
9437 57 LD D,A
9438 23 INC HL
9439 7E LD A,(HL)
943A 73 LD (HL),E
943B 5F LD E,A
943C E1 POP HL
943D D5 PUSH DE
943E ED5B5194 LD DE,(EXxd+4)
9442 225194 LD (EXxd+4),HL
9445 EB EX DE,HL
9446 D1 POP DE
9447 F1 POP AF
9448 C9 RET
;-----------------------------------------------
9449 const: DEFS 4
944D EXxd: DEFS 6
END