Rev 126 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download
# file opened: tbiosv14.asm1 0000 ;Transient BIOS v1.4, (c)2003 Zilogator2 0000 ;export from MRS09 by Busy 01/20183 0000 ;sjasmplus adaptation by z00m 01/20184 0000 ;5 0000 ;flasher6 0000 ; org #5b00,07 0000 ; di8 0000 ; call 81879 0000 ; ld a,#8310 0000 ; out (#e3),a11 0000 ; ld hl,#600012 0000 ; ld de,#200013 0000 ; ld bc,#200014 0000 ; ldir15 0000 ; ld a,#4016 0000 ; out (#e3),a17 0000 ; ei18 0000 ; ret19 0000 ;20 0000 ;flash di21 0000 ; call 818722 0000 ; ld a,#8323 0000 ; out (#e3),a24 0000 ; ld hl,#0025 0000 ; ld de,#600026 0000 ; ld bc,#200027 0000 ;fla ld a,(de)28 0000 ; inc de29 0000 ; ld (hl),a30 0000 ; push bc31 0000 ; ld b,032 0000 ;flt cp (hl)33 0000 ; jr z,flb34 0000 ; djnz flt35 0000 ; pop bc36 0000 ;flr xor a37 0000 ; out (#e3),a38 0000 ; ei39 0000 ; ret40 0000 ;flb pop bc41 0000 ; inc hl42 0000 ; dec bc43 0000 ; ld a,b44 0000 ; or c45 0000 ; jr nz,fla46 0000 ; jr flr47 0000 ;48 0000 ;TBIOS starts here49 000050 0000 device zxspectrum4851 000052 0000 org #000053 0000 F3 p0000 di54 0001 AF p0000r xor a55 0002 31 00 40 ld sp,#400056 0005 C3 05 01 jp logoex57 000858 0008 org #000859 0008 2A 5D 5C p0008 ld hl,(#5c5d)60 000B CD DA 00 p0008r call click61 000E E5 push hl62 000F 21 0B 00 ld hl,p0008r63 0012 E3 cont ex (sp),hl64 0013 C3 F9 1F jp offret65 001666 0016 org #001f67 001F FB l001f ei68 0020 C9 ret69 002170 0021 org #003871 0038 18 p0038 db 2472 0039 E5 p0038r push hl73 003A 21 39 00 ld hl,p0038r74 003D 18 D3 jr cont75 003F76 003F org #004d77 004D F5 l004d push af78 004E 3A 22 20 ld a,(#2022)79 0051 A7 and a80 0052 CC DA 00 call z,click81 0055 28 09 jr z,ncnt82 0057 E5 push hl83 0058 2A 20 20 ld hl,(#2020)84 005B 23 inc hl85 005C 22 20 20 ld (#2020),hl86 005F E1 pop hl87 0060 F1 ncnt pop af88 0061 C9 ret89 006290 0062 org #006691 0066 18 p0066 db 2492 0067 E5 p0066r push hl93 0068 D5 push de94 0069 C5 push bc95 006A 3E FD ld a,#fd96 006C DB FE in a,(#fe)97 006E F5 push af98 006F CB 5F bit 3,a99 0071 CC 8C 0B call z,dset100 0074 F1 pop af101 0075 1F rra102 0076 38 05 jr c,nalt103 0078 3E A7 ld a,167104 007A 32 21 80 ld (#8000+adispl),a105 007D 1F nalt rra106 007E 38 0E jr c,nbck107 0080 01 FD 7F ld bc,#7ffd108 0083 3E 17 ld a,23109 0085 ED 79 out (c),a110 0087 AF xor a111 0088 32 20 80 ld (#8001+sdispl),a112 008B ED 56 im 1113 008D 3C inc a114 008E 1F nbck rra115 008F D4 31 0C call nc,ident116 0092 3E FE ld a,#fe117 0094 DB FE in a,(#fe)118 0096 1F rra119 0097 F5 push af120 0098 D4 69 09 call nc,rsect121 009B F1 pop af122 009C CB 5F bit 3,a123 009E CC 25 0A call z,video124 00A1 3E 7F ld a,#7f125 00A3 DB FE in a,(#fe)126 00A5 1F rra127 00A6 38 10 jr c,ntest128 00A8 AF xor a129 00A9 D3 E3 out (#e3),a130 00AB 31 00 40 ld sp,#4000131 00AE CD 80 05 tlop call ramt132 00B1 78 ld a,b133 00B2 B1 or c134 00B3 CA 00 00 jp z,0135 00B6 18 F6 jr tlop136 00B8 1F ntest rra137 00B9 F5 push af138 00BA D4 2F 09 call nc,wsect139 00BD F1 pop af140 00BE F5 push af141 00BF E6 02 and 2142 00C1 CC 3F 0D call z,tread143 00C4 F1 pop af144 00C5 E6 04 and 4145 00C7 CC FE 0C call z,begs146 00CA 3E FB ld a,#fb147 00CC DB FE in a,(#fe)148 00CE E6 10 and 16149 00D0 CC EE 0C call z,taps150 00D3 C1 pop bc151 00D4 D1 pop de152 00D5 E1 pop hl153 00D6 F1 pop af154 00D7 C3 F7 1F jp offrtn155 00DA156 00DA C5 click push bc157 00DB F5 push af158 00DC 3E 08 ld a,8159 00DE 0E AA ld c,#aa160 00E0 06 20 ppp1 ld b,32161 00E2 C5 pppo push bc162 00E3 EE 10 xor #10163 00E5 D3 FE out (#fe),a164 00E7 41 ld b,c165 00E8 10 FE del3 djnz del3166 00EA C1 pop bc167 00EB 10 F5 djnz pppo168 00ED CB 01 rlc c169 00EF 38 EF jr c,ppp1170 00F1 F1 pop af171 00F2 C1 pop bc172 00F3 C9 ret173 00F4174 00F4 21 FF 5A cls ld hl,#5aff175 00F7 3E 47 ld a,#47176 00F9 77 clrscr ld (hl),a177 00FA 2B dec hl178 00FB CB 5C bit 3,h179 00FD 20 01 jr nz,clratr180 00FF AF xor a181 0100 CB 6C clratr bit 5,h182 0102 28 F5 jr z,clrscr183 0104 C9 ret184 0105185 0105 D3 FE logoex out (#fe),a186 0107 D3 E3 out (#e3),a187 0109 32 14 20 ld (#2014),a188 010C 3E 3F ld a,#3f189 010E ED 47 ld i,a190 0110 CD F4 00 call cls191 0113 21 F6 1F ld hl,#1ff6192 0116 11 B4 4F ld de,20404193 0119 CD 0D 09 call lea194 011C 2B dec hl195 011D 11 F6 59 ld de,23030196 0120 CD 0D 09 call lea197 0123 2B dec hl198 0124 11 BF 21 ld de,8639199 0127 CD 0D 09 call lea200 012A CD DA 00 call click201 012D 2B dec hl202 012E 11 FF 4F ld de,20479203 0131 ED 56 im 1204 0133 FB ei205 0134 3E 7F ld a,#7f206 0136 DB FE in a,(#fe)207 0138 E6 10 and 16208 013A 20 0F jr nz,nb209 013C CD 0D 09 call lea210 013F 2B dec hl211 0140 11 FF 59 ld de,23039212 0143 CD 0D 09 call lea213 0146 06 00 ld b,0214 0148 76 lp halt215 0149 10 FD djnz lp216 014B 11 00 F0 nb ld de,#f000217 014E 21 24 06 ld hl,txtho218 0151 CD B1 09 call twa219 0154 06 64 ld b,100220 0156 76 waitpx halt221 0157 3E 7F ld a,#7f222 0159 DB FE in a,(#fe)223 015B E6 1F and #1f224 015D FE 1D cp #1d225 015F 28 26 jr z,atest226 0161 10 F3 ssc djnz waitpx227 0163 F3 di228 0164 01 FD 1F rescon ld bc,#1ffd229 0167 3E 04 ld a,#04230 0169 ED 79 out (c),a231 016B 06 7F ld b,#7f232 016D 3E 10 ld a,#10233 016F ED 79 out (c),a234 0171 AF xor a235 0172 D3 E3 out (#e3),a236 0174 32 22 20 ld (#2022),a237 0177 47 ld b,a238 0178 31 00 3D ld sp,#3d00239 017B 21 FF FF ld hl,#ffff240 017E E5 fillff push hl241 017F 10 FD djnz fillff242 0181 21 01 00 ld hl,p0000r243 0184 C3 FA 1F jp offjph244 0187245 0187 11 00 40 atest ld de,#4000246 018A 3E FD atc ld a,#fd247 018C DB FE in a,(#fe)248 018E E6 1F and #1f249 0190 FE 1E cp #1e250 0192 20 CD jr nz,ssc251 0194 1B dec de252 0195 7A ld a,d253 0196 B3 or e254 0197 20 F1 jr nz,atc255 0199 F3 di256 019A CD DA 00 call click257 019D CD F4 00 wfr call cls258 01A0 DB FE in a,(#fe)259 01A2 2F cpl260 01A3 E6 1F and 31261 01A5 20 F6 jr nz,wfr262 01A7 CD DA 00 call click263 01AA 21 A3 06 ld hl,txtmt264 01AD 11 00 00 ld de,#00265 01B0 CD B1 09 call twa266 01B3 11 00 20 ld de,#2000267 01B6 21 14 20 ld hl,#2014268 01B9 77 ld (hl),a269 01BA 3E 03 ld a,3270 01BC D3 E3 out (#e3),a271 01BE AE xor (hl)272 01BF 77 ld (hl),a273 01C0 BE cp (hl)274 01C1 28 0B jr z,okblik275 01C3 AF xor a276 01C4 D3 E3 out (#e3),a277 01C6 21 B9 06 ld hl,txtnp278 01C9 CD B1 09 call twa279 01CC 18 39 jr btcont280 01CE 3E 80 okblik ld a,#80281 01D0 D3 E3 out (#e3),a282 01D2 32 22 20 ld (#2022),a283 01D5 21 65 06 ld hl,txthn284 01D8 CD B1 09 call twa285 01DB CD 6E 04 call waitk286 01DE CD B1 09 call twa287 01E1 21 00 00 ld hl,0288 01E4 22 20 20 ld (#2020),hl289 01E7 01 4F C4 ld bc,50255290 01EA CD F9 1F blik call offret291 01ED 0B dec bc292 01EE 04 inc b293 01EF 10 F9 djnz blik294 01F1 FF rst #38295 01F2 F3 di296 01F3 AF xor a297 01F4 D3 E3 out (#e3),a298 01F6 D5 push de299 01F7 CD F8 09 call cnp300 01FA D1 pop de301 01FB 21 0F 20 ld hl,#200f302 01FE CD B1 09 call twa303 0201 21 90 06 ld hl,txtrn304 0204 CD B1 09 call twa305 0207 21 EC 06 btcont ld hl,txtht306 020A 11 00 40 ld de,#4000307 020D CD B1 09 call twa308 0210 21 00 60 ld hl,#6000309 0213 E5 push hl310 0214 21 00 C0 ld hl,#c000311 0217 3E 9A ld a,#9a312 0219 D3 7F out (#7f),a313 021B 3E 01 ld a,1314 021D D3 7F out (#7f),a315 021F 4E ld c,(hl)316 0220 0C inc c317 0221 AF xor a318 0222 D3 7F out (#7f),a319 0224 71 ld (hl),c320 0225 3C inc a321 0226 D3 7F out (#7f),a322 0228 7E ld a,(hl)323 0229 B9 cp c324 022A 28 16 jr z,no80325 022C 21 03 07 ld hl,txt80326 022F CD B1 09 call twa327 0232 D1 pop de328 0233 21 12 07 ld hl,txtab329 0236 01 00 80 ld bc,#8000330 0239 3E 80 ld a,#80331 023B CD C2 03 call testcn332 023E D3 7F out (#7f),a333 0240 18 51 jr cont48334 0242 01 FD 7F no80 ld bc,#7ffd335 0245 AF xor a336 0246 ED 79 out (c),a337 0248 7E ld a,(hl)338 0249 3C inc a339 024A 08 ex af,af340 024B 3E 01 ld a,1341 024D ED 79 out (c),a342 024F 08 ex af,af343 0250 77 ld (hl),a344 0251 08 ex af,af345 0252 3D dec a346 0253 ED 79 out (c),a347 0255 08 ex af,af348 0256 BE cp (hl)349 0257 28 33 jr z,no128350 0259 21 0A 07 for128 ld hl,txt128351 025C CD B1 09 call twa352 025F D1 pop de353 0260 3E 08 ld a,8354 0262 3D tlp dec a355 0263 FE 03 cp 3356 0265 20 03 jr nz,nolf357 0267 11 00 80 ld de,#8000358 026A 01 FD 7F nolf ld bc,#7ffd359 026D ED 79 out (c),a360 026F 21 36 07 ld hl,txtpg361 0272 F5 push af362 0273 C6 30 add a,"0"363 0275 32 13 20 ld (#2013),a364 0278 CD B1 09 call twa365 027B 21 13 20 ld hl,#2013366 027E 01 00 C0 ld bc,#c000367 0281 3E 40 ld a,#40368 0283 CD C2 03 call testcn369 0286 F1 pop af370 0287 A7 and a371 0288 20 D8 jr nz,tlp372 028A 18 20 jr hostfn373 028C 21 FC 06 no128 ld hl,txt48374 028F CD B1 09 call twa375 0292 D1 pop de376 0293 21 20 07 cont48 ld hl,txtpm377 0296 01 00 80 ld bc,#8000378 0299 3E 80 ld a,#80379 029B CD C2 03 call testcn380 029E 11 00 80 ld de,#8000381 02A1 01 00 40 ld bc,#4000382 02A4 3E 40 ld a,#40383 02A6 21 29 07 ld hl,txtvr384 02A9 CD C2 03 call testcn385 02AC 21 3B 07 hostfn ld hl,txtmm386 02AF 11 00 A0 ld de,#a000387 02B2 CD B1 09 call twa388 02B5 3E 03 ld a,3389 02B7 D3 E3 out (#e3),a390 02B9 21 00 20 ld hl,#2000391 02BC AE xor (hl)392 02BD 77 ld (hl),a393 02BE BE cp (hl)394 02BF 21 4D 07 ld hl,txtai395 02C2 20 0D jr nz,maprai396 02C4 21 00 00 ld hl,0397 02C7 11 00 20 ld de,#2000398 02CA 42 ld b,d399 02CB 4B ld c,e400 02CC ED B0 ldir401 02CE 21 55 07 ld hl,txtin402 02D1 3E 40 maprai ld a,#40403 02D3 D3 E3 out (#e3),a404 02D5 11 00 C0 ld de,#c000405 02D8 CD B1 09 call twa406 02DB 11 00 E0 ld de,#e000407 02DE CD B1 09 call twa408 02E1 21 86 05 ld hl,stepxc409 02E4 11 00 5B ld de,#5b00410 02E7 01 9E 00 ld bc,txtho-stepxc411 02EA ED B0 ldir412 02EC 21 65 5B ld hl,#5b00+rdispl413 02EF 22 2A 5B ld (#5b01+t1),hl414 02F2 22 42 5B ld (#5b01+t2),hl415 02F5 22 57 5B ld (#5b01+t3),hl416 02F8 21 6D 5B ld hl,#5b00+wdispl417 02FB 22 2D 5B ld (#5b01+t4),hl418 02FE 22 49 5B ld (#5b01+t5),hl419 0301 22 04 5B ld (#5b01+t6),hl420 0304 22 17 5B ld (#5b01+t7),hl421 0307 11 00 08 ld de,#0800422 030A 3E 30 ld a,"0"423 030C F5 dramt push af424 030D 32 13 20 ld (#2013),a425 0310 21 74 07 ld hl,txtdp426 0313 CD B1 09 call twa427 0316 21 13 20 ld hl,#2013428 0319 01 00 20 ld bc,#2000429 031C 3E 20 ld a,#20430 031E CD C2 03 call testcn431 0321 F1 pop af432 0322 3C inc a433 0323 FE 34 cp "4"434 0325 38 E5 jr c,dramt435 0327 21 79 07 ld hl,txtee436 032A 11 00 28 ld de,#2800437 032D CD B1 09 call twa438 0330 11 00 48 ld de,#4800439 0333 CD B1 09 call twa440 0336 CD 6E 04 call waitk441 0339 01 00 00 ld bc,#00442 033C 3E 20 ld a,#20443 033E CD C2 03 call testcn444 0341 11 00 68 ld de,#6800445 0344 21 BF 07 ld hl,txtdd446 0347 CD B1 09 call twa447 034A 11 00 88 ld de,#8800448 034D 3E A0 ld a,160449 034F D3 BB ddl out (#bb),a450 0351 F5 push af451 0352 E5 push hl452 0353 21 F0 07 ld hl,txtdl453 0356 CD B1 09 call twa454 0359 E1 pop hl455 035A CD B1 09 call twa456 035D 3E EC ld a,#ec457 035F CD 5C 04 call waitid458 0362 20 08 jr nz,nohd459 0364 21 04 08 ld hl,txthd460 0367 01 2E 08 ld bc,proghd461 036A 18 0D jr dfou462 036C 3E A1 nohd ld a,#a1463 036E CD 5C 04 call waitid464 0371 20 20 jr nz,nocd465 0373 21 09 08 ld hl,txtcd466 0376 01 2D 08 ld bc,prognl467 0379 C5 dfou push bc468 037A CD B1 09 call twa469 037D 01 A3 00 ld bc,#a3470 0380 21 00 22 ld hl,#2200471 0383 ED B2 inir472 0385 ED B2 inir473 0387 21 15 08 ld hl,progcd474 038A CD 09 04 call prgint475 038D E1 pop hl476 038E CD 09 04 call prgint477 0391 18 06 jr endl478 0393 21 10 08 nocd ld hl,txtno479 0396 CD B1 09 call twa480 0399 F1 endl pop af481 039A 21 F8 07 ld hl,txtsl482 039D 11 00 50 ld de,#5000483 03A0 C6 10 add a,16484 03A2 FE C0 cp 192485 03A4 DA 4F 03 jp c,ddl486 03A7 CD 6E 04 call waitk487 03AA C3 64 01 jp rescon488 03AD489 03AD E5 xchvr push hl490 03AE C5 push bc491 03AF D5 push de492 03B0 21 00 40 ld hl,#4000493 03B3 11 00 22 ld de,#2200494 03B6 01 00 1B ld bc,6912495 03B9 30 01 jr nc,nchan496 03BB EB ex de,hl497 03BC ED B0 nchan ldir498 03BE D1 pop de499 03BF C1 pop bc500 03C0 E1 pop hl501 03C1 C9 ret502 03C2503 03C2 C5 testcn push bc504 03C3 F5 push af505 03C4 CD B1 09 call twa506 03C7 C1 pop bc507 03C8 E1 pop hl508 03C9 0E 00 ld c,0509 03CB D5 push de510 03CC 78 ld a,b511 03CD FE 20 cp #20512 03CF 28 24 jr z,outst513 03D1 EE 40 xor #40514 03D3 CC AD 03 call z,xchvr515 03D6 F5 push af516 03D7 CD 86 05 call stepxc517 03DA F1 pop af518 03DB 37 scf519 03DC CC AD 03 call z,xchvr520 03DF ED 43 20 20 retto ld (#2020),bc521 03E3 CD F8 09 call cnp522 03E6 D1 pop de523 03E7 21 0E 20 ld hl,#200e524 03EA 36 20 ld (hl)," "525 03EC CD B1 09 call twa526 03EF 21 E6 06 ld hl,txbok527 03F2 C3 B1 09 jp twa528 03F5 ED 73 FE 5B outst ld (#5bfe),sp529 03F9 31 FE 5B ld sp,#5bfe530 03FC 11 00 5C ld de,#5c00531 03FF E5 push hl532 0400 C5 push bc533 0401 3A 13 20 ld a,(#2013)534 0404 C6 50 add a,#80-"0"535 0406 C3 79 5B jp #5b00+xdispl536 0409537 0409 7E prgint ld a,(hl)538 040A 23 inc hl539 040B FE FF cp #ff540 040D D0 ret nc541 040E FE FE cp #fe542 0410 30 0C jr nc,appen543 0412 A7 and a544 0413 5F ld e,a545 0414 20 08 jr nz,appen546 0416 3E 20 ld a,32547 0418 82 add a,d548 0419 30 02 jr nc,ldda549 041B C6 08 add a,8550 041D 57 ldda ld d,a551 041E CD B1 09 appen call twa552 0421 4E ld c,(hl)553 0422 23 inc hl554 0423 46 ld b,(hl)555 0424 23 inc hl556 0425 C5 push bc557 0426 46 ld b,(hl)558 0427 23 inc hl559 0428 B6 or (hl)560 0429 23 inc hl561 042A E3 ex (sp),hl562 042B 20 18 jr nz,numb563 042D 7E typp ld a,(hl)564 042E 23 inc hl565 042F 32 13 20 ld (#2013),a566 0432 7E ld a,(hl)567 0433 23 inc hl568 0434 32 12 20 ld (#2012),a569 0437 E5 push hl570 0438 21 12 20 ld hl,#2012571 043B C5 push bc572 043C CD B1 09 call twa573 043F C1 pop bc574 0440 E1 pop hl575 0441 10 EA djnz typp576 0443 18 14 jr pophlc577 0445 4F numb ld c,a578 0446 D5 push de579 0447 EB ex de,hl580 0448 CD FE 09 call cna581 044B D1 pop de582 044C 3E 30 ld a,"0"583 044E 06 13 ld b,19584 0450 2C loops inc l585 0451 BE cp (hl)586 0452 20 02 jr nz,typit587 0454 10 FA djnz loops588 0456 CD B1 09 typit call twa589 0459 E1 pophlc pop hl590 045A 18 AD jr prgint591 045C592 045C FB waitid ei593 045D D3 BF out (#bf),a594 045F 06 FA ld b,250595 0461 DB BF waitil in a,(#bf)596 0463 EE 48 xor #48597 0465 E6 C8 and #c8598 0467 28 03 jr z,waitrt599 0469 76 halt600 046A 10 F5 djnz waitil601 046C F3 waitrt di602 046D C9 ret603 046E604 046E F5 waitk push af605 046F AF wk xor a606 0470 DB FE wtd in a,(#fe)607 0472 2F cpl608 0473 E6 1F and 31609 0475 28 F9 jr z,wtd610 0477 F1 pop af611 0478 C9 ret612 0479613 0479 org #0580614 0580 21 00 40 ramt ld hl,16384615 0583 01 00 C0 ld bc,#c000616 0586 C5 stepxc push bc617 0587 E5 push hl618 0588 AF wrtzrr xor a619 0589 CD F3 05 wrtzer call wflash620 058C 20 29 jr nz,bugx621 058E 0B dec bc622 058F 78 ld a,b623 0590 B1 or c624 0591 20 F5 jr nz,wrtzrr625 0593 E1 pop hl626 0594 C1 pop bc627 0595 C5 push bc628 0596 E5 push hl629 0597 AF lokzer xor a630 0598 B6 or (hl)631 0599 20 1C jr nz,bugx632 059B 3D dec a633 059C CD F3 05 wrtffs call wflash634 059F 20 16 jr nz,bugx635 05A1 0B dec bc636 05A2 78 ld a,b637 05A3 B1 or c638 05A4 20 F1 jr nz,lokzer639 05A6 E1 pop hl640 05A7 C1 pop bc641 05A8 C5 push bc642 05A9 E5 push hl643 05AA 57 ld d,a644 05AB 7E fillx ld a,(hl)645 05AC 3C inc a646 05AD 20 08 jr nz,bugx647 05AF CD EB 05 filly call prand648 05B2 CD F3 05 wrtpos call wflash649 05B5 28 06 jr z,donex650 05B7 E1 bugx pop hl651 05B8 C1 bugy pop bc652 05B9 AF xor a653 05BA 4F ld c,a654 05BB 47 ld b,a655 05BC C9 ret656 05BD 0B donex dec bc657 05BE 78 ld a,b658 05BF B1 or c659 05C0 20 E9 jr nz,fillx660 05C2 E1 pop hl661 05C3 C1 pop bc662 05C4 57 ld d,a663 05C5 C5 push bc664 05C6 E5 push hl665 05C7 CD EB 05 checkx call prand666 05CA BE cp (hl)667 05CB 20 EA jr nz,bugx668 05CD 2F cpl669 05CE CD F3 05 wrtcpl call wflash670 05D1 20 E4 jr nz,bugx671 05D3 0B dec bc672 05D4 78 ld a,b673 05D5 B1 or c674 05D6 20 EF jr nz,checkx675 05D8 E1 pop hl676 05D9 C1 pop bc677 05DA 57 ld d,a678 05DB C5 push bc679 05DC CD EB 05 lastck call prand680 05DF 86 add a,(hl)681 05E0 3C inc a682 05E1 20 D5 jr nz,bugy683 05E3 23 inc hl684 05E4 0B dec bc685 05E5 78 ld a,b686 05E6 B1 or c687 05E7 20 F3 jr nz,lastck688 05E9 C1 pop bc689 05EA C9 ret690 05EB691 05EB 7A prand ld a,d692 05EC 87 add a,a693 05ED 87 add a,a694 05EE 82 add a,d695 05EF 3C inc a696 05F0 57 ld d,a697 05F1 A8 xor b698 05F2 C9 ret699 05F3700 05F3 77 wflash ld (hl),a701 05F4 C5 push bc702 05F5 06 00 ld b,0703 05F7 BE rchck cp (hl)704 05F8 28 02 jr z,retw705 05FA 10 FB djnz rchck706 05FC C1 retw pop bc707 05FD 23 inc hl708 05FE C9 ret709 05FF710 05FF D3 E3 ramts out (#e3),a711 0601 ED B0 ldir712 0603 C1 pop bc713 0604 E1 pop hl714 0605 E5 push hl715 0606 C5 push bc716 0607 CD 00 5B call #5b00717 060A D1 pop de718 060B E1 pop hl719 060C C5 push bc720 060D 01 00 5C ld bc,#5c00721 0610 0A putbg ld a,(bc)722 0611 CD 6D 5B call #5b00+wdispl723 0614 03 inc bc724 0615 1B dec de725 0616 7A ld a,d726 0617 B3 or e727 0618 20 F6 jr nz,putbg728 061A C1 pop bc729 061B ED 7B FE 5B ld sp,(#5bfe)730 061F D3 E3 out (#e3),a731 0621 C3 DF 03 jp retto732 0624733 0624 54 72 61 6E txtho db "Transient BIOS v"733 0628 73 69 65 6E733 062C 74 20 42 49733 0630 4F 53 20 76734 0634 31 2E 34 20 db "1.4 ",#7F," Zilogator "734 0638 7F 20 5A 69734 063C 6C 6F 67 61734 0640 74 6F 72 20735 0644 32 30 30 33 db "2003 - Hold SS+A"735 0648 20 2D 20 48735 064C 6F 6C 64 20735 0650 53 53 2B 41736 0654 20 74 6F 20 db " to run autotest"736 0658 72 75 6E 20736 065C 61 75 74 6F736 0660 74 65 73 74737 0664 00 db 0738 0665 48 6F 6C 64 txthn db "Hold NMI, press "738 0669 20 4E 4D 49738 066D 2C 20 70 72738 0671 65 73 73 20739 0675 6B 65 79 3A db "key: "739 0679 20740 067A 00 db 0741 067B 4D 61 6B 69 txtie db "Making 50000 "741 067F 6E 67 20 35741 0683 30 30 30 30741 0687 20742 0688 65 64 67 65 db "edges, "742 068C 73 2C 20743 068F 00 db 0744 0690 20 64 6F 6E txtrn db " done, "744 0694 65 2C 20745 0697 72 65 6C 65 db "release NMI"745 069B 61 73 65 20745 069F 4E 4D 49746 06A2 00 db 0747 06A3 43 4C 4F 43 txtmt db "CLOCKING LOGIC "747 06A7 4B 49 4E 47747 06AB 20 4C 4F 47747 06AF 49 43 20748 06B2 54 45 53 54 db "TEST: "748 06B6 3A 20749 06B8 00 db 0750 06B9 53 6B 69 70 txtnp db "Skipped, turn off"750 06BD 70 65 64 2C750 06C1 20 74 75 72750 06C5 6E 20 6F 66750 06C9 66751 06CA 20 4D 41 50 db " MAPRAM mode to "751 06CE 52 41 4D 20751 06D2 6D 6F 64 65751 06D6 20 74 6F 20752 06DA 67 65 74 20 db "get it work"752 06DE 69 74 20 77752 06E2 6F 72 6B753 06E5 00 db 0754 06E6 20 4F 4B 20 txbok db " OK "754 06EA 20755 06EB 00 db 0756 06EC 48 4F 53 54 txtht db "HOST RAM TEST "756 06F0 20 52 41 4D756 06F4 20 54 45 53756 06F8 54 20757 06FA 5B db "["758 06FB 00 db 0759 06FC 34 38 4B 42 txt48 db "48KB]:"759 0700 5D 3A760 0702 00 db 0761 0703 38 30 4B 42 txt80 db "80KB]:"761 0707 5D 3A762 0709 00 db 0763 070A 31 32 38 4B txt128 db "128KB]:"763 070E 42 5D 3A764 0711 00 db 0765 0712 41 75 78 69 txtab db "Auxiliary 32k"765 0716 6C 69 61 72765 071A 79 20 33 32765 071E 6B766 071F 00 db 0767 0720 4D 61 69 6E txtpm db "Main 32k"767 0724 20 33 32 6B768 0728 00 db 0769 0729 56 69 64 65 txtvr db "Videoram 16k"769 072D 6F 72 61 6D769 0731 20 31 36 6B770 0735 00 db 0771 0736 50 61 67 65 txtpg db "Page"772 073A 00 db 0773 073B 4D 41 50 52 txtmm db "MAPRAM MODE TEST:"773 073F 41 4D 20 4D773 0743 4F 44 45 20773 0747 54 45 53 54773 074B 3A774 074C 00 db 0775 074D 41 6C 72 65 txtai db "Already "775 0751 61 64 79 20776 0755 4F 4B 2C 20 txtin db "OK, installed"776 0759 69 6E 73 74776 075D 61 6C 6C 65776 0761 64777 0762 00 db 0778 0763 44 49 56 49 txtdm db "DIVIDE RAM TEST:"778 0767 44 45 20 52778 076B 41 4D 20 54778 076F 45 53 54 3A779 0773 00 db 0780 0774 42 61 6E 6B txtdp db "Bank"781 0778 00 db 0782 0779 44 49 56 49 txtee db "DIVIDE EEPROM "782 077D 44 45 20 45782 0781 45 50 52 4F782 0785 4D 20783 0787 54 45 53 54 db "TEST:"783 078B 3A784 078C 00 db 0785 078D 4F 70 65 6E txtrm db "Open EPROM jumper"785 0791 20 45 50 52785 0795 4F 4D 20 6A785 0799 75 6D 70 65785 079D 72786 079E 20 66 6F 72 db " for testing, "786 07A2 20 74 65 73786 07A6 74 69 6E 67786 07AA 2C 20787 07AC 70 72 65 73 db "press key: "787 07B0 73 20 6B 65787 07B4 79 3A 20788 07B7 00 db 0789 07B8 45 65 70 72 txtep db "Eeprom"789 07BC 6F 6D790 07BE 00 db 0791 07BF 44 45 54 45 txtdd db "DETECTING AT-IDE"791 07C3 43 54 49 4E791 07C7 47 20 41 54791 07CB 2D 49 44 45792 07CF 20 41 4E 44 db " AND ATAPI "792 07D3 20 41 54 41792 07D7 50 49 20793 07DA 44 45 56 49 db "DEVICES:"793 07DE 43 45 53 3A794 07E2 00 db 0795 07E3 30 20 5B 4D txtma db "0 [MASTER]: "795 07E7 41 53 54 45795 07EB 52 5D 3A 20796 07EF 00 db 0797 07F0 44 45 56 49 txtdl db "DEVICE "797 07F4 43 45 20798 07F7 00 db 0799 07F8 31 20 5B 53 txtsl db "1 [SLAVE]: "799 07FC 4C 41 56 45799 0800 5D 3A 20800 0803 00 db 0801 0804 44 69 73 6B txthd db "Disk"802 0808 00 db 0803 0809 43 44 2D 52 txtcd db "CD-Rom"803 080D 6F 6D804 080F 00 db 0805 0810 4E 6F 6E 65 txtno db "None"806 0814 00 db 0807 0815 00 progcd db 0808 0816 4D 6F 64 65 db "Model: "808 081A 6C 3A 20809 081D 00 db 0810 081E 36 22 dw #2236811 0820 14 db 20812 0821 00 db 0813 0822 31 db 49814 0823 52 65 76 3A db "Rev: "814 0827 20815 0828 00 db 0816 0829 2E 22 dw #222e817 082B 04 db 4818 082C 00 db 0819 082D FF prognl db #ff820 082E 00 proghd db 0821 082F 53 4E 3A 20 db "SN: "822 0833 00 db 0823 0834 14 22 dw #2214824 0836 0A db 10825 0837 00 db 0826 0838 20 db 32827 0839 42 75 66 66 db "Buffer: "827 083D 65 72 3A 20828 0841 00 db 0829 0842 2A 22 dw #222a830 0844 02 db 2831 0845 80 db #80832 0846 FE db #fe833 0847 20 73 65 63 db " sectors"833 084B 74 6F 72 73834 084F 00 db 0835 0850 13 20 dw #2013836 0852 01 db 1837 0853 00 db 0838 0854 00 db 0839 0855 43 75 72 72 db "Current CHS: "839 0859 65 6E 74 20839 085D 43 48 53 3A839 0861 20840 0862 00 db 0841 0863 6D 22 dw #226d842 0865 02 db 2843 0866 80 db #80844 0867 FE db #fe845 0868 2F db "/"846 0869 00 db 0847 086A 6F 22 dw #226f848 086C 02 db 2849 086D 80 db #80850 086E FE db #fe851 086F 2F db "/"852 0870 00 db 0853 0871 71 22 dw #2271854 0873 02 db 2855 0874 80 db #80856 0875 20 db 32857 0876 20 20 44 65 db " Default CHS: "857 087A 66 61 75 6C857 087E 74 20 43 48857 0882 53 3A 20858 0885 00 db 0859 0886 03 22 dw #2203860 0888 02 db 2861 0889 80 db #80862 088A FE db #fe863 088B 2F db "/"864 088C 00 db 0865 088D 07 22 dw #2207866 088F 02 db 2867 0890 80 db #80868 0891 FE db #fe869 0892 2F db "/"870 0893 00 db 0871 0894 0D 22 dw #220d872 0896 02 db 2873 0897 80 db #80874 0898 00 db 0875 0899 43 75 72 72 db "Current "875 089D 65 6E 74 20876 08A1 20 63 61 70 db " capacity: "876 08A5 61 63 69 74876 08A9 79 3A 20877 08AC 00 db 0878 08AD 75 22 dw #2275879 08AF 04 db 4880 08B0 80 db #80881 08B1 FE db #fe882 08B2 20 73 65 63 db " sectors "882 08B6 74 6F 72 73882 08BA 20 20883 08BC 4D 75 6C 74 db "Multiple "883 08C0 69 70 6C 65883 08C4 20884 08C5 73 65 63 74 db "sectors: "884 08C9 6F 72 73 3A884 08CD 20885 08CE 00 db 0886 08CF 5E 22 dw #225e887 08D1 01 db 1888 08D2 80 db #80889 08D3 00 db 0890 08D4 4C 42 41 20 db "LBA addressable"890 08D8 61 64 64 72890 08DC 65 73 73 61890 08E0 62 6C 65891 08E3 20 73 65 63 db " sectors: "891 08E7 74 6F 72 73891 08EB 3A 20892 08ED 00 db 0893 08EE 7B 22 dw #227b894 08F0 04 db 4895 08F1 80 db #80896 08F2 FE db #fe897 08F3 20 20 4D 75 db " Multiple "897 08F7 6C 74 69 70897 08FB 6C 65 20898 08FE 73 65 74 74 db "setting: "898 0902 69 6E 67 3A898 0906 20899 0907 00 db 0900 0908 76 22 dw #2276901 090A 01 db 1902 090B 50 db 80903 090C FF db #ff904 090D905 090D AF lea xor a906 090E 47 ld b,a907 090F 7E ld a,(hl)908 0910 2B dec hl909 0911 1F rra910 0912 4F ld c,a911 0913 38 11 jr c,leb912 0915 B6 or (hl)913 0916 C8 ret z914 0917 3E 0F ld a,15915 0919 A1 and c916 091A 06 04 ld b,4917 091C CB 39 lex srl c918 091E 10 FC djnz lex919 0920 E5 push hl920 0921 6E ld l,(hl)921 0922 67 ld h,a922 0923 19 add hl,de923 0924 0C inc c924 0925 0C inc c925 0926 0C leb inc c926 0927 ED B8 lddr927 0929 38 E2 jr c,lea928 092B E1 pop hl929 092C 2B dec hl930 092D 18 DE jr lea931 092F932 092F 06 0C wsect ld b,12933 0931 21 00 40 ld hl,#4000934 0934 3A 00 5B ld a,(23296)935 0937 E6 1F and 31936 0939 C6 A0 add a,160937 093B D3 BB out (187),a938 093D 11 40 C0 ld de,#c040939 0940 CD A4 09 call wait940 0943 3E 02 ld a,2941 0945 D3 AF out (175),a942 0947 3E 00 ld a,0943 0949 D3 B3 out (179),a944 094B 3E 00 ld a,0945 094D D3 B7 out (183),a946 094F 78 ld a,b947 0950 D3 AB out (171),a948 0952 3E 30 ld a,#30949 0954 D3 BF out (191),a950 0956 11 48 C8 sector ld de,#c848951 0959 CD A4 09 call wait952 095C C5 push bc953 095D 01 A3 00 ld bc,#a3954 0960 ED B3 otir955 0962 ED B3 otir956 0964 C1 pop bc957 0965 10 EF djnz sector958 0967 18 38 jr frew959 0969960 0969 06 0C rsect ld b,12961 096B 21 00 40 ld hl,#4000962 096E 3A 00 5B ld a,(23296)963 0971 E6 1F and 31964 0973 C6 A0 add a,160965 0975 D3 BB out (187),a966 0977 11 40 C0 ld de,#c040967 097A CD A4 09 call wait968 097D 3E 02 ld a,2969 097F D3 AF out (175),a970 0981 3E 00 ld a,0971 0983 D3 B3 out (179),a972 0985 3E 00 ld a,0973 0987 D3 B7 out (183),a974 0989 78 ld a,b975 098A D3 AB out (171),a976 098C 3E 20 ld a,#20977 098E D3 BF out (191),a978 0990 11 48 C8 sektor ld de,#c848979 0993 CD A4 09 call wait980 0996 C5 push bc981 0997 01 A3 00 ld bc,#a3982 099A ED B2 inir983 099C ED B2 inir984 099E C1 pop bc985 099F 10 EF djnz sektor986 09A1 DB BF frew in a,(191)987 09A3 C9 ret988 09A4989 09A4 DB BF wait in a,(191)990 09A6 AB xor e991 09A7 A2 and d992 09A8 C8 ret z993 09A9 AF xor a994 09AA DB FE in a,(254)995 09AC E6 1F and 31996 09AE 20 F4 jr nz,wait997 09B0 C9 ret998 09B1999 09B1 AF twa xor a1000 09B2 47 ld b,a1001 09B3 B6 or (hl)1002 09B4 23 inc hl1003 09B5 C8 ret z1004 09B6 E5 push hl1005 09B7 D5 push de1006 09B8 26 04 ld h,41007 09BA 1F rra1008 09BB 6F ld l,a1009 09BC 4F ld c,a1010 09BD 17 rla1011 09BE AB xor e1012 09BF 29 add hl,hl1013 09C0 29 add hl,hl1014 09C1 29 add hl,hl1015 09C2 ED 42 sbc hl,bc1016 09C4 01 0F 80 ld bc,#800f1017 09C7 1F rra1018 09C8 CB 18 rr b1019 09CA CB 3B srl e1020 09CC 38 02 jr c,twb1021 09CE 0E F0 ld c,#f01022 09D0 EB twb ex de,hl1023 09D1 3E E0 ld a,#e01024 09D3 A4 and h1025 09D4 B5 or l1026 09D5 6F ld l,a1027 09D6 3E 18 ld a,#181028 09D8 A4 and h1029 09D9 C6 40 add a,#401030 09DB 67 ld h,a1031 09DC 1A twc ld a,(de)1032 09DD CB 78 bit 7,b1033 09DF 28 04 jr z,twd1034 09E1 0F rrca1035 09E2 0F rrca1036 09E3 0F rrca1037 09E4 0F rrca1038 09E5 AE twd xor (hl)1039 09E6 A1 and c1040 09E7 AE xor (hl)1041 09E8 77 ld (hl),a1042 09E9 24 inc h1043 09EA 13 inc de1044 09EB CB 28 sra b1045 09ED 30 ED jr nc,twc1046 09EF 79 ld a,c1047 09F0 2F cpl1048 09F1 A6 and (hl)1049 09F2 77 ld (hl),a1050 09F3 D1 pop de1051 09F4 E1 pop hl1052 09F5 1C inc e1053 09F6 18 B9 jr twa1054 09F81055 09F8 01 80 02 cnp ld bc,#02801056 09FB 11 21 20 ld de,#20211057 09FE 21 13 20 cna ld hl,#20131058 0A01 36 30 cnc ld (hl),"0"1059 0A03 2D dec l1060 0A04 20 FB jr nz,cnc1061 0A06 2E 13 cnd ld l,#131062 0A08 1A ld a,(de)1063 0A09 A1 and c1064 0A0A C6 FF add a,2551065 0A0C 7E cne ld a,(hl)1066 0A0D 8F adc a,a1067 0A0E D6 30 sub "0"1068 0A10 FE 3A cp "9"+11069 0A12 38 02 jr c,cnf1070 0A14 D6 0A sub #0a1071 0A16 3F cnf ccf1072 0A17 77 ld (hl),a1073 0A18 2D dec l1074 0A19 20 F1 jr nz,cne1075 0A1B CB 39 srl c1076 0A1D 30 E7 jr nc,cnd1077 0A1F 0E 80 ld c,1281078 0A21 1B dec de1079 0A22 10 E2 djnz cnd1080 0A24 C9 ret1081 0A251082 0A25 21 80 5B video ld hl,#5b801083 0A28 E6 04 and 41084 0A2A 28 03 jr z,cus1085 0A2C 21 B0 0D ld hl,matrdf1086 0A2F 3E F7 cus ld a,#f71087 0A31 DB FE in a,(#fe)1088 0A33 11 10 00 ld de,161089 0A36 06 05 ld b,51090 0A38 1F msl rra1091 0A39 30 03 jr nc,vva1092 0A3B 19 add hl,de1093 0A3C 10 FA djnz msl1094 0A3E AF vva xor a1095 0A3F D3 E3 out (#e3),a1096 0A41 16 22 ld d,#221097 0A43 CD 53 0B call gen1098 0A46 21 07 0B ld hl,dsc1099 0A49 11 00 26 ld de,#26001100 0A4C 01 15 00 ld bc,sen-dsc1101 0A4F 3E 1F ld a,311102 0A51 ED B0 crt ldir1103 0A53 21 12 0B ld hl,sbg1104 0A56 0E 0A ld c,sen-sbg1105 0A58 3D dec a1106 0A59 20 F6 jr nz,crt1107 0A5B 0E 31 ld c,lar-sbg1108 0A5D ED B0 ldir1109 0A5F 06 20 ld b,321110 0A61 2B mla dec hl1111 0A62 2B dec hl1112 0A63 ED A0 ldi1113 0A65 ED A0 ldi1114 0A67 10 F8 djnz mla1115 0A69 0E 10 ld c,gen-lar1116 0A6B ED B0 ldir1117 0A6D ED 57 ld a,i1118 0A6F F5 push af1119 0A70 DD E5 push ix1120 0A72 FB ei1121 0A73 DD 21 00 5B vlp ld ix,232961122 0A77 DD 34 08 inc (ix+8)1123 0A7A 3E 05 ld a,51124 0A7C D3 AB out (#ab),a1125 0A7E DD 7E 01 ld a,(ix+1)1126 0A81 DD 5E 05 ld e,(ix+5)1127 0A84 1C inc e1128 0A85 BB cp e1129 0A86 38 05 jr c,sok1130 0A88 1D dec e1131 0A89 93 sub e1132 0A8A DD 34 02 inc (ix+2)1133 0A8D D3 AF sok out (#af),a1134 0A8F C6 05 add a,51135 0A91 DD 77 01 ld (ix+1),a1136 0A94 DD 7E 02 ld a,(ix+2)1137 0A97 DD BE 06 cp (ix+6)1138 0A9A 38 09 jr c,hok1139 0A9C AF xor a1140 0A9D DD 34 03 inc (ix+3)1141 0AA0 20 03 jr nz,hok1142 0AA2 DD 34 04 inc (ix+4)1143 0AA5 DD 77 02 hok ld (ix+2),a1144 0AA8 DD 86 00 add a,(ix+0)1145 0AAB D3 BB out (#bb),a1146 0AAD DD 7E 03 ld a,(ix+3)1147 0AB0 D3 B3 out (#b3),a1148 0AB2 DD 7E 04 ld a,(ix+4)1149 0AB5 D3 B7 out (#b7),a1150 0AB7 11 40 C0 ld de,#c0401151 0ABA CD A4 09 call wait1152 0ABD 3E 20 ld a,#201153 0ABF D3 BF out (#bf),a1154 0AC1 76 halt1155 0AC2 11 48 C8 ld de,#c8481156 0AC5 21 00 28 ld hl,#28001157 0AC8 06 02 ld b,21158 0ACA CD A4 09 rsx call wait1159 0ACD C5 push bc1160 0ACE 01 A3 00 ld bc,#a31161 0AD1 ED B2 inir1162 0AD3 ED B2 inir1163 0AD5 C1 pop bc1164 0AD6 10 F2 djnz rsx1165 0AD8 DD 7E 08 ld a,(ix+8)1166 0ADB E6 01 and 11167 0ADD F5 push af1168 0ADE C6 40 add a,#401169 0AE0 47 ld b,a1170 0AE1 0E 1F ld c,#1f1171 0AE3 F1 pop af1172 0AE4 07 rlca1173 0AE5 C6 22 add a,#221174 0AE7 67 ld h,a1175 0AE8 CD 00 26 call #26001176 0AEB 3E FD ld a,#fd1177 0AED DB FE in a,(#fe)1178 0AEF E6 02 and 21179 0AF1 20 06 jr nz,nhl1180 0AF3 DD 46 07 ld b,(ix+7)1181 0AF6 76 wff halt1182 0AF7 10 FD djnz wff1183 0AF9 3E BF nhl ld a,#bf1184 0AFB DB FE in a,(#fe)1185 0AFD 1F rra1186 0AFE DA 73 0A jp c,vlp1187 0B01 DD E1 pop ix1188 0B03 F1 pop af1189 0B04 E8 ret pe1190 0B05 F3 di1191 0B06 C9 ret1192 0B071193 0B07 11 48 C8 dsc ld de,#c8481194 0B0A CD A4 09 call wait1195 0B0D 59 ld e,c1196 0B0E 50 ld d,b1197 0B0F 14 inc d1198 0B10 14 inc d1199 0B11 C5 push bc1200 0B12 DB A3 sbg in a,(#a3)1201 0B14 6F ld l,a1202 0B15 7E ld a,(hl)1203 0B16 24 inc h1204 0B17 02 ld (bc),a1205 0B18 ED A8 ldd1206 0B1A CB 84 res 0,h1207 0B1C C1 sen pop bc1208 0B1D 3E 04 ld a,41209 0B1F A8 xor b1210 0B20 47 ld b,a1211 0B21 E6 04 and 41212 0B23 C2 06 26 jp nz,#26061213 0B26 3E 20 ld a,321214 0B28 81 add a,c1215 0B29 4F ld c,a1216 0B2A D2 06 26 jp nc,#26061217 0B2D E5 push hl1218 0B2E C5 push bc1219 0B2F 78 ld a,b1220 0B30 1F rra1221 0B31 1F rra1222 0B32 1F rra1223 0B33 E6 03 and 31224 0B35 C6 28 add a,#281225 0B37 67 ld h,a1226 0B38 C6 30 add a,#58-#281227 0B3A 57 ld d,a1228 0B3B 2E 00 ld l,01229 0B3D 5D ld e,l1230 0B3E 4D ld c,l1231 0B3F 06 09 ld b,91232 0B41 ED A0 ldi1233 0B43 10 BE lar djnz $-641234 0B45 C1 pop bc1235 0B46 E1 pop hl1236 0B47 3E 08 ld a,81237 0B49 80 add a,b1238 0B4A 47 ld b,a1239 0B4B FE 58 cp #581240 0B4D DA 00 26 jp c,#26001241 0B50 DB BF in a,(#bf)1242 0B52 C9 ret1243 0B531244 0B53 1E 00 gen ld e,01245 0B55 06 50 ld b,#501246 0B57 C5 ged push bc1247 0B58 7B gec ld a,e1248 0B59 06 11 ld b,#111249 0B5B E5 geb push hl1250 0B5C BE gea cp (hl)1251 0B5D CB 11 rl c1252 0B5F 23 inc hl1253 0B60 CB 20 sla b1254 0B62 30 F8 jr nc,gea1255 0B64 E1 pop hl1256 0B65 07 rlca1257 0B66 07 rlca1258 0B67 07 rlca1259 0B68 07 rlca1260 0B69 20 F0 jr nz,geb1261 0B6B 79 ld a,c1262 0B6C 2F cpl1263 0B6D 12 ld (de),a1264 0B6E 1C inc e1265 0B6F 20 E7 jr nz,gec1266 0B71 0E 04 ld c,41267 0B73 09 add hl,bc1268 0B74 C1 pop bc1269 0B75 CB 20 sla b1270 0B77 C8 ret z1271 0B78 15 dec d1272 0B79 38 DC jr c,ged1273 0B7B 14 inc d1274 0B7C 14 inc d1275 0B7D 14 inc d1276 0B7E 18 D7 jr ged1277 0B801278 0B80 21 00 E0 vrcp ld hl,#e0001279 0B83 11 00 40 ld de,#40001280 0B86 01 00 1B ld bc,69121281 0B89 ED B0 ldir1282 0B8B C9 ret1283 0B8C1284 0B8C F5 dset push af1285 0B8D 3E 17 ld a,#171286 0B8F 01 FD 7F ld bc,#7ffd1287 0B92 ED 79 out (c),a1288 0B94 CD 80 0B call vrcp1289 0B97 0E 4A ld c,ident-servcd1290 0B99 21 E7 0B ld hl,servcd1291 0B9C 11 00 80 ld de,#80001292 0B9F ED B0 ldir1293 0BA1 21 F4 FF ld hl,#fff41294 0BA4 36 C3 ld (hl),#c31295 0BA6 2E FF ld l,#ff1296 0BA8 36 18 ld (hl),#181297 0BAA 21 00 80 ld hl,#80001298 0BAD 22 F5 FF ld (#fff5),hl1299 0BB0 F1 pop af1300 0BB1 CB 67 bit 4,a1301 0BB3 20 0F jr nz,nogam1302 0BB5 21 10 E8 ld hl,#e8101303 0BB8 22 33 80 ld (#8000+ndispl),hl1304 0BBB 21 0E 80 ld hl,#8001+bdispl1305 0BBE 35 dec (hl)1306 0BBF 35 dec (hl)1307 0BC0 AF xor a1308 0BC1 32 35 80 ld (#8002+ndispl),a1309 0BC4 3E 7F nogam ld a,#7f1310 0BC6 DB FE in a,(#fe)1311 0BC8 E6 04 and 41312 0BCA 20 0A jr nz,noem1313 0BCC 3E 0A ld a,101314 0BCE 32 2D 80 ld (#8001+cdispl),a1315 0BD1 3E 4A ld a,741316 0BD3 32 0E 80 ld (#8001+bdispl),a1317 0BD6 21 00 BE noem ld hl,#be001318 0BD9 36 FF fllit ld (hl),#ff1319 0BDB 2C inc l1320 0BDC 20 FB jr nz,fllit1321 0BDE 7C ld a,h1322 0BDF 24 inc h1323 0BE0 36 FF ld (hl),#ff1324 0BE2 ED 47 ld i,a1325 0BE4 ED 5E im 21326 0BE6 C9 ret1327 0BE71328 0BE7 F5 servcd push af1329 0BE8 C5 push bc1330 0BE9 3E 3F frame ld a,#3f1331 0BEB 01 FD 7F ld bc,#7ffd1332 0BEE A7 and a1333 0BEF 1F rra1334 0BF0 D9 exx1335 0BF1 08 ex af,af1336 0BF2 F5 push af1337 0BF3 C5 push bc1338 0BF4 01 66 03 barg ld bc,8701339 0BF7 0B wt dec bc1340 0BF8 04 inc b1341 0BF9 10 FC djnz wt1342 0BFB 18 02 jr nop31343 0BFD 00 nop1 nop1344 0BFE 00 nop2 nop1345 0BFF 00 nop3 nop1346 0C00 00 nop4 nop1347 0C01 00 nop5 nop1348 0C02 06 C0 ld b,1921349 0C04 D9 qew exx1350 0C05 08 ex af,af1351 0C06 ED 79 swout out (c),a1352 0C08 3F altplc ccf1353 0C09 38 02 jr c,noxor1354 0C0B EE 08 xor 81355 0C0D 30 02 noxor jr nc,conti1356 0C0F 06 7F ld b,#7f1357 0C11 D9 conti exx1358 0C12 08 ex af,af1359 0C13 0E 09 carg ld c,91360 0C15 0D delln dec c1361 0C16 20 FD jr nz,delln1362 0C18 0E 00 ld c,01363 0C1A 00 nopa nop1364 0C1B 10 E7 djnz qew1365 0C1D C1 pop bc1366 0C1E F1 pop af1367 0C1F D9 exx1368 0C20 08 ex af,af1369 0C21 3F ccf1370 0C22 17 rla1371 0C23 CB 47 bit 0,a1372 0C25 28 02 jr z,stocr1373 0C27 EE 10 xor 161374 0C29 32 03 80 stocr ld (#8001+fdispl),a1375 0C2C C1 pop bc1376 0C2D F1 pop af1377 0C2E C3 38 00 jp #381378 0C311379 0C31 3E F7 ident ld a,#f71380 0C33 DB FE in a,(#fe)1381 0C35 E6 02 and 21382 0C37 3E A0 ld a,#a01383 0C39 20 02 jr nz,idm1384 0C3B 3E B0 ld a,#b01385 0C3D 21 00 5B idm ld hl,#5b001386 0C40 77 ld (hl),a1387 0C41 D3 BB out (#bb),a1388 0C43 AF xor a1389 0C44 06 04 ld b,41390 0C46 2C w inc l1391 0C47 77 ld (hl),a1392 0C48 10 FC djnz w1393 0C4A 11 40 C0 ld de,#c0401394 0C4D CD A4 09 call wait1395 0C50 3E EC ld a,#ec1396 0C52 D3 BF out (#bf),a1397 0C54 11 48 C8 ld de,#c8481398 0C57 CD A4 09 call wait1399 0C5A 21 00 22 ld hl,#22001400 0C5D 01 A3 00 ld bc,#a31401 0C60 ED B2 inir1402 0C62 ED B2 inir1403 0C64 11 40 C0 ld de,#c0401404 0C67 CD A4 09 call wait1405 0C6A 3A 0C 22 ld a,(#220c)1406 0C6D 32 05 5B ld (23301),a1407 0C70 D3 AB out (#ab),a1408 0C72 3A 06 22 ld a,(#2206)1409 0C75 32 06 5B ld (23302),a1410 0C78 3D dec a1411 0C79 4F ld c,a1412 0C7A 3A 00 5B ld a,(23296)1413 0C7D B1 or c1414 0C7E D3 BB out (#bb),a1415 0C80 11 40 C0 ld de,#c0401416 0C83 CD A4 09 call wait1417 0C86 3E 91 ld a,#911418 0C88 D3 BF out (#bf),a1419 0C8A 11 40 C0 ld de,#c0401420 0C8D CD A4 09 call wait1421 0C90 C3 DA 00 cnow jp click1422 0C931423 0C93 ED 5B 01 5B nrthl ld de,(23297)1424 0C97 ED 4B 03 5B ld bc,(23299)1425 0C9B 3A 05 5B ld a,(23301)1426 0C9E AB xor e1427 0C9F 20 0A jr nz,chsok1428 0CA1 5F ld e,a1429 0CA2 14 inc d1430 0CA3 3A 06 5B ld a,(23302)1431 0CA6 AA xor d1432 0CA7 20 02 jr nz,chsok1433 0CA9 57 ld d,a1434 0CAA 03 inc bc1435 0CAB 1C chsok inc e1436 0CAC 3A 00 5B ld a,(23296)1437 0CAF B2 or d1438 0CB0 D3 BB out (#bb),a1439 0CB2 D5 push de1440 0CB3 11 40 C0 ld de,#c0401441 0CB6 CD A4 09 call wait1442 0CB9 D1 pop de1443 0CBA 3C inc a1444 0CBB D3 AB out (#ab),a1445 0CBD 7B ld a,e1446 0CBE D3 AF out (#af),a1447 0CC0 79 ld a,c1448 0CC1 D3 B3 out (#b3),a1449 0CC3 78 ld a,b1450 0CC4 D3 B7 out (#b7),a1451 0CC6 3E 20 ld a,#201452 0CC8 D3 BF out (#bf),a1453 0CCA C5 push bc1454 0CCB D5 push de1455 0CCC 11 48 C8 ld de,#c8481456 0CCF CD A4 09 call wait1457 0CD2 21 00 24 ld hl,#24001458 0CD5 01 A3 00 ld bc,#a31459 0CD8 ED B2 inir1460 0CDA ED B2 inir1461 0CDC 11 40 C0 ld de,#c0401462 0CDF CD A4 09 call wait1463 0CE2 D1 pop de1464 0CE3 C1 pop bc1465 0CE4 C9 ret1466 0CE51467 0CE5 ED 53 01 5B pushm ld (23297),de1468 0CE9 ED 43 03 5B ld (23299),bc1469 0CED C9 ret1470 0CEE1471 0CEE 11 A4 0D taps ld de,taptag1472 0CF1 21 00 24 ld hl,#24001473 0CF4 CD 04 0D call begc1474 0CF7 21 18 26 ld hl,#26181475 0CFA 22 09 5B ld (23305),hl1476 0CFD C9 ret1477 0CFE1478 0CFE 11 98 0D begs ld de,pictag1479 0D01 21 00 25 ld hl,#25001480 0D04 ED 53 09 5B begc ld (23305),de1481 0D08 22 0B 5B ld (23307),hl1482 0D0B 3A 01 5B begsl ld a,(23297)1483 0D0E E6 07 and 71484 0D10 D3 FE out (#fe),a1485 0D12 AF xor a1486 0D13 DB FE in a,(#fe)1487 0D15 E6 1F and 311488 0D17 C8 ret z1489 0D18 CD 93 0C call nrthl1490 0D1B C5 push bc1491 0D1C D5 push de1492 0D1D 06 0C ld b,121493 0D1F 2A 0B 5B ld hl,(23307)1494 0D22 ED 5B 09 5B ld de,(23305)1495 0D26 CD 8D 0D call swrap1496 0D29 D1 pop de1497 0D2A C1 pop bc1498 0D2B 28 05 jr z,ckey1499 0D2D CD E5 0C call pushm1500 0D30 18 D9 jr begsl1501 0D32 AF ckey xor a1502 0D33 D3 FE out (#fe),a1503 0D35 DB FE in a,(#fe)1504 0D37 2F cpl1505 0D38 E6 1F and 311506 0D3A 20 F6 jr nz,ckey1507 0D3C C3 DA 00 jp click1508 0D3F1509 0D3F 11 00 C0 tread ld de,#c0001510 0D42 CD 50 0D call fets1511 0D45 11 00 E0 ld de,#e0001512 0D48 CD 50 0D call fets1513 0D4B CD 80 0B call vrcp1514 0D4E 18 E2 jr ckey1515 0D501516 0D50 01 00 1B fets ld bc,#1b001517 0D53 2A 09 5B nexr ld hl,(23305)1518 0D56 D5 pude push de1519 0D57 CB 4C bit 1,h1520 0D59 28 0C jr z,noren1521 0D5B CB 8C res 1,h1522 0D5D E5 push hl1523 0D5E C5 push bc1524 0D5F CD 93 0C call nrthl1525 0D62 CD E5 0C call pushm1526 0D65 C1 pop bc1527 0D66 E1 pop hl1528 0D67 EB noren ex de,hl1529 0D68 21 00 DA ld hl,-#26001530 0D6B 19 add hl,de1531 0D6C 09 add hl,bc1532 0D6D 38 03 jr c,hlpok1533 0D6F 21 00 00 ld hl,01534 0D72 E3 hlpok ex (sp),hl1535 0D73 30 09 jr nc,bcok1536 0D75 E5 push hl1537 0D76 21 01 26 ld hl,#26011538 0D79 ED 52 sbc hl,de1539 0D7B 44 ld b,h1540 0D7C 4D ld c,l1541 0D7D E1 pop hl1542 0D7E EB bcok ex de,hl1543 0D7F ED B0 ldir1544 0D81 C1 pop bc1545 0D82 78 ld a,b1546 0D83 B1 or c1547 0D84 20 D0 jr nz,pude1548 0D86 0E 19 ld c,251549 0D88 09 add hl,bc1550 0D89 22 09 5B ld (23305),hl1551 0D8C C9 ret1552 0D8D1553 0D8D E5 swrap push hl1554 0D8E 1A read ld a,(de)1555 0D8F BE cp (hl)1556 0D90 20 04 jr nz,nosuc1557 0D92 13 inc de1558 0D93 23 inc hl1559 0D94 10 F8 djnz read1560 0D96 E1 nosuc pop hl1561 0D97 C9 ret1562 0D981563 0D98 30 30 30 30 pictag db "00000001.png"1563 0D9C 30 30 30 311563 0DA0 2E 70 6E 671564 0DA41565 0DA4 13 00 00 03 taptag db #13,0,0,31566 0DA8 44 69 74 68 db "DithvIDE"1566 0DAC 76 49 44 451567 0DB01568 0DB0 3F 1F 2F 0F matrdf db #3f,#1f,#2f,#0f1569 0DB4 7F 5F 6F 4F db #7f,#5f,#6f,#4f1570 0DB8 BF 9F AF 8F db #bf,#9f,#af,#8f1571 0DBC FF DF EF CF db #ff,#df,#ef,#cf1572 0DC01573 0DC0 0F CF 3F FF chess db #0f,#cf,#3f,#ff1574 0DC4 8F 4F BF 7F db #8f,#4f,#bf,#7f1575 0DC8 2F EF 1F DF db #2f,#ef,#1f,#df1576 0DCC AF 6F 9F 5F db #af,#6f,#9f,#5f1577 0DD01578 0DD0 0F 4F 8F 1F matcdf db #0f,#4f,#8f,#1f1579 0DD4 BF FF CF 5F db #bf,#ff,#cf,#5f1580 0DD8 7F CF DF 9F db #7f,#cf,#df,#9f1581 0DDC 3F AF 6F 2F db #3f,#af,#6f,#2f1582 0DE01583 0DE0 FF EF DF CF matodf db #ff,#ef,#df,#cf1584 0DE4 4F 3F 2F BF db #4f,#3f,#2f,#bf1585 0DE8 5F 0F 1F AF db #5f,#0f,#1f,#af1586 0DEC 6F 7F 8F 9F db #6f,#7f,#8f,#9f1587 0DF01588 0DF0 0F 2F 5F 9F mattdf db #0f,#2f,#5f,#9f1589 0DF4 1F 4F 8F CF db #1f,#4f,#8f,#cf1590 0DF8 3F 7F BF EF db #3f,#7f,#bf,#ef1591 0DFC 6F AF DF FF db #6f,#af,#df,#ff1592 0E001593 0E00 0F CF 4F 8F matzdf db #0f,#cf,#4f,#8f1594 0E04 1F DF 5F 9F db #1f,#df,#5f,#9f1595 0E08 2F EF 6F AF db #2f,#ef,#6f,#af1596 0E0C 3F FF 7F BF db #3f,#ff,#7f,#bf1597 0E101598 0E10 org #04c61599 04C6 21 80 1F p04c6 ld hl,#1f801600 04C9 CD DA 00 p04c6r call click1601 04CC E5 push hl1602 04CD 21 C9 04 ld hl,p04c6r1603 04D0 C3 12 00 jp cont1604 04D31605 04D3 org #05621606 0562 DB FE p0562 in a,(#fe)1607 0564 CD DA 00 p0562r call click1608 0567 E5 push hl1609 0568 21 64 05 ld hl,p0562r1610 056B C3 12 00 jp cont1611 056E1612 056E org #15d01613 15D0 incbin "tbios-logo.bin"1614 1FF71615 1FF7 org #1ff71616 1FF7 ED 45 offrtn retn1617 1FF9 C9 offret ret1618 1FFA E9 offjph jp (hl)1619 1FFB1620 1FFB adispl equ altplc-servcd1621 1FFB sdispl equ swout-servcd1622 1FFB rdispl equ prand-stepxc1623 1FFB t1 equ filly-stepxc1624 1FFB t2 equ checkx-stepxc1625 1FFB t3 equ lastck-stepxc1626 1FFB wdispl equ wflash-stepxc1627 1FFB t4 equ wrtpos-stepxc1628 1FFB t5 equ wrtcpl-stepxc1629 1FFB t6 equ wrtzer-stepxc1630 1FFB t7 equ wrtffs-stepxc1631 1FFB xdispl equ ramts-stepxc1632 1FFB ndispl equ nopa-servcd1633 1FFB cdispl equ carg-servcd1634 1FFB bdispl equ barg-servcd1635 1FFB fdispl equ frame-servcd1636 1FFB1637 1FFB savebin "tbiosv14.bin",$0000,$20001638 1FFB1639 1FFB end# file closed: tbiosv14.asmValue Label------ - -----------------------------------------------------------0x0000 X p00000x0001 p0000r0x0105 logoex0x0008 X p00080x000B p0008r0x00DA click0x0012 cont0x1FF9 offret0x001F X l001f0x0038 X p00380x0039 p0038r0x004D X l004d0x0060 ncnt0x0066 X p00660x0067 X p0066r0x0B8C dset0x007D nalt0x0021 adispl0x008E nbck0x001F sdispl0x0C31 ident0x0969 rsect0x0A25 video0x00B8 ntest0x00AE tlop0x0580 ramt0x092F wsect0x0D3F tread0x0CFE begs0x0CEE taps0x1FF7 offrtn0x00E0 ppp10x00E2 pppo0x00E8 del30x00F4 cls0x00F9 clrscr0x0100 clratr0x090D lea0x014B nb0x0148 lp0x0624 txtho0x09B1 twa0x0156 waitpx0x0187 atest0x0161 ssc0x0164 rescon0x017E fillff0x1FFA offjph0x018A atc0x019D wfr0x06A3 txtmt0x01CE okblik0x06B9 txtnp0x0207 btcont0x0665 txthn0x046E waitk0x01EA blik0x09F8 cnp0x0690 txtrn0x06EC txtht0x0242 no800x0703 txt800x0712 txtab0x03C2 testcn0x0293 cont480x028C no1280x0259 X for1280x070A txt1280x0262 tlp0x026A nolf0x0736 txtpg0x02AC hostfn0x06FC txt480x0720 txtpm0x0729 txtvr0x073B txtmm0x074D txtai0x02D1 maprai0x0755 txtin0x0586 stepxc0x0065 rdispl0x0029 t10x0041 t20x0056 t30x006D wdispl0x002C t40x0048 t50x0003 t60x0016 t70x030C dramt0x0774 txtdp0x0779 txtee0x07BF txtdd0x034F ddl0x07F0 txtdl0x045C waitid0x036C nohd0x0804 txthd0x082E proghd0x0379 dfou0x0393 nocd0x0809 txtcd0x082D prognl0x0815 progcd0x0409 prgint0x0399 endl0x0810 txtno0x07F8 txtsl0x03AD xchvr0x03BC nchan0x03F5 outst0x03DF retto0x06E6 txbok0x0079 xdispl0x041E appen0x041D ldda0x0445 numb0x042D typp0x0459 pophlc0x09FE cna0x0450 loops0x0456 typit0x0461 waitil0x046C waitrt0x046F X wk0x0470 wtd0x0588 wrtzrr0x0589 wrtzer0x05F3 wflash0x05B7 bugx0x0597 lokzer0x059C wrtffs0x05AB fillx0x05AF filly0x05EB prand0x05B2 wrtpos0x05BD donex0x05B8 bugy0x05C7 checkx0x05CE wrtcpl0x05DC lastck0x05F7 rchck0x05FC retw0x05FF ramts0x0610 putbg0x067B X txtie0x0763 X txtdm0x078D X txtrm0x07B8 X txtep0x07E3 X txtma0x0926 leb0x091C lex0x09A4 wait0x0956 sector0x09A1 frew0x0990 sektor0x09D0 twb0x09DC twc0x09E5 twd0x0A01 cnc0x0A06 cnd0x0A0C cne0x0A16 cnf0x0A2F cus0x0DB0 matrdf0x0A38 msl0x0A3E vva0x0B53 gen0x0B07 dsc0x0B1C sen0x0A51 crt0x0B12 sbg0x0B43 lar0x0A61 mla0x0A73 vlp0x0A8D sok0x0AA5 hok0x0ACA rsx0x0AF9 nhl0x0AF6 wff0x0B57 ged0x0B58 gec0x0B5B geb0x0B5C gea0x0B80 vrcp0x0BE7 servcd0x0BC4 nogam0x0033 ndispl0x000D bdispl0x0BD6 noem0x002C cdispl0x0BD9 fllit0x0BE9 frame0x0BF4 barg0x0BF7 wt0x0BFF nop30x0BFD X nop10x0BFE X nop20x0C00 X nop40x0C01 X nop50x0C04 qew0x0C06 swout0x0C08 altplc0x0C0D noxor0x0C11 conti0x0C13 carg0x0C15 delln0x0C1A nopa0x0C29 stocr0x0002 fdispl0x0C3D idm0x0C46 w0x0C90 X cnow0x0C93 nrthl0x0CAB chsok0x0CE5 pushm0x0DA4 taptag0x0D04 begc0x0D98 pictag0x0D0B begsl0x0D8D swrap0x0D32 ckey0x0D50 fets0x0D53 X nexr0x0D56 pude0x0D67 noren0x0D72 hlpok0x0D7E bcok0x0D8E read0x0D96 nosuc0x0DC0 X chess0x0DD0 X matcdf0x0DE0 X matodf0x0DF0 X mattdf0x0E00 X matzdf0x04C6 X p04c60x04C9 p04c6r0x0562 X p05620x0564 p0562r