; z80dasm 1.1.3 ; command line: ./z80dasm -a -l -S p1.sym -s p1.sym1 -o p1.mac -b p1.blocks.txt P1.COM ; file created 01.04.2021 org 00100h BDOS: equ 0x0005 __argc_: equ 0xa4ac memtop: equ 0xa4ae __Hbss: equ 0xa4b0 ld hl,(00006h) ;0100 ld sp,hl ;0103 ld de,__Lbss ;0104 or a ;0107 ld hl,__Hbss ;0108 sbc hl,de ;010b ld c,l ;010d ld b,h ;010e l010fh: dec bc ;010f ld l,e ;0110 ld h,d ;0111 inc de ;0112 ld (hl),0 ;0113 ldir ;0115 ld hl,data ;0117 push hl ;011a ld hl,00080h ;011b ld c,(hl) ;011e inc hl ;011f ld b,0 ;0120 add hl,bc ;0122 ld (hl),0 ;0123 ld hl,00081h ;0125 push hl ;0128 call startup ;0129 pop bc ;012c pop bc ;012d push hl ;012e ld hl,(__argc_) ;012f push hl ;0132 call main ;0133 push hl ;0136 call exit ;0137 jp 00000h ;013a ; =============== F U N C T I O N ======================================= ; 1 ; extern int word_9caf; ; ; extern char array_9cb1[]; sub_013dh: ; extern int word_a07f; call csv ;013d ; extern char array_a017[]; ld l,(ix+6) ;0140 ; extern char byte_a07d; ld h,(ix+7) ;0143 ; push hl ;0146 ; void sub_013dh(regisrer p) { pop iy ;0147 ; ld de,(word_a07f) ;0149 ; ld hl,(word_9caf) ;014d ; or a ;0150 ; sbc hl,de ;0151 ; jr nz,l0166h ;0153 ; if(word_9caf != word_a07f) goto m1; ld hl,array_a017 ;0155 ; push hl ;0158 ; ld hl,array_9cb1 ;0159 ; push hl ;015c ; call strcmp ;015d ; pop bc ;0160 ; pop bc ;0161 ; ld a,l ;0162 ; or h ;0163 ; jr z,l01a1h ;0164 ; if(strcmp(array_9cb1, array_a017) == 0) goto m3; l0166h: ; m1: ld hl,(word_a07f) ;0166 ; push hl ;0169 ; ld hl,l8b36h ;016a "\"%d" ; push hl ;016d ; push iy ;016e ; call _fprintf ;0170 ; _fprintf(p, "\"%d", word_a07f); pop bc ;0173 ; pop bc ;0174 ; ld hl,array_9cb1 ;0175 ; ex (sp),hl ;0178 ; ld hl,array_a017 ;0179 ; push hl ;017c ; call strcmp ;017d ; pop bc ;0180 ; pop bc ;0181 ; ld a,l ;0182 ; or h ;0183 ; jr z,l0196h ;0184 ; if(strcmp(array_a017, array_9cb1) == 0) goto m2; ld hl,array_a017 ;0186 ; push hl ;0189 ; ld hl,l8b3ah ;018a " %s" ; push hl ;018d ; push iy ;018e ; call _fprintf ;0190 ; _fprintf(p, " %s", array_a017); pop bc ;0193 ; pop bc ;0194 ; pop bc ;0195 ; l0196h: ; m2: push iy ;0196 ; ld hl,0000ah ;0198 ; push hl ;019b ; call _fputc ;019c ; fputc(p, '\n'); pop bc ;019f ; pop bc ;01a0 ; l01a1h: ; m3: ld hl,(word_a07f) ;01a1 ; ld (word_9caf),hl ;01a4 ; word_9caf = word_a07f; ld hl,array_a017 ;01a7 ; push hl ;01aa ; ld hl,array_9cb1 ;01ab ; push hl ;01ae ; call strcpy ;01af ; strcpy(array_9cb1, array_a017); pop bc ;01b2 ; pop bc ;01b3 ; ld a,(byte_a07d) ;01b4 ; or a ;01b7 ; jp z,cret ;01b8 ; if(byte_a07d == 0) return; call sub_3429h ;01bb ; sub_3429h(); jp cret ;01be ; return; ; } ; =============== F U N C T I O N ======================================= ; 2 ; ; ; sub_01c1h: ; void sub_01c1h(struct aaa *p) { call csv ;01c1 ; ld l,(ix+6) ;01c4 ; ld h,(ix+7) ;01c7 ; push hl ;01ca ; pop iy ;01cb ; ld a,(iy+007h) ;01cd ; cp 1 ;01d0 ; jr nz,l01e2h ;01d2 ; if(p->m5 != 1) goto m1; ld l,(iy+2) ;01d4 ; ld h,(iy+3) ;01d7 ; push hl ;01da ; call sub_0470h ;01db ; sub_0470h(p->m2) pop bc ;01de ; jp cret ;01df ; return; l01e2h: ; m1: ld hl,00031h ; '1' ;01e2 ; push hl ;01e5 ; call _putchar ;01e6 ; putchar('1') jp cret ;01e9 ; return; ; } ; =============== F U N C T I O N ======================================= ; 3 ; sub_01ech: call csv ;01ec ; ld l,(ix+6) ;01ef ; ld h,(ix+7) ;01f2 ; push hl ;01f5 ; pop iy ;01f6 ; void sub_01ech(struct aaa *p) { ld a,(iy+6) ;01f8 ; cp 016h ;01fb ; jp nz,cret ;01fd ; if(p->m6 != 0x16) return; l0200h: ; m1: ld a,(iy+4) ;0200 ; or (iy+5) ;0203 ; jp nz,cret ;0206 ; if(p->m4 != p->m5) return; ld e,(iy+0) ;0209 ; ld d,(iy+1) ;020c ; ld hl,00007h ;020f ; add hl,de ;0212 ; ld a,(hl) ;0213 ; cp 2 ;0214 ; jp z,cret ;0216 ; if(p->m0->m7 == 2) return; ld hl,00012h ;0219 ; add hl,de ;021c ; ld c,(hl) ;021d ; l021eh: ; m2: inc hl ;021e ; ld b,(hl) ;021f ; bit 0,b ;0220 ; jp nz,cret ;0222 ; if(bittst((char)p->m18,0) != 0) return; ld l,e ;0225 ; ld h,d ;0226 ; push hl ;0227 ; call sub_0493h ;0228 ; sub_0493h(p->m0); jp cret ;022b ; } ; =============== F U N C T I O N ======================================= ; 4 ; proc_13(char c) ; sub_022eh: ; void sub_022eh(char c) { call csv ;022e ; ld a,(ix+6) ;0231 ; cp 3 ;0234 ; jr z,l024eh ;0236 ; if(c == 3) goto m2; cp 4 ;0238 ; jr nz,l0244h ;023a ; if(c != 4) goto m1; ld hl,0007bh ; '{' ;023c ; push hl ;023f ; call _putchar ;0240 ; putchar('{'); pop bc ;0243 ; l0244h: ; m1: ld hl,0000ah ; '\n' ;0244 ; push hl ;0247 ; call _putchar ;0248 ; putchar('\n'); jp cret ;024b ; return; l024eh: ; m2: ld hl,0007dh ; '}' ;024e ; push hl ;0251 ; call _putchar ;0252 ; _putchar('}'); pop bc ;0255 ; jr l0244h ;0256 ; goto m1; ; } ; =============== F U N C T I O N ======================================= ; 5 ; sub_0258h: ; void sub_0258h(p) { call csv ;0258 ; ld hl,__iob+8 ;025b ; push hl ;025e ; call sub_013dh ;025f ; sub_013dh(stdout); /* __iob+8 */ ld l,(ix+6) ;0262 ; ld h,(ix+7) ;0265 ; ex (sp),hl ;0268 ; ld hl,l8b3eh ;0269 ; push hl ;026c ; call _printf ;026d ; _printf:("[e :U %d ]\n", p); jp cret ;0270 ; } ; =============== F U N C T I O N ======================================= ; 6 ; sub_0273h: ; void sub_0273h(register struct aaa * st) { call csv ;0273 ; ld l,(ix+6) ;0276 ; ld h,(ix+7) ;0279 ; push hl ;027c ; pop iy ;027d ; ld a,l ;027f ; or h ;0280 ; jp z,cret ;0281 ; if(st == 0) return; ld hl,__iob+8 ;0284 ; push hl ;0287 ; call sub_013dh ;0288 ; sub_013dh(stdout); ld hl,l8b4ah ;028b ; ex (sp),hl ;028e ; call _printf ;028f ; printf("[e :U "); ld hl,__iob+8 ;0292 ; ex (sp),hl ;0295 ; push iy ;0296 ; call sub_573bh ;0298 ; sub_573bh(st, stdout); pop bc ;029b ; ld hl,l8b51h ;029c ; ex (sp),hl ;029f ; call _printf ;02a0 ; printf(" ]\n"); jp cret ;02a3 ; } ; =============== F U N C T I O N ======================================= ; 7 ; sub_02a6h: ; void sub_02a6h(int * p1) { call csv ;02a6 ; register struct aaa *st; push hl ;02a9 ; ld a,(ix+6) ; p1 ;02aa ; or (ix+7) ;02ad ; jp z,cret ;02b0 ; if(p1 == 0) return; ld hl,__iob+8 ;02b3 ; push hl ;02b6 ; call sub_013dh ;02b7 ; sub_013dh(stdout); ld hl,l8b55h ;02ba ; ex (sp),hl ;02bd ; call _printf ;02be ; printf("[\\ "); pop bc ;02c1 ; ld l,(ix+6) ;02c2 ; ld h,(ix+7) ; p1 ;02c5 ; ld c,(hl) ;02c8 ; inc hl ;02c9 ; ld b,(hl) ;02ca ; push bc ;02cb ; call sub_0470h ;02cc ; sub_0470h(*p1); ld hl,0000ah ; '\n' ;02cf ; ex (sp),hl ;02d2 ; call _putchar ;02d3 ; putchar('\n'); pop bc ;02d6 ; ld l,(ix+6) ;02d7 ; ld h,(ix+7) ; p1 ;02da ; inc hl ;02dd ; inc hl ;02de ; ld c,(hl) ;02df ; inc hl ;02e0 ; ld b,(hl) ;02e1 ; ld (ix-2),c ;02e2 ; ld (ix-1),b ; l1 ;02e5 ; p1->m2; /* *(p1-1); */ ld e,(ix+6) ;02e8 ; ld d,(ix+7) ; p1 ;02eb ; ld hl,00006h ;02ee ; add hl,de ;02f1 ; push hl ;02f2 ; pop iy ;02f3 ; st = p1->m6; jr l0319h ;02f5 ; goto m2; l02f7h: ; m1: call _putchar ;02f7 ; putchar(); ld l,(iy+0) ;02fa ; ld h,(iy+1) ;02fd ; ex (sp),hl ;0300 ; call sub_0470h ;0301 ; sub_0470h(st->m0); ld l,(iy+2) ;0304 ; ld h,(iy+3) ;0307 ; ex (sp),hl ;\2 ;030a ; ld hl,l8b59h ;030b ; push hl ;\1 ;030e ; call _printf ;030f ; printf(" %d\n", st->m2); pop bc ;0312 ; pop bc ;0313 ; ld de,00004h ;0314 ; add iy,de ;0317 ; st += 4; l0319h: ; m2: ld l,(ix-2) ;0319 ; ld h,(ix-1) ; l1 ;031c ; dec hl ;031f ; ld (ix-2),l ;0320 ; ld (ix-1),h ; l1 ;0323 ; inc hl ;0326 ; ld a,l ;0327 ; or h ;0328 ; ld hl,00009h ;0329 ; push hl ;032c ; jr nz,l02f7h ;032d ; if(l1-- != 0) goto m1; call _putchar ;032f ; putchar('\t'); pop bc ;0332 ; ld l,(ix+6) ;0333 ; ld h,(ix+7) ; p1 ;0336 ; inc hl ;0339 ; inc hl ;033a ; inc hl ;033b ; inc hl ;033c ; ld c,(hl) ;033d ; inc hl ;033e ; ld b,(hl) ;033f ; push bc ;\2 ;0340 ; ld hl,l8b5eh ;0341 ; push hl ;\1 ;0344 ; call _printf ;0345 ; printf(".. %d\n", *(p1-4)); pop bc ;0348 ; ld hl,l8b65h ;0349 ; ex (sp),hl ;034c ; call _printf ;034d ; printf("]\n"); jp cret ;0350 ; } ; =============== F U N C T I O N ======================================= ; 8 ; sub_0353h: ; void sub_0353h(struct aaa * p, char c) { call csv ;0353 ; register struct aaa *st; ld a,(ix+6) ;0356 ; or (ix+7) ;0359 ; jp z,cret ;035c ; if(p1 == 0) return; ld e,(ix+6) ;035f ; ld d,(ix+7) ; p1 ;0362 ; ld hl,0000ah ;0365 ; add hl,de ;0368 ; ld c,(hl) ;0369 ; inc hl ;036a ; ld b,(hl) ;036b ; push bc ;036c ; pop iy ;036d ; st = p->m10; jr l0380h ;036f ; goto m2; l0371h: ; m1: push iy ;0371 ; call sub_01ech ;0373 ; sub_01ech(st); pop bc ;0376 ; ld l,(iy+00ah) ;0377 ; ld h,(iy+00bh) ;037a ; push hl ;037d ; pop iy ;037e ; st = st->m10; l0380h: ; m2: push iy ;0380 ; pop de ;0382 ; ld l,(ix+6) ;0383 ; ld h,(ix+7) ;0386 ; or a ;0389 ; sbc hl,de ;038a ; jr nz,l0371h ;038c ; if(p != st) goto m1; ld hl,__iob+8 ;038e ; push hl ;0391 ; call sub_013dh ;0392 ; sub_013dh(stdout); ld hl,0005bh ; '[' ;0395 ; ex (sp),hl ;0398 ; call _putchar ;0399 ; putchar('['); pop bc ;039c ; ld a,(ix+8) ;039d ; cp 8 ;03a0 ; jr nz,l03aeh ;03a2 ; if(c != 8) goto m3; ld hl,00073h ; 's' ;03a4 ; push hl ;03a7 ; call _putchar ;03a8 ; putchar('s'); pop bc ;03ab jr l03b6h ;03ac ; goto m4; l03aeh: ; m3: ld hl,00075h ; 'u' ;03ae ; push hl ;03b1 ; call _putchar ;03b2 ; pop bc ;03b5 ; putchar('u'); l03b6h: ; m4: ld l,(ix+6) ;03b6 ; ld h,(ix+7) ; p1 ;03b9 ; ld c,(hl) ;03bc ; inc hl ;03bd ; ld b,(hl) ;\2 ;03be ; push bc ;03bf ; ld hl,l8b68h ;03c0 ; push hl ;\1 ;03c3 ; call _printf ;03c4 ; printf( " S%d", p->m0); pop bc ;03c7 ; pop bc ;03c8 ; ld e,(ix+6) ;03c9 ; ld d,(ix+7) ; p1 ;03cc ; ld hl,0000ah ;03cf ; add hl,de ;03d2 ; ld c,(hl) ;03d3 ; inc hl ;03d4 ; ld b,(hl) ;03d5 ; push bc ;03d6 ; pop iy ;03d7 ; st = p->m10; jr l0415h ;03d9 ; goto m7; l03dbh: ; m5: bit 2,(iy+013h) ;03db ; jr z,l03f1h ;03df ; if(bittst(st->m12,2) == 0) goto m6; ld l,(iy+010h) ;03e1 ; ld h,(iy+011h) ;03e4 ; push hl ;03e7 ; ld hl,l8b6dh ;03e8 ; push hl ;03eb ; call _printf ;03ec ; printf(" :%d", st->m16); pop bc ;03ef ; pop bc ;03f0 ; l03f1h: ; m6: ld hl,00020h ; ' ' ;03f1 ; push hl ;03f4 ; call _putchar ;03f5 ; putchar(' '); pop bc ;03f8 ; push iy ;03f9 ; call sub_7454h ;03fb ; sub_7454h(st); ld hl,00020h ; ' ' ;03fe ; ex (sp),hl ;0401 ; call _putchar ;0402 ; putchar(' '); pop bc ;0405 ; push iy ;0406 ; call sub_01c1h ;0408 ; sub_01c1h(st); pop bc ;040b ; ld l,(iy+00ah) ;040c ; ld h,(iy+00bh) ;040f ; push hl ;0412 ; pop iy ;0413 ; st = st->m10; l0415h: ; m7: push iy ;0415 ; pop de ;0417 ; ld l,(ix+6) ;0418 ; ld h,(ix+7) ;041b ; or a ;041e ; sbc hl,de ;041f ; jr nz,l03dbh ;0421 ; if(p != st) goto m5; ld hl,l8b72h ;0423 ; push hl ;0426 ; call _printf ;0427 ; printf(" ]."); jp cret ;042a ; } ; =============== F U N C T I O N ======================================= ; 9 ; sub_042dh: ; void sub_042dh(register struct bbb * p) { call csv ;042d ; ld l,(ix+6) ;0430 ; ld h,(ix+7) ;0433 ; push hl ;0436 ; pop iy ;0437 ; ld hl,__iob+8 ;0439 ; push hl ;043c ; call sub_013dh ;043d ; sub_013dh(stdout); ld hl,l8b76h ;0440 ; ex (sp),hl ;0443 ; call _printf ;0444 ; printf("[e "); pop bc ;0447 ; jr l0453h ;0448 ; goto m2; l044ah: ; m1: ld l,(iy+1) ;044a ; ld h,(iy+2) ;044d ; push hl ;0450 ; pop iy ;0451 ; p = p->m1; l0453h: ; m2: push iy ;0453 ; pop hl ;0455 ; ld a,l ;0456 ; or h ;0457 ; jr z,l0461h ;0458 ; if(p == 0) goto m3; ld a,(iy+0) ;045a ; cp 07ch ;045d ; jr z,l044ah ;045f ; if(p->m0 == 0x7c) goto m1; l0461h: ; m3: push iy ;0461 ; call sub_0470h ;0463 ; sub_0470h(st) ld hl,l8b7ah ;0466 ; ex (sp),hl ;0469 ; call _printf ;046a ; printf(" ]\n"); jp cret ;046d ; } ; =============== F U N C T I O N ======================================= ; 10 ; sub_0470h: ; void sub_0470h(struct aaa * p) { call csv ;0470 ; ld a,(ix+6) ;0473 ; or (ix+7) ;0476 ; jr z,l0489h ;0479 ; if(p == 0) goto m1; ld l,(ix+6) ;047b ; ld h,(ix+7) ;047e ; push hl ;0481 ; call sub_05f1h ;0482 ; sub_05f1h(p); pop bc ;0485 ; jp cret ;0486 ; return; l0489h: ; m1: ld hl,00031h ;0489 ; push hl ;048c ; call _putchar ;048d ; putchar('1'); jp cret ;0490 ; } ; =============== F U N C T I O N ======================================= ; 11 ; sub_0493h: ; void sub_0493h(register struct aaa * st) { call csv ;0493 ; char c; push hl ;0496 ; ld l,(ix+6) ;0497 ; ld h,(ix+7) ;049a ; push hl ;049d ; pop iy ;049e ; ld a,l ;04a0 ; or h ;04a1 ; jp z,cret ;04a2 ; if(st == 0) return; ld hl,__iob+8 ;04a5 ; push hl ;04a8 ; call sub_013dh ;04a9 ; sub_013dh(stdout); pop bc ;04ac ; push iy ;04ad ; call sub_01ech ;04af ; sub_01ech(st); set 0,(iy+013h) ;+19 ;04b2 ; bitset(st->m18, 0); ld hl,l8b7eh ;04b6 ; ex (sp),hl ;04b9 ; call _printf ;04ba ; printf("[v "); ld hl,__iob+8 ;04bd ; ex (sp),hl ;04c0 ; push iy ;04c1 ; call sub_573bh ;04c3 ; sub_573bh(st, stdout); pop bc ;04c6 ; ld hl,00020h ; ' ' ;04c7 ; ex (sp),hl ;04ca ; call _putchar ;04cb ; putchar(' '); pop bc ;04ce ; push iy ;04cf ; call sub_7454h ;04d1 ; sub_7454h(st); ld hl,00020h ; ' ' ;04d4 ; ex (sp),hl ;04d7 ; call _putchar ;04d8 ; putchar(' '); pop bc ;04db ; bit 0,(iy+012h) ;+18 ;04dc ; jr z,l04eah ;04e0 ; if(bittst(st->m18,0) == 0) goto m1; push iy ;04e2 ; call sub_01c1h ;04e4 ; sub_01c1h(st); pop bc ;04e7 ; jr l04f2h ;04e8 ; goto m2; l04eah: ; m1: ld hl,00030h ; '0' ;04ea ; push hl ;04ed ; call _putchar ;04ee ; putchar('0'); pop bc ;04f1 ; l04f2h: ; m2: ld a,(iy+014h) ;+20 ;04f2 ; cp 6 ;04f5 ; jr nz,l050ch ;04f7 ; if(st->m20 != 0) goto m5; bit 1,(iy+013h) ;+19 ;04f9 ; jr nz,l0504h ;04fd ; if(bittst(st->m12,1) != 0) goto m3; ld hl,00070h ;04ff ; hl = 0x70; jr l0507h ;0502 ; goto m4; l0504h: ; m3: ld hl,00072h ;0504 ; hl = 0x72; l0507h: ; m4: ld (ix-1),l ;0507 ; c = l; jr l0522h ;050a ; goto m6; l050ch: ; m5: ld e,(iy+014h) ;+20 ;050c ; ld d,0 ;050f ; ld hl,0ffedh ;-19 ;0511 ; add hl,de ;0514 ; add hl,hl ;0515 ; ld de,keywords ;0516 ; add hl,de ;0519 ; ld a,(hl) ;051a ; inc hl ;051b ; ld h,(hl) ;051c ; ld l,a ;051d ; ld l,(hl) ;051e ; ld (ix-1),l ;051f ; c = keywords[st->m20-19]; l0522h: ; m6: bit 2,(iy+012h) ;+18 ;0522 ; if(bittst(st->m12,2) == 0) goto m7; ld a,(ix-1) ;0526 ; jr z,l0530h ;0529 ; add a,0e0h ;052b ; ld (ix-1),a ;052d ; c += 0xE0 l0530h: ; m7: ld l,a ;0530 ; rla ;0531 ; sbc a,a ;0532 ; ld h,a ;0533 ; push hl ;0534 ; ld hl,l8b82h ;0535 ; push hl ;0538 ; call _printf ;0539 ; printf(" %c ]\n", c); jp cret ;053c ; } ; =============== F U N C T I O N ======================================= ; 12 ; sub_053fh: ; void sub_053fh(register struct * st, int * p2) { call csv ;053f ; push hl ;0542 ; ld l,(ix+6) ;0543 ; ld h,(ix+7) ;p1 ;0546 ; push hl ;0549 ; pop iy ;054a ; ld hl,(word_a084) ;054c ; push hl ;054f ; call sub_013dh ;0550 ; sub_013dh(word_a084); ld l,(iy+1) ;0553 ; ld h,(iy+2) ;0556 ; ex (sp),hl ;0559 ; ld hl,l8b89h ;055a ; push hl ;055d ; ld hl,(word_a084) ;055e ; push hl ;0561 ; call _fprintf ;0562 ; fprintf(word_a084, "[a %d", st->m1); pop bc ;0565 ; pop bc ;0566 ; pop bc ;0567 ; ld l,(iy+3) ;0568 ; ld h,(iy+4) ;056b ; ld (ix-2),l ;056e ; ld (ix-1),h ;l1 ;0571 ; l1 = st->m3; l0574h: ; m1: ld l,(ix+8) ;p2 ;0574 ; ld h,(ix+9) ;0577 ; ld a,(hl) ;057a ; inc hl ;057b ; ld (ix+8),l ;057c ; ld (ix+9),h ;p2 ;057f ; ld l,a ;0582 ; rla ;0583 ; sbc a,a ;0584 ; ld h,a ;0585 ; push hl ;0586 ; ld hl,l8b8fh ;0587 ; push hl ;058a ; ld hl,(word_a084) ;058b ; push hl ;058e ; call _fprintf ;058f ; fprintf(word_a084, " %d", *p2++); pop bc ;0592 ; pop bc ;0593 ; pop bc ;0594 ; ld l,(ix-2) ;0595 ; ld h,(ix-1) ;l1 ;0598 ; dec hl ;059b ; ld (ix-2),l ;059c ; ld (ix-1),h ;l1 ;059f ; inc hl ;05a2 ; ld a,l ;05a3 ; or h ;05a4 ; jr nz,l0574h ;05a5 ; if(l1-- != 0) goto m1; ld hl,l8b93h ;05a7 ; push hl ;05aa ; ld hl,(word_a084) ;05ab ; push hl ;05ae ; call _fprintf ;05af ; fprintf(word_a084, " ]\n"); jp cret ;05b2 ; } ; =============== F U N C T I O N ======================================= ; 13 ; sub_05b5h: ; void sub_05b5h(p1) { call csv ;05b5 ; ld hl,__iob+8 ;05b8 ; push hl ;05bb ; call sub_013dh ;05bc ; sub_013dh(stdout); ld l,(ix+6) ;05bf ; ld h,(ix+7) ;05c2 ; ex (sp),hl ;05c5 ; call sub_0470h ;05c6 ; sub_0470h(p1); ld hl,0000ah ;05c9 ; ex (sp),hl ;05cc ; call _putchar ;05cd ; putchar('\n'); jp cret ;05d0 ; } ; =============== F U N C T I O N ======================================= ; 14 ; sub_05d3h: ; void sub_05d3h(p1) { call csv ;05d3 ; ld hl,__iob+8 ;05d6 ; push hl ;05d9 ; call sub_013dh ;05da ; sub_013dh(stdout); ld l,(ix+6) ;05dd ; ld h,(ix+7) ;05e0 ; ex (sp),hl ;05e3 ; call sub_0470h ;05e4 ; sub_0470h(p1); ld hl,0000ah ;05e7 ; ex (sp),hl ;05ea ; call _putchar ;05eb ; putchar('\n'); jp cret ;05ee ; } ; =============== F U N C T I O N ======================================= ; 15 ; sub_05f1h: ; sub_05f1h(register struct aaa * st) { call ncsv ;05f1 ; defw 0fffah ;-6 ;05f4 ; struct xxx * l1; ld l,(ix+6) ;05f6 ; ld h,(ix+7) ;05f9 ; push hl ;05fc ; pop iy ;05fd ; ld e,(iy+0) ;05ff ; ld d,0 ;0602 ; ld hl,0ffc4h ;-60 ;0604 ; add hl,de ;0607 ; add hl,hl ;0608 ; add hl,hl ;0609 ; add hl,hl ;060a ; ld de,l9271h ;060b ; add hl,de ;060e ; ld (ix-2),l ;060f ; ld (ix-1),h ;0612 ; l1 = *(l9271h + (p1-60)*8); inc hl ;0615 ; inc hl ;0616 ; inc hl ;0617 ; inc hl ;0618 ; bit 0,(hl) ;0619 ; ld a,(iy+0) ;061b ; jp z,l0712h ;061e ; if(bittst(l1->m4,0) == 0) goto m14; cp h ;0621 ; jr z,l0641h ;0623 ; if(st->m0 == 0x73) goto m1; cp 074h ;0625 ; jp z,l06a5h ;0627 ; if(st->m0 == 0x74) goto m5; cp 076h ;062a ; jp z,l06fah ;062c ; if(st->m0 == 0x76) goto m11; cp 077h ;062f ; jp z,l06ddh ;0631 ; if(st->m0 == 0x77) goto m8; cp 07eh ;0634 ; jp z,l0706h ;0636 ; if(st->m0 == 0x7E) goto m12; cp 07fh ;0639 ; jp z,l06eah ;063b ; if(st->m0 == 0x7F) goto m9; jp cret ;063e ; return; l0641h: ; m1: ld l,(iy+1) ;0641 ; ld h,(iy+2) ;0644 ; ld (ix-4),l ;0647 ; ld (ix-3),h ;l2 ;064a ; l2 = st-m1; ld e,(ix-4) ;064d ; ld d,(ix-3) ;l2 ;0650 ; ld hl,00014h ;0653 ; add hl,de ;0656 ; ld a,(hl) ;0657 ; cp 00ch ;0658 ; jr nz,l0695h ;065a ; if(l2->m20 != 0xC) goto m4; ld hl,l8b97h ;065c ; push hl ;065f ; call _printf ;0660 ; printf(". `"); pop bc ;0663 ; ld hl,__iob+8 ;0664 ; push hl ;\2 ;0667 ; ld e,(ix-4) ;0668 ; ld d,(ix-3) ;l2 ;066b ; ld hl,0000ah ;066e ; add hl,de ;0671 ; ld c,(hl) ;0672 ; inc hl ;0673 ; ld b,(hl) ;0674 ; push bc ;0675 ; call sub_573bh ;0676 ; sub_573bh(l2->m10, stdout); pop bc ;0679 ; pop bc ;067a ; ld e,(ix-4) ;067b ; ld d,(ix-3) ;l2 ;067e ; ld hl,0000eh ;0681 ; add hl,de ;0684 ; ld c,(hl) ;0685 ; inc hl ;0686 ; ld b,(hl) ;0687 ; push bc ;0688 ; ld hl,l8b9bh ;0689 ; push hl ;068c ; call _printf ;068d ; printf(" %d", l2->m14); l0690h: ; m2: pop bc ;0690 ; l0691h: ; m3: pop bc ;0691 ; jp cret ;0692 ; return; l0695h: ; m4: ld hl,__iob+8 ;\2 ;0695 ; push hl ;0698 ; ld l,(ix-4) ;0699 ; ld h,(ix-3) ;l2 ;069c ; push hl ;069f ; call sub_573bh ;06a0 ; sub_573bh(l2->m0, stdout) jr l0690h ;06a3 ; goto m2; l06a5h: ; m5: ld hl,00014h ;06a5 ; push hl ;06a8 ; push iy ;06a9 ; pop de ;06ab ; ld hl,0x0005 ;06ac ; add hl,de ;06af ; push hl ;06b0 ; call sub_5a76h ;06b1 ; pop bc ;06b4 ; pop bc ;06b5 ; ld a,l ;06b6 ; or a ;06b7 ; ld e,(iy+1) ;06b8 ; ld d,(iy+2) ;06bb ; ld l,(iy+3) ;06be ; de=st->m1 ld h,(iy+4) ;06c1 ; hl=st->m3 long push hl ;06c4 ; push de ;06c5 ; jr z,l06d3h ;06c6 ; if(sub_5a76h(&st-m5,0x14) == 0) goto m7; ld hl,l8b9fh ;06c8 "%ld" ; push hl ;06cb ; call _printf ;06cc ; printf("%ld", ); pop bc ;06cf ; l06d0h: ; m6: pop bc ;06d0 ; jr l0691h ;06d1 ; goto m3; l06d3h: ; m7: ld hl,l8ba3h ;06d3 ; push hl ;06d6 ; call _printf ;06d7 ; printf("-> %ld ", ); pop bc ;06da ; pop bc ;06db ; pop bc ;06dc ; l06ddh: ; m8: push iy ;06dd ; pop de ;06df ; ld hl,0x0005 ;06e0 ; add hl,de ;06e3 ; push hl ;06e4 ; call sub_7454h ;06e5 ; sub_7454h(&st->m5); jr l0691h ;06e8 ; goto m3; l06eah: ; m9: ld l,(iy+1) ;06ea ; ld h,(iy+2) ;06ed ; hl=st->m1 push hl ;06f0 ; ld hl,l8babh ;06f1 ; ".%s" l06f4h: ; m10: push hl ;06f4 ; call _printf ;06f5 ; printf(, ); jr l06d0h ;06f8 ; goto m6; l06fah: ; m11: ld l,(iy+1) ;06fa ; ld h,(iy+2) ;06fd ; hl=st->m1 push hl ;0700 ; ld hl,l8bafh ;0701 ; ":s %d" jr l06f4h ;0704 ; goto m10; l0706h: ; m12: ld l,(iy+1) ;0706 ; ld h,(iy+2) ;0709 ; hl=st->m1 push hl ;070c ; ld hl,l8bb5h ;070d ; "%d" jr l06f4h ;0710 ; goto m10; l0712h: ; m14: cp 04eh ;0712 ; jr nz,l071eh ;0714 ; if( != 0) goto m15; ld hl,l8bb8h ;0716 ; push hl ;0719 ; call _printf ;071a ; printf("-> "); pop bc ;071d ; l071eh: ; m15: ld a,(iy+0) ;071e ; cp 04eh ;0721 ; jr nz,l0781h ;0723 ; if(st->m0 != 0x4E) goto m16; ld l,(iy+1) ;0725 ; ld h,(iy+2) ;0728 ; ld (ix-6),l ;072b ; ld (ix-5),h ;l3 ;072e ; ld a,(hl) ;0731 ; cp 073h ;0732 ; jr nz,l0781h ;0734 ; if((l3 = st->m1)->m0 != 0x73) goto m16; ld l,(ix-6) ;0736 ; ld h,(ix-5) ;l3 ;0739 ; inc hl ;073c ; ld c,(hl) ;073d ; inc hl ;073e ; ld b,(hl) ;073f ; ld hl,00012h ;0740 ; add hl,bc ;0743 ; ld c,(hl) ;0744 ; inc hl ;0745 ; ld b,(hl) ;0746 ; bit 0,c ;0747 ; jr nz,l0781h ;0749 ; if(bittst(l3->m1->m18,0) != 0) goto m16; ld hl,l8bbch ;074b ; push hl ;074e ; call _printf ;074f ; printf("* # "); ld e,(ix-6) ;0752 ; ld d,(ix-5) ;l3 ;0755 ; ld hl,0x0005 ;0758 ; add hl,de ;075b ; ex (sp),hl ;075c ; call sub_7454h ;075d ; sub_7454h(&l3->m5) ld hl,00020h ;0760 ; ex (sp),hl ;0763 ; call _putchar ;0764 ; putchar(' '); pop bc ;0767 ; ld l,(ix-6) ;0768 ; ld h,(ix-5) ;l3 ;076b ; inc hl ;076e ; ld c,(hl) ;076f ; inc hl ;0770 ; ld b,(hl) ;0771 ; push bc ;0772 ; call sub_01c1h ;0773 ; sub_01c1h(l3->m1); ld hl,00020h ;0776 ; ex (sp),hl ;0779 ; call _putchar ;077a ; putchar(' '); pop bc ;077d ; jp l06ddh ;077e ; goto m8; l0781h: ; m16: ld l,(ix-2) ;0781 ; ld h,(ix-1) ;l1 ;0784 ; push hl ;0787 ; ld hl,l8bc1h ;0788 ; push hl ;078b ; call _printf ;078c ; printf( "%.3s ", l1); pop bc ;078f ; pop bc ;0790 ; ld a,(iy+0) ;0791 ; cp 078h ;0794 ; jp z,cret ;0796 ; if(st->m0 == 0x78) return; ld l,(iy+1) ;0799 ; ld h,(iy+2) ;079c ; push hl ;079f ; call sub_05f1h ;07a0 ; sub_05f1h(st->m1); pop bc ;07a3 ; ld l,(ix-2) ;07a4 ; ld h,(ix-1) ;l1 ;07a7 ; inc hl ;07aa ; inc hl ;07ab ; inc hl ;07ac ; inc hl ;07ad ; bit 1,(hl) ;07ae ; jr z,l07c6h ;07b0 ; if(bittst(l1->m4,1) == 0) goto m17; ld hl,00020h ;07b2 ; push hl ;07b5 ; call _putchar ;07b6 ; putchar(' '); ld l,(iy+3) ;07b9 ; ld h,(iy+4) ;07bc ; ex (sp),hl ;07bf ; call sub_05f1h ;07c0 ; sub_05f1h(st->m3); jp l0691h ;07c3 ; goto m3; l07c6h: ; m17: ld a,(iy+0) ;07c6 ; cp 04eh ;07c9 ; jp nz,cret ;07cb ; if(st->m0 != 0x4E) return; ld hl,00020h ;07ce ; push hl ;07d1 ; call _putchar ;07d2 ; putchar(' '); push iy ;07d5 ; pop de ;07d7 ; ld hl,0x0005 ;07d8 ; add hl,de ;07db ; ex (sp),hl ;07dc ; call sub_7454h ;07dd ; sub_7454h(&st->m5); jp cret ;07e0 ; } ; =============== F U N C T I O N ======================================= ; 16 ; sub_07e3h: call csv ;07e3 ; void sub_07e3h() { ld hl,array_9d60 ;07e6 ; ld (word_9cf1),hl ;07e9 ; word_9cf1 = array_9d60; ld hl,00000h ;07ec ; ld (word_9d35),hl ;07ef ; word_9d35 = 0; jp cret ;07f2 ; } ; =============== F U N C T I O N ======================================= ; 17 ; sub_07f5h: ; struct aaa * sub_07f5h(char p1) { call csv ;07f5 ; char l1; push hl ;07f8 ; register struct aaa * st; ld a,(byte_9d37) ;07f9 ; ld (ix-1),a ;07fc ; l1 = byte_9d37; ld a,(ix+6) ;07ff ; ld (byte_9d37),a ;0802 ; byte_9d37 = p1; call sub_0bfch ;0805 ; push hl ;0808 ; pop iy ;0809 ; st = sub_0bfch(); ld a,(ix-1) ;080b ; ld (byte_9d37),a ;080e ; push iy ;0811 ; byte_9d37 = l1; pop hl ;0813 ; return st; jp cret ;0814 ; } ; =============== F U N C T I O N ======================================= ; 18 ; sub_0817h: ; struct st_13 * sub_0817h(struct st_13 * st) { call ncsv ;0817 ; int l1; defw 0fef9h ;-263 ;081a ; int l2; ld l,(ix+6) ;081c ; struct st_13 * l3; ld h,(ix+7) ;081f ; char l4; push hl ;0822 ; struct st_13 * arr[128]; pop iy ;0823 ; ld a,l ;0825 ; or h ;0826 ; ld a,(iy+007h) ;0827 ; jr z,l085eh ;082a ; if(st == 0) goto m2; cp 002h ;082c ; jr z,l085bh ;082e ; if(st->m7 == 2) goto m1; ld de,00001h ;0830 ; ld l,(iy+4) ;0833 ; ld h,(iy+5) ;0836 ; or a ;0839 ; sbc hl,de ;083a ; jr nz,l085bh ;083c ; if(st->m4 != 1) goto m1; ld a,(iy+6) ;083e ; cp 016h ;0841 ; jr nz,l085bh ;0843 ; if(st->m6 != 0x16) goto m1; ld e,(iy+0) ;0845 ; ld d,(iy+1) ;0848 ; ld hl,00007h ;084b ; add hl,de ;084e ; ld a,(hl) ;084f ; cp 002h ;0850 ; jr nz,l085bh ;0852 ; if(st->m0->m7 != 0) goto m1; ld l,e ;0854 ; ld h,d ;0855 ; push hl ;0856 ; pop iy ;0857 ; st = st->m0; jr l086ah ;0859 ; goto m3; l085bh: ; m1: ld a,(iy+007h) ;085b ; l085eh: ; m2: cp 002h ;085e ; jr z,l086ah ;0860 ; if(st->m7 == 2) goto m3; ld hl,l8bd9h ;0862 ; push hl ;0865 ; call prerror ;0866 ; prerror("function or function pointer required"); pop bc ;0869 ; l086ah: ; m3: push iy ;086a ; pop hl ;086c ; ld a,l ;086d ; or h ;086e ; jr z,l0895h ;086f ; if(st == 0) goto m4; ld a,(iy+007h) ;0871 ; cp 002h ;0874 ; jr nz,l0895h ;0876 ; if(st->m7 != 2) goto m4; ld a,(iy+2) ;0878 ; or (iy+3) ;087b ; jr z,l0895h ;087e ; if(st->m2 == 0) goto m4; ld l,(iy+2) ;0880 ; ld h,(iy+3) ;0883 ; ld c,(hl) ;0886 ; inc hl ;0887 ; ld b,(hl) ;0888 ; ld (ix-4),c ;0889 ; ld (ix-3),b ;l2 ;088c ; l2 = st->m2->m0; inc hl ;088f ; push hl ;0890 ; pop iy ;0891 ; st = st->m3; jr l08a1h ;0893 ; goto m5; l0895h: ; m4: ld iy,00000h ;0895 ; st = 0; ld (ix-4),0 ;0899 ; ld (ix-3),0 ;089d ; l2 = 0; l08a1h: ; m5: ld (ix-2),0 ;08a1 ; ld (ix-1),0 ;l1 ;08a5 ; l1 = 0; call sub_2671h ;08a9 ; ld a,l ;08ac ; ld (ix-7),a ;l4 ;08ad ; ld (byte_9def),a ;08b0 ; byte_9def = l4 = sub_2671h(); l08b3h: ; m6: push iy ;08b3 ; pop hl ;08b5 ; ld a,l ;08b6 ; or h ;08b7 ; jr z,l08cdh ;08b8 ; if(st == 0) goto m7; ld a,(iy+6) ;08ba ; cp 018h ;08bd ; jr nz,l08cdh ;08bf ; if(st->m6 != 0x18) goto m7; ld (ix-4),0 ;08c1 ; ld (ix-3),0 ;l2 ;08c5 ; ld iy,00000h ;08c9 ; l2 = 0; l08cdh: ; m7: ld a,(ix-7) ;l4 ;08cd ; cp 03fh ;08d0 ; jp z,l09b8h ;08d2 ; if(l4 == 0x3F) goto m12; push iy ;08d5 ; pop hl ;08d7 ; ld a,l ;08d8 ; or h ;08d9 ; jr z,l08ffh ;08da ; if(st == 0) goto m8; ld hl,00014h ;08dc ; push hl ;08df ; push iy ;08e0 ; call sub_5a76h ;08e2 ; pop bc ;08e5 ; pop bc ;08e6 ; ld a,l ;08e7 ; or a ;08e8 ; jr z,l08ffh ;08e9 ; if(sub_5a76h(st, 0x14) == 0) goto m8; ld hl,l8bffh ;08eb ; push hl ;08ee ; call prerror ;08ef ; prerror("function does not take arguments"); pop bc ;08f2 ; ld (ix-4),0 ;08f3 ; ld (ix-3),0 ;l2 ;08f7 ; l2 = 0; ld iy,00000h ;08fb ; st = 0; l08ffh: ; m8: ld hl,00003h ;08ff ; push hl ;0902 ; call sub_07f5h ;0903 ; ex (sp),hl ;0906 ; ld hl,0003ch ;0907 ; push hl ;090a ; call sub_1441h ;090b ; pop bc ;090e ; pop bc ;090f ; ld (ix-6),l ;0910 ; ld (ix-5),h ;l3 ;0913 ; ld a,l ;0916 ; or (ix-5) ;0917 ; jp z,l09b8h ;091a ; if((l3 = sub_1441h(0x3C, sub_07f5h(3))) == 0) goto m12; push iy ;091d ; pop hl ;091f ; ld a,l ;0920 ; or h ;0921 ; jr z,l094ah ;0922 ; if(st == 0) goto m9; ld l,(ix-4) ;0924 ; ld h,(ix-3) ;l2 ;0927 ; dec hl ;092a ; ld (ix-4),l ;092b ; ld (ix-3),h ;l2 ;092e ; inc hl ;0931 ; ld a,l ;0932 ; or h ;0933 ; jr nz,l094ah ;0934 ; if(l2-- != 0) goto m9; ld hl,l8c20h ;0936 ; push hl ;0939 ; call prerror ;093a ; prerror("too many arguments"); pop bc ;093d ; ld iy,00000h ;093e ; ld (ix-4),0 ;0942 ; ld (ix-3),0 ;l2 ;0946 ; l2 = 0; l094ah: ; m9: push iy ;094a ; pop hl ;094c ; ld a,l ;094d ; or h ;094e ; jr z,l0977h ;094f ; if(st == 0) goto m10; ld hl,00001h ;0951 ; push hl ;\3 ;0954 ; push iy ;\ ;0955 ; pop hl ;/ ;0957 ; ld bc,00008h ;0958 ; add hl,bc ;095b ; push hl ;095c ; pop iy ;095d ; sbc hl,bc ;095f ; push hl ;\2 ;0961 ; ld l,(ix-6) ;0962 ; ld h,(ix-5) ;l3 ;0965 ; push hl ;\1 ;0968 ; call sub_1f5dh ;0969 ; pop bc ;096c ; pop bc ;096d ; pop bc ;096e ; ld (ix-6),l ;096f ; ld (ix-5),h ;l3 ;0972 ; l3 = sub_1f5dh(l3, st->m8, 1) jr l0988h ;0975 ; goto m11; l0977h: ; m10: ld l,(ix-6) ;0977 ; ld h,(ix-5) ;l3 ;097a ; push hl ;097d ; call sub_1d02h ;097e ; pop bc ;0981 ; ld (ix-6),l ;0982 ; ld (ix-5),h ;l3 ;0985 ; l3 = sub_1d02h(l3); l0988h: ; m11: push ix ;0988 ; pop de ;098a ; ld l,(ix-2) ;098b ; ld h,(ix-1) ;l1 ;098e ; inc hl ;0991 ; ld (ix-2),l ;0992 ; ld (ix-1),h ;l1 ;0995 ; dec hl ;0998 ; add hl,hl ;0999 ; add hl,de ;099a ; ld de,0fef9h ;-263 ;099b ; add hl,de ;099e ; ld e,(ix-6) ;099f ; ld d,(ix-5) ;l3 ;09a2 ; ld (hl),e ;09a5 ; inc hl ;09a6 ; ld (hl),d ;09a7 ; arr[l1-- - 263] = l3; call sub_2671h ;09a8 ; ld e,l ;09ab ; ld (ix-7),e ;l4 ;09ac ; ld a,e ;09af ; cp 071h ;09b0 ; jp z,l08b3h ;09b2 ; if((l4 = sub_2671h()) == 0x71) goto m6; ld (byte_9def),a ;09b5 ; byte_9def = l4; l09b8h: ; m12: ld de,00001h ;09b8 ; ld l,(ix-4) ;09bb ; ld h,(ix-3) ;l2 ;09be ; or a ;09c1 ; sbc hl,de ;09c2 ; jr nz,l09ddh ;09c4 ; if(l2 != 1) goto m13; ld a,(ix-2) ;09c6 ; or (ix-1) ;09c9 ; jr nz,l09ddh ;09cc ; if(l1 != 0) goto m13; ld hl,00014h ;09ce ; push hl ;09d1 ; push iy ;09d2 ; call sub_5a76h ;09d4 ; pop bc ;09d7 ; pop bc ;09d8 ; ld a,l ;09d9 ; or a ;09da ; jr nz,l09f4h ;09db ; if(sub_5a76h(st, 0x14) != 0) goto m14; l09ddh: ; m13: ld a,(ix-4) ;09dd ; or (ix-3) ;09e0 ; jr z,l09f4h ;09e3 ; if(st->m4 == 0) goto m14; ld a,(iy+6) ;09e5 ; cp 018h ;09e8 ; jr z,l09f4h ;09ea ; if(st->m6 == 0) goto m14; ld hl,l8c33h ;09ec ; push hl ;09ef ; call prerror ;09f0 ; prerror("too few arguments"); pop bc ;09f3 ; l09f4h: ; m14: ld a,(ix-2) ;09f4 ; or (ix-1) ;l1 ;09f7 ; jr nz,l0a07h ;09fa ; if(l1 != 0) goto m15; ld hl,00078h ;09fc ; push hl ;09ff ; call sub_23b4h ;0a00 ; sub_23b4h(0x78); pop bc ;0a03 ; jp cret ;0a04 ; return; l0a07h: ; m15: ld (ix-4),0 ;0a07 ; ld (ix-3),0 ;l2 ;0a0b ; l2 = 0 jr l0a5bh ;0a0f ; goto m17; l0a11h: ; m16: inc hl ;0a11 ; add hl,hl ;0a12 ; add hl,de ;0a13 ; ld de,0fef9h ;-263 ;0a14 ; add hl,de ;0a17 ; ld c,(hl) ;0a18 ; inc hl ;0a19 ; ld b,(hl) ;0a1a ; push bc ;0a1b ; push ix ;0a1c ; pop de ;0a1e ; ld l,(ix-4) ;0a1f ; ld h,(ix-3) ;l2 ;0a22 ; add hl,hl ;0a25 ; add hl,de ;0a26 ; ld de,0fef9h ;-263 ;0a27 ; add hl,de ;0a2a ; ld c,(hl) ;0a2b ; inc hl ;0a2c ; ld b,(hl) ;0a2d ; push bc ;\2 ;0a2e ; ld hl,00071h ;0a2f ; push hl ;\1 ;0a32 ; call sub_23b4h ;0a33 ; pop bc ;0a36 ; pop bc ;0a37 ; pop bc ;0a38 ; push hl ;\ ;0a39 ; push ix ;\ ;0a3a ; pop de ;/ ;0a3c ; ld l,(ix-4) ;0a3d ; ld h,(ix-3) ;l2 ;0a40 ; inc hl ;0a43 ; add hl,hl ;0a44 ; add hl,de ;0a45 ; ld de,0fef9h ;-263 ;0a46 ; add hl,de ;0a49 ; pop de ;0a4a ; ld (hl),e ;0a4b ; inc hl ;0a4c ; ld (hl),d ;0a4d ; arr[l2] = sub_23b4h(0x71, arr[l2], arr[l2]); ld l,(ix-4) ;0a4e ; ld h,(ix-3) ;l2 ;0a51 ; inc hl ;0a54 ; ld (ix-4),l ;0a55 ; ld (ix-3),h ;l2 ;0a58 ; ++l2; l0a5bh: ; m17: ld e,(ix-2) ;0a5b ; ld d,(ix-1) ;l1 ;0a5e de=l1 ; ld l,(ix-4) ;0a61 ; ld h,(ix-3) ;l2 ;0a64 hl=l2-1 ; inc hl ;0a67 ; or a ;0a68 ; sbc hl,de ;0a69 l2-1-l1 ; push ix ;0a6b ; pop de ;0a6d ; ld l,(ix-4) ;0a6e ; ld h,(ix-3) ;l2 ;0a71 ; jr nz,l0a11h ;0a74 ; if(l2-1 != l1) goto m16; add hl,hl ;0a76 ; add hl,de ;0a77 ; ld de,0fef9h ;-263 ;0a78 ; add hl,de ;0a7b ; ld a,(hl) ;0a7c ; inc hl ;0a7d ; ld h,(hl) ;0a7e ; ld l,a ;0a7f ; jp cret ;0a80 ; return arr[l2]; ; } ; =============== F U N C T I O N ======================================= ; 19 ++ ; sub_0a83h: ; struct st_13 * sub_0a83h(char p1) { call csv ;0a83 ; register struct st_13 * st; ld a,(ix+6) ;p1 ;0a86 ; ld (byte_9d37),a ;0a89 ; byte_9d37 = p1; call sub_0bfch ;0a8c ; push hl ;0a8f ; ld hl,0003ch ;0a90 ; push hl ;0a93 ; call sub_1441h ;0a94 ; pop bc ;0a97 ; pop bc ;0a98 ; push hl ;0a99 ; pop iy ;0a9a ; ld a,l ;0a9c ; or h ;0a9d ; jr z,l0ae3h ;0a9e ; if((st = sub_1441h(0x3C, sub_0bfch())) == 0) goto m3; push iy ;0aa0 ; call sub_0aedh ;0aa2 ; pop bc ;0aa5 ; ld a,l ;0aa6 ; or a ;0aa7 ; jr nz,l0ab4h ;0aa8 ; if(sub_0aedh(st) != 0) goto m1; ld hl,l8c45h ;0aaa ; push hl ;0aad ; call prerror ;0aae ; prerror("constant expression required"); pop bc ;0ab1 ; jr l0ae3h ;0ab2 ; goto m3; l0ab4h: ; m1: ld a,(byte_9d37) ;0ab4 ; cp 002h ;0ab7 ; jr nz,l0ae3h ;0ab9 ; if(byte_9d37 != 2) goto m3; push iy ;0abb ; pop de ;0abd ; ld hl,0x0005 ;0abe ; add hl,de ;0ac1 ; push hl ;0ac2 ; call sub_5b69h ;0ac3 ; pop bc ;0ac6 ; ld a,l ;0ac7 ; or a ;0ac8 ; jr z,l0adbh ;0ac9 ; if(sub_5b69h(&st->m5) == 0) goto m2; ld hl,0000ch ;0acb ; push hl ;0ace ; push iy ;0acf ; call sub_1ccch ;0ad1 ; pop bc ;0ad4 ; pop bc ;0ad5 ; push hl ;0ad6 ; pop iy ;0ad7 ; st = sub_1ccch(st, 0xC); jr l0ae3h ;0ad9 ; goto m3; l0adbh: ; m2: ld hl,l8c62h ;0adb ; push hl ;0ade ; call prerror ;0adf ; prerror("illegal type for array dimension"); pop bc ;0ae2 ; l0ae3h: ; m3: xor a ;0ae3 ; ld (byte_9d37),a ;0ae4 ; byte_9d37 = 0; push iy ;0ae7 ; pop hl ;0ae9 ; return st; jp cret ;0aea ; } ; =============== F U N C T I O N ======================================= ; 20 ; sub_0aedh: ; int sub_0aedh(register struct aaa * st) { call csv ;0aed ; int l1; push hl ;0af0 ; ld l,(ix+6) ;0af1 ; ld h,(ix+7) ;0af4 ; push hl ;0af7 ; pop iy ;0af8 ; ld a,l ;0afa ; or h ;0afb ; jr nz,l0b03h ;0afc ; if(st != 0) goto m2; l0afeh: ; m1: ld l,001h ;0afe ; jp cret ;0b00 ; return (char)1; l0b03h: ; m2: ld a,(iy+0) ;0b03 ; ld (ix-1),a ;0b06 ; l1 = st->m0; ld a,(ix-1) ;l1 ;0b09 ; cp 073h ;0b0c ; jr nz,l0b24h ;0b0e ; if(l1 != 073) goto m3; ld hl,00012h ;0b10 ; push hl ;0b13 ; push iy ;0b14 ; pop de ;0b16 ; ld hl,0x0005 ;0b17 ; add hl,de ;0b1a ; push hl ;0b1b ; call sub_5a76h ;0b1c ; pop bc ;0b1f ; pop bc ;0b20 ; jp cret ;0b21 ; return sub_5a76h(&st->m5, 012); l0b24h: ; m3: ld a,(ix-1) ;0b24 ; cp 04eh ;0b27 ; jr z,l0afeh ;0b29 ; if(l1 == 0x4e) goto m1; cp 046h ;0b2b ; jr nz,l0b3eh ;0b2d ; if(l1 != 0x46) goto m4; ld l,(iy+1) ;0b2f ; ld h,(iy+2) ;0b32 ; push hl ;0b35 ; call sub_0b93h ;0b36 ; pop bc ;0b39 ; ld a,l ;0b3a ; or a ;0b3b ; jr nz,l0afeh ;0b3c ; if(sub_0b93h(st->m1) != 0) goto m1; l0b3eh: ; m4: ld e,(ix-1) ;l1 ;0b3e ; ld d,0 ;0b41 ; ld hl,0ffc4h ;-60 ;0b43 ; add hl,de ;0b46 ; add hl,hl ;0b47 ; add hl,hl ;0b48 ; add hl,hl ;0b49 ; ld de,l9275h ;0b4a ; add hl,de ;0b4d ; ld l,(hl) ;0b4e ; ld (ix-2),l ;0b4f ; bit 4,(ix-2) ;0b52 ; jr nz,l0b5dh ;0b56 ; if(bittst(bittst(l2 = *(l9275h + (l1-60)*8),4) != 0) goto m5; ld l,0 ;0b58 ; jp cret ;0b5a ; return (char)0; l0b5dh: ; m5: bit 0,(ix-2) ;l1 ;0b5d ; jr nz,l0afeh ;0b61 ; if(bittst(l2,0) != 0) goto m1; ld l,(iy+1) ;0b63 ; ld h,(iy+2) ;0b66 ; push hl ;0b69 ; call sub_0aedh ;0b6a ; pop bc ;0b6d ; ld a,l ;0b6e ; or a ;0b6f ; jr z,l0b8dh ;0b70 ; if(sub_0aedh(st->m1) == 0) goto m7; bit 1,(ix-2) ;0b72 ; jr z,l0b87h ;l1 ;0b76 ; if(bittst(l2,1) == 0) goto m6; ld l,(iy+3) ;0b78 ; ld h,(iy+4) ;0b7b ; push hl ;0b7e ; call sub_0aedh ;0b7f ; pop bc ;0b82 ; ld a,l ;0b83 ; or a ;0b84 ; jr z,l0b8dh ;0b85 ; if(sub_0aedh(st->m3) == 0) goto m7; l0b87h: ; m6: ld hl,00001h ;0b87 ; jp cret ;0b8a ; return 1; l0b8dh: ; m7: ld hl,00000h ;0b8d ; return 0; jp cret ;0b90 ; } ; =============== F U N C T I O N ======================================= ; 21 ; sub_0b93h: ; int sub_0b93h(register struct ???? * st) { call csv ;0b93 ; char l1; push hl ;0b96 ; ld l,(ix+6) ;0b97 ; ld h,(ix+7) ;p1 ;0b9a ; push hl ;0b9d ; pop iy ;0b9e ; ld a,(iy+0) ;0ba0 ; ld (ix-1),a ;l1 ;0ba3 ; l1 = st->m0; ld a,(ix-1) ;l1 ;0ba6 ; cp 073h ;115 ;0ba9 ; jr nz,l0bcbh ;0bab ; if(l1 != 0x73) goto m2; ld e,(iy+1) ;0bad ; ld d,(iy+2) ;0bb0 ; ld hl,00014h ;+20 ;0bb3 ; add hl,de ;0bb6 ; ld a,(hl) ;0bb7 ; cp 01fh ;31 ;0bb8 ; jr z,l0bc5h ;0bba ; if(st->m1->m20 == 0x1F) goto m1; ld hl,00014h ;20 ;0bbc ; add hl,de ;0bbf ; ld a,(hl) ;0bc0 ; cp 02ah ;42 ;0bc1 ; jr nz,l0bf6h ;0bc3 ; if(st->m1->m20 != 0x2A) goto m4; l0bc5h: ; m1: ld hl,00001h ;0bc5 ; jp cret ;0bc8 ; return 1; l0bcbh: ; m2: ld a,(ix-1) ;0bcb ; cp 043h ;67 ;0bce ; jr nz,l0be0h ;0bd0 ; if(l1 != 0x43) goto m3; ld l,(iy+1) ;0bd2 ; ld h,(iy+2) ;0bd5 ; push hl ;0bd8 ; call sub_0b93h ;0bd9 ; pop bc ;0bdc ; jp cret ;0bdd ; return sub_0b93h(st->m1); l0be0h: ; m3: ld a,(ix-1) ;0be0 ; cp 045h ;69 ;0be3 ; jr nz,l0bf6h ;0be5 ; if(l1 != 0x45) goto m4; ld l,(iy+1) ;0be7 ; ld h,(iy+2) ;0bea ; push hl ;0bed ; call sub_0aedh ;0bee ; pop bc ;0bf1 ; ld a,l ;0bf2 ; or a ;0bf3 ; jr nz,l0bc5h ;0bf4 ; if(sub_0aedh(st->m1) != 0) goto m1; l0bf6h: ; m4: ld hl,00000h ;0bf6 ; return 0; jp cret ;0bf9 ; } ; =============== F U N C T I O N ======================================= ; 22 ; ; ix-1 2 ;1 24 char l1; m25 ; ix-2 8 ;2 23 char l2; m23 ; ix-4 0 ;4 22 ; ix-3 0 ;3 21 int l3; m21 ; ix-6 0 ;6 20 ; ix-5 0 ;5 19 int l4; m19 ; ix-8 ? ;6 18 ; ix-7 ? ;5 17 int l5; m17 ; ix-00ah l ; 10 16 ; ix-009h h ; 9 15 int l6; m15 ; ix-00ch l ; 12 14 ; ix-00bh h ; 11 13 int l7; m13 ; ix-00eh l ; 14 12 ; ix-00dh h ; 13 11 int l8; m11 ; ix-00fh a ;15 10 char l9; m10 ; ix-010h ;16 9 char l10; m9 ; ix-011h 0 a 1 ;17 8 char l11; m8 ; ix-12h 0 ;18 7 char l12; m7 ; ix-013h a ;19 6 char l13; m6 ; ix-014h ;20 5 char l14; m5 ; ix-015h 5 ;21 4 char l15; m4 ; ix-017h l ;23 3 ; ix-016h h ;22 2 int m2 ; ix-019h 0 ;25 1 ; ix-018h 0 ;24 0 int m0 ==== char l1; /* ix-1 */ char l2; /* ix-2 */ int l3; /* ix-4 ix-3 */ int l4; /* ix-6 ix-5 */ int l5; /* ix-8 ix-7 */ struct st_13 * l6; /* ix-a ix-9 */ int l7; /* ix-c ix-b */ int l8; /* ix-e ix-d */ uchar l9; /* ix-f */ char l10; /* ix-10 */ char l11; /* ix-11 */ char l12; /* ix-12 */ char l13; /* ix-13 */ char l14; /* ix-14 */ char l15; /* ix-15 */ int l16; /* ix-17 ix-16 */ int l17; /* ix-19 ix-18 */ register struct aaa * st; ==== ; iy+6 ; iy+012h ; iy+013h ; iy+014h ; iy+015h ; iy+017h ; iy+018h srtuct ddd { struct st_13 * word_9dcb; struct st_13 * word_9dcd; } two_ptr; sub_0bfch: call ncsv ;0bfc ; defw 0ffe7h ;-25 ;0bff ; ld hl,(word_9cf1) ;0c01 ; ld (ix-00eh),l ;0c04 ; ld (ix-00dh),h ;l8 ;0c07 ; l8 = word_9cf1; ld hl,(word_8bc7) ;0c0a ; ld (ix-00ch),l ;0c0d ; ld (ix-00bh),h ;l7 ;0c10 ; l7 = word_8bc7; ld hl,3ch ;0c13 ; push hl ;0c16 ; call sub_2529h ;0c17 ; sub_2529h(0x3C); pop bc ;0c1a ; ld (ix-011h),0 ;l11 ;0c1b ; l11 = 0; ld (ix-019h),0 ;0c1f ; ld (ix-018h),0 ;l17 ;0c23 ; l17 = 0; l0c27h: ; ; m1: ld hl,(word_8bc7) ;0c27 ; ld a,(hl) ;0c2a ; cp 043h ;0c2b ; jr z,l0c34h ;0c2d ; ld a,(hl) ;0c2f ; cp 044h ;0c30 ; jr nz,l0c39h ;0c32 ; l0c34h: ; ; m2: ld hl,1 ;0c34 ; jr l0c3ch ;0c37 ; l0c39h: ; ; m3: ld hl,0 ;0c39 ; l0c3ch: ; ; m4: ld a,l ;0c3c ; ld (byte_8f86),a ;0c3d ; ld (ix-013h),a ;0c40 ; l13 = byte_8f86 = (*word_8bc7 == 0x43) && (*word_8bc7 != 0x44); call sub_2671h ;0c43 ; ld e,l ;0c46 ; ld (ix-00fh),e ;l9 ;0c47 ; l9 = sub_2671h(); xor a ;0c4a ; ld (byte_8f86),a ;0c4b ; byte_8f86 = 0; ld b,03ch ;0c4e ; ld a,e ;0c50 ; call brelop ;0c51 ; jr c,l0c60h ;0c54 ; if(l9 < 0x3C) goto m5; ld b,080h ;0c56 ; ld a,(ix-00fh) ;l9 ;0c58 ; call brelop ;0c5b ; jr c,l0c6ah ;0c5e ; if(l9 < 0x80) goto m6; l0c60h: ; ; m5: ld a,(ix-00fh) ;l9 ;0c60 ; ld (byte_9def),a ;0c63 ; byte_9def = l9; ld (ix-0fh),3ch ;0c66 ; l9 = 0x3C; l0c6ah: ; ; m6: ld e,(ix-00fh) ;l9 ;0c6a ; ld d,0 ;0c6d ; ld hl,0ffc4h ;-60 ;0c6f ; add hl,de ;0c72 ; add hl,hl ;0c73 ; add hl,hl ;0c74 ; add hl,hl ;0c75 ; ld de,l9275h ;0c76 ; add hl,de ;0c79 ; bit 0,(hl) ;0c7a ; jp z,l0dfah ;0c7c ; if(bittst(*(l9275h + (l9-60)*8), 0) == 0) goto m25; ld a,(ix-011h) ;0c7f ; or a ;0c82 ; jp z,l0ddah ;0c83 ; if(l11 == 0) goto m24; l0c86h: ; ; m7: ld hl,l8cbeh ;0c86 ; push hl ;0c89 ; call prerror ;0c8a ; prerror("expression syntax"); ld l,(ix-00fh) ;l9 ;0c8d ; ld h,0 ;0c90 ; ex (sp),hl ;0c92 ; call sub_3610h ;0c93 ; sub_3610h(l9); pop bc ;0c96 ; jp l1076h ;0c97 ; goto m52; l0c9ah: ; m8: ld iy,(word_9dcb) ;0c9a ; st = word_9dcb; ld a,(ix-013h) ;0c9e ; or a ;0ca1 ; jp nz,l0d57h ;0ca2 ; if(l13 != 0) goto m15; ld a,(iy+014h) ;0ca5 ; or a ;0ca8 ; jp nz,l0d1dh ;0ca9 ; if(l14 != 0) goto m11; call sub_35f7h ;0cac ; ld de,00028h ;0caf ; or a ;0cb2 ; sbc hl,de ;0cb3 ; jr nz,l0cfbh ;0cb5 ; if(sub_35f7h() != 0x28) goto m10; ld (ix-1),002h ;l1 ;0cb7 ; l1 = 2; ld (ix-2),008h ;l2 ;0cbb ; l2 = 8; ld (ix-6),0 ;0cbf ; ld (ix-5),0 ;l4 ;0cc3 ; l4 = 0; ld (ix-4),0 ;0cc7 ; ld (ix-3),0 ;l3 ;0ccb ; l3 = 0; push ix ;0ccf ; pop de ;0cd1 ; ld hl,0fff8h ;-8 ;0cd2 ; add hl,de ;0cd5 ; push hl ;0cd6 ; ld hl,0001fh ;0cd7 ; push hl ;0cda ; push iy ;0cdb ; call sub_4eedh ;0cdd ; pop bc ;0ce0 ; pop bc ;0ce1 ; pop bc ;0ce2 ; push hl ;0ce3 ; pop iy ;0ce4 ; st = sub_4eedh(st, 0x1f, st->m8); ld a,(iy+012h) ;0ce6 ; or 042h ;0ce9 ; ld (iy+012h),a ;0ceb ; l12 |=042; ld (iy+015h),0 ;0cee ; l15 = 0; push iy ;0cf2 ; call sub_0493h ;0cf4 ; sub_0493h(st); l0cf7h: ; m9: pop bc ;0cf7 ; jp l0d51h ;0cf8 ; goto m13; l0cfbh: ; m10: ld l,(iy+017h) ;+23 ;0cfb ; ld h,(iy+018h) ;0cfe ; push hl ;0d01 ; ld hl,l8c83h ;0d02 ; push hl ;0d05 ; call prerror ;0d06 ; prerror("undefined identifier: %s", st->m23); pop bc ;0d09 ; pop bc ;0d0a ; ld (iy+14h),2ah ;+20 ;0d0b ; st->m20 = 0x2A; ld (iy+6),008h ;0d0f ; st->m6 = 8; ld (iy+12h),11h ;+18 ;0d13 ; st->m18 = 0x11; ld (iy+13h),0 ;+19 ;0d17 ; st->m19 = 0; jr l0d51h ;0d1b ; goto m13; l0d1dh: ; m11: ld l,(iy+012h) ;0d1d ; ld h,(iy+013h) ;0d20 ; ld (ix-017h),l ;0d23 ; ld (ix-016h),h ;0d26 ; bit 4,l ;0d29 ; jr nz,l0d3eh ;0d2b ; if(bittst(l16 = st->m18, 4) != 0) goto m12; ld l,(iy+017h) ;+23 ;0d2d ; ld h,(iy+018h) ;0d30 ; push hl ;0d33 ; ld hl,l8c9ch ;0d34 ; push hl ;0d37 ; call prerror ;0d38 ; prerror( "not a variable identifier: %s", st->m23); pop bc ;0d3b ; jr l0cf7h ;0d3c ; goto m13; /* goto m9; */ l0d3eh: ; m12: ld a,(iy+014h) ;+20 ;0d3e ; cp 01fh ;0d41 ; jr nz,l0d51h ;0d43 ; if(st->m20 != 0x1F) goto m13; bit 0,(ix-016h) ;0d45 ; push iy ;0d49 ; jr nz,l0d53h ;0d4b ; if(bittst(l16, 0) != 0) goto m14; call sub_0493h ;0d4d ; sub_0493h(st); pop bc ;0d50 ; l0d51h: ; m13: push iy ;0d51 ; l0d53h: ; m14: call sub_51cfh ;0d53 ; sub_51cfh(st); pop bc ;0d56 ; l0d57h: ; m15: push iy ;0d57 ; call sub_240eh ;0d59 ; pop bc ;0d5c ; ld (ix-00ah),l ;0d5d ; ld (ix-009h),h ;l6 ;0d60 ; l6 = sub_240eh(st); l0d63h: ; m16: ld l,(ix-00ah) ;0d63 ; ld h,(ix-009h) ;l6 ;0d66 ; push hl ;0d69 ; call sub_24e7h ;0d6a ; sub_24e7h(l6); pop bc ;0d6d ; l0d6eh: ; m17: ld (ix-011h),1 ;0d6e ; l11 = 1; jp l0c27h ;0d72 ; goto m1; l0d75h: ; m18: ld hl,00008h ;0d75 ; push hl ;0d78 ; ld de,(word_9dcb) ;0d79 ; ld hl,(word_9dcd) ;0d7d ; push hl ;0d80 ; push de ;0d81 ; call sub_1b4bh ;long ;0d82 ; pop bc ;0d85 ; pop bc ;0d86 ; pop bc ;0d87 ; l0d88h: ; m19: ld (ix-00ah),l ;0d88 ; ld (ix-009h),h ;l6 ;0d8b ; l6 = sub_1b4bh(un_9dcb.ul, 8); jr l0d63h ;0d8e ; goto m16; l0d90h: ; m20: ld hl,0000ah ;0d90 ; push hl ;0d93 ; ld de,(word_9dcb) ;0d94 ; ld hl,(word_9dcd) ;0d98 ; push hl ;0d9b ; push de ;0d9c ; call sub_1b4bh ;long ;0d9d ; pop bc ;0da0 ; pop bc ;0da1 ; l0da2h: ; m21: pop bc ;0da2 ; l6 = sub_1b4bh(un_9dcb.ul, 0xA); jr l0d88h ;0da3 ; goto m16; /* goto m19; */ l0da5h: ; m22: ld hl,(word_9dcb) ;0da5 ; push hl ;0da8 ; call sub_1b70h ;0da9 ; sub_1b70h(un_9dcb.st.word_9dcb); jr l0da2h ;0dac ; goto m16; /* goto m21; */ l0daeh: ; m23: call sub_245dh ;0dae ; ld (ix-00ah),l ;0db1 ; ld (ix-009h),h ;l6 ;0db4 ; l6 = sub_245dh(); ld de,(word_9df0) ;0db7 ; inc hl ;0dbb ; inc hl ;0dbc ; inc hl ;0dbd ; ld (hl),e ;0dbe ; inc hl ;0dbf ; ld (hl),d ;0dc0 ; l6->m3 = word_9df0; ld hl,(word_9dcb) ;0dc1 ; push hl ;0dc4 ; ld l,(ix-00ah) ;0dc5 ; ld h,(ix-009h) ;l6 ;0dc8 ; push hl ;0dcb ; call sub_053fh ;0dcc ; sub_053fh(l6, un_9dcb.st.word_9dcb); pop bc ;0dcf ; ld hl,(word_9dcb) ;0dd0 ; ex (sp),hl ;0dd3 ; call free ;0dd4 ; free(word_9dcb); pop bc ;0dd7 ; jr l0d63h ;0dd8 ; goto m16; l0ddah: ; m24: ld a,(ix-00fh) ;l9 ;0dda ; cp 073h ;0ddd ; jp z,l0c9ah ;0ddf ; if(l9 == 0x73) goto m8; cp 074h ;0de2 ; jr z,l0d75h ;0de4 ; if(l9 == 0x74) goto m18; cp 075h ;0de6 ; jr z,l0d90h ;0de8 ; if(l9 == 0x75) goto m20; cp 076h ;0dea ; jr z,l0daeh ;0dec ; if(l9 == 0x76) goto m23; cp 077h ;0dee ; jp z,l0c86h ;0df0 ; if(l9 == 0x77) goto m7; cp 07fh ;0df3 ; jr z,l0da5h ;0df5 ; if(l9 == 0x7f) goto m22; jp l0d63h ;0df7 ; l0dfah: ; m25: ld a,(ix-00fh) ;l9 ;0dfa ; cp 03ch ;0dfd ; jp z,l0f23h ;0dff ; if(l9 == 0x3c) goto m32; cp 03eh ;0e02 ; jp z,l0e65h ;0e04 ; if(l9 == 0x3e) goto m28; cp 03fh ;0e07 ; jp z,l0f5ch ;0e09 ; if(l9 == 0x3f) goto m35; cp 041h ;0e0c ; jp z,l0f4bh ;0e0e ; if(l9 == 0x41) goto m33; cp 042h ;0e11 ; jp z,l0f5ch ;0e13 ; if(l9 == 0x42) goto m35; cp 04ah ;0e16 ; jp z,l0f65h ;0e18 ; if(l9 == 0x4a) goto m36; cp 04ch ;0e1b ; jp z,l0f65h ;0e1d ; if(l9 == 0x4c) goto m36; ld e,a ;0e20 ; ld d,0 ;0e21 ; ld hl,0ffc4h ;-60 ;0e23 ; add hl,de ;0e26 ; add hl,hl ;0e27 ; add hl,hl ;0e28 ; add hl,hl ;0e29 ; ld de,l9275h ;0e2a ; add hl,de ;0e2d ; bit 2,(hl) ;0e2e ; jr z,l0e40h ;0e30 ; if(bittst(*(l9275h + (l9-60)*8), 2) == 0) goto m26; ld a,(ix-011h) ;l11 ;0e32 ; or a ;0e35 ; jr nz,l0e40h ;0e36 ; if(l11 != 0) goto m26; ld a,(ix-00fh) ;l9 ;0e38 ; add a,0f5h ;0e3b ; ld (ix-00fh),a ;l9 ;0e3d ; l9 += 0xF5; l0e40h: ; m26: ld e,(ix-00fh) ;l9 ;0e40 ; ld d,0 ;0e43 ; ld hl,0ffc4h ;-60 ;0e45 ; add hl,de ;0e48 ; add hl,hl ;0e49 ; add hl,hl ;0e4a ; add hl,hl ;0e4b ; ld de,l9275h ;0e4c ; add hl,de ;0e4f ; bit 1,(hl) ;0e50 ; ld hl,00001h ;0e52 ; jr nz,l0e58h ;0e55 ; dec hl ;0e57 ; l0e58h: ; m27: ld (ix-014h),l ;l14 ;0e58 ; l14 = (bittst(*(l9275h + (l9-60)*8), 1) != 0); ld a,l ;0e5b ; cp (ix-011h) ;0e5c ; jp z,l0f56h ;0e5f ; if(l14 == l11) goto m34; jp l0c86h ;0e62 ; goto m7; l0e65h: ; m28: call sub_2671h ;0e65 ; ld a,l ;0e68 ; ld (ix-010h),a ;0e69 ; byte_9def = l10 = sub_2671h(); ld (byte_9def),a ;0e6c ; cp 077h ;0e6f ; jr z,l0e86h ;0e71 ; if(byte_9def == 0x77) goto m29; cp 073h ;0e73 ; jp nz,l0f02h ;0e75 ; if(byte_9def != 0x73) goto m31; ld de,(word_9dcb) ;0e78 ; ld hl,00014h ;+20 ;0e7c ; add hl,de ;0e7f ; ld a,(hl) ;0e80 ; cp 02dh ;0e81 ; jp nz,l0f02h ;0e83 ; if(word_9dcb->m20 != 0x2d) goto m31; l0e86h: ; m29: ld a,(ix-011h) ;l11 ;0e86 ; or a ;0e89 ; jp nz,l0c86h ;0e8a ; if(l11 != 0) goto m7; push ix ;0e8d ; pop de ;0e8f ; ld hl,0fff8h ;-8 ;0e90 ; add hl,de ;0e93 ; push hl ;0e94 ; ld hl,00000h ;0e95 ; push hl ;0e98 ; call sub_5dd1h ;0e99 ; sub_5dd1h(0, &l5) pop bc ;0e9c ; ld hl,00000h ;0e9d ; ex (sp),hl ;0ea0 ; push ix ;0ea1 ; pop de ;0ea3 ; ld hl,0fff8h ;-8 ;0ea4 ; add hl,de ;0ea7 ; push hl ;0ea8 ; ld hl,0004fh ;0ea9 ; push hl ;0eac ; call sub_69cah ;0ead ; pop bc ;0eb0 ; pop bc ;0eb1 ; push hl ;0eb2 ; pop iy ;0eb3 ; ex (sp),hl ;0eb5 ; call sub_516ch ;0eb6 ; sub_516ch(st = sub_69cah(0x4f, &l5, 0)); pop bc ;0eb9 ; push iy ;0eba ; call sub_51cfh ;0ebc ; sub_51cfh(st); pop bc ;0ebf ; call sub_2671h ;0ec0 ; ld a,l ;0ec3 ; ld (ix-010h),a ;0ec4 ; cp 03fh ;0ec7 ; jp nz,l0c86h ;0ec9 ; if((l10 = sub_2671h()) != 0x3f) goto m7; push ix ;0ecc ; pop de ;0ece ; ld hl,0fff8h ;-8 ;0ecf ; add hl,de ;0ed2 ; ex de,hl ;0ed3 ; push iy ;0ed4 ; pop hl ;0ed6 ; push hl ;0ed7 ; ld bc,8 ;0ed8 ; ldir ;0edb ; l5 = st; /* ldir */ pop hl ;0edd ; push ix ;0ede ; pop de ;0ee0 ; ld hl,0fff8h ;-8 ;0ee1 ; add hl,de ;0ee4 ; push hl ;0ee5 ; call sub_24b6h ;0ee6 ; ex (sp),hl ;0ee9 ; call sub_24e7h ;0eea ; sub_24e7h(sub_24b6h(&l5)); pop bc ;0eed ; ld hl,(word_8bc7) ;0eee ; ld a,(hl) ;0ef1 ; cp 04eh ;0ef2 ; jr nz,l0efch ;0ef4 ; if(*word_8bc7 != 0x4e) goto m30; inc hl ;0ef6 ; ld (hl),064h ;0ef7 ; *(word_8bc7+1) = 0x64; jp l0d6eh ;0ef9 ; goto m17; l0efch: ; m30: ld (ix-0fh),4fh ;l9 ;0efc ; l9 = 0x4f; jr l0f23h ;0f00 ; goto m32; l0f02h: ; m31: ld a,(ix-011h) ;l11 ;0f02 ; or a ;0f05 ; jr z,l0f23h ;0f06 ; if(l11 == 0) goto m32; ld hl,0003dh ;0f08 ; push hl ;0f0b ; call sub_2529h ;0f0c ; sub_2529h(0x3d); pop bc ;0f0f ; ld hl,(word_9cf1) ;0f10 ; ld c,(hl) ;0f13 ; inc hl ;0f14 ; ld b,(hl) ;0f15 ; ld hl,0x0005 ;0f16 ; add hl,bc ;0f19 ; push hl ;0f1a ; call sub_0817h ;0f1b ; ex (sp),hl ;0f1e ; call sub_24e7h ;0f1f ; sub_24e7h(sub_0817h(*word_9cf1->m5)); pop bc ;0f22 ; l0f23h: ; m32: ld e,(ix-00fh) ;l9 ;0f23 ; ld d,0 ;0f26 ; ld hl,0ffc4h ;-60 ;0f28 ; add hl,de ;0f2b ; add hl,hl ;0f2c ; add hl,hl ;0f2d ; add hl,hl ;0f2e ; ld de,l9274h ;0f2f ; add hl,de ;0f32 ; ld l,(hl) ;0f33 ; ld (ix-015h),l ;l15 ;0f34 ; l15 = *(l9274h + (l9-60)*8); ld b,003h ;0f37 ; ld a,(byte_9d37) ;0f39 ; call brelop ;0f3c ; jr c,l0f74h ;0f3f ; if(byte_9d37 < 3) goto m37; ld a,(ix-00fh) ;l9 ;0f41 ; cp 071h ;0f44 ; jr nz,l0f74h ;0f46 ; if(l9 != 0x71) goto m37; jp l0f8ah ;0f48 ; goto m38; l0f4bh: ; m33: ld a,(ix-011h) ;l11 ;0f4b ; or a ;0f4e ; jp z,l0c86h ;0f4f ; if(l11 == 0) goto m7; ld (ix-0fh),40h ;l9 ;0f52 ; l9 = 0x40; l0f56h: ; m34: ld (ix-011h),0 ;l11 ;0f56 ; l11 = 0; jr l0f23h ;0f5a ; goto m32; l0f5ch: ; m35: ld a,(ix-011h) ;l11 ;0f5c ; or a ;0f5f ; jr nz,l0f23h ;0f60 ; if(l11 != 0) goto m32; jp l0c86h ;0f62 ; goto m7; l0f65h: ; m36: ld a,(ix-011h) ;l11 ;0f65 ; or a ;0f68 ; jr z,l0f23h ;0f69 ; if(l11 == 0) goto m32; ld a,(ix-00fh) ;l9 ;0f6b ; inc a ;0f6e ; ld (ix-00fh),a ;l9 ;0f6f ; ++l9; jr l0f23h ;0f72 ; goto m32; l0f74h: ; m37: ld a,(byte_9d37) ;0f74 ; cp 001h ;0f77 ; jr nz,l0f8eh ;0f79 ; if(byte_9d37 != 1) goto m39; ld a,(ix-00fh) ;l9 ;0f7b ; cp 063h ;0f7e ; jr nz,l0f8eh ;0f80 ; if(l9 != 0x63) goto m39; ld hl,(word_8bc7) ;0f82 ; ld a,(hl) ;0f85 ; cp 062h ;0f86 ; jr z,l0f8eh ;0f88 ; if(*word_8bc7 == 0x62) goto m39; l0f8ah: ; m38: ld (ix-15h),5 ;l15 ;0f8a ; l15 = 5; l0f8eh: ; m39: ld (ix-12h),0 ;l12 ;0f8e ; l12 = 0; ld b,(ix-015h) ;l15 ;0f92 ; ld hl,(word_8bc7) ;0f95 ; inc hl ;0f98 ; ld a,(hl) ;0f99 ; call brelop ;0f9a ; jr c,l0fbfh ;0f9d ; if(*(word_8bc7+1) < l15) goto m40; ld hl,(word_8bc7) ;0f9f ; inc hl ;0fa2 ; ld a,(hl) ;0fa3 ; cp (ix-015h) ;l15 ;0fa4 ; jp nz,l1058h ;0fa7 ; if(*(word_8bc7+1) != l15) goto m50; ld e,(ix-00fh) ;l9 ;0faa ; ld d,0 ;0fad ; ld hl,0ffc4h ;-60 ;0faf ; add hl,de ;0fb2 ; add hl,hl ;0fb3 ; add hl,hl ;0fb4 ; add hl,hl ;0fb5 ; ld de,l9275h ;0fb6 ; add hl,de ;0fb9 ; bit 3,(hl) ;0fba ; jp z,l1058h ;0fbc ; if(bittst(*(l9275h + (l9-60)*8), 3) == 0) goto m50; l0fbfh: ; m40: ld a,(ix-00fh) ;l9 ;0fbf ; cp 03eh ;0fc2 ; jr z,l0ff1h ;0fc4 ; if(l9 == 0x3e) goto m44; cp 040h ;0fc6 ; jr z,l0ff1h ;0fc8 ; if(l9 == 0x40) goto m44; cp 04bh ;0fca ; jr z,l0fd2h ;0fcc ; if(l9 == 0x4b) goto m41; cp 04dh ;0fce ; jr nz,l0fd6h ;0fd0 ; if(l9 != 0x4d) goto m42; l0fd2h: ; m41: ld (ix-15h),1fh ;l15 ;0fd2 ; l15 = 0x1F; l0fd6h: ; m42: ld l,(ix-00fh) ;l9 ;0fd6 ; ld h,0 ;0fd9 ; push hl ;0fdb ; call sub_2529h ;0fdc ; sub_2529h(l9); pop bc ;0fdf ; ld a,(ix-015h) ;0fe0 ; ld hl,(word_8bc7) ;0fe3 ; inc hl ;0fe6 ; ld (hl),a ;0fe7 ; *(word_8bc7+1) = l15; l0fe8h: ; m43: ld a,(ix-012h) ;l12 ;0fe8 ; or a ;0feb ; jr nz,l0f8eh ;0fec ; if(l12 != 0) goto m39; jp l0c27h ;0fee ; goto m1; l0ff1h: ; m44: ld (ix-15h),4 ;l15 ;0ff1 ; l15 = 4; jr l0fd6h ;0ff5 ; goto m42; l0ff7h: ; m45: ld a,(ix-00fh) ;l9 ;0ff7 ; cp 03ch ;0ffa ; jr z,l1001h ;0ffc ; if(l9 == 0x3C) goto m46; ld (byte_9def),a ;0ffe ; byte_9def = l9; l1001h: ; m46: call sub_250ah ;1001 ; ld (ix-00ah),l ;1004 ; ld (ix-009h),h ;l6 ;1007 ; ld a,l ;100a ; or h ;100b ; jp z,l0c86h ;100c ; if((l6 = sub_250ah()) == 0) goto m7; ld de,(word_9cf1) ;100f ; ld l,(ix-00eh) ;1013 ; ld h,(ix-00dh) ;l8 ;1016 ; or a ;1019 ; sbc hl,de ;101a ; jp nz,l0c86h ;101c ; if(l8 != word_9cf1) goto m7; jp l108dh ;101f ; goto m53; l1022h: ; m47: ld a,(ix-00fh) ;l9 ;1022 ; cp 03fh ;1025 ; jr z,l1037h ;1027 ; if(l9 == 0x3f) goto m48; ld hl,l8cbah ;1029 ; push hl ;102c ; call errexpected ;102d ; errexpected(")"); pop bc ;1030 ; ld a,(ix-00fh) ;l9 ;1031 ; ld (byte_9def),a ;1034 ; byte_9def = l9; l1037h: ; m48: call sub_10a8h ;1037 ; ld a,l ;103a ; or a ;103b ; jr z,l0fe8h ;103c ; if(sub_10a8h() == 0) goto m43; jp l0c86h ;103e ; goto m7; l1041h: ; m49: ld a,(ix-00fh) ;l9 ;1041 ; cp 042h ;1044 ; jr z,l1037h ;1046 ; if(l9 == 0x42) goto m48; ld hl,l8cbch ;1048 ; push hl ;104b ; call errexpected ;104c ; errexpected("]"); pop bc ;104f ; ld a,(ix-00fh) ;l9 ;1050 ; ld (byte_9def),a ;1053 ; byte_9def = l9; jr l1037h ;1056 ; goto m48; l1058h: ; m50: ld hl,(word_8bc7) ;1058 ; ld a,(hl) ;105b ; cp 03ch ;105c ; jr z,l0ff7h ;105e ; if(*word_8bc7 == 0x3C) goto m45; cp 03eh ;1060 ; jr z,l1022h ;1062 ; if(*word_8bc7 == 0x3E) goto m47; cp 040h ;1064 ; jr z,l1041h ;1066 ; if(*word_8bc7 == 0x40) goto m49; ld (ix-12h),1 ;l12 ;1068 ; l12 = 1; jr l1037h ;106c ; goto m48; l106eh: ; m51: call sub_250ah ;106e ; push hl ;1071 ; call sub_2569h ;1072 ; sub_2569h(sub_250ah()); pop bc ;1075 ; l1076h: ; m52: ld de,(word_9cf1) ;1076 ; ld l,(ix-00eh) ;107a ; ld h,(ix-00dh) ;l8 ;107d ; or a ;1080 ; sbc hl,de ;1081 ; jr nz,l106eh ;1083 ; if(l8 != word_9cf1) goto m51; ld (ix-00ah),0 ;1085 ; ld (ix-009h),0 ;l6 ;1089 ; l6 = 0; l108dh: ; m53: ld l,(ix-00eh) ;108d ; ld h,(ix-00dh) ;l8 ;1090 ; ld (word_9cf1),hl ;1093 ; word_9cf1 = l8; ld l,(ix-00ch) ;1096 ; ld h,(ix-00bh) ;l7 ;1099 ; ld (word_8bc7),hl ;109c ; word_8bc7 = l7; ld l,(ix-00ah) ;109f ; ld h,(ix-009h) ;l6 ;10a2 ; return l6; jp cret ;10a5 ; =============== F U N C T I O N ======================================= ; 23 ; sub_10a8h: ; char sub_10a8h() { call ncsv ;10a8 ; struct st_13 * l1; defw 0fffbh ;-5 ;10ab ; struct st_13 * l2; call sub_255dh ;10ad ; uchar l3; ld a,l ;10b0 ; regisret struct st_13 * st; ld (ix-5),a ;l3 ;10b1 ; cp 03eh ;10b4 ; jr nz,l10bdh ;10b6 ; if((sub_255dh()) != 0x3E) goto m2; l10b8h: ; ; m1: ld l,0 ;10b8 ; jp cret ;10ba ; return 0; l10bdh: ; ; m2: ld (ix-2),0 ;10bd ; ld (ix-1),0 ;l1 ;10c1 ; l1 = 0; ld a,(ix-5) ;l3 ;10c5 ; cp 078h ;10c8 ; jr z,l10fah ;10ca ; if(l3 == 0x78) goto m5; ld e,a ;10cc ; ld d,0 ;10cd ; ld hl,0ffc4h ;-60 ;10cf ; add hl,de ;10d2 ; add hl,hl ;10d3 ; add hl,hl ;10d4 ; add hl,hl ;10d5 ; ld de,l9275h ;10d6 ; add hl,de ;10d9 ; bit 1,(hl) ;10da ; jr z,l10ebh ;10dc ; if(bittst(*(l9275h + ((uchar)l3-60)*8), 1) == ) goto m3; call sub_250ah ;10de ; ld (ix-2),l ;10e1 ; ld (ix-1),h ;l1 ;10e4 ; ld a,l ;10e7 ; or h ;10e8 ; jr z,l10f5h ;10e9 ; if((l1 = sub_250ah()) == 0) goto m4; l10ebh: ; ; m3: call sub_250ah ;10eb ; push hl ;10ee ; pop iy ;10ef ; ld a,l ;10f1 ; or h ;10f2 ; jr nz,l10fah ;10f3 ; if((st = sub_250ah()) != 0) goto m5; l10f5h: ; ; m4: ld l,1 ;10f5 ; jp cret ;10f7 ; return 1; l10fah: ; ; m5: ld a,(ix-5) ;l3 ;10fa ; switch (l3) { cp 040h ;64 ;10fd ; case 0x40: goto m10; jp z,l1149h ;10ff ; case 0x44: goto m17; cp 044h ;68 ;1102 ; case 0x4A: goto m12; jp z,l11c0h ;1104 ; case 0x4B: goto m12; cp 04ah ;74 ;1107 ; case 0x4C: goto m12; jp z,l1190h ;1109 ; case 0x4D: goto m12; cp 04bh ;75 ;110c ; case 0x4E: goto m19; jp z,l1190h ;110e ; case 0x4F: goto m27; cp 04ch ;76 ;1111 ; case 0x71: goto m25; jp z,l1190h ;1113 ; } cp 04dh ;77 ;1116 ; jp z,l1190h ;1118 ; cp 04eh ;78 ;111b ; jp z,l11d5h ;111d ; cp 04fh ;79 ;1120 ; jp z,l12eah ;1122 ; cp 071h ;113 ;1125 ; jp z,l12d3h ;1127 ; l112ah: ; ; m6: ld a,(ix-2) ;112a ; or (ix-1) ;l1 ;112d ; jp nz,l1313h ;1130 ; if(l1 != 0) goto m28; l1133h: ; ; m7: ld de,00000h ;1133 ; de = 0 l1136h: ; ; m8: ld a,(ix-5) ;l3 ;1136 ; cp 062h ;98 ;1139 ; ld hl,00001h ;113b ; jr z,l1141h ;113e ; dec hl ;1140 ; l1141h: ; ; m9: or a ;1141 ; sbc hl,de ;1142 ; jp z,l1325h ;1144 ; if((l3 == 0x62) == 0) goto m29; jr l10f5h ; goto m4; ;1147 ; goto m4; l1149h: ; ; m10: ld hl,00045h ; 69 ;1149 ; push hl ;114c ; call sub_2529h ;114d ; sub_2529h(0x45); pop bc ;1150 ; ld hl,(word_8bc7) ;1151 ; inc hl ;1154 ; ld (hl),064h ;100 ;1155 ; *(word_8bc7+1); ld (ix-5),055h ;1157 ; l3 = 0x55; ld e,(ix-2) ;115b ; ld d,(ix-1) ;l1 ;115e ; ld hl,0x0005 ;1161 ; add hl,de ;1164 ; push hl ;1165 ; call sub_5b69h ;1166 ; pop bc ;1169 ; ld a,l ;116a ; or a ;116b ; jr z,l1186h ;116c ; if(sub_5b69h(&st->m1.s[0]->m5) == 0) goto m11; ld hl,0000ch ;12 ;116e ; push hl ;1171 ; ld l,(ix-2) ;1172 ; ld h,(ix-1) ;l1 ;1175 ; push hl ;1178 ; call sub_1ccch ;1179 ; pop bc ;117c ; pop bc ;117d ; ld (ix-2),l ;117e ; ld (ix-1),h ;l1 ;1181 ; l1 = sub_1ccch(l1, 0xC); jr l112ah ;1184 ; goto m6; l1186h: ; ; m11: ld hl,l8cd0h ;1186 ; push hl ;1189 ; call prerror ;118a ; prerror("illegal type for index expression"); pop bc ;118d ; jr l112ah ;118e ; goto m6; l1190h: ; ; m12: ld hl,word_9d28 ;1190 ; ld (ix-2),l ;1193 ; ld (ix-1),h ;l1 ;1196 ; l1 = word_9d28; ld a,(ix-5) ;l3 ;1199 ; cp 04ah ;74 ;119c ; jr z,l11b7h ;119e ; if(l3 == 0x4A) goto m15; cp 04ch ;76 ;11a0 ; jr z,l11b2h ;11a2 ; if(l3 == 0x4C) goto m14; cp 04bh ;75 ;11a4 ; jr z,l11adh ;11a6 ; if(l3 == 0x4B) goto m13; ld hl,00068h ;104 ;11a8 ; jr l11bah ;11ab ; goto m16; l11adh: ; ; m13: ld hl,00066h ;102 ;11ad ; hl = 0x66; jr l11bah ;11b0 ; goto m16; l11b2h: ; ; m14: ld hl,00067h ;103 ;11b2 ; hl = 0x67; jr l11bah ;11b5 ; goto m16; l11b7h: ; ; m15: ld hl,00065h ;101 ;11b7 ; hl = 0x65; l11bah: ; ; m16: ld (ix-5),l ;11ba ; l3 = hl; jp l112ah ;11bd ; goto m6; l11c0h: ; ; m17: ld (ix-5),043h ;l3 ;11c0 ; l3 = 0x43; push iy ;11c4 ; ld hl,00045h ;69 ;11c6 ; push hl ;11c9 ; call sub_1441h ;11ca ; pop bc ;11cd ; pop bc ;11ce ; l11cfh: ; ; m18: push hl ;11cf ; pop iy ;11d0 ; st = sub_1441h(0x45, st); jp l112ah ;11d2 ; goto m6; l11d5h: ; ; m19: ld a,(iy+0) ;11d5 ; cp 076h ;118 ;11d8 ; jp nz,l1218h ;11da ; if(st->m0 != 0x76) goto m21; ld hl,00009h ;11dd ; push hl ;\3 ;11e0 ; ld e,(iy+3) ;11e1 ; ld d,(iy+4) ;?? ;11e4 ; ld a,d ;11e7 ; rla ;11e8 ; sbc a,a ;11e9 ; ld l,a ;11ea ; ld h,a ;hl=0 ;11eb ; ex de,hl ;de=0 hl=l2 ;11ec ; ld bc,00001h ;11ed ; add hl,bc ;de=0 hl=l2+1 ;11f0 ; ex de,hl ;de-l2+1 hl=0 ;11f1 ; ld bc,00000h ;11f2 ; adc hl,bc ;de-l2+1 hl=0 ;11f5 ; push hl ;\2 ;11f7 ; push de ;\1 ;11f8 ; call sub_1b4bh ;11f9 ; pop bc ;11fc ; pop bc ;11fd ; pop bc ;11fe ; ld (ix-4),l ;11ff ; ld (ix-3),h ;l2 ;1202 ; l2 = sub_1b4bh(st->m1.s[1], 9); push iy ;1205 ; call sub_2569h ;1207 ; sub_2569h(st); ld l,(ix-4) ;120a ; ld h,(ix-3) ;l2 ;120d ; ex (sp),hl ;1210 ; call sub_24e7h ;1211 ; sub_24e7h(l2); l1214h: ; ; m20: pop bc ;1214 ; jp l10b8h ;1215 ; goto m1; l1218h: ; ; m21: ld a,(iy+0) ;1218 ; cp 077h ;119 ;121b ; jp z,l1297h ;121d ; if(st->m0 == 0x77) goto m24; cp 073h ;115 ;1220 ; jp z,l1294h ;1222 ; if(st->m0 == 0x73) goto m23; push iy ;1225 ; pop de ;1227 ; ld hl,0x0005 ;1228 ; add hl,de ;122b ; push hl ;122c ; call sub_24b6h ;122d ; pop bc ;1230 ; ld (ix-4),l ;1231 ; ld (ix-3),h ;l2 ;1234 ; l2 = sub_24b6h(&st->m5); ex de,hl ;1237 ; ld hl,00007h ;1238 ; add hl,de ;123b ; ld de,00000h ;123c ; ld (hl),e ;123f ; inc hl ;1240 ; ld (hl),d ;1241 ; l2->m7 = 0; /* */ ld e,(ix-4) ;1242 ; ld d,(ix-3) ;l2 ;1245 ; ld hl,0000ch ;1248 ; add hl,de ;124b ; ld (hl),0 ;124c ; l2->m12 = 0; /* */ ld a,(iy+00ch) ;124e ; cp 001h ;1251 ; jp nz,l1285h ;1253 ; if(l2->m12 != 1) goto m22; ld l,e ;1256 ; ld h,d ;1257 ; push hl ;1258 ; ld hl,0004eh ;78 ;1259 ; push hl ;125c ; call sub_1441h ;125d ; pop bc ;1260 ; ld (ix-4),l ;1261 ; ld (ix-3),h ;l2 ;1264 ; l2 = sub_1441h(0x4E, l2); ld hl,00009h ;1267 ; ex (sp),hl ;126a ; ld l,(iy+007h) ;126b ; ld h,(iy+008h) ;126e ; push hl ;1271 ; call sub_21c7h ;1272 ; ex (sp),hl ;1275 ; call sub_1ccch ;1276 ; pop bc ;1279 ; pop bc ;127a ; ld (ix-2),l ;127b ; ld (ix-1),h ;l1 ;127e ; l1 = sub_1ccch(sub_21c7h(st->m7), 9); ld (ix-5),050h ;l3 ;1281 ; l3 = 0x50; l1285h: ; m22: push iy ;1285 ; call sub_2569h ;1287 ; sub_2569h(st); pop bc ;128a ; ld l,(ix-4) ;128b ; ld h,(ix-3) ;l2 ;128e ; st = l2; jp l11cfh ;1291 ; goto m6; /* goto m18; */ l1294h: ; ; m23: ld a,(iy+0) ;1294 ; l1297h: ; ; m24: cp 077h ;119 ;1297 ; jp nz,l112ah ;1299 ; if(st->m0 != 0x77) goto m6; ld a,(iy+00ch) ;129c ; cp 001h ;129f ; jp nz,l112ah ;12a1 ; if(st->m12 != 1) goto m6; ld hl,00009h ;12a4 ; push hl ;12a7 ; ld l,(iy+007h) ;12a8 ; ld h,(iy+008h) ;12ab ; push hl ;12ae ; call sub_21c7h ;12af ; ex (sp),hl ;12b2 ; call sub_1ccch ;12b3 ; pop bc ;12b6 ; pop bc ;12b7 ; ld (ix-2),l ;12b8 ; ld (ix-1),h ;l1 ;12bb ; l1 = sub_1ccch(sub_21c7h(st->m7), 9) push iy ;12be ; ld hl,0004eh ;78 ;12c0 ; push hl ;12c3 ; call sub_1441h ;12c4 ; pop bc ;12c7 ; pop bc ;12c8 ; push hl ;12c9 ; pop iy ;12ca ; st = sub_1441h(0x4E, st); ld (ix-5),050h ;l3 ;12cc ; l3 = 0x50; jp l112ah ;12d0 ; goto m6; l12d3h: ; ; m25: ld hl,(word_8bc7) ;12d3 ; ld a,(hl) ;12d6 ; cp 03eh ;62 ;12d7 ; jr nz,l12e3h ;12d9 ; if(*word_8bc7 != 0x3E) goto m26; inc hl ;12db ; inc hl ;12dc ; ld a,(hl) ;12dd ; cp 03dh ;61 ;12de ; jp z,l112ah ;12e0 ; if(*(word_8bc7+1) == 0x3D) goto m6; l12e3h: ; ; m26: ld (ix-5),072h ;114 ;12e3 ; l3 = 0x72; jp l112ah ;12e7 ; goto m6; l12eah: ; ; m27: push iy ;\ ;12ea ; pop de ;/ ;12ec ; ld hl,0x0005 ;12ed ; add hl,de ;12f0 ; push hl ;\ ;12f1 ; ld l,(ix-2) ;12f2 ; ld h,(ix-1) ;l1 ;12f5 ; l1 = &st->m5; push hl ;\2 ;12f8 ; ld hl,0003ch ;60 ;12f9 ; push hl ;\1 ;12fc (0x3C,l1) ; call sub_1441h ;12fd ; pop bc ;1300 ; ex (sp),hl ;\ ;1301 ; call sub_1bf7h ;1302 ; pop bc ;1305 ; ex (sp),hl ;1306 ; call sub_24e7h ;1307 ; sub_24e7h(sub_1bf7h(sub_1441h(0x3C, l1), &st->m5)); pop bc ;130a ; push iy ;130b ; call sub_2569h ;130d ; sub_2569h(st) jp l1214h ;1310 ; goto m20; l1313h: ; ; m28: ld l,(ix-2) ;1313 ; ld h,(ix-1) ;l1 ;1316 ; ld a,(hl) ;1319 ; cp 063h ;99 ;131a ; jp nz,l1133h ;131c ; if(st->m1.s[0]->m0 != 0x63) goto m7; ld de,00001h ;131f ; de = 1 jp l1136h ;1322 ; goto m8; l1325h: ; ; m29: ld l,(ix-2) ;1325 ; ld h,(ix-1) ;l1 ;1328 ; push hl ;132b ; push iy ;132c ; ld l,(ix-5) ;l3 ;132e ; ld h,0 ;1331 ; push hl ;1333 ; call sub_1441h ;1334 ; pop bc ;1337 ; pop bc ;1338 ; ex (sp),hl ;1339 ; call sub_24e7h ;133a ; sub_24e7h(sub_1441h(l3, l1)); jp l1214h ;133d ; goto m20; ; =============== F U N C T I O N ======================================= ; 24 ; sub_1340h: ; struct aaa * sub_1340h(register struct aaa * st, struct aaa * p2) { call csv ;1340 ; struct xxx * l1; push hl ;1343 ; struct aaa * l2; push hl ;1344 ; ld l,(ix+6) ;1345 ; ld h,(ix+7) ;p1 ;1348 ; push hl ;134b ; pop iy ;134c ; ld hl,0001ah ;134e ; push hl ;1351 ; push iy ;1352 ; pop de ;1354 ; ld hl,0x0005 ;1355 ; add hl,de ;1358 ; push hl ;1359 ; call sub_5a76h ;135a ; pop bc ;135d ; pop bc ;135e ; ld a,l ;135f ; or a ;1360 ; jr nz,l1389h ;1361 ; if(sub_5a76h(&st->m5, 0x1A) != 0) goto m2; ld hl,0001ch ;1363 ; push hl ;1366 ; push iy ;1367 ; pop de ;1369 ; ld hl,0x0005 ;136a ; add hl,de ;136d ; push hl ;136e ; call sub_5a76h ;136f ; pop bc ;1372 ; pop bc ;1373 ; ld a,l ;1374 ; or a ;1375 ; jr nz,l1389h ;1376 ; if(sub_5a76h(&st->m5, 0x1C) != 0) goto m2; ld hl,l8cf2h ;1378 ; push hl ;137b ; call prerror ;137c ; prerror("struct/union required"); pop bc ;137f ; l1380h: ; m1: ld l,(ix+8) ;1380 ; ld h,(ix+9) ;p2 ;1383 ; jp cret ;1386 ; return p2; l1389h: ; m2: ld l,(ix+8) ;1389 ; ld h,(ix+9) ;p2 ;138c ; ld a,(hl) ;138f ; cp 073h ;1390 ; jr z,l139eh ;1392 ; if(*p2 == 0x73) goto m4; ld hl,l8d08h ;1394 ; push hl ;1397 ; call prerror ;1398 ; prerror("struct/union member expected"); l139bh: ; m3: pop bc ;139b ; jr l1380h ;139c ; goto m1; l139eh: ; m4: ld l,(iy+5) ;139e ; ld h,(iy+6) ;13a1 ; ld (ix-4),l ;13a4 ; ld (ix-3),h ;l2 ;13a7 ; ld a,l ;13aa ; or h ;13ab ; jr z,l1380h ;13ac ; if((l2 = st->m5) == 0) goto m1; ld e,(ix-4) ;13ae ; ld d,(ix-3) ;l2 ;13b1 ; ld hl,00012h ;+18 ;13b4 ; add hl,de ;13b7 ; ld c,(hl) ;13b8 ; inc hl ;13b9 ; ld b,(hl) ;13ba ; bit 0,c ;13bb ; jr nz,l13d1h ;13bd ; if(bittst(l2->m18, 0) == 0) goto m5; ld hl,00017h ;+23 ;13bf ; add hl,de ;13c2 ; ld c,(hl) ;13c3 ; inc hl ;13c4 ; ld b,(hl) ;13c5 ; push bc ;13c6 ; ld hl,l8d25h ;13c7 ; "undefined struct/union: %s" push hl ;13ca ; call prerror ;13cb ; prerror("undefined struct/union: %s",l2->m23); pop bc ;13ce ; jr l139bh ;13cf ; goto m3; l13d1h: ; m5: ld l,(ix+8) ;13d1 ; ld h,(ix+9) ;p2 ;13d4 ; inc hl ;13d7 ; ld c,(hl) ;13d8 ; inc hl ;13d9 ; ld b,(hl) ;13da ; ld hl,00017h ;13db ; add hl,bc ;13de ; ld c,(hl) ;13df ; inc hl ;13e0 ; ld b,(hl) ;13e1 ; push bc ;13e2 ; ld l,(ix-4) ;13e3 ; ld h,(ix-3) ;l2 ;13e6 ; push hl ;13e9 ; call sub_56cdh ;13ea ; pop bc ;13ed ; pop bc ;13ee ; ld (ix-2),l ;13ef ; ld (ix-1),h ;l1 ;13f2 ; l1 = sub_56cdh(*p2->m23, l2); ld a,l ;13f5 ; or h ;13f6 ; jr z,l1380h ;13f7 ; if(l1 == 0) goto m1; push hl ;13f9 ; call sub_51cfh ;13fa ; sub_51cfh(l1); ld hl,0007eh ;13fd ; ex (sp),hl ;1400 ; call sub_2186h ;1401 ; pop bc ;1404 ; push hl ;1405 ; pop iy ;1406 ; st = sub_2186h(0x7E); ld e,(ix-2) ;1408 ; ld d,(ix-1) ;l1 ;140b ; ld hl,0000eh ;+14 ;140e ; add hl,de ;1411 ; ld c,(hl) ;1412 ; inc hl ;1413 ; ld b,(hl) ;1414 ; ld (iy+1),c ;1415 ; ld (iy+2),b ;l1 ;1418 ; l1 = st->m14; push iy ;141b ; pop de ;141d ; ld hl,0x0005 ;141e ; add hl,de ;1421 ; ex de,hl ;1422 ; ld l,(ix-2) ;1423 ; ld h,(ix-1) ;l1 ;1426 ; push hl ;1429 ; ld bc,8 ;142a ; ldir ;142d ; *st->m5 = *l1; pop hl ;142f ; ld l,(ix+8) ;1430 ; ld h,(ix+9) ;p2 ;1433 ; push hl ;1436 ; call sub_2569h ;1437 ; sub_2569h(p2); pop bc ;143a ; push iy ;143b ; pop hl ;143d ; return st; jp cret ;143e ; } ; =============== F U N C T I O N ======================================= ; 25 ; sub_1441h: ; int sub_1441h(uchar p1, register struct aaa * st, struct aaa * p3) { ; char l1[7]; /* 1 ix-1 */ ; /* 2 ix-2 */ ; /* 3 ix-3 */ ; /* 4 ix-4 */ ; /* 5 ix-5 */ ; /* 6 ix-6 */ ; /* 7 ix-7 */ ; /* 8 ix-8 */ ; ; struct aaa * l2; /* 9 ix-00ah */ ; /* 10 ix-009h */ ; ; int l3; /* 11 ix-00ch */ ; /* 12 ix-00bh */ ; ; uchar l4; /* 13 ix-00dh */ ; ; uchar l5; /* 14 ix-00eh */ ; ; int l6; /* 15 ix-00fh */ ; /* 16 ix-010h */ ; ; char * l7; /* 17 ix-012h */ ; /* 18 ix-011h */ ; ; uchar l8; /* 19 ix-013h */ call ncsv ;1441 ; defw 0ffedh ;-19 ;1444 ; ld l,(ix+8) ;1446 ; ld h,(ix+9) ;p2 ;1449 ; push hl ;144c ; pop iy ;144d ; ld e,(ix+6) ;p1 ;144f ; ld d,0 ;1452 ; ld hl,0ffc4h ;-60 ;1454 ; add hl,de ;1457 ; add hl,hl ;1458 ; add hl,hl ;1459 ; add hl,hl ;145a ; ld de,l9275h ;145b ; add hl,de ;145e ; bit 1,(hl) ;145f ; ld hl,1 ;1461 ; jr nz,l1467h ;1464 ; dec hl ;1466 ; l1467h: ; m1: ld (ix-00dh),l ;l4 ;1467 ; l4 = (bittst(*(l9275h + ((uchar)p1-60)*8), 1) != 0); ld e,(ix+6) ;p1 ;146a ; ld d,0 ;146d de=p1 ; ld hl,0ffc4h ;-60 ;146f ; add hl,de ;1472 hl=p1-60 ; add hl,hl ;1473 ; add hl,hl ;1474 ; add hl,hl ;1475 ; ld de,l9271h ;1476 ; add hl,de ;1479 ; ld (ix-012h),l ;147a ; ld (ix-011h),h ;l7 ;147d ; l7 = l9271h + ((uchar)p1-60)*8; push iy ;1480 ; pop hl ;1482 ; ld a,l ;1483 ; or h ;1484 ; jr z,l1496h ;1485 ; if(st == 0) goto m2; ld a,(ix-00dh) ;l4 ;1487 ; or a ;148a ; jp z,l14b3h ;148b ; if(l4 == 0) goto m4; ld a,(ix+00ah) ;148e ; or (ix+00bh) ;p3 ;1491 ; jr nz,l14b3h ;1494 ; if(p3 != 0) goto m4; l1496h: ; m2: push iy ;1496 ; call sub_2569h ;1498 ; sub_2569h(st); pop bc ;149b ; ld a,(ix-00dh) ;l4 ;149c ; or a ;149f ; jr z,l14adh ;14a0 ; if(l4 == 0) goto m3; ld l,(ix+00ah) ;14a2 ; ld h,(ix+00bh) ;p3 ;14a5 ; push hl ;14a8 ; call sub_2569h ;14a9 ; sub_2569h(p3); pop bc ;14ac ; l14adh: ; m3: ld hl,0 ;14ad ; jp cret ;14b0 ; return 0; l14b3h: ; m4: ld (ix-00eh),0 ;l5 ;14b3 ; l5 = 0; ld e,(ix+6) ;p1 ;14b7 ; ld d,0 ;14ba ; ld hl,0ffc4h ;-60 ;14bc ; add hl,de ;14bf ; add hl,hl ;14c0 ; add hl,hl ;14c1 ; add hl,hl ;14c2 ; ld de,l9276h ;14c3 ; add hl,de ;14c6 ; ld c,(hl) ;14c7 ; inc hl ;14c8 ; ld b,(hl) ;14c9 ; ld (ix-010h),c ;14ca ; ld (ix-00fh),b ;l6 ;14cd ; l6 = *(l9276h + ((uchar)p1-60)*4); ld a,(ix+6) ;p1 ;14d0 ; cp 046h ;14d3 ; jp nz,l14f8h ;14d5 ; if(p1 != 0x46) goto m5; ld a,(iy+0) ;14d8 ; cp 073h ;14db ; jr nz,l14f8h ;14dd ; if(st->m0 != 0x74) goto m5; ld e,(iy+1) ;14df ; ld d,(iy+2) ;14e2 ; ld hl,00012h ;+18 ;14e5 ; add hl,de ;14e8 ; ld c,(hl) ;14e9 ; inc hl ;14ea ; ld b,(hl) ;14eb ; bit 2,c ;14ec ; jr z,l14f8h ;14ee ; if(bittst(st->m1.a[0]->m18, 2) == 0) goto m5; ld hl,l8d40h ;14f0 ; push hl ;14f3 ; call prerror ;14f4 ; prerror("can't take address of register variable"); pop bc ;14f7 ; l14f8h: ; m5: bit 0,(ix-00fh) ;l6 ;14f8 ; jr nz,l1507h ;14fc ; if(bittst(l6, 0+8) != 0) goto m6; push iy ;14fe ; call sub_1e37h ;1500 ; pop bc ;1503 ; push hl ;1504 ; pop iy ;1505 ; st = sub_1e37h(st); l1507h: ; m6: ld a,(ix-00dh) ;l4 ;1507 ; or a ;150a ; jr z,l1524h ;150b ; if(l4 == 0) goto m7; bit 3,(ix-00fh) ;l6 ;150d ; jr nz,l1524h ;1511 ; if(bittst(l6, 3+8) != 0) goto m7; ld l,(ix+00ah) ;1513 ; ld h,(ix+00bh) ;p3 ;1516 ; push hl ;1519 ; call sub_1e37h ;151a ; pop bc ;151d ; ld (ix+00ah),l ;151e ; ld (ix+00bh),h ;p3 ;1521 ; p3 = sub_1e37h(p3); l1524h: ; m7: ld a,(ix+6) ;p1 ;1524 ; cp 03dh ;1527 ; jp nz,l1549h ;1529 ; if(p1 != 0x3d) goto m8; bit 0,(iy+9) ;+9 ;152c ; jp z,l1552h ;1530 ; if(bittst(???, 0+8) == 0) goto m9; ld a,(iy+00ch) ;+12 ;1533 ; or a ;1536 ; jr nz,l1552h ;1537 ; if(st->m5.m8 != 0) goto m9; push iy ;1539 ; ld hl,00045h ;153b ; push hl ;153e ; call sub_1441h ;153f ; pop bc ;1542 ; pop bc ;1543 ; push hl ;1544 ; pop iy ;1545 ; st = sub_1441h(0x45, st); jr l1552h ;1547 ; goto m9; l1549h: ; m8: push iy ;1549 ; call sub_1df0h ;154b ; pop bc ;154e ; push hl ;154f ; pop iy ;1550 ; st = sub_1df0h(st); l1552h: ; m9: ld a,(ix-00dh) ;l4 ;1552 ; or a ;1555 ; jr z,l1569h ;1556 ; if(l4 == 0) goto m10; ld l,(ix+00ah) ;1558 ; ld h,(ix+00bh) ;p3 ;155b ; push hl ;155e ; call sub_1df0h ;155f ; pop bc ;1562 ; ld (ix+00ah),l ;1563 ; ld (ix+00bh),h ;p3 ;1566 ; p3 = sub_1df0h(p3); l1569h: ; m10: bit 5,(ix-00fh) ;l6 ;1569 ; jp z,l15b1h ;156d ; if(bittst(l6,5+8) == 0) goto m14; push iy ;1570 ; call sub_1ef1h ;1572 ; pop bc ;1575 ; ld a,l ;1576 ; or a ;1577 ; jp nz,l15b1h ;1578 ; if(sub_1ef1h(st) != 0) goto m14; ld a,(ix+6) ;p1 ;157b ; cp 046h ;157e ; jp nz,l15a9h ;1580 ; if(p1 != 0x46) goto m13; ld a,(iy+0) ;1583 ; cp 046h ;1586 ; jr nz,l159fh ;1588 ; if(st->m0 != 0x46) goto m12; ld e,(iy+1) ;158a ; ld d,(iy+2) ;158d ; ld hl,0000ch ;+12 ;1590 ; add hl,de ;1593 ; ld a,(hl) ;1594 ; ERROR! cp 1 ;1595 ; jr nz,l159fh ;1597 ; if(m1.a[0]->m12 != 1) goto m12; l1599h: ; m11: push iy ;1599 ; pop hl ;159b ; jp cret ;159c ; return st; l159fh: ; m12: ld hl,l8d68h ;159f ; push hl ;15a2 ; call prerror ;15a3 ; prerror("can't take this address"); pop bc ;15a6 ; jr l15b1h ;15a7 ; goto m14; l15a9h: ; m13: ld hl,l8d80h ;15a9 ; push hl ;15ac ; call prerror ;15ad ; prerror("only lvalues may be assigned to or modified"); pop bc ;15b0 ; l15b1h: ; m14: bit 6,(ix-00fh) ;l6 ;15b1 ; jp z,l15cch ;15b5 ; if(bittst(l6, 6+8) == 0) goto m16; bit 0,(iy+009h) ;15b8 ; jr z,l15c4h ;15bc ; if(bittst((int)l2, 0+8) == 0) goto m15; ld a,(iy+00ch) ;l3 ;15be ; or a ;15c1 ; jr z,l15cch ;15c2 ; if((char)l3 == 0) goto m16; l15c4h: ; m15: ld hl,l8dach ;15c4 ; push hl ;15c7 ; call prerror ;15c8 ; prerror("pointer required"); pop bc ;15cb ; l15cch: ; m16: ld a,(ix-010h) ;l6 ;15cc ; and 003h ;15cf ; ld l,a ;15d1 ; xor a ;15d2 ; ld h,a ;15d3 ; ld a,l ;15d4 ; or h ;15d5 ; jp nz,l1632h ;15d6 ; if(((char)l6 & 3) != 0) goto m18; ld hl,00002h ;15d9 ; ERROR! push hl ;\2 ;15dc ; push iy ;\ ;15dd ; pop de ;/ ;15df ; ld hl,0x0005 ;15e0 ; add hl,de ;15e3 ; push hl ;\1 ;15e4 ; call sub_5a76h ;15e5 ; pop bc ;15e8 ; pop bc ;15e9 ; ld a,l ;15ea ; or a ;15eb ; jr z,l15fch ;15ec ; if(sub_5a76h(&st->m5, 2) == 0) goto m17; ld hl,8 ;15ee ; push hl ;15f1 ; push iy ;15f2 ; call sub_1ccch ;15f4 ; pop bc ;15f7 ; pop bc ;15f8 ; push hl ;15f9 ; pop iy ;15fa ; st = sub_1ccch(st, 8); l15fch: ; m17: ld a,(ix-00dh) ;l4 ;15fc ; or a ;15ff ; jp z,l1632h ;1600 ; if(l4 == 0) goto m18; ld hl,2 ;1603 ; ERROR! push hl ;1606 ; ld e,(ix+00ah) ;1607 ; ld d,(ix+00bh) ;p3 ;160a ; ld hl,0x0005 ;160d ; add hl,de ;1610 ; push hl ;1611 ; call sub_5a76h ;1612 ; pop bc ;1615 ; pop bc ;1616 ; ld a,l ;1617 ; or a ;1618 ; jp z,l1632h ;1619 ; if(sub_5a76h(&p3->m5, 2) == 0) goto m18; ld hl,8 ;161c ; push hl ;161f ; ld l,(ix+00ah) ;1620 ; ld h,(ix+00bh) ;p3 ;1623 ; push hl ;1626 ; call sub_1ccch ;1627 ; pop bc ;162a ; pop bc ;162b ; ld (ix+00ah),l ;162c ; ld (ix+00bh),h ;p3 ;162f ; p3 = sub_1ccch(p3, 8); l1632h: ; m18: ld a,(ix+6) ;p1 ;1632 ; cp 03ch ;1635 ; jp z,l1599h ;1637 ; if(p1 == 0x3c) goto m11; cp 043h ;163a ; jp z,l167bh ;163c ; if(p1 == 0x43) goto m22; cp 079h ;163f ; jp z,l1691h ;1641 ; if(p1 == 0x79) goto m23; l1644h: ; m19: ld a,(ix-010h) ;l6 ;1644 ; and 3 ;1647 ; ld l,a ;1649 ; xor a ;164a ; ld h,a ;164b ; ld a,l ;164c ; or h ;164d ; jp z,l16e1h ;164e ; if(((char)l6 & 3) == 0) goto m25; bit 1,(ix-010h) ;1651 ; jr z,l1660h ;1655 ; if(bittst(l6 ,1) == 0) goto m20; push iy ;1657 ; call sub_1b94h ;1659 ; pop bc ;165c ; push hl ;165d ; pop iy ;165e ; st = sub_1b94h(st); l1660h: ; m20: bit 0,(ix-010h) ;1660 ; jp z,l1ad1h ;1664 ; if(bittst(l6 ,0) == 0) goto m53; ld l,(ix+00ah) ;1667 ; ld h,(ix+00bh) ;p3 ;166a ; push hl ;166d ; call sub_1b94h ;166e ; hl = sub_1b94h(p3); l1671h: ; m21: pop bc ;1671 ; ld (ix+00ah),l ;1672 ; ld (ix+00bh),h ;p3 ;1675 ; p3 = hl jp l1ad1h ;1678 ; goto m53; l167bh: ; m22: ld l,(ix+00ah) ;167b ; ld h,(ix+00bh) ;p3 ;167e ; push hl ;1681 ; push iy ;1682 ; call sub_1340h ;1684 ; pop bc ;1687 ; pop bc ;1688 ; ld (ix+00ah),l ;1689 ; ld (ix+00bh),h ;p3 ;168c ; p3 = sub_1340h(st, p3); jr l1644h ;168f ; goto m19; l1691h: ; m23: push ix ;1691 ; pop de ;1693 ; ld hl,0fff8h ;-8 ;1694 ; add hl,de ;1697 ; ex de,hl ;1698 de=l1 ; ld hl,(word_a28d) ;1699 ; push hl ;\ ;169c ; ld bc,8 ;169d ; l1 = *word_a28d; /* ldir */ ldir ;16a0 ; pop hl ;/ ;16a2 ; ld (ix-1),0 ;l1 ;16a3 ; l1.m8 = 0; ld hl,00014h ;16a7 ; push hl ;\2 ;16aa ; push ix ;\ ;16ab ; pop de ;/ ;16ad ; ld hl,0fff8h ;-8 ;16ae ; add hl,de ;16b1 ; push hl ;\1 ;16b2 ; call sub_5a76h ;16b3 ; pop bc ;16b6 ; pop bc ;16b7 ; ld a,l ;16b8 ; or a ;16b9 ; jr z,l16c7h ;16ba ; if(sub_5a76h(&l1, 0x14) == 0) goto m24; ld hl,l8dbdh ;16bc ; push hl ;16bf ; call prerror ;16c0 ; prerror("void function cannot return value"); pop bc ;16c3 ; jp l1644h ;16c4 ; goto m19; l16c7h: ; m24: ld hl,00001h ;16c7 ; push hl ;\3 ;16ca ; push ix ;\ ;16cb ; pop de ;/ ;16cd ; ld hl,0fff8h ;-8 ;16ce ; add hl,de ;16d1 ; push hl ;\2 ;16d2 ; push iy ;\1 ;16d3 ; call sub_1f5dh ;16d5 ; pop bc ;16d8 ; pop bc ;16d9 ; pop bc ;16da ; push hl ;16db ; pop iy ;16dc ; st = sub_1f5dh(st, &l1, 1); jp l1644h ;16de ; goto m19; l16e1h: ; m25: bit 2,(ix-010h) ;16e1 ; jp z,l1740h ;16e5 ; if(bittst(l6 ,2) == 0) goto m30; bit 0,(iy+009h) ;16e8 ; error jp z,l1740h ;16ec ; if(bittst(st->m5.m4 ,0) == 0) goto m30; ld a,(iy+00ch) ;16ef ; or a ;16f2 ; jp nz,l1740h ;16f3 ; if(st->m5.m8 != 0) goto m30; ld e,(ix+00ah) ;16f6 ; ld d,(ix+00bh) ;p3 ;16f9 ; ld hl,0x0005 ;16fc ; add hl,de ;16ff ; push hl ;1700 ; call sub_5b08h ;1701 ; pop bc ;1704 ; ld a,l ;1705 ; or a ;1706 ; jp z,l1740h ;1707 ; if(sub_5b08h(&p3->m5) == 0) goto m30; ld e,(ix+00ah) ;170a ; ld d,(ix+00bh) ;p3 ;170d ; ld hl,0000bh ;1710 ; ERROR! add hl,de ;1713 ; bit 0,(hl) ;1714 ; jr nz,l171dh ;1716 ; ld hl,0000ch ;1718 ;C ; jr l1720h ;171b ; l171dh: ; ld hl,0000dh ;171d ;D ; l1720h: ; m27: push hl ;1720 ; push iy ;1721 ; call sub_1ebdh ;1723 ; ; MISSING "POP BC" ex (sp),hl ;\3 ;1726 ; param3 = sub_1ebdh(st, (bittst(p3->m5.m6 ,0) != 0) ? 0xC : 0xD); ld l,(ix+00ah) ;1727 ; ld h,(ix+00bh) ;p3 ;172a ; param2 = p3; l172dh: ; m28: push hl ;\2 ;172d ; ld hl,00050h ;80 ;172e ; push hl ;\1 ;1731 ; call sub_1441h ;1732 ; pop bc ;1735 ; pop bc ;1736 ; pop bc ;1737 ; param1 = sub_1441h(0x50, param2, param3); l1738h: ; m29: push hl ;1738 ; call sub_1ccch ;1739 ; sub_1ccch(param1); pop bc ;173c ; jp l1671h ;173d ; goto m21; l1740h: ; m30: ld a,(ix+6) ;p1 ;1740 ; cp 055h ;85 ;1743 ; jp nz,l17abh ;1745 ; if(p1 != 0x55) goto m33; ld e,(ix+00ah) ;1748 ; ld d,(ix+00bh) ;p3 ;174b ; ld hl,00009h ;174e ; ERROR! add hl,de ;1751 ; ld c,(hl) ;1752 ; inc hl ;1753 ; ld b,(hl) ;1754 ; bit 0,c ;1755 ; jp z,l17abh ;1757 ; if(bittst(p3->m8 ,0) == 0) goto m33; ld hl,0000ch ;+12 ;175a ; add hl,de ;175d ; ld a,(hl) ;175e ; or a ;175f ; jp nz,l17abh ;1760 ; if(p3->m12 != 0) goto m33; push iy ;1763 ; pop de ;1765 ; ld hl,0x0005 ;1766 ; add hl,de ;1769 ; push hl ;176a ; call sub_5b08h ;176b ; pop bc ;176e ; ld a,l ;176f ; or a ;1770 ; jp z,l17abh ;1771 ; if(sub_5b08h(st->m5) == 0) goto m33; push iy ;1774 ; pop hl ;1776 ; ld (ix-00ah),l ;1777 ; ld (ix-009h),h ;l2 ;177a ; l2 = st; ld l,(ix+00ah) ;177d ; ld h,(ix+00bh) ;p3 ;1780 ; push hl ;1783 ; pop iy ;1784 ; st = p3; ld e,(ix-00ah) ;1786 ; ld d,(ix-009h) ;l2 ;1789 ; ld hl,0000bh ;178c ; ERROR! add hl,de ;178f ; bit 0,(hl) ;1790 ; jr nz,l1799h ;1792 ; ERROR! ld hl,0000ch ;0xC ;1794 ; jr l179ch ;1797 ; l1799h: ; ld hl,0000dh ;0xD ;1799 ; l179ch: ; m32: push hl ;\ ;179c ; push iy ;\ ;179d ; call sub_1ebdh ;179f ; param3 = sub_1ebdh(st, (bittst(l2->m10 ,0) != 0) ? 0xC : 0xD); ex (sp),hl ;17a2 ; ld l,(ix-00ah) ;17a3 ; ld h,(ix-009h) ;l2 ;17a6 ; param2 = l2; jr l172dh ;17a9 ; goto m28; l17abh: ; m33: bit 3,(ix-010h) ;l6 ;17ab ; jp z,l187ah ;17af ; if(bittst(l6 ,3) == 0) goto m38; bit 0,(iy+009h) ;17b2 ; jp z,l187ah ;17b6 ; if(bittst(st->m5.m6,0) == 0) goto m38; ld a,(iy+00ch) ;17b9 ; or a ;17bc ; jp nz,l187ah ;17bd ; if(st->m5.m8 != 0) goto m38; ld a,(ix-00dh) ;l4 ;17c0 ; or a ;17c3 ; jp z,l17e2h ;17c4 ; if(l4 == 0) goto m34; ld e,(ix+00ah) ;17c7 ; ld d,(ix+00bh) ;p3 ;17ca ; ld hl,00009h ;17cd ; add hl,de ;17d0 ; ld c,(hl) ;17d1 ; inc hl ;17d2 ; ld b,(hl) ;17d3 ; bit 0,c ;17d4 ; jp z,l187ah ;17d6 ; if(bittst(p3->m5.m6, 0) == 0) goto m38; ld hl,0000ch ;17d9 ; add hl,de ;17dc ; ld a,(hl) ;17dd ; or a ;17de ; jp nz,l187ah ;17df ; if(p3->m5.m8 != 0) goto m38; l17e2h: ; m34: xor a ;17e2 ; ld l,a ;17e3 ; ld a,(ix-00fh) ;l6 ;17e4 ; and 080h ;17e7 ; ld h,a ;17e9 ; ld a,l ;17ea ; or h ;17eb ; jp z,l1814h ;17ec ; if((l6 & 0x80) == 0) goto m35; push iy ;17ef ; pop de ;17f1 ; ld hl,0x0005 ;17f2 ; add hl,de ;17f5 ; push hl ;17f6 ; call sub_5a4ah ;17f7 ; pop bc ;17fa ; ld a,l ;17fb ; or a ;17fc ; jp nz,l1ad1h ;17fd ; if(sub_5a4ah(&st->m5) != 0) goto m53; ld e,(ix+00ah) ;1800 ; ld d,(ix+00bh) ;p3 ;1803 ; ld hl,0x0005 ;1806 ; add hl,de ;1809 ; push hl ;180a ; call sub_5a4ah ;180b ; pop bc ;180e ; ld a,l ;180f ; or a ;1810 ; jp nz,l1ad1h ;1811 ; if(sub_5a4ah(&p3->m5) != 0) goto m53; l1814h: ; m35: ld a,(ix-00dh) ;l4 ;1814 ; or a ;1817 ; jp z,l184bh ;1818 ; if(l4 == 0) goto m37; ld e,(ix+00ah) ;181b ; ld d,(ix+00bh) ;p3 ;181e ; ld hl,0x0005 ;1821 ; add hl,de ;1824 ; push hl ;\2 ;1825 ; push iy ;\ ;1826 ; pop de ;/ ;1828 ; ld hl,0x0005 ;1829 ; add hl,de ;182c ; push hl ;\1 ;182d ; call sub_591dh ;182e ; pop bc ;1831 ; pop bc ;1832 ; ld a,l ;1833 ; or a ;1834 ; jp nz,l184bh ;1835 ; if(sub_591dh(st->m5, p3->m5) != 0) goto m37; ld l,(ix-012h) ;1838 ; ld h,(ix-011h) ;l7 ;183b ; push hl ;183e ; ld hl,l8ddfh ;183f ; push hl ;1842 ; call prwarning ;1843 ; prwarning( "operands of %.3s not same pointer type", l7); pop bc ;1846 ; l1847h: ; m36: pop bc ;1847 ; jp l1ad1h ;1848 ; goto m53; l184bh: ; m37: ld a,(ix+6) ;p1 ;184b ; cp 052h ;184e ; jp nz,l1ad1h ;1850 ; if(p1 != 0x52) goto m53; push iy ;1853 ; pop hl ;1855 ; ld (ix-00ch),l ;1856 ; ld (ix-00bh),h ;l3 ;1859 ; l3 = st; ld (ix-00eh),1 ;185c ; l5 = 1; ld hl,0000ch ;1860 ; push hl ;\2 ;1863 ; push iy ;\1 ;1864 ; call sub_1ccch ;1866 ; pop bc ;1869 ; push hl ;\ ;186a ; pop iy ;/ ;186b ; st = sub_1ccch(st, 0xC); ld hl,0000ch ;186d ; ex (sp),hl ;1870 ; param2 = 0xC; ld l,(ix+00ah) ;1871 ; ld h,(ix+00bh) ;p3 ;1874 ; param1 = p3; jp l1738h ;1877 ; goto m29; l187ah: ; m38: ld a,(ix-010h) ;l6 ;187a ; and 030h ;187d ; ld l,a ;187f ; xor a ;1880 ; ld h,a ;1881 ; ld a,l ;1882 ; or h ;1883 ; jp z,l1937h ;1884 ; if((l6 & 0x30) == 0) goto m43; push iy ;1887 ; pop de ;1889 ; ld hl,0x0005 ;188a ; add hl,de ;188d ; push hl ;188e ; call sub_5ad5h ;188f ; pop bc ;1892 ; ld a,l ;1893 ; or a ;1894 ; jp z,l1937h ;1895 ; if(sub_5ad5h(&st->m5) == 0) goto m43; ld a,(ix-00dh) ;l4 ;1898 ; or a ;189b ; jp z,l18b3h ;189c ; if(l4 == 0) goto m39; ld e,(ix+00ah) ;189f ; ld d,(ix+00bh) ;p3 ;18a2 ; ld hl,0x0005 ;18a5 ; add hl,de ;18a8 ; push hl ;18a9 ; call sub_5ad5h ;18aa ; pop bc ;18ad ; ld a,l ;18ae ; or a ;18af ; jp z,l1937h ;18b0 ; if(sub_5ad5h(&p3->m5) == 0) goto m43; l18b3h: ; m39: bit 6,(ix-010h) ;18b3 ; jp z,l18fah ;18b7 ; if(bittst(l6, 6) == 0) goto m40; ld e,(ix+00ah) ;18ba ; ld d,(ix+00bh) ;p3 ;18bd ; ld hl,0x0005 ;18c0 ; add hl,de ;18c3 ; push hl ;\2 ;18c4 ; push iy ;\ ;18c5 ; pop de ;/ ;18c7 ; ld hl,0x0005 ;18c8 ; add hl,de ;18cb ; push hl ;\1 ;18cc ; call sub_1d5ah ;18cd ; pop bc ;18d0 ; ld e,l ;18d1 ; ld (ix-013h),e ;l8 ;18d2 ; l8 = sub_1d5ah(st->m5, p3->m5); ld l,e ;18d5 ; ld h,0 ;18d6 ; ex (sp),hl ;\2 ;18d8 ; push iy ;\1 ;18d9 ; call sub_1ccch ;18db ; pop bc ;18de ; push hl ;\ ;18df ; pop iy ;/ ;18e0 ; st = sub_1ccch (st, l8); ld l,(ix-013h) ;l8 ;18e2 ; ld h,0 ;18e5 ; ex (sp),hl ;\2 ;18e7 ; ld l,(ix+00ah) ;18e8 ; ld h,(ix+00bh) ;p3 ;18eb ; push hl ;\1 ;18ee ; call sub_1ccch ;18ef ; pop bc ;18f2 ; pop bc ;18f3 ; ld (ix+00ah),l ;18f4 ; ld (ix+00bh),h ;p3 ;18f7 ; p3 = sub_1ccch(p3, l8); l18fah: ; m40: bit 4,(ix-010h) ;l6 ;18fa ; jp nz,l1ad1h ;18fe ; if(bittst(l6,4) != 0) goto m53; push iy ;1901 ; pop de ;1903 ; ld hl,0x0005 ;1904 ; add hl,de ;1907 ; push hl ;1908 ; call sub_5b08h ;1909 ; pop bc ;190c ; ld a,l ;190d ; or a ;190e ; jp z,l192dh ;190f ; if(sub_5b08h(&st->m5) == 0) goto m41; ld a,(ix-00dh) ;l4 ;1912 ; or a ;1915 ; jp z,l1ad1h ;1916 ; if(l4 == 0) goto m53; ld e,(ix+00ah) ;1919 ; ld d,(ix+00bh) ;p3 ;191c ; ld hl,0x0005 ;191f ; add hl,de ;1922 ; push hl ;1923 ; call sub_5b08h ;1924 ; pop bc ;1927 ; ld a,l ;1928 ; or a ;1929 ; jp nz,l1ad1h ;192a ; if(sub_5b08h(&p3->m5) != 0) goto m53; l192dh: ; m41: ld hl,l8e06h ;192d ; l1930h: ; m42: push hl ;1930 ; call prerror ;1931 ; prerror("integral type required"); jp l1847h ;1934 ; goto m36; l1937h: ; m43: bit 7,(ix-010h) ;l6 ;1937 ; jp z,l1ac3h ;193b ; if(bittst(l6, 7) == 0) goto m52; ld hl,00014h ;193e ; push hl ;1941 ; push iy ;1942 ; pop de ;1944 ; ld hl,0x0005 ;1945 ; add hl,de ;1948 ; push hl ;1949 ; call sub_5a76h ;194a ; pop bc ;194d ; pop bc ;194e ; ld a,l ;194f ; or a ;1950 ; jp nz,l1974h ;1951 ; if(sub_5a76h(&st->m5, 0x14) != 0) goto m44; ld a,(ix-00dh) ;1954 ; or a ;1957 ; jp z,l19cch ;1958 ; if(l4 == 0) goto m46; ld hl,00014h ;195b ; push hl ;195e ; ld e,(ix+00ah) ;195f ; ld d,(ix+00bh) ;p3 ;1962 ; ld hl,0x0005 ;1965 ; add hl,de ;1968 ; push hl ;1969 ; call sub_5a76h ;196a ; pop bc ;196d ; pop bc ;196e ; ld a,l ;196f ; or a ;1970 ; jp z,l19cch ;1971 ; if(sub_5a76h(&p3->m5, 0x14) == 0) goto m46; l1974h: ; m44: ld a,(ix+6) ;p1 ;1974 ; cp 07ch ;124d ;1977 ; jp nz,l19c6h ;1979 ; if(p1 != 0x7C) goto m45; ld a,(iy+0) ;197c ; cp 03dh ;61d ;197f ; jp nz,l19c6h ;1981 ; if(st->m0 != 0x3D) goto m45; ld hl,00014h ;1984 ; push hl ;\2 ;1987 ; ld e,(ix+00ah) ;1988 ; ld d,(ix+00bh) ;p3 ;198b ; ld hl,0x0005 ;198e ; add hl,de ;1991 ; push hl ;\1 ;1992 ; call sub_5a76h ;1993 ; pop bc ;1996 ; pop bc ;1997 ; ld a,l ;1998 ; or a ;1999 ; jp z,l19c6h ;199a ; if(sub_5a76h(&p3->m5, 0x14) == 0) goto m45; ld e,(ix+00ah) ;199d ; ld d,(ix+00bh) ;p3 ;19a0 ; ld hl,0x0005 ;19a3 ; add hl,de ;19a6 ; push hl ;\ ;19a7 ; push iy ;19a8 ; pop de ;19aa ; ld hl,0x0005 ;19ab ; add hl,de ;19ae ; ex de,hl ;19af de=st ; pop hl ;/ ;19b0 hl=p3 ; push hl ;19b1 ; ld bc,8 ;19b2 ; ldir ;19b5 ; st->m5 = p3->m5; /* ldir */ pop hl ;/ ;19b7 ; ld l,(ix+00ah) ;19b8 ; ld h,(ix+00bh) ;p3 ;19bb ; push hl ;19be ; call sub_2569h ;19bf ; sub_2569h(p3); pop bc ;19c2 ; jp l1599h ;19c3 ; goto m11; l19c6h: ; m45: ld hl,l8e1dh ;19c6 ; hl = "illegal use of void expression" jp l1930h ;19c9 ; goto m42; l19cch: ; m46: bit 1,(ix-00fh) ;l6 ;19cc ; jp nz,l1a11h ;19d0 ; if(bittst(l6,1+8) != 0) goto m49; push iy ;19d3 ; pop de ;19d5 ; ld hl,0x0005 ;19d6 ; add hl,de ;19d9 ; push hl ;19da ; call sub_5aa4h ;19db ; pop bc ;19de ; ld a,l ;19df ; or a ;19e0 ; jp z,l19ffh ;19e1 ; if(sub_5aa4h(&st->m5) == 0) goto m47; ld a,(ix-00dh) ;l4 ;19e4 ; or a ;19e7 ; jp z,l1a11h ;19e8 ; if(l4 == 0) goto m49; ld e,(ix+00ah) ;19eb ; ld d,(ix+00bh) ;p3 ;19ee ; ld hl,0x0005 ;19f1 ; add hl,de ;19f4 ; push hl ;19f5 ; call sub_5aa4h ;19f6 ; pop bc ;19f9 ; ld a,l ;19fa ; or a ;19fb ; jp nz,l1a11h ;19fc ; if(sub_5aa4h(&p3->m5) != 0) goto m49; l19ffh: ; m47: ld l,(ix-012h) ;l7 ;19ff ; ld h,(ix-011h) ;1a02 ; push hl ;1a05 ; ld hl,l8e3ch ;1a06 ; push hl ;1a09 ; call prerror ;1a0a ; prerror("simple type required for %.3s", l7); l1a0dh: ; m48: pop bc ;1a0d jp l1847h ;1a0e ; goto m36; l1a11h: ; m49: bit 4,(ix-00fh) ;l6 ;1a11 ; jp z,l1ad1h ;1a15 ; if(bittst(l6,4+8) == 0) goto m53; xor a ;1a18 ; ld l,a ;1a19 ; ld a,(ix-00fh) ;l6 ;1a1a ; and 080h ;1a1d ; ld h,a ;1a1f ; ld a,l ;1a20 ; or h ;1a21 ; jp z,l1a95h ;1a22 ; if((l6 & 0x8000) == 0) goto m51; push iy ;1a25 ; call sub_2105h ;1a27 ; pop bc ;1a2a ; ld a,l ;1a2b ; or a ;1a2c ; jp z,l1a5dh ;1a2d ; if(sub_2105h(st) == 0) goto m50; ld e,(ix+00ah) ;1a30 ; ld d,(ix+00bh) ;p3 ;1a33 ; ld hl,00009h ;1a36 ; add hl,de ;1a39 ; ld c,(hl) ;1a3a ; inc hl ;1a3b ; ld b,(hl) ;1a3c ; bit 0,c ;1a3d ; jp z,l1a5dh ;1a3f ; if(bittst(p3->m5.m6 ,0) == 0) goto m50; ld hl,0000ch ;1a42 ; add hl,de ;1a45 ; ld a,(hl) ;1a46 ; or a ;1a47 ; jp nz,l1a5dh ;1a48 ; if(p3->m5.m8 != 0) goto m50; ld hl,0x0005 ;1a4b ; add hl,de ;1a4e ; push hl ;1a4f ; push iy ;1a50 ; call sub_1bf7h ;1a52 ; pop bc ;1a55 ; pop bc ;1a56 ; push hl ;1a57 ; pop iy ;1a58 ; st = sub_1bf7h(st, &p3-m5); jp l1a95h ;1a5a ; goto m51; l1a5dh: ; m50: ld l,(ix+00ah) ;1a5d ; ld h,(ix+00bh) ;p3 ;1a60 ; push hl ;1a63 ; call sub_2105h ;1a64 ; pop bc ;1a67 ; ld a,l ;1a68 ; or a ;1a69 ; jp z,l1a95h ;1a6a ; if(sub_2105h(p3) == 0) goto m51; bit 0,(iy+009h) ;l2 ;1a6d ; jp z,l1a95h ;1a71 ; if(bittst(st->m5.m6, 0) == 0) goto m51; ld a,(iy+00ch) ;l3 ;1a74 ; or a ;1a77 ; jp nz,l1a95h ;1a78 ; if(l3 != 0) goto m51; push iy ;1a7b ; pop de ;1a7d ; ld hl,0x0005 ;1a7e ; add hl,de ;1a81 ; push hl ;\2 ;1a82 ; ld l,(ix+00ah) ;1a83 ; ld h,(ix+00bh) ;p3 ;1a86 ; push hl ;\1 ;1a89 ; call sub_1bf7h ;1a8a ; pop bc ;1a8d ; pop bc ;1a8e ; ld (ix+00ah),l ;1a8f ; ld (ix+00bh),h ;p3 ;1a92 ; p3 = sub_1bf7h(p3, &st-m5); l1a95h: ; m51: ld e,(ix+00ah) ;1a95 ; ld d,(ix+00bh) ;p3 ;1a98 ; ld hl,0x0005 ;1a9b ; add hl,de ;1a9e ; push hl ;\2 ;1a9f ; push iy ;\ ;1aa0 ; pop de ;/ ;1aa2 ; ld hl,0x0005 ;1aa3 ; add hl,de ;1aa6 ; push hl ;\1 ;1aa7 ; call sub_591dh ;1aa8 ; pop bc ;1aab ; pop bc ;1aac ; ld a,l ;1aad ; or a ;1aae ; jp nz,l1ad1h ;1aaf ; if(sub_591dh(&st->m5, &p3->m5) != 0) goto m53; ld l,(ix-012h) ;l7 ;1ab2 ; ld h,(ix-011h) ;1ab5 ; push hl ;1ab8 ; ld hl,l8e5ah ;1ab9 ; push hl ;1abc ; call prwarning ;1abd ; prwarning("operands of %.3s not same type", l7); jp l1a0dh ;1ac0 ; goto m48; l1ac3h: ; m52: bit 1,(ix-00fh) ;1ac3 ; jr nz,l1ad1h ;1ac7 ; if(bittst(l6 ,1) != 0) goto m53; ld hl,l8e79h ;1ac9 ; push hl ;1acc ; call prerror ;1acd ; prerror("type conflict"); pop bc ;1ad0 ; l1ad1h: ; m53: bit 2,(ix-00fh) ;l6 ;1ad1 ; jp z,l1afeh ;1ad5 ; if(bittst(l6, 2+8) == 0) goto m55; bit 2,(ix-010h) ;l6 ;1ad8 ; ld hl,00001h ;1adc ; jr z,l1ae2h ;1adf ; dec hl ;1ae1 ; l1ae2h: ; m54: push hl ;\p3 ;1ae2 ; push iy ;\ ;1ae3 ; pop de ;/ ;1ae5 ; ld hl,0x0005 ;1ae6 ; add hl,de ;1ae9 ; push hl ;\2 ;1aea ; ld l,(ix+00ah) ;1aeb ; ld h,(ix+00bh) ;p3 ;1aee ; push hl ;\1 ;1af1 ; call sub_1f5dh ;1af2 ; pop bc ;1af5 ; pop bc ;1af6 ; pop bc ;1af7 ; ld (ix+00ah),l ;1af8 ; ld (ix+00bh),h ;p3 ;1afb ; p3 = sub_1f5dh(p3, &st->m5, (bittst(l6, 2) == 0)); l1afeh: ; m55: ld l,(ix+00ah) ;1afe ; ld h,(ix+00bh) ;p3 ;1b01 ; push hl ;\3 ;1b04 ; push iy ;\2 ;1b05 ; ld l,(ix+6) ;p1 ;1b07 ; ld h,0 ;1b0a ; push hl ;\1 ;1b0c ; call sub_225ah ;1b0d ; pop bc ;1b10 ; pop bc ;1b11 ; pop bc ;1b12 ; ld (ix-00ah),l ;1b13 ; ld (ix-009h),h ;l2 ;1b16 ; l2 = sub_225ah(p1, st, p3); ld a,(ix-00eh) ;l5 ;1b19 ; or a ;1b1c ; jp z,l1b42h ;1b1d ; if(l5 == 0) goto m56; ld l,(ix-00ch) ;1b20 ; ld h,(ix-00bh) ;l3 ;1b23 ; push hl ;1b26 ; call sub_1ebdh ;1b27 ; ex (sp),hl ;\3 ;1b2a ; ld l,(ix-00ah) ;1b2b ; ld h,(ix-009h) ;l2 ;1b2e ; push hl ;\2 ;1b31 ; ld hl,00053h ;1b32 ; push hl ;\1 ;1b35 ; call sub_1441h ;1b36 ; pop bc ;1b39 ; pop bc ;1b3a ; pop bc ;1b3b ; ld (ix-00ah),l ;1b3c ; ld (ix-009h),h ;l2 ;1b3f ; l2 = sub_1441h(0x53, l2, sub_1ebdh(l3)); l1b42h: ; m56: ld l,(ix-00ah) ;1b42 ; ld h,(ix-009h) ;l2 ;1b45 ; jp cret ;1b48 ; return l2; ; } ; =============== F U N C T I O N ======================================= ; 26 ; sub_1b4bh: ; struct aaa * sub_1b4bh(p1, p2, char p3) { call csv ;1b4b ; register struct aaa * st; ld e,(ix+6) ;1b4e ; ld d,(ix+7) ;1b51 ; ld l,(ix+8) ;1b54 ; ld h,(ix+9) ;1b57 ; push hl ;1b5a ; push de ;1b5b ; call sub_248ah ;1b5c ; pop bc ;1b5f ; pop bc ;1b60 ; push hl ;1b61 ; pop iy ;1b62 ; st = sub_248ah(p2, p1); ld a,(ix+00ah) ;p3 ;1b64 ; ld (iy+00bh),a ;1b67 ; st->m11 = p3; push iy ;1b6a ; pop hl ;1b6c ; return st; jp cret ;1b6d ; } ; =============== F U N C T I O N ======================================= ; 27 ; sub_1b70h: ; struct aaa * sub_1b70h(p1) { call csv ;1b70 ; register struct aaa * st; ld hl,0007fh ;1b73 ; push hl ;1b76 ; call sub_2186h ;1b77 ; pop bc ;1b7a ; push hl ;1b7b ; pop iy ;1b7c ; st = sub_2186h(0x7f); ld l,(ix+6) ;1b7e ; ld h,(ix+7) ;1b81 ; ld (iy+1),l ;1b84 ; ld (iy+2),h ;1b87 ; st->m1 = p1; ld (iy+0bh),10h ;1b8a ; st->m11 = 10; push iy ;1b8e ; pop hl ;1b90 ; return st; jp cret ;1b91 ; } ; =============== F U N C T I O N ======================================= ; 28 ; sub_1b94h: ; sub_1b94h(register struct aaa * st) { call csv ;1b94 ; ld l,(ix+6) ;1b97 ; ld h,(ix+7) ;1b9a ; push hl ;1b9d ; pop iy ;1b9e ; push hl ;1ba0 ; pop de ;1ba1 ; ld hl,0x0005 ;1ba2 ; add hl,de ;1ba5 ; push hl ;1ba6 ; call sub_5aa4h ;1ba7 ; pop bc ;1baa ; ld a,l ;1bab ; or a ;1bac ; jp nz,l1bbbh ;1bad ; if(sub_5aa4h(&st->m5) != 0) goto m1; ld hl,l8e87h ;1bb0 ; push hl ;1bb3 ; call prerror ;1bb4 ; prerror("logical type required"); pop bc ;1bb7 ; jp l1bf1h ;1bb8 ; goto m2; l1bbbh: ; m1: ld hl,00002h ;1bbb ; push hl ;1bbe ; push iy ;1bbf ; pop de ;1bc1 ; ld hl,0x0005 ;1bc2 ; add hl,de ;1bc5 ; push hl ;1bc6 ; call sub_5a76h ;1bc7 ; pop bc ;1bca ; pop bc ;1bcb ; ld a,l ;1bcc ; or a ;1bcd ; push iy ;1bce ; jp nz,l1bf3h ;1bd0 ; if(sub_5a76h(&st->m5, 2) != 0) goto m3; pop de ;1bd3 ; ld hl,0x0005 ;1bd4 ; add hl,de ;1bd7 ; push hl ;1bd8 ; ld hl,word_9d1b ;1bd9 ; push hl ;1bdc ; call sub_1bf7h ;1bdd ; pop bc ;1be0 ; ex (sp),hl ;\3 ;1be1 ; push iy ;\2 ;1be2 ; ld hl,0005dh ;1be4 ; push hl ;\1 ;1be7 ; call sub_1441h ;1be8 ; pop bc ;1beb ; pop bc ;1bec ; pop bc ;1bed ; push hl ;1bee ; pop iy ;1bef ; st = sub_1441h(0x5D, st, sub_1bf7h(word_9d1b, &st->m5)); l1bf1h: ; m2: push iy ;1bf1 ; l1bf3h: ; m3: pop hl ;1bf3 ; return st; jp cret ;1bf4 ; } ; =============== F U N C T I O N ======================================= ; 29 ; sub_1bf7h: ; struct aaa * sub_1bf7h(register struct aaa * st, struct xxx * p2) { call csv ;1bf7 ; struct aaa * l1; push hl ;1bfa ; ld l,(ix+6) ;1bfb ; ld h,(ix+7) ;1bfe ; push hl ;1c01 ; pop iy ;1c02 ; ld a,(iy+0) ;1c04 ; cp 03dh ;1c07 ; jp nz,l1c6ah ;1c09 ; if(st->m0 != 03d) goto m1; ld l,(iy+1) ;1c0c ; ld h,(iy+2) ;1c0f ; ld (ix-2),l ;1c12 ; ld (ix-1),h ;l1 ;1c15 ; ld a,(hl) ;1c18 ; cp 073h ;1c19 ; jp nz,l1c6ah ;1c1b ; if((l1 = st->m1)->m0 != 0x73) goto m1; ld l,(ix-2) ;1c1e ; ld h,(ix-1) ;l1 ;1c21 ; inc hl ;1c24 ; ld c,(hl) ;1c25 ; inc hl ;1c26 ; ld b,(hl) ;1c27 ; ld hl,00012h ;1c28 ; add hl,bc ;1c2b ; ld c,(hl) ;1c2c ; inc hl ;1c2d ; ld b,(hl) ;1c2e ; bit 6,c ;1c2f ; jp z,l1c6ah ;1c31 ; if(bittst(l1->m0->m18, 6) == 0) goto m1; ld l,(ix-2) ;1c34 ; ld h,(ix-1) ;l1 ;1c37 ; inc hl ;1c3a ; ld c,(hl) ;1c3b ; inc hl ;1c3c ; ld b,(hl) ;1c3d ; ld hl,00017h ;1c3e ; add hl,bc ;1c41 ; ld c,(hl) ;1c42 ; inc hl ;1c43 ; ld b,(hl) ;1c44 ; push bc ;1c45 ; ld hl,l8e9dh ;1c46 ; push hl ;1c49 ; call prwarning ;1c4a ; prwarning("%s() declared implicit int", l1->m0->m23); pop bc ;1c4d ; pop bc ;1c4e ; ld l,(ix-2) ;1c4f ; ld h,(ix-1) ;l1 ;1c52 ; inc hl ;1c55 ; ld c,(hl) ;1c56 ; inc hl ;1c57 ; ld b,(hl) ;1c58 ; ld hl,00012h ;+18 ;1c59 ; add hl,bc ;1c5c ; ld c,(hl) ;1c5d ; inc hl ;1c5e ; ld b,(hl) ;1c5f ; ld a,c ;1c60 ; and 0bfh ;1c61 ; ld c,a ;c =c & 0xbf ;1c63 ; ld a,b ;1c64 ; and a ;1c65 ; ld b,a ;1c66 ; ld (hl),b ;1c67 ; dec hl ;1c68 ; ld (hl),c ;1c69 ; l1->m1->m18 = l1->m1->m18 & 0xbf; l1c6ah: ; m1: ld l,(ix+8) ;1c6a ; ld h,(ix+9) ;p2 ;1c6d ; push hl ;1c70 ; push iy ;1c71 ; pop de ;1c73 ; ld hl,0x0005 ;1c74 ; add hl,de ;1c77 ; push hl ;1c78 ; call sub_591dh ;1c79 ; pop bc ;1c7c ; pop bc ;1c7d ; ld a,l ;1c7e ; or a ;1c7f ; jp nz,l1cc6h ;1c80 ; if(sub_591dh(&st->m5, p2) != 0) goto m4; ld a,(iy+0) ;1c83 ; cp 074h ;1c86 ; jp nz,l1c97h ;1c88 ; if(st->m0 >= 0x74) goto m2; ld de,__Hbss ;1c8b ; push iy ;1c8e ; pop hl ;1c90 ; call wrelop ;1c91 ; jp nc,l1cb1h ;1c94 ; if(st != __Hbss) goto m3; l1c97h: ; m2: ld l,(ix+8) ;1c97 ; ld h,(ix+9) ;p2 ;1c9a ; push hl ;1c9d ; call sub_24b6h ;1c9e ; ex (sp),hl ;1ca1 ; push iy ;1ca2 ; ld hl,0007ch ;1ca4 ; push hl ;1ca7 ; call sub_23b4h ;1ca8 ; pop bc ;1cab ; pop bc ;1cac ; pop bc ;1cad ; push hl ;1cae ; pop iy ;1caf ; st = sub_23b4h(07c, st, sub_24b6h(p2)); l1cb1h: ; m3: push iy ;1cb1 ; pop de ;1cb3 ; ld hl,0x0005 ;1cb4 ; add hl,de ;1cb7 ; ex de,hl ;1cb8 ; ld l,(ix+8) ;1cb9 ; ld h,(ix+9) ;p2 ;1cbc ; push hl ;1cbf ; ld bc,00008h ;1cc0 ; ldir ;1cc3 ; &st->m5 = p2; pop hl ;1cc5 ; l1cc6h: ; m4: push iy ;1cc6 ; pop hl ;1cc8 ; return st; jp cret ;1cc9 ; } ; =============== F U N C T I O N ======================================= ; 30 ++ ; struct aaa * sub_1ccch(struct aaa * p1, char p2) { ; ; struct xxx st; sub_1ccch: ; call ncsv ;1ccc ; struct xxx { defw 0fff8h ;-8 ;1ccf ; char m1; (ix+-8) ld a,(ix+8) ;p2 ;1cd1 ; st.m7 = p2; char m2; (ix+-7) ld (ix-2),a ;1cd4 ; (ix+-6) ld (ix-4),0 ;1cd7 ; int m4; (ix+-5) ld (ix-3),0 ;1cdb ; st.m6 = 0; (ix+-4) ld (ix-6),0 ;1cdf ; int m6; (ix+-3) ld (ix-5),0 ;1ce3 ; st.m4 = 0; char m7; (ix+-2) ld (ix-1),0 ;1ce7 ; st.m8 = 0; char m8; (ix+-1) push ix ;1ceb ; }; pop de ;1ced ; ld hl,0fff8h ;-8 ;1cee ; add hl,de ;1cf1 ; push hl ;1cf2 ; ld l,(ix+6) ;1cf3 ; ld h,(ix+7) ;p1 ;1cf6 ; push hl ;1cf9 ; call sub_1bf7h ;1cfa ; return sub_1bf7h(p1, &st); pop bc ;1cfd ; pop bc ;1cfe ; jp cret ;1cff ; } ; =============== F U N C T I O N ======================================= ; 31 ; sub_1d02h: ; struct st_13 * sub_1d02h(register struct st_13 * st) { call csv ;1d02 ; ld l,(ix+6) ;1d05 ; ld h,(ix+7) ;1d08 ; push hl ;1d0b ; pop iy ;1d0c ; ld a,(iy+0) ;1d0e ; cp 071h ;1d11 ; jr z,l1d19h ;1d13 ; if(st->m0 == 0x71) goto m1; cp 078h ;1d15 ; jr nz,l1d1fh ;1d17 ; if(st->m0 != 0x78) goto m2; l1d19h: ; m1: push iy ;1d19 ; pop hl ;1d1b ; jp cret ;1d1c ; return st; l1d1fh: ; m2: ld a,(iy+00ch) ;1d1f ; or a ;1d22 ; jr nz,l1d19h ;1d23 ; if(st->m5.m8 != 0x78) goto m1; ld a,(iy+009h) ;1d25 ; or (iy+00ah) ;1d28 ; jr nz,l1d19h ;1d2b ; if(st->m5.m6 != 0) goto m1; ld b,008h ;1d2d ; ld a,(iy+00bh) ;1d2f ; call brelop ;1d32 ; jp c,l1d40h ;1d35 ; if(st->m5.m7 < 8) goto m3; ld a,(iy+00bh) ;1d38 ; cp 012h ;1d3b ; jp nz,l1d4eh ;1d3d ; if(st->m5.m7 != 0x12) goto m5; l1d40h: ; m3: ld hl,00008h ;1d40 ; l1d43h: ; m4: push hl ;1d43 ; push iy ;1d44 ; call sub_1ccch ;1d46 ; pop bc ;1d49 ; pop bc ;1d4a ; jp cret ;1d4b ; return sub_1ccch(st, 8); l1d4eh: ; m5: ld a,(iy+00bh) ;1d4e ; cp 00eh ;1d51 ; jr nz,l1d19h ;1d53 ; if(st->m5.m7 != 0xE) goto m1; ld hl,00010h ;1d55 ; jr l1d43h ;1d58 ; return sub_1ccch(st, 0x10); ; } ; =============== F U N C T I O N ======================================= ; 32 ++ ; sub_1d5ah: ; char sub_1d5ah(struct xxx * st, struct xxx * p2) { call csv ;1d5a ; char l1, l2; push hl ;1d5d ; ld l,(ix+6) ;1d5e ; ld h,(ix+7) ;1d61 ; push hl ;1d64 ; pop iy ;1d65 ; bit 0,(iy+6) st ;1d67 ; jp nz,l1d7ch ;1d6b ; if(bittst(st->m4, 0) != 0) goto m1; ld e,(ix+8) ;1d6e ; ld d,(ix+9) ;p2 ;1d71 ; ld hl,00006h ;1d74 ; add hl,de ;1d77 ; bit 0,(hl) ;1d78 ; jr z,l1d81h ;1d7a ; if(bittst(p2->m4, 0) == 0) goto m2; l1d7ch: ; m1: ld hl,00001h ;1d7c ; hl = 1 jr l1d84h ;1d7f ; goto m3; l1d81h: ; m2: ld hl,00000h ;1d81 ; hl = 0 l1d84h: ; m3: ld (ix-1),l ;l1 ;1d84 ; l1 = hl ld a,(iy+6) ;1d87 ; ld (ix-2),a ;l2 ;1d8a ; l2 = st->m4; ld e,(ix+8) ;1d8d ; ld d,(ix+9) ;p2 ;1d90 ; ld hl,00006h ;1d93 ; add hl,de ;1d96 ; ld b,(hl) ;1d97 ; ld a,(ix-2) ;l2 ;1d98 ; call brelop ;1d9b ; jp nc,l1dafh ;1d9e ; if(l2 >= p2->m4) goto m4; ld e,(ix+8) ;1da1 ; ld d,(ix+9) ;p2 ;1da4 ; ld hl,00006h ;1da7 ; add hl,de ;1daa ; ld l,(hl) ;1dab ; ld (ix-2),l ;l2 ;1dac ; l2 = p2->m4; l1dafh: ; m4: ld b,008h ;1daf ; ld a,(ix-2) ;l2 ;1db1 ; call brelop ;1db4 ; jr nc,l1dbdh ;1db7 ; if(l2 >= 8) goto m5; ld (ix-2),008h ;l2 ;1db9 ; l2 = 8; l1dbdh: ; m5: ld a,(ix-2) ;l2 ;1dbd ; cp 00eh ;1dc0 ; jp z,l1dcah ;1dc2 ; if(l2 == 0xE) goto m6; cp 010h ;1dc5 jp nz,l1dcfh ;1dc7 ; if(l2 != 0x10) goto m7; l1dcah: ; m6: ld l,010h ;1dca ; jp cret ;1dcc ; return 0x10; l1dcfh: ; m7: ld a,(ix-2) ;l2 ;1dcf ; cp 012h ;1dd2 ; jr nz,l1ddah ;1dd4 ; if(l2 != 0x12) goto m8; ld (ix-2),008h ;l2 ;1dd6 ; l2 = 8; l1ddah: ; m8: ld a,(ix-1) ;l1 ;1dda ; or a ;1ddd ; jp z,l1deah ;1dde ; if(l1 == 0) goto m9; ld a,(ix-2) ;l2 ;1de1 ; or 001h ;1de4 ; ld l,a ;1de6 ; jp cret ;1de7 ; return l2 | 1; l1deah: ; m9: ld l,(ix-2) ;l2 ;1dea ; jp cret ;1ded ; return l2; ; } ; =============== F U N C T I O N ======================================= ; 33 ; sub_1df0h: ; struct st_13 * sub_1df0h(struct st_13 * st) { call csv ;1df0 ; ld l,(ix+6) ;1df3 ; ld h,(ix+7) ;1df6 ; push hl ;1df9 ; pop iy ;1dfa ; ld a,(iy+0) ;1dfc ; cp 073h ;1dff ; jp nz,l1e0ch ;1e01 ; if(st->m0 != 0x73) goto m1; ld a,(iy+00ch) ;1e04 ; cp 2 ;1e07 ; jp z,l1e12h ;1e09 ; if(st->mm5.m7 == 2) goto m2; l1e0ch: ; m1: push iy ;1e0c ; pop hl ;1e0e ; jp cret ;1e0f ; returm st; l1e12h: ; m2: ld (iy+00bh),016h ;1e12 ; st->m5.m8 = 0x16; ld (iy+00ch),0 ;1e16 ; st->m5.m7 = 0; ld l,(iy+1) ;1e1a ; ld h,(iy+2) ;1e1d ; ld (iy+5),l ;1e20 ; ld (iy+6),h ;1e23 ; st->m5.m6 = st->m1.s[0]; ld (iy+009h),0 ;1e26 ; ld (iy+00ah),0 ;1e2a ; st->m5.m4 = 0; push iy ;1e2e ; call sub_1e58h ;1e30 ; return sub_1e58h(st); pop bc ;1e33 ; jp cret ;1e34 ; } ; =============== F U N C T I O N ======================================= ; 34 ; sub_1e37h: ; struct st_13 * sub_1e37h(struct st_13 * st) { call csv ;1e37 ; ld l,(ix+6) ;1e3a ; ld h,(ix+7) ;1e3d ; push hl ;\ ;1e40 ; pop iy ;/ ;1e41 ; ld a,(iy+00ch) ;1e43 ; cp 1 ;1e46 ; push iy ;\p1 ;1e48 ; jp nz,l1e54h ;1e4a ; if(st->mm5.m7 != 1) goto m1; call sub_1e58h ;1e4d ; push hl ;\ ;1e50 ; pop iy ;/ ;1e51 ; ex (sp),hl ;1e53 ; return sub_1e58h(st); l1e54h: ; m1: pop hl ;1e54 ; jp cret ;1e55 ; return st; ; } ; =============== F U N C T I O N ======================================= ; 35 ; sub_1e58h: ; struct st_13 * sub_1e58h(register struct st_13 *) { call csv ;1e58 ; struct st_13 * l1; push hl ;1e5b ; ld l,(ix+6) ;1e5c ; ld h,(ix+7) ;1e5f ; push hl ;1e62 ; pop iy ;1e63 ; push hl ;1e65 ; ld hl,00046h ;1e66 ; push hl ;1e69 ; call sub_23b4h ;1e6a ; pop bc ;1e6d ; ld (ix-2),l ;1e6e ; ld (ix-1),h ;l1 ;1e71 ; l1 = sub_23b4h(st, 0x46); push iy ;1e74 ; pop de ;1e76 ; ld hl,0x0005 ;1e77 ; add hl,de ;1e7a ; ex (sp),hl ;1e7b ; ld e,(ix-2) ;1e7c ; ld d,(ix-1) ;l1 ;1e7f ; ld hl,0x0005 ;1e82 ; add hl,de ;1e85 ; ex de,hl ;1e86 ; pop hl ;1e87 ; push hl ;1e88 ; ld bc,8 ;1e89 ; ldir ;1e8c ; l1->m5 = st->m5; /* ldir */ pop hl ;1e8e ; ld e,(ix-2) ;1e8f ; ld d,(ix-1) ;l1 ;1e92 ; ld hl,00007h ;1e95 ; add hl,de ;1e98 ; ld de,00000h ;1e99 ; ld (hl),e ;1e9c ; inc hl ;1e9d ; ld (hl),d ;1e9e ; l1->m5.m6 = 0; ld e,(ix-2) ;1e9f ; ld d,(ix-1) ;l1 ;1ea2 ; ld hl,0000ch ;1ea5 ; add hl,de ;1ea8 ; ld (hl),0 ;1ea9 ; l1->m5.m7 = 0; ld hl,0x0005 ;1eab ; add hl,de ;1eae ; push hl ;1eaf ; call sub_5be1h ;1eb0 ; sub_5be1h(&l1->m5); pop bc ;1eb3 ; ld l,(ix-2) ;1eb4 ; ld h,(ix-1) ;l1 ;1eb7 ; return l1; jp cret ;1eba ; } ; =============== F U N C T I O N ======================================= ; 36 ++ ; sub_1ebdh: ; struct st_13 * sub_1ebdh(register struct st_13 * st) { call csv ;1ebd ; ld l,(ix+6) ;1ec0 ; ld h,(ix+7) ;1ec3 ; push hl ;1ec6 ; pop iy ;1ec7 ; push hl ;1ec9 ; pop de ;1eca ; ld hl,5 ;1ecb ; add hl,de ;1ece ; push hl ;1ecf ; call sub_24b6h ;1ed0 ; pop bc ;1ed3 ; push hl ;1ed4 ; pop iy ;1ed5 ; st = sub_24b6h(&st->m5); ld b,1 ;1ed7 ; push iy ;1ed9 ; pop de ;1edb ; ld hl,9 ;1edc ; add hl,de ;1edf ; call aslr ;1ee0 ; st->m4 >>= 1; push iy ;1ee3 ; ld hl,0004eh ;1ee5 ; push hl ;1ee8 ; call sub_1441h ;1ee9 ; return sub_1441h(0x4E, st); pop bc ;1eec ; pop bc ;1eed ; jp cret ;1eee ; } ; =============== F U N C T I O N ======================================= ; 37 ; sub_1ef1h: ; char sub_1ef1h(register struct st_13 * st) { call csv ;1ef1 ; ld l,(ix+6) ;1ef4 ; ld h,(ix+7) ;1ef7 ; push hl ;1efa ; pop iy ;1efb ; ld a,(iy+0) ;1efd ; cp 043h ;1f00 ; jp z,l1f42h ;1f02 ; if(st->m0 == 0x43) goto m4; cp 045h ;1f05 ; jp z,l1f14h ;1f07 ; if(st->m0 == 0x45) goto m1; cp 073h ;1f0a ; jp z,l1f19h ;1f0c ; if(st->m0 == 0x73) goto m2; ld l,0 ;1f0f jp cret ;1f11 ; return (char)0; l1f14h: ; m1: ld l,001h ;1f14 ; jp cret ;1f16 ; return (char)1; l1f19h: ; m2: ld e,(iy+1) ;1f19 ; ld d,(iy+2) ;1f1c ; ld hl,00012h ;+18 ;1f1f ; add hl,de ;1f22 ; ld c,(hl) ;1f23 ; inc hl ;1f24 ; ld b,(hl) ;1f25 ; bit 4,c ;1f26 ; jp z,l1f3ch ;1f28 ; if(bittst(st->m1->m18,4) == 0) goto m3; ld hl,00014h ;1f2b ; add hl,de ;1f2e ; ld a,(hl) ;1f2f ; cp 00ch ;1f30 ; jp z,l1f3ch ;1f32 ; if(st->m1->m20 == 0xC) goto m3; ld a,(iy+00ch) ;+12 ;1f35 ; or a ;1f38 ; jp z,l1f57h ;1f39 ; if(st->m12 == 0) goto m5; l1f3ch: ; m3: ld hl,00000h ;1f3c ; jp cret ;1f3f ; return (int)0; l1f42h: ; m4: ld a,(iy+00ch) ;1f42 ; or a ;1f45 ; jr nz,l1f3ch ;1f46 ; if(st->m12 == 0) goto m3; ld l,(iy+1) ;1f48 ; ld h,(iy+2) ;1f4b ; push hl ;1f4e ; call sub_1ef1h ;1f4f ; pop bc ;1f52 ; ld a,l ;1f53 ; or a ;1f54 ; jr z,l1f3ch ;1f55 ; if(sub_1ef1h(st-m1) == 0) goto m3; l1f57h: ; m5: ld hl,00001h ;1f57 ; return (int)1; jp cret ;1f5a ; } ; =============== F U N C T I O N ======================================= ; 38 ; sub_1f5dh: ; struct st_13 * sub_1f5dh(register struct st_13 * st, struct xxx * p2, int p3) { call csv ;1f5d ; struct xxx * l1; push hl ;1f60 ; ld l,(ix+6) ;1f61 ; ld h,(ix+7) ;1f64 ; push hl ;1f67 ; pop iy ;1f68 ; push hl ;1f6a ; pop de ;1f6b ; ld hl,0x0005 ;1f6c ; add hl,de ;1f6f ; ld (ix-2),l ;1f70 ; ld (ix-1),h ;l1 ;1f73 ; l1 = &st->m5; ld l,(ix+8) ;1f76 ; ld h,(ix+9) ;p2 ;1f79 ; push hl ;1f7c ; ld l,(ix-2) ;1f7d ; ld h,(ix-1) ;l1 ;1f80 ; push hl ;1f83 ; call sub_591dh ;1f84 ; pop bc ;1f87 ; pop bc ;1f88 ; ld a,l ;1f89 ; or a ;1f8a ; jp nz,l20f4h ;1f8b ; if(sub_591dh(l1, p2) != 0) goto m9; ld l,(ix-2) ;1f8e ; ld h,(ix-1) ;l1 ;1f91 ; push hl ;1f94 ; call sub_5ad5h ;1f95 ; pop bc ;1f98 ; ld a,l ;1f99 ; or a ;1f9a ; ld l,(ix+8) ;1f9b ; ld h,(ix+9) ;p2 ;1f9e ; jp z,l1fd9h ;1fa1 ; if(sub_5ad5h(l1) == 0) goto m2; push hl ;1fa4 ; call sub_5ad5h ;1fa5 ; pop bc ;1fa8 ; ld a,l ;1fa9 ; or a ;1faa ; ld l,(ix+8) ;1fab ; ld h,(ix+9) ;p2 ;1fae ; jp z,l1fd9h ;1fb1 ; if(sub_5ad5h(p2) == 0) goto m2; push hl ;1fb4 ; call sub_5b08h ;1fb5 ; pop bc ;1fb8 ; ld a,l ;1fb9 ; or a ;1fba ; jp z,l20f4h ;1fbb ; if(sub_5b08h(p2) == 0) goto m9; ld l,(ix-2) ;1fbe ; ld h,(ix-1) ;l1 ;1fc1 ; push hl ;1fc4 ; call sub_5b38h ;1fc5 ; pop bc ;1fc8 ; ld a,l ;1fc9 ; or a ;1fca ; jp z,l20f4h ;1fcb ; if(sub_5b38h(st->m1.s[0]) == 0) goto m9; ld hl,l8eb8h ;1fce ; hl = "implicit conversion of float to integer" l1fd1h: ; m1: push hl ;1fd1 ; call prwarning ;1fd2 ; prwarning(hl); pop bc ;1fd5 ; jp l20f4h ;1fd6 ; goto m9; l1fd9h: ; m2: inc hl ;1fd9 ; inc hl ;1fda ; inc hl ;1fdb ; inc hl ;1fdc ; ld c,(hl) ;1fdd ; inc hl ;1fde ; ld b,(hl) ;1fdf ; bit 0,c ;1fe0 ; jp z,l204dh ;1fe2 ; if(bittst(p2->m6,0) == 0) goto m5; ld e,(ix+8) ;1fe5 ; ld d,(ix+9) ;p2 ;1fe8 ; ld hl,00007h ;1feb ; add hl,de ;1fee ; ld a,(hl) ;1fef ; or a ;1ff0 ; ld l,(ix-2) ;1ff1 ; ld h,(ix-1) ;l1 ;1ff4 ; jp nz,l2053h ;1ff7 ; if(p2->m8 != 0) goto m6; push hl ;1ffa ; call sub_5b08h ;1ffb ; pop bc ;1ffe ; ld a,l ;1fff ; or a ;2000 ; jp z,l204dh ;2001 ; if(sub_5b08h(l1) == 0) goto m5; ld a,(ix+00ah) ;2004 ; or (ix+00bh) ;p3 ;2007 ; jp nz,l203dh ;200a ; if(p3 != 0) goto m4; ld hl,0000ch ;200d ; push hl ;2010 ; ld l,(ix-2) ;2011 ; ld h,(ix-1) ;l1 ;2014 ; push hl ;2017 ; call sub_5a76h ;2018 ; pop bc ;201b ; pop bc ;201c ; ld a,l ;201d ; or a ;201e ; jp nz,l2037h ;201f ; if(sub_5a76h(l1, 0xC) != 0) goto m3; ld hl,0000dh ;2022 ; push hl ;2025 ; ld l,(ix-2) ;2026 ; ld h,(ix-1) ;l1 ;2029 ; push hl ;202c ; call sub_5a76h ;202d ; pop bc ;2030 ; pop bc ;2031 ; ld a,l ;2032 ; or a ;2033 ; jp z,l203dh ;2034 ; if(sub_5a76h(l1, 0xD) == 0) goto m4; l2037h: ; m3: push iy ;2037 ; pop hl ;2039 ; jp cret ;203a ; return st; l203dh: ; m4: push iy ;203d ; call sub_2105h ;203f ; pop bc ;2042 ; ld a,l ;2043 ; or a ;2044 ; jp nz,l20f4h ;2045 ; if(sub_2105h(st) != 0) goto m9; ld hl,l8ee0h ;2048 ; hl = "illegal conversion of integer to pointer" jr l1fd1h ;204b ; goto m1; l204dh: ; m5: ld l,(ix-2) ;204d ; ld h,(ix-1) ;l1 ;2050 ; l2053h: ; m6: inc hl ;2053 ; inc hl ;2054 ; inc hl ;2055 ; inc hl ;2056 ; ld c,(hl) ;2057 ; inc hl ;2058 ; ld b,(hl) ;2059 ; bit 0,c ;205a ; jp z,l2084h ;205c ; if(bittst(l1->m6,0) == 0) goto m7; ld e,(ix-2) ;205f ; ld d,(ix-1) ;l1 ;2062 ; ld hl,00007h ;2065 ; add hl,de ;2068 ; ld a,(hl) ;2069 ; or a ;206a ; jp nz,l2084h ;206b ; if(l1->m8 != 0) goto m7; ld l,(ix+8) ;206e ; ld h,(ix+9) ;p2 ;2071 ; push hl ;2074 ; call sub_5b08h ;2075 ; pop bc ;2078 ; ld a,l ;2079 ; or a ;207a ; jp z,l2084h ;207b ; if(sub_5b08h(p2) == 0) goto m7; ld hl,l8f09h ;207e ; hl = "illegal conversion of pointer to integer" jp l1fd1h ;2081 ; goto m1; l2084h: ; m7: ld l,(ix-2) ;2084 ; ld h,(ix-1) ;l1 ;2087 ; inc hl ;208a ; inc hl ;208b ; inc hl ;208c ; inc hl ;208d ; ld c,(hl) ;208e ; inc hl ;208f ; ld b,(hl) ;2090 ; bit 0,c ;2091 ; jp z,l20ech ;2093 ; if(bittst(l1->m6,0) == 0) goto m8; ld e,(ix-2) ;2096 ; ld d,(ix-1) ;l1 ;2099 ; ld hl,00007h ;209c ; add hl,de ;209f ; ld a,(hl) ;20a0 ; or a ;20a1 ; jp nz,l20ech ;20a2 ; if(l1->m8 != 0) goto m8; ld l,(ix+8) ;20a5 ; ld h,(ix+9) ;p2 ;20a8 ; inc hl ;20ab ; inc hl ;20ac ; inc hl ;20ad ; inc hl ;20ae ; ld c,(hl) ;20af ; inc hl ;20b0 ; ld b,(hl) ;20b1 ; bit 0,c ;20b2 ; jp z,l20ech ;20b4 ; if(bittst(p2->m6,0) == 0) goto m8; ld e,(ix+8) ;20b7 ; ld d,(ix+9) ;p2 ;20ba ; ld hl,00007h ;20bd ; add hl,de ;20c0 ; ld a,(hl) ;20c1 ; or a ;20c2 ; jp nz,l20ech ;20c3 ; if(p2->m8 != 0) goto m8; ld l,(ix-2) ;20c6 ; ld h,(ix-1) ;l1 ;20c9 ; push hl ;20cc ; call sub_5a4ah ;20cd ; pop bc ;20d0 ; ld a,l ;20d1 ; or a ;20d2 ; ld l,(ix+8) ;20d3 ; ld h,(ix+9) ;p2 ;20d6 ; push hl ;20d9 ; jp nz,l20fbh ;20da ; if(sub_5a4ah(l1) != 0) goto m10; call sub_5a4ah ;20dd ; pop bc ;20e0 ; ld a,l ;20e1 ; or a ;20e2 ; jp nz,l20f4h ;20e3 ; if(sub_5a4ah(p2) != 0) goto m9; ld hl,l8f32h ;20e6 ; hl = "illegal conversion between pointer types" jp l1fd1h ;20e9 ; goto m1; l20ech: ; m8: ld hl,l8f5bh ;20ec ; push hl ;20ef ; call prerror ;20f0 ; prerror("illegal conversion"); pop bc ;20f3 ; l20f4h: ; m9: ld l,(ix+8) ;20f4 ; ld h,(ix+9) ;p2 ;20f7 ; push hl ;20fa ; l20fbh: ; m10: push iy ;20fb ; call sub_1bf7h ;20fd ; return sub_1bf7h(st, p2); pop bc ;2100 ; pop bc ;2101 ; jp cret ;2102 ; } ; =============== F U N C T I O N ======================================= ; 39 ; sub_2105h: ; char sub_2105h(register struct ??? * st) { call csv ;2105 ; ld l,(ix+6) ;2108 ; ld h,(ix+7) ;210b ; push hl ;210e ; pop iy ;210f ; ld a,(iy+0) ;2111 ; cp 074h ;2114 ; jp z,l2123h ;2116 ; if(st->m0 == 0x74) goto m2; cp 07ch ;2119 ; jp z,l2139h ;211b ; if(st->m0 == 0x7c) goto m3; l211eh: ; m1: ld l,0 ;211e ; jp cret ;2120 ; return 0; l2123h: ; m2: ld a,(iy+1) ;2123 ; or (iy+2) ;2126 ; or (iy+3) ;2129 ; or (iy+4) ;212c ; ld hl,00001h ;212f ; jp z,cret ;2132 ; return (st->m1 == 0); /* long */ dec hl ;2135 ; jp cret ;2136 ; l2139h: ; m3: push iy ;2139 ; pop de ;213b ; ld hl,0x0005 ;213c ; add hl,de ;213f ; push hl ;2140 ; call sub_5b08h ;2141 ; pop bc ;2144 ; ld a,l ;2145 ; or a ;2146 ; jr z,l211eh ;2147 ; if(sub_5b08h(&st->m5) == 0) goto m1; ld l,(iy+1) ;2149 ; ld h,(iy+2) ;214c ; push hl ;214f ; call sub_2105h ;2150 ; return sub_2105h(st->m1); pop bc ;2153 ; jp cret ;2154 ; } ; =============== F U N C T I O N ======================================= ; 40 ; sub_2157h: ; char sub_2157h() { call csv ;2157 ; register struct ptr *ptr; ld hl,(word_9d35) ;215a ; ld a,l ;215d ; or h ;215e ; jp nz,l2176h ;215f ; if(word_9d35 != 0) goto m2; ld l,0 ;2162 ; jp cret ;2164 ; returm 0; l2167h: ; m1: ld l,(iy+1) ;2167 ; ld h,(iy+2) ;l1 ;216a ; word_9d35 = ptr; ld (word_9d35),hl ;216d ; push iy ;2170 ; call free ;2172 ; free(ptr); pop bc ;2175 ; l2176h: ; m2: ld iy,(word_9d35) ;2176 ; ptr = word_9d35; push iy ;217a ; pop hl ;217c ; ld a,l ;217d ; or h ;217e ; jr nz,l2167h ;217f ; if(ptr != 0) goto m1; ld l,001h ;2181 ; returm 1; jp cret ;2183 ; } ; =============== F U N C T I O N ======================================= ; 41 ; sub_2186h: ; struct sd st * sub_2186h(char c) { call csv ;2186 ; ld hl,(word_9d35) ;2189 ; ld a,l ;218c ; or h ;218d ; jp z,l21ach ;218e ; if(word_9d35 == 0) goto m1; ld iy,(word_9d35) ;2191 ; st = word_9d35; ld l,(iy+1) ;2195 ; ld h,(iy+2) ;2198 ; ld (word_9d35),hl ;219b ; word_9d35 = st->m1; ld hl,0000dh ; 13 ;219e ; push hl ;21a1 ; push iy ;21a2 ; call blkclr ;21a4 ; blkclr(st, 0xd); pop bc ;21a7 ; pop bc ;21a8 ; jp l21b7h ;21a9 ; goto m2; l21ach: ; m1: ld hl,0000dh ; 13 ;21ac ; push hl ;21af ; call allocmem ;21b0 ; pop bc ;21b3 ; push hl ;21b4 ; pop iy ;21b5 ; st = allocmem(0xd); l21b7h: ; m2: ld a,(ix+6) ;21b7 ; ld (iy+0),a ;21ba ; st->m0 = c; ld (iy+0bh),14h ;21bd ; st->m11 = 0x14; push iy ;21c1 ; pop hl ;21c3 ; returm st; jp cret ;21c4 ; } ; =============== F U N C T I O N ======================================= ; 42 ; sub_21c7h: ; struct st_13 * sub_21c7h(register struct st_13 * st) { call csv ;21c7 ; struct st_13 * l1; push hl ;21ca ; push hl ;21cb ; ld l,(ix+6) ;21cc ; ld h,(ix+7) ;21cf ; push hl ;21d2 ; pop iy ;21d3 ; ld hl,00000h ;21d5 ; push hl ;21d8 ; call sub_2186h ;21d9 ; pop bc ;21dc ; ld (ix-2),l ;21dd ; ld (ix-1),h ;l1 ;21e0 ; l1 = sub_2186h(0); push iy ;21e3 ; pop hl ;21e5 ; ld e,(ix-2) ;21e6 ; ld d,(ix-1) ;l1 ;21e9 ; push hl ;21ec ; ld bc,0000dh ;21ed ; ldir ;21f0 ; *l1 = *st; pop hl ;21f2 ; ld e,(iy+0) ;21f3 ; ld d,0 ;21f6 ; ld hl,0ffc4h ;-60 ;21f8 ; add hl,de ;21fb ; add hl,hl ;21fc ; add hl,hl ;21fd ; add hl,hl ;21fe ; ld de,l9275h ;21ff ; add hl,de ;2202 ; ld l,(hl) ;2203 ; ld h,0 ;2204 ; ld (ix-4),l ;2206 ; ld (ix-3),h ;l2 ;2209 ; l2 = (uchar)*((l9275h + (st->m0-60)*4)); bit 0,(ix-4) ;220c ; jp nz,l221bh ;2210 ; if(bittst(l2,0) != 0) goto m1; ld a,(iy+0) ;2213 ; cp 078h ;2216 ; jp nz,l2224h ;2218 ; if(st->m0 != 0x78) goto m2; l221bh: ; m1: ld l,(ix-2) ;221b ; ld h,(ix-1) ;l1 ;221e ; jp cret ;2221 ; return l1; l2224h: ; m2: ld l,(iy+1) ;2224 ; ld h,(iy+2) ;2227 ; push hl ;222a ; call sub_21c7h ;222b ; pop bc ;222e ; ex de,hl ;222f ; ld l,(ix-2) ;2230 ; ld h,(ix-1) ;l1 ;2233 ; inc hl ;2236 ; ld (hl),e ;2237 ; inc hl ;2238 ; ld (hl),d ;2239 ; l1->m1.a[0] = sub_21c7h(st->m1.a[0]); bit 1,(ix-4) ;l2 ;223a ; jr z,l221bh ;223e ; if(bittst(l2,1) == 0) goto m1; ld l,(iy+3) ;l2 ;2240 ; ld h,(iy+4) ;2243 ; push hl ;2246 ; call sub_21c7h ;2247 ; pop bc ;224a ; ex de,hl ;224b ; ld l,(ix-2) ;224c ; ld h,(ix-1) ;l1 ;224f ; inc hl ;2252 ; inc hl ;2253 ; inc hl ;2254 ; ld (hl),e ;2255 ; inc hl ;2256 ; ld (hl),d ;2257 ; l1->m1.a[1] = sub_21c7h(l2); jr l221bh ;2258 ; goto m1; ; } ; =============== F U N C T I O N ======================================= ; 43 ; sub_225ah: ; struct st_13 * sub_225ah(uchar p1, register struct st_13 * st, struct st_13 * p3) { call csv ;225a ; struct st_13 * l1; push hl ;225d ; ld l,(ix+8) ;225e ; ld h,(ix+9) st ;2261 ; push hl ;2264 ; pop iy ;2265 ; ld a,(ix+6) ;p1 ;2267 ; cp 07ch ;226a ; jp nz,l22a3h ;226c ; if(p1 != 0x7C) goto m1; ld a,(iy+0) ;226f ; cp 074h ;2272 ; jp nz,l22a3h ;2274 ; if(st->m0 != 0x74) goto m1; ld e,(ix+00ah) ;2277 ; ld d,(ix+00bh) ;p3 ;227a de=p3 ; ld hl,0x0005 ;227d ; add hl,de ;2280 ; push hl ;\ ;2281 hl=p3->m5 ; push iy ;\ ;2282 ; pop de ;/ ;2284 de=st ; ld hl,0x0005 ;2285 ; add hl,de ;2288 hl=st->m5 ; ex de,hl ;2289 de=st->m5 ; pop hl ;/ ;228a hl=p3->m5 ; push hl ;228b ; ld bc,8 ;228c ; ldir ;228f ; st->m5 = p3->m5; /* ldir */ pop hl ;2291 ; ld l,(ix+00ah) ;2292 ; ld h,(ix+00bh) ;p3 ;2295 ; push hl ;2298 ; call sub_2569h ;2299 ; sub_2569h(p3) pop bc ;229c ; push iy ;229d ; pop hl ;229f ; jp cret ;22a0 ; return st; l22a3h: ; m1: ld l,(ix+00ah) ;22a3 ; ld h,(ix+00bh) ;p3 ;22a6 ; push hl ;22a9 ; push iy ;22aa ; ld l,(ix+6) ;p1 ;22ac ; ld h,0 ;22af ; push hl ;22b1 ; call sub_23b4h ;22b2 ; pop bc ;22b5 ; pop bc ;22b6 ; pop bc ;22b7 ; ld (ix-2),l ;22b8 ; ld (ix-1),h ;l1 ;22bb ; l1 = sub_23b4h(p1, st, p3); ld e,(ix+6) ;p1 ;22be ; ld d,0 ;22c1 ; ld hl,0ffc4h ;-60 ;22c3 ; add hl,de ;22c6 ; add hl,hl ;22c7 ; add hl,hl ;22c8 ; add hl,hl ;22c9 ; ld de,l9278h ;22ca ; add hl,de ;22cd ; ld a,(hl) ;22ce ; add a,0ffh ;22cf ; ld l,a ;22d1 ; ld h,0 ;22d2 ; ld a,h ;22d4 ; cp h ;22d5 ; jp c,l2307h ;22d6 ; jp nz,l22e2h ;22d9 ; ld a,006h ;22dc ; cp l ;22de ; jp c,l2307h ;22df ; l22e2h: ; m2: switch ((uchar)*(l9278 + (p1-60)*8)) { add hl,hl ;22e2 ; case 0: goto m3; /* l22ech; */ ld de,l8bc9h ;22e3 ; case 1: goto m5; /* l2310h; */ add hl,de ;22e6 ; case 2: goto m8; /* l235ch; */ ld a,(hl) ;22e7 ; case 3: goto m6; /* l2330h; */ inc hl ;22e8 ; case 4: goto m9; /* l2387h; */ ld h,(hl) ;22e9 ; case 5: goto m10; /* l2396h; */ ld l,a ;22ea ; case 6: goto m11; /* l23a5h; */ jp (hl) ;22eb ; } l22ech: ; m3: /* case 0: */ push iy ;22ec ; pop de ;22ee ; ld hl,0x0005 ;22ef ; add hl,de ;22f2 ; push hl ;22f3 ; ld e,(ix-2) ;22f4 ; ld d,(ix-1) ;l1 ;22f7 ; ld hl,0x0005 ;22fa ; add hl,de ;22fd ; ex de,hl ;22fe ; pop hl ;22ff ; push hl ;2300 ; ld bc,8 ;2301 ; ldir ;2304 ; l1->m5 = st->m5; /* ldir */ pop hl ;2306 l2307h: ; m4: ld l,(ix-2) ;2307 ; ld h,(ix-1) ;l1 ;230a ; jp cret ;230d ; return l1; l2310h: ; m5: /* case 1: */ ld e,(ix+00ah) ;2310 ; ld d,(ix+00bh) ;p3 ;2313 ; ld hl,0x0005 ;2316 ; add hl,de ;2319 ; push hl ;231a ; ld e,(ix-2) ;231b ; ld d,(ix-1) ;l1 ;231e ; ld hl,0x0005 ;2321 ; add hl,de ;2324 ; ex de,hl ;2325 ; pop hl ;2326 ; push hl ;2327 ; ld bc,8 ;2328 ; ldir ;232b ; l1->m5 = p3->m5; /* ldir */ pop hl ;232d ; jr l2307h ;232e ; goto m4; l2330h: ; m6: /* case 3: */ push iy ;2330 ; pop de ;2332 ; ld hl,0x0005 ;2333 ; add hl,de ;2336 ; push hl ;2337 ; ld e,(ix-2) ;2338 ; ld d,(ix-1) ;l1 ;233b ; ld hl,0x0005 ;233e ; add hl,de ;2341 ; ex de,hl ;2342 ; pop hl ;2343 ; push hl ;2344 ; ld bc,8 ;2345 ; ldir ;2348 ; l1->m5 = st->m5; /* ldir */ pop hl ;234a ; ld e,(ix-2) ;234b ; ld d,(ix-1) ;l1 ;234e ; ld hl,0x0005 ;2351 ; add hl,de ;2354 ; push hl ;2355 ; call sub_5be1h ;2356 ; sub_5be1h(&l1->m5); l2359h: ; m7: pop bc ;2359 jr l2307h ;235a ; goto m4; l235ch: ; m8: /* case 2: */ push iy ;235c ; pop de ;235e ; ld hl,0x0005 ;235f ; add hl,de ;2362 ; push hl ;2363 ; ld e,(ix-2) ;2364 ; ld d,(ix-1) ;l1 ;2367 ; ld hl,0x0005 ;236a ; add hl,de ;236d ; ex de,hl ;236e ; pop hl ;236f ; push hl ;2370 ; ld bc,8 ;2371 ; ldir ;2374 ; l1->m5 = st->m5; /* ldir */ pop hl ;2376 ; ld e,(ix-2) ;2377 ; ld d,(ix-1) ;l1 ;237a ; ld hl,0x0005 ;237d ; add hl,de ;2380 ; push hl ;2381 ; call sub_5b99h ;2382 ; sub_5b99h(&l1->m5); jr l2359h ;2385 ; goto m7; l2387h: ; m9: /* case 4: */ ld e,(ix-2) ;2387 ; ld d,(ix-1) ;l1 ;238a ; ld hl,0000bh ;238d ; add hl,de ;2390 ; ld (hl),8 ;2391 ; l1->m5.m7 = 8; jp l2307h ;2393 ; goto m4; l2396h: ; m10: /* case 5: */ ld e,(ix-2) ;2396 ; ld d,(ix-1) ;l1 ;2399 ; ld hl,0000bh ;239c ; add hl,de ;239f ; ld (hl),2 ;23a0 ; l1->m5.m7 = 2; jp l2307h ;23a2 ; goto m4; l23a5h: ; m11: /* case 6: */ ld e,(ix-2) ;23a5 ; ld d,(ix-1) ;l1 ;23a8 ; ld hl,0000bh ;23ab ; add hl,de ;23ae ; ld (hl),014h ;23af ; l1->m5.m7 = 0x14; jp l2307h ;23b1 ; goto m4; ; =============== F U N C T I O N ======================================= ; 44 ; sub_23b4h: ; sub_23b4h(uchar p1, register struct * st, int p3) { call csv ;23b4 ; struct st_13 * l1; push hl ;23b7 ; ld l,(ix+8) ;23b8 ; ld h,(ix+9) ;st ;23bb ; push hl ;23be ; pop iy ;23bf ; ld l,(ix+6) ;p1 ;23c1 ; ld h,0 ;23c4 ; push hl ;23c6 ; call sub_2186h ;23c7 ; pop bc ;23ca ; ld (ix-2),l ;23cb ; ld (ix-1),h ;l1 ;23ce ; l1 = sub_2186h(p1) ld a,(ix+6) ;23d1 ; cp 078h ;23d4 ; jp z,l2405h ;23d6 ; if(p1 == 0x78) goto m1; push iy ;23d9 ; pop de ;23db ; inc hl ;23dc ; ld (hl),e ;23dd ; inc hl ;23de ; ld (hl),d ;23df ; l1->m1.a[0] = st; ld e,a ;23e0 ; ld d,0 ;23e1 ; ld hl,0ffc4h ;-60 ;23e3 ; add hl,de ;23e6 ; add hl,hl ;23e7 ; add hl,hl ;23e8 ; add hl,hl ;23e9 ; ld de,l9275h ;23ea ; add hl,de ;23ed ; bit 1,(hl) ;23ee ; jp z,l2405h ;23f0 ; if(bittst((uchar)*((l9275h + (p1-60)*4)),1) != 0) goto m1; ld e,(ix+00ah) ;23f3 ; ld d,(ix+00bh) ;p3 ;23f6 ; ld l,(ix-2) ;23f9 ; ld h,(ix-1) ;l1 ;23fc ; inc hl ;23ff ; inc hl ;2400 ; inc hl ;2401 ; ld (hl),e ;2402 ; inc hl ;2403 ; ld (hl),d ;2404 ; l1->m1.s[1] = p3; l2405h: ; m1: ld l,(ix-2) ;2405 ; ld h,(ix-1) ;l1 ;2408 ; return l1; jp cret ;240b ; } ; =============== F U N C T I O N ======================================= ; 45 ; sub_240eh: ; struct st_13 * sub_240eh(register struct aaa * st) { call csv ;240e ; struct st_13 * l1; push hl ;2411 ; ld l,(ix+6) ;2412 ; ld h,(ix+7) ;2415 ; push hl ;2418 ; pop iy ;2419 ; ld hl,00073h ;241b ; push hl ;241e ; call sub_2186h ;241f ; pop bc ;2422 ; ld (ix-2),l ;2423 ; ld (ix-1),h ;l1 ;2426 ; l1 = sub_2186h(0x73); push iy ;2429 ; pop de ;242b ; inc hl ;242c ; ld (hl),e ;242d ; inc hl ;242e ; ld (hl),d ;242f ; l1->m1.a[0] = st; bit 4,(iy+012h) ;+18 ;2430 ; jp nz,l243fh ;2434 ; if(bittst(st->m18,4) != 0) goto m1; ld a,(iy+014h) ;+20 ;2437 ; cp 00ah ;243a ; jp nz,l2454h ;243c ; if(st->m20 != 0xA) goto m2; l243fh: ; m1: ld e,(ix-2) ;243f ; ld d,(ix-1) ;l1 ;2442 ; ld hl,0x0005 ;2445 ; add hl,de ;2448 ; ex de,hl ;2449 de=l1->m5 ; push iy ;244a ; pop hl ;244c hl=st ; push hl ;244d ; ld bc,00008h ;244e ; ldir ;2451 ; l1->m5 = *(struct xxx *)st; /* strange code ! */ pop hl ;2453 ; l2454h: ; m2: ld l,(ix-2) ;2454 ; ld h,(ix-1) ;l1 ;2457 ; return l1; jp cret ;245a ; } ; =============== F U N C T I O N ======================================= ; 46 ; sub_245dh: ; struct st_13 * sub_245dh() { call csv ;245d ; register struct st_13 * st; ld hl,00076h ;2460 ; ;struct st_13 { push hl ;2463 ; ; uchar m0; /* + 0 */ call sub_2186h ;2464 ; ; union lw m1; /* + 1 */ pop bc ;2467 ; ; /* + 2 */ push hl ;2468 ; ; /* + 3 */ pop iy ;2469 ; st = sub_2186h(0x76); ; /* + 4 struct xxx { */ ld (iy+0bh),4 ;246b ; st->m5.m7 = 4; ; struct xxx m5; /* + 5 1 char m1; /* (ix+-8) */ ld (iy+09h),1 ;246f ; ; /* + 6 2 char m2; /* (ix+-7) */ ld (iy+0ah),0 ;2473 ; st->m5.m6 = 1; ; /* + 7 3 /* (ix+-6) */ ld hl,(word_8bd7) ;2477 ; ; /* + 8 4 int m4; /* (ix+-5) */ inc hl ;247a ; ; /* + 9 5 /* (ix+-4) */ ld (word_8bd7),hl ;247b ; ++word_8bd7; ; /* +10 a 6 int m6; /* (ix+-3) */ ld (iy+1),l ;247e ; ; /* +11 b 7 char m7; /* (ix+-2) */ ld (iy+2),h ;2481 ; ; /* +12 c 8 char m8; /* (ix+-1) */ push iy ;2484 ; st->m1.a[0]= word_8bd7;}; /* }; */ pop hl ;2486 ; return st; ; jp cret ;2487 ; } ; ; =============== F U N C T I O N ======================================= ; 47 ; sub_248ah: ; struct st_13 * sub_248ah(long p1) { call csv ;248a ; register struct st_13 * st; ld hl,00074h ;248d ; push hl ;2490 ; call sub_2186h ;2491 ; pop bc ;2494 ; push hl ;2495 ; pop iy ;2496 ; st = sub_2186h(0x74); ld e,(ix+6) ;2498 ; ld d,(ix+7) ;249b ; ld l,(ix+8) ;249e ; ld h,(ix+9) ;24a1 ; ld (iy+1),e ;24a4 ; ld (iy+2),d ;24a7 ; ld (iy+3),l ;24aa ; ld (iy+4),h ;24ad ; st->m1.ul = p1; push iy ;24b0 ; pop hl ;24b2 ; return st; jp cret ;24b3 ; } ; =============== F U N C T I O N ======================================= ; 48 ; sub_24b6h: ; sub_24b6h(struct xxx * p1) { call csv ;24b6 ; ld hl,00077h ;24b9 ; push hl ;24bc ; call sub_2186h ;24bd ; pop bc ;24c0 ; push hl ;24c1 ; pop iy ;24c2 ; st = sub_2186h(0x77); push hl ;24c4 ; pop de ;24c5 ; ld hl,0x0005 ;24c6 ; add hl,de ;24c9 ; ex de,hl ;24ca ; ld l,(ix+6) ;24cb ; ld h,(ix+7) ;p1 ;24ce ; push hl ;24d1 ; ld bc,8 ;24d2 ; ldir ;24d5 ; st->m5 = p1; pop hl ;24d7 ; push iy ;24d8 ; pop hl ;24da ; return st; jp cret ;24db ; } ; =============== F U N C T I O N ======================================= ; 49 ; exprcomplex: ; void exprcomplex() { ld hl,l8f6eh ;24de ; push hl ;24e1 ; call fatalerror ;24e2 ; fatalerror("expression too complex"); pop bc ;24e5 ; ret ;24e6 ; } ; =============== F U N C T I O N ======================================= ; 50 ; sub_24e7h: ; void sub_24e7h(int p1) { call csv ;24e7 ; ld de,array_9d38 ;24ea ; ld hl,(word_9cf1) ;24ed ; or a ;24f0 ; sbc hl,de ;24f1 ; call z,exprcomplex ;24f3 ; if(word_9cf1 == array_9d38) exprcomplex(); ld e,(ix+6) ;24f6 ; ld d,(ix+7) ;24f9 ; ld hl,(word_9cf1) ;24fc ; dec hl ;24ff ; dec hl ;2500 ; ld (word_9cf1),hl ;2501 ; ld (hl),e ;2504 ; inc hl ;2505 ; ld (hl),d ;2506 ; *(--word_9cf1) = p1; jp cret ;2507 ; } ; =============== F U N C T I O N ======================================= ; 51 ; sub_250ah: ; int sub_250ah() { ld de,array_9d60 ;250a ; ld hl,(word_9cf1) ;250d ; or a ;2510 ; sbc hl,de ;2511 ; jp z,l2525h ;2513 ; if(word_9cf1 == array_9d60) goto m1; ld hl,(word_9cf1) ;2516 ; inc hl ;2519 ; inc hl ;251a ; ld (word_9cf1),hl ;251b ; dec hl ;251e ; dec hl ;251f ; ld a,(hl) ;2520 ; inc hl ;2521 ; ld h,(hl) ;2522 ; ld l,a ;2523 ; return *(word_9cf1++); ret ;2524 ; l2525h: ; m1: ld hl,00000h ;2525 ; return 0; ret ;2528sub_250ah } ; =============== F U N C T I O N ======================================= ; 52 ; sub_2529h: ; void sub_2529h(uchar p1) { call csv ;2529 ; register struct ??? * st; ld de,l9cf3h ;252c ; ld hl,(word_8bc7) ;252f ; or a ;2532 ; sbc hl,de ;2533 ; call z,exprcomplex ;2535 ; if(word_8bc7 == l9cf3h) exprcomplex(); ld a,(ix+6) ;2538 ; ld hl,(word_8bc7) ;253b ; dec hl ;253e ; dec hl ;253f ; ld (word_8bc7),hl ;2540 ; ld (hl),a ;2543 ; *(--word_8bc7) = p1; ld e,a ;2544 ; ld d,0 ;2545 ; ld hl,0ffc4h ;-60 ;2547 ; add hl,de ;254a ; add hl,hl ;254b ; add hl,hl ;254c ; add hl,hl ;254d ; ld de,l9274h ;254e ; add hl,de ;2551 ; ld l,(hl) ;2552 ; ld iy,(word_8bc7) ;2553 ; st = word_8bc7; ld (iy+1),l ;2557 ; st-m1 = *(l9274h + (p1-60)*8); jp cret ;255a ; } ; =============== F U N C T I O N ======================================= ; 53 ; sub_255dh: ; uchar sub_255dh() { ld hl,(word_8bc7) ;255d ; inc hl ;2560 ; inc hl ;2561 ; ld (word_8bc7),hl ;2562 ; dec hl ;2565 ; dec hl ;2566 ; ld l,(hl) ;2567 ; return *(word_8bc7++); ret ;2568 ; } ; =============== F U N C T I O N ======================================= ; 54 ; sub_2569h: ; void sub_2569h(struct st_13 * st) { call csv ;2569 ; uchar l1; push hl ;256c ; ld l,(ix+6) ;256d ; ld h,(ix+7) st ;2570 ; push hl ;2573 ; pop iy ;2574 ; ld a,l ;2576 ; or h ;2577 ; jp z,cret ;2578 ; if(st == 0) return; ld a,(iy+0) ;257b ; ld (ix-1),a ;l1 ;257e ; l1 = st->m0; ld e,(ix-1) ;2581 ; ld d,0 ;2584 ; ld hl,0ffc4h ;-60 ;2586 ; add hl,de ;2589 ; add hl,hl ;258a ; add hl,hl ;258b ; add hl,hl ;258c ; ld de,l9275h ;258d ; add hl,de ;2590 ; bit 0,(hl) ;2591 ; jp nz,l25c9h ;2593 ; if(bittst(*(l9275h + (l1-60)*8), 0) != 0) goto m1; ld a,(ix-1) ;l1 ;2596 ; cp 078h ;2599 ; jp z,l25c9h ;259b ; if(l1 == 0x78) goto m1; ld l,(iy+1) ;259e ; ld h,(iy+2) ;25a1 ; push hl ;25a4 ; call sub_2569h ;25a5 ; sub_2569h(st-m1.s[0]); pop bc ;25a8 ; ld e,(ix-1) ;l1 ;25a9 ; ld d,0 ;25ac ; ld hl,0ffc4h ;-60 ;25ae ; add hl,de ;25b1 ; add hl,hl ;25b2 ; add hl,hl ;25b3 ; add hl,hl ;25b4 ; ld de,l9275h ;25b5 ; add hl,de ;25b8 ; bit 1,(hl) ;25b9 ; jp z,l25c9h ;25bb ; if(bittst(*(l9275h + (l1-60)*8), 1) == 0) goto m1; ld l,(iy+3) ;25be ; ld h,(iy+4) ;25c1 ; push hl ;25c4 ; call sub_2569h ;25c5 ; sub_2569h(st-m1.s[1]); pop bc ;25c8 ; l25c9h: ; m1: ld de,__Hbss ;25c9 ; push iy ;25cc ; pop hl ;25ce ; call wrelop ;25cf ; jp c,cret ;25d2 ; if(st > __Hbss) return; ld a,(ix-1) ;l1 ;25d5 ; cp 07fh ;25d8 ; jp nz,l25e7h ;25da ; if(l1 != 0x78) goto m2; ld l,(iy+1) ;25dd ; ld h,(iy+2) ;25e0 ; push hl ;25e3 ; call free ;25e4 ; free(st-m1.s[0]); l25e7h: ; m2: ld hl,(word_9d35) ;25e7 ; ld (iy+1),l ;25ea ; ld (iy+2),h ;25ed ; st-m1.s[0] = word_9d35; ld (word_9d35),iy ;25f0 ; word_9d35 = st; jp cret ;25f4 ; } ; =============== F U N C T I O N ======================================= ; 55 ++ ; sub_25f7h: ; struct st_13 * sub_25f7h(register struct st_13 * st) { call csv ;25f7 ; ld l,(ix+6) ;25fa ; ld h,(ix+7) ;25fd ; push hl ;2600 ; pop iy st ;2601 ; ld a,l ;2603 ; or h ;2604 ; jp z,l266bh ;2605 ; if(st == 0) goto m4; ld de,__Hbss ;2608 ; push iy ;260b ; pop hl ;260d ; call wrelop ;260e ; ld a,(iy+0) ;2611 ; jp c,l2631h ;2614 ; if(st < __Hbss) goto m2; cp 074h ;2617 ; jp nz,l262eh ;2619 ; if(st->m0 != 0x74) goto m1; ld de,00001h ;261c ; ld hl,00000h ;261f ; push hl ;2622 ; push de ;2623 ; push iy ;2624 ; pop hl ;2626 ; inc hl ;2627 ; call asaladd ;2628 ; st->m1.ul += 1; jp l266bh ;262b ; goto m4; l262eh: ; m1: ld a,(iy+0) ;262e ; l2631h: ; m2: cp 055h ;2631 ; jp nz,l264ah ;2633 ; if(st->m0 != 0x55) goto m3; ld l,(iy+3) ;2636 ; ld h,(iy+4) ;2639 ; push hl ;263c ; call sub_25f7h ;263d ; pop bc ;2640 ; ld (iy+3),l ;2641 ; ld (iy+4),h ;2644 ; st->m1.s[1] = sub_25f7h(st->m1.s[1]); jp l266bh ;2647 ; goto m4; l264ah: ; m3: ld hl,00008h ;264a ; push hl ;264d ; ld de,00001h ;264e ; ld hl,00000h ;2651 ; push hl ;2654 ; push de ;2655 ; call sub_1b4bh ;2656 ; pop bc ;2659 ; pop bc ;265a ; ex (sp),hl ;265b ; push iy ;\2 ;265c ; ld hl,00055h ;265e ; push hl ;\1 ;2661 ; call sub_1441h ;2662 ; pop bc ;2665 ; pop bc ;2666 ; pop bc ;2667 ; push hl ;2668 ; pop iy ;2669 ; st = sub_1441h(0x55, st, sub_1b4bh(1, 8)); l266bh: ; m4: push iy ;266b ; pop hl ;266d ; return st; jp cret ;266e ; } ; =============== F U N C T I O N ======================================= ; 56 ; ; ; proc_62() { sub_2671h: ; register char *reg1 ; call ncsv ;2671 ; register char *reg2 ; defw 0ffcbh ;2674 ; char loc0; ld a,(byte_9def) ;2676 or a ;2679 jp z,l2764h ;267a ld (ix-3),a ;267d xor a ;2680 ld (byte_9def),a ;2681 ld a,(ix-3) ;2684 cp 073h ;2687 jr nz,l269ch ;2689 ld a,(byte_8f86) ;268b or a ;268e jr z,l269ch ;268f ld hl,09dcfh ;2691 push hl ;2694 call sub_4e90h ;2695 pop bc ;2698 ld (word_9dcb),hl ;2699 l269ch: ; m1: ld l,(ix-3) ;269c jp cret ;269f l26a2h: ; m2: ld e,(ix-2) ;26a2 ld d,(ix-1) ;26a5 ld hl,array_8ab6 ;26a8 add hl,de ;26ab bit 2,(hl) ;26ac ld l,e ;26ae ld h,d ;26af jr z,l26bah ;26b0 l26b2h: ; m3: push hl ;26b2 call sub_2cc3h ;26b3 l26b6h: ; m4: pop bc ;26b6 jp cret ;26b7 l26bah: ; m5: ld a,h ;26ba cp 0ffh ;26bb jr nz,l26c5h ;26bd ld a,l ;26bf cp 0ffh ;26c0 jp z,l278dh ;26c2 l26c5h: ; m6: ld a,h ;26c5 or a ;26c6 jp nz,l2752h ;26c7 ld a,l ;26ca cp 021h ;26cb jp z,l2c1bh ;26cd cp 022h ;26d0 jp z,l28f7h ;26d2 cp 023h ;26d5 jp z,l2792h ;26d7 cp 025h ;26da jp z,l2a7dh ;26dc cp 026h ;26df jp z,l2aa1h ;26e1 cp 027h ;26e4 jp z,l2904h ;26e6 cp 028h ;26e9 jp z,l2c44h ;26eb cp 029h ;26ee jp z,l2c49h ;26f0 cp 02ah ;26f3 jp z,l2a35h ;26f5 cp 02bh ;26f8 jp z,l299ch ;26fa cp 02ch ;26fd jp z,l2cbeh ;26ff cp 02dh ;2702 jp z,l29dfh ;2704 cp 02eh ;2707 jp z,l2c62h ;2709 cp 02fh ;270c jp z,l2a59h ;270e cp 03ah ;2711 jp z,l2997h ;2713 cp 03bh ;2716 jp z,l2992h ;2718 cp 03ch ;271b jp z,l2b4bh ;271d cp 03dh ;2720 jp z,l2bf7h ;2722 cp 03eh ;2725 jp z,l2ba1h ;2727 cp 03fh ;272a jp z,l2cb9h ;272c cp 05bh ;272f jp z,l2c4eh ;2731 cp 05dh ;2734 jp z,l2c53h ;2736 cp 05eh ;2739 jp z,l2b27h ;273b cp 07bh ;273e jp z,l2c58h ;2740 cp 07ch ;2743 jp z,l2ae4h ;2745 cp 07dh ;2748 jp z,l2c5dh ;274a cp 07eh ;274d jp z,l2c3fh ;274f l2752h: ; m7: ld l,(ix-2) ;2752 ld h,(ix-1) ;2755 push hl ;2758 push hl ;2759 ld hl,l9112h ;275a ; "illegal character (0%o)" push hl ;275d ; call prerror ;275e ; prerror(); pop bc ;2761 ; pop bc ;2762 ; pop bc ;2763 ; l2764h: ; m8: call sub_347ah ;2764 ld (ix-2),l ;2767 ld (ix-1),h ;276a ld hl,(09da1h) ;276d ld (09df3h),hl ;2770 ld e,(ix-2) ;2773 ld d,(ix-1) ;2776 ld hl,array_8ab6 ;2779 add hl,de ;277c ld a,(hl) ;277d and 003h ;277e or a ;2780 jp z,l26a2h ;2781 ld l,e ;2784 ld h,d ;2785 push hl ;2786 call sub_2f75h ;2787 jp l26b6h ;278a l278dh: ; m9: ld l,001h ;278d jp cret ;278f l2792h: ; m10: call sub_320dh ;2792 ld (ix-2),l ;2795 ld (ix-1),h ;2798 ex de,hl ;279b ld hl,array_8ab6 ;279c add hl,de ;279f bit 4,(hl) ;27a0 jr z,l27b2h ;27a2 ld de,0000ah ;27a4 ld l,(ix-2) ;27a7 ld h,(ix-1) ;27aa or a ;27ad sbc hl,de ;27ae jr nz,l2792h ;27b0 l27b2h: ; m11: ld e,(ix-2) ;27b2 ld d,(ix-1) ;27b5 ld hl,array_8ab6 ;27b8 add hl,de ;27bb bit 2,(hl) ;27bc jp z,l2886h ;27be ld l,e ;27c1 ld h,d ;27c2 push hl ;27c3 call sub_2cc3h ;27c4 pop bc ;27c7 ld a,l ;27c8 cp 074h ;27c9 jp nz,l2886h ;27cb ld de,(word_9dcb) ;27ce ld hl,(word_9dcd) ;27d2 ex de,hl ;27d5 ld bc,-1 ;27d6 add hl,bc ;27d9 ex de,hl ;27da ld (word_a07f),de ;27db l27dfh: ; m12: call sub_320dh ;27df ld (ix-2),l ;27e2 ld (ix-1),h ;27e5 ex de,hl ;27e8 ld hl,array_8ab6 ;27e9 add hl,de ;27ec bit 4,(hl) ;27ed jr z,l27ffh ;27ef ld de,0000ah ;27f1 ld l,(ix-2) ;27f4 ld h,(ix-1) ;27f7 or a ;27fa sbc hl,de ;27fb jr nz,l27dfh ;27fd l27ffh: ; m13: ld de,00022h ;27ff ld l,(ix-2) ;2802 ld h,(ix-1) ;2805 or a ;2808 sbc hl,de ;2809 jp nz,l2764h ;280b push ix ;280e pop de ;2810 ld hl,0ffcbh ;2811 add hl,de ;2814 push hl ;2815 pop iy ;2816 jr l2822h ;2818 l281ah: ; m14: ld a,(ix-2) ;281a ld (iy+0),a ;281d inc iy ;2820 l2822h: ; m15: call sub_320dh ;2822 ld (ix-2),l ;2825 ld (ix-1),h ;2828 ld de,00022h ;282b or a ;282e sbc hl,de ;282f jr z,l2841h ;2831 ld de,0000ah ;2833 ld l,(ix-2) ;2836 ld h,(ix-1) ;2839 or a ;283c sbc hl,de ;283d jr nz,l281ah ;283f l2841h: ; m16: ld (iy+0),0 ;2841 ld a,(ix-035h) ;2845 or a ;2848 jr z,l285eh ;2849 push ix ;284b pop de ;284d ld hl,0ffcbh ;284e add hl,de ;2851 l2852h: ; m17: push hl ;2852 ld hl,array_a017 ;2853 push hl ;2856 call strcpy ;2857 pop bc ;285a pop bc ;285b jr l2869h ;285c l285eh: ; m18: ld hl,(word_a081) ;285e ld a,l ;2861 or h ;2862 jr nz,l2852h ;2863 xor a ;2865 ld (array_a017),a ;2866 l2869h: ; m19: ld hl,(word_9ff7) ;2869 ld a,l ;286c or h ;286d jp z,l2764h ;286e ld hl,array_a017 ;2871 push hl ;2874 ld hl,l90b9h ;2875 "~%s\n" push hl ;2878 ld hl,(word_9ff7) ;2879 push hl ;287c call _fprintf ;287d ; fprintf(); pop bc ;2880 ; pop bc ;2881 ; pop bc ;2882 ; jp l2764h ;2883 l2886h: ; m20: push ix ;2886 pop de ;2888 ld hl,0ffcbh ;2889 add hl,de ;288c push hl ;288d pop iy ;288e l2890h: ; m21: ld a,(ix-2) ;2890 ld (iy+0),a ;2893 inc iy ;2896 call sub_320dh ;2898 ld (ix-2),l ;289b ld (ix-1),h ;289e ld de,0000ah ;28a1 or a ;28a4 sbc hl,de ;28a5 jr z,l28b7h ;28a7 ld e,(ix-2) ;28a9 ld d,(ix-1) ;28ac ld hl,array_8ab6 ;28af add hl,de ;28b2 bit 4,(hl) ;28b3 jr z,l2890h ;28b5 l28b7h: ; m22: ld (iy+0),0 ;28b7 jr l28c6h ;28bb l28bdh: ; m23: call sub_320dh ;28bd ld (ix-2),l ;28c0 ld (ix-1),h ;28c3 l28c6h: ; m24: ld de,0000ah ;28c6 ld l,(ix-2) ;28c9 ld h,(ix-1) ;28cc or a ;28cf sbc hl,de ;28d0 jr nz,l28bdh ;28d2 ld hl,l90beh ;28d4 "asm" push hl ;28d7 push ix ;28d8 pop de ;28da ld hl,0ffcbh ;28db add hl,de ;28de push hl ;28df call strcmp ;28e0 ; pop bc ;28e3 pop bc ;28e4 ld a,l ;28e5 or h ;28e6 jr nz,l28efh ;28e7 call sub_308bh ;28e9 jp l2764h ;28ec l28efh: ; m25: ld hl,l90c2h ;28ef ; push hl ;28f2 ; call fatalerror ;28f3 ; fatalerror("illegal '#' directive"); pop bc ;28f6 ; l28f7h: ; m26: ld hl,00022h ;28f7 push hl ;28fa call sub_310bh ;28fb pop bc ;28fe ld l,076h ;28ff jp cret ;2901 l2904h: ; m27: call sub_320dh ;2904 ld (ix-2),l ;2907 ld (ix-1),h ;290a ld de,0005ch ;290d or a ;2910 sbc hl,de ;2911 jr z,l291dh ;2913 ld l,(ix-2) ;2915 ld h,(ix-1) ;2918 jr l2929h ;291b l291dh: ; m28: call sub_320dh ;291d push hl ;2920 call sub_3495h ;2921 pop bc ;2924 ld a,l ;2925 rla ;2926 sbc a,a ;2927 ld h,a ;2928 l2929h: ; m29: ex de,hl ;2929 ld a,d ;292a rla ;292b sbc a,a ;292c ld l,a ;292d ld h,a ;292e ld (word_9dcb),de ;292f ld (word_9dcd),hl ;2933 call sub_320dh ;2936 ld (ix-2),l ;2939 ld (ix-1),h ;293c ld de,0000ah ;293f or a ;2942 sbc hl,de ;2943 jr nz,l2951h ;2945 ld hl,l90d8h ;2947 ; push hl ;294a ; call errexpected ;294b ; errexpected("closing quote"); l294eh: ; m30: pop bc ;294e jr l2971h ;294f l2951h: ; m31: ld de,00027h ;2951 ld l,(ix-2) ;2954 ld h,(ix-1) ;2957 or a ;295a sbc hl,de ;295b jr z,l2971h ;295d ld hl,l90e6h ;295f ; push hl ;2962 ; call prerror ;2963 ; prerror("char const too long"); jr l294eh ;2966 l2968h: ; m32: call sub_320dh ;2968 ld (ix-2),l ;296b ld (ix-1),h ;296e l2971h: ; m33: ld de,0000ah ;2971 ld l,(ix-2) ;2974 ld h,(ix-1) ;2977 or a ;297a sbc hl,de ;297b jr z,l298dh ;297d ld de,00027h ;297f ld l,(ix-2) ;2982 ld h,(ix-1) ;2985 or a ;2988 sbc hl,de ;2989 jr nz,l2968h ;298b l298dh: ; m34: ld l,074h ;298d jp cret ;298f l2992h: ; m35: ld l,002h ;2992 jp cret ;2994 l2997h: ; m36: ld l,063h ;2997 jp cret ;2999 l299ch: ; m37: call sub_320dh ;299c ld (ix-2),l ;299f ld (ix-1),h ;29a2 ld de,0002bh ;29a5 or a ;29a8 sbc hl,de ;29a9 jr nz,l29b2h ;29ab ld l,04ah ;29ad jp cret ;29af l29b2h: ; m38: ld l,(ix-2) ;29b2 ld h,(ix-1) ;29b5 ld (word_9df5),hl ;29b8 call sub_347ah ;29bb ld (ix-2),l ;29be ld (ix-1),h ;29c1 ld de,0003dh ;29c4 or a ;29c7 sbc hl,de ;29c8 jr nz,l29d1h ;29ca ld l,065h ;29cc jp cret ;29ce l29d1h: ; m39: ld l,(ix-2) ;29d1 ld h,(ix-1) ;29d4 ld (word_9df5),hl ;29d7 ld l,055h ;29da jp cret ;29dc l29dfh: ; m40: call sub_320dh ;29df ld (ix-2),l ;29e2 ld (ix-1),h ;29e5 ld de,0002dh ;29e8 or a ;29eb sbc hl,de ;29ec jr nz,l29f5h ;29ee ld l,04ch ;29f0 jp cret ;29f2 l29f5h: ; m41: ld de,0003eh ;29f5 ld l,(ix-2) ;29f8 ld h,(ix-1) ;29fb or a ;29fe sbc hl,de ;29ff jr nz,l2a08h ;2a01 ld l,044h ;2a03 jp cret ;2a05 l2a08h: ; m42: ld l,(ix-2) ;2a08 ld h,(ix-1) ;2a0b ld (word_9df5),hl ;2a0e call sub_347ah ;2a11 ld (ix-2),l ;2a14 ld (ix-1),h ;2a17 ld de,0003dh ;2a1a or a ;2a1d sbc hl,de ;2a1e jr nz,l2a27h ;2a20 ld l,067h ;2a22 jp cret ;2a24 l2a27h: ; m43: ld l,(ix-2) ;2a27 ld h,(ix-1) ;2a2a ld (word_9df5),hl ;2a2d ld l,052h ;2a30 jp cret ;2a32 l2a35h: ; m44: call sub_347ah ;2a35 ld (ix-2),l ;2a38 ld (ix-1),h ;2a3b ld de,0003dh ;2a3e or a ;2a41 sbc hl,de ;2a42 jr nz,l2a4bh ;2a44 ld l,069h ;2a46 jp cret ;2a48 l2a4bh: ; m45: ld l,(ix-2) ;2a4b ld h,(ix-1) ;2a4e ld (word_9df5),hl ;2a51 ld l,050h ;2a54 jp cret ;2a56 l2a59h: ; m46: call sub_347ah ;2a59 ld (ix-2),l ;2a5c ld (ix-1),h ;2a5f ld de,0003dh ;2a62 or a ;2a65 sbc hl,de ;2a66 jr nz,l2a6fh ;2a68 ld l,06ah ;2a6a jp cret ;2a6c l2a6fh: ; m47: ld l,(ix-2) ;2a6f ld h,(ix-1) ;2a72 ld (word_9df5),hl ;2a75 ld l,053h ;2a78 jp cret ;2a7a l2a7dh: ; m48: call sub_347ah ;2a7d ld (ix-2),l ;2a80 ld (ix-1),h ;2a83 ld de,0003dh ;2a86 or a ;2a89 sbc hl,de ;2a8a jr nz,l2a93h ;2a8c ld l,06bh ;2a8e jp cret ;2a90 l2a93h: ; m49: ld l,(ix-2) ;2a93 ld h,(ix-1) ;2a96 ld (word_9df5),hl ;2a99 ld l,054h ;2a9c jp cret ;2a9e l2aa1h: ; m50: call sub_320dh ;2aa1 ld (ix-2),l ;2aa4 ld (ix-1),h ;2aa7 ld de,00026h ;2aaa or a ;2aad sbc hl,de ;2aae jr nz,l2ab7h ;2ab0 ld l,060h ;2ab2 jp cret ;2ab4 l2ab7h: ; m51: ld l,(ix-2) ;2ab7 ld h,(ix-1) ;2aba ld (word_9df5),hl ;2abd call sub_347ah ;2ac0 ld (ix-2),l ;2ac3 ld (ix-1),h ;2ac6 ld de,0003dh ;2ac9 or a ;2acc sbc hl,de ;2acd jr nz,l2ad6h ;2acf ld l,06eh ;2ad1 jp cret ;2ad3 l2ad6h: ; m52: ld l,(ix-2) ;2ad6 ld h,(ix-1) ;2ad9 ld (word_9df5),hl ;2adc ld l,051h ;2adf jp cret ;2ae1 l2ae4h: ; m53: call sub_320dh ;2ae4 ld (ix-2),l ;2ae7 ld (ix-1),h ;2aea ld de,0007ch ;2aed or a ;2af0 sbc hl,de ;2af1 jr nz,l2afah ;2af3 ld l,061h ;2af5 jp cret ;2af7 l2afah: ; m54: ld l,(ix-2) ;2afa ld h,(ix-1) ;2afd ld (word_9df5),hl ;2b00 call sub_347ah ;2b03 ld (ix-2),l ;2b06 ld (ix-1),h ;2b09 ld de,0003dh ;2b0c or a ;2b0f sbc hl,de ;2b10 jr nz,l2b19h ;2b12 ld l,070h ;2b14 jp cret ;2b16 l2b19h: ; m55: ld l,(ix-2) ;2b19 ld h,(ix-1) ;2b1c ld (word_9df5),hl ;2b1f ld l,05fh ;2b22 jp cret ;2b24 l2b27h: ; m56: call sub_347ah ;2b27 ld (ix-2),l ;2b2a ld (ix-1),h ;2b2d ld de,0003dh ;2b30 or a ;2b33 sbc hl,de ;2b34 jr nz,l2b3dh ;2b36 ld l,06fh ;2b38 jp cret ;2b3a l2b3dh: ; m57: ld l,(ix-2) ;2b3d ld h,(ix-1) ;2b40 ld (word_9df5),hl ;2b43 ld l,05eh ;2b46 jp cret ;2b48 l2b4bh: ; m58: call sub_320dh ;2b4b ld (ix-2),l ;2b4e ld (ix-1),h ;2b51 ld de,0003ch ;2b54 or a ;2b57 sbc hl,de ;2b58 jr nz,l2b80h ;2b5a call sub_347ah ;2b5c ld (ix-2),l ;2b5f ld (ix-1),h ;2b62 ld de,0003dh ;2b65 or a ;2b68 sbc hl,de ;2b69 jr nz,l2b72h ;2b6b ld l,06dh ;2b6d jp cret ;2b6f l2b72h: ; m59: ld l,(ix-2) ;2b72 ld h,(ix-1) ;2b75 ld (word_9df5),hl ;2b78 ld l,057h ;2b7b jp cret ;2b7d l2b80h: ; m60: ld de,0003dh ;2b80 ld l,(ix-2) ;2b83 ld h,(ix-1) ;2b86 or a ;2b89 sbc hl,de ;2b8a jr nz,l2b93h ;2b8c ld l,05ah ;2b8e jp cret ;2b90 l2b93h: ; m61: ld l,(ix-2) ;2b93 ld h,(ix-1) ;2b96 ld (word_9df5),hl ;2b99 ld l,058h ;2b9c jp cret ;2b9e l2ba1h: ; m62: call sub_320dh ;2ba1 ld (ix-2),l ;2ba4 ld (ix-1),h ;2ba7 ld de,0003eh ;2baa or a ;2bad sbc hl,de ;2bae jr nz,l2bd6h ;2bb0 call sub_347ah ;2bb2 ld (ix-2),l ;2bb5 ld (ix-1),h ;2bb8 ld de,0003dh ;2bbb or a ;2bbe sbc hl,de ;2bbf jr nz,l2bc8h ;2bc1 ld l,06ch ;2bc3 jp cret ;2bc5 l2bc8h: ; m63: ld l,(ix-2) ;2bc8 ld h,(ix-1) ;2bcb ld (word_9df5),hl ;2bce ld l,056h ;2bd1 jp cret ;2bd3 l2bd6h: ; m64: ld de,0003dh ;2bd6 ld l,(ix-2) ;2bd9 ld h,(ix-1) ;2bdc or a ;2bdf sbc hl,de ;2be0 jr nz,l2be9h ;2be2 ld l,05bh ;2be4 jp cret ;2be6 l2be9h: ; m65: ld l,(ix-2) ;2be9 ld h,(ix-1) ;2bec ld (word_9df5),hl ;2bef ld l,059h ;2bf2 jp cret ;2bf4 l2bf7h: ; m66: call sub_320dh ;2bf7 ld (ix-2),l ;2bfa ld (ix-1),h ;2bfd ld de,0003dh ;2c00 or a ;2c03 sbc hl,de ;2c04 jr nz,l2c0dh ;2c06 ld l,05ch ;2c08 jp cret ;2c0a l2c0dh: ; m67: ld l,(ix-2) ;2c0d ld h,(ix-1) ;2c10 ld (word_9df5),hl ;2c13 ld l,064h ;2c16 jp cret ;2c18 l2c1bh: ; m68: call sub_320dh ;2c1b ld (ix-2),l ;2c1e ld (ix-1),h ;2c21 ld de,0003dh ;2c24 or a ;2c27 sbc hl,de ;2c28 jr nz,l2c31h ;2c2a ld l,05dh ;2c2c jp cret ;2c2e l2c31h: ; m69: ld l,(ix-2) ;2c31 ld h,(ix-1) ;2c34 ld (word_9df5),hl ;2c37 ld l,048h ;2c3a jp cret ;2c3c l2c3fh: ; m70: ld l,049h ;2c3f jp cret ;2c41 l2c44h: ; m71: ld l,03eh ;2c44 jp cret ;2c46 l2c49h: ; m72: ld l,03fh ;2c49 jp cret ;2c4b l2c4eh: ; m73: ld l,041h ;2c4e jp cret ;2c50 l2c53h: ; m74: ld l,042h ;2c53 jp cret ;2c55 l2c58h: ; m75: ld l,004h ;2c58 jp cret ;2c5a l2c5dh: ; m76: ld l,003h ;2c5d jp cret ;2c5f l2c62h: ; m77: call sub_320dh ;2c62 ld (ix-2),l ;2c65 ld (ix-1),h ;2c68 ex de,hl ;2c6b ld hl,array_8ab6 ;2c6c add hl,de ;2c6f bit 2,(hl) ;2c70 jr z,l2c7fh ;2c72 ld l,e ;2c74 ld h,d ;2c75 ld (word_9df5),hl ;2c76 ld hl,0002eh ;2c79 jp l26b2h ;2c7c l2c7fh: ; m78: ld de,0002eh ;2c7f ld l,(ix-2) ;2c82 ld h,(ix-1) ;2c85 or a ;2c88 sbc hl,de ;2c89 jr nz,l2cabh ;2c8b call sub_320dh ;2c8d ld (ix-2),l ;2c90 ld (ix-1),h ;2c93 ld de,0002eh ;2c96 or a ;2c99 sbc hl,de ;2c9a jr z,l2ca6h ;2c9c ld hl,l90fah ;2c9e ; push hl ;2ca1 ; call prerror ;2ca2 ; prerror("'.' expected after '..'"); pop bc ;2ca5 ; l2ca6h: ; m79: ld l,00dh ;2ca6 jp cret ;2ca8 l2cabh: ; m80: ld l,(ix-2) ;2cab ld h,(ix-1) ;2cae ld (word_9df5),hl ;2cb1 ld l,043h ;2cb4 jp cret ;2cb6 l2cb9h: ; m81: ld l,062h ;2cb9 jp cret ;2cbb l2cbeh: ; m82: ld l,071h ;2cbe jp cret ;2cc0 ; =============== F U N C T I O N ======================================= ; 57 proc_63(int arg0) ; ;register char * reg1 ; sub_2cc3h: ;register char * reg2 ; call ncsv ;2cc3 ; char loc0; defw 0ffc8h ;2cc6 ; char loc1[50]; push ix ;2cc8 ; char loc2; pop de ;2cca ; int loc3; ld hl,0ffc9h ;2ccb ; int loc4; add hl,de ;2cce ; reg1 = arg0; push hl ;2ccf ; pop iy ;2cd0 ; jr l2ce5h ;2cd2 l2cd4h: ; m1: ld a,(ix+6) ;2cd4 ld (iy+0),a ;2cd7 inc iy ;2cda call sub_320dh ;2cdc ld (ix+6),l ;2cdf ld (ix+7),h ;2ce2 l2ce5h: ; m2: ld e,(ix+6) ;2ce5 ld d,(ix+7) ;2ce8 ld hl,array_8ab6 ;2ceb add hl,de ;2cee bit 2,(hl) ;2cef jr nz,l2cd4h ;2cf1 ld de,0002eh ;2cf3 ld l,(ix+6) ;2cf6 ld h,(ix+7) ;2cf9 or a ;2cfc sbc hl,de ;2cfd jr z,l2d1eh ;2cff ld de,00065h ;2d01 ld l,(ix+6) ;2d04 ld h,(ix+7) ;2d07 or a ;2d0a sbc hl,de ;2d0b jr z,l2d1eh ;2d0d ld de,00045h ;2d0f ld l,(ix+6) ;2d12 ld h,(ix+7) ;2d15 or a ;2d18 sbc hl,de ;2d19 jp nz,l2e2ch ;2d1b l2d1eh: ; m3: ld de,0002eh ;2d1e ld l,(ix+6) ;2d21 ld h,(ix+7) ;2d24 or a ;2d27 sbc hl,de ;2d28 jr nz,l2d46h ;2d2a l2d2ch: ; m4: ld a,(ix+6) ;2d2c ld (iy+0),a ;2d2f inc iy ;2d32 call sub_320dh ;2d34 ex de,hl ;2d37 ld (ix+6),e ;2d38 ld (ix+7),d ;2d3b ld hl,array_8ab6 ;2d3e add hl,de ;2d41 bit 2,(hl) ;2d42 jr nz,l2d2ch ;2d44 l2d46h: ; m5: ld de,00065h ;2d46 ld l,(ix+6) ;2d49 ld h,(ix+7) ;2d4c or a ;2d4f sbc hl,de ;2d50 jr z,l2d63h ;2d52 ld de,00045h ;2d54 ld l,(ix+6) ;2d57 ld h,(ix+7) ;2d5a or a ;2d5d sbc hl,de ;2d5e jp nz,l2dcbh ;2d60 l2d63h: ; m6: ld (iy+0),065h ;2d63 inc iy ;2d67 call sub_320dh ;2d69 ld (ix+6),l ;2d6c ld (ix+7),h ;2d6f ld de,0002bh ;2d72 or a ;2d75 sbc hl,de ;2d76 jr z,l2d88h ;2d78 ld de,0002dh ;2d7a ld l,(ix+6) ;2d7d ld h,(ix+7) ;2d80 or a ;2d83 sbc hl,de ;2d84 jr nz,l2d99h ;2d86 l2d88h: ; m7: ld a,(ix+6) ;2d88 ld (iy+0),a ;2d8b inc iy ;2d8e call sub_320dh ;2d90 ld (ix+6),l ;2d93 ld (ix+7),h ;2d96 l2d99h: ; m8: ld e,(ix+6) ;2d99 ld d,(ix+7) ;2d9c ld hl,array_8ab6 ;2d9f add hl,de ;2da2 bit 2,(hl) ;2da3 jr z,l2dc3h ;2da5 l2da7h: ; m9: ld a,(ix+6) ;2da7 ld (iy+0),a ;2daa inc iy ;2dad call sub_320dh ;2daf ex de,hl ;2db2 ld (ix+6),e ;2db3 ld (ix+7),d ;2db6 ld hl,array_8ab6 ;2db9 add hl,de ;2dbc bit 2,(hl) ;2dbd jr nz,l2da7h ;2dbf jr l2dcbh ;2dc1 l2dc3h: ; m10: ld hl,l912ah ;2dc3 ; push hl ;2dc6 ; call prerror ;2dc7 ; prerror("exponent expected"); pop bc ;2dca ; l2dcbh: ; m11: ld l,(ix+6) ;2dcb ld h,(ix+7) ;2dce ld (word_9df5),hl ;2dd1 ld (iy+0),0 ;2dd4 inc iy ;2dd8 ld a,(ix-037h) ;2dda cp 02eh ;2ddd jr nz,l2de3h ;2ddf inc iy ;2de1 l2de3h: ; m12: push ix ;2de3 pop de ;2de5 ld hl,0ffc9h ;2de6 add hl,de ;2de9 ex de,hl ;2dea push iy ;2deb pop hl ;2ded or a ;2dee sbc hl,de ;2def push hl ;2df1 call allocmem ;2df2 pop bc ;2df5 ld (word_9dcb),hl ;2df6 ld a,(ix-037h) ;2df9 cp 02eh ;2dfc push ix ;2dfe pop de ;2e00 ld hl,0ffc9h ;2e01 jr nz,l2e1ch ;2e04 add hl,de ;2e06 push hl ;2e07 ld hl,l913ch ;2e08 "0" push hl ;2e0b ld hl,(word_9dcb) ;2e0c push hl ;2e0f call strcpy ;2e10 ; pop bc ;2e13 ex (sp),hl ;2e14 call strcat ;2e15 ; pop bc ;2e18 pop bc ;2e19 jr l2e27h ;2e1a l2e1ch: ; m13: add hl,de ;2e1c push hl ;2e1d ld hl,(word_9dcb) ;2e1e push hl ;2e21 call strcpy ;2e22 ; pop bc ;2e25 pop bc ;2e26 l2e27h: ; m14: ld l,07fh ;2e27 jp cret ;2e29 l2e2ch: ; m15: ld (ix-5),00ah ;2e2c ld de,00078h ;2e30 ld l,(ix+6) ;2e33 ld h,(ix+7) ;2e36 or a ;2e39 sbc hl,de ;2e3a jr z,l2e54h ;2e3c ld de,00058h ;2e3e ld l,(ix+6) ;2e41 ld h,(ix+7) ;2e44 or a ;2e47 sbc hl,de ;2e48 ld a,(ix-037h) ;2e4a jp nz,l2e9ah ;2e4d cp 030h ;2e50 jr nz,l2e97h ;2e52 l2e54h: ; m16: ld (ix-5),010h ;2e54 push ix ;2e58 pop de ;2e5a ld hl,0ffc9h ;2e5b add hl,de ;2e5e push hl ;2e5f pop iy ;2e60 jr l2e6ch ;2e62 l2e64h: ; m17: ld a,(ix+6) ;2e64 ld (iy+0),a ;2e67 inc iy ;2e6a l2e6ch: ; m18: call sub_320dh ;2e6c ex de,hl ;2e6f ld (ix+6),e ;2e70 ld (ix+7),d ;2e73 ld hl,array_8ab6 ;2e76 add hl,de ;2e79 bit 3,(hl) ;2e7a jr nz,l2e64h ;2e7c push ix ;2e7e pop de ;2e80 ld hl,0ffc9h ;2e81 add hl,de ;2e84 push iy ;2e85 pop de ;2e87 or a ;2e88 sbc hl,de ;2e89 jr nz,l2ea2h ;2e8b ld hl,l913eh ;2e8d ; push hl ;2e90 ; call prerror ;2e91 ; prerror("hex digit expected"); pop bc ;2e94 ; jr l2ea2h ;2e95 l2e97h: ; m19: ld a,(ix-037h) ;2e97 l2e9ah: ; m20: cp 030h ;2e9a jr nz,l2ea2h ;2e9c ld (ix-5),008h ;2e9e l2ea2h: ; m21: ld (ix-4),0 ;2ea2 ld (ix-3),0 ;2ea6 ld (ix-2),0 ;2eaa ld (ix-1),0 ;2eae ld (iy+0),0 ;2eb2 push ix ;2eb6 pop de ;2eb8 ld hl,0ffc9h ;2eb9 add hl,de ;2ebc push hl ;2ebd pop iy ;2ebe jp l2f2dh ;2ec0 l2ec3h: ; m22: ld b,041h ;2ec3 ld a,(iy+0) ;2ec5 call brelop ;2ec8 ld a,(iy+0) ;2ecb jp m,l2edch ;2ece or 020h ;2ed1 add a,0a9h ;2ed3 ld (ix-038h),a ;2ed5 inc iy ;2ed8 jr l2ee3h ;2eda l2edch: ; m23: add a,0d0h ;2edc ld (ix-038h),a ;2ede inc iy ;2ee1 l2ee3h: ; m24: ld e,(ix-5) ;2ee3 ld d,0 ;2ee6 ld l,(ix-038h) ;2ee8 ld h,d ;2eeb call wrelop ;2eec jr c,l2efbh ;2eef ld hl,l9151h ;2ef1 ; push hl ;2ef4 ; call prerror ;2ef5 ; prerror("digit out of range"); pop bc ;2ef8 ; jr l2f33h ;2ef9 l2efbh: ; m25: ld a,(ix-038h) ;2efb ld hl,00000h ;2efe ld d,l ;2f01 ld e,a ;2f02 push hl ;2f03 push de ;2f04 ld e,(ix-4) ;2f05 ld d,(ix-3) ;2f08 ld l,(ix-2) ;2f0b ld h,(ix-1) ;2f0e push hl ;2f11 push de ;2f12 ld a,(ix-5) ;2f13 ld hl,00000h ;2f16 ld d,l ;2f19 ld e,a ;2f1a call almul ;2f1b call aladd ;2f1e ld (ix-4),e ;2f21 ld (ix-3),d ;2f24 ld (ix-2),l ;2f27 ld (ix-1),h ;2f2a l2f2dh: ; m26: ld a,(iy+0) ;2f2d or a ;2f30 jr nz,l2ec3h ;2f31 l2f33h: ; m27: ld e,(ix-4) ;2f33 ld d,(ix-3) ;2f36 ld l,(ix-2) ;2f39 ld h,(ix-1) ;2f3c ld (word_9dcb),de ;2f3f ld (word_9dcd),hl ;2f43 ld de,0006ch ;2f46 ld l,(ix+6) ;2f49 ld h,(ix+7) ;2f4c or a ;2f4f sbc hl,de ;2f50 jr z,l2f62h ;2f52 ld de,0004ch ;2f54 ld l,(ix+6) ;2f57 ld h,(ix+7) ;2f5a or a ;2f5d sbc hl,de ;2f5e jr nz,l2f67h ;2f60 l2f62h: ; m28: ld l,075h ;2f62 jp cret ;2f64 l2f67h: ; m29: ld l,(ix+6) ;2f67 ld h,(ix+7) ;2f6a ld (word_9df5),hl ;2f6d ld l,074h ;2f70 jp cret ;2f72 ; =============== F U N C T I O N ======================================= ; 58 ; sub_2f75h: call ncsv ;2f75 defw 0fff9h ;2f78 ld iy,09dcfh ;2f7a ld (ix-2),0 ;2f7e ld (ix-1),0 ;2f82 l2f86h: ; m1: ld de,0001fh ;2f86 ld l,(ix-2) ;2f89 ld h,(ix-1) ;2f8c or a ;2f8f sbc hl,de ;2f90 jr z,l2fa9h ;2f92 ld a,(ix+6) ;2f94 ld (iy+0),a ;2f97 inc iy ;2f9a ld l,(ix-2) ;2f9c ld h,(ix-1) ;2f9f inc hl ;2fa2 ld (ix-2),l ;2fa3 ld (ix-1),h ;2fa6 l2fa9h: ; m2: call sub_320dh ;2fa9 ld (ix+6),l ;2fac ld a,l ;2faf ld e,a ;2fb0 rla ;2fb1 sbc a,a ;2fb2 ld d,a ;2fb3 ld hl,array_8ab6 ;2fb4 add hl,de ;2fb7 ld a,(hl) ;2fb8 and 007h ;2fb9 or a ;2fbb jr nz,l2f86h ;2fbc ld a,e ;2fbe ld l,a ;2fbf rla ;2fc0 sbc a,a ;2fc1 ld h,a ;2fc2 ld (word_9df5),hl ;2fc3 ld (iy+0),0 ;2fc6 ld (ix-4),013h ;2fca ld (ix-5),031h ;2fce l2fd2h: ; m3: ld e,(ix-5) ;2fd2 ld d,0 ;2fd5 ld l,(ix-4) ;2fd7 ld h,d ;2fda add hl,de ;2fdb srl h ;2fdc rr l ;2fde ld (ix-3),l ;2fe0 ld e,l ;2fe3 ld hl,0ffedh ;-19 ;2fe4 add hl,de ;2fe7 add hl,hl ;2fe8 ld de,keywords ;2fe9 add hl,de ;2fec ld c,(hl) ;2fed inc hl ;2fee ld b,(hl) ;2fef push bc ;2ff0 ld hl,09dcfh ;2ff1 push hl ;2ff4 call strcmp ;2ff5 pop bc ;2ff8 pop bc ;2ff9 ex de,hl ;2ffa ld (ix-7),e ;2ffb ld (ix-6),d ;2ffe ld hl,00000h ;3001 call wrelop ;3004 jp m,l3012h ;3007 ld a,(ix-3) ;300a add a,0ffh ;300d ld (ix-5),a ;300f l3012h: ; m4: bit 7,(ix-6) ;3012 jr nz,l301fh ;3016 ld a,(ix-3) ;3018 inc a ;301b ld (ix-4),a ;301c l301fh: ; m5: ld b,(ix-4) ;301f ld a,(ix-5) ;3022 call brelop ;3025 jr nc,l2fd2h ;3028 ld e,(ix-4) ;302a ld d,0 ;302d ld hl,0ffffh ;302f add hl,de ;3032 ex de,hl ;3033 ld l,(ix-5) ;3034 call wrelop ;3037 jp nc,l307bh ;303a ld a,(ix-3) ;303d add a,0ech ;3040 ld l,a ;3042 ld h,0 ;3043 ld a,h ;3045 cp h ;3046 jr c,l3075h ;3047 jr nz,l3050h ;3049 ld a,01ch ;304b cp l ;304d jr c,l3075h ;304e l3050h: ; m6: add hl,hl ;3050 ld de,l8fc5h ;3051 add hl,de ;3054 ld a,(hl) ;3055 inc hl ;3056 ld h,(hl) ;3057 ld l,a ;3058 jp (hl) ;3059 ld a,(ix-3) ;305a ld (word_9dcb),a ;305d ld l,005h ;3060 jp cret ;3062 ld a,(ix-3) ;3065 ld (word_9dcb),a ;3068 ld l,077h ;306b jp cret ;306d ld l,04eh ;3070 jp cret ;3072 l3075h: ; m7: ld l,(ix-3) ;3075 jp cret ;3078 l307bh: ; m8: ld hl,09dcfh ;307b push hl ;307e call sub_4e90h ;307f pop bc ;3082 ld (word_9dcb),hl ;3083 ld l,073h ;3086 jp cret ;3088 ; =============== F U N C T I O N ======================================= ; 59 ; sub_308bh: call ncsv ;308b defw 0fdfeh ;308e push ix ;3090 pop de ;3092 ld hl,0fdfeh ;3093 add hl,de ;3096 push hl ;3097 pop iy ;3098 jr l30a4h ;309a l309ch: ; m1: ld a,(ix-2) ;309c ld (iy+0),a ;309f inc iy ;30a2 l30a4h: ; m2: call sub_320dh ;30a4 ld (ix-2),l ;30a7 ld (ix-1),h ;30aa ld de,0000ah ;30ad or a ;30b0 sbc hl,de ;30b1 jr z,l30c3h ;30b3 ld de,0ffffh ;30b5 ld l,(ix-2) ;30b8 ld h,(ix-1) ;30bb or a ;30be sbc hl,de ;30bf jr nz,l309ch ;30c1 l30c3h: ; m3: ld (iy+0),0 ;30c3 ld de,0ffffh ;30c7 ld l,(ix-2) ;30ca ld h,(ix-1) ;30cd or a ;30d0 sbc hl,de ;30d1 jr nz,l30ddh ;30d3 ld hl,l9164h ;30d5 ; push hl ;30d8 ; call fatalerror ;30d9 ; fatalerror("EOF in #asm"); pop bc ;30dc ; l30ddh: ; m4: ld hl,00007h ;30dd push hl ;30e0 ld hl,l9170h ;30e1 "#endasm" push hl ;30e4 push ix ;30e5 pop de ;30e7 ld hl,0fdfeh ;30e8 add hl,de ;30eb push hl ;30ec call strncmp ;30ed ; strncmp(); pop bc ;30f0 pop bc ;30f1 pop bc ;30f2 ld a,l ;30f3 or h ;30f4 jp z,cret ;30f5 push ix ;30f8 pop de ;30fa ld hl,0fdfeh ;30fb add hl,de ;30fe push hl ;30ff ld hl,l9178h ;3100 ";; %s\n" push hl ;3103 call _printf ;3104 ; printf(); pop bc ;3107 pop bc ;3108 jr data_308E_end ;3109 ; =============== F U N C T I O N ======================================= ; 60 ; sub_310bh: call ncsv ;310b defw 0fbfch ;310e push ix ;3110 pop de ;3112 ld hl,0fbfch ;3113 add hl,de ;3116 push hl ;3117 pop iy ;3118 jp l3187h ;311a l311dh: ; m1: ld de,0005ch ;311d ld l,(ix+6) ;3120 ld h,(ix+7) ;3123 or a ;3126 sbc hl,de ;3127 jr nz,l314fh ;3129 call sub_320dh ;312b ld (ix+6),l ;312e ld (ix+7),h ;3131 ld de,0000ah ;3134 or a ;3137 sbc hl,de ;3138 jr z,l3157h ;313a ld l,(ix+6) ;313c ld h,(ix+7) ;313f push hl ;3142 call sub_3495h ;3143 pop bc ;3146 ld e,l ;3147 ld (iy+0),e ;3148 inc iy ;314b jr l3157h ;314d l314fh: ; m2: ld a,(ix+6) ;314f ld (iy+0),a ;3152 inc iy ;3155 l3157h: ; m3: call sub_320dh ;3157 ld (ix+6),l ;315a ld (ix+7),h ;315d ld de,00022h ;3160 or a ;3163 sbc hl,de ;3164 jr z,l317eh ;3166 ld de,0000ah ;3168 ld l,(ix+6) ;316b ld h,(ix+7) ;316e or a ;3171 sbc hl,de ;3172 jr nz,l311dh ;3174 ld hl,l917fh ;3176 ; push hl ;3179 ; call errexpected ;317a ; errexpected("closing quote"); pop bc ;317d ; l317eh: ; m4: call sub_347ah ;317e ld (ix+6),l ;3181 ld (ix+7),h ;3184 l3187h: ; m5: ld de,00022h ;3187 ld l,(ix+6) ;318a ld h,(ix+7) ;318d or a ;3190 sbc hl,de ;3191 jr z,l3157h ;3193 ld l,(ix+6) ;3195 ld h,(ix+7) ;3198 ld (word_9df5),hl ;319b ld (iy+0),0 ;319e push ix ;31a2 pop de ;31a4 ld hl,0fbfch ;31a5 add hl,de ;31a8 ex de,hl ;31a9 push iy ;31aa pop hl ;31ac or a ;31ad sbc hl,de ;31ae ld (word_9df0),hl ;31b0 inc hl ;31b3 push hl ;31b4 call allocmem ;31b5 pop bc ;31b8 ld (ix-4),l ;31b9 ld (ix-3),h ;31bc ld (ix-2),l ;31bf ld (ix-1),h ;31c2 ld hl,(word_9df0) ;31c5 inc hl ;31c8 ld (ix+6),l ;31c9 ld (ix+7),h ;31cc push ix ;31cf pop de ;31d1 ld hl,0fbfch ;31d2 add hl,de ;31d5 push hl ;31d6 pop iy ;31d7 jr l31efh ;31d9 l31dbh: ; m6: ld a,(iy+0) ;31db ld l,(ix-2) ;31de ld h,(ix-1) ;31e1 inc hl ;31e4 ld (ix-2),l ;31e5 ld (ix-1),h ;31e8 dec hl ;31eb ld (hl),a ;31ec inc iy ;31ed l31efh: ; m7: ld l,(ix+6) ;31ef ld h,(ix+7) ;31f2 dec hl ;31f5 ld (ix+6),l ;31f6 ld (ix+7),h ;31f9 inc hl ;31fc ld a,l ;31fd or h ;31fe jr nz,l31dbh ;31ff ld l,(ix-4) ;3201 ld h,(ix-3) ;3204 ld (word_9dcb),hl ;3207 jp cret ;320a ; =============== F U N C T I O N ======================================= ; 61 ; sub_320dh: call csv ;320d push hl ;3210 ld hl,(word_9df5) ;3211 ld a,l ;3214 or h ;3215 jr z,l322dh ;3216 ld (ix-2),l ;3218 ld (ix-1),h ;321b ld hl,00000h ;321e ld (word_9df5),hl ;3221 l3224h: ; m1: ld l,(ix-2) ;3224 ld h,(ix-1) ;3227 jp cret ;322a l322dh: ; m2: ld de,(09da1h) ;322d ld hl,0a086h ;3231 add hl,de ;3234 ld a,(hl) ;3235 ld l,a ;3236 rla ;3237 sbc a,a ;3238 ld h,a ;3239 ld (ix-2),l ;323a ld (ix-1),h ;323d ld a,l ;3240 or h ;3241 jr z,l324ch ;3242 ld l,e ;3244 ld h,d ;3245 inc hl ;3246 ld (09da1h),hl ;3247 jr l3224h ;324a l324ch: ; m3: ld a,(byte_a07d) ;324c or a ;324f call nz,sub_3429h ;3250 xor a ;3253 ld (09da0h),a ;3254 ld (09df2h),a ;3257 ld hl,__iob ;325a push hl ;325d ld hl,l0200h ;325e push hl ;3261 ld hl,0a086h ;3262 push hl ;3265 call sub_76c4h ;3266 pop bc ;3269 pop bc ;326a pop bc ;326b ld a,l ;326c or h ;326d jr nz,l3276h ;326e ld hl,-1 ;3270 jp cret ;3273 l3276h: ; m4: ld hl,00001h ;3276 ld (09da1h),hl ;3279 ld hl,00000h ;327c ld (09df3h),hl ;327f ld hl,(word_a07f) ;3282 inc hl ;3285 ld (word_a07f),hl ;3286 ld a,(byte_a083) ;3289 or a ;328c call nz,sub_329ah ;328d ld a,(0a086h) ;3290 ld l,a ;3293 rla ;3294 sbc a,a ;3295 ld h,a ;3296 jp cret ;3297 ; =============== F U N C T I O N ======================================= ; 62 ; sub_329ah: call csv ;329a ld a,(09df2h) ;329d or a ;32a0 jp nz,cret ;32a1 ld a,(byte_a288) ;32a4 or a ;32a7 jr nz,l32afh ;32a8 ld hl,l918dh ;32aa jr l32bbh ;32ad l32afh: ; m1: ld de,(word_a28d) ;32af ld hl,00017h ;32b3 add hl,de ;32b6 ld a,(hl) ;32b7 inc hl ;32b8 ld h,(hl) ;32b9 ld l,a ;32ba l32bbh: ; m2: push hl ;32bb pop iy ;32bc ld a,(byte_a083) ;32be or a ;32c1 jp nz,l3335h ;32c2 ld hl, ;32c5 push hl ;32c8 ld hl,array_a017 ;32c9 push hl ;32cc call strcmp ;32cd ; strcmp(); pop bc ;32d0 pop bc ;32d1 ld a,l ;32d2 or h ;32d3 jr nz,l32e6h ;32d4 ld hl,09da3h ;32d6 push hl ;32d9 push iy ;32da call strcmp ;32dc ; strcmp(); pop bc ;32df pop bc ;32e0 ld a,l ;32e1 or h ;32e2 jp z,l3335h ;32e3 l32e6h: ; m3: ld hl,array_a017 ;32e6 push hl ;32e9 ld hl,l918eh ;32ea "%s:" push hl ;32ed ld hl,l9bc9h ;32ee push hl ;32f1 call _fprintf ;32f2 ; fprintf(); pop bc ;32f5 pop bc ;32f6 pop bc ;32f7 ld a,(iy+0) ;32f8 or a ;32fb jr z,l3310h ;32fc push iy ;32fe ld hl,l9192h ;3300 " %s()\n" push hl ;3303 ld hl,l9bc9h ;3304 push hl ;3307 call _fprintf ;3308 ; fprintf(); pop bc ;330b pop bc ;330c pop bc ;330d jr l331dh ;330e l3310h: ; m4: ld hl,l9bc9h ;3310 push hl ;3313 ld hl,0000ah ;3314 push hl ;3317 call _fputc ;3318 ; fputc(,); pop bc ;331b pop bc ;331c l331dh: ; m5: ld hl,array_a017 ;331d push hl ;3320 ld hl,array_9d60 ;3321 push hl ;3324 call strcpy ;3325 ; strcpy(); pop bc ;3328 pop bc ;3329 push iy ;332a ld hl,09da3h ;332c push hl ;332f call strcpy ;3330 pop bc ;3333 pop bc ;3334 l3335h: ; m6: ld hl,0a086h ;3335 push hl ;3338 ld hl,(word_a07f) ;3339 push hl ;333c ld hl,l9199h ;333d "%6d:\t%s" push hl ;3340 ld hl,l9bc9h ;3341 push hl ;3344 call _fprintf ;3345 ; fprintf(); ld a,001h ;3348 ld (09df2h),a ;334a jp cret ;334d ; =============== F U N C T I O N ======================================= ; 63 ; sub_3350h: call csv ;3350 push hl ;3353 push hl ;3354 ld l,(ix+6) ;3355 ld h,(ix+7) ;3358 push hl ;335b pop iy ;335c call sub_329ah ;335e ld a,(0a086h) ;3361 or a ;3364 ld hl,l9bc9h ;3365 push hl ;3368 jr nz,l3375h ;3369 push iy ;336b call sub_7b2dh ;336d l3370h: ; m1: pop bc ;3370 pop bc ;3371 jp cret ;3372 l3375h: ; m2: ld hl,00009h ;3375 push hl ;3378 call _fputc ;3379 ; fputc(,); pop bc ;337c pop bc ;337d ld hl,00000h ;337e ld (ix-2),l ;3381 ld (ix-1),h ;3384 ld (ix-4),l ;3387 ld (ix-3),h ;338a jp l33d2h ;338d l3390h: ; m3: ld e,(ix-2) ;3390 ld d,(ix-1) ;3393 ld hl,0a086h ;3396 add hl,de ;3399 ld a,(hl) ;339a cp 009h ;339b jr nz,l33b8h ;339d ld e,(ix-4) ;339f ld d,(ix-3) ;33a2 ld hl,00008h ;33a5 add hl,de ;33a8 ld a,l ;33a9 and 0f8h ;33aa ld l,a ;33ac ld a,h ;33ad and a ;33ae ld h,a ;33af ld (ix-4),l ;33b0 ld (ix-3),h ;33b3 jr l33c5h ;33b6 l33b8h: ; m4: ld l,(ix-4) ;33b8 ld h,(ix-3) ;33bb inc hl ;33be ld (ix-4),l ;33bf ld (ix-3),h ;33c2 l33c5h: ; m5: ld l,(ix-2) ;33c5 ld h,(ix-1) ;33c8 inc hl ;33cb ld (ix-2),l ;33cc ld (ix-1),h ;33cf l33d2h: ; m6: ld de,(09df3h) ;33d2 dec de ;33d6 ld l,(ix-2) ;33d7 ld h,(ix-1) ;33da call wrelop ;33dd jp m,l3390h ;33e0 push iy ;33e3 call strlen ;33e5 pop bc ;33e8 inc hl ;33e9 ld e,(ix-4) ;33ea ld d,(ix-3) ;33ed call wrelop ;33f0 push iy ;33f3 jr nc,l340fh ;33f5 ld l,(ix-4) ;33f7 ld h,(ix-3) ;33fa dec hl ;33fd push hl ;33fe ld hl,l91a1h ;33ff "%*s ^ " push hl ;3402 ld hl,l9bc9h ;3403 push hl ;3406 call _fprintf ;3407 ; fprintf(); pop bc ;340a pop bc ;340b jp l3370h ;340c l340fh: ; m7: ld hl,0005eh ;340f push hl ;3412 ld l,(ix-4) ;3413 ld h,(ix-3) ;3416 inc hl ;3419 push hl ;341a ld hl,l91a8h ;341b "%*c %s" push hl ;341e ld hl,l9bc9h ;341f push hl ;3422 call _fprintf ;3423 ; fprintf(); jp cret ;3426 ; =============== F U N C T I O N ======================================= ; 64 ; sub_3429h: ; void sub_3429h() { call csv ;3429 ld a,(09da0h) ;342c or a ;342f jp nz,l3472h ;3430 ld a,(0a086h) ;3433 or a ;3436 jp z,l3472h ;3437 ld iy,0a086h ;343a ; st = jr l3442h ;343e l3440h: ; m1: inc iy ;3440 l3442h: ; m2: ld a,(iy+0) ;3442 or a ;3445 jr z,l3455h ;3446 ld e,a ;3448 rla ;3449 sbc a,a ;344a ld d,a ;344b ld hl,array_8ab6 ;344c add hl,de ;344f bit 4,(hl) ;3450 jr nz,l3440h ;3452 ld a,e ;3454 l3455h: ; m3: or a ;3455 jr z,l3472h ;3456 ld a,(iy+0) ;3458 cp 023h ;345b jr z,l3472h ;345d ld hl,0a086h ;345f push hl ;3462 ld hl,(word_a07f) ;3463 push hl ;3466 ld hl,array_a017 ;3467 push hl ;346a ld hl,l91afh ;346b ; ";; ;%s: %d: %s" push hl ;346e call _printf ;346f ; printf(); l3472h: ; m4: ld a,001h ;3472 ld (09da0h),a ;3474 jp cret ;3477 ; } ; =============== F U N C T I O N ======================================= ; 65 ; sub_347ah: call csv ;347a push hl ;347d l347eh: ; m1: call sub_320dh ;347e ld (ix-2),l ;3481 ld (ix-1),h ;l1 ;3484 ex de,hl ;3487 ld hl,array_8ab6 ;3488 add hl,de ;348b bit 4,(hl) ;348c jr nz,l347eh ;348e ld l,e ;3490 ld h,d ;3491 jp cret ;3492 ; =============== F U N C T I O N ======================================= ; 66 ; sub_3495h: call csv ;3495 push hl ;3498 push hl ;3499 ld e,(ix+6) ;349a ld d,(ix+7) ;349d ld hl,array_8ab6 ;34a0 add hl,de ;34a3 bit 2,(hl) ;34a4 jp z,l351ch ;34a6 ld hl,0ffd0h ;34a9 add hl,de ;34ac ld (ix-2),l ;34ad ld (ix-1),h ;34b0 call sub_320dh ;34b3 ld (ix+6),l ;34b6 ld (ix+7),h ;34b9 ex de,hl ;34bc ld hl,array_8ab6 ;34bd add hl,de ;34c0 bit 2,(hl) ;34c1 jp z,l350dh ;34c3 ld l,(ix-2) ;34c6 ld h,(ix-1) ;34c9 add hl,hl ;34cc add hl,hl ;34cd add hl,hl ;34ce add hl,de ;34cf ld de,0ffd0h ;34d0 add hl,de ;34d3 ld (ix-2),l ;34d4 ld (ix-1),h ;34d7 call sub_320dh ;34da ld (ix+6),l ;34dd ld (ix+7),h ;34e0 ex de,hl ;34e3 ld hl,array_8ab6 ;34e4 add hl,de ;34e7 bit 2,(hl) ;34e8 jr z,l3502h ;34ea ld l,(ix-2) ;34ec ld h,(ix-1) ;34ef add hl,hl ;34f2 add hl,hl ;34f3 add hl,hl ;34f4 add hl,de ;34f5 ld de,0ffd0h ;34f6 add hl,de ;34f9 ld (ix-2),l ;34fa ld (ix-1),h ;34fd jr l3516h ;3500 l3502h: ; m1: ld l,(ix+6) ;3502 ld h,(ix+7) ;3505 ld (word_9df5),hl ;3508 jr l3516h ;350b l350dh: ; m2: ld l,(ix+6) ;350d ld h,(ix+7) ;3510 ld (word_9df5),hl ;3513 l3516h: ; m3: ld l,(ix-2) ;3516 jp cret ;3519 l351ch: ; m4: ld l,(ix+6) ;351c ld h,(ix+7) ;351f ld a,h ;3522 or a ;3523 jp nz,l354fh ;3524 ld a,l ;3527 cp 061h ; 'a' ;3528 jp z,l356eh ;352a cp 062h ; 'b' ;352d jp z,l355ah ;352f cp 066h ; 'f' ;3532 jp z,l3569h ;3534 cp 06eh ; 'n' ;3537 jr z,l3555h ;3539 cp 072h ; 'r' ;353b jp z,l355fh ;353d cp 074h ; 't' ;3540 jp z,l3564h ;3542 cp 076h ; 'v' ;3545 jp z,l3573h ;3547 cp 078h ; 'x' ;354a jp z,l3578h ;354c l354fh: ; m5: ld l,(ix+6) ;354f jp cret ;3552 l3555h: ; m6: ld l,00ah ;3555 jp cret ;3557 l355ah: ; m7: ld l,008h ;355a jp cret ;355c l355fh: ; m8: ld l,00dh ;355f jp cret ;3561 l3564h: ; m9: ld l,009h ;3564 jp cret ;3566 l3569h: ; m10: ld l,00ch ;3569 jp cret ;356b l356eh: ; m11: ld l,007h ;356e jp cret ;3570 l3573h: ; m12: ld l,00bh ;3573 jp cret ;3575 l3578h: ; m13: ld (ix-2),0 ;3578 ld (ix-1),0 ;357c ld (ix-3),003h ;3580 l3584h: ; m14: call sub_320dh ;3584 ld (ix+6),l ;3587 ld (ix+7),h ;358a ex de,hl ;358d ld hl,array_8ab6 ;358e add hl,de ;3591 bit 3,(hl) ;3592 jp z,l3502h ;3594 ld b,004h ;3597 push ix ;3599 pop hl ;359b dec hl ;359c dec hl ;359d call asar ;359e ld e,(ix+6) ;35a1 ld d,(ix+7) ;35a4 ld hl,array_8ab6 ;35a7 add hl,de ;35aa bit 0,(hl) ;35ab jr z,l35b5h ;35ad ld l,e ;35af set 5,l ;35b0 ld (ix+6),l ;35b2 l35b5h: ; m15: ld e,(ix+6) ;35b5 ld d,(ix+7) ;35b8 ld hl,array_8ab6 ;35bb add hl,de ;35be bit 1,(hl) ;35bf jr z,l35d7h ;35c1 ld hl,0ffa9h ;35c3 add hl,de ;35c6 ex de,hl ;35c7 ld l,(ix-2) ;35c8 ld h,(ix-1) ;35cb add hl,de ;35ce ld (ix-2),l ;35cf ld (ix-1),h ;35d2 jr l35e9h ;35d5 l35d7h: ; m16: ld hl,0ffd0h ;35d7 add hl,de ;35da ex de,hl ;35db ld l,(ix-2) ;35dc ld h,(ix-1) ;35df add hl,de ;35e2 ld (ix-2),l ;35e3 ld (ix-1),h ;35e6 l35e9h: ; m17: ld a,(ix-3) ;35e9 add a,0ffh ;35ec ld (ix-3),a ;35ee or a ;35f1 jr nz,l3584h ;35f2 jp l3516h ;35f4 ; =============== F U N C T I O N ======================================= ; 67 ; sub_35f7h: ; sub_35f7h() { call csv ;35f7 ; l1; push hl ;35fa ; call sub_347ah ;35fb ; ld (ix-2),l ;35fe ; ld (ix-1),h ;l1 ;3601 ; word_9df5 = l1 = sub_347ah; ld (word_9df5),hl ;3604 ; ld l,(ix-2) ;3607 ; ld h,(ix-1) ;l1 ;360a ; reurn l1; jp cret ;360d ; } ; =============== F U N C T I O N ======================================= ; 68 ; sub_3610h: ; void sub_3610h(uchar c) { call csv ;3610 ; jr l361bh ;3613 ; goto m2; l3615h: ; m1: call sub_2671h ;3615 ; ld (ix+6),l ;3618 ; c = sub_2671h(); l361bh: ; m2: ld e,(ix+6) ;361b ; ld d,0 ;361e ; ld hl,00003h ;3620 ; call wrelop ;3623 ; jr c,l3615h ;3626 ; if((int)c < 3) goto m1; ld a,(ix+6) ;3628 ; cp 1 ;362b ; jr nz,l3636h ;362d ; if(c != 1) goto m3; ld hl,l91beh ;362f ; push hl ;3632 ; call fatalerror ;3633 ; fatalerror("unexpected EOF"); l3636h: ; m3: ld a,(ix+6) ;3636 ; ld (byte_9def),a ;3639 ; byte_9def = c jp cret ;363c ; } ; =============== F U N C T I O N ======================================= ; 69 ; sub_363fh: ; void sub_363fh(char p1, char * p2) { call csv ;363f ; char c; push hl ;3642 ; call sub_2671h ;3643 ; ld a,l ;3646 ; ld (ix-1),a ;c ;3647 ; c = sub_2671h(); cp (ix+6) ;p1 ;364a ; jp z,cret ;364d ; if(c == p1) return; ld l,(ix+8) ;3650 ; ld h,(ix+9) ;p2 ;3653 ; push hl ;3656 ; call errexpected ;3657 ; errexpected(p2); ld l,(ix-1) ;c ;365a ; ld h,0 ;365d ; ex (sp),hl ;365f ; call sub_3610h ;3660 ; sub_3610h(c); jp cret ;3663 ; } ; =============== F U N C T I O N ======================================= ; 70 ; sub_3666h: ; void sub_3666h() { call csv ;3666 ; char c; push hl ;3669 ; l366ah: ; m1: call sub_2671h ;366a ; ld e,l ;366d ; ld (ix-1),e ;c ;366e ; c = sub_2671h(); ld a,e ;3671 ; cp 2 ;3672 ; jr nz,l366ah ;3674 ; if( != 2) goto m1; ld a,2 ;3676 ; ld (byte_9def),a ;3678 ; byte_9def = 2; jp cret ;367b ; } ; =============== F U N C T I O N ======================================= ; 71 ; main: ; int main(int argc, char ** argv) { call csv ;367e ; ld l,(ix+6) ;3681 ; ld h,(ix+7) ; argc ;3684 ; dec hl ;3687 ; ld (ix+6),l ;3688 ; ld (ix+7),h ; argc ;368b ; --argc; ld l,(ix+8) ;368e ; ld h,(ix+9) ; argv ;3691 ; inc hl ;3694 ; inc hl ;3695 ; ld (ix+8),l ;3696 ; ld (ix+9),h ; argv ;3699 ; ++argv; jr l36efh ;369c ; goto m3; l369eh: ; m1: ld l,(ix+8) ;369e ld h,(ix+9) ; argv ;36a1 ld a,(hl) ;36a4 ; switch(*argv) { inc hl ;36a5 ld h,(hl) ;36a6 ld l,a ;36a7 inc hl ;36a8 ld a,(hl) ;36a9 cp 043h ; 'C' ;67 ;36aa ; case 'C': jp z,l3737h ;36ac ; case 'c': goto m8; /* l3737h; */ cp 045h ; 'E' ;69 ;36af ; case 'E': jr z,l36fah ;36b1 ; case 'e': goto m4; /* l36fah; */ cp 04ch ; 'L' ;76 ;36b3 ; case 'L': jp z,l3730h ;36b5 ; case 'l': goto m7; /* l3730h; */ cp 053h ; 'S' ;83 ;36b8 ; case 'S': jr z,l3722h ;36ba ; case 's': goto m5; /* l3722h; */ cp 057h ; 'W' ;87 ;36bc ; case 'W': jr z,l3729h ;36be ; case 'w': goto m6; /* l3729h; */ cp 063h ; 'c' ;99 ;36c0 ; } jr z,l3737h ;36c2 ; cp 065h ; 'e' ;101 ;36c4 ; jr z,l36fah ;36c6 ; cp 06ch ; 'l' ;108 ;36c8 ; jr z,l3730h ;36ca ; cp 073h ; 's' ;115 ;36cc ; jr z,l3722h ;36ce ; cp 077h ; 'w' ;119 ;36d0 ; jr z,l3729h ;36d2 ; l36d4h: ; m2: ld l,(ix+6) ;36d4 ; ld h,(ix+7) ; argc ;36d7 ; dec hl ;36da ; ld (ix+6),l ;36db ; ld (ix+7),h ; argc ;36de ; --argc; ld l,(ix+8) ;36e1 ; ld h,(ix+9) ; argv ;36e4 ; inc hl ;36e7 ; inc hl ;36e8 ; ld (ix+8),l ;36e9 ; ld (ix+9),h ; argv ;36ec ; ++argv; l36efh: ; m3: ld a,(ix+6) ;36ef ; or (ix+7) ; argc ;36f2 ; jr nz,l3762h ;36f5 ; if(argc != 0) goto m10; jp l3772h ;36f7 ; goto m11; l36fah: ; m4: /* case 'E' */ ld hl,l9bc9h ;36fa ; push hl ;\3 ;36fd ; ld hl,l91f2h ;36fe "a" ; push hl ;\2 ;3701 ; ld l,(ix+8) ;3702 ; ld h,(ix+9) ; argv ;3705 ; ld c,(hl) ;3708 ; inc hl ;3709 ; ld b,(hl) ;370a ; inc bc ;370b ; inc bc ;370c ; push bc ;\1 ;370d ; call _freopen ;370e ; freopen(*argv +2, "a", l9bc9h); pop bc ;3711 ; pop bc ;3712 ; ld hl,09df7h ;3713 ; ex (sp),hl ;\2 ;3716 ; ld hl,l9bc9h ;3717 ; push hl ;\1 ;371a ; call sub_7b7eh ;371b ; sub_7b7eh(l9bc9h, 09df7h); pop bc ;371e ; pop bc ;371f ; jr l36d4h ;3720 ; goto m2; l3722h: ; m5: /* case 'S' */ ld a,001h ;3722 ; ld (byte_a07d),a ;3724 ; byte_a07d = 1; jr l36d4h ;3727 ; goto m2; l3729h: ; m6: /* case 'W' */ ld a,001h ;3729 ; ld (byte_a07e),a ;372b ; byte_a07e = 1; jr l36d4h ;372e ; goto m2; l3730h: ; m7: /* case 'L' */ ld a,001h ;3730 ; ld (byte_a083),a ;3732 ; byte_a083 = 1; jr l36d4h ;3735 ; goto m2; l3737h: ; m8: /* case 'C' */ ld l,(ix+8) ;3737 ; ld h,(ix+9) ; argv ;373a ; ld a,(hl) ;373d ; inc hl ;373e ; ld h,(hl) ;373f ; ld l,a ;3740 ; inc hl ;3741 ; inc hl ;3742 ; ld a,(hl) ;3743 ; or a ;3744 ; jr z,l3759h ;3745 ; if(argv[0][2] == 0) goto m9; ld l,(ix+8) ;3747 ; ld h,(ix+9) ; argv ;374a ; ld c,(hl) ;374d ; inc hl ;374e ; ld b,(hl) ;374f ; inc bc ;3750 ; inc bc ;3751 ; ld (word_a07b),bc ;3752 ; word_a07b = argv[0][2]; jp l36d4h ;3756 ; goto m2; l3759h: ; m9: ld hl,array_9ff9 ;3759 ; ld (word_a07b),hl ;375c ; word_a07b = array_9ff9; jp l36d4h ;375f ; goto m2; l3762h: ; m10: ld l,(ix+8) ;3762 ; ld h,(ix+9) ; argv ;3765 ; ld a,(hl) ;3768 ; inc hl ;3769 ; ld h,(hl) ;376a ; ld l,a ;376b ; ld a,(hl) ;376c ; cp 02dh ;376d ; jp z,l369eh ; '-' ;376f ; if(argv[][] == '-') goto m1; l3772h: ; m11: call sub_4d92h ;3772 ; sub_4d92h(); call sub_07e3h ;3775 ; sub_07e3h(); ld a,(ix+6) ;3778 ; or (ix+7) ; argc ;377b ; jp z,l3829h ;377e ; if(argc == 0) goto m14; ld hl,__iob ;3781 ; push hl ;\3 ;3784 ; ld hl,l91f4h ;3785 "r" ; push hl ;\2 ;3788 ; ld l,(ix+8) ;3789 ; ld h,(ix+9) ; argv ;378c ; ld c,(hl) ;378f ; inc hl ;3790 ; ld b,(hl) ;3791 ; push bc ;\1 ;3792 ; call _freopen ;3793 ; pop bc ;3796 ; pop bc ;3797 ; pop bc ;3798 ; ld a,l ;3799 ; or h ;379a ; ld l,(ix+8) ;379b ; ld h,(ix+9) ; argv ;379e ; ld c,(hl) ;37a1 ; inc hl ;37a2 ; ld b,(hl) ;37a3 ; jr nz,l37b9h ;37a4 ; if(_freopen(*argv, "r", __iob) != 0) goto m12; push bc ;\ ;37a6 ; ld hl,l91ddh ;37a7 ; push hl ;\ ;37aa ; call fatalerror ;37ab ; fatalerror( "Can't open %s", *argv); pop bc ;37ae ; pop bc ;37af ; ld l,(ix+8) ;37b0 ; ld h,(ix+9) ; argv ;37b3 ; ld c,(hl) ;37b6 ; inc hl ;37b7 ; ld b,(hl) ;37b8 ; l37b9h: ; m12: ld (word_a081),bc ;37b9 ; word_a081 = *argv; push bc ;\2 ;37bd ; ld hl,array_a017 ;37be ; push hl ;\1 ;37c1 ; call strcpy ;37c2 ; strcpy(array_a017, word_a081); pop bc ;37c5 ; pop bc ;37c6 ; ld de,00001h ;37c7 ; ld l,(ix+6) ;37ca ; ld h,(ix+7) ; argc ;37cd ; or a ;37d0 ; sbc hl,de ;37d1 ; jr z,l3808h ;37d3 ; if(argc == 1) goto m13; ld hl,__iob+8 ;37d5 ; push hl ;\3 ;37d8 ; ld hl,l91f6h ;37d9 "w" ; push hl ;\2 ;37dc ; ld l,(ix+8) ;37dd ; ld h,(ix+9) ; argv ;37e0 ; inc hl ;37e3 ; inc hl ;37e4 ; ld c,(hl) ;37e5 ; inc hl ;37e6 ; ld b,(hl) ;37e7 ; push bc ;\1 ;37e8 ; call _freopen ;37e9 ; pop bc ;37ec ; pop bc ;37ed ; pop bc ;37ee ; ld a,l ;37ef ; or h ;37f0 ; jr nz,l3808h ;37f1 ; if(_freopen(*argv[1], "w", __iob+8) != 0) goto m13; ld l,(ix+8) ;37f3 ; ld h,(ix+9) ; argv ;37f6 ; inc hl ;37f9 ; inc hl ;37fa ; ld c,(hl) ;37fb ; inc hl ;37fc ; ld b,(hl) ;37fd ; push bc ;\2 ;37fe ; ld hl,l91ddh ;37ff ; push hl ;\1 ;3802 ; call fatalerror ;3803 ; fatalerror( "Can't open %s", *(argv+1)); pop bc ;3806 ; pop bc ;3807 ; l3808h: ; m13: ld de,00003h ;3808 ; ld l,(ix+6) ;380b ; ld h,(ix+7) ; argc ;380e ; or a ;3811 ; sbc hl,de ;3812 ; jr nz,l3839h ;3814 ; if(argc != 3) goto m15; ld l,(ix+8) ;3816 ; ld h,(ix+9) ; argv ;3819 ; inc hl ;381c ; inc hl ;381d ; inc hl ;381e ; inc hl ;381f ; ld c,(hl) ;3820 ; inc hl ;3821 ; ld b,(hl) ;3822 ; ld (word_91db),bc ;3823 ; word_91db = *(argv+2); jr l3839h ;3827 ; goto m15; l3829h: ; m14: ld hl,l91f8h ;3829 "(stdin)" ; ld (word_a081),hl ;382c ; push hl ;\2 ;382f ; ld hl,array_a017 ;3830 ; push hl ;\1 ;3833 ; call strcpy ;3834 ; strcpy(array_a017, "(stdin)"); pop bc ;3837 ; pop bc ;3838 ; l3839h: ; m15: ld hl,(word_a07b) ;3839 ; ld a,l ;383c ; or h ;383d ; jp z,l38bah ;383e ; if(word_a07b == 0) goto m19; ld a,(hl) ;3841 ; or a ;3842 ; jr nz,l3885h ;3843 ; if(* word_a07b != 0) goto m17; ld hl,array_9ff9 ;3845 ; ld (word_a07b),hl ;3848 ; word_a07b = array_9ff9; ld hl,array_a017 ;384b ; push hl ;\2 ;384e ; ld hl,array_9ff9 ;384f ; push hl ;\1 ;3852 ; call strcpy ;3853 ; strcpy(array_9ff9, array_a017); pop bc ;3856 ; ld hl,0002eh ; '.' ;3857 ; ex (sp),hl ;\2 ;385a ; ld hl,array_9ff9 ;385b ; push hl ;\1 ;385e ; call rindex ;385f ; pop bc ;3862 ; pop bc ;3863 ; push hl ;3864 ; pop iy ;3865 ; ld a,l ;3867 ; or h ;3868 ; jr z,l3878h ;3869 ; if((st = rindex(array_9ff9, '.')) == 0) goto m16; ld hl,l9200h ;\2 ;386b ".crf" ; push hl ;386e ; push iy ;\1 ;386f ; call strcpy ;3871 ; strcpy(st, ".crf"); pop bc ;3874 ; pop bc ;3875 ; jr l3885h ;3876 ; goto m17; l3878h: ; m16: ld hl,l9205h ;\2 ;3878 ".crf" ; push hl ;387b ; ld hl,array_9ff9;\1 ;387c ; push hl ;387f ; call strcat ;3880 ; strcat(array_9ff9, ".crf"); pop bc ;3883 ; pop bc ;3884 ; l3885h: ; m17: ld hl,word_920a ;3885 ; push hl ;\2 ;3888 ; ld hl,(word_a07b) ;3889 ; push hl ;\1 ;388c ; call open1 ;388d ; pop bc ;3890 ; pop bc ;3891 ; ld (word_9ff7),hl ;3892 ; ld a,l ;3895 ; or h ;3896 ; jr nz,l38a8h ;3897 ; if((word_9ff7 = open1(word_a07b, word_920a)) != 0) goto m18; ld hl,(word_a07b) ;3899 ; push hl ;389c ; ld hl,l920ch ;389d ; push hl ;38a0 ; call prwarning ;38a1 ; prwarning("Can't create xref file %s", word_a07b); pop bc ;38a4 ; pop bc ;38a5 ; jr l38bah ;38a6 ; goto m19; l38a8h: ; m18: ld hl,array_a017 ;38a8 ; push hl ;\3 ;38ab ; ld hl,l9226h ;38ac "~%s\n" ; push hl ;\2 ;38af ; ld hl,(word_9ff7) ;38b0 ; push hl ;\1 ;38b3 ; call _fprintf ;38b4 ; _fprintf(word_9ff7, "~%s\n", array_a017); pop bc ;38b7 pop bc ;38b8 pop bc ;38b9 l38bah: ; m19: ld hl,word_922b ;38ba ; push hl ;38bd ; ld hl,(word_91db) ;38be ; push hl ;38c1 ; call open1 ;38c2 ; pop bc ;38c5 ; pop bc ;38c6 ; ld (word_a084),hl ;38c7 ; ld a,l ;38ca ; or h ;38cb ; jr nz,l38dbh ;38cc ; if((word_a084 = open1(word_91db, word_922b)) == 0) ld hl,(word_91db) ;38ce ; push hl ;38d1 ; ld hl,l91ddh ;38d2 ; push hl ;38d5 ; call fatalerror ;38d6 ; fatalerror("Can't open %s", word_91db); pop bc ;38d9 ; pop bc ;38da ; l38dbh: ; m20: ld a,074h ;38db ; ld (word_9d28),a ;38dd ; ld (word_9d1b),a ;38e0 ; word_9d1b = word_9d28 = 0x74; ld a,8 ;38e3 ; ld hl,word_9d2b ;38e5 ; ld (hl),a ;38e8 ; *word_9d2b = 8; ld hl,word_9d26 ;38e9 ; ld (hl),a ;38ec ; *word_9d26 = 8; ld de,00000h ;38ed ; ld l,e ;38f0 ; ld h,d ;38f1 ; ld (word_9d1c),de ;38f2 ; word_9d1c = 0; ld (word_9d1e),hl ;38f6 ; word_9d1e = 0; ld de,00001h ;38f9 ; ld (word_9d29),de ;38fc ; word_9d29 = 1; ld (word_9d2b),hl ;3900 ; word_9d2b = 1; call sub_3abfh ;3903 ; sub_3abfh(); call sub_3a07h ;3906 ; sub_3a07h(); ld hl,__iob+8 ;3909 ; push hl ;390c ; call _fclose ;390d ; pop bc ;3910 ; ld de,-1 ;3911 ; or a ;3914 ; sbc hl,de ;3915 ; jr nz,l3921h ;3917 ; if(_fclose(__iob+8); == -1) ld hl,l922dh ;3919 ; push hl ;391c ; call prerror ;391d ; prerror("close error (disk space?)"); pop bc ;3920 ; l3921h: ; m21: call sub_3a5eh ;3921 ; ld hl,(word_a286) ;3924 ; sub_3a5eh(); ld a,l ;3927 ; or h ;3928 ; ld hl,1 ;3929 ; jr nz,l392fh ;392c ; exit( word_a286 != 0 ); dec hl ;392e ; l392fh: ; m22: push hl ;392f ; call exit ;3930 ; jp cret ;3933 ; } ; =============== F U N C T I O N ======================================= ; 72 ; sub_3936h: ; void sub_3936h(p1, p2, p3) { call ncsv ;3936 ; char buf[128]; defw 0ff80h ; -128 ;3939 ; ld l,(ix+00ah) ;393b ; ld h,(ix+00bh) ;393e ; push hl ;\4 ;3941 ; ld l,(ix+8) ;3942 ; ld h,(ix+9) ;3945 ; push hl ;\3 ;3948 ; ld l,(ix+6) ;3949 ; ld h,(ix+7) ;394c ; push hl ;\2 ;394f ; push ix ;\ ;3950 ; pop de ;/ ;3952 ; ld hl,0ff80h ;3953 ; add hl,de ;3956 ; push hl ;\1 ;3957 ; call _sprintf ;3958 ; _sprintf(&buf,p1, p2, p3); pop bc ;395b ; pop bc ;395c ; pop bc ;395d ; push ix ;395e ; pop de ;3960 ; ld hl,0ff80h ;3961 ; add hl,de ;3964 ; ex (sp),hl ;3965 ; call sub_3350h ;3966 ; sub_3350h(&buf); jp cret ;3969 ; } ; =============== F U N C T I O N ======================================= ; 73 ; int word_a286; ; prerror: ; void prerror(p1, p2, p3) { call csv ;396c ; ld hl,(word_a286) ;396f ; inc hl ;3972 ; ld (word_a286),hl ;3973 ; ++word_a286; ld l,(ix+0ah) ;3976 ; ld h,(ix+0bh) ; p3 ;3979 ; push hl ;397c ; ld l,(ix+8) ;397d ; ld h,(ix+9) ; p2 ;3980 ; push hl ;3983 ; ld l,(ix+6) ;3984 ; ld h,(ix+7) ; p1 ;3987 ; push hl ;398a ; call sub_3936h ;398b ; sub_3936h(p1, p2, p3); pop bc ;398e ; pop bc ;398f ; ld hl,l9bc9h ;3990 ; ex (sp),hl ;3993 ; ld hl,0000ah ;3994 ; push hl ;3997 ; call _fputc ;3998 ; fputc('\n', l9bc9h); jp cret ;399b ; } ; =============== F U N C T I O N ======================================= ; 74 ; fatalerror: ; void fatalerror(p1, p2) { call csv ;399e ; ld l,(ix+8) ;39a1 ; ld h,(ix+9) ; p2 ;39a4 ; push hl ;39a7 ; ld l,(ix+6) ;39a8 ; ld h,(ix+7) ; p1 ;39ab ; push hl ;39ae ; call prerror ;39af ; prerror(p1, p2); pop bc ;39b2 ; pop bc ;39b3 ; call sub_3a5eh ;39b4 ; sub_3a5eh(); ld hl,00001h ;39b7 ; push hl ;39ba ; call exit ;39bb ; exit(1); jp cret ;39be ; } ; =============== F U N C T I O N ======================================= ; 75 ; prwarning: ; void prwarning(p1, p2, p3) { call csv ;39c1 ld a,(byte_a07e) ;39c4 or a ;39c7 jp nz,cret ;39c8 ; if(byte_a07e) return; ld l,(ix+00ah) ;39cb ; ld h,(ix+00bh) ;39ce ; push hl ;39d1 ; ld l,(ix+8) ;39d2 ; ld h,(ix+9) ;39d5 ; push hl ;39d8 ; ld l,(ix+6) ;39d9 ; ld h,(ix+7) ;39dc ; push hl ;39df ; call sub_3936h ;39e0 ; sub_3936h(p1, p2, p3); pop bc ;39e3 ; pop bc ;39e4 ; ld hl,l9247h ;39e5 ; ex (sp),hl ;39e8 ; ld hl,l9bc9h ;39e9 ; push hl ;39ec ; call _fprintf ;39ed ; _fprintf(l9bc9h, " (warning)\n"); jp cret ;39f0 ; } ; =============== F U N C T I O N ======================================= ; 76 ; errexpected: ; void errexpected(char * p) { call csv ;39f3 ; ld l,(ix+6) ;39f6 ; ld h,(ix+7) ;39f9 ; push hl ;39fc ; ld hl,l9253h ;39fd ; push hl ;3a00 ; call prerror ;3a01 ; prerror("%s expected", p); jp cret ;3a04 ; } ; =============== F U N C T I O N ======================================= ; 77 ; ; __iob+8 /* stdin ??? */ sub_3a07h: ; word_a084; /* FILE * */ call csv ;3a07 ; char * word_91db; push hl ;3a0a ; ld hl,(word_a084) ;3a0b ; void sub_3a07h() { push hl ;3a0e ; call _fclose ;3a0f ; _fclose(word_a084); ld hl,l925fh ;3a12 "r" ; l1 ex (sp),hl ;3a15 \2 ; ld hl,(word_91db) ;3a16 ; push hl ;3a19 \1 ; call open1 ;3a1a ; pop bc ;3a1d ; pop bc ;3a1e ; ld (word_a084),hl ;3a1f ; ld a,l ;3a22 ; or h ;3a23 ; jr nz,l3a45h ;3a24 ; if(word_a084 = open1(word_91db, "r") != 0) goto m2; ld hl,(word_91db) ;3a26 ; push hl ;3a29 ; ld hl,l9261h ;3a2a ; push hl ;3a2d ; call fatalerror ;3a2e ; fatalerror("Can't reopen %s", word_91db); pop bc ;3a31 ; pop bc ;3a32 ; jr l3a45h ;3a33 ; goto m2; l3a35h: ; m1: ld hl,__iob+8 ;3a35 ; push hl ;3a38 ; ld l,(ix-2) ;3a39 ; ld h,(ix-1) ; l1 ;3a3c ; push hl ;3a3f ; call _fputc ;3a40 ; fputc(l1, __iob+8); pop bc ;3a43 ; pop bc ;3a44 ; l3a45h: ; m2: ld hl,(word_a084) ;3a45 ; push hl ;3a48 ; call _fgetc ;3a49 ; pop bc ;3a4c ; ld (ix-2),l ;3a4d ; ld (ix-1),h ; l1 ;3a50 ; l1 = _fgetc(word_a084) ld de,-1 ;3a53 ; or a ;3a56 ; sbc hl,de ;3a57 ; jr nz,l3a35h ;3a59 ; if(l1 != -1) goto m1; jp cret ;3a5b ; } ; =============== F U N C T I O N ======================================= ; 78 ; sub_3a5eh: ; void sub_3a5eh() { ld hl,__iob ;3a5e ; push hl ;3a61 ; call _fclose ;3a62 ; fclose(__iob); ld hl,__iob+8 ;3a65 ; ex (sp),hl ;3a68 ; call _fclose ;3a69 ; fclose(__iob+8); pop bc ;3a6c ; ld hl,(word_a084) ;3a6d ; ld a,l ;3a70 ; or h ;3a71 ; ret z ;3a72 ; if(word_a084 == 0) return; push hl ;3a73 ; call _fclose ;3a74 ; fclose(word_a084); ld hl,(word_91db) ;3a77 ; ex (sp),hl ;3a7a ; call unlink ;3a7b ; unlink(word_91db); /* delete file */ pop bc ;3a7e ; ret ;3a7f ; } ; =============== F U N C T I O N ======================================= ; 79 sub_3a80h ; allocmem: call csv ;3a80 ; void * allocmem(int p) { ; register void * st; l3a83h: ; m1: ld l,(ix+6) ;3a83 ; ld h,(ix+7) ;3a86 ; push hl ;3a89 ; call _malloc ;3a8a ; pop bc ;3a8d ; push hl ;3a8e ; pop iy ;3a8f ; ld a,l ;3a91 ; or h ;3a92 ; jr nz,l3aabh ;3a93 ; if((st = _malloc(p)) != 0) goto m2; call sub_5356h ;3a95 ; ld a,l ;3a98 ; or a ;3a99 ; jr nz,l3a83h ;3a9a ; if(sub_5356h() != 0) goto m1; call sub_2157h ;3a9c ; ld a,l ;3a9f ; or a ;3aa0 ; jr nz,l3a83h ;3aa1 ; if(sub_2157h() != 0) goto m1; ld hl,l91cdh ;3aa3 ; push hl ;3aa6 ; call fatalerror ;3aa7 ; fatalerror("Out of memory"); pop bc ;3aaa l3aabh: ; m2: ld l,(ix+6) ;3aab ; ld h,(ix+7) ;3aae ; push hl ;3ab1 ; push iy ;3ab2 ; call blkclr ;3ab4 ; blkclr(st, p) pop bc ;3ab7 ; pop bc ;3ab8 ; push iy ;3ab9 ; pop hl ;3abb ; return st; jp cret ;3abc ; } ; =============== F U N C T I O N ======================================= ; 80 ; sub_3abfh: ; void sub_3abfh() { call csv ;3abf ; char c; push hl ;3ac2 jr l3aceh ;3ac3 ; goto m2; l3ac5h: ; m1: ld a,(ix-1) ;3ac5 ld (byte_9def),a ;3ac8 ; byte_9def = c; call sub_3adfh ;3acb ; sub_3adfh(); l3aceh: ; m2: call sub_2671h ;3ace ; ld a,l ;3ad1 ; ld (ix-1),a ;3ad2 ; c = sub_2671h(); cp 1 ;3ad5 ; jr nz,l3ac5h ;3ad7 ; if(c != 1) goto m1; call sub_54c0h ;3ad9 ; sub_54c0h(); jp cret ;3adc ; } ; =============== F U N C T I O N ======================================= ; 81 ; sub_3adfh: ; void sub_3adfh() { call ncsv ;3adf ; struct st_13 l1; defw 0fff4h ;-12 ;3ae2 ; push ix ;3ae4 ; pop de ;3ae6 ; ld hl,0fff6h ;-10 ;3ae7 ; add hl,de ;3aea ; push hl ;\2 ;3aeb ; push ix ;\ ;3aec ; pop hl ;/ ;3aee ; dec hl ;3aef ; dec hl ;3af0 ; push hl ;\1 ;3af1 ; call sub_5dd1h ;3af2 ; pop bc ;3af5 ; pop bc ;3af6 ; ld (ix-00ch),l ;3af7 ; l1.m1.s[0] = sub_5dd1h(l1.m5.m7, l1.m1.s[1]); call sub_2671h ;3afa ; ld a,l ;3afd ; ld (ix-1),a ;3afe ; cp 002h ;3b01 ; jp z,cret ;3b03 ; if((l1.m5.m8 = sub_2671h()) == 2) return; ld (byte_9def),a ;3b06 ; byte_9def = l1.m5.m8 ld (ix-0bh),1 ;3b09 ; l1.m1.s[0] = 1; l3b0dh: ; m1: ld hl,00000h ;3b0d ; ld (word_a28f),hl ;3b10 ; word_a28f = 0; ld l,(ix-00ch) ;3b13 ; ld h,0 ;3b16 ; ld a,l ;3b18 ; and 0feh ;3b19 ; ld l,a ;3b1b ; ld a,h ;3b1c ; push hl ;\3 ;3b1d ; push ix ;3b1e ; pop de ;3b20 ; ld hl,0fff6h ;-10 ;3b21 ; add hl,de ;3b24 ; push hl ;\2 ;3b25 ; ld l,(ix-2) ;3b26 ; ld h,a ;3b29 ; push hl ;\1 ;3b2a ; call sub_69cah ;3b2b ; pop bc ;3b2e ; pop bc ;3b2f ; pop bc ;3b30 ; push hl ;3b31 ; l2, pop iy ;3b32 ; st = sub_69cah(l1.m5.m7,l1.m1.s[1] , l1.m1.s[0] & 0xFE); call sub_2671h ;3b34 ; ld e,l ;3b37 ; ld (ix-1),e ;l1 ;3b38 ; l1.m5.m8 = sub_2671h(); push iy ;3b3b ; pop hl ;3b3d ; ld a,l ;3b3e ; or h ;3b3f ; jp z,l3bdfh ;3b40 ; if(st == 0) goto m8; bit 4,(iy+012h) ;+18 ;3b43 ; jp z,l3bdfh ;3b47 ; if(bittst(st->m18, 4) == 0) goto m8; ld a,(iy+007h) ;3b4a ; cp 002h ;3b4d ; jp nz,l3bdfh ;3b4f ; if(st->m7 != 2) goto m8; ld a,(ix-00bh) ;+11 ;3b52 ; or a ;3b55 ; jr z,l3baah ;3b56 ; if(st->m18 == 0) goto m5; ld a,e ;3b58 ; cp 071h ;3b59 ; jr z,l3baah ;3b5b ; if(l1.m5.m8 == 0x71) goto m5; cp 002h ;3b5d ; jr z,l3baah ;3b5f ; if(l1.m5.m8 == 2) goto m5; ld a,(ix-2) ;l2 ;3b61 ; cp 02dh ;3b64 ; jr z,l3baah ;3b66 ; if(l1.m5.m7 == 0x2D) goto m5; ld a,(iy+007h) ;3b68 ; cp 002h ;3b6b ; jr nz,l3b82h ;3b6d ; if(st->m7 != 2) goto m2; ld a,(iy+4) ;3b6f ; or (iy+5) ;3b72 ; jr nz,l3b82h ;3b75 ; if(st->m4 != 0) goto m2; ld a,(iy+6) ;3b77 ; cp 014h ;3b7a ; jr z,l3ba5h ;3b7c ; if(st->m4 == 0x14) goto m4; cp 008h ;3b7e ; jr z,l3ba5h ;3b80 ; if(st->m4 == 8) goto m4; l3b82h: ; m2: ld hl,00000h ;3b82 ; hl = 0 l3b85h: ; m3: ld a,l ;3b85 ; ld (byte_a289),a ;3b86 ; byte_a289 = (char) hl ld a,(ix-1) ;l1 ;3b89 ; ld (byte_9def),a ;3b8c ; byte_9def = l1; push iy ;3b8f ; call sub_516ch ;3b91 ; sub_516ch(st); pop bc ;3b94 ; push iy ;3b95 ; call sub_0493h ;3b97 ; sub_0493h(st); pop bc ;3b9a ; ld (word_a28d),iy ;3b9b ; word_a28d = st; call sub_409bh ;3b9f ; sub_409bh(); jp cret ;3ba2 ; return; l3ba5h: ; m4: ld hl,00001h ;3ba5 ; hl = 1 jr l3b85h ;3ba8 ; goto m3; l3baah: ; m5: ld hl,(word_a28f) ;3baa ; ld a,l ;3bad ; or h ;3bae ; jr z,l3bc5h ;3baf ; if(word_a28f == 0) goto m6; ex de,hl ;3bb1 ; ld hl,00012h ;3bb2 ; add hl,de ;3bb5 ; ld c,(hl) ;3bb6 ; inc hl ;3bb7 ; ld b,(hl) ;3bb8 ; bit 3,c ;3bb9 ; jr nz,l3bc5h ;3bbb ; if(bittst(word_a28f->m18, 3) != 0) goto m6; ld hl,l94a6h ;3bbd ; push hl ;3bc0 ; call errexpected ;3bc1 ; errexpected("function body"); pop bc ;3bc4 ; l3bc5h: ; m6: ld a,(byte_a288) ;3bc5 ; inc a ;3bc8 ; ld (byte_a288),a ;3bc9 ; ++byte_a288; call sub_54c0h ;3bcc ; sub_54c0h(); ld a,(byte_a288) ;3bcf ; sub 001h ;3bd2 ; ld (byte_a288),a ;3bd4 ; --byte_a288; l3bd7h: ; m7: push iy ;3bd7 ; call sub_0493h ;3bd9 ; sub_0493h(st); pop bc ;3bdc ; jr l3c32h ;3bdd ; goto m13; l3bdfh: ; m8: ld a,(ix-1) ;l1 ;3bdf ; cp 64h ;3be2 ; jr nz,l3c10h ;3be4 ; if(l1.m5.m8 != 0x64) goto m10; ld a,(ix-2) ;l2 ;3be6 ; cp 2dh ;3be9 ; jr nz,l3bf5h ;3beb ; if(l1.m5.m7 != 0x2D) goto m9; ld hl,l94b4h ;3bed ; push hl ;3bf0 ; call prerror ;3bf1 ; prerror("illegal initialisation"); pop bc ;3bf4 ; l3bf5h: ; m9: push iy ;3bf5 ; call sub_516ch ;3bf7 ; sub_516ch(st); pop bc ;3bfa ; push iy ;3bfb ; call sub_0493h ;3bfd ; sub_0493h(st); pop bc ;3c00 ; push iy ;3c01 ; call sub_3c7eh ;3c03 ; sub_3c7eh(st); pop bc ;3c06 ; call sub_2671h ;3c07 ; ld e,l ;3c0a ; ld (ix-1),e ;l1 ;3c0b ; l1.m5.m8 = sub_2671h(); jr l3c32h ;3c0e ; goto m13; l3c10h: ; m10: push iy ;3c10 ; pop hl ;3c12 ; ld a,l ;3c13 ; or h ;3c14 ; jr z,l3c32h ;3c15 ; if(st == 0) goto m13; bit 0,(ix-00ch) ;l? ;3c17 ; jr nz,l3c24h ;3c1b ; if(bittst(l1.m1.s[0], 0) != 0) goto m11; ld a,(iy+014h) ;+20 ;3c1d ; cp 1fh ;3c20 ; jr z,l3c2ch ;3c22 ; if(st->20 == 0x1F) goto m12; l3c24h: ; m11: push iy ;3c24 ; call sub_516ch ;3c26 ; sub_516ch(st); pop bc ;3c29 ; jr l3bd7h ;3c2a ; goto m7; l3c2ch: ; m12: push iy ;3c2c ; call sub_01ech ;3c2e ; sub_01ech(st); pop bc ;3c31 ; l3c32h: ; m13: ld a,(ix-1) ;l1 ;3c32 ; cp 73h ;3c35 ; jr z,l3c3dh ;3c37 ; if(l1.m5.m8 == 0x73) goto m14; cp 50h ;3c39 ; jr nz,l3c52h ;3c3b ; if(l1.m5.m8 != 0x50) goto m16; l3c3dh: ; m14: ld hl,l94cbh ;3c3d ; push hl ;3c40 ; call errexpected ;3c41 ; errexpected(","); pop bc ;3c44 ; ld a,(ix-1) ;3c45 ; ld (byte_9def),a ;3c48 ; byte_9def = l1.m5.m8; l3c4bh: ; m15: ld (ix-00bh),0 ;l? ;3c4b ; l1.m1.s[0] = 0; jp l3b0dh ;3c4f ; goto m1; l3c52h: ; m16: ld a,(ix-1) ;l1 ;3c52 ; cp 71h ;3c55 ; jr z,l3c4bh ;3c57 ; if(l1.m5.m8 == 0x71) goto m15; cp 2 ;3c59 ; jp z,cret ;3c5b ; if(l1.m5.m8 == 2) return; ld hl,l94cdh ;3c5e ; push hl ;3c61 ; call errexpected ;3c62 ; errexpected(";"); pop bc ;3c65 ; jr l3c6eh ;3c66 ; goto m18; l3c68h: ; m17: call sub_2671h ;3c68 ; ld (ix-1),l ;l1 ;3c6b ; l1.m5.m8 = sub_2671h(); l3c6eh: ; m18: ld e,(ix-1) ;l1 ;3c6e ; ld d,0 ;3c71 ; ld hl,3 ;3c73 ; call wrelop ;3c76 ; jr c,l3c68h ;3c79 ; if(3 < l1.m5.m8) goto m17; jp cret ;3c7b ; } ; =============== F U N C T I O N ======================================= ; 82 ; sub_3c7eh: ; void sub_3c7eh(struct aaa * p1) { call csv ;3c7e ; struct xxx * l1; push hl ;3c81 ; ld a,(ix+6) ;3c82 ; or (ix+7) ;p1 ;3c85 ; jp z,l3d1eh ;3c88 ; if(p1 == 0) goto m3; ld hl,l94cfh ;3c8b ; push hl ;3c8e ; call _printf ;3c8f ; printf("[i "); ld hl,__iob+8 ;3c92 stdout ; ex (sp),hl ;3c95 ; ld l,(ix+6) ;3c96 ; ld h,(ix+7) ;p1 ;3c99 ; push hl ;3c9c ; call sub_573bh ;3c9d ; sub_573bh(p1, stdout); pop bc ;3ca0 ; ld hl,0000ah ;3ca1 ; ex (sp),hl ;3ca4 ; call _putchar ;3ca5 ; putchar('\n'); ld l,(ix+6) ;3ca8 ; ld h,(ix+7) ;p1 ;3cab ; push hl ;3cae ; pop iy ;3caf ; st = p1; ld hl,00001h ;3cb1 ; ex (sp),hl ;3cb4 ; push iy ;3cb5 ; call sub_3d24h ;3cb7 ; pop bc ;3cba ; pop bc ;3cbb ; ld (ix-2),l ;3cbc ; ld (ix-1),h ;l1 ;3cbf ; l1 = sub_3d24h(st, 1); bit 7,h ;3cc2 ; jr z,l3cd3h ;3cc4 ; if(bittst(l1, 7) == 0) goto m1; ld hl,l94d3h ;3cc6 ; push hl ;3cc9 ; call prerror ;3cca ; prerror("initialisation syntax"); pop bc ;3ccd ; call sub_3666h ;3cce ; sub_3666h(); jr l3d13h ;3cd1 ; goto m2; l3cd3h: ; m1: ld a,(iy+007h) ;3cd3 ; cp 1 ;3cd6 ; jr nz,l3d13h ;3cd8 ; if(st->m7 != 1) goto m2; ld a,(iy+2) ;3cda ; or (iy+3) ;3cdd ; jr z,l3d13h ;3ce0 ; if(st->m2 == 0) goto m2; ld l,(iy+2) ;3ce2 ; ld h,(iy+3) ;3ce5 ; push hl ;3ce8 ; call sub_2105h ;3ce9 ; pop bc ;3cec ; ld a,l ;3ced ; or a ;3cee ; jr z,l3d13h ;3cef ; if(sub_2105h(st->m2) == 0) goto m2; ld l,(iy+2) ;3cf1 ; ld h,(iy+3) ;3cf4 ; push hl ;3cf7 ; call sub_2569h ;3cf8 ; sub_2569h(st->m2); ld e,(ix-2) ;3cfb ; ld d,(ix-1) ;l1 ;3cfe ; ld a,d ;3d01 ; rla ;3d02 ; sbc a,a ;3d03 ; ld l,a ;3d04 ; ld h,a ;3d05 ; ex (sp),hl ;3d06 ; push de ;3d07 ; call sub_248ah ;3d08 ; pop bc ;3d0b ; pop bc ;3d0c ; ld (iy+2),l ;3d0d ; ld (iy+3),h ;3d10 ; st->m2 = sub_248ah(l1); l3d13h: ; m2: ld hl,l94e9h ;3d13 ; push hl ;3d16 ; call _printf ;3d17 ; printf("]\n"); pop bc ;3d1a ; jp cret ;3d1b ; return; l3d1eh: ; m3: call sub_3666h ;3d1e ; sub_3666h(); jp cret ;3d21 ; } ; =============== F U N C T I O N ======================================= ; 83 ; int sub_3d24h(register struct xxx * st) { ; ; int l1; sub_3d24h: ; char l2; call ncsv ;3d24 ; char * l3; defw 0fff2h ;-14 ;3d27 ; char l4; ld l,(ix+6) ;3d29 ; struct st_13 * l5; ld h,(ix+7) ;st ;3d2c ; int l6; push hl ;3d2f ; char l7; pop iy ;3d30 ; struct st_13 * l8; ld (ix-2),0ffh ;3d32 ; char l9; ld (ix-1),0ffh ;l1 ;3d36 ; l1 = -1; ld a,(ix+8) ;p2 ;3d3a ; or a ;3d3d ; jp z,l3ec6h ;3d3e ; if(p2 == 0) goto m13; ld a,(iy+007h) ;3d41 ; cp 1 ;3d44 ; jp nz,l3ec6h ;3d46 ; if(st->m7 != 1) goto m13; ld a,(iy+2) ;3d49 ; or (iy+3) ;3d4c ; jp z,l3ec6h ;3d4f ; if(st->m2 == 0) goto m13; ld hl,l949bh ;3d52 ; push hl ;3d55 ; call _printf ;3d56 ; printf(":U ..\n"); pop bc ;3d59 ; call sub_2671h ;3d5a ; ld a,l ;3d5d ; ld (ix-3),a ;l2 ;3d5e ; l2 = sub_2671h(); cp 4 ;3d61 ; ld hl,1 ;3d63 ; jr z,l3d69h ;3d66 ; dec hl ;3d68 ; l3d69h: ; m1: ld a,l ;3d69 ; ld (ix-6),a ;l4 ;3d6a ; l4 = (l2 == 4); or a ;3d6d ; jr z,l3d77h ;3d6e ; if(l4 == 0) goto m2; call sub_2671h ;3d70 ; ld e,l ;3d73 ; ld (ix-3),e ;l2 ;3d74 ; l2 = sub_2671h(); l3d77h: ; m2: ld a,(ix-3) ;l2 ;3d77 ; cp 76h ;3d7a ; jp nz,l3e4ah ;3d7c ; if(l2 != 0x76) goto m8; ld a,(iy+4) ;3d7f ; or (iy+5) ;3d82 ; jp nz,l3e4ah ;3d85 ; if(st->m4 != 0) goto m8; ld de,00004h ;3d88 ; ld l,(iy+6) ;3d8b ; ld h,0 ;3d8e ; ld a,l ;3d90 ; and 0feh ;3d91 ; ld l,a ;3d93 ; ld a,h ;3d94 ; or a ;3d95 ; sbc hl,de ;3d96 ; jp nz,l3e4ah ;3d98 ; if((st->m6 & 0xFE) != 4) goto m8; ld (ix-2),a ;3d9b ; ld (ix-1),a ;l1 ;3d9e ; l1 = st->m6 & 0xFE; ld hl,(word_9dcb) ;3da1 ; ld (ix-5),l ;3da4 ; ld (ix-4),h ;l3 ;3da7 ; l3 = word_9dcb; jr l3dd5h ;3daa ; goto m4; l3dach: ; m3: ld l,(ix-5) ;3dac ; ld h,(ix-4) ;l3 ;3daf ; ld a,(hl) ;3db2 ; inc hl ;3db3 ; ld (ix-5),l ;3db4 ; ld (ix-4),h ;l3 ;3db7 ; ld l,a ;3dba ; rla ;3dbb ; sbc a,a ;3dbc ; ld h,a ;3dbd ; push hl ;3dbe ; ld hl,l9491h ;3dbf ; push hl ;3dc2 ; call _printf ;3dc3 ; printf("-> %d `c\n", (char)*(l3++)); pop bc ;3dc6 ; pop bc ;3dc7 ; ld l,(ix-2) ;3dc8 ; ld h,(ix-1) ;l1 ;3dcb ; inc hl ;3dce ; ld (ix-2),l ;3dcf ; ld (ix-1),h ;l1 ;3dd2 ; ++l1; l3dd5h: ; m4: ld de,(word_9df0) ;3dd5 ; ld l,(ix-2) ;3dd9 ; ld h,(ix-1) ;l1 ;3ddc ; call wrelop ;3ddf ; jp m,l3dach ;3de2 ; if(l1 < word_9df0) goto m3; ld hl,(word_9dcb) ;3de5 ; push hl ;3de8 ; call free ;3de9 ; free(word_9dcb); ld l,(iy+2) ;3dec ; ld h,(iy+3) ;3def ; ex (sp),hl ;3df2 ; call sub_2105h ;3df3 ; pop bc ;3df6 ; ld a,l ;3df7 ; or a ;3df8 ; jr z,l3e15h ;3df9 ; if( sub_2105h(st->m2) == 0) goto m5; ld hl,00000h ;3dfb ; push hl ;3dfe ; ld hl,l9491h ;3dff ; push hl ;3e02 ; call _printf ;3e03 ; printf("-> %d `c\n", 0); pop bc ;3e06 ; pop bc ;3e07 ; ld l,(ix-2) ;3e08 ; ld h,(ix-1) ;l1 ;3e0b ; inc hl ;3e0e ; ld (ix-2),l ;3e0f ; ld (ix-1),h ;l1 ;3e12 ; ++l1; l3e15h: ; m5: ld a,(ix-6) ;l4 ;3e15 ; or a ;3e18 ; jr z,l3e22h ;3e19 ; if(l4 == 0) goto m6; call sub_2671h ;3e1b ; ld e,l ;3e1e ; ld (ix-3),e ;l2 ;3e1f ; l2 = sub_2671h(); l3e22h: ; m6: ld a,(ix-6) ;l4 ;3e22 ; or a ;3e25 ; jr z,l3e3fh ;3e26 ; if(l4 == 0) goto m7; ld a,(ix-3) ;l2 ;3e28 ; cp 003h ;3e2b ; jr z,l3e3fh ;3e2d ; if(l2 == 3) goto m7; ld hl,l94eeh ;3e2f ; push hl ;3e32 ; call errexpected ;3e33 ; errexpected("}"); pop bc ;3e36 ; ld (ix-2),0ffh ;3e37 ; ld (ix-1),0ffh ;l1 ;3e3b ; l1 = -1; l3e3fh: ; m7: ld hl,l94a2h ;3e3f ; push hl ;3e42 ; call _printf ;3e43 ; printf("..\n"); pop bc ;3e46 ; jp l4092h ;3e47 ; goto m34; l3e4ah: ; m8: ld a,(ix-6) ;l4 ;3e4a ; or a ;3e4d ; jr nz,l3e5ah ;3e4e ; if(l4 != 0) goto m9; ld hl,l94ech ;3e50 ; push hl ;3e53 ; call errexpected ;3e54 ; errexpected("{"); pop bc ;3e57 ; jr l3e22h ;3e58 ; goto m6; l3e5ah: ; m9: ld a,(ix-3) ;l2 ;3e5a ; ld (byte_9def),a ;3e5d ; byte_9def = l2; ld a,(iy+4) ;3e60 ; or (iy+5) ;3e63 ; jr nz,l3e7ah ;3e66 ; if(st->m4 != 0) goto m10; ld a,(iy+6) ;3e68 ; cp 016h ;3e6b ; jr nz,l3e7ah ;3e6d ; if(st->m6 != 0x16) goto m10; ld l,(iy+0) ;3e6f ; ld h,(iy+1) ;3e72 ; push hl ;3e75 ; pop iy ;3e76 ; st = st->m0; jr l3e7eh ;3e78 ; goto m11; l3e7ah: ; m10: ld (ix+8),0 ;p2 ;3e7a ; p2 = 0; l3e7eh: ; m11: ld (ix-2),0 ;3e7e ; ld (ix-1),0 ;l1 ;3e82 ; l1 = 0; l3e86h: ; m12: ld l,(ix+8) ;p2 ;3e86 ; ld h,0 ;3e89 ; push hl ;\ ;3e8b ; push iy ;\ ;3e8c ; call sub_3d24h ;3e8e ; pop bc ;3e91 ; pop bc ;3e92 ; bit 7,h ;3e93 ; jr nz,l3e22h ;3e95 ; if(bittst(sub_3d24h(st, p2), 7) != 0) goto m6; ld l,(ix-2) ;3e97 ; ld h,(ix-1) ;l1 ;3e9a ; inc hl ;3e9d ; ld (ix-2),l ;3e9e ; ld (ix-1),h ;l1 ;3ea1 ; ++l1; call sub_2671h ;3ea4 ; ld a,l ;3ea7 ; ld (ix-3),a ;l2 ;3ea8 ; l2 = sub_2671h(); cp 3h ;3eab ; jp z,l3e22h ;3ead ; if(l2 == 3) goto m6; cp 071h ;3eb0 ; jp nz,l3e22h ;3eb2 ; if(l2 != 0x71) goto m6; call sub_2671h ;3eb5 ; ld a,l ;3eb8 ; ld (ix-3),a ;l2 ;3eb9 ; l2 = sub_2671h(); cp 003h ;3ebc ; jp z,l3e22h ;3ebe ; if(l2 == 3) goto m6; ld (byte_9def),a ;3ec1 ; byte_9def = l2; jr l3e86h ;3ec4 ; goto m12; l3ec6h: ; m13: ld a,(ix+8) ;p2 ;3ec6 ; or a ;3ec9 ; jr z,l3ed4h ;3eca ; if(p2 == 0) goto m14; ld a,(iy+007h) ;3ecc ; cp 001h ;3ecf ; jp z,l3fdfh ;3ed1 ; if(st->m7 == 1) goto m25; l3ed4h: ; m14: ld a,(iy+4) ;3ed4 ; or (iy+5) ;3ed7 ; jp nz,l3fdfh ;3eda ; if(st->m4 != 0) goto m25; ld a,(iy+6) ;3edd ; cp 01ah ;3ee0 ; ld a,(ix+8) ;p2 ;3ee2 ; jp nz,l3fe2h ;3ee5 ; if(st->m6 != 0x1A) goto m26; or a ;3ee8 ; ld hl,l949bh ;3ee9 ; hl = ":U ..\n" push hl ;3eec ; jr z,l3ef6h ;3eed ; if(p2 == 0) goto m15; call _printf ;3eef ; printf(); ld hl,l949bh ;3ef2 ; hl = ":U ..\n" ex (sp),hl ;3ef5 ; l3ef6h: ; m15: call _printf ;3ef6 ; printf(); pop bc ;3ef9 ; ld l,(iy+0) ;3efa ; ld h,(iy+1) ;3efd ; ld (ix-8),l ;3f00 ; ld (ix-7),h ;l5 ;3f03 ; l5 = st->m0; ld a,l ;3f06 ; or h ;3f07 ; jp z,l3fcdh ;3f08 ; if(l5 == 0) goto m24; call sub_2671h ;3f0b ; ld a,l ;3f0e ; ld (ix-3),a ;l2 ;3f0f ; l2 = sub_2671h(); cp 004h ;3f12 ; ld hl,00001h ;3f14 ; jr z,l3f1ah ;3f17 ; dec hl ;3f19 ; l3f1ah: ; m16: ld a,l ;3f1a ; ld (ix-00bh),a ;l7 ;3f1b ; l7 = (l2 == 4); or a ;3f1e ; jr nz,l3f27h ;3f1f ; if(l7 != 0) goto m17; ld a,(ix-3) ;l2 ;3f21 ; ld (byte_9def),a ;3f24 ; byte_9def = l2; l3f27h: ; m17: ld e,(ix-8) ;3f27 ; ld d,(ix-7) ;l5 ;3f2a ; ld hl,0000ah ;3f2d ; add hl,de ;3f30 ; ld c,(hl) ;3f31 ; inc hl ;3f32 ; ld b,(hl) ;3f33 ; ld (ix-00ah),c ;3f34 ; ld (ix-009h),b ;l6 ;3f37 ; l6 = l5->m10; l3f3ah: ; m18: ld hl,00001h ;3f3a ; push hl ;3f3d ; ld l,(ix-00ah) ;3f3e ; ld h,(ix-009h) ;l6 ;3f41 ; push hl ;3f44 ; call sub_3d24h ;3f45 ; pop bc ;3f48 ; pop bc ;3f49 ; bit 7,h ;3f4a ; jr nz,l3f7ch ;3f4c ; if(bittst(sub_3d24h(l6, 1), 7) != 0) goto m19; ld e,(ix-00ah) ;3f4e ; ld d,(ix-009h) ;l6 ;3f51 ; ld hl,0000ah ;3f54 ; add hl,de ;3f57 ; ld c,(hl) ;3f58 ; inc hl ;3f59 ; ld b,(hl) ;3f5a ; ld (ix-00ah),c ;3f5b ; ld (ix-009h),b ;l6 ;3f5e ; l6 = l6->m10; ld e,(ix-8) ;3f61 ; ld d,(ix-7) ;l5 ;3f64 ; ld l,c ;3f67 ; ld h,b ;3f68 ; or a ;3f69 ; sbc hl,de ;3f6a ; jr z,l3f7ch ;3f6c ; if(l6 == l5) goto m19; call sub_2671h ;3f6e ; ld a,l ;3f71 ; ld (ix-3),a ;l2 ;3f72 ; l2 = sub_2671h(); cp 071h ;3f75 ; jr z,l3fa5h ;3f77 ; if(l2 == 0x71) goto m21; ld (byte_9def),a ;3f79 ; byte_9def = l2; l3f7ch: ; m19: ld a,(ix-00bh) ;l7 ;3f7c ; or a ;3f7f ; jr z,l3fc5h ;3f80 ; if(l7 == 0) goto m23; call sub_2671h ;3f82 ; ld a,l ;3f85 ; ld (ix-3),a ;l2 ;3f86 ; l2 = sub_2671h(); cp 071h ;3f89 ; jr nz,l3f94h ;3f8b ; if(l2 != 0x71) goto m20; call sub_2671h ;3f8d ; ld e,l ;3f90 ; ld (ix-3),e ;l2 ;3f91 ; l2 = sub_2671h(); l3f94h: ; m20: ld a,(ix-3) ;l2 ;3f94 ; cp 003h ;3f97 ; jr z,l3fbbh ;3f99 ; if(l2 == 3) goto m22; ld hl,l94f0h ;3f9b ; push hl ;3f9e ; call errexpected ;3f9f ; errexpected("}"); pop bc ;3fa2 ; jr l3fcdh ;3fa3 ; goto m24; l3fa5h: ; m21: ld a,(ix-00bh) ;l7 ;3fa5 ; or a ;3fa8 ; jr z,l3f3ah ;3fa9 ; if(l7 == 0) goto m18; call sub_2671h ;3fab ; ld a,l ;3fae ; ld (ix-3),a ;l2 ;3faf ; l2 = sub_2671h(); ld (byte_9def),a ;3fb2 ; byte_9def =l2; cp 003h ;3fb5 ; jr nz,l3f3ah ;3fb7 ; if(byte_9def != 3) goto m18; jr l3f7ch ;3fb9 ; goto m19; l3fbbh: ; m22: ld (ix-2),001h ;3fbb ; ld (ix-1),0 ;l1 ;3fbf ; l1 = 1; jr l3fcdh ;3fc3 ; goto m24; l3fc5h: ; m23: ld (ix-2),001h ;3fc5 ; ld (ix-1),0 ;l1 ;3fc9 ; l1 = 1; l3fcdh: ; m24: ld hl,l94a2h ;3fcd ; push hl ;3fd0 ; call _printf ;3fd1 ; printf("..\n"); pop bc ;3fd4 ; ld a,(ix+8) ;p2 ;3fd5 ; or a ;3fd8 ; jp z,l4092h ;3fd9 ; if(p2 == 0) goto m34; jp l3e3fh ;3fdc ; goto m7; l3fdfh: ; m25: ld a,(ix+8) ;p2 ;3fdf ; l3fe2h: ; m26: or a ;3fe2 ; ld a,(iy+007h) ;3fe3 ; jr z,l3fedh ;3fe6 ; if(p2 == 0) goto m27; cp 001h ;3fe8 ; jp z,l408ah ;3fea ; if(p2 == 1) goto m33; l3fedh: ; m27: cp 002h ;3fed ; jp z,l408ah ;3fef ; if(p2 == 2) goto m33; bit 0,(iy+4) ;3ff2 ; jr nz,l4003h ;3ff6 ; if(bittst(st->m4, 0) != 0) goto m28; ld b,014h ;3ff8 ; ld a,(iy+6) ;3ffa ; call brelop ;3ffd ; jp nc,l408ah ;4000 ; if(st->m6 >= 0x14) goto m33; l4003h: ; m28: call sub_2671h ;4003 ; ld a,l ;4006 ; ld (ix-3),a ;l2 ;4007 ; l2 = sub_2671h(); cp 004h ;400a ; ld hl,00001h ;400c ; jr z,l4012h ;400f ; dec hl ;4011 ; l4012h: ; m29: ld a,l ;4012 ; ld (ix-00eh),a ;l9 ;4013 ; l9 = (l2 == 4); or a ;4016 ; jr nz,l401fh ;4017 ; if(l9 != 0) goto m30; ld a,(ix-3) ;l2 ;4019 ; ld (byte_9def),a ;401c ; byte_9def = l2; l401fh: ; m30: push iy ;401f ; call sub_24b6h ;4021 ; ld (ix-00dh),l ;4024 ; ld (ix-00ch),h ;l8 ;4027 ; l8 = sub_24b6h(st); ex de,hl ;402a ; ld hl,0000ch ;402b ; add hl,de ;402e ; ld (hl),0 ;402f ; l8->m5.m7 = 0; ld hl,00003h ;4031 ; ex (sp),hl ;4034 ; call sub_0a83h ;4035 ; ex (sp),hl ;\3 ;4038 ; ld l,(ix-00dh) ;4039 ; ld h,(ix-00ch) ;l8 ;403c ; push hl ;\2 ;403f ; ld hl,0007dh ;4040 ; push hl ;\1 ;4043 ; call sub_1441h ;4044 ; pop bc ;4047 ; pop bc ;4048 ; pop bc ;4049 ; ld (ix-00dh),l ;404a ; ld (ix-00ch),h ;l8 ;404d ; l8 = sub_1441h(0x7d, l8, sub_0a83h(3)); ld a,l ;4050 ; or h ;4051 ; jr z,l405fh ;4052 ; if(l8 == 0) goto m31; inc hl ;4054 ; inc hl ;4055 ; inc hl ;4056 ; ld c,(hl) ;4057 ; inc hl ;4058 ; ld b,(hl) ;4059 ; push bc ;405a ; call sub_05b5h ;405b ; sub_05b5h(l8->m1.s[1]); pop bc ;405e ; l405fh: ; m31: ld a,(ix-00eh) ;l9 ;405f ; or a ;4062 ; jr z,l4075h ;4063 ; if(l9 == 0) goto m32; call sub_2671h ;4065 ; ld a,l ;4068 ; cp 003h ;4069 ; jr z,l4075h ;406b ; if(sub_2671h() == 3) goto m32; ld hl,l94f2h ;406d ; push hl ;4070 ; call errexpected ;4071 ; errexpected("}"); pop bc ;4074 ; l4075h: ; m32: ld l,(ix-00dh) ;4075 ; ld h,(ix-00ch) ;l8 ;4078 ; push hl ;407b ; call sub_2569h ;407c ; sub_2569h(l8); pop bc ;407f ; ld (ix-2),001h ;4080 ; ld (ix-1),0 ;l1 ;4084 ; l1 = 1; jr l4092h ;4088 ; goto m34; l408ah: ; m33: ld hl,l94f4h ;408a ; push hl ;408d ; call prerror ;408e ; prerror("illegal initialisation"); pop bc ;4091 ; l4092h: ; m34: ld l,(ix-2) ;4092 ; ld h,(ix-1) ;l1 ;4095 ; return l1; jp cret ;4098 ; } ; =============== F U N C T I O N ======================================= ; 84 ; sub_409bh: call csv ;409b push hl ;409e call sub_549ch ;409f ld hl,00006h ;40a2 push hl ;40a5 call sub_5c19h ;40a6 pop bc ;40a9 call sub_51e7h ;40aa call sub_2671h ;40ad ld e,l ;40b0 ld (ix-1),e ;40b1 ld a,e ;40b4 cp 4 ;40b5 jr z,l40cah ;40b7 ld hl,l950bh ;40b9 ; push hl ;40bc ; call errexpected ;40bd ; errexpected("{"); ld l,(ix-1) ;40c0 ld h,0 ;40c3 ex (sp),hl ;40c5 call sub_3610h ;40c6 pop bc ;40c9 l40cah: ; m1: ld hl,(word_a28d) ;40ca push hl ;40cd call sub_0273h ;40ce xor a ;40d1 ld (0a28ah),a ;40d2 ld hl,00014h ;40d5 ex (sp),hl ;40d8 call sub_5c19h ;40d9 pop bc ;40dc call sub_5785h ;40dd ld (0a28bh),hl ;40e0 jr l40f9h ;40e3 l40e5h: ; m2: ld a,(ix-1) ;40e5 ld (byte_9def),a ;40e8 ld hl,00000h ;40eb push hl ;40ee push hl ;40ef push hl ;40f0 push hl ;40f1 call sub_4126h ;40f2 pop bc ;40f5 pop bc ;40f6 pop bc ;40f7 pop bc ;40f8 l40f9h: ; m3: call sub_2671h ;40f9 ld a,l ;40fc ld (ix-1),a ;40fd cp 3 ;4100 jr nz,l40e5h ;4102 ld a,(0a28ah) ;4104 or a ;4107 jr nz,l4118h ;4108 ld a,(byte_a289) ;410a or a ;410d jr nz,l4118h ;410e ld hl,l950dh ;4110 ; push hl ;4113 ; call prwarning ;4114 ; prwarning("implicit return at end of non-void function"); pop bc ;4117 ; l4118h: ; m4: ld hl,(0a28bh) ;4118 push hl ;411b call sub_0258h ;411c pop bc ;411f call sub_54ach ;4120 jp cret ;4123 ; =============== F U N C T I O N ======================================= ; 85 ; proc_83() ; sub_4126h: call csv ;4126 push hl ;4129 push hl ;412a ld l,(ix+00ah) ;412b ld h,(ix+00bh) ;412e push hl ;4131 pop iy ;4132 call sub_2671h ;4134 ld e,l ;4137 ld (ix-1),e ;4138 ld a,(0a28ah) ;413b or a ;413e ld a,e ;413f jr z,l4170h ;4140 cp 002h ;4142 jr z,l416dh ;4144 cp 004h ;4146 jr z,l416dh ;4148 cp 016h ;414a jr z,l4169h ;414c cp 019h ;414e jr z,l4169h ;4150 cp 073h ;4152 jr nz,l4161h ;4154 call sub_35f7h ;4156 ld de,0003ah ;4159 or a ;415c sbc hl,de ;415d jr z,l4169h ;415f l4161h: ; m1: ld hl,l9539h ;4161 ; push hl ;4164 ; call prwarning ;4165 ; prwarning("Unreachable code"); pop bc ;4168 ; l4169h: ; m2: xor a ;4169 ld (0a28ah),a ;416a l416dh: ; m3: ld a,(ix-1) ;416d l4170h: ; m4: cp 002h ;4170 jp z,cret ;4172 cp 004h ;4175 jp z,l41f5h ;4177 cp 013h ;417a jp z,l4213h ;417c cp 015h ;417f jp z,l428eh ;4181 cp 016h ;4184 jp z,l4256h ;4186 cp 018h ;4189 jp z,l42afh ;418b cp 019h ;418e jp z,l4272h ;4190 cp 01ah ;4193 jp z,l421dh ;4195 cp 01ch ;4198 jp z,l42c3h ;419a cp 021h ;419d jp z,l4224h ;419f cp 022h ;41a2 jp z,l42bdh ;41a4 cp 023h ;41a7 jp z,l422bh ;41a9 cp 027h ;41ac jp z,l42b7h ;41ae cp 02ch ;41b1 jp z,l424ah ;41b3 cp 031h ;41b6 jr z,l4216h ;41b8 cp 073h ;41ba jp z,l42cdh ;41bc l41bfh: ; m5: ld a,(ix-1) ;41bf ld (byte_9def),a ;41c2 call sub_0bfch ;41c5 push hl ;41c8 ld hl,0003ch ;41c9 push hl ;41cc call sub_1441h ;41cd pop bc ;41d0 ld (ix-3),l ;41d1 ld (ix-2),h ;41d4 ex (sp),hl ;41d7 call sub_042dh ;41d8 ld l,(ix-3) ;41db ld h,(ix-2) ;41de ex (sp),hl ;41e1 call sub_2569h ;41e2 ld hl,l955fh ;41e5 ";" ex (sp),hl ;41e8 ld hl,00002h ;41e9 push hl ;41ec call sub_363fh ;41ed l41f0h: ; m6: pop bc ;41f0 l41f1h: ; m7: pop bc ;41f1 jp cret ;41f2 l41f5h: ; m8: ld l,(ix+00ch) ;41f5 ld h,(ix+00dh) ;41f8 push hl ;41fb push iy ;41fc ld l,(ix+8) ;41fe ld h,(ix+9) ;4201 push hl ;4204 ld l,(ix+6) ;4205 ld h,(ix+7) ;4208 push hl ;420b call sub_4300h ;420c pop bc ;420f pop bc ;4210 jr l41f0h ;4211 l4213h: ; m9: call sub_4390h ;4213 l4216h: ; m10: push iy ;4216 call sub_4406h ;4218 jr l41f1h ;421b l421dh: ; m11: push iy ;421d call sub_44afh ;421f jr l41f1h ;4222 l4224h: ; m12: push iy ;4224 call sub_4838h ;4226 jr l41f1h ;4229 l422bh: ; m13: ld l,(ix+00ch) ;422b ld h,(ix+00dh) ;422e push hl ;4231 push iy ;4232 ld l,(ix+8) ;4234 ld h,(ix+9) ;4237 push hl ;423a ld l,(ix+6) ;423b ld h,(ix+7) ;423e push hl ;4241 call sub_4595h ;4242 l4245h: ; m14: pop bc ;4245 pop bc ;4246 pop bc ;4247 jr l41f1h ;4248 l424ah: ; m15: ld l,(ix+6) ;424a ld h,(ix+7) ;424d push hl ;4250 call sub_469bh ;4251 jr l41f1h ;4254 l4256h: ; m16: ld l,(ix+00ch) ;4256 ld h,(ix+00dh) ;4259 push hl ;425c push iy ;425d ld l,(ix+8) ;425f ld h,(ix+9) ;4262 push hl ;4265 ld l,(ix+6) ;4266 ld h,(ix+7) ;4269 push hl ;426c call sub_4a90h ;426d jr l4245h ;4270 l4272h: ; m17: ld l,(ix+00ch) ;4272 ld h,(ix+00dh) ;4275 push hl ;4278 push iy ;4279 ld l,(ix+8) ;427b ld h,(ix+9) ;427e push hl ;4281 ld l,(ix+6) ;4282 ld h,(ix+7) ;4285 push hl ;4288 call sub_4a1eh ;4289 jr l4245h ;428c l428eh: ; m18: ld a,(ix+00ch) ;428e or (ix+00dh) ;4291 jr z,l42a2h ;4294 ld de,00001h ;4296 ld l,(ix+00ch) ;4299 ld h,(ix+00dh) ;429c ld (hl),e ;429f inc hl ;42a0 ld (hl),d ;42a1 l42a2h: ; m19: ld l,(ix+8) ;42a2 ld h,(ix+9) ;42a5 l42a8h: ; m20: push hl ;42a8 call sub_49e1h ;42a9 jp l41f1h ;42ac l42afh: ; m21: ld l,(ix+6) ;42af ld h,(ix+7) ;42b2 jr l42a8h ;42b5 l42b7h: ; m22: call sub_4baah ;42b7 jp cret ;42ba l42bdh: ; m23: call sub_4c03h ;42bd jp cret ;42c0 l42c3h: ; m24: ld hl,l954ah ;42c3 ; push hl ;42c6 ; call prerror ;42c7 ; prerror("inappropriate 'else'"); jp l41f1h ;42ca l42cdh: ; m25: call sub_35f7h ;42cd ld de,0003ah ;42d0 or a ;42d3 sbc hl,de ;42d4 jp nz,l41bfh ;42d6 call sub_2671h ;42d9 ld (ix-1),l ;42dc ld l,(ix+00ch) ;42df ld h,(ix+00dh) ;42e2 push hl ;42e5 push iy ;42e6 ld l,(ix+8) ;42e8 ld h,(ix+9) ;42eb push hl ;42ee ld l,(ix+6) ;42ef ld h,(ix+7) ;42f2 push hl ;42f5 ld hl,(word_9dcb) ;42f6 push hl ;42f9 call sub_4c57h ;42fa jp cret ;42fd ; =============== F U N C T I O N ======================================= ; 86 ; sub_4300h: call csv ;4300 push hl ;4303 call sub_2671h ;4304 ld e,l ;4307 ld (ix-2),e ;4308 ld a,e ;430b cp 005h ;430c jr z,l4323h ;430e cp 077h ;4310 jr z,l4323h ;4312 cp 073h ;4314 jr nz,l4328h ;4316 ld iy,(word_9dcb) ;4318 ld a,(iy+014h) ;431c cp 02dh ;431f jr nz,l4328h ;4321 l4323h: ; m1: ld hl,00001h ;4323 jr l432bh ;4326 l4328h: ; m2: ld hl,00000h ;4328 l432bh: ; m3: ld a,l ;432b ld (ix-1),a ;432c or a ;432f ld a,(ix-2) ;4330 jr z,l437fh ;4333 ld (byte_9def),a ;4335 call sub_549ch ;4338 ld hl,00014h ;433b push hl ;433e call sub_5c19h ;433f pop bc ;4342 call sub_2671h ;4343 ld e,l ;4346 ld (ix-2),e ;4347 jr l437ch ;434a l434ch: ; m4: ld a,(ix-2) ;434c ld (byte_9def),a ;434f ld l,(ix+00ch) ;4352 ld h,(ix+00dh) ;4355 push hl ;4358 ld l,(ix+00ah) ;4359 ld h,(ix+00bh) ;435c push hl ;435f ld l,(ix+8) ;4360 ld h,(ix+9) ;4363 push hl ;4366 ld l,(ix+6) ;4367 ld h,(ix+7) ;436a push hl ;436d call sub_4126h ;436e pop bc ;4371 pop bc ;4372 pop bc ;4373 pop bc ;4374 call sub_2671h ;4375 ld e,l ;4378 ld (ix-2),e ;4379 l437ch: ; m5: ld a,(ix-2) ;437c l437fh: ; m6: cp 003h ;437f jr nz,l434ch ;4381 ld a,(ix-1) ;4383 or a ;4386 jp z,cret ;4387 call sub_54ach ;438a jp cret ;438d ; =============== F U N C T I O N ======================================= ; 87 ; sub_4390h: call csv ;4390 push hl ;4393 call sub_2671h ;4394 ld e,l ;4397 ld (ix-1),e ;4398 ld a,e ;439b cp 03eh ;439c jr z,l43aeh ;439e ld hl,l9561h ;43a0 ; push hl ;43a3 ; call errexpected ;43a4 ; errexpected("("); pop bc ;43a7 ; ld a,(ix-1) ;43a8 ld (byte_9def),a ;43ab l43aeh: ; m1: call sub_2671h ;43ae ld e,l ;43b1 ld (ix-1),e ;43b2 ld a,e ;43b5 cp 76h ;43b6 jr z,l43cah ;43b8 ld hl,l9563h ;43ba ; push hl ;43bd ; call errexpected ;43be ; errexpected("string"); pop bc ;43c1 ; ld a,(ix-1) ;43c2 ld (byte_9def),a ;43c5 jr l43deh ;43c8 l43cah: ; m2: ld hl,(word_9dcb) ;43ca push hl ;43cd ld hl,l956ah ;43ce ; ";; %s\n" push hl ;43d1 ; call _printf ;43d2 ; printf(); pop bc ;43d5 ; ld hl,(word_9dcb) ;43d6 ex (sp),hl ;43d9 call free ;43da pop bc ;43dd l43deh: ; m3: call sub_2671h ;43de ld e,l ;43e1 ld (ix-1),e ;43e2 ld a,e ;43e5 cp 29h ;43e6 jr z,l43f8h ;43e8 ld hl,l9571h ;43ea ; push hl ;43ed ; call errexpected ;43ee ; errexpected(")"); pop bc ;43f1 ; ld a,(ix-1) ;43f2 ld (byte_9def),a ;43f5 l43f8h: ; m4: ld hl,l9573h ;43f8 ";" push hl ;43fb ld hl,00002h ;43fc push hl ;43ff call sub_363fh ;4400 jp cret ;4403 ; =============== F U N C T I O N ======================================= ; 88 ; sub_4406h: call ncsv ;4406 defw 0fff9h ;4409 call sub_2671h ;440b ld e,l ;440e ld (ix-1),e ;440f ld a,e ;4412 cp 3eh ;4413 jr z,l4425h ;4415 ld hl,l9575h ;4417 ; push hl ;441a ; call errexpected ;441b ; errexpected("("); pop bc ;441e ; ld a,(ix-1) ;441f ld (byte_9def),a ;4422 l4425h: ; m1: call sub_5785h ;4425 ld (ix-3),l ;4428 ld (ix-2),h ;442b push hl ;442e call sub_4ce8h ;442f pop bc ;4432 call sub_5785h ;4433 ld (ix-7),l ;4436 ld (ix-6),h ;4439 push hl ;443c call sub_0258h ;443d pop bc ;4440 call sub_0bfch ;4441 push hl ;4444 pop iy ;4445 call sub_2671h ;4447 ld a,l ;444a ld (ix-1),a ;444b cp 3fh ;444e jr z,l4460h ;4450 ld hl,l9577h ;4452 ; push hl ;4455 ; call errexpected ;4456 ; errexpected(")"); pop bc ;4459 ; ld a,(ix-1) ;445a ld (byte_9def),a ;445d l4460h: ; m2: ld hl,00000h ;4460 push hl ;4463 ld l,(ix+6) ;4464 ld h,(ix+7) ;4467 push hl ;446a call sub_5785h ;446b ld (ix-5),l ;446e ld (ix-4),h ;4471 push hl ;4474 ld l,(ix-3) ;4475 ld h,(ix-2) ;4478 push hl ;447b call sub_4126h ;447c pop bc ;447f pop bc ;4480 pop bc ;4481 ld l,(ix-3) ;4482 ld h,(ix-2) ;4485 ex (sp),hl ;4488 call sub_0258h ;4489 ld hl,00001h ;448c ex (sp),hl ;448f push iy ;4490 ld l,(ix-7) ;4492 ld h,(ix-6) ;4495 push hl ;4498 call sub_4d15h ;4499 pop bc ;449c pop bc ;449d ld l,(ix-5) ;449e ld h,(ix-4) ;44a1 ex (sp),hl ;44a4 call sub_0258h ;44a5 xor a ;44a8 ld (0a28ah),a ;44a9 jp cret ;44ac ; =============== F U N C T I O N ======================================= ; 89 ; sub_44afh: call ncsv ;44af defw 0fff9h ;44b2 call sub_5785h ;44b4 ld (ix-3),l ;44b7 ld (ix-2),h ;44ba call sub_5785h ;44bd ld (ix-5),l ;44c0 ld (ix-4),h ;44c3 call sub_5785h ;44c6 ld (ix-7),l ;44c9 ld (ix-6),h ;44cc push hl ;44cf call sub_0258h ;44d0 ld hl,00000h ;44d3 ex (sp),hl ;44d6 ld l,(ix+6) ;44d7 ld h,(ix+7) ;44da push hl ;44dd ld l,(ix-5) ;44de ld h,(ix-4) ;44e1 push hl ;44e4 ld l,(ix-3) ;44e5 ld h,(ix-2) ;44e8 push hl ;44eb call sub_4126h ;44ec pop bc ;44ef pop bc ;44f0 pop bc ;44f1 ld l,(ix-3) ;44f2 ld h,(ix-2) ;44f5 ex (sp),hl ;44f8 call sub_0258h ;44f9 pop bc ;44fc call sub_2671h ;44fd ld e,l ;4500 ld (ix-1),e ;4501 ld a,e ;4504 cp 31h ;4505 jr z,l4511h ;4507 ld hl,l9579h ;4509 ; push hl ;450c ; call errexpected ;450d ; errexpected("while"); pop bc ;4510 ; l4511h: ; m1: ld a,(ix-1) ;4511 cp 31h ;4514 jr z,l451dh ;4516 cp 21h ;4518 jp nz,l4583h ;451a l451dh: ; m2: call sub_2671h ;451d ld e,l ;4520 ld (ix-1),e ;4521 l4524h: ; m3: ld a,(ix-1) ;4524 cp 3eh ;4527 jr z,l4539h ;4529 ld hl,l957fh ;452b ; push hl ;452e ; call errexpected ;452f ; errexpected("("); pop bc ;4532 ; ld a,(ix-1) ;4533 ld (byte_9def),a ;4536 l4539h: ; m4: call sub_0bfch ;4539 push hl ;453c pop iy ;453d ld hl,l9581h ;453f ")" push hl ;4542 ld hl,0003fh ;4543 push hl ;4546 call sub_363fh ;4547 pop bc ;454a ld hl,00001h ;454b ex (sp),hl ;454e push iy ;454f ld l,(ix-7) ;4551 ld h,(ix-6) ;4554 push hl ;4557 call sub_4d15h ;4558 pop bc ;455b pop bc ;455c ld l,(ix-5) ;455d ld h,(ix-4) ;4560 ex (sp),hl ;4563 call sub_0258h ;4564 pop bc ;4567 xor a ;4568 ld (0a28ah),a ;4569 call sub_2671h ;456c ld e,l ;456f ld (ix-1),e ;4570 ld a,e ;4573 cp 2 ;4574 jp z,cret ;4576 ld hl,l9583h ;4579 ; push hl ;457c ; call errexpected ;457d ; errexpected(";"); jp cret ;4580 ; l4583h: ; m5: ld a,(ix-1) ;4583 cp 03eh ;4586 jr z,l4524h ;4588 ld l,a ;458a ld h,0 ;458b push hl ;458d call sub_3610h ;458e pop bc ;4591 jp cret ;4592 ; =============== F U N C T I O N ======================================= ; 90 ; sub_4595h: call ncsv ;4595 defw 0fffah ;4598 call sub_2671h ;459a ld e,l ;459d ld (ix-1),e ;459e ld a,e ;45a1 cp 3eh ;45a2 jr z,l45b4h ;45a4 ld hl,l9585h ;45a6 ; push hl ;45a9 ; call errexpected ;45aa ; errexpected("("); pop bc ;45ad ; ld a,(ix-1) ;45ae ld (byte_9def),a ;45b1 l45b4h: ; m1: call sub_0bfch ;45b4 push hl ;45b7 pop iy ;45b8 call sub_2671h ;45ba ld a,l ;45bd ld (ix-1),a ;45be cp 3fh ;45c1 jr z,l45d3h ;45c3 ld hl,l9587h ;45c5 ; push hl ;45c8 ; call errexpected ;45c9 ; errexpected(")"); pop bc ;45cc ; ld a,(ix-1) ;45cd ld (byte_9def),a ;45d0 l45d3h: ; m2: call sub_5785h ;45d3 ld (ix-5),l ;45d6 ld (ix-4),h ;45d9 ld hl,00000h ;45dc push hl ;45df push iy ;45e0 ld l,(ix-5) ;45e2 ld h,(ix-4) ;45e5 push hl ;45e8 call sub_4d15h ;45e9 pop bc ;45ec pop bc ;45ed ld l,(ix+00ch) ;45ee ld h,(ix+00dh) ;45f1 ex (sp),hl ;45f4 ld l,(ix+00ah) ;45f5 ld h,(ix+00bh) ;45f8 push hl ;45fb ld l,(ix+8) ;45fc ld h,(ix+9) ;45ff push hl ;4602 ld l,(ix+6) ;4603 ld h,(ix+7) ;4606 push hl ;4609 call sub_4126h ;460a pop bc ;460d pop bc ;460e pop bc ;460f pop bc ;4610 ld a,(0a28ah) ;4611 ld (ix-6),a ;4614 xor a ;4617 ld (0a28ah),a ;4618 call sub_2671h ;461b ld e,l ;461e ld (ix-1),e ;461f ld a,e ;4622 cp 01ch ;4623 jp nz,l4688h ;4625 call sub_5785h ;4628 ld (ix-3),l ;462b ld (ix-2),h ;462e push hl ;4631 call sub_4ce8h ;4632 ld l,(ix-5) ;4635 ld h,(ix-4) ;4638 ex (sp),hl ;463b call sub_0258h ;463c ld l,(ix+00ch) ;463f ld h,(ix+00dh) ;4642 ex (sp),hl ;4645 ld l,(ix+00ah) ;4646 ld h,(ix+00bh) ;4649 push hl ;464c ld l,(ix+8) ;464d ld h,(ix+9) ;4650 push hl ;4653 ld l,(ix+6) ;4654 ld h,(ix+7) ;4657 push hl ;465a call sub_4126h ;465b pop bc ;465e pop bc ;465f pop bc ;4660 pop bc ;4661 ld a,(0a28ah) ;4662 or a ;4665 jr z,l4673h ;4666 ld a,(ix-6) ;4668 or a ;466b jr z,l4673h ;466c ld hl,00001h ;466e jr l4676h ;4671 l4673h: ; m3: ld hl,00000h ;4673 l4676h: ; m4: ld a,l ;4676 ld (0a28ah),a ;4677 ld l,(ix-3) ;467a ld h,(ix-2) ;467d push hl ;4680 call sub_0258h ;4681 pop bc ;4684 jp cret ;4685 l4688h: ; m5: ld a,(ix-1) ;4688 ld (byte_9def),a ;468b ld l,(ix-5) ;468e ld h,(ix-4) ;4691 push hl ;4694 call sub_0258h ;4695 jp cret ;4698 ; =============== F U N C T I O N ======================================= ; 91 ; sub_469bh: call ncsv ;469b defw 0fbf5h ;469e call sub_2671h ;46a0 ld a,l ;46a3 ld (ix-1),a ;46a4 cp 3eh ;46a7 jr z,l46b9h ;46a9 ld hl,l9589h ;46ab ; push hl ;46ae ; call errexpected ;46af ; errexpected("("); pop bc ;46b2 ; ld a,(ix-1) ;46b3 ld (byte_9def),a ;46b6 l46b9h: ; m1: ld (ix-7),0 ;46b9 ld (ix-6),0 ;46bd push ix ;46c1 pop de ;46c3 ld hl,0fbf9h ;46c4 add hl,de ;46c7 ld de,00000h ;46c8 ld (hl),e ;46cb inc hl ;46cc ld (hl),d ;46cd push de ;46ce push ix ;46cf pop de ;46d1 ld hl,0fbf7h ;46d2 add hl,de ;46d5 pop de ;46d6 ld (hl),e ;46d7 inc hl ;46d8 ld (hl),d ;46d9 call sub_0bfch ;46da push hl ;46dd ld hl,0003ch ;46de push hl ;46e1 call sub_1441h ;46e2 pop bc ;46e5 pop bc ;46e6 push hl ;46e7 push ix ;46e8 pop de ;46ea ld hl,0fbf5h ;46eb add hl,de ;46ee pop de ;46ef ld (hl),e ;46f0 inc hl ;46f1 ld (hl),d ;46f2 ld a,e ;46f3 or d ;46f4 jr z,l4733h ;46f5 push ix ;46f7 pop de ;46f9 ld hl,0fbf5h ;46fa add hl,de ;46fd ld c,(hl) ;46fe inc hl ;46ff ld b,(hl) ;4700 ld hl,0x0005 ;4701 add hl,bc ;4704 push hl ;4705 pop iy ;4706 ld hl,00012h ;4708 push hl ;470b push iy ;470c call sub_5a76h ;470e pop bc ;4711 pop bc ;4712 ld a,l ;4713 or a ;4714 jr nz,l4733h ;4715 push iy ;4717 call sub_5b08h ;4719 pop bc ;471c ld a,l ;471d or a ;471e jr z,l472bh ;471f ld b,00ah ;4721 ld a,(iy+6) ;4723 call brelop ;4726 jr c,l4733h ;4729 l472bh: ; m2: ld hl,l958bh ;472b ; push hl ;472e ; call prerror ;472f ; prerror("illegal type for switch expression"); pop bc ;4732 ; l4733h: ; m3: call sub_2671h ;4733 ld a,l ;4736 ld (ix-1),a ;4737 cp 03fh ;473a jr z,l474ch ;473c ld hl,l95aeh ;473e ; push hl ;4741 ; call errexpected ;4742 ; errexpected(")"); pop bc ;4745 ; ld a,(ix-1) ;4746 ld (byte_9def),a ;4749 l474ch: ; m4: call sub_5785h ;474c ld (ix-3),l ;474f ld (ix-2),h ;4752 call sub_5785h ;4755 ld (ix-5),l ;4758 ld (ix-4),h ;475b push hl ;475e call sub_4ce8h ;475f ld a,001h ;4762 ld (0a28ah),a ;4764 push ix ;4767 pop de ;4769 ld hl,0fff9h ;476a add hl,de ;476d ex (sp),hl ;476e push ix ;476f pop de ;4771 ld hl,0fbf5h ;4772 add hl,de ;4775 push hl ;4776 ld l,(ix-3) ;4777 ld h,(ix-2) ;477a push hl ;477d ld l,(ix+6) ;477e ld h,(ix+7) ;4781 push hl ;4784 call sub_4126h ;4785 pop bc ;4788 pop bc ;4789 pop bc ;478a pop bc ;478b push ix ;478c pop de ;478e ld hl,0fbf9h ;478f add hl,de ;4792 ld a,(hl) ;4793 inc hl ;4794 or (hl) ;4795 jr nz,l47b0h ;4796 push ix ;4798 pop de ;479a ld hl,0fbf9h ;479b add hl,de ;479e ld e,(ix-3) ;479f ld d,(ix-2) ;47a2 ld (hl),e ;47a5 inc hl ;47a6 ld (hl),d ;47a7 ld (ix-7),1 ;47a8 ld (ix-6),0 ;47ac l47b0h: ; m5: ld l,(ix-3) ;47b0 ld h,(ix-2) ;47b3 push hl ;47b6 call sub_4ce8h ;47b7 ld l,(ix-5) ;47ba ld h,(ix-4) ;47bd ex (sp),hl ;47c0 call sub_0258h ;47c1 push ix ;47c4 pop de ;47c6 ld hl,0fbf5h ;47c7 add hl,de ;47ca ex (sp),hl ;47cb call sub_02a6h ;47cc pop bc ;47cf push ix ;47d0 pop de ;47d2 ld hl,0fbf5h ;47d3 add hl,de ;47d6 ld c,(hl) ;47d7 inc hl ;47d8 ld b,(hl) ;47d9 push bc ;47da call sub_2569h ;47db pop bc ;47de push ix ;47df pop de ;47e1 ld hl,0fbf7h ;47e2 add hl,de ;47e5 ld c,(hl) ;47e6 inc hl ;47e7 ld b,(hl) ;47e8 ld (ix-009h),c ;47e9 ld (ix-8),b ;47ec jr l4809h ;47ef l47f1h: ; m6: push ix ;47f1 pop de ;47f3 ld l,(ix-009h) ;47f4 ld h,(ix-8) ;47f7 add hl,hl ;47fa add hl,hl ;47fb add hl,de ;47fc ld de,0fbfbh ;47fd add hl,de ;4800 ld c,(hl) ;4801 inc hl ;4802 ld b,(hl) ;4803 push bc ;4804 call sub_2569h ;4805 pop bc ;4808 l4809h: ; m7: ld l,(ix-009h) ;4809 ld h,(ix-8) ;480c dec hl ;480f ld (ix-009h),l ;4810 ld (ix-8),h ;4813 bit 7,h ;4816 jr z,l47f1h ;4818 ld l,(ix-3) ;481a ld h,(ix-2) ;481d push hl ;4820 call sub_0258h ;4821 pop bc ;4824 ld a,(ix-7) ;4825 or (ix-6) ;4828 ld hl,00001h ;482b jr z,l4831h ;482e dec hl ;4830 l4831h: ; m8: ld a,l ;4831 ld (0a28ah),a ;4832 jp cret ;4835 ; =============== F U N C T I O N ======================================= ; 92 ; sub_4838h: call ncsv ;4838 defw 0fff1h ;483b ld (ix-00ah),0 ;483d ld (ix-009h),0 ;4841 call sub_2671h ;4845 ld a,l ;4848 ld (ix-00bh),a ;4849 cp 03eh ;484c jr z,l4858h ;484e ld hl,l95b0h ;4850 ; push hl ;4853 ; call errexpected ;4854 ; errexpected("("); pop bc ;4857 ; l4858h: ; m1: call sub_2671h ;4858 ld a,l ;485b ld (ix-00bh),a ;485c cp 002h ;485f jr z,l488ch ;4861 ld (byte_9def),a ;4863 call sub_0bfch ;4866 push hl ;4869 ld hl,0003ch ;486a push hl ;486d call sub_1441h ;486e pop bc ;4871 push hl ;4872 pop iy ;4873 ex (sp),hl ;4875 call sub_042dh ;4876 pop bc ;4879 push iy ;487a call sub_2569h ;487c ld hl,l95b2h ;487f ";" ex (sp),hl ;4882 ld hl,00002h ;4883 push hl ;4886 call sub_363fh ;4887 pop bc ;488a pop bc ;488b l488ch: ; m2: call sub_2671h ;488c ld a,l ;488f ld (ix-00bh),a ;4890 cp 002h ;4893 jr z,l48bah ;4895 ld (ix-00ah),1 ;4897 ld (ix-009h),0 ;489b ld (byte_9def),a ;489f call sub_0bfch ;48a2 ld (ix-00dh),l ;48a5 ld (ix-00ch),h ;48a8 ld hl,l95b4h ;48ab ";" push hl ;48ae ld hl,00002h ;48af push hl ;48b2 call sub_363fh ;48b3 pop bc ;48b6 pop bc ;48b7 jr l48c2h ;48b8 l48bah: ; m3: ld (ix-00dh),0 ;48ba ld (ix-00ch),0 ;48be l48c2h: ; m4: call sub_2671h ;48c2 ld a,l ;48c5 ld (ix-00bh),a ;48c6 cp 03fh ;48c9 jr z,l48feh ;48cb ld (byte_9def),a ;48cd call sub_0bfch ;48d0 push hl ;48d3 ld hl,0003ch ;48d4 push hl ;48d7 call sub_1441h ;48d8 pop bc ;48db pop bc ;48dc ld (ix-00fh),l ;48dd ld (ix-00eh),h ;48e0 call sub_2671h ;48e3 ld a,l ;48e6 ld (ix-00bh),a ;48e7 cp 3fh ;48ea jr z,l4906h ;48ec ld hl,l95b6h ;48ee ; push hl ;48f1 ; call errexpected ;48f2 ; errexpected(")"); pop bc ;48f5 ; ld a,(ix-00bh) ;48f6 ld (byte_9def),a ;48f9 jr l4906h ;48fc l48feh: ; m5: ld (ix-00fh),0 ;48fe ld (ix-00eh),0 ;4902 l4906h: ; m6: call sub_5785h ;4906 ld (ix-6),l ;4909 ld (ix-5),h ;490c call sub_5785h ;490f ld (ix-4),l ;4912 ld (ix-3),h ;4915 call sub_5785h ;4918 ld (ix-2),l ;491b ld (ix-1),h ;491e ld a,(ix-00dh) ;4921 or (ix-00ch) ;4924 jr z,l4937h ;4927 call sub_5785h ;4929 ld (ix-8),l ;492c ld (ix-7),h ;492f push hl ;4932 call sub_4ce8h ;4933 pop bc ;4936 l4937h: ; m7: ld l,(ix-6) ;4937 ld h,(ix-5) ;493a push hl ;493d call sub_0258h ;493e push ix ;4941 pop de ;4943 ld hl,0fff6h ;4944 add hl,de ;4947 ex (sp),hl ;4948 ld l,(ix+6) ;4949 ld h,(ix+7) ;494c push hl ;494f ld l,(ix-4) ;4950 ld h,(ix-3) ;4953 push hl ;4956 ld l,(ix-2) ;4957 ld h,(ix-1) ;495a push hl ;495d call sub_4126h ;495e pop bc ;4961 pop bc ;4962 pop bc ;4963 ld l,(ix-2) ;4964 ld h,(ix-1) ;4967 ex (sp),hl ;496a call sub_0258h ;496b pop bc ;496e ld a,(ix-00fh) ;496f or (ix-00eh) ;4972 jr z,l498ch ;4975 ld l,(ix-00fh) ;4977 ld h,(ix-00eh) ;497a push hl ;497d call sub_042dh ;497e ld l,(ix-00fh) ;4981 ld h,(ix-00eh) ;4984 ex (sp),hl ;4987 call sub_2569h ;4988 pop bc ;498b l498ch: ; m8: ld a,(ix-00dh) ;498c or (ix-00ch) ;498f jr z,l49b8h ;4992 ld l,(ix-8) ;4994 ld h,(ix-7) ;4997 push hl ;499a call sub_0258h ;499b ld hl,00001h ;499e ex (sp),hl ;49a1 ld l,(ix-00dh) ;49a2 ld h,(ix-00ch) ;49a5 push hl ;49a8 ld l,(ix-6) ;49a9 ld h,(ix-5) ;49ac push hl ;49af call sub_4d15h ;49b0 pop bc ;49b3 pop bc ;49b4 pop bc ;49b5 jr l49c3h ;49b6 l49b8h: ; m9: ld l,(ix-6) ;49b8 ld h,(ix-5) ;49bb push hl ;49be call sub_4ce8h ;49bf pop bc ;49c2 l49c3h: ; m10: ld l,(ix-4) ;49c3 ld h,(ix-3) ;49c6 push hl ;49c9 call sub_0258h ;49ca pop bc ;49cd ld a,(ix-00ah) ;49ce or (ix-009h) ;49d1 ld hl,00001h ;49d4 jr z,l49dah ;49d7 dec hl ;49d9 l49dah: ; m11: ld a,l ;49da ld (0a28ah),a ;49db jp cret ;49de ; =============== F U N C T I O N ======================================= ; 93 ; sub_49e1h: call csv ;49e1 push hl ;49e4 ld a,(ix+6) ;49e5 or (ix+7) ;49e8 jr z,l49ffh ;49eb ld l,(ix+6) ;49ed ld h,(ix+7) ;49f0 push hl ;49f3 call sub_4ce8h ;49f4 pop bc ;49f7 ld a,1 ;49f8 ld (0a28ah),a ;49fa jr l4a07h ;49fd l49ffh: ; m1: ld hl,l95b8h ;49ff ; push hl ;4a02 ; call prerror ;4a03 ; prerror("inappropriate break/continue"); pop bc ;4a06 ; l4a07h: ; m2: call sub_2671h ;4a07 ld e,l ;4a0a ld (ix-1),e ;4a0b ld a,e ;4a0e cp 2 ;4a0f jp z,cret ;4a11 ld hl,l95d5h ;4a14 ; push hl ;4a17 ; call errexpected ;4a18 ; errexpected(";"); jp cret ;4a1b ; ; =============== F U N C T I O N ======================================= ; 94 ; sub_4a1eh: call csv ;4a1e push hl ;4a21 ld l,(ix+00ah) ;4a22 ld h,(ix+00bh) ;4a25 push hl ;4a28 pop iy ;4a29 call sub_2671h ;4a2b ld e,l ;4a2e ld (ix-1),e ;4a2f ld a,e ;4a32 cp 63h ;4a33 jr z,l4a3fh ;4a35 ld hl,l95d7h ;4a37 ; push hl ;4a3a ; call errexpected ;4a3b ; errexpected(":"); pop bc ;4a3e ; l4a3fh: ; m1: push iy ;4a3f pop hl ;4a41 ld a,l ;4a42 or h ;4a43 jr z,l4a67h ;4a44 ld a,(iy+4) ;4a46 or (iy+5) ;4a49 jr z,l4a58h ;4a4c ld hl,l95d9h ;4a4e ; push hl ;4a51 ; call prerror ;4a52 ; prerror("default case redefined"); l4a55h: ; m2: pop bc ;4a55 ; jr l4a6fh ;4a56 l4a58h: ; m3: call sub_5785h ;4a58 ld (iy+4),l ;4a5b ld (iy+5),h ;4a5e push hl ;4a61 call sub_0258h ;4a62 jr l4a55h ;4a65 l4a67h: ; m4: ld hl,l95f0h ;4a67 ; push hl ;4a6a ; call prerror ;4a6b ; prerror("'default' not in switch"); pop bc ;4a6e ; l4a6fh: ; m5: xor a ;4a6f ld (0a28ah),a ;4a70 ld l,(ix+00ch) ;4a73 ld h,(ix+00dh) ;4a76 push hl ;4a79 push iy ;4a7a ld l,(ix+8) ;4a7c ld h,(ix+9) ;4a7f push hl ;4a82 ld l,(ix+6) ;4a83 ld h,(ix+7) ;4a86 push hl ;4a89 call sub_4126h ;4a8a jp cret ;4a8d ; =============== F U N C T I O N ======================================= ; 95 ; sub_4a90h: call ncsv ;4a90 defw 0fff7h ;4a93 ld l,(ix+00ah) ;4a95 ld h,(ix+00bh) ;4a98 push hl ;4a9b pop iy ;4a9c ld hl,00001h ;4a9e push hl ;4aa1 call sub_0a83h ;4aa2 pop bc ;4aa5 ld (ix-3),l ;4aa6 ld (ix-2),h ;4aa9 call sub_2671h ;4aac ld a,l ;4aaf ld (ix-1),a ;4ab0 cp 063h ;4ab3 jr z,l4ac5h ;4ab5 ld hl,l9608h ;4ab7 ; push hl ;4aba ; call errexpected ;4abb ; errexpected( ":"); pop bc ;4abe ; ld a,(ix-1) ;4abf ld (byte_9def),a ;4ac2 l4ac5h: ; m1: call sub_5785h ;4ac5 ld (ix-5),l ;4ac8 ld (ix-4),h ;4acb push hl ;4ace call sub_0258h ;4acf pop bc ;4ad2 push iy ;4ad3 pop hl ;4ad5 ld a,l ;4ad6 or h ;4ad7 jp z,l4b81h ;4ad8 ld de,000ffh ;4adb ld l,(iy+2) ;4ade ld h,(iy+3) ;4ae1 inc hl ;4ae4 ld (iy+2),l ;4ae5 ld (iy+3),h ;4ae8 dec hl ;4aeb ld (ix-7),l ;4aec ld (ix-6),h ;4aef or a ;4af2 sbc hl,de ;4af3 jr nz,l4affh ;4af5 ld hl,l960ah ;4af7 ; push hl ;4afa ; call fatalerror ;4afb ; fatalerror("Too many cases in switch"); pop bc ;4afe ; l4affh: ; m2: push iy ;4aff pop de ;4b01 ld l,(ix-7) ;4b02 ld h,(ix-6) ;4b05 add hl,hl ;4b08 add hl,hl ;4b09 add hl,de ;4b0a ld de,00006h ;4b0b add hl,de ;4b0e ld (ix-009h),l ;4b0f ld (ix-8),h ;4b12 ld e,(ix-5) ;4b15 ld d,(ix-4) ;4b18 inc hl ;4b1b inc hl ;4b1c ld (hl),e ;4b1d inc hl ;4b1e ld (hl),d ;4b1f ld a,(ix-3) ;4b20 or (ix-2) ;4b23 jp z,l4b89h ;4b26 ld a,(iy+0) ;4b29 or (iy+1) ;4b2c jp z,l4b89h ;4b2f ld l,(ix-3) ;4b32 ld h,(ix-2) ;4b35 push hl ;4b38 ld e,(iy+0) ;4b39 ld d,(iy+1) ;4b3c ld hl,0x0005 ;4b3f add hl,de ;4b42 push hl ;4b43 call sub_24b6h ;4b44 ex (sp),hl ;4b47 ld hl,0007dh ;4b48 push hl ;4b4b call sub_1441h ;4b4c pop bc ;4b4f pop bc ;4b50 pop bc ;4b51 ld (ix-3),l ;4b52 ld (ix-2),h ;4b55 inc hl ;4b58 inc hl ;4b59 inc hl ;4b5a ld c,(hl) ;4b5b inc hl ;4b5c ld b,(hl) ;4b5d ld l,(ix-009h) ;4b5e ld h,(ix-8) ;4b61 ld (hl),c ;4b64 inc hl ;4b65 ld (hl),b ;4b66 ld de,00000h ;4b67 ld l,(ix-3) ;4b6a ld h,(ix-2) ;4b6d inc hl ;4b70 inc hl ;4b71 inc hl ;4b72 ld (hl),e ;4b73 inc hl ;4b74 ld (hl),d ;4b75 dec hl ;4b76 dec hl ;4b77 dec hl ;4b78 dec hl ;4b79 push hl ;4b7a call sub_2569h ;4b7b pop bc ;4b7e jr l4b89h ;4b7f l4b81h: ; m3: ld hl,l9623h ;4b81 ; push hl ;4b84 ; call prerror ;4b85 ; prerror("'case' not in switch"); pop bc ;4b88 ; l4b89h: ; m4: xor a ;4b89 ld (0a28ah),a ;4b8a ld l,(ix+00ch) ;4b8d ld h,(ix+00dh) ;4b90 push hl ;4b93 push iy ;4b94 ld l,(ix+8) ;4b96 ld h,(ix+9) ;4b99 push hl ;4b9c ld l,(ix+6) ;4b9d ld h,(ix+7) ;4ba0 push hl ;4ba3 call sub_4126h ;4ba4 jp cret ;4ba7 ; =============== F U N C T I O N ======================================= ; 96 ; sub_4baah: call csv ;4baa push hl ;4bad call sub_2671h ;4bae ld e,l ;4bb1 ld (ix-1),e ;4bb2 ld a,e ;4bb5 cp 002h ;4bb6 jr z,l4be6h ;4bb8 ld (byte_9def),a ;4bba call sub_0bfch ;4bbd push hl ;4bc0 ld hl,0003ch ;4bc1 push hl ;4bc4 call sub_1441h ;4bc5 pop bc ;4bc8 ex (sp),hl ;4bc9 call sub_4d67h ;4bca pop bc ;4bcd call sub_2671h ;4bce ld a,l ;4bd1 cp 2 ;4bd2 jr z,l4bf4h ;4bd4 ld hl,l9638h ;4bd6 ; push hl ;4bd9 ; call errexpected ;4bda ; errexpected(";"); pop bc ;4bdd ; ld a,(ix-1) ;4bde ld (byte_9def),a ;4be1 jr l4bf4h ;4be4 l4be6h: ; m1: ld a,(byte_a289) ;4be6 or a ;4be9 jr nz,l4bf4h ;4bea ld hl,l963ah ;4bec ; push hl ;4bef ; call prwarning ;4bf0 ; prwarning("non-void function returns no value"); pop bc ;4bf3 ; l4bf4h: ; m2: ld hl,(0a28bh) ;4bf4 push hl ;4bf7 call sub_4ce8h ;4bf8 ld a,001h ;4bfb ld (0a28ah),a ;4bfd jp cret ;4c00 ; =============== F U N C T I O N ======================================= ; 97 ; sub_4c03h: call csv ;4c03 push hl ;4c06 call sub_2671h ;4c07 ld e,l ;4c0a ld (ix-1),e ;4c0b ld a,e ;4c0e cp 73h ;4c0f jr z,l4c1eh ;4c11 ld hl,l965dh ;4c13 ; push hl ;4c16 ; call errexpected ;4c17 ; errexpected("label identifier"); pop bc ;4c1a ; jp cret ;4c1b ; return; l4c1eh: ; m1: ld hl,(word_9dcb) ;4c1e push hl ;4c21 call sub_4ca4h ;4c22 pop bc ;4c25 push hl ;4c26 pop iy ;4c27 ld a,l ;4c29 or h ;4c2a jr z,l4c3ch ;4c2b ld l,(iy+0) ;4c2d ld h,(iy+1) ;4c30 push hl ;4c33 call sub_4ce8h ;4c34 pop bc ;4c37 set 1,(iy+012h) ;4c38 l4c3ch: ; m2: ld a,1 ;4c3c ld (0a28ah),a ;4c3e call sub_2671h ;4c41 ld a,l ;4c44 ld (ix-1),a ;4c45 cp 2 ;4c48 jp z,cret ;4c4a ld hl,l966eh ;4c4d ; push hl ;4c50 ; call errexpected ;4c51 ; errexpected(";"); jp cret ;4c54 ; ; =============== F U N C T I O N ======================================= ; 98 ; sub_4c57h: call csv ;4c57 ld l,(ix+6) ;4c5a ld h,(ix+7) ;4c5d push hl ;4c60 pop iy ;4c61 push hl ;4c63 call sub_4ca4h ;4c64 pop bc ;4c67 push hl ;4c68 pop iy ;4c69 ld a,l ;4c6b or h ;4c6c jr z,l4c7eh ;4c6d ld l,(iy+0) ;4c6f ld h,(iy+1) ;4c72 push hl ;4c75 call sub_0258h ;4c76 pop bc ;4c79 set 0,(iy+012h) ;4c7a l4c7eh: ; m1: xor a ;4c7e ld (0a28ah),a ;4c7f ld l,(ix+00eh) ;4c82 ld h,(ix+00fh) ;4c85 push hl ;4c88 ld l,(ix+00ch) ;4c89 ld h,(ix+00dh) ;4c8c push hl ;4c8f ld l,(ix+00ah) ;4c90 ld h,(ix+00bh) ;4c93 push hl ;4c96 ld l,(ix+8) ;4c97 ld h,(ix+9) ;4c9a push hl ;4c9d call sub_4126h ;4c9e jp cret ;4ca1 ; =============== F U N C T I O N ======================================= ; 99 ; sub_4ca4h: call csv ;4ca4 ld l,(ix+6) ;4ca7 ld h,(ix+7) ;4caa push hl ;4cad pop iy ;4cae ld a,(iy+014h) ;4cb0 or a ;4cb3 jr z,l4cd0h ;4cb4 cp 7 ;4cb6 jr z,l4ce2h ;4cb8 ld l,(iy+017h) ;4cba ld h,(iy+018h) ;4cbd push hl ;4cc0 ld hl,l9670h ;4cc1 ; "not a label identifier: %s" push hl ;4cc4 ; call prerror ;4cc5 ; prerror(); pop bc ;4cc8 ; pop bc ;4cc9 ; ld hl,00000h ;4cca jp cret ;4ccd l4cd0h: ; m1: ld hl,00007h ;4cd0 push hl ;4cd3 push iy ;4cd4 call sub_4eedh ;4cd6 pop bc ;4cd9 pop bc ;4cda push hl ;4cdb pop iy ;4cdc ld (iy+015h),1 ;4cde l4ce2h: ; m2: push iy ;4ce2 pop hl ;4ce4 jp cret ;4ce5 ; =============== F U N C T I O N ======================================= ; 100 ; sub_4ce8h: call csv ;4ce8 ld e,(ix+6) ;4ceb ld d,(ix+7) ;4cee ld a,d ;4cf1 rla ;4cf2 sbc a,a ;4cf3 ld l,a ;4cf4 ld h,a ;4cf5 push hl ;4cf6 push de ;4cf7 call sub_248ah ;4cf8 pop bc ;4cfb ex (sp),hl ;4cfc ld hl,0007ah ;4cfd push hl ;4d00 call sub_1441h ;4d01 pop bc ;4d04 push hl ;4d05 pop iy ;4d06 ex (sp),hl ;4d08 call sub_042dh ;4d09 pop bc ;4d0c push iy ;4d0d call sub_2569h ;4d0f jp cret ;4d12 ; =============== F U N C T I O N ======================================= ; 101 ; sub_4d15h: ; void sub_4d15h(int p1, register struct bbb * st, char c) { call csv ;4d15 ; ld l,(ix+8) ;4d18 ; ld h,(ix+9) ;p2 ;4d1b ; push hl ;4d1e ; pop iy ;4d1f ; ld a,l ;4d21 ; or h ;4d22 ; jp z,cret ;4d23 ; if(st == 0) return; ld a,(ix+00ah) ;p3 ;4d26 ; or a ;4d29 ; jr nz,l4d3ah ;4d2a ; if(c != 0) goto m1; push iy ;4d2c ; ld hl,00048h ;4d2e ; push hl ;4d31 ; call sub_1441h ;4d32 ; pop bc ;4d35 ; pop bc ;4d36 ; push hl ;4d37 ; pop iy ;4d38 ; st = sub_1441h(0x48, st); l4d3ah: ; m1: ld e,(ix+6) ;4d3a ld d,(ix+7) ;p1 ;4d3d ld a,d ;4d40 rla ;4d41 sbc a,a ;4d42 ld l,a ;4d43 ld h,a ;4d44 push hl ;4d45 push de ;4d46 call sub_248ah ;4d47 ; pop bc ;4d4a ex (sp),hl ;4d4b push iy ;4d4c ; ld hl,0007bh ;4d4e ; push hl ;4d51 ; call sub_1441h ;4d52 ; pop bc ;4d55 ; pop bc ;4d56 ; push hl ;4d57 ; pop iy ;4d58 ; st = sub_1441h(0x7b, st, sub_248ah(char(p1),p1)); ex (sp),hl ;4d5a ; call sub_042dh ;4d5b ; sub_042dh(st); pop bc ;4d5e ; push iy ;4d5f ; call sub_2569h ;4d61 ; sub_2569h(st); jp cret ;4d64 ; } ; =============== F U N C T I O N ======================================= ; 102 ; sub_4d67h: call csv ;4d67 ; void sub_4d67h(register struct bbb * st) { ld l,(ix+6) ;4d6a ; ld h,(ix+7) ;4d6d ; push hl ;4d70 ; pop iy ;4d71 ; ld a,l ;4d73 ; or h ;4d74 ; jp z,cret ;4d75 ; if(st == 0) return; push iy ;4d78 ; ld hl,00079h ;4d7a ; push hl ;4d7d ; call sub_1441h ;4d7e ; pop bc ;4d81 ; push hl ;4d82 ; pop iy ;4d83 ; st = sub_1441h(0x79, st); ex (sp),hl ;4d85 ; call sub_042dh ;4d86 ; sub_042dh(st); pop bc ;4d89 ; push iy ;4d8a ; call sub_2569h ;4d8c ; sub_2569h(st); jp cret ;4d8f ; } ; =============== F U N C T I O N ======================================= ; 103 ; sub_4d92h: ld hl,00000h ;4d92 ; void sub_4d92h() { ld (word_a291),hl ;4d95 ; ld (word_a293),hl ;4d98 ; word_a293 = word_a291 = 0; ld hl,21eh ;542 ;4d9b ; push hl ;4d9e ; call allocmem ;4d9f ; pop bc ;4da2 ; ld (word_a295),hl ;4da3 ; word_a295 = allocmem(0x21e); ret ;4da6 ; } ; =============== F U N C T I O N ======================================= ; 104 ; sub_4da7h: call ncsv ;4da7 defw 0fff9h ;4daa ld (ix-6),0 ;4dac ld (ix-5),0 ;4db0 ld l,(ix+6) ;4db4 ld h,(ix+7) ;4db7 ld (ix-4),l ;4dba ld (ix-3),h ;4dbd jr l4de7h ;4dc0 l4dc2h: ; m1: ld e,(ix-6) ;4dc2 ld d,(ix-5) ;4dc5 ld l,(ix-4) ;4dc8 ld h,(ix-3) ;4dcb ld l,(hl) ;4dce ld h,0 ;4dcf add hl,de ;4dd1 ex de,hl ;4dd2 add hl,de ;4dd3 ld (ix-6),l ;4dd4 ld (ix-5),h ;4dd7 ld l,(ix-4) ;4dda ld h,(ix-3) ;4ddd inc hl ;4de0 ld (ix-4),l ;4de1 ld (ix-3),h ;4de4 l4de7h: ; m2: ld l,(ix-4) ;4de7 ld h,(ix-3) ;4dea ld a,(hl) ;4ded or a ;4dee jr nz,l4dc2h ;4def ld de,l010fh ;4df1 ld l,(ix-6) ;4df4 ld h,(ix-5) ;4df7 call lmod ;4dfa add hl,hl ;4dfd ld de,(word_a295) ;4dfe add hl,de ;4e02 ld (ix-2),l ;4e03 ld (ix-1),h ;4e06 jr l4e77h ;4e09 l4e0bh: ; m3: ld a,(ix+6) ;4e0b or (ix+7) ;4e0e jr z,l4e6ah ;4e11 ld l,(ix+6) ;4e13 ld h,(ix+7) ;4e16 push hl ;4e19 ld l,(iy+017h) ;4e1a ld h,(iy+018h) ;4e1d push hl ;4e20 call strcmp ;4e21 pop bc ;4e24 pop bc ;4e25 ld a,l ;4e26 or h ;4e27 jr nz,l4e6ah ;4e28 ld a,(iy+014h) ;4e2a ld (ix-7),a ;4e2d cp 008h ;4e30 jr z,l4e3bh ;4e32 ld a,(ix-7) ;4e34 cp 009h ;4e37 jr nz,l4e40h ;4e39 l4e3bh: ; m4: ld de,00001h ;4e3b jr l4e43h ;4e3e l4e40h: ; m5: ld de,00000h ;4e40 l4e43h: ; m6: ld a,(l8f85h) ;4e43 ld l,a ;4e46 ld h,0 ;4e47 or a ;4e49 sbc hl,de ;4e4a ld a,(ix-7) ;4e4c jr nz,l4e67h ;4e4f cp 00ah ;4e51 ld de,00001h ;4e53 jr z,l4e59h ;4e56 dec de ;4e58 l4e59h: ; m7: ld a,(byte_8f86) ;4e59 ld l,a ;4e5c ld h,0 ;4e5d or a ;4e5f sbc hl,de ;4e60 jr z,l4e87h ;4e62 ld a,(ix-7) ;4e64 l4e67h: ; m8: or a ;4e67 jr z,l4e87h ;4e68 l4e6ah: ; m9: push iy ;4e6a pop de ;4e6c ld hl,00008h ;4e6d add hl,de ;4e70 ld (ix-2),l ;4e71 ld (ix-1),h ;4e74 l4e77h: ; m10: ld l,(ix-2) ;4e77 ld h,(ix-1) ;4e7a ld c,(hl) ;4e7d inc hl ;4e7e ld b,(hl) ;4e7f push bc ;4e80 pop iy ;4e81 ld a,c ;4e83 or b ;4e84 jr nz,l4e0bh ;4e85 l4e87h: ; m11: ld l,(ix-2) ;4e87 ld h,(ix-1) ;4e8a jp cret ;4e8d ; =============== F U N C T I O N ======================================= ; 105 ; sub_4e90h: call csv ;4e90 push hl ;4e93 ld l,(ix+6) ;4e94 ld h,(ix+7) ;4e97 push hl ;4e9a pop iy ;4e9b push hl ;4e9d call sub_4da7h ;4e9e pop bc ;4ea1 ld (ix-2),l ;4ea2 ld (ix-1),h ;4ea5 ld a,(hl) ;4ea8 inc hl ;4ea9 or (hl) ;4eaa jr nz,l4ebdh ;4eab push iy ;4ead call sub_5384h ;4eaf pop bc ;4eb2 ex de,hl ;4eb3 ld l,(ix-2) ;4eb4 ld h,(ix-1) ;4eb7 ld (hl),e ;4eba inc hl ;4ebb ld (hl),d ;4ebc l4ebdh: ; m1: ld hl,(word_9ff7) ;4ebd ld a,l ;4ec0 or h ;4ec1 jr z,l4ee0h ;4ec2 push iy ;4ec4 pop hl ;4ec6 ld a,l ;4ec7 or h ;4ec8 jr z,l4ee0h ;4ec9 ld hl,(word_a07f) ;4ecb push hl ;4ece push iy ;4ecf ld hl,l9690h ;4ed1 "%s %d\n" push hl ;4ed4 ld hl,(word_9ff7) ;4ed5 push hl ;4ed8 call _fprintf ;4ed9 pop bc ;4edc pop bc ;4edd pop bc ;4ede pop bc ;4edf l4ee0h: ; m2: ld l,(ix-2) ;4ee0 ld h,(ix-1) ;4ee3 ld a,(hl) ;4ee6 inc hl ;4ee7 ld h,(hl) ;4ee8 ld l,a ;4ee9 jp cret ;4eea ; =============== F U N C T I O N ======================================= ; 106 ; sub_4eedh: call ncsv ;4eed defw 0fffah ;4ef0 ld l,(ix+6) ;4ef2 ld h,(ix+7) ;4ef5 push hl ;4ef8 pop iy ;4ef9 ld a,(iy+014h) ;4efb or a ;4efe jp z,l5116h ;4eff ld a,(byte_a288) ;4f02 ld e,a ;4f05 ld a,(iy+015h) ;4f06 cp e ;4f09 jp nz,l50d7h ;4f0a ld a,(ix+8) ;4f0d cp 00ah ;4f10 jr nz,l4f2eh ;4f12 ld a,(iy+014h) ;4f14 cp 00ah ;4f17 jp nz,l50d7h ;4f19 ld e,(ix+00ch) ;4f1c ld d,(ix+00dh) ;4f1f ld l,(iy+00ah) ;4f22 ld h,(iy+00bh) ;4f25 or a ;4f28 sbc hl,de ;4f29 jp nz,l50d7h ;4f2b l4f2eh: ; m1: ld (ix-4),0 ;4f2e ld (ix-3),0 ;4f32 ld a,(ix+8) ;4f36 cp (iy+014h) ;4f39 jr z,l4f4ah ;4f3c ld hl,l9697h ;4f3e ; "storage class" l4f41h: ; m2: ld (ix-4),l ;4f41 ld (ix-3),h ;4f44 jp l4feah ;4f47 l4f4ah: ; m3: bit 4,(iy+012h) ;4f4a jp z,l4feah ;4f4e push iy ;4f51 ld l,(ix+00ah) ;4f53 ld h,(ix+00bh) ;4f56 push hl ;4f59 call sub_591dh ;4f5a pop bc ;4f5d pop bc ;4f5e ld a,l ;4f5f or a ;4f60 jr nz,l4f6ch ;4f61 ld hl,l96a5h ;4f63 ; "type" ld (ix-4),l ;4f66 ld (ix-3),h ;4f69 l4f6ch: ; m4: ld e,(ix+00ah) ;4f6c ld d,(ix+00bh) ;4f6f ld hl,00007h ;4f72 add hl,de ;4f75 ld a,(hl) ;4f76 cp 2 ;4f77 jp nz,l4feah ;4f79 ld l,e ;4f7c ld h,d ;4f7d inc hl ;4f7e inc hl ;4f7f ld a,(hl) ;4f80 inc hl ;4f81 or (hl) ;4f82 jr z,l4f92h ;4f83 ld a,(iy+2) ;4f85 or (iy+3) ;4f88 jr nz,l4f92h ;4f8b ld hl,l96aah ;4f8d ; "arguments" jr l4f41h ;4f90 l4f92h: ; m5: ld l,(ix+00ah) ;4f92 ld h,(ix+00bh) ;4f95 inc hl ;4f98 inc hl ;4f99 ld a,(hl) ;4f9a inc hl ;4f9b or (hl) ;4f9c jr z,l4feah ;4f9d ld l,(iy+2) ;4f9f ld h,(iy+3) ;4fa2 ld e,(hl) ;4fa5 inc hl ;4fa6 ld d,(hl) ;4fa7 ld l,(ix+00ah) ;4fa8 ld h,(ix+00bh) ;4fab inc hl ;4fae inc hl ;4faf ld a,(hl) ;4fb0 inc hl ;4fb1 ld h,(hl) ;4fb2 ld l,a ;4fb3 ld a,(hl) ;4fb4 inc hl ;4fb5 ld h,(hl) ;4fb6 ld l,a ;4fb7 or a ;4fb8 sbc hl,de ;4fb9 jr z,l4fc3h ;4fbb ld hl,l96b4h ;4fbd ; "no. of arguments" jp l4f41h ;4fc0 l4fc3h: ; m6: ld l,(ix+00ah) ;4fc3 ld h,(ix+00bh) ;4fc6 inc hl ;4fc9 inc hl ;4fca ld a,(hl) ;4fcb inc hl ;4fcc ld h,(hl) ;4fcd ld l,a ;4fce ld c,(hl) ;4fcf inc hl ;4fd0 ld b,(hl) ;4fd1 ld (ix-6),c ;4fd2 ld (ix-5),b ;4fd5 l4fd8h: ; m7: ld l,(ix-6) ;4fd8 ld h,(ix-5) ;4fdb dec hl ;4fde ld (ix-6),l ;4fdf ld (ix-5),h ;4fe2 inc hl ;4fe5 ld a,l ;4fe6 or h ;4fe7 jr nz,l500dh ;4fe8 l4feah: ; m8: ld a,(ix-4) ;4fea or (ix-3) ;4fed jr z,l5047h ;4ff0 ld l,(ix-4) ;4ff2 ld h,(ix-3) ;4ff5 push hl ;4ff8 ld l,(iy+017h) ;4ff9 ld h,(iy+018h) ;4ffc push hl ;4fff ld hl,l96cfh ;5000 ; "%s: %s redeclared" push hl ;5003 ; call prerror ;5004 ; prerror(); pop bc ;5007 ; pop bc ;5008 ; pop bc ;5009 jp l50d1h ;500a l500dh: ; m9: ld e,(iy+2) ;500d ld d,(iy+3) ;5010 ld l,(ix-6) ;5013 ld h,(ix-5) ;5016 add hl,hl ;5019 add hl,hl ;501a add hl,hl ;501b add hl,de ;501c inc hl ;501d inc hl ;501e push hl ;501f ld l,(ix+00ah) ;5020 ld h,(ix+00bh) ;5023 inc hl ;5026 inc hl ;5027 ld c,(hl) ;5028 inc hl ;5029 ld b,(hl) ;502a ld l,(ix-6) ;502b ld h,(ix-5) ;502e add hl,hl ;5031 add hl,hl ;5032 add hl,hl ;5033 add hl,bc ;5034 inc hl ;5035 inc hl ;5036 push hl ;5037 call sub_591dh ;5038 pop bc ;503b pop bc ;503c ld a,l ;503d or a ;503e jr nz,l4fd8h ;503f ld hl,l96c5h ;5041 "arguments" jp l4f41h ;5044 l5047h: ; m10: ld e,(ix+00ah) ;5047 ld d,(ix+00bh) ;504a ld hl,00007h ;504d add hl,de ;5050 ld a,(hl) ;5051 cp 001h ;5052 jr nz,l5089h ;5054 ld l,e ;5056 ld h,d ;5057 inc hl ;5058 inc hl ;5059 ld a,(hl) ;505a inc hl ;505b or (hl) ;505c jr z,l5089h ;505d ld e,(iy+2) ;505f ld d,(iy+3) ;5062 dec hl ;5065 ld a,(hl) ;5066 inc hl ;5067 ld h,(hl) ;5068 ld l,a ;5069 or a ;506a sbc hl,de ;506b jr z,l5089h ;506d ld l,e ;506f ld h,d ;5070 push hl ;5071 call sub_2569h ;5072 pop bc ;5075 ld l,(ix+00ah) ;5076 ld h,(ix+00bh) ;5079 inc hl ;507c inc hl ;507d l507eh: ; m11: ld c,(hl) ;507e inc hl ;507f ld b,(hl) ;5080 ld (iy+2),c ;5081 ld (iy+3),b ;5084 jr l50d1h ;5087 l5089h: ; m12: ld e,(ix+00ah) ;5089 ld d,(ix+00bh) ;508c ld hl,00007h ;508f add hl,de ;5092 ld a,(hl) ;5093 cp 002h ;5094 jr nz,l50d1h ;5096 ld a,(iy+2) ;5098 or (iy+3) ;509b ld l,e ;509e ld h,d ;509f inc hl ;50a0 inc hl ;50a1 jr z,l507eh ;50a2 ld a,(hl) ;50a4 inc hl ;50a5 or (hl) ;50a6 jr z,l50d1h ;50a7 ld e,(iy+2) ;50a9 ld d,(iy+3) ;50ac dec hl ;50af ld a,(hl) ;50b0 inc hl ;50b1 ld h,(hl) ;50b2 ld l,a ;50b3 or a ;50b4 sbc hl,de ;50b5 jr z,l50d1h ;50b7 ld l,e ;50b9 ld h,d ;50ba push hl ;50bb call sub_583ah ;50bc pop bc ;50bf ld l,(ix+00ah) ;50c0 ld h,(ix+00bh) ;50c3 inc hl ;50c6 inc hl ;50c7 ld c,(hl) ;50c8 inc hl ;50c9 ld b,(hl) ;50ca ld (iy+2),c ;50cb ld (iy+3),b ;50ce l50d1h: ; m13: push iy ;50d1 pop hl ;50d3 jp cret ;50d4 l50d7h: ; m14: ld l,(iy+017h) ;50d7 ld h,(iy+018h) ;50da push hl ;50dd call sub_4da7h ;50de ld (ix-2),l ;50e1 ld (ix-1),h ;50e4 ld l,(iy+017h) ;50e7 ld h,(iy+018h) ;50ea ex (sp),hl ;50ed call sub_5384h ;50ee pop bc ;50f1 ex de,hl ;50f2 ld l,(ix-2) ;50f3 ld h,(ix-1) ;50f6 ld (hl),e ;50f9 inc hl ;50fa ld (hl),d ;50fb push iy ;50fc pop de ;50fe dec hl ;50ff ld c,(hl) ;5100 inc hl ;5101 ld b,(hl) ;5102 ld hl,00008h ;5103 add hl,bc ;5106 ld (hl),e ;5107 inc hl ;5108 ld (hl),d ;5109 ld l,(ix-2) ;510a ld h,(ix-1) ;510d ld c,(hl) ;5110 inc hl ;5111 ld b,(hl) ;5112 push bc ;5113 pop iy ;5114 l5116h: ; m15: ld a,(ix+8) ;5116 ld (iy+014h),a ;5119 cp 007h ;511c jr z,l514eh ;511e cp 008h ;5120 jr z,l514eh ;5122 cp 009h ;5124 jr z,l514eh ;5126 cp 00ah ;5128 jr z,l515eh ;512a cp 00bh ;512c jr z,l50d1h ;512e cp 00ch ;5130 jr z,l515ah ;5132 cp 02dh ;5134 jr z,l513ch ;5136 set 4,(iy+012h) ;5138 l513ch: ; m16: ld l,(ix+00ah) ;513c ld h,(ix+00bh) ;513f push iy ;5142 pop de ;5144 push hl ;5145 ld bc,00008h ;5146 ldir ;5149 pop hl ;514b jr l50d1h ;514c l514eh: ; m17: call sub_5785h ;514e ld (iy+0),l ;5151 ld (iy+1),h ;5154 jp l50d1h ;5157 l515ah: ; m18: set 4,(iy+012h) ;515a l515eh: ; m19: ld l,(ix+00ch) ;515e ld h,(ix+00dh) ;5161 ld (iy+00ah),l ;5164 ld (iy+00bh),h ;5167 jr l513ch ;516a ; =============== F U N C T I O N ======================================= ; 107 ; sub_516ch: call csv ;516c ld l,(ix+6) ;516f ld h,(ix+7) ;5172 push hl ;5175 pop iy ;5176 ld a,l ;5178 or h ;5179 jp z,cret ;517a bit 7,(iy+012h) ;517d jp nz,cret ;5181 bit 0,(iy+012h) ;5184 jr z,l519ah ;5188 ld l,(iy+017h) ;518a ld h,(iy+018h) ;518d push hl ;5190 ld hl,l96e1h ;5191 ; "identifier redefined: %s" push hl ;5194 ; call prerror ;5195 ; prerror(); pop bc ;5198 ; pop bc ;5199 ; l519ah: ; m1: set 0,(iy+012h) ;519a ld hl,(word_9ff7) ;519e ld a,l ;51a1 or h ;51a2 jp z,cret ;51a3 ld a,(iy+017h) ;51a6 or (iy+018h) ;51a9 jp z,cret ;51ac bit 7,(iy+012h) ;51af jp nz,cret ;51b3 ld hl,(word_a07f) ;51b6 push hl ;51b9 ld l,(iy+017h) ;51ba ld h,(iy+018h) ;51bd push hl ;51c0 ld hl,l96fah ;51c1 ; "#%s %d\n" push hl ;51c4 ; ld hl,(word_9ff7) ;51c5 ; push hl ;51c8 ; call _fprintf ;51c9 ; jp cret ;51cc ; ; =============== F U N C T I O N ======================================= ; 108 ; sub_51cfh: call csv ;51cf ld l,(ix+6) ;51d2 ld h,(ix+7) ;51d5 push hl ;51d8 pop iy ;51d9 ld a,l ;51db or h ;51dc jp z,cret ;51dd set 1,(iy+012h) ;51e0 jp cret ;51e4 ; =============== F U N C T I O N ======================================= ; 109 ; sub_51e7h: call ncsv ;51e7 defw 0fffah ;51ea ld hl,(word_a28d) ;51ec inc hl ;51ef inc hl ;51f0 ld c,(hl) ;51f1 inc hl ;51f2 ld b,(hl) ;51f3 ld (ix-6),c ;51f4 ld (ix-5),b ;51f7 ld iy,(word_a28f) ;51fa jr l5252h ;51fe l5200h: ; m1: ld l,(iy+012h) ;5200 ld h,(iy+013h) ;5203 ld a,l ;5206 and 0d7h ;5207 ld l,a ;5209 ld (iy+012h),l ;520a ld a,(ix-6) ;520d or (ix-5) ;5210 jr z,l5219h ;5213 set 1,(iy+013h) ;5215 l5219h: ; m2: ld a,(iy+007h) ;5219 cp 001h ;521c jr nz,l523dh ;521e ld l,(iy+2) ;5220 ld h,(iy+3) ;5223 push hl ;5226 call sub_2569h ;5227 pop bc ;522a ld (iy+2),0 ;522b ld (iy+3),0 ;522f ld (iy+007h),0 ;5233 push iy ;5237 call sub_5be1h ;5239 pop bc ;523c l523dh: ; m3: push iy ;523d call sub_516ch ;523f pop bc ;5242 push iy ;5243 call sub_0493h ;5245 pop bc ;5248 ld l,(iy+00ah) ;5249 ld h,(iy+00bh) ;524c push hl ;524f pop iy ;5250 l5252h: ; m4: push iy ;5252 pop hl ;5254 ld a,l ;5255 or h ;5256 jr nz,l5200h ;5257 ld a,(ix-6) ;5259 or (ix-5) ;525c jp z,cret ;525f ld (ix-4),0 ;5262 ld (ix-3),0 ;5266 ld l,(ix-6) ;526a ld h,(ix-5) ;526d ld c,(hl) ;5270 inc hl ;5271 ld b,(hl) ;5272 ld (ix-2),c ;5273 ld (ix-1),b ;5276 ld de,00001h ;5279 ld l,c ;527c ld h,b ;527d or a ;527e sbc hl,de ;527f jr nz,l52a1h ;5281 ld hl,00014h ;5283 push hl ;5286 ld l,(ix-6) ;5287 ld h,(ix-5) ;528a inc hl ;528d inc hl ;528e push hl ;528f call sub_5a76h ;5290 pop bc ;5293 pop bc ;5294 ld a,l ;5295 or a ;5296 jr z,l52a1h ;5297 ld hl,(word_a28f) ;5299 ld a,l ;529c or h ;529d jp z,cret ;529e l52a1h: ; m5: ld iy,(word_a28f) ;52a1 jp l5303h ;52a5 l52a8h: ; m6: ld e,(ix-6) ;52a8 ld d,(ix-5) ;52ab ld l,(ix-4) ;52ae ld h,(ix-3) ;52b1 add hl,hl ;52b4 add hl,hl ;52b5 add hl,hl ;52b6 add hl,de ;52b7 ld de,00008h ;52b8 add hl,de ;52bb ld a,(hl) ;52bc cp 018h ;52bd jr nz,l52cfh ;52bf ld iy,00000h ;52c1 ld (ix-2),0 ;52c5 ld (ix-1),0 ;52c9 jr l531ch ;52cd l52cfh: ; m7: push iy ;52cf ld e,(ix-6) ;52d1 ld d,(ix-5) ;52d4 ld l,(ix-4) ;52d7 ld h,(ix-3) ;52da add hl,hl ;52dd add hl,hl ;52de add hl,hl ;52df add hl,de ;52e0 inc hl ;52e1 inc hl ;52e2 push hl ;52e3 call sub_591dh ;52e4 pop bc ;52e7 pop bc ;52e8 ld a,l ;52e9 or a ;52ea jr z,l531ch ;52eb ld l,(iy+00ah) ;52ed ld h,(iy+00bh) ;52f0 push hl ;52f3 pop iy ;52f4 ld l,(ix-4) ;52f6 ld h,(ix-3) ;52f9 inc hl ;52fc ld (ix-4),l ;52fd ld (ix-3),h ;5300 l5303h: ; m8: push iy ;5303 pop hl ;5305 ld a,l ;5306 or h ;5307 jr z,l531ch ;5308 ld l,(ix-2) ;530a ld h,(ix-1) ;530d dec hl ;5310 ld (ix-2),l ;5311 ld (ix-1),h ;5314 inc hl ;5317 ld a,l ;5318 or h ;5319 jr nz,l52a8h ;531a l531ch: ; m9: push iy ;531c pop hl ;531e ld a,l ;531f or h ;5320 jr nz,l5344h ;5321 ld a,(ix-2) ;5323 or (ix-1) ;5326 jr z,l534bh ;5329 ld e,(ix-6) ;532b ld d,(ix-5) ;532e ld l,(ix-4) ;5331 ld h,(ix-3) ;5334 add hl,hl ;5337 add hl,hl ;5338 add hl,hl ;5339 add hl,de ;533a ld de,00008h ;533b add hl,de ;533e ld a,(hl) ;533f cp 018h ;5340 jr z,l534bh ;5342 l5344h: ; m11: ld hl,l9702h ;5344 ; push hl ;5347 ; call prerror ;5348 ; prerror("argument list conflicts with prototype"); l534bh: ; m12: ld (ix-2),001h ;534b ld (ix-1),0 ;534f jp cret ;5353 ; =============== F U N C T I O N ======================================= ; 110 ; sub_5356h: ; char sub_5356h() { call csv ;5356 ; register struct aaa * st; ld hl,(word_a293) ;5359 ; ld a,l ;535c ; or h ;535d ; jr nz,l5374h ;535e ; if(word_a293 == 0) goto m2; ld l,0 ;5360 ; jp cret ;5362 ; return 0; l5365h: ; m1: ld l,(iy+00ah) ;5365 ; ld h,(iy+00bh) ;5368 ; ld (word_a293),hl ;536b ; word_a293 = st->m10; push iy ;536e ; call free ;5370 ; free(st); pop bc ;5373 ; l5374h: ; m2: ld iy,(word_a293) ;5374 ; st = word_a293; push iy ;5378 ; pop hl ;537a ; ld a,l ;537b ; or h ;537c ; jr nz,l5365h ;537d ; if(st != 0) goto m1; ld l,1 ;537f ; return 1; jp cret ;5381 ; } ; =============== F U N C T I O N ======================================= ; 111 ; sub_5384h: ; struct aaa * sub_5384h(char * p1) { call csv ;5384 ; register aaa * st; ld hl,(word_a293) ;5387 ; ld a,l ;538a ; or h ;538b ; jr z,l53a8h ;538c ; if(word_a293 == 0) goto m1; ld iy,(word_a293) ;538e ; st = word_a293; ld l,(iy+00ah) ;5392 ; ld h,(iy+00bh) ;5395 ; ld (word_a293),hl ;5398 ; word_a293 = st->m10; ld hl,00019h ;25 ;539b ; push hl ;539e ; push iy ;539f ; call blkclr ;53a1 ; blkclr(st, 25); pop bc ;53a4 ; pop bc ;53a5 ; jr l53b3h ;53a6 ; goto m2; l53a8h: ; m1: ld hl,00019h ;25 ;53a8 ; push hl ;53ab ; call allocmem ;53ac ; pop bc ;53af ; push hl ;53b0 ; pop iy ;53b1 ; st = allocmem(25); l53b3h: ; m2: ld a,(byte_a288) ;53b3 ; ld (iy+015h),a ;+21 ;53b6 ; st->m21 = byte_a288; /* 1 byte */ ld (iy+016h),1 ;+22 ;53b9 ; st->m22 = 1; /* 1 byte */ ld hl,(word_968c) ;53bd ; inc hl ;53c0 ; ld (word_968c),hl ;53c1 ; ld (iy+00ch),l ;+12 ;53c4 ; ld (iy+00dh),h ;53c7 ; st->m12 = ++word_968c; /* 2 byte */ ld a,(ix+6) ;53ca ; or (ix+7) ;p1 ;53cd ; jr z,l53fdh ;53d0 ; if(p1 == 0) goto m3; ld l,(ix+6) ;53d2 ; ld h,(ix+7) ;p1 ;53d5 ; push hl ;53d8 ; call strlen ;53d9 ; pop bc ;53dc ; inc hl ;53dd ; push hl ;53de ; call allocmem ;53df ; ld (iy+017h),l ;+23 ;53e2 ; ld (iy+018h),h ;53e5 ; st->m23 = allocmem( strlen(p1) + 1); /* 2 byte */ ld l,(ix+6) ;53e8 ; ld h,(ix+7) ;p1 ;53eb ; ex (sp),hl ;53ee ; ld l,(iy+017h) ;+23 ;53ef ; ld h,(iy+018h) ;53f2 ; push hl ;53f5 ; call strcpy ;53f6 ; strcpy(st->m23, p1); pop bc ;53f9 ; pop bc ;53fa ; jr l5406h ;53fb ; goto m4; l53fdh: ; m3: ld hl,byte_968b ;53fd ; ld (iy+017h),l ;+23 ;5400 ; ld (iy+018h),h ;5403 ; st->m23 = &byte_968b l5406h: ; m4: push iy ;5406 pop hl ;5408 ; return st; jp cret ;5409 ; } ; =============== F U N C T I O N ======================================= ; 112 ; sub_540ch: ; void sub_540ch() { call csv ;540c ; register struct * aaa st; ld l,(ix+6) ;540f ; ld h,(ix+7) ;5412 ; push hl ;5415 ; pop iy ;5416 ; ld a,(iy+016h) ;+22 ;5418 ; add a,0ffh ;541b ; ld (iy+016h),a ;541d ; or a ;5420 ; jp nz,cret ;5421 ; if(--st->m22 != 0) return; ld a,(iy+014h) ;5424 ; or a ;5427 ; jp z,l5474h ;5428 ; if(st->m20 == 0) goto m3; cp 7 ;542b ; jp z,l5474h ;542d ; if(st->m20 == 7) goto m3; cp 8 ;5430 ; jr z,l5474h ;5432 ; if(st->m20 == 8) goto m3; cp 9 ;5434 ; jr z,l5474h ;5436 ; if(st->m20 == 9) goto m3; cp 0bh ;5438 ; jr z,l5474h ;543a ; if(st->m20 == 0xB) goto m3; ld a,(iy+7) ;543c ; cp 002h ;543f ; jr nz,l5450h ;5441 ; if(st->m7 != 2) goto m1; ld l,(iy+2) ;5443 ; ld h,(iy+3) ;5446 ; push hl ;5449 ; call sub_583ah ;544a ; sub_583ah(st->m2); pop bc ;544d ; jr l5462h ;544e ; goto m2; l5450h: ; m1: ld a,(iy+007h) ;5450 ; cp 001h ;5453 ; jr nz,l5462h ;5455 ; if(st->m7 != 1) goto m2; ld l,(iy+2) ;5457 ; ld h,(iy+3) ;545a ; push hl ;545d ; call sub_2569h ;545e ; sub_2569h(st->m2); pop bc ;5461 ; l5462h: ; m2: ld a,(iy+6) ;5462 ; cp 016h ;5465 ; jr nz,l5474h ;5467 ; if(st->m6 != 0x16) goto m3; ld l,(iy+0) ;5469 ; ld h,(iy+1) ;546c ; push hl ;546f ; call sub_540ch ;5470 ; sub_540ch(st->m0) pop bc ;5473 ; l5474h: ; m3: ld de,byte_968b ;5474 ; ld l,(iy+017h) ;+23 ;5477 ; ld h,(iy+018h) ;547a ; or a ;547d ; sbc hl,de ;547e ; jr z,l548ch ;5480 ; if(st->m23 == byte_968b) goto m4; ld l,(iy+017h) ;5482 ; ld h,(iy+018h) ;5485 ; push hl ;5488 ; call free ;5489 ; free(st->m23); l548ch: ; m4: ld hl,(word_a293) ;548c ; ld (iy+00ah),l ;548f ; ld (iy+00bh),h ;5492 ; st->m10 = word_a293; ld (word_a293),iy ;5495 ; word_a293 = st; jp cret ;5499 ; } ; =============== F U N C T I O N ======================================= ; 113 ; /* void proc_111() */ ; sub_549ch: ; void sub_549ch() { ld hl,4 ;549c ; push hl ;549f ; call sub_022eh ;54a0 ; sub_022eh(4); pop bc ;54a3 ; ld a,(byte_a288) ;54a4 ; inc a ;54a7 ; ld (byte_a288),a ;54a8 ; ++byte_a288; ret ;54ab ; } ; =============== F U N C T I O N ======================================= ; 114 ; /* void proc_112() */ ; sub_54ach: ; void sub_54ach() { call sub_54c0h ;54ac ; sub_54c0h(); ld a,(byte_a288) ;54af ; sub 1 ;54b2 ; ld (byte_a288),a ;54b4 ; --byte_a288; ld hl,3 ;54b7 ; push hl ;54ba ; call sub_022eh ;54bb ; sub_022eh(3); pop bc ;54be ; ret ;54bf ; } ; =============== F U N C T I O N ======================================= ; 115 ; proc_113() { ; ; register char *reg1 ; ; ; register char *reg2 ; ; ; char loc0[3]; ; ; char loc1; ; ; int loc2; ; ; sub_54c0h: ; sub_54c0h() { call ncsv ;54c0 ; defw 0fff9h ; -7 ;54c3 ; ld hl,(word_a295) ;54c5 ; ld (ix-2),l ;54c8 ; ld (ix-1),h ; l1 ;54cb ; l1 = word_a295; jp l5643h ;54ce ; goto m21; l54d1h: ; m1: ld l,(ix-2) ;54d1 ; ld h,(ix-1) ; l1 ;54d4 ; ld (ix-4),l ;54d7 ; ld (ix-3),h ; l2 ;54da ; l2 = l1; jp l5624h ;54dd ; goto m20; l54e0h: ; m2: ld a,(byte_a288) ;54e0 ; ld e,a ;54e3 ; ld a,(iy+015h) ;54e4 ; cp e ;54e7 ; jp nz,l5617h ;54e8 ; if(st->m21 != byte_a288) goto m19; ld (ix-7),0 ;54eb ; ld (ix-6),0 ; l4 ;54ef ; l4 = 0; ld a,(iy+014h) ;54f3 ; ld (ix-5),a ; l3 ;54f6 ; l3 = st->m20; ld de,00002h ;54f9 ; ld a,(iy+012h) ;54fc ; and 3 ;54ff ; ld l,a ;5501 ; xor a ;5502 ; ld h,a ;5503 ; or a ;5504 ; sbc hl,de ;5505 ; jp nz,l5555h ;5507 ; if(char)(st->m18 & 3) != 2) goto m5; ld a,(ix-5) ; l3 ;550a ; cp 7 ;550d ; jr z,l554ah ;550f ; if(l3 == 7) goto m4; cp 8 ;5511 ; jr z,l5526h ;5513 ; if(l3 == 8) goto m3; cp 9 ;5515 ; jr z,l5526h ;5517 ; if(l3 == 9) goto m3; cp 01fh ;5519 ; jr z,l5526h ;551b ; if(l3 == 0x1f) goto m3; ld hl,l972fh ;551d ; ld (ix-7),l ;5520 ; ld (ix-6),h ; l4 ;5523 ; l4 = "variable"; l5526h: ; m3: ld a,(ix-7) ;5526 ; or (ix-6) ; l4 ;5529 ; jp z,l55d2h ;552c ; if(l4 == 0) goto m10; ld l,(iy+017h) ;552f ; ld h,(iy+018h) ;5532 ; push hl ;\3 ;5535 ; ld l,(ix-7) ;5536 ; ld h,(ix-6) ; l4 ;5539 ; push hl ;\2 ;553c ; ld hl,l9738h ;553d ; push hl ;\1 ;5540 ; call prerror ;5541 ; prerror("undefined %s: %s", l4, st->m23); pop bc ;5544 ; pop bc ;5545 ; pop bc ;5546 ; jp l55d2h ;5547 ; goto m10; l554ah: ; m4: ld hl,l9729h ;554a ; ld (ix-7),l ;554d ; ld (ix-6),h ; l4 ;5550 ; l4 = "label"; jr l5526h ;5553 ; goto m3; l5555h: ; m5: ld a,(byte_a288) ;5555 ; or a ;5558 ; jr nz,l5563h ;5559 ; if(byte_a288 == 0) goto m6; ld a,(ix-5) ; l3 ;555b ; cp 02ah ;555e ; jp nz,l55d2h ;5560 ; if(l3 != 0x2a) goto m10; l5563h: ; m6: bit 1,(iy+012h) ;5563 ; jp nz,l55d2h ;5567 ; if(bittst(st->m18,1) != 0) goto m10; ld a,(ix-5) ;556a ; cp 6 ;556d ; jp z,l5608h ;556f ; if(l3 == 6) goto m17; cp 7 ;5572 ; jr z,l55a9h ;5574 ; if(l3 == 7) goto m8; cp 8 ;5576 ; jp z,l55eah ;5578 ; if(l3 == 8) goto m11; cp 9 ;557b ; jp z,l55efh ;557d ; if(l3 == 9) goto m12; cp 10 ;5580 ; jp z,l55f4h ;5582 ; if(l3 == 10) goto m13; cp 11 ;5585 ; jp z,l55f9h ;5587 ; if(l3 == 11) goto m14; cp 12 ;558a ; jp z,l55feh ;558c ; if(l3 == 12) goto m15; cp 02dh ;558f ; jp z,l5603h ;5591 ; if(l3 == 45) goto mm16; or a ;5594 ; jr z,l55b2h ;5595 ; if(l3 == 0) goto m9; bit 0,(iy+012h) ;5597 ; jp z,l5612h ;559b ; if(bittst(st->m18,0) == 0) goto m18; ld hl,l977ch ;559e ; hl = "variable definition"; l55a1h: ; m7: ld (ix-7),l ;55a1 ; ld (ix-6),h ; l4 ;55a4 ; l4 = hl; jr l55b2h ;55a7 ; goto m9; l55a9h: ; m8: ld hl,l9749h ;55a9 ; ld (ix-7),l ;55ac ; ld (ix-6),h ; l4 ;55af ; l4 = "label"; l55b2h: ; m9: ld a,(ix-7) ;55b2 ; or (ix-6) ; l4 ;55b5 ; jr z,l55d2h ;55b8 ; if(l4 == 0) goto m10; ld l,(iy+017h) ;55ba ; ld h,(iy+018h) ;55bd ; push hl ;55c0 ; ld l,(ix-7) ;55c1 ; ld h,(ix-6) ; l4 ;55c4 ; push hl ;55c7 ; ld hl,l97a5h ;55c8 ; push hl ;55cb ; call prwarning ;55cc ; prwarning("unused %s: %s", l4, st->m23); pop bc ;55cf ; pop bc ;55d0 ; pop bc ;55d1 ; l55d2h: ; m10: ld e,(iy+008h) ;55d2 ; ld d,(iy+009h) ;55d5 ; ld l,(ix-4) ;55d8 ; ld h,(ix-3) ; l2 ;55db ; ld (hl),e ;55de ; inc hl ;55df ; ld (hl),d ;55e0 ; *l2 = st->m8; push iy ;55e1 ; call sub_540ch ;55e3 ; sub_540ch(st); pop bc ;55e6 ; jp l5624h ;55e7 ; goto m20; l55eah: ; m11: ld hl,l974fh ;55ea ; hl = "structure" jr l55a1h ;55ed ; goto m7; l55efh: ; m12: ld hl,l9759h ;55ef ; hl = "union" jr l55a1h ;55f2 ; goto m7; l55f4h: ; m13: ld hl,l975fh ;55f4 ; hl = "member" jr l55a1h ;55f7 ; goto m7; l55f9h: ; m14: ld hl,l9766h ;55f9 ; hl = "enum" jr l55a1h ;55fc ; goto m7; l55feh: ; m15: ld hl,l976bh ;55fe ; hl = "constant" jr l55a1h ;5601 ; goto m7; l5603h: ; m16: ld hl,l9774h ;5603 ; hl = "typedef" jr l55a1h ;5606 ; goto m7; l5608h: ; m17: ld (ix-7),0 ;5608 ld (ix-6),0 ; l4 ;560c ; l4 = 0; jr l55b2h ;5610 ; goto m9; l5612h: ; m18: ld hl,l9790h ;5612 ; hl = "variable declaration" jr l55a1h ;5615 ; goto m7; l5617h: ; m19: push iy ;5617 ; pop de ;5619 ; ld hl,00008h ;561a ; add hl,de ;561d ; ld (ix-4),l ;561e ; ld (ix-3),h ; l2 ;5621 ; l2 = st->m8; l5624h: ; m20: ld l,(ix-4) ;5624 ; ld h,(ix-3) ; l2 ;5627 ; ld c,(hl) ;562a ; inc hl ;562b ; ld b,(hl) ;562c ; push bc ;562d ; pop iy ;562e ; ld a,c ;5630 ; or b ;5631 ; jp nz,l54e0h ;5632 ; if((st = *l2) != 0) goto m2; ld l,(ix-2) ;5635 ; ld h,(ix-1) ; l1 ;5638 ; inc hl ;563b ; inc hl ;563c ; ld (ix-2),l ;563d ; ld (ix-1),h ; l1 ;5640 ; ++l1; l5643h: ; m21: ld de,(word_a295) ;5643 ; ld hl,21eh ;542 ;5647 ; add hl,de ;564a ; ex de,hl ;564b ; ld l,(ix-2) ;564c ; ld h,(ix-1) ; l1 ;564f ; call wrelop ;5652 ; jp c,l54d1h ;5655 ; if (l1 < 542+word_a295) goto m1; ld hl,word_a291 ;5658 ; ld (ix-4),l ;565b ; ld (ix-3),h ; l2 ;565e ; l2 = &word_a291; jr l5691h ;5661 ; goto m24; l5663h: ; m22: ld a,(byte_a288) ;5663 ; ld e,a ;5666 ; ld a,(iy+015h) ;5667 ; cp e ;566a ; jr nz,l5684h ;566b ; if(st->m21 != byte_a288) goto m23; ld e,(iy+008h) ;566d ; ld d,(iy+009h) ;5670 ; ld l,(ix-4) ;5673 ; ld h,(ix-3) ; l2 ;5676 ; ld (hl),e ;5679 ; inc hl ;567a ; ld (hl),d ;567b ; *l2 = st->m8; push iy ;567c ; call sub_540ch ;567e ; sub_540ch(st); pop bc ;5681 ; jr l5691h ;5682 ; goto m24; l5684h: ; m23: push iy ;5684 ; pop de ;5686 ; ld hl,00008h ;5687 ; add hl,de ;568a ; ld (ix-4),l ;568b ; ld (ix-3),h ; l2 ;568e ; l2 = st->m8; l5691h: ; m24: ld l,(ix-4) ;5691 ; ld h,(ix-3) ; l2 ;5694 ; ld c,(hl) ;5697 ; inc hl ;5698 ; ld b,(hl) ;5699 ; push bc ;569a ; pop iy ;569b ; ld a,c ;569d ; or b ;569e ; jr nz,l5663h ;569f ; if((st = *l2) != 0) goto m22; jp cret ;56a1 ; } ; =============== F U N C T I O N ======================================= ; 116 ; sub_56a4h: ; struct aaa * sub_56a4h() { call csv ;56a4 ; register struct aaa * st; ld hl,00000h ;56a7 ; push hl ;56aa ; call sub_5384h ;56ab ; pop bc ;56ae ; push hl ;56af ; pop iy ;56b0 ; st = sub_5384h(0); ld a,(iy+012h) ;56b2 ; or 083h ;56b5 ; ld (iy+012h),a ;56b7 ; st->m18 |= 0x83; ld hl,(word_a291) ;56ba ; ld (iy+008h),l ;56bd ; ld (iy+009h),h ;56c0 ; st->m8 = word_a291; ld (word_a291),iy ;56c3 ; word_a291 = st; push iy ;56c7 ; pop hl ;56c9 ; return st; jp cret ;56ca ; } ; =============== F U N C T I O N ======================================= ; 117 ; sub_56cdh: ; sub_56cdh(struct aaa * p1, char * p2) { call csv ;56cd ; register struct aaa * st; ld e,(ix+6) ;56d0 ; ld d,(ix+7) ;p1 ;56d3 ; ld hl,0000ah ;+10 ;56d6 ; add hl,de ;56d9 ; ld c,(hl) ;56da ; inc hl ;56db ; ld b,(hl) ;56dc ; push bc ;56dd ; pop iy ;56de ; st = p1->m10; l56e0h: ; m1: push iy ;56e0 ; pop de ;56e2 ; ld l,(ix+6) ;56e3 ; ld h,(ix+7) ;p1 ;56e6 ; or a ;56e9 ; sbc hl,de ;56ea ; jr nz,l5713h ;56ec ; if(p1 != st) goto m2; ld e,(ix+6) ;56ee ; ld d,(ix+7) ;p1 ;56f1 ; ld hl,00017h ;+23 ;56f4 ; add hl,de ;56f7 ; ld c,(hl) ;56f8 ; inc hl ;56f9 ; ld b,(hl) ;56fa ; push bc ;\3 ;56fb ; ld l,(ix+8) ;56fc ; ld h,(ix+9) ;p2 ;56ff ; push hl ;\2 ;5702 ; ld hl,l97b3h ;5703 ; push hl ;\1 ;5706 ; call prerror ;5707 ; prerror("%s is not a member of the struct/union %s", p2, p1->m23); pop bc ;570a ; pop bc ;570b ; pop bc ;570c ; ld hl,00000h ;570d ; jp cret ;5710 ; return 0; l5713h: ; m2: ld l,(ix+8) ;5713 ; ld h,(ix+9) ;p2 ;5716 ; push hl ;5719 ; ld l,(iy+017h) ;+23 ;571a ; ld h,(iy+018h) ;571d ; push hl ;5720 ; call strcmp ;5721 ; pop bc ;5724 ; pop bc ;5725 ; ld a,l ;5726 ; or h ;5727 ; jr nz,l5730h ;5728 ; if(strcmp(st->m23, p2) != 0) goto m3; push iy ;572a ; pop hl ;572c ; jp cret ;572d ; return st; l5730h: ; m3: ld l,(iy+00ah) ;5730 ; ld h,(iy+00bh) ;5733 ; push hl ;5736 ; pop iy ;5737 ; st = st->m10; jr l56e0h ;5739 ; goto m1; ; } ; =============== F U N C T I O N ======================================= ; 118 ; sub_573bh: ; void sub_573bh(register struct aaa *st, FILE *stream) { call csv ;573b ; ld l,(ix+6) ;573e ; ld h,(ix+7) ; st ;5741 ; push hl ;5744 ; pop iy ;5745 ; ld a,l ;5747 ; or h ;5748 ; jp z,cret ;5749 ; if(st == 0) return; bit 7,(iy+012h) ;+18 ;574c ; jr z,l576dh ;5750 ; if(bittst(st->m18,7) == 0) goto m1; ld l,(iy+00ch) ;+12 ;5752 ; ld h,(iy+00dh) ;5755 ; push hl ;\3 ;5758 ; ld hl,l97ddh ;5759 ; "F%d" push hl ;\2 ;575c ; ld l,(ix+8) ;575d ; ld h,(ix+9) ; stream ;5760 ; push hl ;\1 ;5763 ; call _fprintf ;5764 ; fprintf(stream, "F%d", st->m18); pop bc ;5767 ; pop bc ;5768 ; pop bc ;5769 ; jp cret ;576a ; return; l576dh: ; m1: ld l,(iy+017h) ;+23 ;576d ; ld h,(iy+018h) ;5770 ; push hl ;\1 ;5773 ; ld hl,l97e1h ;5774 ; push hl ;\2 ;5777 ; ld l,(ix+8) ;5778 ; ld h,(ix+9) ; stream ;577b ; push hl ;\1 ;577e ; call _fprintf ;577f ; fprintf(stream, "_%s", st->m23); jp cret ;5782 ; } ; =============== F U N C T I O N ======================================= ; 119 ; sub_5785h: ; void sub_5785h() { ld hl,(word_968e) ;5785 inc hl ;5788 ld (word_968e),hl ;5789 ; ++word_968e; ret ;578c ; } ; =============== F U N C T I O N ======================================= ; 120 ; sub_578dh: ; sub_578dh(register struct st_13 * st) { call ncsv ;578d ; l1; defw 0fffah ;-6 ;5790 ; struct aaa * l2; ld l,(ix+6) ;5792 ; struct xxx * l3; ld h,(ix+7) ;st ;5795 ; push hl ;5798 ; pop iy ;5799 ; ld a,l ;579b ; or h ;579c ; jr nz,l57a5h ;579d ; if(st != 0) goto m1; push iy ;579f ; pop hl ;57a1 ; jp cret ;57a2 ; return st; l57a5h: ; m1: ld e,(iy+0) ;57a5 ; ld d,(iy+1) ;57a8 ; ld hl,0ffffh ;-1 ;57ab ; add hl,de ;57ae ; add hl,hl ;57af ; add hl,hl ;57b0 ; add hl,hl ;57b1 ; ld de,0000ah ;57b2 ; add hl,de ;57b5 ; push hl ;57b6 ; call allocmem ;57b7 ; pop bc ;57ba ; ld (ix-2),l ;57bb ; ld (ix-1),h ;l1 ;57be ; l1 = allocmem((st->m1-1)*8 + 10); ld e,(iy+0) ;57c1 ; ld d,(iy+1) ;57c4 ; ld (hl),e ;57c7 ; inc hl ;57c8 ; ld (hl),d ;57c9 ; ld (ix-6),e ;57ca ; ld (ix-5),d ;l3 ;57cd ; l3 = st->m1.s[0]; jr l581fh ;57d0 ; goto m3; l57d2h: ; m2: ld e,(ix-2) ;57d2 ; ld d,(ix-1) ;l1 ;57d5 ; ld l,(ix-6) ;57d8 ; ld h,(ix-5) ;l3 ;57db ; add hl,hl ;57de ; add hl,hl ;57df ; add hl,hl ;57e0 ; add hl,de ;57e1 ; inc hl ;57e2 ; inc hl ;57e3 ; ld (ix-4),l ;57e4 ; ld (ix-3),h ;l2 ;57e7 ; l2 = (l3*8+l1)+2; push iy ;57ea ; pop de ;57ec ; ld l,(ix-6) ;57ed ; ld h,(ix-5) ;l3 ;57f0 ; add hl,hl ;57f3 ; add hl,hl ;57f4 ; add hl,hl ;57f5 ; add hl,de ;57f6 ; inc hl ;57f7 ; inc hl ;57f8 ; ld e,(ix-4) ;57f9 ; ld d,(ix-3) ;l2 ;57fc ; *l2 = (l3*8+st)+2; push hl ;57ff ; ld bc,8 ;5800 ; ldir ;5803 ; pop hl ;5805 ; ld e,(ix-4) ;5806 ; ld d,(ix-3) ;l2 ;5809 ; ld hl,00006h ;580c ; add hl,de ;580f ; ld a,(hl) ;5810 ; cp 016h ;5811 ; jr nz,l581fh ;5813 ; if(l2->m6 != 0x16) goto m3; ld l,e ;5815 ; ld h,d ;5816 ; ld c,(hl) ;5817 ; inc hl ;5818 ; ld b,(hl) ;5819 ; ld hl,00016h ;+22 ;581a ; add hl,bc ;581d ; inc (hl) ;581e ; ++l2->m22; l581fh: ; m3: ld l,(ix-6) ;581f ; ld h,(ix-5) ;l3 ;5822 ; dec hl ;5825 ; ld (ix-6),l ;5826 ; ld (ix-5),h ;l3 ;5829 ; inc hl ;582c ; ld a,l ;582d ; or h ;582e ; jr nz,l57d2h ;582f ; if(l3-- != 0) goto m2; ld l,(ix-2) ;5831 ; ld h,(ix-1) ;l1 ;5834 ; return l1; jp cret ;5837 ; =============== F U N C T I O N ======================================= ; 121 ; sub_583ah: ; void sub_583ah(register struct st_13 * st) { call csv ;583a ; struct xxx * l1; push hl ;583d ; ld l,(ix+6) ;583e ; ld h,(ix+7) ;5841 ; push hl ;5844 ; pop iy ;5845 ; ld a,l ;5847 ; or h ;5848 ; jp z,cret ;5849 ; if(st == 0) return; push iy ;584c ; pop hl ;584e ; inc hl ;584f ; inc hl ;5850 ; ld (ix-2),l ;5851 ; ld (ix-1),h ;l1 ;5854 ; l1 = st+1; jr l58a3h ;5857 ; goto m4; l5859h: ; m1: ld e,(ix-2) ;5859 ; ld d,(ix-1) ;l1 ;585c ; ld hl,00007h ;585f ; add hl,de ;5862 ; ld a,(hl) ;5863 ; cp 002h ;5864 ; jr nz,l587ah ;5866 ; if(l1->m7 != 2) goto m2; ld l,e ;5868 ; ld h,d ;5869 ; inc hl ;586a ; inc hl ;586b ; ld a,(hl) ;586c ; inc hl ;586d ; or (hl) ;586e ; jr z,l587ah ;586f ; if(l1->m2 == 0) goto m2; dec hl ;5871 ; ld c,(hl) ;5872 ; inc hl ;5873 ; ld b,(hl) ;5874 ; push bc ;5875 ; call sub_583ah ;5876 ; sub_583ah(l1->m2); pop bc ;5879 ; l587ah: ; m2: ld e,(ix-2) ;587a ; ld d,(ix-1) ;l1 ;587d ; ld hl,00006h ;5880 ; add hl,de ;5883 ; ld a,(hl) ;5884 ; cp 016h ;5885 ; jr nz,l5893h ;5887 ; if(l1->m6 != 0x16) goto m3; ld l,e ;5889 ; ld h,d ;588a ; ld c,(hl) ;588b ; inc hl ;588c ; ld b,(hl) ;588d ; push bc ;588e ; call sub_540ch ;588f ; sub_540ch(l1->m1); pop bc ;5892 ; l5893h: ; m3: ld de,00008h ;5893 ; ld l,(ix-2) ;5896 ; ld h,(ix-1) ;l1 ;5899 ; add hl,de ;589c ; ld (ix-2),l ;589d ; ld (ix-1),h ;l1 ;58a0 ; ++l1; l58a3h: ; m4: ld l,(iy+0) ;58a3 ; ld h,(iy+1) ;58a6 ; dec hl ;58a9 ; ld (iy+0),l ;58aa ; ld (iy+1),h ;58ad ; inc hl ;58b0 ; ld a,l ;58b1 ; or h ;58b2 ; jr nz,l5859h ;58b3 ; if(st->m0-- != 0) goto m1; push iy ;58b5 ; call free ;58b7 ; free(st); jp cret ;58ba ; } ; =============== F U N C T I O N ======================================= ; 122 ; sub_58bdh: call csv ;58bd ld l,(ix+6) ;58c0 ld h,(ix+7) ;58c3 push hl ;58c6 pop iy ;58c7 ld e,(ix+8) ;58c9 ld d,(ix+9) ;58cc push hl ;58cf ld bc,00008h ;58d0 ldir ;58d3 pop hl ;58d5 ld e,(ix+8) ;58d6 ld d,(ix+9) ;58d9 ld hl,00007h ;58dc add hl,de ;58df ld a,(hl) ;58e0 cp 001h ;58e1 jr nz,l5900h ;58e3 ld l,e ;58e5 ld h,d ;58e6 inc hl ;58e7 inc hl ;58e8 ld c,(hl) ;58e9 inc hl ;58ea ld b,(hl) ;58eb push bc ;58ec call sub_21c7h ;58ed pop bc ;58f0 l58f1h: ; m1: ex de,hl ;58f1 ld l,(ix+8) ;58f2 ld h,(ix+9) ;58f5 inc hl ;58f8 inc hl ;58f9 ld (hl),e ;58fa inc hl ;58fb ld (hl),d ;58fc jp cret ;58fd l5900h: ; m2: ld e,(ix+8) ;5900 ld d,(ix+9) ;5903 ld hl,00007h ;5906 add hl,de ;5909 ld a,(hl) ;590a cp 002h ;590b jp nz,cret ;590d ld l,e ;5910 ld h,d ;5911 inc hl ;5912 inc hl ;5913 ld c,(hl) ;5914 inc hl ;5915 ld b,(hl) ;5916 push bc ;5917 call sub_578dh ;5918 jr l58f1h ;591b ; =============== F U N C T I O N ======================================= ; 123 ; sub_591dh: call csv ;591d push hl ;5920 ld l,(ix+6) ;5921 ld h,(ix+7) ;5924 push hl ;5927 pop iy ;5928 push hl ;592a pop de ;592b ld l,(ix+8) ;592c ld h,(ix+9) ;592f or a ;5932 sbc hl,de ;5933 jr nz,l593ch ;5935 l5937h: ; m1: ld l,001h ;5937 jp cret ;5939 l593ch: ; m2: ld e,(ix+8) ;593c ld d,(ix+9) ;593f ld hl,00007h ;5942 add hl,de ;5945 ld a,(iy+007h) ;5946 cp (hl) ;5949 jr z,l5951h ;594a l594ch: ; m3: ld l,0 ;594c jp cret ;594e l5951h: ; m4: ld e,(ix+8) ;5951 ld d,(ix+9) ;5954 ld hl,00006h ;5957 add hl,de ;595a ld a,(iy+6) ;595b cp (hl) ;595e jr nz,l594ch ;595f ld l,e ;5961 ld h,d ;5962 inc hl ;5963 inc hl ;5964 inc hl ;5965 inc hl ;5966 ld e,(hl) ;5967 inc hl ;5968 ld d,(hl) ;5969 ld l,(iy+4) ;596a ld h,(iy+5) ;596d or a ;5970 sbc hl,de ;5971 jr nz,l594ch ;5973 cp 012h ;5975 jr z,l5985h ;5977 cp 016h ;5979 jr z,l59a1h ;597b cp 01ah ;597d jr z,l5985h ;597f cp 01ch ;5981 jr nz,l59bah ;5983 l5985h: ; m5: ld l,(ix+8) ;5985 ld h,(ix+9) ;5988 ld e,(hl) ;598b inc hl ;598c ld d,(hl) ;598d ld l,(iy+0) ;598e ld h,(iy+1) ;5991 or a ;5994 sbc hl,de ;5995 ld hl,00001h ;5997 jp z,cret ;599a dec hl ;599d jp cret ;599e l59a1h: ; m6: ld l,(ix+8) ;59a1 ld h,(ix+9) ;59a4 ld c,(hl) ;59a7 inc hl ;59a8 ld b,(hl) ;59a9 push bc ;59aa ld l,(iy+0) ;59ab ld h,(iy+1) ;59ae push hl ;59b1 call sub_591dh ;59b2 pop bc ;59b5 pop bc ;59b6 jp cret ;59b7 l59bah: ; m7: ld a,(iy+007h) ;59ba cp 002h ;59bd jp nz,l5937h ;59bf ld a,(iy+2) ;59c2 or (iy+3) ;59c5 jp z,l5937h ;59c8 ld l,(ix+8) ;59cb ld h,(ix+9) ;59ce inc hl ;59d1 inc hl ;59d2 ld a,(hl) ;59d3 inc hl ;59d4 or (hl) ;59d5 jp z,l5937h ;59d6 dec hl ;59d9 ld a,(hl) ;59da inc hl ;59db ld h,(hl) ;59dc ld l,a ;59dd ld e,(hl) ;59de inc hl ;59df ld d,(hl) ;59e0 ld l,(iy+2) ;59e1 ld h,(iy+3) ;59e4 ld a,(hl) ;59e7 inc hl ;59e8 ld h,(hl) ;59e9 ld l,a ;59ea or a ;59eb sbc hl,de ;59ec jp nz,l594ch ;59ee ld l,(iy+2) ;59f1 ld h,(iy+3) ;59f4 ld c,(hl) ;59f7 inc hl ;59f8 ld b,(hl) ;59f9 ld (ix-2),c ;59fa ld (ix-1),b ;59fd l5a00h: ; m8: ld l,(ix-2) ;5a00 ld h,(ix-1) ;5a03 dec hl ;5a06 ld (ix-2),l ;5a07 ld (ix-1),h ;5a0a inc hl ;5a0d ld a,l ;5a0e or h ;5a0f jp z,l5937h ;5a10 ld l,(ix+8) ;5a13 ld h,(ix+9) ;5a16 inc hl ;5a19 inc hl ;5a1a ld c,(hl) ;5a1b inc hl ;5a1c ld b,(hl) ;5a1d ld l,(ix-2) ;5a1e ld h,(ix-1) ;5a21 add hl,hl ;5a24 add hl,hl ;5a25 add hl,hl ;5a26 add hl,bc ;5a27 inc hl ;5a28 inc hl ;5a29 push hl ;5a2a ld e,(iy+2) ;5a2b ld d,(iy+3) ;5a2e ld l,(ix-2) ;5a31 ld h,(ix-1) ;5a34 add hl,hl ;5a37 add hl,hl ;5a38 add hl,hl ;5a39 add hl,de ;5a3a inc hl ;5a3b inc hl ;5a3c push hl ;5a3d call sub_591dh ;5a3e pop bc ;5a41 pop bc ;5a42 ld a,l ;5a43 or a ;5a44 jr nz,l5a00h ;5a45 jp l594ch ;5a47 ; =============== F U N C T I O N ======================================= ; 124 ; sub_5a4ah: ; int sub_5a4ah(register struct xxx * st) { call csv ;5a4a ; ld l,(ix+6) ;5a4d ; ld h,(ix+7) ;5a50 ; push hl ;5a53 ; pop iy ;5a54 ; ld a,(iy+6) ;5a56 ; cp 014h ;5a59 ; jr nz,l5a70h ;5a5b ; if((char)st->m7 == 0x14) goto m1; ld de,00001h ;5a5d ; ld l,(iy+4) ;5a60 ; ld h,(iy+5) ;5a63 ; or a ;5a66 ; sbc hl,de ;5a67 ; jr nz,l5a70h ;5a69 ; if(st->m6 != 1) goto m1; ld l,e ;5a6b ; ld h,d ;5a6c ; jp cret ;5a6d ; return 1; l5a70h: ; m1: ld hl,00000h ;5a70 ; return 0; jp cret ;5a73 ; } ; =============== F U N C T I O N ======================================= ; 125 ; sub_5a76h: ; int sub_5a76h(register struct xxx * st, char p2) { call csv ;5a76 ; ld l,(ix+6) ;5a79 ; ld h,(ix+7) ;5a7c ; push hl ;5a7f ; pop iy ;5a80 ; ld a,(iy+6) ;5a82 ; cp (ix+8) ;5a85 ; jr nz,l5a98h ;5a88 ; if(st->m7 != p2) goto m1; ld a,(iy+4) ;5a8a ; or (iy+5) ;5a8d ; jr nz,l5a98h ;5a90 ; if(st->m6 != 0) goto m1; ld a,(iy+007h) ;5a92 ; or a ;5a95 ; jr z,l5a9eh ;5a96 ; if(st->m8 == 0) goto m2; l5a98h: ; m1: ld hl,00000h ;5a98 ; return 0; jp cret ;5a9b ; l5a9eh: ; m2: ld hl,00001h ;5a9e ; return 1; jp cret ;5aa1 ; } ; =============== F U N C T I O N ======================================= ; 126 ; sub_5aa4h: ; int sub_5aa4h(register struct xxx * st) { call csv ;5aa4 ; ld l,(ix+6) ;5aa7 ; ld h,(ix+7) ;5aaa ; push hl ;5aad ; pop iy ;5aae ; ld a,(iy+007h) ;5ab0 ; or a ;5ab3 ; jr nz,l5acfh ;5ab4 ; if(st->m8 != 0) goto m3; bit 0,(iy+4) ;5ab6 ; jr z,l5abfh ;5aba ; if(bittst(st->m6,0) == 0) goto m1; or a ;5abc ; jr z,l5ac9h ;5abd ; if(st->m8 == 0) goto m2; l5abfh: ; m1: ld b,014h ;5abf ; ld a,(iy+6) ;5ac1 ; call brelop ;5ac4 ; jr nc,l5acfh ;5ac7 ; if(st->m7 >= 0x14) goto m3; l5ac9h: ; m2: ld hl,00001h ;5ac9 ; jp cret ;5acc ; return 1; l5acfh: ; m3: ld hl,00000h ;5acf ; return 0; jp cret ;5ad2 ; } ; =============== F U N C T I O N ======================================= ; 127 ; sub_5ad5h: ; char sub_5ad5h(register struct xxx * st) { call csv ;5ad5 ; ld l,(ix+6) ;5ad8 ; ld h,(ix+7) ;5adb ; push hl ;5ade ; pop iy ;5adf ; ld a,(iy+007h) ;5ae1 ; or a ;5ae4 ; jr nz,l5afch ;5ae5 ; if(st->m8 != 0) goto m1; ld a,(iy+4) ;5ae7 ; or (iy+5) ;5aea ; jr nz,l5afch ;5aed ; if(st->m6 != 0) goto m1; ld e,(iy+6) ;5aef ; ld d,0 ;5af2 ; ld hl,00012h ;5af4 ; call wrelop ;5af7 ; jr nc,l5b02h ;5afa ; if(0x12 >= st->m7) goto m2; l5afch: ; m1: ld hl,00000h ;5afc ; return 0; jp cret ;5aff l5b02h: ; m2: ld hl,00001h ;5b02 ; return 1; jp cret ;5b05 ; } ; =============== F U N C T I O N ======================================= ; 128 ; sub_5b08h: ; char sub_5b08h(register struct xxx * st) { call csv ;5b08 ; ld l,(ix+6) ;5b0b ; ld h,(ix+7) ;5b0e ; push hl ;5b11 ; pop iy ;5b12 ; ld a,(iy+007h) ;5b14 ; or a ;5b17 ; jr nz,l5b2ch ;5b18 ; if(st->m8 != 0) goto m1; ld a,(iy+4) ;5b1a ; or (iy+5) ;5b1d ; jr nz,l5b2ch ;5b20 ; if(st->m6 != 0) goto m1; ld b,00eh ;5b22 ; ld a,(iy+6) ;5b24 ; call brelop ;5b27 ; jr c,l5b32h ;5b2a ; if(st->m7 >= 0xE) goto m2; l5b2ch: ; m1: ld hl,00000h ;5b2c ; return 0; jp cret ;5b2f ; l5b32h: ; m2: ld hl,00001h ;5b32 ; return 1; jp cret ;5b35 ; } ; =============== F U N C T I O N ======================================= ; 129 ; sub_5b38h: ; char sub_5b38h(register struct xxx * st) { call csv ;5b38 ; ld l,(ix+6) ;5b3b ; ld h,(ix+7) ;5b3e ; push hl ;5b41 ; pop iy ;5b42 ; ld a,(iy+007h) ;5b44 ; or a ;5b47 ; jr nz,l5b5dh ;5b48 ; if(st->m8 != 0) goto m1; ld a,(iy+4) ;5b4a ; or (iy+5) ;5b4d ; jr nz,l5b5dh ;5b50 ; if(st->m6 != 0) goto m1; ld a,(iy+6) ;5b52 ; cp 00eh ;5b55 ; jr z,l5b63h ;5b57 ; if(st->m7 == 0xE) goto m2; cp 010h ;5b59 ; jr z,l5b63h ;5b5b ; if(st->m7 == 0x10) goto m2; l5b5dh: ; m1: ld hl,00000h ;5b5d ; return 0; jp cret ;5b60 ; l5b63h: ; m2: ld hl,00001h ;5b63 ; return 1; jp cret ;5b66 ; } ; =============== F U N C T I O N ======================================= ; 130 ; sub_5b69h: ; char sub_5b69h(register struct xxx * st) { call csv ;5b69 ; ld l,(ix+6) ;5b6c ; ld h,(ix+7) ;5b6f ; push hl ;5b72 ; pop iy ;5b73 ; push hl ;5b75 ; call sub_5b08h ;5b76 ; pop bc ;5b79 ; ld a,l ;5b7a ; or a ;5b7b ; jr nz,l5b8dh ;5b7c ; if(sub_5b08h(st) != 0) goto m1; ld hl,00012h ;5b7e ; push hl ;5b81 ; push iy ;5b82 ; call sub_5a76h ;5b84 ; pop bc ;5b87 ; pop bc ;5b88 ; ld a,l ;5b89 ; or a ;5b8a ; jr z,l5b93h ;5b8b ; if(sub_5a76h(st, 012) == 0) goto m2; l5b8dh: ; m1: ld hl,00001h ;5b8d ; return 1; jp cret ;5b90 ; l5b93h: ; m2: ld hl,00000h ;5b93 ; return 0; jp cret ;5b96 ; } ; =============== F U N C T I O N ======================================= ; 131 ; sub_5b99h: ; void sub_5b99h(register struct xxx * st) { call csv ;5b99 ; ld l,(ix+6) ;5b9c ; ld h,(ix+7) ;5b9f ; push hl ;5ba2 ; pop iy ;5ba3 ; ld a,(iy+007h) ;5ba5 ; cp 002h ;5ba8 ; jr nz,l5bb2h ;5baa ; if(st->m8 != 2) goto m1; ld (iy+007h),0 ;5bac ; st->m8 = 0; jr l5bbeh ;5bb0 ; goto m2; l5bb2h: ; m1: ld b,001h ;5bb2 ; push iy ;5bb4 ; pop hl ;5bb6 ; inc hl ;5bb7 ; inc hl ;5bb8 ; inc hl ;5bb9 ; inc hl ;5bba ; call aslr ;5bbb ; st->m4 <<= 1; l5bbeh: ; m2: ld hl,00016h ;5bbe ; push hl ;5bc1 ; push iy ;5bc2 ; call sub_5a76h ;5bc4 ; pop bc ;5bc7 ; pop bc ;5bc8 ; ld a,l ;5bc9 ; or a ;5bca ; jp z,cret ;5bcb ; if(sub_5a76h(st, 0x16) == 0) return; ld l,(iy+0) ;5bce ; ld h,(iy+1) ;5bd1 ; push iy ;5bd4 ; pop de ;5bd6 ; push hl ;5bd7 ; ld bc,00008h ;5bd8 ; ldir ;5bdb ; *st = st->m0; pop hl ;5bdd ; jp cret ;5bde ; } ; =============== F U N C T I O N ======================================= ; 132 BRED ; sub_5be1h: ; sub_5be1h(register struct st_13) { call csv ;5be1 ; push hl ;5be4 ; ld l,(ix+6) ;5be5 ; ld h,(ix+7) ;5be8 ; push hl ;5beb ; pop iy ;5bec ; ld l,(iy+4) ;5bee ; ld h,(iy+5) ;5bf1 ; ld (ix-2),l ;5bf4 ; ld (ix-1),h ;l1 ;5bf7 ; l1 = st->m4; bit 7,(ix-1) ;5bfa ; jr z,l5c07h ;5bfe ; if(bittst(l1,7) == 0) goto m1; ld hl,l980fh ;5c00 ; push hl ;5c03 ; call prerror ;5c04 ; prerror("too much indirection"); l5c07h: ; m1: ld l,(ix-2) ;5c07 ; ld h,(ix-1) ;l1 ;5c0a ; add hl,hl ;5c0d ; set 0,l ;5c0e ; ld (iy+4),l ;5c10 ; ld (iy+5),h ;5c13 ; st->m4 = bitset(l1*2 ,0); jp cret ;5c16 ; } ; =============== F U N C T I O N ======================================= ; 133 ; sub_5c19h: ; void sub_5c19h(char p1) { call csv ;5c19 ; register struct aaa * st; push hl ;5c1c ; char l1; ld a,(ix+6) ;p1 ;5c1d ; ld (byte_a299),a ;5c20 ; byte_a299 = p1; l5c23h: ; m1: call sub_2671h ;5c23 ; ld a,l ;5c26 ; ld (ix-1),a ;l1 ;5c27 ; ld (byte_9def),a ;5c2a ; byte_9def= l1 = sub_2671h(); cp 005h ;5c2d ; jr z,l5c44h ;5c2f ; if(byte_9def == 5) goto m2; cp 077h ;5c31 ; jr z,l5c44h ;5c33 ; if(byte_9def == 0x77) goto m2; cp 073h ;5c35 ; jr nz,l5c49h ;5c37 ; if(byte_9def != 0x73) goto m3; ld iy,(word_9dcb) ;5c39 ; st = word_9dcb; ld a,(iy+014h) ;5c3d ; cp 02dh ;5c40 ; jr nz,l5c49h ;5c42 ; if(st->m20 != 0x2D) goto m3; l5c44h: ; m2: call sub_5c50h ;5c44 ; sub_5c50h(); jr l5c23h ;5c47 ; goto m1; l5c49h: ; m3: xor a ;5c49 ; ld (byte_a299),a ;5c4a ; byte_a299 = 0; jp cret ;5c4d ; } ; =============== F U N C T I O N ======================================= ; 134 ; sub_5c50h: call ncsv ;5c50 defw 0fff3h ;5c53 push ix ;5c55 pop de ;5c57 ld hl,0fff7h ;5c58 add hl,de ;5c5b push hl ;5c5c push ix ;5c5d pop hl ;5c5f dec hl ;5c60 push hl ;5c61 call sub_5dd1h ;5c62 pop bc ;5c65 pop bc ;5c66 ld e,l ;5c67 ld (ix-00bh),e ;5c68 ld a,(ix-1) ;5c6b cp 006h ;5c6e jr z,l5c89h ;5c70 cp 026h ;5c72 jr z,l5c89h ;5c74 ld a,(byte_a299) ;5c76 cp 006h ;5c79 jr nz,l5c89h ;5c7b ld hl,l9824h ;5c7d ; push hl ;5c80 ; call prerror ;5c81 ; prerror("only register storage class allowed"); pop bc ;5c84 ; ld (ix-1),006h ;5c85 l5c89h: ; m1: call sub_2671h ;5c89 ld a,l ;5c8c ld (ix-00ah),a ;5c8d cp 002h ;5c90 jp z,cret ;5c92 ld (byte_9def),a ;5c95 l5c98h: ; m2: ld l,(ix-00bh) ;5c98 ld h,0 ;5c9b ld a,l ;5c9d and 0feh ;5c9e ld l,a ;5ca0 ld a,h ;5ca1 push hl ;5ca2 push ix ;5ca3 pop de ;5ca5 ld hl,0fff7h ;5ca6 add hl,de ;5ca9 push hl ;5caa ld l,(ix-1) ;5cab ld h,a ;5cae push hl ;5caf call sub_69cah ;5cb0 pop bc ;5cb3 pop bc ;5cb4 pop bc ;5cb5 push hl ;5cb6 pop iy ;5cb7 ld a,l ;5cb9 or h ;5cba jr z,l5ccah ;5cbb bit 4,(iy+012h) ;5cbd jr z,l5ccah ;5cc1 ld a,(iy+007h) ;5cc3 cp 002h ;5cc6 jr z,l5cd8h ;5cc8 l5ccah: ; m3: ld hl,00000h ;5cca l5ccdh: ; m4: ld (ix-00dh),l ;5ccd bit 0,(ix-00bh) ;5cd0 jr nz,l5cddh ;5cd4 jr l5ceah ;5cd6 l5cd8h: ; m5: ld hl,00001h ;5cd8 jr l5ccdh ;5cdb l5cddh: ; m6: ld a,(ix-1) ;5cdd cp 006h ;5ce0 jr z,l5ceah ;5ce2 ld a,(ix-00dh) ;5ce4 or a ;5ce7 jr z,l5d04h ;5ce8 l5ceah: ; m7: ld hl,00000h ;5cea l5cedh: ; m8: ld (ix-00ch),l ;5ced call sub_2671h ;5cf0 ld a,l ;5cf3 ld (ix-00ah),a ;5cf4 cp 064h ;5cf7 jp nz,l5d6bh ;5cf9 ld a,(ix-00dh) ;5cfc or a ;5cff jr z,l5d09h ;5d00 jr l5d18h ;5d02 l5d04h: ; m9: ld hl,00001h ;5d04 jr l5cedh ;5d07 l5d09h: ; m10: ld a,(ix-1) ;5d09 cp 6 ;5d0c jr z,l5d18h ;5d0e cp 1fh ;5d10 jr z,l5d18h ;5d12 cp 2dh ;5d14 jr nz,l5d20h ;5d16 l5d18h: ; m11: ld hl,l9848h ;5d18 ; push hl ;5d1b ; call prerror ;5d1c ; prerror("illegal initialisation"); pop bc ;5d1f ; l5d20h: ; m12: ld a,(ix-1) ;5d20 cp 2ah ;5d23 jr z,l5d2bh ;5d25 cp 1fh ;5d27 jr nz,l5d50h ;5d29 l5d2bh: ; m13: push iy ;5d2b call sub_516ch ;5d2d pop bc ;5d30 ld a,(byte_a288) ;5d31 or a ;5d34 jr z,l5d42h ;5d35 ld a,(ix-1) ;5d37 cp 2ah ;5d3a jr nz,l5d42h ;5d3c set 7,(iy+012h) ;5d3e l5d42h: ; m14: push iy ;5d42 call sub_0493h ;5d44 pop bc ;5d47 push iy ;5d48 call sub_3c7eh ;5d4a pop bc ;5d4d jr l5d62h ;5d4e l5d50h: ; m15: push iy ;5d50 call sub_516ch ;5d52 pop bc ;5d55 push iy ;5d56 call sub_0493h ;5d58 pop bc ;5d5b push iy ;5d5c call sub_6531h ;5d5e pop bc ;5d61 l5d62h: ; m16: call sub_2671h ;5d62 ld e,l ;5d65 ld (ix-00ah),e ;5d66 jr l5d95h ;5d69 l5d6bh: ; m17: ld a,(ix-1) ;5d6b cp 006h ;5d6e jr z,l5d95h ;5d70 ld a,(ix-00ch) ;5d72 or a ;5d75 jr z,l5d7eh ;5d76 push iy ;5d78 call sub_516ch ;5d7a pop bc ;5d7d l5d7eh: ; m18: ld a,(byte_a288) ;5d7e or a ;5d81 jr z,l5d8fh ;5d82 ld a,(ix-1) ;5d84 cp 02ah ;5d87 jr nz,l5d8fh ;5d89 set 7,(iy+012h) ;5d8b l5d8fh: ; m19: push iy ;5d8f call sub_0493h ;5d91 pop bc ;5d94 l5d95h: ; m20: ld a,(ix-00ah) ;5d95 cp 73h ;5d98 jr z,l5da0h ;5d9a cp 50h ;5d9c jr nz,l5db1h ;5d9e l5da0h: ; m21: ld hl,l985fh ;5da0 ; push hl ;5da3 ; call errexpected ;5da4 ; errexpected(","); pop bc ;5da7 ; ld a,(ix-00ah) ;5da8 ld (byte_9def),a ;5dab jp l5c98h ;5dae l5db1h: ; m22: ld a,(ix-00ah) ;5db1 cp 71h ;5db4 jp z,l5c98h ;5db6 cp 2 ;5db9 jp z,cret ;5dbb ld hl,l9861h ;5dbe ; push hl ;5dc1 ; call errexpected ;5dc2 ; errexpected(";"); ld l,(ix-00ah) ;5dc5 ld h,0 ;5dc8 ex (sp),hl ;5dca call sub_3610h ;5dcb jp cret ;5dce ; =============== F U N C T I O N ======================================= ; 135 ; sub_5dd1h: call ncsv ;5dd1 defw 0fff5h ;5dd4 ld l,(ix+8) ;5dd6 ld h,(ix+9) ;5dd9 push hl ;5ddc pop iy ;5ddd ld (iy+4),0 ;5ddf ld (iy+5),0 ;5de3 ld (iy+2),0 ;5de7 ld (iy+3),0 ;5deb ld (iy+0),0 ;5def ld (iy+1),0 ;5df3 ld (iy+007h),0 ;5df7 xor a ;5dfb ld (ix-2),a ;5dfc ld (ix-1),a ;5dff ld (ix-4),a ;5e02 ld (ix-3),a ;5e05 ld (ix-5),a ;5e08 ld (ix-7),a ;5e0b l5e0eh: ; m1: call sub_2671h ;5e0e ld a,l ;5e11 ld (ix-6),a ;5e12 cp 5 ;5e15 jp nz,l5e78h ;5e17 ld a,(ix+6) ;5e1a or (ix+7) ;5e1d jr nz,l5e2ch ;5e20 ld hl,l9863h ;5e22 ; "storage class illegal" l5e25h: ; m2: push hl ;5e25 ; call prerror ;5e26 ; prerror(); l5e29h: ; m3: pop bc ;5e29 jr l5e0eh ;5e2a l5e2ch: ; m4: ld a,(word_9dcb) ;5e2c ld (ix-6),a ;5e2f cp 014h ;5e32 jr z,l5e4eh ;5e34 cp 01fh ;5e36 jr z,l5e60h ;5e38 cp 026h ;5e3a jr z,l5e48h ;5e3c cp 02ah ;5e3e jr z,l5e5ch ;5e40 cp 02dh ;5e42 jr z,l5e5ch ;5e44 jr l5e0eh ;5e46 l5e48h: ; m5: set 2,(ix-7) ;5e48 jr l5e0eh ;5e4c l5e4eh: ; m6: ld a,(byte_a288) ;5e4e or a ;5e51 jr nz,l5e5ch ;5e52 ld hl,l9879h ;5e54 ; push hl ;5e57 ; call prerror ;5e58 ; prerror("bad storage class"); pop bc ;5e5b ; l5e5ch: ; m7: set 0,(ix-7) ;5e5c l5e60h: ; m8: ld a,(ix-1) ;5e60 or a ;5e63 jr z,l5e70h ;5e64 cp (ix-6) ;5e66 jr z,l5e70h ;5e69 ld hl,l988bh ;5e6b "inconsistent storage class" jr l5e25h ;5e6e l5e70h: ; m9: ld a,(ix-6) ;5e70 ld (ix-1),a ;5e73 jr l5e0eh ;5e76 l5e78h: ; m10: ld a,(ix-6) ;5e78 cp 077h ;5e7b jp nz,l5f68h ;5e7d ld a,(word_9dcb) ;5e80 ld (ix-6),a ;5e83 cp 017h ;5e86 jp z,l5f28h ;5e88 cp 01bh ;5e8b jp z,l5f28h ;5e8d cp 01eh ;5e90 jp z,l5f19h ;5e92 cp 020h ;5e95 jp z,l5f28h ;5e97 cp 024h ;5e9a jp z,l5f28h ;5e9c cp 025h ;5e9f jr z,l5ecch ;5ea1 cp 028h ;5ea3 jr z,l5ebch ;5ea5 cp 02bh ;5ea7 jp z,l5f00h ;5ea9 cp 02eh ;5eac jr z,l5edch ;5eae cp 02fh ;5eb0 jr z,l5ed5h ;5eb2 cp 030h ;5eb4 jp z,l5f28h ;5eb6 jp l5e0eh ;5eb9 l5ebch: ; m11: ld l,(ix-4) ;5ebc ld h,(ix-3) ;5ebf dec hl ;5ec2 l5ec3h: ; m12: ld (ix-4),l ;5ec3 ld (ix-3),h ;5ec6 jp l5e0eh ;5ec9 l5ecch: ; m13: ld l,(ix-4) ;5ecc ld h,(ix-3) ;5ecf inc hl ;5ed2 jr l5ec3h ;5ed3 l5ed5h: ; m14: ld (ix-5),001h ;5ed5 jp l5e0eh ;5ed9 l5edch: ; m15: ld (ix-2),01ch ;5edc ld hl,00009h ;5ee0 push hl ;5ee3 call sub_60dbh ;5ee4 pop bc ;5ee7 ld (iy+0),l ;5ee8 ld (iy+1),h ;5eeb ld a,l ;5eee or h ;5eef jp z,l5e0eh ;5ef0 l5ef3h: ; m16: ld l,(iy+0) ;5ef3 ld h,(iy+1) ;5ef6 push hl ;5ef9 call sub_51cfh ;5efa jp l5e29h ;5efd l5f00h: ; m17: ld (ix-2),01ah ;5f00 ld hl,00008h ;5f04 push hl ;5f07 call sub_60dbh ;5f08 pop bc ;5f0b ld (iy+0),l ;5f0c ld (iy+1),h ;5f0f ld a,l ;5f12 or h ;5f13 jp z,l5e0eh ;5f14 jr l5ef3h ;5f17 l5f19h: ; m18: ld (ix-2),012h ;5f19 call sub_6360h ;5f1d ld (iy+0),l ;5f20 ld (iy+1),h ;5f23 jr l5ef3h ;5f26 l5f28h: ; m19: ld a,(ix-2) ;5f28 or a ;5f2b jr z,l5f38h ;5f2c ld hl,l98a6h ;5f2e ; push hl ;5f31 ; call prerror ;5f32 ; prerror("inconsistent type"); jp l5e29h ;5f35 l5f38h: ; m20: ld a,(ix-6) ;5f38 cp 024h ;5f3b jr z,l5f5fh ;5f3d cp 017h ;5f3f jr z,l5f5ah ;5f41 cp 030h ;5f43 jr z,l5f55h ;5f45 cp 020h ;5f47 jr z,l5f50h ;5f49 ld hl,00010h ;5f4b jr l5f62h ;5f4e l5f50h: ; m21: ld hl,0000eh ;5f50 jr l5f62h ;5f53 l5f55h: ; m22: ld hl,00014h ;5f55 jr l5f62h ;5f58 l5f5ah: ; m23: ld hl,00004h ;5f5a jr l5f62h ;5f5d l5f5fh: ; m24: ld hl,00008h ;5f5f l5f62h: ; m25: ld (ix-2),l ;5f62 jp l5e0eh ;5f65 l5f68h: ; m26: ld a,(ix-6) ;5f68 cp 073h ;5f6b jp nz,l6003h ;5f6d ld de,(word_9dcb) ;5f70 ld hl,00014h ;5f74 add hl,de ;5f77 ld a,(hl) ;5f78 cp 02dh ;5f79 jp nz,l6003h ;5f7b ld a,(ix-2) ;5f7e or a ;5f81 jp nz,l6003h ;5f82 ld l,e ;5f85 ld h,d ;5f86 ld (ix-00bh),l ;5f87 ld (ix-00ah),h ;5f8a push hl ;5f8d call sub_51cfh ;5f8e pop bc ;5f91 ld l,(ix-00bh) ;5f92 ld h,(ix-00ah) ;5f95 ld (ix-009h),l ;5f98 ld (ix-8),h ;5f9b ld e,(ix-009h) ;5f9e ld d,(ix-8) ;5fa1 ld hl,00007h ;5fa4 add hl,de ;5fa7 ld a,(hl) ;5fa8 or a ;5fa9 jr z,l5fbfh ;5faa ld (ix-2),016h ;5fac ld l,(ix-00bh) ;5fb0 ld h,(ix-00ah) ;5fb3 ld (iy+0),l ;5fb6 ld (iy+1),h ;5fb9 jp l5e0eh ;5fbc l5fbfh: ; m27: ld e,(ix-009h) ;5fbf ld d,(ix-8) ;5fc2 ld hl,00006h ;5fc5 add hl,de ;5fc8 ld l,(hl) ;5fc9 ld (ix-2),l ;5fca ld l,e ;5fcd ld h,d ;5fce push iy ;5fcf pop de ;5fd1 push hl ;5fd2 ld bc,00002h ;5fd3 ldir ;5fd6 pop hl ;5fd8 ld l,(ix-009h) ;5fd9 ld h,(ix-8) ;5fdc inc hl ;5fdf inc hl ;5fe0 push iy ;5fe1 pop de ;5fe3 inc de ;5fe4 inc de ;5fe5 push hl ;5fe6 ld bc,00002h ;5fe7 ldir ;5fea pop hl ;5fec ld l,(ix-009h) ;5fed ld h,(ix-8) ;5ff0 inc hl ;5ff3 inc hl ;5ff4 inc hl ;5ff5 inc hl ;5ff6 ld c,(hl) ;5ff7 inc hl ;5ff8 ld b,(hl) ;5ff9 ld (iy+4),c ;5ffa ld (iy+5),b ;5ffd jp l5e0eh ;6000 l6003h: ; m28: ld a,(ix-6) ;6003 ld (byte_9def),a ;6006 ld a,(ix-1) ;6009 or a ;600c jr nz,l6027h ;600d ld a,(byte_a288) ;600f or a ;6012 jr nz,l601ah ;6013 ld hl,0001fh ;6015 jr l6020h ;6018 l601ah: ; m29: ld a,(byte_a299) ;601a ld l,a ;601d ld h,0 ;601e l6020h: ; m30: ld (ix-1),l ;6020 set 0,(ix-7) ;6023 l6027h: ; m31: bit 2,(ix-7) ;6027 jr z,l6048h ;602b ld a,(ix-1) ;602d cp 014h ;6030 jr z,l6048h ;6032 cp 006h ;6034 jr z,l6048h ;6036 cp 00eh ;6038 jr z,l6048h ;603a cp 00fh ;603c jr z,l6048h ;603e ld hl,l98b8h ;6040 ; push hl ;6043 ; call prerror ;6044 ; prerror("can't be register"); pop bc ;6047 ; l6048h: ; m32: ld a,(ix-2) ;6048 or a ;604b jr nz,l6052h ;604c ld (ix-2),008h ;604e l6052h: ; m33: ld e,(ix-4) ;6052 ld d,(ix-3) ;6055 ld hl,00000h ;6058 call wrelop ;605b jp p,l607fh ;605e ld a,(ix-2) ;6061 cp 00eh ;6064 jr z,l606ch ;6066 cp 008h ;6068 jr nz,l6074h ;606a l606ch: ; m34: add a,002h ;606c ld (ix-2),a ;606e jp l609ah ;6071 l6074h: ; m35: ld hl,l98cah ;6074 ; push hl ;6077 ; call prerror ;6078 ; prerror("can't be long"); pop bc ;607b ; jp l609ah ;607c l607fh: ; m36: bit 7,(ix-3) ;607f jr z,l609ah ;6083 ld a,(ix-2) ;6085 cp 008h ;6088 jr nz,l6092h ;608a ld (ix-2),006h ;608c jr l609ah ;6090 l6092h: ; m37: ld hl,l98d8h ;6092 ; push hl ;6095 ; call prerror ;6096 ; prerror("can't be short"); pop bc ;6099 ; l609ah: ; m38: ld a,(ix-5) ;609a or a ;609d jp z,l60bdh ;609e ld b,00eh ;60a1 ld a,(ix-2) ;60a3 call brelop ;60a6 jr nc,l60b5h ;60a9 ld a,(ix-2) ;60ab or 001h ;60ae ld (ix-2),a ;60b0 jr l60bdh ;60b3 l60b5h: ; m39: ld hl,l98e7h ;60b5 ; push hl ;60b8 ; call prerror ;60b9 ; prerror("can't be unsigned"); pop bc ;60bc ; l60bdh: ; m40: ld a,(ix+6) ;60bd or (ix+7) ;60c0 jr z,l60cfh ;60c3 ld a,(ix-1) ;60c5 ld l,(ix+6) ;60c8 ld h,(ix+7) ;60cb ld (hl),a ;60ce l60cfh: ; m41: ld a,(ix-2) ;60cf ld (iy+6),a ;60d2 ld l,(ix-7) ;60d5 jp cret ;60d8 ; =============== F U N C T I O N ======================================= ; 136 ; sub_60dbh: call ncsv ;60db defw 0fff1h ;60de ld a,001h ;60e0 ld (l8f85h),a ;60e2 call sub_2671h ;60e5 ld e,l ;60e8 ld (ix-5),e ;60e9 xor a ;60ec ld (l8f85h),a ;60ed ld a,e ;60f0 cp 073h ;60f1 jp nz,l611ch ;60f3 ld iy,(word_9dcb) ;60f6 ld a,(iy+014h) ;60fa cp (ix+6) ;60fd jr z,l6112h ;6100 ld l,(ix+6) ;6102 ld h,0 ;6105 push hl ;6107 push iy ;6108 call sub_4eedh ;610a pop bc ;610d pop bc ;610e push hl ;610f pop iy ;6110 l6112h: ; m1: call sub_2671h ;6112 ld e,l ;6115 ld (ix-5),e ;6116 jp l613dh ;6119 l611ch: ; m2: ld l,(ix+6) ;611c ld h,0 ;611f push hl ;6121 call sub_56a4h ;6122 push hl ;6125 call sub_4eedh ;6126 pop bc ;6129 pop bc ;612a push hl ;612b pop iy ;612c ld a,(ix-5) ;612e cp 004h ;6131 jr z,l613dh ;6133 ld hl,l98f9h ;6135 ; push hl ;6138 ; call errexpected ;6139 ; errexpected("struct/union tag or '{'"); pop bc ;613c ; l613dh: ; m3: ld (ix-4),0 ;613d ld (ix-3),0 ;6141 ld a,(ix-5) ;6145 cp 004h ;6148 jp nz,l6354h ;614a ld de,00001h ;614d ld a,(iy+012h) ;6150 and 081h ;6153 ld l,a ;6155 xor a ;6156 ld h,a ;6157 or a ;6158 sbc hl,de ;6159 jp nz,l6170h ;615b ld l,(iy+017h) ;615e ld h,(iy+018h) ;6161 push hl ;6164 ld hl,l9911h ;6165 ; "struct/union redefined: %s" push hl ;6168 ; call prerror ;6169 ; prerror(); pop bc ;616c ; pop bc ;616d ; jr l617dh ;616e l6170h: ; m4: push iy ;6170 pop de ;6172 ld hl,0000ah ;6173 add hl,de ;6176 ld (ix-4),l ;6177 ld (ix-3),h ;617a l617dh: ; m5: ld (ix-7),0 ;617d ld (ix-6),0 ;6181 l6185h: ; m6: push ix ;6185 pop de ;6187 ld hl,0fff1h ;6188 add hl,de ;618b push hl ;618c ld hl,00000h ;618d push hl ;6190 call sub_5dd1h ;6191 pop bc ;6194 pop bc ;6195 ld a,001h ;6196 ld (byte_8f86),a ;6198 l619bh: ; m7: push iy ;619b ld hl,00000h ;619d push hl ;61a0 push ix ;61a1 pop de ;61a3 ld hl,0fff1h ;61a4 add hl,de ;61a7 push hl ;61a8 ld hl,0000ah ;61a9 push hl ;61ac call sub_69cah ;61ad pop bc ;61b0 pop bc ;61b1 pop bc ;61b2 pop bc ;61b3 ld (ix-2),l ;61b4 ld (ix-1),h ;61b7 ld a,l ;61ba or h ;61bb jp z,l6213h ;61bc ex de,hl ;61bf ld hl,00007h ;61c0 add hl,de ;61c3 ld a,(hl) ;61c4 cp 002h ;61c5 jr nz,l61d1h ;61c7 ld hl,l992ch ;61c9 ; push hl ;61cc ; call prerror ;61cd ; prerror("members cannot be functions"); pop bc ;61d0 ; l61d1h: ; m8: ld l,(ix-2) ;61d1 ld h,(ix-1) ;61d4 push hl ;61d7 call sub_516ch ;61d8 pop bc ;61db ld a,(ix-4) ;61dc or (ix-3) ;61df ld e,(ix-2) ;61e2 ld d,(ix-1) ;61e5 jp z,l61feh ;61e8 ld l,(ix-4) ;61eb ld h,(ix-3) ;61ee ld (hl),e ;61f1 inc hl ;61f2 ld (hl),d ;61f3 ld hl,0000ah ;61f4 add hl,de ;61f7 ld (ix-4),l ;61f8 ld (ix-3),h ;61fb l61feh: ; m9: ld hl,0000eh ;61fe add hl,de ;6201 ld e,(ix-7) ;6202 ld d,(ix-6) ;6205 inc de ;6208 ld (ix-7),e ;6209 ld (ix-6),d ;620c dec de ;620f ld (hl),e ;6210 inc hl ;6211 ld (hl),d ;6212 l6213h: ; m10: call sub_2671h ;6213 ld a,l ;6216 ld (ix-5),a ;6217 cp 063h ;621a jp nz,l62f2h ;621c ld e,(ix-2) ;621f ld d,(ix-1) ;6222 ld hl,00006h ;6225 add hl,de ;6228 bit 0,(hl) ;6229 jr nz,l6239h ;622b ld hl,00006h ;622d add hl,de ;6230 ld a,(hl) ;6231 or 001h ;6232 ld hl,00006h ;6234 add hl,de ;6237 ld (hl),a ;6238 l6239h: ; m11: ld hl,00009h ;6239 push hl ;623c ld l,(ix-2) ;623d ld h,(ix-1) ;6240 push hl ;6243 call sub_5a76h ;6244 pop bc ;6247 pop bc ;6248 ld a,l ;6249 or a ;624a jr nz,l6255h ;624b ld hl,l9948h ;624d ; push hl ;6250 ; call prerror ;6251 ; prerror("bad bitfield type"); pop bc ;6254 ; l6255h: ; m12: call sub_2671h ;6255 ld a,l ;6258 ld (ix-5),a ;6259 cp 074h ;625c jr z,l626bh ;625e ld hl,l995ah ;6260 ; push hl ;6263 ; call prerror ;6264 ; prerror("integer constant expected"); pop bc ;6267 ; jp l62f2h ;6268 l626bh: ; m13: ld a,(ix-2) ;626b or (ix-1) ;626e jp nz,l62ceh ;6271 push iy ;6274 push ix ;6276 pop de ;6278 ld hl,0fff1h ;6279 add hl,de ;627c push hl ;627d ld hl,0000ah ;627e push hl ;6281 call sub_56a4h ;6282 push hl ;6285 call sub_4eedh ;6286 pop bc ;6289 pop bc ;628a pop bc ;628b ld (ix-2),l ;628c ld (ix-1),h ;628f ex (sp),hl ;6292 call sub_516ch ;6293 pop bc ;6296 ld a,(ix-4) ;6297 or (ix-3) ;629a ld e,(ix-2) ;629d ld d,(ix-1) ;62a0 jp z,l62b9h ;62a3 ld l,(ix-4) ;62a6 ld h,(ix-3) ;62a9 ld (hl),e ;62ac inc hl ;62ad ld (hl),d ;62ae ld hl,0000ah ;62af add hl,de ;62b2 ld (ix-4),l ;62b3 ld (ix-3),h ;62b6 l62b9h: ; m14: ld hl,0000eh ;62b9 add hl,de ;62bc ld e,(ix-7) ;62bd ld d,(ix-6) ;62c0 inc de ;62c3 ld (ix-7),e ;62c4 ld (ix-6),d ;62c7 dec de ;62ca ld (hl),e ;62cb inc hl ;62cc ld (hl),d ;62cd l62ceh: ; m15: ld e,(ix-2) ;62ce ld d,(ix-1) ;62d1 ld hl,00012h ;62d4 add hl,de ;62d7 ld c,(hl) ;62d8 inc hl ;62d9 ld b,(hl) ;62da set 2,b ;62db ld (hl),b ;62dd dec hl ;62de ld (hl),c ;62df ld hl,00010h ;62e0 add hl,de ;62e3 ld de,(word_9dcb) ;62e4 ld (hl),e ;62e8 inc hl ;62e9 ld (hl),d ;62ea call sub_2671h ;62eb ld e,l ;62ee ld (ix-5),e ;62ef l62f2h: ; m16: ld a,(ix-5) ;62f2 cp 071h ;62f5 jp z,l619bh ;62f7 xor a ;62fa ld (byte_8f86),a ;62fb ld a,(ix-5) ;62fe cp 002h ;6301 jr z,l630dh ;6303 ld hl,l9974h ;6305 ; push hl ;6308 ; call errexpected ;6309 ; errexpected(";"); pop bc ;630c ; l630dh: ; m17: call sub_2671h ;630d ld e,l ;6310 ld (ix-5),e ;6311 ld a,e ;6314 cp 003h ;6315 jp nz,l634bh ;6317 bit 0,(iy+012h) ;631a jr nz,l6326h ;631e push iy ;6320 call sub_516ch ;6322 pop bc ;6325 l6326h: ; m18: ld a,(ix-4) ;6326 or (ix-3) ;6329 push iy ;632c jp z,l635ch ;632e pop de ;6331 ld l,(ix-4) ;6332 ld h,(ix-3) ;6335 ld (hl),e ;6338 inc hl ;6339 ld (hl),d ;633a ld l,(ix+6) ;633b ld h,0 ;633e push hl ;6340 push iy ;6341 call sub_0353h ;6343 pop bc ;6346 pop bc ;6347 jp l635ah ;6348 l634bh: ; m19: ld a,(ix-5) ;634b ld (byte_9def),a ;634e jp l6185h ;6351 l6354h: ; m20: ld a,(ix-5) ;6354 ld (byte_9def),a ;6357 l635ah: ; m21: push iy ;635a l635ch: ; m22: pop hl ;635c jp cret ;635d ; =============== F U N C T I O N ======================================= ; 137 ; sub_6360h: call ncsv ;6360 defw 0fff1h ;6363 call sub_2671h ;6365 ld a,l ;6368 ld (ix-00fh),a ;6369 cp 073h ;636c jp nz,l63a1h ;636e ld iy,(word_9dcb) ;6371 call sub_2671h ;6375 ld a,l ;6378 ld (ix-00fh),a ;6379 cp 004h ;637c jp z,l63beh ;637e bit 0,(iy+012h) ;6381 jp nz,l6398h ;6385 ld l,(iy+017h) ;6388 ld h,(iy+018h) ;638b push hl ;638e ld hl,l9976h ;638f ; "undefined enum tag: %s" push hl ;6392 ; call prerror ;6393 ; prerror(); pop bc ;6396v pop bc ;6397 ; l6398h: ; m1: ld a,(ix-00fh) ;6398 ld (byte_9def),a ;639b jp l63beh ;639e l63a1h: ; m2: ld a,(ix-00fh) ;63a1 cp 4 ;63a4 jp nz,l63b2h ;63a6 call sub_56a4h ;63a9 push hl ;63ac pop iy ;63ad jp l63beh ;63af ; goto m l63b2h: ; m3: ld hl,l998dh ;63b2 ; push hl ;63b5 ; call errexpected ;63b6 ; errexpected("enum tag or {"); pop bc ;63b9 ; ld iy,00000h ;63ba l63beh: ; m4: ld a,(ix-00fh) ;63be cp 4 ;63c1 jp nz,l646eh ;63c3 ld hl,0000bh ;63c6 push hl ;63c9 push iy ;63ca call sub_4eedh ;63cc pop bc ;63cf push hl ;63d0 pop iy ;63d1 ex (sp),hl ;63d3 call sub_516ch ;63d4 ld (ix-2),012h ;63d7 push iy ;63db pop hl ;63dd ld (ix-8),l ;63de ld (ix-7),h ;63e1 ld (ix-4),0 ;63e4 ld (ix-3),0 ;63e8 ld (ix-6),0 ;63ec ld (ix-5),0 ;63f0 ld (ix-1),0 ;63f4 ld hl,l999bh ;63f8 ; ex (sp),hl ;63fb ; call _printf ;63fc ; printf("[c "); ld hl,__iob+8 ;63ff ex (sp),hl ;6402 push iy ;6403 call sub_573bh ;6405 pop bc ;6408 ld hl,0000ah ;6409 ; ex (sp),hl ;640c ; call _putchar ;640d ; putchar(\n); ld (ix-00eh),0 ;6410 ld (ix-00dh),0 ;6414 ld hl,00008h ;6418 ex (sp),hl ;641b ld de,00000h ;641c ld l,e ;641f ld h,d ;6420 push hl ;6421 push de ;6422 call sub_1b4bh ;6423 pop bc ;6426 pop bc ;6427 pop bc ;6428 ld (ix-00ch),l ;6429 ld (ix-00bh),h ;642c l642fh: ; m5: call sub_2671h ;642f ld a,l ;6432 ld (ix-00fh),a ;6433 cp 073h ;6436 jp z,l6474h ;6438 ld hl,l999fh ;643b ; push hl ;643e ; call errexpected ;643f ; errexpected("identifier"); pop bc ;6442 ; l6443h: ; m6: ld hl,l99c6h ;6443 ; push hl ;6446 ; call _printf ;6447 ; printf(".. ]\n"); ld l,(ix-00ch) ;644a ld h,(ix-00bh) ;644d ex (sp),hl ;6450 call sub_2569h ;6451 pop bc ;6454 ld a,(ix-00fh) ;6455 cp 003h ;6458 jp z,l646eh ;645a ld hl,l99cch ;645d ; push hl ;6460 ; call errexpected ;6461 ; errexpected("}"); ld l,(ix-00fh) ;6464 ld h,0 ;6467 ex (sp),hl ;6469 call sub_3610h ;646a pop bc ;646d l646eh: ; m7: push iy ;646e pop hl ;6470 jp cret ;6471 l6474h: ; m8: push iy ;6474 push ix ;6476 pop de ;6478 ld hl,0fff8h ;6479 add hl,de ;647c push hl ;647d ld hl,0000ch ;647e push hl ;6481 ld hl,(word_9dcb) ;6482 push hl ;6485 call sub_4eedh ;6486 pop bc ;6489 pop bc ;648a pop bc ;648b pop bc ;648c ld (ix-00ah),l ;648d ld (ix-009h),h ;6490 ld a,l ;6493 or h ;6494 jp z,l64aeh ;6495 ex de,hl ;6498 ld hl,0000eh ;6499 add hl,de ;649c ld e,(ix-00eh) ;649d ld d,(ix-00dh) ;64a0 inc de ;64a3 ld (ix-00eh),e ;64a4 ld (ix-00dh),d ;64a7 dec de ;64aa ld (hl),e ;64ab inc hl ;64ac ld (hl),d ;64ad l64aeh: ; m9: call sub_2671h ;64ae ld a,l ;64b1 ld (ix-00fh),a ;64b2 cp 064h ;64b5 jp nz,l6500h ;64b7 ld l,(ix-00ch) ;64ba ld h,(ix-00bh) ;64bd push hl ;64c0 call sub_2569h ;64c1 ld hl,00004h ;64c4 ex (sp),hl ;64c7 call sub_0a83h ;64c8 ld (ix-00ch),l ;64cb ld (ix-00bh),h ;64ce ex de,hl ;64d1 ld hl,0x0005 ;64d2 add hl,de ;64d5 ex (sp),hl ;64d6 call sub_5b08h ;64d7 pop bc ;64da ld a,l ;64db or a ;64dc jp z,l64f2h ;64dd ld b,00ah ;64e0 ld e,(ix-00ch) ;64e2 ld d,(ix-00bh) ;64e5 ld hl,0000bh ;64e8 add hl,de ;64eb ld a,(hl) ;64ec call brelop ;64ed jr c,l64fah ;64f0 l64f2h: ; m10: ld hl,l99aah ;64f2 ; push hl ;64f5 ; call prerror ;64f6 ; prerror("integer expression required"); pop bc ;64f9 ; l64fah: ; m11: call sub_2671h ;64fa ld (ix-00fh),l ;64fd l6500h: ; m12: ld l,(ix-00ah) ;6500 ld h,(ix-009h) ;6503 push hl ;6506 call sub_516ch ;6507 ld l,(ix-00ch) ;650a ld h,(ix-00bh) ;650d ex (sp),hl ;6510 call sub_05d3h ;6511 pop bc ;6514 ld a,(ix-00fh) ;6515 cp 071h ;6518 jp nz,l6443h ;651a ld l,(ix-00ch) ;651d ld h,(ix-00bh) ;6520 push hl ;6523 call sub_25f7h ;6524 pop bc ;6527 ld (ix-00ch),l ;6528 ld (ix-00bh),h ;652b jp l642fh ;652e ; =============== F U N C T I O N ======================================= ; 138 ; sub_6531h: call csv ;6531 push hl ;6534 push hl ;6535 ld l,(ix+6) ;6536 ld h,(ix+7) ;6539 push hl ;653c pop iy ;653d ld a,l ;653f or h ;6540 jp z,l655dh ;6541 push iy ;6544 call sub_5aa4h ;6546 pop bc ;6549 ld a,l ;654a or a ;654b jp nz,l655dh ;654c ld hl,l99ceh ;654f ; push hl ;6552 ; call prerror ;6553 ; prerror("can't initialise auto aggregates"); pop bc ;6556 ; call sub_3666h ;6557 jp cret ;655a l655dh: ; m1: call sub_2671h ;655d ld a,l ;6560 ld (ix-3),a ;6561 cp 004h ;6564 ld hl,00001h ;6566 jr z,l656ch ;6569 dec hl ;656b l656ch: ; m2: ld a,l ;656c ld (ix-4),a ;656d or a ;6570 jr nz,l6579h ;6571 ld a,(ix-3) ;6573 ld (byte_9def),a ;6576 l6579h: ; m3: ld hl,00003h ;6579 push hl ;657c call sub_07f5h ;657d ex (sp),hl ;6580 ld hl,0003ch ;6581 push hl ;6584 call sub_1441h ;6585 pop bc ;6588 pop bc ;6589 ld (ix-2),l ;658a ld (ix-1),h ;658d ld a,l ;6590 or h ;6591 jp z,l65c8h ;6592 push iy ;6595 pop hl ;6597 ld a,l ;6598 or h ;6599 jp z,l65c8h ;659a ld l,(ix-2) ;659d ld h,(ix-1) ;65a0 push hl ;65a3 push iy ;65a4 call sub_240eh ;65a6 ex (sp),hl ;65a9 ld hl,00064h ;65aa push hl ;65ad call sub_1441h ;65ae pop bc ;65b1 pop bc ;65b2 ld (ix-2),l ;65b3 ld (ix-1),h ;65b6 ex (sp),hl ;65b9 call sub_042dh ;65ba ld l,(ix-2) ;65bd ld h,(ix-1) ;65c0 ex (sp),hl ;65c3 call sub_2569h ;65c4 pop bc ;65c7 l65c8h: ; m4: ld a,(ix-4) ;65c8 or a ;65cb jp z,cret ;65cc call sub_2671h ;65cf ld a,l ;65d2 cp 003h ;65d3 jp z,cret ;65d5 ld hl,l99efh ;65d8 ; push hl ;65db ; call errexpected ;65dc ; errexpected("}"); jp cret ;65df ; =============== F U N C T I O N ======================================= ; 139 ; sub_65e2h: call ncsv ;65e2 defw 0fbe2h ;65e5 ld a,(byte_a299) ;65e7 ld (ix-010h),a ;65ea ld a,00fh ;65ed ld (byte_a299),a ;65ef push ix ;65f2 pop de ;65f4 ld hl,0fbe2h ;65f5 add hl,de ;65f8 ld de,00000h ;65f9 ld (hl),e ;65fc inc hl ;65fd ld (hl),d ;65fe ld a,e ;65ff ld (ix-012h),a ;6600 ld (ix-011h),a ;6603 ld (ix-014h),8 ;6606 ld (ix-016h),a ;660a ld (ix-015h),a ;660d ld (ix-018h),a ;6610 ld (ix-017h),a ;6613 ld (ix-013h),a ;6616 l6619h: ; m1: call sub_2671h ;6619 ld e,l ;661c ld (ix-00ch),e ;661d ld a,e ;6620 cp 00dh ;6621 jp nz,l66dbh ;6623 push ix ;6626 pop de ;6628 ld hl,0fbe2h ;6629 add hl,de ;662c ld a,(hl) ;662d inc hl ;662e ld h,(hl) ;662f ld l,a ;6630 add hl,hl ;6631 add hl,hl ;6632 add hl,hl ;6633 push ix ;6634 pop de ;6636 add hl,de ;6637 ld de,0fbeah ;6638 add hl,de ;663b ld (hl),018h ;663c push ix ;663e pop de ;6640 ld hl,0fbe2h ;6641 add hl,de ;6644 ld a,(hl) ;6645 inc hl ;6646 ld h,(hl) ;6647 ld l,a ;6648 add hl,hl ;6649 add hl,hl ;664a add hl,hl ;664b push ix ;664c pop de ;664e add hl,de ;664f ld de,0fbe6h ;6650 add hl,de ;6653 ld de,00000h ;6654 ld (hl),e ;6657 inc hl ;6658 ld (hl),d ;6659 push ix ;665a pop de ;665c ld hl,0fbe2h ;665d add hl,de ;6660 ld a,(hl) ;6661 inc hl ;6662 ld h,(hl) ;6663 ld l,a ;6664 add hl,hl ;6665 add hl,hl ;6666 add hl,hl ;6667 push ix ;6668 pop de ;666a add hl,de ;666b ld de,0fbebh ;666c add hl,de ;666f ld (hl),0 ;6670 push ix ;6672 pop de ;6674 ld hl,0fbe2h ;6675 add hl,de ;6678 ld e,(hl) ;6679 inc hl ;667a ld d,(hl) ;667b ex de,hl ;667c inc hl ;667d ex de,hl ;667e ld (hl),d ;667f dec hl ;6680 ld (hl),e ;6681 ex de,hl ;6682 dec hl ;6683 add hl,hl ;6684 add hl,hl ;6685 add hl,hl ;6686 push ix ;6687 pop de ;6689 add hl,de ;668a ld de,0fbe8h ;668b add hl,de ;668e ld de,00000h ;668f ld (hl),e ;6692 inc hl ;6693 ld (hl),d ;6694 call sub_2671h ;6695 ld e,l ;6698 ld (ix-00ch),e ;6699 l669ch: ; m2: ld a,(ix-010h) ;669c ld (byte_a299),a ;669f ld a,(ix-00ch) ;66a2 cp 03fh ;66a5 jp z,l66bbh ;66a7 ld hl,l9a78h ;66aa ; push hl ;66ad ; call errexpected ;66ae ; errexpected(")"); ld l,(ix-00ch) ;66b1 ld h,0 ;66b4 ex (sp),hl ;66b6 call sub_3610h ;66b7 pop bc ;66ba l66bbh: ; m3: push ix ;66bb pop de ;66bd ld hl,0fbe2h ;66be add hl,de ;66c1 ld a,(hl) ;66c2 inc hl ;66c3 or (hl) ;66c4 jp z,l69c4h ;66c5 push ix ;66c8 pop de ;66ca ld hl,0fbe2h ;66cb add hl,de ;66ce ld c,(hl) ;66cf inc hl ;66d0 ld b,(hl) ;66d1 ld (ix-01ch),c ;66d2 ld (ix-01bh),b ;66d5 jp l69a3h ;66d8 l66dbh: ; m4: ld a,(ix-00ch) ;66db cp 073h ;66de jp nz,l670bh ;66e0 ld de,(word_9dcb) ;66e3 ld hl,00014h ;66e7 add hl,de ;66ea ld a,(hl) ;66eb cp 02dh ;66ec jp z,l670bh ;66ee ld a,(ix+6) ;66f1 or (ix+7) ;66f4 jp z,l6701h ;66f7 ld (ix-012h),1 ;66fa jp l670fh ;66fe l6701h: ; m5: ld hl,l99f1h ;6701 ; push hl ;6704 ; call prerror ;6705 ; prerror("type specifier reqd. for proto arg"); pop bc ;6708 ; jr l670fh ;6709 l670bh: ; m6: ld (ix-11h),1 ;670b l670fh: ; m7: ld a,(ix-011h) ;670f or a ;6712 jp z,l6729h ;6713 ld a,(ix-012h) ;6716 or a ;6719 jp z,l6729h ;671a ld (ix-012h),0 ;671d ld hl,l9a14h ;6721 ; push hl ;6724 ; call prerror ;6725 ; prerror("can't mix proto and non-proto args"); pop bc ;6728 ; l6729h: ; m8: ld a,(ix-00ch) ;6729 ld (byte_9def),a ;672c push ix ;672f pop de ;6731 ld hl,0fff7h ;6732 add hl,de ;6735 push hl ;6736 push ix ;6737 pop hl ;6739 dec hl ;673a push hl ;673b call sub_5dd1h ;673c pop bc ;673f pop bc ;6740 ld e,l ;6741 ld (ix-00fh),e ;6742 ld a,(ix-1) ;6745 cp 00fh ;6748 jp z,l675ah ;674a cp 026h ;674d jp z,l675ah ;674f ld hl,l9a37h ;6752 ; push hl ;6755 ; call prerror ;6756 ; prerror("bad storage class"); pop bc ;6759 ; l675ah: ; m9: ld a,(ix+6) ;675a or (ix+7) ;675d jp nz,l6768h ;6760 ld hl,0000eh ;6763 jr l676bh ;6766 l6768h: ; m10: ld hl,0000fh ;6768 l676bh: ; m11: ld (ix-1),l ;676b ld l,(ix-00fh) ;676e ld h,0 ;6771 ld a,l ;6773 and 0feh ;6774 ld l,a ;6776 ld a,h ;6777 push hl ;6778 push ix ;6779 pop de ;677b ld hl,0fff7h ;677c add hl,de ;677f push hl ;6780 ld l,(ix-1) ;6781 ld h,a ;6784 push hl ;6785 call sub_69cah ;6786 pop bc ;6789 pop bc ;678a pop bc ;678b push hl ;678c pop iy ;678d ld (ix-00bh),l ;678f ld (ix-00ah),h ;6792 ex de,hl ;6795 ld hl,00007h ;6796 add hl,de ;6799 ld a,(hl) ;679a cp 002h ;679b jp nz,l67ddh ;679d ld l,e ;67a0 ld h,d ;67a1 push hl ;67a2 ld hl,0002dh ;67a3 push hl ;67a6 call sub_56a4h ;67a7 push hl ;67aa call sub_4eedh ;67ab pop bc ;67ae pop bc ;67af pop bc ;67b0 ex de,hl ;67b1 ld l,(ix-00bh) ;67b2 ld h,(ix-00ah) ;67b5 ld (hl),e ;67b8 inc hl ;67b9 ld (hl),d ;67ba ld e,(ix-00bh) ;67bb ld d,(ix-00ah) ;67be ld hl,00006h ;67c1 add hl,de ;67c4 ld (hl),016h ;67c5 ld hl,00007h ;67c7 add hl,de ;67ca ld (hl),0 ;67cb ld de,00001h ;67cd ld l,(ix-00bh) ;67d0 ld h,(ix-00ah) ;67d3 inc hl ;67d6 inc hl ;67d7 inc hl ;67d8 inc hl ;67d9 ld (hl),e ;67da inc hl ;67db ld (hl),d ;67dc l67ddh: ; m12: ld a,(ix-011h) ;67dd or a ;67e0 jp z,l680eh ;67e1 push ix ;67e4 pop de ;67e6 ld hl,0fbe2h ;67e7 add hl,de ;67ea ld e,(hl) ;67eb inc hl ;67ec ld d,(hl) ;67ed ex de,hl ;67ee inc hl ;67ef ex de,hl ;67f0 ld (hl),d ;67f1 dec hl ;67f2 ld (hl),e ;67f3 ex de,hl ;67f4 dec hl ;67f5 add hl,hl ;67f6 add hl,hl ;67f7 add hl,hl ;67f8 push ix ;67f9 pop de ;67fb add hl,de ;67fc ld de,0fbe4h ;67fd add hl,de ;6800 push hl ;6801 ld l,(ix-00bh) ;6802 ld h,(ix-00ah) ;6805 push hl ;6808 call sub_58bdh ;6809 pop bc ;680c pop bc ;680d l680eh: ; m13: ld a,(ix-00fh) ;680e and 0feh ;6811 ld (ix-00fh),a ;6813 ld (ix-1),006h ;6816 ld a,(ix-011h) ;681a or a ;681d jp nz,l682bh ;681e push ix ;6821 pop de ;6823 ld hl,0ffe6h ;6824 add hl,de ;6827 jp l6831h ;6828 l682bh: ; m14: ld l,(ix-00bh) ;682b ld h,(ix-00ah) ;682e l6831h: ; m15: push hl ;6831 ld l,(ix-1) ;6832 ld h,0 ;6835 push hl ;6837 push iy ;6838 call sub_4eedh ;683a pop bc ;683d pop bc ;683e pop bc ;683f push hl ;6840 pop iy ;6841 ld a,(ix+6) ;6843 or (ix+7) ;6846 jp z,l6903h ;6849 ld hl,00014h ;684c push hl ;684f ld l,(ix-00bh) ;6850 ld h,(ix-00ah) ;6853 push hl ;6856 call sub_5a76h ;6857 pop bc ;685a pop bc ;685b ld a,l ;685c or a ;685d jp nz,l6903h ;685e ld hl,(word_a28f) ;6861 ld a,l ;6864 or h ;6865 jp nz,l6893h ;6866 ld (word_a28f),iy ;6869 push iy ;686d pop hl ;686f ld (ix-00eh),l ;6870 ld (ix-00dh),h ;6873 ld a,(ix-00fh) ;6876 or 020h ;6879 ld e,a ;687b ld d,0 ;687c ld l,(iy+012h) ;687e ld h,(iy+013h) ;6881 ld a,l ;6884 or e ;6885 ld l,a ;6886 ld a,h ;6887 or d ;6888 ld h,a ;6889 ld (iy+012h),l ;688a ld (iy+013h),h ;688d jp l68e0h ;6890 l6893h: ; m16: bit 5,(iy+012h) ;6893 jp z,l68adh ;6897 ld l,(iy+017h) ;689a ld h,(iy+018h) ;689d push hl ;68a0 ld hl,l9a49h ;68a1 ; "argument redeclared: %s" push hl ;68a4 ; call prerror ;68a5 ; prerror(); pop bc ;68a8 ; pop bc ;68a9v jp l68e0h ;68aa l68adh: ; m17: ld e,(ix-00eh) ;68ad ld d,(ix-00dh) ;68b0 ld hl,0000ah ;68b3 add hl,de ;68b6 push iy ;68b7 pop de ;68b9 ld (hl),e ;68ba inc hl ;68bb ld (hl),d ;68bc ld a,(ix-00fh) ;68bd or 020h ;68c0 ld e,a ;68c2 ld d,0 ;68c3 ld l,(iy+012h) ;68c5 ld h,(iy+013h) ;68c8 ld a,l ;68cb or e ;68cc ld l,a ;68cd ld a,h ;68ce or d ;68cf ld h,a ;68d0 ld (iy+012h),l ;68d1 ld (iy+013h),h ;68d4 push iy ;68d7 pop hl ;68d9 ld (ix-00eh),l ;68da ld (ix-00dh),h ;68dd l68e0h: ; m18: ld a,(ix-011h) ;68e0 or a ;68e3 jp z,l68fbh ;68e4 ld l,(iy+012h) ;68e7 ld h,(iy+013h) ;68ea ld a,l ;68ed or 008h ;68ee ld l,a ;68f0 ld a,h ;68f1 or 002h ;68f2 ld h,a ;68f4 ld (iy+012h),l ;68f5 ld (iy+013h),h ;68f8 l68fbh: ; m19: ld (iy+00ah),0 ;68fb ld (iy+00bh),0 ;68ff l6903h: ; m20: call sub_2671h ;6903 ld a,l ;6906 ld (ix-00ch),a ;6907 cp 064h ;690a jp nz,l6920h ;690c ld hl,l9a61h ;690f ; push hl ;6912 ; call prerror ;6913 ; prerror("can't initialize arg"); ld l,(ix-00ch) ;6916 ld h,0 ;6919 ex (sp),hl ;691b call sub_3610h ;691c pop bc ;691f l6920h: ; m21: ld a,(ix-00ch) ;6920 cp 073h ;6923 jp z,l6932h ;6925 cp 005h ;6928 jp z,l6932h ;692a cp 077h ;692d jp nz,l6943h ;692f l6932h: ; m22: ld hl,l9a76h ;6932 ; push hl ;6935 ; call errexpected ;6936 ; errexpected("."); pop bc ;6939 ; ld a,(ix-00ch) ;693a ld (byte_9def),a ;693d jp l6619h ;6940 l6943h: ; m23: ld a,(ix-00ch) ;6943 cp 071h ;6946 jp z,l6619h ;6948 jp l669ch ;694b l694eh: ; m24: ld l,(ix-01ch) ;694e ld h,(ix-01bh) ;6951 add hl,hl ;6954 add hl,hl ;6955 add hl,hl ;6956 add hl,de ;6957 ld de,0fbebh ;6958 add hl,de ;695b ld a,(hl) ;695c cp 001h ;695d jp nz,l69a3h ;695f push ix ;6962 pop de ;6964 ld l,(ix-01ch) ;6965 ld h,(ix-01bh) ;6968 add hl,hl ;696b add hl,hl ;696c add hl,hl ;696d add hl,de ;696e ld de,0fbebh ;696f add hl,de ;6972 ld (hl),0 ;6973 push ix ;6975 pop de ;6977 ld l,(ix-01ch) ;6978 ld h,(ix-01bh) ;697b add hl,hl ;697e add hl,hl ;697f add hl,hl ;6980 add hl,de ;6981 ld de,0fbe6h ;6982 add hl,de ;6985 ld c,(hl) ;6986 inc hl ;6987 ld b,(hl) ;6988 push bc ;6989 call sub_2569h ;698a push ix ;698d pop de ;698f ld l,(ix-01ch) ;6990 ld h,(ix-01bh) ;6993 add hl,hl ;6996 add hl,hl ;6997 add hl,hl ;6998 add hl,de ;6999 ld de,0fbe4h ;699a add hl,de ;699d ex (sp),hl ;699e call sub_5be1h ;699f pop bc ;69a2 l69a3h: ; m25: ld l,(ix-01ch) ;69a3 ld h,(ix-01bh) ;69a6 dec hl ;69a9 ld (ix-01ch),l ;69aa ld (ix-01bh),h ;69ad inc hl ;69b0 ld a,l ;69b1 or h ;69b2 push ix ;69b3 pop de ;69b5 jr nz,l694eh ;69b6 ld hl,0fbe2h ;69b8 add hl,de ;69bb push hl ;69bc call sub_578dh ;69bd pop bc ;69c0 jp cret ;69c1 l69c4h: ; m26: ld hl,00000h ;69c4 jp cret ;69c7 ; =============== F U N C T I O N ======================================= ; 140 ; sub_69cah: call ncsv ;69ca defw 0ffe5h ;69cd ld l,(ix+8) ;69cf ld h,(ix+9) ;69d2 push hl ;69d5 pop iy ;69d6 ld hl,(0a297h) ;69d8 ld (ix-6),l ;69db ld (ix-5),h ;69de push ix ;69e1 pop de ;69e3 ld hl,0ffeeh ;69e4 add hl,de ;69e7 ld (0a297h),hl ;69e8 ld (ix-019h),0 ;69eb ld (ix-018h),0 ;69ef ld (ix-01bh),0 ;69f3 ld (ix-01ah),0 ;69f7 ld (ix-014h),0 ;69fb ld (ix-017h),0 ;69ff ld (ix-016h),0 ;6a03 ld (ix-015h),0 ;6a07 push ix ;6a0b pop de ;6a0d ld hl,0ffe5h ;6a0e add hl,de ;6a11 ex de,hl ;6a12 ld hl,(0a297h) ;6a13 inc hl ;6a16 inc hl ;6a17 ld (hl),e ;6a18 inc hl ;6a19 ld (hl),d ;6a1a ld de,(0a297h) ;6a1b ld hl,00006h ;6a1f add hl,de ;6a22 ld de,00000h ;6a23 ld (hl),e ;6a26 inc hl ;6a27 ld (hl),d ;6a28 ld hl,(0a297h) ;6a29 ld (hl),e ;6a2c inc hl ;6a2d ld (hl),d ;6a2e inc hl ;6a2f inc hl ;6a30 inc hl ;6a31 ld (hl),e ;6a32 inc hl ;6a33 ld (hl),d ;6a34 ld a,e ;6a35 ld de,(0a297h) ;6a36 ld hl,0000ah ;6a3a add hl,de ;6a3d ld (hl),a ;6a3e ld hl,00009h ;6a3f add hl,de ;6a42 ld (hl),a ;6a43 ld hl,00008h ;6a44 add hl,de ;6a47 ld (hl),a ;6a48 ld hl,0000bh ;6a49 add hl,de ;6a4c ld (hl),0 ;6a4d ld l,(ix+6) ;6a4f ld h,a ;6a52 push hl ;6a53 call sub_6fabh ;6a54 pop bc ;6a57 call sub_2671h ;6a58 ld a,l ;6a5b ld (ix-013h),a ;6a5c ld (byte_9def),a ;6a5f ld de,(0a297h) ;6a62 ld hl,0000bh ;6a66 add hl,de ;6a69 ld a,(hl) ;6a6a or a ;6a6b jp z,l6aafh ;6a6c ld a,(ix+6) ;6a6f cp 04fh ;6a72 jp z,l6a8eh ;6a74 cp 00eh ;6a77 jp z,l6a8eh ;6a79 cp 00fh ;6a7c jp z,l6a8eh ;6a7e cp 00ah ;6a81 jp nz,l6aa7h ;6a83 ld a,(ix-013h) ;6a86 cp 063h ;6a89 jp nz,l6aa7h ;6a8b l6a8eh: ; m1: call sub_56a4h ;6a8e ex de,hl ;6a91 ld hl,(0a297h) ;6a92 ld (hl),e ;6a95 inc hl ;6a96 ld (hl),d ;6a97 ld a,(ix+6) ;6a98 cp 04fh ;6a9b jp nz,l6aafh ;6a9d ld (ix+6),02dh ;6aa0 jp l6aafh ;6aa4 l6aa7h: ; m2: ld hl,l9a7ah ;6aa7 ; push hl ;6aaa ; call prerror ;6aab ; prerror("no identifier in declaration"); pop bc ;6aae ; l6aafh: ; m3: ld a,(iy+6) ;6aaf ld hl,(0a297h) ;6ab2 inc hl ;6ab5 inc hl ;6ab6 ld c,(hl) ;6ab7 inc hl ;6ab8 ld b,(hl) ;6ab9 ld hl,00006h ;6aba add hl,bc ;6abd ld (hl),a ;6abe ld hl,(0a297h) ;6abf inc hl ;6ac2 inc hl ;6ac3 ld e,(hl) ;6ac4 inc hl ;6ac5 ld d,(hl) ;6ac6 push iy ;6ac7 pop hl ;6ac9 push hl ;6aca ld bc,00002h ;6acb ldir ;6ace pop hl ;6ad0 ld l,(iy+4) ;6ad1 ld h,(iy+5) ;6ad4 ld (ix-2),l ;6ad7 ld (ix-1),h ;6ada jp l6b34h ;6add l6ae0h: ; m4: ld de,(0a297h) ;6ae0 ld hl,00006h ;6ae4 add hl,de ;6ae7 ld c,(hl) ;6ae8 inc hl ;6ae9 ld b,(hl) ;6aea bit 0,c ;6aeb jp z,l6af9h ;6aed ld hl,00008h ;6af0 add hl,de ;6af3 ld (hl),001h ;6af4 jp l6b3ch ;6af6 l6af9h: ; m5: ld b,00fh ;6af9 ld a,(ix-2) ;6afb and 001h ;6afe ld l,a ;6b00 xor a ;6b01 ld h,a ;6b02 call shar ;6b03 push hl ;6b06 ld de,(0a297h) ;6b07 ld hl,00006h ;6b0b add hl,de ;6b0e ld c,(hl) ;6b0f inc hl ;6b10 ld b,(hl) ;6b11 srl b ;6b12 rr c ;6b14 pop hl ;6b16 ld a,c ;6b17 or l ;6b18 ld e,a ;6b19 ld a,b ;6b1a or h ;6b1b ld d,a ;6b1c push de ;6b1d ld de,(0a297h) ;6b1e ld hl,00006h ;6b22 add hl,de ;6b25 pop de ;6b26 ld (hl),e ;6b27 inc hl ;6b28 ld (hl),d ;6b29 ld b,001h ;6b2a push ix ;6b2c pop hl ;6b2e dec hl ;6b2f dec hl ;6b30 call aslr ;6b31 l6b34h: ; m6: ld a,(ix-2) ;6b34 or (ix-1) ;6b37 jr nz,l6ae0h ;6b3a l6b3ch: ; m7: ld hl,(0a297h) ;6b3c inc hl ;6b3f inc hl ;6b40 ld c,(hl) ;6b41 inc hl ;6b42 ld b,(hl) ;6b43 ld hl,00007h ;6b44 add hl,bc ;6b47 ld a,(hl) ;6b48 or a ;6b49 jp nz,l6c13h ;6b4a ld hl,(0a297h) ;6b4d inc hl ;6b50 inc hl ;6b51 ld c,(hl) ;6b52 inc hl ;6b53 ld b,(hl) ;6b54 ld hl,00006h ;6b55 add hl,bc ;6b58 ld a,(hl) ;6b59 cp 016h ;6b5a ld de,(0a297h) ;6b5c jp nz,l6c17h ;6b60 ld hl,00006h ;6b63 add hl,de ;6b66 ld a,(hl) ;6b67 inc hl ;6b68 or (hl) ;6b69 ld l,e ;6b6a ld h,d ;6b6b inc hl ;6b6c inc hl ;6b6d ld a,(hl) ;6b6e inc hl ;6b6f ld h,(hl) ;6b70 ld l,a ;6b71 jp z,l6b89h ;6b72 ld c,(hl) ;6b75 inc hl ;6b76 ld b,(hl) ;6b77 ld hl,00007h ;6b78 add hl,bc ;6b7b ld a,(hl) ;6b7c or a ;6b7d jp nz,l6c13h ;6b7e ld l,e ;6b81 ld h,d ;6b82 inc hl ;6b83 inc hl ;6b84 ld a,(hl) ;6b85 inc hl ;6b86 ld h,(hl) ;6b87 ld l,a ;6b88 l6b89h: ; m8: ld a,(hl) ;6b89 inc hl ;6b8a ld h,(hl) ;6b8b ld l,a ;6b8c inc hl ;6b8d inc hl ;6b8e inc hl ;6b8f inc hl ;6b90 ld c,(hl) ;6b91 inc hl ;6b92 ld b,(hl) ;6b93 ld (ix-2),c ;6b94 ld (ix-1),b ;6b97 jp l6bf1h ;6b9a l6b9dh: ; m9: ld de,(0a297h) ;6b9d ld hl,00006h ;6ba1 add hl,de ;6ba4 ld c,(hl) ;6ba5 inc hl ;6ba6 ld b,(hl) ;6ba7 bit 0,c ;6ba8 jp z,l6bb6h ;6baa ld hl,00008h ;6bad add hl,de ;6bb0 ld (hl),001h ;6bb1 jp l6bf9h ;6bb3 l6bb6h: ; m10: ld b,00fh ;6bb6 ld a,(ix-2) ;6bb8 and 001h ;6bbb ld l,a ;6bbd xor a ;6bbe ld h,a ;6bbf call shar ;6bc0 push hl ;6bc3 ld de,(0a297h) ;6bc4 ld hl,00006h ;6bc8 add hl,de ;6bcb ld c,(hl) ;6bcc inc hl ;6bcd ld b,(hl) ;6bce srl b ;6bcf rr c ;6bd1 pop hl ;6bd3 ld a,c ;6bd4 or l ;6bd5 ld e,a ;6bd6 ld a,b ;6bd7 or h ;6bd8 ld d,a ;6bd9 push de ;6bda ld de,(0a297h) ;6bdb ld hl,00006h ;6bdf add hl,de ;6be2 pop de ;6be3 ld (hl),e ;6be4 inc hl ;6be5 ld (hl),d ;6be6 ld b,001h ;6be7 push ix ;6be9 pop hl ;6beb dec hl ;6bec dec hl ;6bed call aslr ;6bee l6bf1h: ; m11: ld a,(ix-2) ;6bf1 or (ix-1) ;6bf4 jr nz,l6b9dh ;6bf7 l6bf9h: ; m12: ld hl,(0a297h) ;6bf9 inc hl ;6bfc inc hl ;6bfd ld c,(hl) ;6bfe inc hl ;6bff ld b,(hl) ;6c00 push bc ;6c01 dec hl ;6c02 ld a,(hl) ;6c03 inc hl ;6c04 ld h,(hl) ;6c05 ld l,a ;6c06 ld c,(hl) ;6c07 inc hl ;6c08 ld b,(hl) ;6c09 push bc ;6c0a call sub_58bdh ;6c0b pop bc ;6c0e pop bc ;6c0f jp l6b3ch ;6c10 l6c13h: ; m13: ld de,(0a297h) ;6c13 l6c17h: ; m14: ld hl,00008h ;6c17 add hl,de ;6c1a ld a,(hl) ;6c1b or a ;6c1c jp z,l6c28h ;6c1d ld hl,l9a97h ;6c20 ; push hl ;6c23 ; call prerror ;6c24 ; prerror("declarator too complex"); pop bc ;6c27 ; l6c28h: ; m15: ld de,(0a297h) ;6c28 ld hl,00006h ;6c2c add hl,de ;6c2f ld c,(hl) ;6c30 inc hl ;6c31 ld b,(hl) ;6c32 push bc ;6c33 call sub_742ah ;6c34 pop bc ;6c37 ex de,hl ;6c38 ld hl,(0a297h) ;6c39 inc hl ;6c3c inc hl ;6c3d ld a,(hl) ;6c3e inc hl ;6c3f ld h,(hl) ;6c40 ld l,a ;6c41 inc hl ;6c42 inc hl ;6c43 inc hl ;6c44 inc hl ;6c45 ld (hl),e ;6c46 inc hl ;6c47 ld (hl),d ;6c48 ld hl,(0a297h) ;6c49 ld a,(hl) ;6c4c inc hl ;6c4d or (hl) ;6c4e jp z,l6c98h ;6c4f ld a,(ix+6) ;6c52 cp 02dh ;6c55 jp z,l6c98h ;6c57 cp 00eh ;6c5a jp z,l6c98h ;6c5c cp 00fh ;6c5f jp z,l6c98h ;6c61 ld hl,00014h ;6c64 push hl ;6c67 ld hl,(0a297h) ;6c68 inc hl ;6c6b inc hl ;6c6c ld c,(hl) ;6c6d inc hl ;6c6e ld b,(hl) ;6c6f push bc ;6c70 call sub_5a76h ;6c71 pop bc ;6c74 pop bc ;6c75 ld a,l ;6c76 or a ;6c77 jp z,l6c98h ;6c78 ld hl,(0a297h) ;6c7b inc hl ;6c7e inc hl ;6c7f ld c,(hl) ;6c80 inc hl ;6c81 ld b,(hl) ;6c82 ld hl,00007h ;6c83 add hl,bc ;6c86 ld a,(hl) ;6c87 cp 002h ;6c88 jp z,l6c98h ;6c8a ld hl,l9aaeh ;6c8d "only functions may be void" l6c90h: ; m16: push hl ;6c90 ; call prerror ;6c91 ; prerror(); pop bc ;6c94 ; jp l6d0ch ;6c95 l6c98h: ; m17: ld hl,00016h ;6c98 push hl ;6c9b ld hl,(0a297h) ;6c9c inc hl ;6c9f inc hl ;6ca0 ld c,(hl) ;6ca1 inc hl ;6ca2 ld b,(hl) ;6ca3 push bc ;6ca4 call sub_5a76h ;6ca5 pop bc ;6ca8 pop bc ;6ca9 ld a,l ;6caa or a ;6cab ld hl,(0a297h) ;6cac inc hl ;6caf inc hl ;6cb0 jp z,l6d11h ;6cb1 ld c,(hl) ;6cb4 inc hl ;6cb5 ld b,(hl) ;6cb6 ld hl,00007h ;6cb7 add hl,bc ;6cba ld a,(hl) ;6cbb cp 002h ;6cbc ld hl,(0a297h) ;6cbe inc hl ;6cc1 inc hl ;6cc2 jp nz,l6ce1h ;6cc3 ld a,(hl) ;6cc6 inc hl ;6cc7 ld h,(hl) ;6cc8 ld l,a ;6cc9 ld c,(hl) ;6cca inc hl ;6ccb ld b,(hl) ;6ccc ld hl,00007h ;6ccd add hl,bc ;6cd0 ld a,(hl) ;6cd1 cp 001h ;6cd2 jp nz,l6cdch ;6cd4 ld hl,l97e5h ;6cd7 "functions can't return arrays" jr l6c90h ;6cda l6cdch: ; m18: ld hl,(0a297h) ;6cdc inc hl ;6cdf inc hl ;6ce0 l6ce1h: ; m19: ld c,(hl) ;6ce1 inc hl ;6ce2 ld b,(hl) ;6ce3 ld hl,00007h ;6ce4 add hl,bc ;6ce7 ld a,(hl) ;6ce8 cp 001h ;6ce9 ld hl,(0a297h) ;6ceb inc hl ;6cee inc hl ;6cef jp nz,l6d11h ;6cf0 ld a,(hl) ;6cf3 inc hl ;6cf4 ld h,(hl) ;6cf5 ld l,a ;6cf6 ld c,(hl) ;6cf7 inc hl ;6cf8 ld b,(hl) ;6cf9 ld hl,00007h ;6cfa add hl,bc ;6cfd ld a,(hl) ;6cfe cp 002h ;6cff jp nz,l6d0ch ;6d01 ld hl,l9ac9h ;6d04 ; push hl ;6d07 ; call prerror ;6d08 ; prerror("can't have array of functions"); pop bc ;6d0b ; l6d0ch: ; m20: ld hl,(0a297h) ;6d0c inc hl ;6d0f inc hl ;6d10 l6d11h: ; m21: inc hl ;6d11 inc hl ;6d12 ld a,(hl) ;6d13 inc hl ;6d14 or (hl) ;6d15 jp z,l6d95h ;6d16 ld hl,(0a297h) ;6d19 inc hl ;6d1c inc hl ;6d1d inc hl ;6d1e inc hl ;6d1f ld c,(hl) ;6d20 inc hl ;6d21 ld b,(hl) ;6d22 push bc ;6d23 ld hl,0002dh ;6d24 push hl ;6d27 ld hl,(0a297h) ;6d28 inc hl ;6d2b inc hl ;6d2c inc hl ;6d2d inc hl ;6d2e ld c,(hl) ;6d2f inc hl ;6d30 ld b,(hl) ;6d31 push bc ;6d32 call sub_4eedh ;6d33 pop bc ;6d36 pop bc ;6d37 pop bc ;6d38 ex de,hl ;6d39 ld hl,(0a297h) ;6d3a inc hl ;6d3d inc hl ;6d3e inc hl ;6d3f inc hl ;6d40 ld (hl),e ;6d41 inc hl ;6d42 ld (hl),d ;6d43 dec hl ;6d44 ld c,(hl) ;6d45 inc hl ;6d46 ld b,(hl) ;6d47 push bc ;6d48 call sub_516ch ;6d49 pop bc ;6d4c ld hl,(0a297h) ;6d4d inc hl ;6d50 inc hl ;6d51 inc hl ;6d52 inc hl ;6d53 ld c,(hl) ;6d54 inc hl ;6d55 ld b,(hl) ;6d56 push bc ;6d57 call sub_51cfh ;6d58 pop bc ;6d5b ld hl,(0a297h) ;6d5c inc hl ;6d5f inc hl ;6d60 inc hl ;6d61 inc hl ;6d62 ld c,(hl) ;6d63 inc hl ;6d64 ld b,(hl) ;6d65 ld hl,00007h ;6d66 add hl,bc ;6d69 ld a,(hl) ;6d6a cp 002h ;6d6b ld hl,(0a297h) ;6d6d inc hl ;6d70 inc hl ;6d71 inc hl ;6d72 inc hl ;6d73 ld c,(hl) ;6d74 inc hl ;6d75 ld b,(hl) ;6d76 jp nz,l6d90h ;6d77 ld hl,00012h ;6d7a add hl,bc ;6d7d ld c,(hl) ;6d7e inc hl ;6d7f ld b,(hl) ;6d80 bit 7,c ;6d81 jp nz,l6d95h ;6d83 ld hl,(0a297h) ;6d86 inc hl ;6d89 inc hl ;6d8a inc hl ;6d8b inc hl ;6d8c ld c,(hl) ;6d8d inc hl ;6d8e ld b,(hl) ;6d8f l6d90h: ; m22: push bc ;6d90 call sub_0493h ;6d91 pop bc ;6d94 l6d95h: ; m23: ld a,(ix+6) ;6d95 cp 02dh ;6d98 ld hl,(0a297h) ;6d9a jp z,l6e0bh ;6d9d inc hl ;6da0 inc hl ;6da1 ld a,(hl) ;6da2 inc hl ;6da3 ld h,(hl) ;6da4 ld l,a ;6da5 inc hl ;6da6 inc hl ;6da7 inc hl ;6da8 inc hl ;6da9 ld a,(hl) ;6daa inc hl ;6dab or (hl) ;6dac jp nz,l6e08h ;6dad ld hl,0001ah ;6db0 push hl ;6db3 push iy ;6db4 call sub_5a76h ;6db6 pop bc ;6db9 pop bc ;6dba ld a,l ;6dbb or a ;6dbc jp nz,l6dd0h ;6dbd ld hl,0001ch ;6dc0 push hl ;6dc3 push iy ;6dc4 call sub_5a76h ;6dc6 pop bc ;6dc9 pop bc ;6dca ld a,l ;6dcb or a ;6dcc jp z,l6e08h ;6dcd l6dd0h: ; m24: ld a,(iy+0) ;6dd0 or (iy+1) ;6dd3 jp z,l6e08h ;6dd6 ld e,(iy+0) ;6dd9 ld d,(iy+1) ;6ddc ld hl,00012h ;6ddf add hl,de ;6de2 ld c,(hl) ;6de3 inc hl ;6de4 ld b,(hl) ;6de5 bit 0,c ;6de6 ld hl,(0a297h) ;6de8 jp nz,l6e0bh ;6deb inc hl ;6dee inc hl ;6def ld a,(hl) ;6df0 inc hl ;6df1 ld h,(hl) ;6df2 ld l,a ;6df3 ld c,(hl) ;6df4 inc hl ;6df5 ld b,(hl) ;6df6 ld hl,00017h ;6df7 add hl,bc ;6dfa ld c,(hl) ;6dfb inc hl ;6dfc ld b,(hl) ;6dfd push bc ;6dfe ld hl,l9ae7h ;6dff ; "undefined struct/union: %s" push hl ;6e02 ; call prerror ;6e03 ; prerror(); pop bc ;6e06 ; pop bc ;6e07 ; l6e08h: ; m25: ld hl,(0a297h) ;6e08 l6e0bh: ; m26: ld a,(hl) ;6e0b inc hl ;6e0c or (hl) ;6e0d jp z,l6f91h ;6e0e ld a,(byte_a299) ;6e11 cp 006h ;6e14 jp nz,l6ecdh ;6e16 ld a,(ix+6) ;6e19 cp 00ah ;6e1c jp z,l6ecdh ;6e1e ld hl,(0a297h) ;6e21 ld c,(hl) ;6e24 inc hl ;6e25 ld b,(hl) ;6e26 ld hl,00012h ;6e27 add hl,bc ;6e2a ld c,(hl) ;6e2b inc hl ;6e2c ld b,(hl) ;6e2d bit 3,c ;6e2e ld hl,(0a297h) ;6e30 ld c,(hl) ;6e33 inc hl ;6e34 ld b,(hl) ;6e35 jp z,l6e4dh ;6e36 ld hl,00017h ;6e39 add hl,bc ;6e3c ld c,(hl) ;6e3d inc hl ;6e3e ld b,(hl) ;6e3f push bc ;6e40 ld hl,l9b02h ;6e41 "argument redeclared: %s" l6e44h: ; m27: push hl ;6e44 call prerror ;6e45 ; prerror(); pop bc ;6e48 pop bc ;6e49 jp l6f91h ;6e4a l6e4dh: ; m28: ld hl,00012h ;6e4d add hl,bc ;6e50 ld c,(hl) ;6e51 inc hl ;6e52 ld b,(hl) ;6e53 bit 5,c ;6e54 jp nz,l6e6ch ;6e56 ld hl,(0a297h) ;6e59 ld c,(hl) ;6e5c inc hl ;6e5d ld b,(hl) ;6e5e ld hl,00017h ;6e5f add hl,bc ;6e62 ld c,(hl) ;6e63 inc hl ;6e64 ld b,(hl) ;6e65 push bc ;6e66 ld hl,l9b1ah ;6e67 "not an argument: %s" jr l6e44h ;6e6a l6e6ch: ; m29: ld a,(ix+00ah) ;6e6c or 008h ;6e6f ld e,a ;6e71 ld d,0 ;6e72 ld hl,(0a297h) ;6e74 ld c,(hl) ;6e77 inc hl ;6e78 ld b,(hl) ;6e79 ld hl,00012h ;6e7a add hl,bc ;6e7d ld c,(hl) ;6e7e inc hl ;6e7f ld b,(hl) ;6e80 ld a,c ;6e81 or e ;6e82 ld c,a ;6e83 ld a,b ;6e84 or d ;6e85 ld b,a ;6e86 ld (hl),b ;6e87 dec hl ;6e88 ld (hl),c ;6e89 push ix ;6e8a pop de ;6e8c ld hl,0ffe5h ;6e8d add hl,de ;6e90 push hl ;6e91 ld hl,(0a297h) ;6e92 ld e,(hl) ;6e95 inc hl ;6e96 ld d,(hl) ;6e97 pop hl ;6e98 push hl ;6e99 ld bc,00008h ;6e9a ldir ;6e9d pop hl ;6e9f ld hl,0000eh ;6ea0 push hl ;6ea3 push ix ;6ea4 pop de ;6ea6 ld hl,0ffe5h ;6ea7 add hl,de ;6eaa push hl ;6eab call sub_5a76h ;6eac pop bc ;6eaf pop bc ;6eb0 ld a,l ;6eb1 or a ;6eb2 jp z,l6f91h ;6eb3 ld hl,l9b2eh ;6eb6 ; push hl ;6eb9 ; call prwarning ;6eba ; prwarning("float param coerced to double"); pop bc ;6ebd ; ld hl,(0a297h) ;6ebe ld c,(hl) ;6ec1 inc hl ;6ec2 ld b,(hl) ;6ec3 ld hl,00006h ;6ec4 add hl,bc ;6ec7 ld (hl),010h ;6ec8 jp l6f91h ;6eca l6ecdh: ; m30: ld a,(byte_a299) ;6ecd cp 00eh ;6ed0 jp z,l6f39h ;6ed2 cp 00fh ;6ed5 jp z,l6f39h ;6ed7 ld a,(ix+6) ;6eda cp 014h ;6edd jp nz,l6eeeh ;6edf ld a,(ix-014h) ;6ee2 cp 002h ;6ee5 jp nz,l6eeeh ;6ee7 ld (ix+6),01fh ;6eea l6eeeh: ; m31: ld l,(ix+00ch) ;6eee ld h,(ix+00dh) ;6ef1 push hl ;6ef4 push ix ;6ef5 pop de ;6ef7 ld hl,0ffe5h ;6ef8 add hl,de ;6efb push hl ;6efc ld l,(ix+6) ;6efd ld h,0 ;6f00 push hl ;6f02 ld hl,(0a297h) ;6f03 ld c,(hl) ;6f06 inc hl ;6f07 ld b,(hl) ;6f08 push bc ;6f09 call sub_4eedh ;6f0a pop bc ;6f0d pop bc ;6f0e pop bc ;6f0f pop bc ;6f10 ex de,hl ;6f11 ld hl,(0a297h) ;6f12 ld (hl),e ;6f15 inc hl ;6f16 ld (hl),d ;6f17 ld a,e ;6f18 or d ;6f19 jp z,l6f91h ;6f1a ld e,(ix+00ah) ;6f1d ld d,0 ;6f20 dec hl ;6f22 ld c,(hl) ;6f23 inc hl ;6f24 ld b,(hl) ;6f25 ld hl,00012h ;6f26 add hl,bc ;6f29 ld c,(hl) ;6f2a inc hl ;6f2b ld b,(hl) ;6f2c ld a,c ;6f2d or e ;6f2e ld c,a ;6f2f ld a,b ;6f30 or d ;6f31 ld b,a ;6f32 ld (hl),b ;6f33 dec hl ;6f34 ld (hl),c ;6f35 jp l6f91h ;6f36 l6f39h: ; m32: ld hl,(0a297h) ;6f39 ld c,(hl) ;6f3c inc hl ;6f3d ld b,(hl) ;6f3e ld hl,00014h ;6f3f add hl,bc ;6f42 ld a,(hl) ;6f43 or a ;6f44 jp z,l6f7bh ;6f45 ld a,(byte_a288) ;6f48 ld e,a ;6f4b ld hl,(0a297h) ;6f4c ld c,(hl) ;6f4f inc hl ;6f50 ld b,(hl) ;6f51 ld hl,00015h ;6f52 add hl,bc ;6f55 ld a,(hl) ;6f56 cp e ;6f57 push ix ;6f58 pop de ;6f5a ld hl,0ffe5h ;6f5b jp z,l6f81h ;6f5e add hl,de ;6f61 push hl ;6f62 ld hl,00000h ;6f63 push hl ;6f66 ld hl,(0a297h) ;6f67 ld c,(hl) ;6f6a inc hl ;6f6b ld b,(hl) ;6f6c push bc ;6f6d call sub_4eedh ;6f6e pop bc ;6f71 pop bc ;6f72 pop bc ;6f73 ex de,hl ;6f74 ld hl,(0a297h) ;6f75 ld (hl),e ;6f78 inc hl ;6f79 ld (hl),d ;6f7a l6f7bh: ; m33: push ix ;6f7b pop de ;6f7d ld hl,0ffe5h ;6f7e l6f81h: ; m34: add hl,de ;6f81 push hl ;6f82 ld hl,(0a297h) ;6f83 ld e,(hl) ;6f86 inc hl ;6f87 ld d,(hl) ;6f88 pop hl ;6f89 push hl ;6f8a ld bc,00008h ;6f8b ldir ;6f8e pop hl ;6f90 l6f91h: ; m35: ld hl,(0a297h) ;6f91 ld c,(hl) ;6f94 inc hl ;6f95 ld b,(hl) ;6f96 ld (ix-4),c ;6f97 ld (ix-3),b ;6f9a ld l,(ix-6) ;6f9d ld h,(ix-5) ;6fa0 ld (0a297h),hl ;6fa3 ld l,c ;6fa6 ld h,b ;6fa7 jp cret ;6fa8 ; =============== F U N C T I O N ======================================= ; 141 ; sub_6fabh: call ncsv ;6fab defw 0fffbh ;6fae xor a ;6fb0 ld (0a29ah),a ;6fb1 ld (ix-4),001h ;6fb4 ld (ix-2),a ;6fb8 jr l6fc0h ;6fbb ; goto m2; l6fbdh: ; m1: inc (ix-2) ;6fbd l6fc0h: ; m2: call sub_2671h ;6fc0 ld a,l ;6fc3 ld (ix-3),a ;6fc4 cp 050h ;6fc7 jr z,l6fbdh ;6fc9 cp 073h ;6fcb jp nz,l701bh ;6fcd ld de,(word_9dcb) ;6fd0 ld hl,(0a297h) ;6fd4 ld (hl),e ;6fd7 inc hl ;6fd8 ld (hl),d ;6fd9 call sub_2671h ;6fda ld e,l ;6fdd ld (ix-3),e ;6fde ld hl,(0a297h) ;6fe1 ld c,(hl) ;6fe4 inc hl ;6fe5 ld b,(hl) ;6fe6 ld hl,00014h ;6fe7 add hl,bc ;6fea ld l,(hl) ;6feb ld (ix-4),l ;6fec ld hl,(0a297h) ;6fef ld c,(hl) ;6ff2 inc hl ;6ff3 ld b,(hl) ;6ff4 ld hl,00014h ;6ff5 add hl,bc ;6ff8 ld a,(hl) ;6ff9 or a ;6ffa ld a,(ix+6) ;6ffb jp nz,l700ch ;6ffe ld hl,(0a297h) ;7001 ld c,(hl) ;7004 inc hl ;7005 ld b,(hl) ;7006 ld hl,00014h ;7007 add hl,bc ;700a ld (hl),a ;700b l700ch: ; m3: cp 00eh ;700c ld hl,00001h ;700e jr nz,l7014h ;7011 dec hl ;7013 l7014h: ; m4: ld a,l ;7014 ld (0a29ah),a ;7015 jp l707bh ;7018 ; goto m9; l701bh: ; m5: ld a,(ix-3) ;701b cp 03eh ;701e jp nz,l707bh ;7020 call sub_2671h ;7023 ld a,l ;7026 ld (ix-3),a ;7027 ld (byte_9def),a ;702a cp 03fh ;702d jp z,l704fh ;702f cp 005h ;7032 jp z,l704fh ;7034 cp 077h ;7037 jp z,l704fh ;7039 cp 073h ;703c jp nz,l7056h ;703e ld de,(word_9dcb) ;7041 ld hl,00014h ;7045 add hl,de ;7048 ld a,(hl) ;7049 cp 02dh ;704a jp nz,l7056h ;704c l704fh: ; m6: ld (ix-3),03eh ;704f jp l707bh ;7053 ; goto m9; l7056h: ; m7: ld l,(ix+6) ;7056 ld h,0 ;7059 push hl ;705b call sub_6fabh ;705c pop bc ;705f call sub_2671h ;7060 ld a,l ;7063 ld (ix-3),a ;7064 cp 03fh ;7067 jp z,l7074h ;7069 ld hl,l9b4ch ;706c ; push hl ;706f ; call errexpected ;7070 ; errexpected(")"); pop bc ;7073 ; l7074h: ; m8: call sub_2671h ;7074 ld e,l ;7077 ld (ix-3),e ;7078 l707bh: ; m9: ld hl,(0a297h) ;707b ld a,(hl) ;707e inc hl ;707f or (hl) ;7080 ld hl,00001h ;7081 jr z,l7087h ;7084 dec hl ;7086 l7087h: ; m10: ld a,l ;7087 ld de,(0a297h) ;7088 ld hl,0000bh ;708c add hl,de ;708f ld (hl),a ;7090 l7091h: ; m11: ld a,(ix-3) ;7091 cp 03eh ;7094 jp nz,l7248h ;7096 ld de,(0a297h) ;7099 ld hl,00009h ;709d add hl,de ;70a0 ld a,(hl) ;70a1 or a ;70a2 jp z,l70b8h ;70a3 ld hl,l9b4eh ;70a6 ; push hl ;70a9 ; call prerror ;70aa ; prerror("can't have array of functions"); pop bc ;70ad ; ld de,(0a297h) ;70ae ld hl,00009h ;70b2 add hl,de ;70b5 ld (hl),0 ;70b6 l70b8h: ; m12: ld hl,(0a297h) ;70b8 inc hl ;70bb inc hl ;70bc ld c,(hl) ;70bd inc hl ;70be ld b,(hl) ;70bf ld hl,00007h ;70c0 add hl,bc ;70c3 ld a,(hl) ;70c4 cp 002h ;70c5 ld de,(0a297h) ;70c7 ld hl,00006h ;70cb jp nz,l70e7h ;70ce add hl,de ;70d1 ld a,(hl) ;70d2 inc hl ;70d3 or (hl) ;70d4 jp nz,l70e0h ;70d5 ld hl,l9b6ch ;70d8 ; push hl ;70db ; call prerror ;70dc ; prerror("functions can't return functions"); pop bc ;70df ; l70e0h: ; m13: ld de,(0a297h) ;70e0 ld hl,00006h ;70e4 l70e7h: ; m14: add hl,de ;70e7 ld c,(hl) ;70e8 inc hl ;70e9 ld b,(hl) ;70ea bit 7,b ;70eb ld hl,(0a297h) ;70ed inc hl ;70f0 inc hl ;70f1 ld c,(hl) ;70f2 inc hl ;70f3 ld b,(hl) ;70f4 jp z,l7195h ;70f5 ld hl,00006h ;70f8 add hl,bc ;70fb ld (hl),016h ;70fc ld de,(0a297h) ;70fe ld hl,00006h ;7102 add hl,de ;7105 ld c,(hl) ;7106 inc hl ;7107 ld b,(hl) ;7108 push bc ;7109 call sub_742ah ;710a pop bc ;710d ex de,hl ;710e ld hl,(0a297h) ;710f inc hl ;7112 inc hl ;7113 ld a,(hl) ;7114 inc hl ;7115 ld h,(hl) ;7116 ld l,a ;7117 inc hl ;7118 inc hl ;7119 inc hl ;711a inc hl ;711b ld (hl),e ;711c inc hl ;711d ld (hl),d ;711e ld de,(0a297h) ;711f ld hl,00006h ;7123 add hl,de ;7126 ld de,00000h ;7127 ld (hl),e ;712a inc hl ;712b ld (hl),d ;712c call sub_56a4h ;712d ex de,hl ;7130 ld hl,(0a297h) ;7131 inc hl ;7134 inc hl ;7135 ld a,(hl) ;7136 inc hl ;7137 ld h,(hl) ;7138 ld l,a ;7139 ld (hl),e ;713a inc hl ;713b ld (hl),d ;713c ld hl,(0a297h) ;713d inc hl ;7140 inc hl ;7141 inc hl ;7142 inc hl ;7143 ld a,(hl) ;7144 inc hl ;7145 or (hl) ;7146 dec hl ;7147 dec hl ;7148 dec hl ;7149 jp z,l7176h ;714a inc hl ;714d inc hl ;714e ld c,(hl) ;714f inc hl ;7150 ld b,(hl) ;7151 push bc ;7152 ld hl,0002dh ;7153 push hl ;7156 ld hl,(0a297h) ;7157 inc hl ;715a inc hl ;715b inc hl ;715c inc hl ;715d ld c,(hl) ;715e inc hl ;715f ld b,(hl) ;7160 push bc ;7161 call sub_4eedh ;7162 pop bc ;7165 pop bc ;7166 pop bc ;7167 ex de,hl ;7168 ld hl,(0a297h) ;7169 inc hl ;716c inc hl ;716d inc hl ;716e inc hl ;716f ld (hl),e ;7170 inc hl ;7171 ld (hl),d ;7172 dec hl ;7173 dec hl ;7174 dec hl ;7175 l7176h: ; m15: ld a,(hl) ;7176 inc hl ;7177 ld h,(hl) ;7178 ld l,a ;7179 ld c,(hl) ;717a inc hl ;717b ld b,(hl) ;717c ld hl,(0a297h) ;717d inc hl ;7180 inc hl ;7181 inc hl ;7182 inc hl ;7183 ld (hl),c ;7184 inc hl ;7185 ld (hl),b ;7186 dec hl ;7187 ld c,(hl) ;7188 inc hl ;7189 ld b,(hl) ;718a dec hl ;718b dec hl ;718c dec hl ;718d ld (hl),c ;718e inc hl ;718f ld (hl),b ;7190 dec hl ;7191 ld c,(hl) ;7192 inc hl ;7193 ld b,(hl) ;7194 l7195h: ; m16: ld hl,00007h ;7195 add hl,bc ;7198 ld (hl),002h ;7199 ld a,(0a29ah) ;719b or a ;719e jp z,l71afh ;719f ld a,(byte_a288) ;71a2 or a ;71a5 jp nz,l71afh ;71a6 ld hl,00001h ;71a9 jp l71b2h ;71ac l71afh: ; m17: ld hl,00000h ;71af l71b2h: ; m18: ld a,l ;71b2 ld (0a29ah),a ;71b3 or a ;71b6 jp nz,l71c8h ;71b7 ld (ix-5),001h ;71ba ld a,(byte_a288) ;71be inc a ;71c1 ld (byte_a288),a ;71c2 jp l71cch ;71c5 l71c8h: ; m19: ld (ix-5),0 ;71c8 l71cch: ; m20: ld a,(byte_a288) ;71cc inc a ;71cf ld (byte_a288),a ;71d0 call sub_2671h ;71d3 ld e,l ;71d6 ld (ix-3),e ;71d7 ld a,e ;71da cp 005h ;71db jp z,l71eah ;71dd cp 077h ;71e0 jp z,l71eah ;71e2 cp 073h ;71e5 jp nz,l720ah ;71e7 l71eah: ; m21: ld (byte_9def),a ;71ea ld a,(0a29ah) ;71ed ld l,a ;71f0 ld h,0 ;71f1 push hl ;71f3 call sub_65e2h ;71f4 pop bc ;71f7 ex de,hl ;71f8 ld hl,(0a297h) ;71f9 inc hl ;71fc inc hl ;71fd ld a,(hl) ;71fe inc hl ;71ff ld h,(hl) ;7200 ld l,a ;7201 inc hl ;7202 inc hl ;7203 ld (hl),e ;7204 inc hl ;7205 ld (hl),d ;7206 jp l7220h ;7207 l720ah: ; m22: cp 03fh ;720a jp z,l7220h ;720c ld hl,l9b8dh ;720f ; push hl ;7212 ; call errexpected ;7213 ; errexpected(")"); ld l,(ix-3) ;7216 ld h,0 ;7219 ex (sp),hl ;721b call sub_3610h ;721c pop bc ;721f l7220h: ; m23: xor a ;7220 ld (0a29ah),a ;7221 ld a,(ix-5) ;7224 or a ;7227 jp z,l7236h ;7228 call sub_54c0h ;722b ld a,(byte_a288) ;722e sub 001h ;7231 ld (byte_a288),a ;7233 l7236h: ; m24: ld a,(byte_a288) ;7236 sub 001h ;7239 ld (byte_a288),a ;723b l723eh: ; m25: call sub_2671h ;723e ld e,l ;7241 ld (ix-3),e ;7242 jp l7091h ;7245 l7248h: ; m26: ld a,(ix-3) ;7248 cp 041h ;724b jp nz,l73c1h ;724d ld hl,(0a297h) ;7250 inc hl ;7253 inc hl ;7254 ld c,(hl) ;7255 inc hl ;7256 ld b,(hl) ;7257 ld hl,00007h ;7258 add hl,bc ;725b ld a,(hl) ;725c cp 002h ;725d jp nz,l726ah ;725f ld hl,l97e5h ;7262 ; push hl ;7265 ; call prerror ;7266 ; prerror("functions can't return arrays"); pop bc ;7269 ; l726ah: ; m27: ld de,(0a297h) ;726a ld hl,0000ah ;726e add hl,de ;7271 ld a,(hl) ;7272 or a ;7273 jp nz,l7283h ;7274 ld hl,00006h ;7277 add hl,de ;727a ld c,(hl) ;727b inc hl ;727c ld b,(hl) ;727d bit 7,b ;727e jp z,l732ah ;7280 l7283h: ; m28: ld hl,0000ah ;7283 add hl,de ;7286 ld (hl),0 ;7287 ld hl,(0a297h) ;7289 inc hl ;728c inc hl ;728d ld c,(hl) ;728e inc hl ;728f ld b,(hl) ;7290 ld hl,00006h ;7291 add hl,bc ;7294 ld (hl),016h ;7295 ld de,(0a297h) ;7297 ld hl,00006h ;729b add hl,de ;729e ld c,(hl) ;729f inc hl ;72a0 ld b,(hl) ;72a1 push bc ;72a2 call sub_742ah ;72a3 pop bc ;72a6 ex de,hl ;72a7 ld hl,(0a297h) ;72a8 inc hl ;72ab inc hl ;72ac ld a,(hl) ;72ad inc hl ;72ae ld h,(hl) ;72af ld l,a ;72b0 inc hl ;72b1 inc hl ;72b2 inc hl ;72b3 inc hl ;72b4 ld (hl),e ;72b5 inc hl ;72b6 ld (hl),d ;72b7 ld de,(0a297h) ;72b8 ld hl,00006h ;72bc add hl,de ;72bf ld de,00000h ;72c0 ld (hl),e ;72c3 inc hl ;72c4 ld (hl),d ;72c5 call sub_56a4h ;72c6 ex de,hl ;72c9 ld hl,(0a297h) ;72ca inc hl ;72cd inc hl ;72ce ld a,(hl) ;72cf inc hl ;72d0 ld h,(hl) ;72d1 ld l,a ;72d2 ld (hl),e ;72d3 inc hl ;72d4 ld (hl),d ;72d5 ld hl,(0a297h) ;72d6 inc hl ;72d9 inc hl ;72da inc hl ;72db inc hl ;72dc ld a,(hl) ;72dd inc hl ;72de or (hl) ;72df dec hl ;72e0 dec hl ;72e1 dec hl ;72e2 jp z,l730fh ;72e3 inc hl ;72e6 inc hl ;72e7 ld c,(hl) ;72e8 inc hl ;72e9 ld b,(hl) ;72ea push bc ;72eb ld hl,0002dh ;72ec push hl ;72ef ld hl,(0a297h) ;72f0 inc hl ;72f3 inc hl ;72f4 inc hl ;72f5 inc hl ;72f6 ld c,(hl) ;72f7 inc hl ;72f8 ld b,(hl) ;72f9 push bc ;72fa call sub_4eedh ;72fb pop bc ;72fe pop bc ;72ff pop bc ;7300 ex de,hl ;7301 ld hl,(0a297h) ;7302 inc hl ;7305 inc hl ;7306 inc hl ;7307 inc hl ;7308 ld (hl),e ;7309 inc hl ;730a ld (hl),d ;730b dec hl ;730c dec hl ;730d dec hl ;730e l730fh: ; m29: ld a,(hl) ;730f inc hl ;7310 ld h,(hl) ;7311 ld l,a ;7312 ld c,(hl) ;7313 inc hl ;7314 ld b,(hl) ;7315 ld hl,(0a297h) ;7316 inc hl ;7319 inc hl ;731a inc hl ;731b inc hl ;731c ld (hl),c ;731d inc hl ;731e ld (hl),b ;731f dec hl ;7320 ld c,(hl) ;7321 inc hl ;7322 ld b,(hl) ;7323 dec hl ;7324 dec hl ;7325 dec hl ;7326 ld (hl),c ;7327 inc hl ;7328 ld (hl),b ;7329 l732ah: ; m30: ld a,(byte_8f86) ;732a ld (ix-1),a ;732d xor a ;7330 ld (byte_8f86),a ;7331 call sub_2671h ;7334 ld a,l ;7337 ld (ix-3),a ;7338 cp 042h ;733b jp nz,l735ch ;733d ld de,(0a297h) ;7340 ld hl,00009h ;7344 add hl,de ;7347 ld a,(hl) ;7348 or a ;7349 jp z,l7355h ;734a ld hl,l9b8fh ;734d ; push hl ;7350 ; call prerror ;7351 ; prerror("dimension required"); pop bc ;7354 ; l7355h: ; m31: ld iy,word_9d1b ;7355 jp l738ah ;7359 l735ch: ; m32: ld a,(ix-3) ;735c ld (byte_9def),a ;735f ld hl,00002h ;7362 push hl ;7365 call sub_0a83h ;7366 pop bc ;7369 push hl ;736a pop iy ;736b call sub_2671h ;736d ld a,l ;7370 ld (ix-3),a ;7371 cp 042h ;7374 jp z,l738ah ;7376 ld hl,l9ba2h ;7379 ; push hl ;737c ; call errexpected ;737d ; errexpected("]"); ld l,(ix-3) ;7380 ld h,0 ;7383 ex (sp),hl ;7385 call sub_3610h ;7386 pop bc ;7389 l738ah: ; m33: ld de,(0a297h) ;738a ld hl,0000ah ;738e add hl,de ;7391 ld (hl),001h ;7392 ld hl,00009h ;7394 add hl,de ;7397 ld (hl),001h ;7398 ld a,(ix-1) ;739a ld (byte_8f86),a ;739d ld l,e ;73a0 ld h,d ;73a1 inc hl ;73a2 inc hl ;73a3 ld c,(hl) ;73a4 inc hl ;73a5 ld b,(hl) ;73a6 ld hl,00007h ;73a7 add hl,bc ;73aa ld (hl),001h ;73ab push iy ;73ad pop de ;73af ld hl,(0a297h) ;73b0 inc hl ;73b3 inc hl ;73b4 ld a,(hl) ;73b5 inc hl ;73b6 ld h,(hl) ;73b7 ld l,a ;73b8 inc hl ;73b9 inc hl ;73ba ld (hl),e ;73bb inc hl ;73bc ld (hl),d ;73bd jp l723eh ;73be ; goto m25; l73c1h: ; m34: ld a,(ix-3) ;73c1 ld (byte_9def),a ;73c4 ld a,(ix-4) ;73c7 or a ;73ca jp nz,l73dah ;73cb ld hl,(0a297h) ;73ce ld c,(hl) ;73d1 inc hl ;73d2 ld b,(hl) ;73d3 ld hl,00014h ;73d4 add hl,bc ;73d7 ld (hl),0 ;73d8 l73dah: ; m35: ld a,(ix-2) ;73da or a ;73dd jp z,cret ;73de ld de,(0a297h) ;73e1 ld hl,00009h ;73e5 add hl,de ;73e8 ld (hl),0 ;73e9 l73ebh: ; m36: ld de,(0a297h) ;73eb ld hl,00006h ;73ef add hl,de ;73f2 ld c,(hl) ;73f3 inc hl ;73f4 ld b,(hl) ;73f5 bit 0,c ;73f6 jp z,l7404h ;73f8 ; if(bittst( ,0) == 0) goto m37; ld hl,00008h ;73fb add hl,de ;73fe ld (hl),001h ;73ff jp l741ch ;7401 ; goto m38; l7404h: ; m37: ld hl,00006h ;7404 add hl,de ;7407 ld c,(hl) ;7408 inc hl ;7409 ld b,(hl) ;740a srl b ;740b rr c ;740d set 7,b ;740f ;bitset(, 7) ld de,(0a297h) ;7411 ld hl,00006h ;7415 add hl,de ;7418 ld (hl),c ;7419 inc hl ;741a ld (hl),b ;741b l741ch: ; m38: ld a,(ix-2) ;741c add a,0ffh ;741f ld (ix-2),a ;7421 or a ;7424 jr nz,l73ebh ;7425 jp cret ;7427 ; =============== F U N C T I O N ======================================= ; 142 ; sub_742ah: call csv ;742a ld a,(ix+6) ;742d or (ix+7) ;7430 jp z,l744bh ;7433 ; if( == 0) goto m3; jp l7445h ;7436 ; goto m2; l7439h: ; m1: ld b,001h ;7439 push ix ;743b pop de ;743d ld hl,00006h ;743e add hl,de ;7441 call aslr ;7442 l7445h: ; m2: bit 0,(ix+6) ;7445 jr z,l7439h ;7449 ; if(bittst(, 0) == 0) goto m3; l744bh: ; m3: ld l,(ix+6) ;744b ld h,(ix+7) ;744e jp cret ;7451 ; =============== F U N C T I O N ======================================= ; 143 ; sub_7454h: call csv ;7454 push hl ;7457 push hl ;7458 ld l,(ix+6) ;7459 ld h,(ix+7) ;745c push hl ;745f pop iy ;7460 ld hl,00060h ; '`' ;7462 ; push hl ;7465 ; call _putchar ;7466 ; putchar('`'); pop bc ;7469 ; l746ah: ; m1: ld a,(iy+007h) ;746a cp 002h ;746d jp nz,l747ah ;746f ; if( != ) goto m2; ld hl,00028h ; '(' ;7472 ; push hl ;7475 ; call _putchar ;7476 ; putchar('('); pop bc ;7479 ; l747ah: ; m2: ld l,(iy+4) ;747a ld h,(iy+5) ;747d ld (ix-2),l ;7480 ld (ix-1),h ; l1 ;7483 jp l74a2h ;7486 ; goto m5; l7489h: ; m3: bit 0,(ix-2) ;7489 jp z,l7498h ;748d ; if(bittst( ,0) == 0) goto m4; ld hl,0002ah ; '*' ;7490 ; push hl ;7493 ; call _putchar ;7494 ; putchar('*'); pop bc ;7497 ; l7498h: ; m4: ld b,001h ;7498 push ix ;749a pop hl ;749c dec hl ;749d dec hl ;749e call aslr ;749f l74a2h: ; m5: ld a,(ix-2) ;74a2 or (ix-1) ; l1 ;74a5 jr nz,l7489h ;74a8 ; if( != ) goto m5; ld a,(iy+6) ;74aa cp 016h ;74ad jp nz,l74c9h ;74af ; if( != ) goto m6; ld e,(iy+0) ;74b2 ld d,(iy+1) ;74b5 ld hl,00007h ;74b8 add hl,de ;74bb ld a,(hl) ;74bc cp 002h ;74bd jp nz,l74c9h ;74bf ; if( != ) goto m6; ld l,e ;74c2 ld h,d ;74c3 push hl ;74c4 pop iy ;74c5 jr l746ah ;74c7 ; goto m1; l74c9h: ; m6: ld a,(iy+6) ;74c9 ld (ix-3),a ;74cc ld a,(ix-3) ;74cf cp 012h ;74d2 jp z,l7517h ;74d4 ; if( == ) goto m9; cp 016h ;74d7 jp z,l7517h ;74d9 ; if( == ) goto m9; cp 01ah ;74dc jp z,l7528h ;74de ; if( == ) goto m11; cp 01ch ;74e1 jp z,l7528h ;74e3 ; if( == ) goto m11; bit 0,(ix-3) ;74e6 jp z,l74fdh ;74ea ; if(bittst( ,0) == 0) goto m7; ld hl,00075h ;74ed push hl ;74f0 call _putchar ;74f1 ; putchar(); pop bc ;74f4 ld a,(ix-3) ;74f5 and 0feh ;74f8 ld (ix-3),a ;74fa l74fdh: ; m7: ld e,(ix-3) ;74fd ld d,0 ;7500 srl d ;7502 rr e ;7504 ld hl,l9803h ;7506 "?bcsilxfd?v" add hl,de ;7509 ld a,(hl) ;750a ld l,a ;750b rla ;750c sbc a,a ;750d ld h,a ;750e push hl ;750f call _putchar ;7510 ; putchar(); l7513h: ; m8: pop bc ;7513 jp cret ;7514 l7517h: ; m9: ld hl,__iob+8 ;7517 push hl ;751a ld l,(iy+0) ;751b ld h,(iy+1) ;751e push hl ;7521 call sub_573bh ;7522 l7525h: ; m10: pop bc ;7525 jr l7513h ;7526 ; goto m8; l7528h: ; m11: ld l,(iy+0) ;7528 ld h,(iy+1) ;752b ld c,(hl) ;752e inc hl ;752f ld b,(hl) ;7530 push bc ;7531 ld hl,l9ba4h ;7532 "S%d" push hl ;7535 call _printf ;7536 ; printf(); jr l7525h ;7539 ; goto m10; ; =============== F U N C T I O N ======================================= ; 144 ; proc_154(int arg0, int arg1) ; ; register char *reg1 ; ; sub-753bh ; ; FILE * open1() { open1: ; register FILE * stream; call csv ;753b ld iy,__iob ;753e ; stream = stdin; jr l755ah ;7542 ; goto m3; l7544h: ; m1: ld de,__fcb ;7544 push iy ;7547 pop hl ;7549 or a ;754a sbc hl,de ;754b jr nz,l7555h ;754d ; if(stream != __fcb) goto m2; ld hl,0 ;754f ; jp cret ;7552 ; return NULL; l7555h: ; m2: ld de,00008h ;7555 ; add iy,de ;7558 ; ++stream; l755ah: ; m3: ld a,(iy+6) ;755a and 003h ;755d or a ;755f jr nz,l7544h ;7560 ; if( != ) goto m1; push iy ;\ ;7562 ; ld l,(ix+8) ;7564 ; ld h,(ix+9) ; mode ;7567 ; push hl ;\2 ;756a ; ld l,(ix+6) ;756b ; ld h,(ix+7) ; name ;756e ; push hl ;\1 ;7571 ; call _freopen ;7572 ; pop bc ;7575 ; pop bc ;7576 ; pop bc ;7577 ; jp cret ;7578 ; return freopen(name, mode, stream); ; =============== F U N C T I O N ======================================= ; 145 ; _fprintf: call csv ;757b push ix ;757e pop de ;7580 ld hl,0000ah ;7581 add hl,de ;7584 push hl ;7585 ld l,(ix+8) ;7586 ld h,(ix+9) ;7589 push hl ;758c ld l,(ix+6) ;758d ld h,(ix+7) ;7590 push hl ;7593 call __doprnt ;7594 pop bc ;7597 pop bc ;7598 pop bc ;7599 jp cret ;759a ; =============== F U N C T I O N ======================================= ; 146 ; proc_155(int arg0, int arg1, int arg2) { ; ; register char *reg1 ; _freopen: ; char loc0; call csv ;759d push hl ;75a0 push hl ;75a1 ld l,(ix+00ah) ;75a2 ld h,(ix+00bh) ;75a5 push hl ;75a8 pop iy ;75a9 push hl ;75ab call _fclose ;75ac pop bc ;75af ld de,__iob ;75b0 push iy ;75b3 pop hl ;75b5 or a ;75b6 sbc hl,de ;75b7 ld de,00008h ;75b9 call adiv ;75bc ld a,l ;75bf ld (iy+007h),a ;75c0 ld l,a ;75c3 rla ;75c4 sbc a,a ;75c5 ld h,a ;75c6 ld de,00029h ;75c7 call amul ;75ca ld de,__fcb ;75cd add hl,de ;75d0 ld (ix-4),l ;75d1 ld (ix-3),h ;75d4 ld (ix-1),0 ;75d7 ld (ix-2),00fh ;75db ld a,(iy+6) ;75df and 04fh ;75e2 ld (iy+6),a ;75e4 ld l,(ix+8) ;75e7 ld h,(ix+9) ;75ea ld a,(hl) ;75ed cp 072h ; 'r' ;75ee jr z,l75fdh ;75f0 cp 077h ; 'w' ;75f2 jr nz,l760dh ;75f4 inc (ix-1) ;75f6 ld (ix-2),016h ;75f9 l75fdh: ld l,(ix+8) ;75fd ld h,(ix+9) ;7600 inc hl ;7603 ld a,(hl) ;7604 cp 062h ; 'b' ;7605 jr nz,l760dh ;7607 ld (iy+6),080h ;7609 l760dh: ld l,(ix+6) ;760d ld h,(ix+7) ;7610 push hl ;7613 ld l,(ix-4) ;7614 ld h,(ix-3) ;7617 push hl ;761a call _def_fcb ;761b pop bc ;761e pop bc ;761f ld a,(ix-2) ;7620 cp 016h ;7623 ld l,(ix-4) ;7625 ld h,(ix-3) ;7628 push hl ;762b jr nz,l763dh ;762c ld hl,00013h ;762e push hl ;7631 call bdos ;7632 pop bc ;7635 ld l,(ix-4) ;7636 ld h,(ix-3) ;7639 ex (sp),hl ;763c l763dh: ld l,(ix-2) ;763d ld h,0 ;7640 push hl ;7642 call bdos ;7643 pop bc ;7646 pop bc ;7647 ld a,l ;7648 cp 0ffh ;7649 jr nz,l7653h ;764b ld hl,00000h ;764d jp cret ;7650 l7653h: ld a,(ix-1) ;7653 or a ;7656 jr nz,l765eh ;7657 ld hl,00001h ;7659 jr l7661h ;765c l765eh: ld hl,00002h ;765e l7661h: ld a,l ;7661 ld e,(ix-4) ;7662 ld d,(ix-3) ;7665 ld hl,00024h ;7668 add hl,de ;766b ld (hl),a ;766c ld a,(ix-1) ;766d inc a ;7670 ld e,a ;7671 ld a,(iy+6) ;7672 or e ;7675 ld (iy+6),a ;7676 and 00ch ;7679 or a ;767b jr nz,l7694h ;767c ld a,(iy+4) ;767e or (iy+5) ;7681 jr nz,l7694h ;7684 ld hl,512 ;7686 push hl ;7689 call _sbrk ;768a pop bc ;768d ld (iy+4),l ;768e ld (iy+5),h ;7691 l7694h: ld l,(iy+4) ;7694 ld h,(iy+5) ;7697 ld (iy+0),l ;769a ld (iy+1),h ;769d ld a,l ;76a0 or (iy+5) ;76a1 jr z,l76b6h ;76a4 ld a,(ix-1) ;76a6 or a ;76a9 ld (iy+2),0 ;76aa jr z,l76bah ;76ae ld (iy+3),002h ;76b0 jr l76beh ;76b4 l76b6h: ld (iy+2),0 ;76b6 l76bah: ld (iy+3),0 ;76ba l76beh: push iy ;76be pop hl ;76c0 jp cret ;76c1 ; =============== F U N C T I O N ======================================= ; 147 ; sub_76c4h: call csv ;76c4 push hl ;76c7 push hl ;76c8 ld l,(ix+00ah) ;76c9 ld h,(ix+00bh) ;76cc push hl ;76cf pop iy ;76d0 ld l,(ix+6) ;76d2 ld h,(ix+7) ;76d5 ld (ix-2),l ;76d8 ld (ix-1),h ;76db l76deh: ld l,(ix+8) ;76de ld h,(ix+9) ;76e1 dec hl ;76e4 ld (ix+8),l ;76e5 ld (ix+9),h ;76e8 inc hl ;76eb ld a,l ;76ec or h ;76ed jr z,l771ah ;76ee push iy ;76f0 call _fgetc ;76f2 pop bc ;76f5 ld (ix-4),l ;76f6 ld (ix-3),h ;76f9 ld de,0ffffh ;76fc or a ;76ff sbc hl,de ;7700 jr z,l771ah ;7702 ld a,(ix-4) ;7704 ld l,(ix+6) ;7707 ld h,(ix+7) ;770a inc hl ;770d ld (ix+6),l ;770e ld (ix+7),h ;7711 dec hl ;7714 ld (hl),a ;7715 cp 00ah ;7716 jr nz,l76deh ;7718 l771ah: ld l,(ix+6) ;771a ld h,(ix+7) ;771d ld (hl),0 ;7720 ld e,(ix-2) ;7722 ld d,(ix-1) ;7725 or a ;7728 sbc hl,de ;7729 jr nz,l7733h ;772b ld hl,00000h ;772d jp cret ;7730 l7733h: ld l,(ix-2) ;7733 ld h,(ix-1) ;7736 jp cret ;7739 call csv ;773c ld hl,__iob ;773f push hl ;7742 ld hl,0ffffh ;7743 push hl ;7746 ld l,(ix+6) ;7747 ld h,(ix+7) ;774a push hl ;774d call sub_76c4h ;774e pop bc ;7751 pop bc ;7752 pop bc ;7753 ld (ix+6),l ;7754 ld (ix+7),h ;7757 ld a,l ;775a or h ;775b jr nz,l7764h ;775c ld hl,00000h ;775e jp cret ;7761 l7764h: ld l,(ix+6) ;7764 ld h,(ix+7) ;7767 push hl ;776a call strlen ;776b pop bc ;776e ld e,(ix+6) ;776f ld d,(ix+7) ;7772 add hl,de ;7775 dec hl ;7776 ld (hl),0 ;7777 ld l,e ;7779 ld h,d ;777a jp cret ;777b ; =============== F U N C T I O N ======================================= ; ; 148 analog _sub_6D1C from cgen.com ; setSize: call csv ;777e ld l,(ix+6) ;7781 ld h,(ix+7) ;7784 push hl ;7787 pop iy ;7788 ld e,(ix+8) ;778a ld d,(ix+9) ;778d ld hl,00080h ;7790 call wrelop ;7793 jp p,l77b3h ;7796 ld l,(ix+8) ;7799 ld h,(ix+9) ;779c dec hl ;779f dec hl ;77a0 dec hl ;77a1 ld (iy+0),l ;77a2 ld (iy+1),h ;77a5 ld de,00003h ;77a8 add iy,de ;77ab ld (iy-1),080h ;77ad jr l77bdh ;77b1 l77b3h: ld a,(ix+8) ;77b3 add a,0ffh ;77b6 ld (iy+0),a ;77b8 inc iy ;77bb l77bdh: push iy ;77bd pop hl ;77bf jp cret ;77c0 ; =============== F U N C T I O N ======================================= ; ; 149 analog _sub_6D61 from cgen.com ; pack: call ncsv ;77c3 defw 0fff7h ;77c6 ld (ix-009h),0 ;77c8 l77cch: ld hl,0a29ch ;77cc analog _word_B023+1 ld (ix-8),l ;77cf ld (ix-7),h ;77d2 jp l7922h ;77d5 l77d8h: push iy ;77d8 pop hl ;77da ld (ix-4),l ;77db ld (ix-3),h ;77de ld a,(iy-001h) ;77e1 ld l,a ;77e4 rla ;77e5 sbc a,a ;77e6 bit 7,l ;77e7 ld l,(ix-4) ;77e9 dec hl ;77ec jr z,l77f9h ;77ed dec hl ;77ef dec hl ;77f0 ld (ix-4),l ;77f1 ld (ix-3),h ;77f4 jr l77ffh ;77f7 l77f9h: ld (ix-4),l ;77f9 ld (ix-3),h ;77fc l77ffh: ld hl,0a29ch ;77ff analog _word_B023+1 ld (ix-6),l ;7802 ld (ix-5),h ;7805 jp l7905h ;7808 l780bh: ld e,(ix-2) ;780b ld d,(ix-1) ;780e ld l,e ;7811 ld h,d ;7812 dec hl ;7813 bit 7,(hl) ;7814 jr nz,l781dh ;7816 ld l,(hl) ;7818 ld h,0 ;7819 jr l7823h ;781b l781dh: dec hl ;781d dec hl ;781e ld a,(hl) ;781f inc hl ;7820 ld h,(hl) ;7821 ld l,a ;7822 l7823h: add hl,de ;7823 ld e,(ix-4) ;7824 ld d,(ix-3) ;7827 or a ;782a sbc hl,de ;782b jp nz,l78f9h ;782d push iy ;7830 pop de ;7832 ld l,(ix-6) ;7833 ld h,(ix-5) ;7836 or a ;7839 sbc hl,de ;783a jr nz,l7852h ;783c ld l,(ix-2) ;783e ld h,(ix-1) ;7841 ld c,(hl) ;7844 inc hl ;7845 ld b,(hl) ;7846 ld l,(ix-8) ;7847 ld h,(ix-7) ;784a ld (hl),c ;784d inc hl ;784e ld (hl),b ;784f jr l7895h ;7850 l7852h: ld e,(ix-2) ;7852 ld d,(ix-1) ;7855 ld l,(ix-8) ;7858 ld h,(ix-7) ;785b or a ;785e sbc hl,de ;785f jr nz,l7874h ;7861 ld e,(iy+0) ;7863 ld d,(iy+1) ;7866 ld l,(ix-6) ;7869 ld h,(ix-5) ;786c ld (hl),e ;786f inc hl ;7870 ld (hl),d ;7871 jr l7895h ;7872 l7874h: ld l,(ix-2) ;7874 ld h,(ix-1) ;7877 ld c,(hl) ;787a inc hl ;787b ld b,(hl) ;787c ld l,(ix-6) ;787d ld h,(ix-5) ;7880 ld (hl),c ;7883 inc hl ;7884 ld (hl),b ;7885 ld e,(iy+0) ;7886 ld d,(iy+1) ;7889 ld l,(ix-8) ;788c ld h,(ix-7) ;788f ld (hl),e ;7892 inc hl ;7893 ld (hl),d ;7894 l7895h: ld l,(ix-2) ;7895 ld h,(ix-1) ;7898 dec hl ;789b ld a,(hl) ;789c ld l,a ;789d rla ;789e sbc a,a ;789f bit 7,l ;78a0 ld l,(ix-2) ;78a2 ld h,(ix-1) ;78a5 dec hl ;78a8 jr z,l78b5h ;78a9 dec hl ;78ab dec hl ;78ac ld (ix-2),l ;78ad ld (ix-1),h ;78b0 jr l78bbh ;78b3 l78b5h: ld (ix-2),l ;78b5 ld (ix-1),h ;78b8 l78bbh: bit 7,(iy-001h) ;78bb jr nz,l78c8h ;78bf ld l,(iy-001h) ;78c1 ld h,0 ;78c4 jr l78ceh ;78c6 l78c8h: ld l,(iy-003h) ;78c8 ld h,(iy-002h) ;78cb l78ceh: push hl ;78ce ld e,(ix-2) ;78cf ld d,(ix-1) ;78d2 ld hl,00000h ;78d5 or a ;78d8 sbc hl,de ;78d9 pop de ;78db add hl,de ;78dc push iy ;78dd pop de ;78df add hl,de ;78e0 push hl ;78e1 ld l,(ix-2) ;78e2 ld h,(ix-1) ;78e5 push hl ;78e8 call setSize ;78e9 pop bc ;78ec ex (sp),hl ;78ed call free ;78ee pop bc ;78f1 ld (ix-009h),1 ;78f2 jp l77cch ;78f6 l78f9h: ld l,(ix-2) ;78f9 ld h,(ix-1) ;78fc ld (ix-6),l ;78ff ld (ix-5),h ;7902 l7905h: ld l,(ix-6) ;7905 ld h,(ix-5) ;7908 ld c,(hl) ;790b inc hl ;790c ld b,(hl) ;790d ld (ix-2),c ;790e ld (ix-1),b ;7911 ld a,c ;7914 or b ;7915 jp nz,l780bh ;7916 push iy ;7919 pop hl ;791b ld (ix-8),l ;791c ld (ix-7),h ;791f l7922h: ld l,(ix-8) ;7922 ld h,(ix-7) ;7925 ld c,(hl) ;7928 inc hl ;7929 ld b,(hl) ;792a push bc ;792b pop iy ;792c ld a,c ;792e or b ;792f jp nz,l77d8h ;7930 jp cret ;7933 ; =============== F U N C T I O N ======================================= ; 150 analog _malloc from cgen.com ; _malloc: call ncsv ;7936 defw 0fffbh ;7939 ld de,00002h ;793b ld l,(ix+6) ;793e ld h,(ix+7) ;7941 call wrelop ;7944 jr nc,l7951h ;7947 ld (ix+6),2 ;7949 ld (ix+7),0 ;794d l7951h: ld (ix-5),0 ;7951 l7955h: ld iy,0a29ch ;7955 ; _word_B023+1 jp l7a1fh ;7959 l795ch: ld e,(ix+6) ;795c ld d,(ix+7) ;795f ld l,(ix-2) ;7962 ld h,(ix-1) ;7965 dec hl ;7968 bit 7,(hl) ;7969 jr nz,l7972h ;796b ld l,(hl) ;796d ld h,0 ;796e jr l7978h ;7970 l7972h: dec hl ;7972 dec hl ;7973 ld a,(hl) ;7974 inc hl ;7975 ld h,(hl) ;7976 ld l,a ;7977 l7978h: call wrelop ;7978 ld l,(ix-2) ;797b ld h,(ix-1) ;797e jp c,l7a1ch ;7981 ld c,(hl) ;7984 inc hl ;7985 ld b,(hl) ;7986 ld (iy+0),c ;7987 ld (iy+1),b ;798a dec hl ;798d push hl ;798e pop iy ;798f bit 7,(iy-001h) ;7991 jr nz,l799eh ;7995 ld l,(iy-001h) ;7997 ld h,0 ;799a jr l79a4h ;799c l799eh: ld l,(iy-003h) ;799e ld h,(iy-002h) ;79a1 l79a4h: ex de,hl ;79a4 push ix ;79a5 pop hl ;79a7 dec hl ;79a8 dec hl ;79a9 dec hl ;79aa dec hl ;79ab ld (hl),e ;79ac inc hl ;79ad ld (hl),d ;79ae push de ;79af ld e,(ix+6) ;79b0 ld d,(ix+7) ;79b3 ld hl,00006h ;79b6 add hl,de ;79b9 pop de ;79ba call wrelop ;79bb push iy ;79be jr nc,l7a18h ;79c0 pop de ;79c2 ld l,(ix+6) ;79c3 ld h,(ix+7) ;79c6 add hl,de ;79c9 ld (ix-2),l ;79ca ld (ix-1),h ;79cd ld e,(ix+6) ;79d0 ld d,(ix+7) ;79d3 ld l,(ix-4) ;79d6 ld h,(ix-3) ;79d9 or a ;79dc sbc hl,de ;79dd push hl ;79df ld l,(ix-2) ;79e0 ld h,(ix-1) ;79e3 push hl ;79e6 call setSize ;79e7 analog _sub_6D1C pop bc ;79ea ex (sp),hl ;79eb call free ;79ec analog _sub_7028 pop bc ;79ef ld a,(iy-001h) ;79f0 ld l,a ;79f3 rla ;79f4 sbc a,a ;79f5 ld h,a ;79f6 bit 7,l ;79f7 jr z,l7a02h ;79f9 ld de,0fffdh ;79fb add iy,de ;79fe jr l7a07h ;7a00 l7a02h: ld de,0ffffh ;7a02 add iy,de ;7a05 l7a07h: ld l,(ix+6) ;7a07 ld h,(ix+7) ;7a0a l7a0dh: push hl ;7a0d push iy ;7a0e call setSize ;7a10 analog _sub_6D1C pop bc ;7a13 pop bc ;7a14 jp cret ;7a15 l7a18h: pop hl ;7a18 jp cret ;7a19 l7a1ch: push hl ;7a1c pop iy ;7a1d l7a1fh: ld l,(iy+0) ;7a1f ld h,(iy+1) ;7a22 ld (ix-2),l ;7a25 ld (ix-1),h ;7a28 ld a,l ;7a2b or h ;7a2c jp nz,l795ch ;7a2d ld a,(ix-5) ;7a30 or a ;7a33 jr nz,l7a41h ;7a34 call pack ;7a36 ld a,l ;7a39 ld (ix-5),a ;7a3a or a ;7a3d jp nz,l7955h ;7a3e l7a41h: ld de,00080h ;7a41 ld l,(ix+6) ;7a44 ld h,(ix+7) ;7a47 call wrelop ;7a4a jr c,l7a54h ;7a4d ld hl,00003h ;7a4f jr l7a57h ;7a52 l7a54h: ld hl,00001h ;7a54 l7a57h: ld (ix-4),l ;7a57 ld (ix-3),h ;7a5a ex de,hl ;7a5d ld l,(ix+6) ;7a5e ld h,(ix+7) ;7a61 add hl,de ;7a64 push hl ;7a65 call _sbrk ;7a66 pop bc ;7a69 push hl ;7a6a pop iy ;7a6b ld de,0ffffh ;7a6d or a ;7a70 sbc hl,de ;7a71 jr nz,l7a7bh ;7a73 ld hl,00000h ;7a75 jp cret ;7a78 l7a7bh: ld e,(ix-4) ;7a7b ld d,(ix-3) ;7a7e ld l,(ix+6) ;7a81 ld h,(ix+7) ;7a84 add hl,de ;7a87 jr l7a0dh ;7a88 ; =============== F U N C T I O N ======================================= ; 151 analog sub_7028 from cgen.com ; free: call csv ;7a8a ld iy,0a29ch ;7a8d analog _word_B023+1 jr l7a9ch ;7a91 l7a93h: ld l,(iy+0) ;7a93 ld h,(iy+1) ;7a96 push hl ;7a99 pop iy ;7a9a l7a9ch: ld a,(iy+0) ;7a9c or (iy+1) ;7a9f jr z,l7ad6h ;7aa2 ld l,(ix+6) ;7aa4 ld h,(ix+7) ;7aa7 dec hl ;7aaa bit 7,(hl) ;7aab jr nz,l7ab4h ;7aad ld l,(hl) ;7aaf ld h,0 ;7ab0 jr l7abah ;7ab2 l7ab4h: dec hl ;7ab4 dec hl ;7ab5 ld a,(hl) ;7ab6 inc hl ;7ab7 ld h,(hl) ;7ab8 ld l,a ;7ab9 l7abah: ex de,hl ;7aba ld l,(iy+0) ;7abb ld h,(iy+1) ;7abe dec hl ;7ac1 bit 7,(hl) ;7ac2 jr nz,l7acbh ;7ac4 ld l,(hl) ;7ac6 ld h,0 ;7ac7 jr l7ad1h ;7ac9 l7acbh: dec hl ;7acb dec hl ;7acc ld a,(hl) ;7acd inc hl ;7ace ld h,(hl) ;7acf ld l,a ;7ad0 l7ad1h: call wrelop ;7ad1 jr c,l7a93h ;7ad4 l7ad6h: ld e,(iy+0) ;7ad6 ld d,(iy+1) ;7ad9 ld l,(ix+6) ;7adc ld h,(ix+7) ;7adf ld (hl),e ;7ae2 inc hl ;7ae3 ld (hl),d ;7ae4 dec hl ;7ae5 ld (iy+0),l ;7ae6 ld (iy+1),h ;7ae9 jp cret ;7aec ; =============== F U N C T I O N ======================================= ; 152 ; _printf: call csv ;7aef push ix ;7af2 pop de ;7af4 ld hl,8 ;7af5 add hl,de ;7af8 push hl ;7af9 ld l,(ix+6) ;7afa ld h,(ix+7) ;7afd push hl ;7b00 ld hl,__iob+8 ;7b01 push hl ;7b04 call __doprnt ;7b05 pop bc ;7b08 pop bc ;7b09 pop bc ;7b0a jp cret ;7b0b ; =============== F U N C T I O N ======================================= ; 153 ; _getchar: ld hl,__iob ;7b0e push hl ;7b11 call _fgetc ;7b12 pop bc ;7b15 ret ;7b16 ; =============== F U N C T I O N ======================================= ; 154 ; _putchar: call csv ;7b17 ld hl,__iob+8 ;7b1a push hl ;7b1d ld l,(ix+6) ;7b1e ld h,(ix+7) ;7b21 push hl ;7b24 call _fputc ;7b25 ; fputc(,); pop bc ;7b28 pop bc ;7b29 jp cret ;7b2a ; =============== F U N C T I O N ======================================= ; 155 ; sub_7b2dh: call csv ;7b2d ld l,(ix+8) ;7b30 ld h,(ix+9) ;7b33 push hl ;7b36 pop iy ;7b37 jr l7b55h ;7b39 l7b3bh: push iy ;7b3b ld l,(ix+6) ;7b3d ld h,(ix+7) ;7b40 ld a,(hl) ;7b43 inc hl ;7b44 ld (ix+6),l ;7b45 ld (ix+7),h ;7b48 ld l,a ;7b4b rla ;7b4c sbc a,a ;7b4d ld h,a ;7b4e push hl ;7b4f call _fputc ;7b50 ; fputc(,); pop bc ;7b53 pop bc ;7b54 l7b55h: ld l,(ix+6) ;7b55 ld h,(ix+7) ;7b58 ld a,(hl) ;7b5b or a ;7b5c jr nz,l7b3bh ;7b5d jp cret ;7b5f call csv ;7b62 ld hl,__iob+8 ;7b65 push hl ;7b68 ld l,(ix+6) ;7b69 ld h,(ix+7) ;7b6c push hl ;7b6f call sub_7b2dh ;7b70 pop bc ;7b73 ld hl,0000ah ;7b74 ex (sp),hl ;7b77 call _putchar ;7b78 ; putchar(); jp cret ;7b7b ; =============== F U N C T I O N ======================================= ; 156 ; sub_7b7eh: call csv ;7b7e ld l,(ix+6) ;7b81 ld h,(ix+7) ;7b84 push hl ;7b87 pop iy ;7b88 ld de,__iob ;7b8a push iy ;7b8d pop hl ;7b8f or a ;7b90 sbc hl,de ;7b91 ld de,00008h ;7b93 call adiv ;7b96 ld de,00029h ;7b99 call amul ;7b9c ld de,l9c05h ;7b9f add hl,de ;7ba2 ld a,(hl) ;7ba3 ld b,004h ;7ba4 call brelop ;7ba6 jr nc,l7bb9h ;7ba9 ld a,(ix+8) ;7bab or (ix+9) ;7bae jr nz,l7bb9h ;7bb1 ld hl,0ffffh ;7bb3 jp cret ;7bb6 l7bb9h: bit 3,(iy+6) ;7bb9 jr nz,l7bd2h ;7bbd ld a,(iy+4) ;7bbf or (iy+5) ;7bc2 jr z,l7bd2h ;7bc5 ld l,(iy+4) ;7bc7 ld h,(iy+5) ;7bca push hl ;7bcd call sub_7c3dh ;7bce pop bc ;7bd1 l7bd2h: ld (iy+2),0 ;7bd2 ld (iy+3),0 ;7bd6 ld l,(ix+8) ;7bda ld h,(ix+9) ;7bdd ld (iy+0),l ;7be0 ld (iy+1),h ;7be3 ld (iy+4),l ;7be6 ld (iy+5),h ;7be9 ld a,l ;7bec or h ;7bed jr nz,l7bfbh ;7bee ld a,(iy+6) ;7bf0 and 0f7h ;7bf3 ld (iy+6),a ;7bf5 jp cret ;7bf8 l7bfbh: set 3,(iy+6) ;7bfb bit 1,(iy+6) ;7bff jr z,l7c0dh ;7c03 ld (iy+2),0 ;7c05 ld (iy+3),002h ;7c09 l7c0dh: ld hl,00000h ;7c0d jp cret ;7c10 call csv ;7c13 ld iy,(0a29eh) ;7c16 push iy ;7c1a pop hl ;7c1c ld a,l ;7c1d or h ;7c1e jr z,l7c2ch ;7c1f ld l,(iy+0) ;7c21 ld h,(iy+1) ;7c24 ld (0a29eh),hl ;7c27 jr l7c37h ;7c2a l7c2ch: ld hl,l0200h ;7c2c push hl ;7c2f call _sbrk ;7c30 pop bc ;7c33 push hl ;7c34 pop iy ;7c35 l7c37h: push iy ;7c37 pop hl ;7c39 jp cret ;7c3a ; =============== F U N C T I O N ======================================= ; 157 ; sub_7c3dh: call csv ;7c3d ld l,(ix+6) ;7c40 ld h,(ix+7) ;7c43 push hl ;7c46 pop iy ;7c47 ld hl,(0a29eh) ;7c49 ld (iy+0),l ;7c4c ld (iy+1),h ;7c4f ld (0a29eh),iy ;7c52 jp cret ;7c56 ; =============== F U N C T I O N ======================================= ; 158 ; _toupper: call csv ;7c59 ld b,061h ;7c5c ld a,(ix+6) ;7c5e call brelop ;7c61 jp m,l7c80h ;7c64 ld a,(ix+6) ;7c67 ld e,a ;7c6a rla ;7c6b sbc a,a ;7c6c ld d,a ;7c6d ld hl,0007ah ;7c6e call wrelop ;7c71 jp m,l7c80h ;7c74 ld a,(ix+6) ;7c77 add a,0e0h ;7c7a ld l,a ;7c7c jp cret ;7c7d l7c80h: ld l,(ix+6) ;7c80 jp cret ;7c83 ; =============== F U N C T I O N ======================================= ; 159 ; _def_fcb: call csv ;7c86 push hl ;7c89 ld l,(ix+6) ;7c8a ld h,(ix+7) ;7c8d push hl ;7c90 pop iy ;7c91 ld (iy+0),0 ;7c93 ld l,(ix+8) ;7c97 ld h,(ix+9) ;7c9a inc hl ;7c9d ld a,(hl) ;7c9e cp 03ah ; ':' ;7c9f jr nz,l7cbbh ;7ca1 dec hl ;7ca3 ld a,(hl) ;7ca4 ld l,a ;7ca5 rla ;7ca6 ld a,l ;7ca7 and 00fh ;7ca8 ld (iy+0),a ;7caa ld l,(ix+8) ;7cad ld h,(ix+9) ;7cb0 inc hl ;7cb3 inc hl ;7cb4 ld (ix+8),l ;7cb5 ld (ix+9),h ;7cb8 l7cbbh: push iy ;7cbb pop hl ;7cbd inc hl ;7cbe ld (ix-2),l ;7cbf ld (ix-1),h ;7cc2 jr l7ceeh ;7cc5 l7cc7h: ld l,(ix+8) ;7cc7 ld h,(ix+9) ;7cca ld a,(hl) ;7ccd inc hl ;7cce ld (ix+8),l ;7ccf ld (ix+9),h ;7cd2 ld l,a ;7cd5 rla ;7cd6 sbc a,a ;7cd7 ld h,a ;7cd8 push hl ;7cd9 call _toupper ;7cda pop bc ;7cdd ld e,l ;7cde ld l,(ix-2) ;7cdf ld h,(ix-1) ;7ce2 inc hl ;7ce5 ld (ix-2),l ;7ce6 ld (ix-1),h ;7ce9 dec hl ;7cec ld (hl),e ;7ced l7ceeh: ld l,(ix+8) ;7cee ld h,(ix+9) ;7cf1 ld a,(hl) ;7cf4 cp 02eh ; '.' ;7cf5 jr z,l7d2ch ;7cf7 ld a,(hl) ;7cf9 ld e,a ;7cfa rla ;7cfb sbc a,a ;7cfc ld d,a ;7cfd ld hl,00009h ;7cfe call wrelop ;7d01 push iy ;7d04 pop de ;7d06 ld hl,00009h ;7d07 jp p,l7d32h ;7d0a add hl,de ;7d0d ex de,hl ;7d0e ld l,(ix-2) ;7d0f ld h,(ix-1) ;7d12 call wrelop ;7d15 jr c,l7cc7h ;7d18 jr l7d2ch ;7d1a l7d1ch: ld l,(ix-2) ;7d1c ld h,(ix-1) ;7d1f inc hl ;7d22 ld (ix-2),l ;7d23 ld (ix-1),h ;7d26 dec hl ;7d29 ld (hl),020h ;7d2a l7d2ch: push iy ;7d2c pop de ;7d2e ld hl,00009h ;7d2f l7d32h: add hl,de ;7d32 ex de,hl ;7d33 ld l,(ix-2) ;7d34 ld h,(ix-1) ;7d37 call wrelop ;7d3a jr c,l7d1ch ;7d3d l7d3fh: ld l,(ix+8) ;7d3f ld h,(ix+9) ;7d42 ld a,(hl) ;7d45 or a ;7d46 ld a,(hl) ;7d47 jr z,l7d85h ;7d48 inc hl ;7d4a ld (ix+8),l ;7d4b ld (ix+9),h ;7d4e cp 02eh ;7d51 jr nz,l7d3fh ;7d53 jr l7d7eh ;7d55 l7d57h: ld l,(ix+8) ;7d57 ld h,(ix+9) ;7d5a ld a,(hl) ;7d5d inc hl ;7d5e ld (ix+8),l ;7d5f ld (ix+9),h ;7d62 ld l,a ;7d65 rla ;7d66 sbc a,a ;7d67 ld h,a ;7d68 push hl ;7d69 call _toupper ;7d6a pop bc ;7d6d ld e,l ;7d6e ld l,(ix-2) ;7d6f ld h,(ix-1) ;7d72 inc hl ;7d75 ld (ix-2),l ;7d76 ld (ix-1),h ;7d79 dec hl ;7d7c ld (hl),e ;7d7d l7d7eh: ld l,(ix+8) ;7d7e ld h,(ix+9) ;7d81 ld a,(hl) ;7d84 l7d85h: ld e,a ;7d85 rla ;7d86 sbc a,a ;7d87 ld d,a ;7d88 ld hl,00009h ;7d89 call wrelop ;7d8c push iy ;7d8f pop de ;7d91 ld hl,0000ch ;7d92 jp p,l7dbdh ;7d95 add hl,de ;7d98 ex de,hl ;7d99 ld l,(ix-2) ;7d9a ld h,(ix-1) ;7d9d call wrelop ;7da0 jr c,l7d57h ;7da3 jr l7db7h ;7da5 l7da7h: ld l,(ix-2) ;7da7 ld h,(ix-1) ;7daa inc hl ;7dad ld (ix-2),l ;7dae ld (ix-1),h ;7db1 dec hl ;7db4 ld (hl),020h ;7db5 l7db7h: push iy ;7db7 pop de ;7db9 ld hl,0000ch ;7dba l7dbdh: add hl,de ;7dbd ex de,hl ;7dbe ld l,(ix-2) ;7dbf ld h,(ix-1) ;7dc2 call wrelop ;7dc5 jr c,l7da7h ;7dc8 xor a ;7dca ld (iy+020h),a ;7dcb ld (iy+00ch),a ;7dce ld l,a ;7dd1 jp cret ;7dd2 ; =============== F U N C T I O N ======================================= ; 160 ; _sprintf: call csv ;7dd5 ld hl,07fffh ;7dd8 ld (_spf+2),hl ;7ddb ld l,(ix+6) ;7dde ld h,(ix+7) ;7de1 ld (_spf),hl ;7de4 ld hl,_spf+6 ;7de7 ld (hl),082h ;7dea push ix ;7dec pop de ;7dee ld hl,0000ah ;7def add hl,de ;7df2 push hl ;7df3 ld l,(ix+8) ;7df4 ld h,(ix+9) ;7df7 push hl ;7dfa ld hl,_spf ;7dfb push hl ;7dfe call __doprnt ;7dff pop bc ;7e02 pop bc ;7e03 pop bc ;7e04 ld hl,(_spf) ;7e05 ld (hl),0 ;7e08 ld e,(ix+6) ;7e0a ld d,(ix+7) ;7e0d or a ;7e10 sbc hl,de ;7e11 jp cret ;7e13 ; =============== F U N C T I O N ======================================= ; 161 ; _pputc: call csv ;7e16 ld hl,(_ffile) ;7e19 push hl ;7e1c ld l,(ix+6) ;7e1d ld h,(ix+7) ;7e20 push hl ;7e23 call _fputc ;7e24 ; fputc(,); jp cret ;7e27 ; =============== F U N C T I O N ======================================= ; ; __pnum: call csv ;7e2a push hl ;7e2d push hl ;7e2e ld a,(_left) ;7e2f ld e,a ;7e32 dec a ;7e33 ld (_left),a ;7e34 ld a,(_base) ;7e37 ld hl,00000h ;7e3a ld d,l ;7e3d ld e,a ;7e3e push hl ;7e3f push de ;7e40 ld e,(ix+6) ;7e41 ld d,(ix+7) ;7e44 ld l,(ix+8) ;7e47 ld h,(ix+9) ;7e4a call lldiv ;7e4d ld (ix-4),e ;7e50 ld (ix-3),d ;7e53 ld (ix-2),l ;7e56 ld (ix-1),h ;7e59 ld a,e ;7e5c or d ;7e5d or l ;7e5e or h ;7e5f jr z,l7e7bh ;7e60 push hl ;7e62 push de ;7e63 call __pnum ;7e64 pop bc ;7e67 pop bc ;7e68 jr l7e7bh ;7e69 l7e6bh: ld a,(_left) ;7e6b ld e,a ;7e6e dec a ;7e6f ld (_left),a ;7e70 ld hl,00020h ;7e73 push hl ;7e76 call _pputc ;7e77 pop bc ;7e7a l7e7bh: ld a,(_left) ;7e7b ld e,a ;7e7e rla ;7e7f sbc a,a ;7e80 ld d,a ;7e81 ld hl,00000h ;7e82 call wrelop ;7e85 jp m,l7e6bh ;7e88 ld a,(_base) ;7e8b ld hl,00000h ;7e8e ld d,l ;7e91 ld e,a ;7e92 push hl ;7e93 push de ;7e94 ld e,(ix+6) ;7e95 ld d,(ix+7) ;7e98 ld l,(ix+8) ;7e9b ld h,(ix+9) ;7e9e call llmod ;7ea1 ex de,hl ;7ea4 ld de,l9ba8h ;7ea5 "0123456789ABCDEF" add hl,de ;7ea8 ld l,(hl) ;7ea9 ld h,0 ;7eaa push hl ;7eac call _pputc ;7ead jp cret ;7eb0 ; =============== F U N C T I O N ======================================= ; ; doprnt __doprnt: call ncsv ;7eb3 defw 0fff6h ;-10 ;7eb6 ld l,(ix+8) ;7eb8 ld h,(ix+9) ;7ebb push hl ;7ebe pop iy ;7ebf ld l,(ix+6) ;7ec1 ld h,(ix+7) ;7ec4 ld (_ffile),hl ;7ec7 jp l8035h ;7eca l7ecdh: ld a,(ix-1) ;7ecd cp 025h ;7ed0 jr z,l7edfh ;7ed2 ld l,a ;7ed4 ld h,0 ;7ed5 push hl ;7ed7 l7ed8h: call _pputc ;7ed8 pop bc ;7edb jp l8035h ;7edc l7edfh: ld a,00ah ;7edf ld (_base),a ;7ee1 ld (ix-4),0ffh ;7ee4 ld (ix-2),0 ;7ee8 ld a,0 ;7eec ld (_left),a ;7eee ld (ix-3),001h ;7ef1 l7ef5h: ld a,(iy+0) ;7ef5 inc iy ;7ef8 ld (ix-1),a ;7efa or a ;7efd jp z,cret ;7efe cp 02ah ; '*' ;7f01 jr z,l7f5dh ;7f03 cp 02eh ; '.' ;7f05 jp z,l80f3h ;7f07 cp 063h ; 'c' ;7f0a jp z,l805bh ;7f0c cp 064h ; 'd' ;7f0f jp z,l8044h ;7f11 cp 06ch ; 'l' ;7f14 jr z,l7f6eh ;7f16 cp 06fh ; 'o' ;7f18 jr z,l7f74h ;7f1a cp 073h ; 's' ;7f1c jp z,l807fh ;7f1e cp 075h ; 'u' ;7f21 jr z,l7f79h ;7f23 ld b,030h ;7f25 call brelop ;7f27 jp m,l8127h ;7f2a ld a,(ix-1) ;7f2d ld e,a ;7f30 rla ;7f31 sbc a,a ;7f32 ld d,a ;7f33 ld hl,00039h ;7f34 call wrelop ;7f37 jp m,l8127h ;7f3a ld de,0000ah ;7f3d ld a,(_left) ;7f40 ld l,a ;7f43 rla ;7f44 sbc a,a ;7f45 ld h,a ;7f46 call amul ;7f47 ld a,l ;7f4a ld (_left),a ;7f4b ld a,(ix-1) ;7f4e add a,0d0h ;7f51 ld e,a ;7f53 ld a,(_left) ;7f54 add a,e ;7f57 l7f58h: ld (_left),a ;7f58 jr l7ef5h ;7f5b l7f5dh: ld l,(ix+00ah) ;7f5d ld h,(ix+00bh) ;7f60 ld a,(hl) ;7f63 inc hl ;7f64 inc hl ;7f65 ld (ix+00ah),l ;7f66 ld (ix+00bh),h ;7f69 jr l7f58h ;7f6c l7f6eh: ld (ix-3),002h ;7f6e jr l7ef5h ;7f72 l7f74h: ld a,008h ;7f74 ld (_base),a ;7f76 l7f79h: ld l,(ix+00ah) ;7f79 ld h,(ix+00bh) ;7f7c ld e,(hl) ;7f7f inc hl ;7f80 ld d,(hl) ;7f81 ld a,d ;7f82 rla ;7f83 sbc a,a ;7f84 ld l,a ;7f85 ld h,a ;7f86 ld (ix-8),e ;7f87 ld (ix-7),d ;7f8a ld (ix-6),l ;7f8d ld (ix-5),h ;7f90 ld a,(ix-2) ;7f93 or a ;7f96 jr nz,l7fb1h ;7f97 ld l,(ix+00ah) ;7f99 ld h,(ix+00bh) ;7f9c ld e,(hl) ;7f9f inc hl ;7fa0 ld d,(hl) ;7fa1 ld hl,00000h ;7fa2 ld (ix-8),e ;7fa5 ld (ix-7),d ;7fa8 ld (ix-6),l ;7fab ld (ix-5),h ;7fae l7fb1h: ld a,(ix-3) ;7fb1 cp 001h ;7fb4 jr z,l7fd2h ;7fb6 ld l,(ix+00ah) ;7fb8 ld h,(ix+00bh) ;7fbb ld e,(hl) ;7fbe inc hl ;7fbf ld d,(hl) ;7fc0 inc hl ;7fc1 ld a,(hl) ;7fc2 inc hl ;7fc3 ld h,(hl) ;7fc4 ld l,a ;7fc5 ld (ix-8),e ;7fc6 ld (ix-7),d ;7fc9 ld (ix-6),l ;7fcc ld (ix-5),h ;7fcf l7fd2h: ld a,(ix-2) ;7fd2 or a ;7fd5 jr z,l800eh ;7fd6 bit 7,(ix-5) ;7fd8 ld e,(ix-8) ;7fdc ld d,(ix-7) ;7fdf ld l,(ix-6) ;7fe2 ld h,(ix-5) ;7fe5 push hl ;7fe8 push de ;7fe9 jr z,l801ch ;7fea ld hl,00000h ;7fec pop bc ;7fef or a ;7ff0 sbc hl,bc ;7ff1 pop bc ;7ff3 ex de,hl ;7ff4 ld hl,00000h ;7ff5 sbc hl,bc ;7ff8 ld (ix-8),e ;7ffa ld (ix-7),d ;7ffd ld (ix-6),l ;8000 ld (ix-5),h ;8003 ld hl,0002dh ;8006 push hl ;8009 call _pputc ;800a pop bc ;800d l800eh: ld e,(ix-8) ;800e ld d,(ix-7) ;8011 ld l,(ix-6) ;8014 ld h,(ix-5) ;8017 push hl ;801a push de ;801b l801ch: call __pnum ;801c pop bc ;801f pop bc ;8020 ld l,(ix-3) ;8021 ld h,0 ;8024 add hl,hl ;8026 ex de,hl ;8027 ld l,(ix+00ah) ;8028 ld h,(ix+00bh) ;802b add hl,de ;802e ld (ix+00ah),l ;802f ld (ix+00bh),h ;8032 l8035h: ld a,(iy+0) ;8035 inc iy ;8038 ld (ix-1),a ;803a or a ;803d jp nz,l7ecdh ;803e jp cret ;8041 l8044h: ld (ix-2),001h ;8044 jp l7f79h ;8048 l804bh: ld hl,00020h ;804b push hl ;804e call _pputc ;804f pop bc ;8052 ld a,(_left) ;8053 ld e,a ;8056 dec a ;8057 ld (_left),a ;8058 l805bh: ld a,(_left) ;805b ld e,a ;805e rla ;805f sbc a,a ;8060 ld d,a ;8061 ld hl,00001h ;8062 call wrelop ;8065 jp m,l804bh ;8068 ld l,(ix+00ah) ;806b ld h,(ix+00bh) ;806e ld c,(hl) ;8071 inc hl ;8072 ld b,(hl) ;8073 inc hl ;8074 ld (ix+00ah),l ;8075 ld (ix+00bh),h ;8078 push bc ;807b jp l7ed8h ;807c l807fh: ld l,(ix+00ah) ;807f ld h,(ix+00bh) ;8082 ld c,(hl) ;8085 inc hl ;8086 ld b,(hl) ;8087 inc hl ;8088 ld (ix+00ah),l ;8089 ld (ix+00bh),h ;808c ld (ix-00ah),c ;808f ld (ix-009h),b ;8092 ld l,c ;8095 ld h,b ;8096 push hl ;8097 call strlen ;8098 pop bc ;809b ld (ix-2),l ;809c ld b,(ix-4) ;809f ld a,l ;80a2 call brelop ;80a3 jr nc,l80c0h ;80a6 ld a,(ix-2) ;80a8 ld (ix-4),a ;80ab jr l80c0h ;80ae l80b0h: ld hl,00020h ;80b0 push hl ;80b3 call _pputc ;80b4 pop bc ;80b7 ld a,(_left) ;80b8 ld e,a ;80bb dec a ;80bc ld (_left),a ;80bd l80c0h: ld a,(_left) ;80c0 ld e,a ;80c3 ld d,0 ;80c4 ld l,(ix-4) ;80c6 ld h,d ;80c9 call wrelop ;80ca jr c,l80b0h ;80cd jr l80e7h ;80cf l80d1h: ld l,(ix-00ah) ;80d1 ld h,(ix-009h) ;80d4 inc hl ;80d7 ld (ix-00ah),l ;80d8 ld (ix-009h),h ;80db dec hl ;80de ld l,(hl) ;80df ld h,0 ;80e0 push hl ;80e2 call _pputc ;80e3 pop bc ;80e6 l80e7h: ld a,(ix-4) ;80e7 dec (ix-4) ;80ea or a ;80ed jr nz,l80d1h ;80ee jp l8035h ;80f0 l80f3h: ld a,(iy+0) ;80f3 cp 02ah ;80f6 jr nz,l8115h ;80f8 ld l,(ix+00ah) ;80fa ld h,(ix+00bh) ;80fd ld c,(hl) ;8100 inc hl ;8101 ld b,(hl) ;8102 inc hl ;8103 ld (ix+00ah),l ;8104 ld (ix+00bh),h ;8107 push bc ;810a call atoi ;810b pop bc ;810e ld (ix-4),l ;810f jp l7ef5h ;8112 l8115h: ld a,(iy+0) ;8115 ld l,a ;8118 rla ;8119 sbc a,a ;811a ld h,a ;811b ld a,l ;811c add a,0d0h ;811d ld (ix-4),a ;811f inc iy ;8122 jp l7ef5h ;8124 l8127h: ld l,(ix-1) ;8127 ld h,0 ;812a push hl ;812c jp l7ed8h ;812d ; =============== F U N C T I O N ======================================= ; ; _fputc: pop de ;8130 pop bc ;8131 ld b,0 ;8132 ex (sp),iy ;8134 bit 1,(iy+6) ;8136 jr z,l8183h ;813a bit 7,(iy+6) ;813c jr nz,l8156h ;8140 ld a,c ;8142 cp 00ah ;8143 jr nz,l8156h ;8145 push bc ;8147 push de ;8148 push iy ;8149 ld hl,0000dh ;814b push hl ;814e call _fputc ;814f pop hl ;8152 pop bc ;8153 pop de ;8154 pop bc ;8155 l8156h: ; m1: ld l,(iy+2) ;8156 ld h,(iy+3) ;8159 ld a,l ;815c or h ;815d jr z,l817ch ;815e dec hl ;8160 ld (iy+2),l ;8161 ld (iy+3),h ;8164 ld l,(iy+0) ;8167 ld h,(iy+1) ;816a ld (hl),c ;816d inc hl ;816e ld (iy+0),l ;816f ld (iy+1),h ;8172 l8175h: ; m2: ex (sp),iy ;8175 push bc ;8177 push de ;8178 ld l,c ;8179 ld h,b ;817a ret ;817b l817ch: ; m3: ex (sp),iy ;817c push bc ;817e push de ;817f jp __flsbuf ;8180 ; goto m5; l8183h: ; m4: ld bc,-1 ;8183 jr l8175h ;8186 ; goto m2; ; =============== F U N C T I O N ======================================= ; ; __flsbuf: ; m5: call csv ;8188 push hl ;818b ld l,(ix+8) ;818c ld h,(ix+9) ;818f push hl ;8192 pop iy ;8193 call test_brk ;8195 ld de,__iob ;8198 push iy ;819b pop hl ;819d or a ;819e sbc hl,de ;819f ld de,00008h ;81a1 call adiv ;81a4 ld de,00029h ;81a7 call amul ;81aa ld de,__fcb ;81ad add hl,de ;81b0 ld (ix-2),l ;81b1 ld (ix-1),h ;81b4 bit 1,(iy+6) ;81b7 jr z,l8217h ;81bb ld a,(iy+4) ;81bd or (iy+5) ;81c0 jr nz,l81f0h ;81c3 ld (iy+2),0 ;81c5 ld (iy+3),0 ;81c9 ex de,hl ;81cd ld hl,00024h ;81ce add hl,de ;81d1 ld a,(hl) ;81d2 cp 4 ;81d3 jr nz,l8217h ;81d5 ld l,(ix+6) ;81d7 ld h,(ix+7) ;81da push hl ;81dd ld hl,00002h ;81de push hl ;81e1 call bdos ;81e2 pop bc ;81e5 pop bc ;81e6 l81e7h: ; m6: ld l,(ix+6) ;81e7 ld h,(ix+7) ;81ea jp cret ;81ed l81f0h: ; m7: push iy ;81f0 call _fflush ;81f2 pop bc ;81f5 ld a,(ix+6) ;81f6 ld l,(iy+0) ;81f9 ld h,(iy+1) ;81fc inc hl ;81ff ld (iy+0),l ;8200 ld (iy+1),h ;8203 dec hl ;8206 ld (hl),a ;8207 ld l,(iy+2) ;8208 ld h,(iy+3) ;820b dec hl ;820e ld (iy+2),l ;820f ld (iy+3),h ;8212 jr l81e7h ;8215 ; goto m6; l8217h: ; m8: ld hl,-1 ;8217 jp cret ;821a ; =============== F U N C T I O N ======================================= ; ; _fgetc: pop de ;821d ex (sp),iy ;821e ld a,(iy+6) ;8220 bit 0,a ;8223 jr z,l8279h ;8225 bit 4,a ;8227 jr nz,l8279h ;8229 l822bh: ld l,(iy+2) ;822b ld h,(iy+3) ;822e ld a,l ;8231 or h ;8232 jr z,l8284h ;8233 dec hl ;8235 ld (iy+2),l ;8236 ld (iy+3),h ;8239 ld l,(iy+0) ;823c ld h,(iy+1) ;823f ld a,(hl) ;8242 inc hl ;8243 ld (iy+0),l ;8244 ld (iy+1),h ;8247 l824ah: bit 7,(iy+6) ;824a jr z,l8257h ;824e l8250h: ld l,a ;8250 ld h,0 ;8251 ex (sp),iy ;8253 push de ;8255 ret ;8256 l8257h: cp 00dh ;8257 jr z,l822bh ;8259 cp 01ah ;825b jr nz,l8250h ;825d ld l,(iy+2) ;825f ld h,(iy+3) ;8262 inc hl ;8265 ld (iy+2),l ;8266 ld (iy+3),h ;8269 ld l,(iy+0) ;826c ld h,(iy+1) ;826f dec hl ;8272 ld (iy+0),l ;8273 ld (iy+1),h ;8276 l8279h: set 4,(iy+6) ;8279 ld hl,0ffffh ;827d ex (sp),iy ;8280 push de ;8282 ret ;8283 l8284h: bit 6,(iy+6) ;8284 jr nz,l8279h ;8288 push de ;828a push iy ;828b call __filbuf ;828d ld a,l ;8290 pop bc ;8291 pop de ;8292 bit 7,h ;8293 jr nz,l8279h ;8295 jr l824ah ;8297 ; =============== F U N C T I O N ======================================= ; ; __filbuf: call csv ;8299 push hl ;829c ld l,(ix+6) ;829d ld h,(ix+7) ;82a0 push hl ;82a3 pop iy ;82a4 ld de,__iob ;82a6 push iy ;82a9 pop hl ;82ab or a ;82ac sbc hl,de ;82ad ld de,8 ;82af call adiv ;82b2 ld de,00029h ;82b5 call amul ;82b8 ld de,__fcb ;82bb add hl,de ;82be ld (ix-2),l ;82bf ld (ix-1),h ;82c2 ld (iy+2),0 ;82c5 ld (iy+3),0 ;82c9 call test_brk ;82cd ld e,(ix-2) ;82d0 ld d,(ix-1) ;82d3 ld hl,00024h ;82d6 add hl,de ;82d9 ld a,(hl) ;82da cp 1 ;82db jp nz,l835ch ;82dd ld l,(iy+4) ;82e0 ld h,(iy+5) ;82e3 ld (iy+0),l ;82e6 ld (iy+1),h ;82e9 jr l8321h ;82ec l82eeh: ld l,(iy+0) ;82ee ld h,(iy+1) ;82f1 push hl ;82f4 ld hl,0001ah ;82f5 ; Set DMA adr push hl ;82f8 call bdos ;82f9 pop bc ;82fc ld l,(ix-2) ;82fd ld h,(ix-1) ;8300 ex (sp),hl ;8303 ld hl,00014h ;8304 ; Read next record push hl ;8307 call bdos ;8308 pop bc ;830b pop bc ;830c ld a,l ;830d or a ;830e jr nz,l8337h ;830f ld de,00080h ;8311 ld l,(iy+0) ;8314 ld h,(iy+1) ;8317 add hl,de ;831a ld (iy+0),l ;831b ld (iy+1),h ;831e l8321h: ld e,(iy+4) ;8321 ld d,(iy+5) ;8324 ld hl,l0200h ;8327 add hl,de ;832a ex de,hl ;832b ld l,(iy+0) ;832c ld h,(iy+1) ;832f call wrelop ;8332 jr c,l82eeh ;8335 l8337h: ld e,(iy+4) ;8337 ld d,(iy+5) ;833a ld l,(iy+0) ;833d ld h,(iy+1) ;8340 or a ;8343 sbc hl,de ;8344 ld (iy+2),l ;8346 ld (iy+3),h ;8349 ld l,e ;834c ld h,d ;834d ld (iy+0),l ;834e ld (iy+1),h ;8351 ld a,(iy+2) ;8354 or (iy+3) ;8357 jr nz,l8362h ;835a l835ch: ld hl,-1 ;835c jp cret ;835f l8362h: ld l,(iy+2) ;8362 ld h,(iy+3) ;8365 dec hl ;8368 ld (iy+2),l ;8369 ld (iy+3),h ;836c ld l,(iy+0) ;836f ld h,(iy+1) ;8372 inc hl ;8375 ld (iy+0),l ;8376 ld (iy+1),h ;8379 dec hl ;837c ld l,(hl) ;837d ld h,0 ;837e jp cret ;8380 ; =============== F U N C T I O N ======================================= ; ; test_brk: call csv ;8383 push hl ;8386 ld hl,0000bh ;8387 ; CPMICON - interrogate console ready push hl ;838a call bdos ;838b pop bc ;838e ld a,l ;838f or a ;8390 jp z,cret ;8391 ld hl,1 ;8394 ; CPMRCON - read console push hl ;8397 call bdos ;8398 pop bc ;839b ld e,l ;839c ld (ix-1),e ;839d ld a,e ;83a0 cp 3 ;83a1 jp nz,cret ;83a3 call exit ;83a6 jp cret ;83a9 ; =============== F U N C T I O N ======================================= ; ; exit: call csv ;83ac push hl ;83af ld (ix-1),5 ;83b0 ld iy,__iob ;83b4 l83b8h: push iy ;83b8 pop hl ;83ba ld bc,8 ;83bb add hl,bc ;83be push hl ;83bf pop iy ;83c0 sbc hl,bc ;83c2 push hl ;83c4 call _fclose ;83c5 pop bc ;83c8 ld a,(ix-1) ;83c9 add a,0ffh ;83cc ld (ix-1),a ;83ce or a ;83d1 jr nz,l83b8h ;83d2 ld l,(ix+6) ;83d4 ld h,(ix+7) ;83d7 ld (00080h),hl ;83da call 0 ;83dd jp cret ;83e0 ; =============== F U N C T I O N ======================================= ; ; _fclose: call csv ;83e3 push hl ;83e6 ld l,(ix+6) ;83e7 ld h,(ix+7) ;83ea push hl ;83ed pop iy ;83ee ld de,__iob ;83f0 push iy ;83f3 pop hl ;83f5 or a ;83f6 sbc hl,de ;83f7 ld de,8 ;83f9 call adiv ;83fc ld de,00029h ;83ff call amul ;8402 ld de,__fcb ;8405 add hl,de ;8408 ld (ix-2),l ;8409 ld (ix-1),h ;840c ld a,(iy+6) ;840f and 003h ;8412 or a ;8414 jr nz,l841dh ;8415 ld hl,-1 ;8417 jp cret ;841a l841dh: push iy ;841d call _fflush ;841f pop bc ;8422 ld a,(iy+6) ;8423 and 0f8h ;8426 ld (iy+6),a ;8428 ld e,(ix-2) ;842b ld d,(ix-1) ;842e ld hl,00024h ;8431 add hl,de ;8434 ld a,(hl) ;8435 cp 002h ;8436 jr z,l8446h ;8438 ld hl,0000ch ;S_BDOSVER ;843a Return version number push hl ;843d call bdoshl ;843e pop bc ;8441 bit 0,h ;8442 jr z,l8456h ;8444 l8446h: ld l,(ix-2) ;8446 ld h,(ix-1) ;8449 push hl ;844c ld hl,00010h ;F_CLOSE ;844d Close file push hl ;8450 call bdos ;8451 pop bc ;8454 pop bc ;8455 l8456h: ; if MP/M ld e,(ix-2) ;8456 ld d,(ix-1) ;8459 ld hl,00024h ;845c add hl,de ;845f ld (hl),0 ;8460 ld hl,00000h ;8462 jp cret ;8465 ; =============== F U N C T I O N ======================================= ; ; bdoshl: call csv ;8468 ld e,(ix+8) ;846b ld d,(ix+9) ;846e ld c,(ix+6) ;8471 push ix ;8474 call BDOS ;8476 pop ix ;8479 jp cret ;847b ; =============== F U N C T I O N ======================================= ; ; _fflush: call csv ;847e push hl ;8481 ld l,(ix+6) ;8482 ld h,(ix+7) ;8485 push hl ;8488 pop iy ;8489 ld de,__iob ;848b push iy ;848e pop hl ;8490 or a ;8491 sbc hl,de ;8492 ld de,00008h ;8494 call adiv ;8497 ld de,00029h ;849a call amul ;849d ld de,__fcb ;84a0 add hl,de ;84a3 ld (ix-2),l ;84a4 ld (ix-1),h ;84a7 bit 1,(iy+6) ;84aa jr nz,l84b6h ;84ae ld hl,-1 ;84b0 jp cret ;84b3 l84b6h: ld a,(iy+2) ;84b6 and 07fh ;84b9 ld l,a ;84bb xor a ;84bc ld h,a ;84bd ld a,l ;84be or h ;84bf jr z,l84e9h ;84c0 ld b,004h ;84c2 ld e,(ix-2) ;84c4 ld d,(ix-1) ;84c7 ld hl,00024h ;84ca add hl,de ;84cd ld a,(hl) ;84ce call brelop ;84cf jr nc,l84e9h ;84d2 ld l,(iy+0) ;84d4 ld h,(iy+1) ;84d7 ld (hl),01ah ;84da ld l,(iy+2) ;84dc ld h,(iy+3) ;84df dec hl ;84e2 ld (iy+2),l ;84e3 ld (iy+3),h ;84e6 l84e9h: ld l,(iy+4) ;84e9 ld h,(iy+5) ;84ec ld (iy+0),l ;84ef ld (iy+1),h ;84f2 ld a,l ;84f5 or h ;84f6 jr nz,l84ffh ;84f7 l84f9h: ld hl,0 ;84f9 jp cret ;84fc l84ffh: ld e,(iy+2) ;84ff ld d,(iy+3) ;8502 ld hl,l0200h ;8505 or a ;8508 sbc hl,de ;8509 ld (iy+2),l ;850b ld (iy+3),h ;850e ld e,(ix-2) ;8511 ld d,(ix-1) ;8514 ld hl,00024h ;8517 add hl,de ;851a ld a,(hl) ;851b cp 2 ;851c jr z,l8572h ;851e cp 4 ;8520 jr z,l855eh ;8522 l8524h: ld (iy+2),0 ;8524 ld (iy+3),0 ;8528 ld l,(iy+4) ;852c ld h,(iy+5) ;852f ld (iy+0),l ;8532 ld (iy+1),h ;8535 ld (iy+2),0 ;8538 ld (iy+3),2 ;853c jr l84f9h ;8540 l8542h: ld l,(iy+0) ;8542 ld h,(iy+1) ;8545 ld a,(hl) ;8548 inc hl ;8549 ld (iy+0),l ;854a ld (iy+1),h ;854d ld l,a ;8550 rla ;8551 sbc a,a ;8552 ld h,a ;8553 push hl ;8554 ld hl,00002h ;8555 push hl ;8558 call bdos ;8559 pop bc ;855c pop bc ;855d l855eh: ld l,(iy+2) ;855e ld h,(iy+3) ;8561 dec hl ;8564 ld (iy+2),l ;8565 ld (iy+3),h ;8568 inc hl ;856b ld a,l ;856c or h ;856d jr nz,l8542h ;856e jr l8524h ;8570 l8572h: ld e,(iy+2) ;8572 ld d,(iy+3) ;8575 ld hl,0007fh ;8578 add hl,de ;857b ld de,00080h ;857c call adiv ;857f ld (iy+2),l ;8582 ld (iy+3),h ;8585 jr l85beh ;8588 l858ah: ld l,(iy+0) ;858a ld h,(iy+1) ;858d push hl ;8590 ld hl,0001ah ;8591 push hl ;8594 call bdos ;8595 pop bc ;8598 ld l,(ix-2) ;8599 ld h,(ix-1) ;859c ex (sp),hl ;859f ld hl,00015h ;85a0 push hl ;85a3 call bdos ;85a4 pop bc ;85a7 pop bc ;85a8 ld a,l ;85a9 or a ;85aa jp nz,l8524h ;85ab ld de,00080h ;85ae ld l,(iy+0) ;85b1 ld h,(iy+1) ;85b4 add hl,de ;85b7 ld (iy+0),l ;85b8 ld (iy+1),h ;85bb l85beh: ld l,(iy+2) ;85be ld h,(iy+3) ;85c1 dec hl ;85c4 ld (iy+2),l ;85c5 ld (iy+3),h ;85c8 inc hl ;85cb ld a,l ;85cc or h ;85cd jr nz,l858ah ;85ce jp l8524h ;85d0 ; =============== F U N C T I O N ======================================= ; ; bdos: call csv ;85d3 ld e,(ix+8) ;85d6 ld d,(ix+9) ;85d9 ld c,(ix+6) ;85dc push ix ;85df call BDOS ;85e1 pop ix ;85e4 ld l,a ;85e6 rla ;85e7 sbc a,a ;85e8 ld h,a ;85e9 jp cret ;85ea ; =============== F U N C T I O N ======================================= ; ; startup: jp l85f0h ;85ed l85f0h: pop hl ;85f0 exx ;85f1 pop hl ;85f2 pop hl ;85f3 ld a,(00080h) ;85f4 inc a ;85f7 neg ;85f8 ld l,a ;85fa ld h,0ffh ;85fb add hl,sp ;85fd ld sp,hl ;85fe ld bc,00000h ;85ff push bc ;8602 ld hl,00080h ;8603 ld c,(hl) ;8606 ld b,0 ;8607 add hl,bc ;8609 ld b,c ;860a ex de,hl ;860b ld hl,(00006h) ;860c ld c,001h ;860f dec hl ;8611 ld (hl),0 ;8612 inc b ;8614 jr l862ah ;8615 l8617h: ld a,(de) ;8617 cp 020h ;8618 dec de ;861a jr nz,l8628h ;861b push hl ;861d inc c ;861e l861fh: ld a,(de) ;861f cp 020h ;8620 jr nz,l8627h ;8622 dec de ;8624 jr l861fh ;8625 l8627h: xor a ;8627 l8628h: dec hl ;8628 ld (hl),a ;8629 l862ah: djnz l8617h ;862a ld (__argc_),bc ;862c ld hl,l9caeh ;8630 push hl ;8633 ld hl,00000h ;8634 add hl,sp ;8637 exx ;8638 push de ;8639 push de ;863a push hl ;863b exx ;863c ret ;863d ; =============== F U N C T I O N ======================================= ; ; unlink: call ncsv ;863e defw 0ffd3h ; -45 ;8641 ld l,(ix+6) ;8643 ld h,(ix+7) ;8646 push hl ;8649 push ix ;864a pop de ;864c ld hl,0ffd6h ;864d add hl,de ;8650 push hl ;8651 call _def_fcb ;8652 _def_fcb pop bc ;8655 pop bc ;8656 ld a,l ;8657 or a ;8658 jr z,l8661h ;8659 ld hl,0 ;865b jp cret ;865e l8661h: call getuid ;8661 ld (ix-02bh),l ;8664 ld l,(ix-1) ;8667 ld h,0 ;866a push hl ;866c call setuid ;866d push ix ;8670 pop de ;8672 ld hl,0ffd6h ;8673 add hl,de ;8676 ex (sp),hl ;8677 ld hl,00013h ;8678 /* delete file */ push hl ;867b call bdos ;867c pop bc ;867f ld a,l ;8680 rla ;8681 sbc a,a ;8682 ld h,a ;8683 ld (ix-02dh),l ;8684 ld (ix-02ch),h ;8687 ld l,(ix-02bh) ;868a ld h,0 ;868d ex (sp),hl ;868f call setuid ;8690 pop bc ;8693 ld l,(ix-02dh) ;8694 ld h,(ix-02ch) ;8697 jp cret ;869a ; =============== F U N C T I O N ======================================= ; ; getuid: call csv ;869d ld c,020h ;86a0 ld e,0ffh ;86a2 push ix ;86a4 call BDOS ;86a6 pop ix ;86a9 ld l,a ;86ab ld h,0 ;86ac jp cret ;86ae ; =============== F U N C T I O N ======================================= ; ; setuid: call csv ;86b1 ld e,(ix+6) ;86b4 ld c,020h ;86b7 push ix ;86b9 call BDOS ;86bb pop ix ;86be jp cret ;86c0 ; =============== F U N C T I O N ======================================= ; ; asaladd: call iregset ;86c3 call aladd ;86c6 jp iregstore ;86c9 ; =============== F U N C T I O N ======================================= ; ; asar: ld e,(hl) ;86cc inc hl ;86cd ld d,(hl) ;86ce push hl ;86cf ex de,hl ;86d0 call shar ;86d1 ex de,hl ;86d4 pop hl ;86d5 ld (hl),d ;86d6 dec hl ;86d7 ld (hl),e ;86d8 ex de,hl ;86d9 ret ;86da ; =============== F U N C T I O N ======================================= ; ; digit: sub 030h ;86db ret c ;86dd cp 00ah ;86de ccf ;86e0 ret ;86e1 ; =============== F U N C T I O N ======================================= ; ; atoi: pop bc ;86e2 pop de ;86e3 push de ;86e4 push bc ;86e5 ld hl,00000h ;86e6 l86e9h: ld a,(de) ;86e9 inc de ;86ea cp 020h ;86eb jr z,l86e9h ;86ed cp 9 ;86ef jr z,l86e9h ;86f1 dec de ;86f3 cp 02dh ;86f4 jr z,l86fdh ;86f6 cp 02bh ;86f8 jr nz,l86feh ;86fa or a ;86fc l86fdh: inc de ;86fd l86feh: ex af,af' ;86fe l86ffh: ld a,(de) ;86ff inc de ;8700 call digit ;8701 jr c,l8712h ;8704 add hl,hl ;8706 ld c,l ;8707 ld b,h ;8708 add hl,hl ;8709 add hl,hl ;870a add hl,bc ;870b ld c,a ;870c ld b,0 ;870d add hl,bc ;870f jr l86ffh ;8710 l8712h: ex af,af' ;8712 ret nz ;8713 ex de,hl ;8714 ld hl,00000h ;8715 sbc hl,de ;8718 ret ;871a ; =============== F U N C T I O N ======================================= ; blkclr(char * ptr, unsigned short size) ; Fills memory with size null bytes blkclr: pop de ;871b ;return address pop hl ;871c ;pointer pop bc ;871d ;count push bc ;871e ;adjust stack push hl ;871f push de ;8720 ld e,0 ;8721 l8723h: ld a,c ;8723 ;check for finished or b ;8724 ret z ;8725 ld (hl),e ;8726 inc hl ;8727 dec bc ;8728 jr l8723h ;8729 ; =============== F U N C T I O N ======================================= ; ; iregset: ld e,(hl) ;872b inc hl ;872c ld d,(hl) ;872d inc hl ;872e ld c,(hl) ;872f inc hl ;8730 ld b,(hl) ;8731 ex (sp),hl ;8732 push bc ;8733 ex (sp),hl ;8734 pop bc ;8735 exx ;8736 pop hl ;8737 pop bc ;8738 pop de ;8739 ex (sp),hl ;873a push bc ;873b ex (sp),hl ;873c pop bc ;873d ex (sp),hl ;873e push hl ;873f push bc ;8740 push de ;8741 exx ;8742 push bc ;8743 ret ;8744 ; =============== F U N C T I O N ======================================= ; ; iregstore: ex (sp),hl ;8745 pop bc ;8746 ld (hl),b ;8747 dec hl ;8748 ld (hl),c ;8749 dec hl ;874a ld (hl),d ;874b dec hl ;874c ld (hl),e ;874d push bc ;874e pop hl ;874f ret ;8750 ; =============== F U N C T I O N ======================================= ; ; aladd: exx ;8751 pop hl ;8752 exx ;8753 pop bc ;8754 ex de,hl ;8755 add hl,bc ;8756 ex de,hl ;8757 pop bc ;8758 adc hl,bc ;8759 exx ;875b push hl ;875c exx ;875d ret ;875e ; =============== F U N C T I O N ======================================= ; ; brelop: push de ;875f ld e,a ;8760 xor b ;8761 jp m,l8769h ;8762 ld a,e ;8765 sbc a,b ;8766 pop de ;8767 ret ;8768 l8769h: ld a,e ;8769 and 080h ;876a ld d,a ;876c ld a,e ;876d sbc a,b ;876e ld a,d ;876f inc a ;8770 pop de ;8771 ret ;8772 ; =============== F U N C T I O N ======================================= ; ; wrelop: ld a,h ;8773 xor d ;8774 jp m,l877bh ;8775 sbc hl,de ;8778 ret ;877a l877bh: ld a,h ;877b and 080h ;877c sbc hl,de ;877e inc a ;8780 ret ;8781 ; =============== F U N C T I O N ======================================= ; ; amod: call adiv ;8782 ex de,hl ;8785 ret ;8786 ; =============== F U N C T I O N ======================================= ; ; lmod: call ldiv ;8787 ex de,hl ;878a ret ;878b ; =============== F U N C T I O N ======================================= ; ; ldiv: xor a ;878c ex af,af' ;878d ex de,hl ;878e jr l879ch ;878f ; =============== F U N C T I O N ======================================= ; ; adiv: ld a,h ;8791 xor d ;8792 ld a,h ;8793 ex af,af' ;8794 call l_negif ;8795 ex de,hl ;8798 call l_negif ;8799 l879ch: ld b,001h ;879c ld a,h ;879e or l ;879f ret z ;87a0 l87a1h: push hl ;87a1 add hl,hl ;87a2 jr c,l87b3h ;87a3 ld a,d ;87a5 cp h ;87a6 jr c,l87b3h ;87a7 jr nz,l87afh ;87a9 ld a,e ;87ab cp l ;87ac jr c,l87b3h ;87ad l87afh: pop af ;87af inc b ;87b0 jr l87a1h ;87b1 l87b3h: pop hl ;87b3 ex de,hl ;87b4 push hl ;87b5 ld hl,00000h ;87b6 ex (sp),hl ;87b9 l87bah: ld a,h ;87ba cp d ;87bb jr c,l87c6h ;87bc jr nz,l87c4h ;87be ld a,l ;87c0 cp e ;87c1 jr c,l87c6h ;87c2 l87c4h: sbc hl,de ;87c4 l87c6h: ex (sp),hl ;87c6 ccf ;87c7 adc hl,hl ;87c8 srl d ;87ca rr e ;87cc ex (sp),hl ;87ce djnz l87bah ;87cf pop de ;87d1 ex de,hl ;87d2 ex af,af' ;87d3 call m,l_negat ;87d4 ex de,hl ;87d7 or a ;87d8 call m,l_negat ;87d9 ex de,hl ;87dc ret ;87dd ; =============== F U N C T I O N ======================================= ; ; l_negif: bit 7,h ;87de ret z ;87e0 ; =============== F U N C T I O N ======================================= ; ; l_negat: ld b,h ;87e1 ld c,l ;87e2 ld hl,00000h ;87e3 or a ;87e6 sbc hl,bc ;87e7 ret ;87e9 ; =============== F U N C T I O N ======================================= ; ; lregset: pop bc ;87ea exx ;87eb pop bc ;87ec pop de ;87ed exx ;87ee ex de,hl ;87ef ex (sp),hl ;87f0 ex de,hl ;87f1 exx ;87f2 push bc ;87f3 pop hl ;87f4 ex (sp),hl ;87f5 exx ;87f6 push bc ;87f7 ret ;87f8 ; =============== F U N C T I O N ======================================= ; ; iregset: pop de ;87f9 call lregset ;87fa push hl ;87fd ex (sp),iy ;87fe ld h,(iy+3) ;8800 ld l,(iy+2) ;8803 exx ;8806 push hl ;8807 ld h,(iy+1) ;8808 ld l,(iy+0) ;880b exx ;880e ret ;880f ; =============== F U N C T I O N ======================================= ; ; sgndiv: call negif ;8810 exx ;8813 ex de,hl ;8814 exx ;8815 ex de,hl ;8816 call negif ;8817 ex de,hl ;881a exx ;881b ex de,hl ;881c exx ;881d jp divide ;881e ; =============== F U N C T I O N ======================================= ; ; aslldiv: call iregset ;8821 call dosdiv ;8824 store: ld (iy+0),e ;8827 ld (iy+1),d ;882a ld (iy+2),l ;882d ld (iy+3),h ;8830 pop iy ;8833 ret ;8835 aldiv: call lregset ;8836 dosdiv: ld a,h ;8839 xor d ;883a ex af,af' ;883b call sgndiv ;883c ex af,af' ;883f push bc ;8840 exx ;8841 pop hl ;8842 ld e,c ;8843 ld d,b ;8844 jp m,negat ;8845 ret ;8848 ; =============== F U N C T I O N ======================================= ; ; lldiv: call lregset ;8849 doudiv: call divide ;884c push bc ;884f exx ;8850 pop hl ;8851 ld e,c ;8852 ld d,b ;8853 ret ;8854 ; =============== F U N C T I O N ======================================= ; ; aslldiv: call iregset ;8855 call doudiv ;8858 jr store ;885b almod: call lregset ;885d dosrem: ld a,h ;8860 ex af,af' ;8861 call sgndiv ;8862 push hl ;8865 exx ;8866 pop de ;8867 ex de,hl ;8868 ex af,af' ;8869 or a ;886a jp m,negat ;886b ret ;886e ; =============== F U N C T I O N ======================================= ; ; asalmod: call iregset ;886f call dosrem ;8872 jr store ;8875 llmod: call lregset ;8877 dourem: call divide ;887a push hl ;887d exx ;887e pop de ;887f ex de,hl ;8880 ret ;8881 ; =============== F U N C T I O N ======================================= ; ; asllmod: call iregset ;8882 call dourem ;8885 jr store ;8888 ; =============== F U N C T I O N ======================================= ; ; negat: push hl ;888a ld hl,00000h ;888b or a ;888e sbc hl,de ;888f ex de,hl ;8891 pop bc ;8892 ld hl,00000h ;8893 sbc hl,bc ;8896 ret ;8898 ; =============== F U N C T I O N ======================================= ; ; negif: bit 7,h ;8899 ret z ;889b exx ;889c ld c,l ;889d ld b,h ;889e ld hl,00000h ;889f or a ;88a2 sbc hl,bc ;88a3 exx ;88a5 ld c,l ;88a6 ld b,h ;88a7 ld hl,00000h ;88a8 sbc hl,bc ;88ab ret ;88ad ; =============== F U N C T I O N ======================================= ; ; divide: ld bc,00000h ;88ae ld a,e ;88b1 or d ;88b2 exx ;88b3 ld bc,00000h ;88b4 or e ;88b7 or d ;88b8 exx ;88b9 ret z ;88ba ld a,001h ;88bb jr l88d8h ;88bd l88bfh: push hl ;88bf exx ;88c0 push hl ;88c1 or a ;88c2 sbc hl,de ;88c3 exx ;88c5 sbc hl,de ;88c6 exx ;88c8 pop hl ;88c9 exx ;88ca pop hl ;88cb jr c,l88dch ;88cc exx ;88ce inc a ;88cf ex de,hl ;88d0 add hl,hl ;88d1 ex de,hl ;88d2 exx ;88d3 ex de,hl ;88d4 adc hl,hl ;88d5 ex de,hl ;88d7 l88d8h: bit 7,d ;88d8 jr z,l88bfh ;88da l88dch: push hl ;88dc exx ;88dd push hl ;88de or a ;88df sbc hl,de ;88e0 exx ;88e2 sbc hl,de ;88e3 exx ;88e5 jr nc,l88eeh ;88e6 pop hl ;88e8 exx ;88e9 pop hl ;88ea exx ;88eb jr l88f2h ;88ec l88eeh: inc sp ;88ee inc sp ;88ef inc sp ;88f0 inc sp ;88f1 l88f2h: ccf ;88f2 rl c ;88f3 rl b ;88f5 exx ;88f7 rl c ;88f8 rl b ;88fa srl d ;88fc rr e ;88fe exx ;8900 rr d ;8901 rr e ;8903 exx ;8905 dec a ;8906 jr nz,l88dch ;8907 ret ;8909 ; =============== F U N C T I O N ======================================= ; ; aslr: ld e,(hl) ;890a inc hl ;890b ld d,(hl) ;890c push hl ;890d ex de,hl ;890e call shlr ;890f ex de,hl ;8912 pop hl ;8913 ld (hl),d ;8914 dec hl ;8915 ld (hl),e ;8916 ex de,hl ;8917 ret ;8918 ; =============== F U N C T I O N ======================================= ; ; amul: ld a,e ;8919 ld c,d ;891a ex de,hl ;891b ld hl,00000h ;891c ld b,008h ;891f call mult8b ;8921 ex de,hl ;8924 jr l8928h ;8925 l8927h: add hl,hl ;8927 l8928h: djnz l8927h ;8928 ex de,hl ;892a ld a,c ;892b mult8b: srl a ;892c jr nc,l8931h ;892e add hl,de ;8930 l8931h: ex de,hl ;8931 add hl,hl ;8932 ex de,hl ;8933 ret z ;8934 djnz mult8b ;8935 ret ;8937 ; =============== F U N C T I O N ======================================= ; ; almul: llmul: ex de,hl ;8938 ex (sp),hl ;8939 exx ;893a pop de ;893b pop bc ;893c exx ;893d pop bc ;893e push hl ;893f ld hl,00000h ;8940 exx ;8943 ld hl,00000h ;8944 ld a,c ;8947 ld c,b ;8948 call mult8b ;8949 ld a,c ;894c call mult8b ;894d exx ;8950 ld a,c ;8951 exx ;8952 call mult8b ;8953 exx ;8956 ld a,b ;8957 exx ;8958 call mult8b ;8959 push hl ;895c exx ;895d pop de ;895e ret ;895f mult8b: ld b,008h ;8960 l8962h: srl a ;8962 jr nc,l896bh ;8964 add hl,de ;8966 exx ;8967 adc hl,de ;8968 exx ;896a l896bh: ex de,hl ;896b add hl,hl ;896c ex de,hl ;896d exx ;896e ex de,hl ;896f adc hl,hl ;8970 ex de,hl ;8972 exx ;8973 djnz l8962h ;8974 ret ;8976 ; =============== F U N C T I O N ======================================= ; #define rindex(a,b) strrchr((a),(b)) ; rindex: ; proc_191() { call rcsv ;8977 ld bc,00000h ;897a jr l8981h ;-+ ;897d l897fh: ;<--)---+ ; m1: inc hl ; ; ;897f inc bc ; ; ;8980 l8981h: ;<-------+ ; ; m2: ld a,(hl) ; ;8981 or a ; ;8982 jr nz,l897fh ;--+ ;8983 l8985h: ;<------+ ; m3: dec hl ; ;8985 ld a,c ; ;8986 or b ; ;8987 jr z,l8992h ;-+ ; ;8988 ; ; dec bc ; ; ;898a ld a,(hl) ; ; ;898b cp e ; ; ;898c jr nz,l8985h;-)-+ ;898d l898fh: ;<-----)-+ ; m4: jp cret ; ; ;898f l8992h: ;<---+ ; ; m5: ld hl,0 ; ;8992 jr l898fh ;-----+ ;8995 ; =============== F U N C T I O N ======================================= ; ; brk: pop hl ;8997 pop de ;8998 ld (memtop),de ;8999 push de ;899d jp (hl) ;899e ; =============== F U N C T I O N ======================================= ; ; _sbrk: pop bc ;899f pop de ;89a0 push de ;89a1 push bc ;89a2 ld hl,(memtop) ;89a3 ld a,l ;89a6 or h ;89a7 jr nz,l89b0h ;89a8 ld hl,__Hbss ;89aa ld (memtop),hl ;89ad l89b0h: add hl,de ;89b0 jr c,l89bdh ;89b1 ld bc,00400h ;89b3 add hl,bc ;89b6 jr c,l89bdh ;89b7 sbc hl,sp ;89b9 jr c,l89c1h ;89bb l89bdh: ld hl,-1 ;89bd ret ;89c0 l89c1h: ld hl,(memtop) ;89c1 push hl ;89c4 add hl,de ;89c5 ld (memtop),hl ;89c6 pop hl ;89c9 ret ;89ca ; =============== F U N C T I O N ======================================= ; ; checksp: ld hl,(memtop) ;89cb ld bc,00080h ;89ce add hl,bc ;89d1 sbc hl,sp ;89d2 ld hl,00001h ;89d4 ret c ;89d7 dec hl ;89d8 ret ;89d9 ; =============== F U N C T I O N ======================================= ; ; shar: ld a,b ;89da or a ;89db ret z ;89dc cp 010h ;89dd jr c,l89e3h ;89df ld b,010h ;89e1 l89e3h: add hl,hl ;89e3 djnz l89e3h ;89e4 ret ;89e6 ; =============== F U N C T I O N ======================================= ; ; shlr: ld a,b ;89e7 or a ;89e8 ret z ;89e9 cp 010h ;89ea jr c,l89f0h ;89ec ld b,010h ;89ee l89f0h: srl h ;89f0 rr l ;89f2 djnz l89f0h ;89f4 ret ;89f6 ; =============== F U N C T I O N ======================================= ; ; strcat: pop bc ;89f7 pop de ;89f8 pop hl ;89f9 push hl ;89fa push de ;89fb push bc ;89fc ld c,e ;89fd ld b,d ;89fe l89ffh: ld a,(de) ;89ff or a ;8a00 jr z,l8a06h ;8a01 inc de ;8a03 jr l89ffh ;8a04 l8a06h: ld a,(hl) ;8a06 ld (de),a ;8a07 or a ;8a08 jr z,l8a0fh ;8a09 inc de ;8a0b inc hl ;8a0c jr l8a06h ;8a0d l8a0fh: ld l,c ;8a0f ld h,b ;8a10 ret ;8a11 ; =============== F U N C T I O N ======================================= ; ; strcmp: pop bc ;8a12 pop de ;8a13 pop hl ;8a14 push hl ;8a15 push de ;8a16 push bc ;8a17 l8a18h: ld a,(de) ;8a18 cp (hl) ;8a19 jr nz,l8a25h ;8a1a inc de ;8a1c inc hl ;8a1d or a ;8a1e jr nz,l8a18h ;8a1f ld hl,00000h ;8a21 ret ;8a24 l8a25h: ld hl,00001h ;8a25 ret nc ;8a28 dec hl ;8a29 dec hl ;8a2a ret ;8a2b ; =============== F U N C T I O N ======================================= ; ; strcpy: pop bc ;8a2c pop de ;8a2d pop hl ;8a2e push hl ;8a2f push de ;8a30 push bc ;8a31 ld c,e ;8a32 ld b,d ;8a33 l8a34h: ld a,(hl) ;8a34 ld (de),a ;8a35 inc de ;8a36 inc hl ;8a37 or a ;8a38 jr nz,l8a34h ;8a39 ld l,c ;8a3b ld h,b ;8a3c ret ;8a3d ; =============== F U N C T I O N ======================================= ; ; strlen: pop hl ;8a3e pop de ;8a3f push de ;8a40 push hl ;8a41 ld hl,00000h ;8a42 l8a45h: ld a,(de) ;8a45 or a ;8a46 ret z ;8a47 inc hl ;8a48 inc de ;8a49 jr l8a45h ;8a4a ; =============== F U N C T I O N ======================================= ; ; strncmp: call rcsv ;8a4c l8a4fh: ld a,c ;8a4f or b ;8a50 jr z,l8a5dh ;8a51 dec bc ;8a53 ld a,(de) ;8a54 cp (hl) ;8a55 jr nz,l8a63h ;8a56 inc de ;8a58 inc hl ;8a59 or a ;8a5a jr nz,l8a4fh ;8a5b l8a5dh: ld hl,00000h ;8a5d jp cret ;8a60 l8a63h: ld hl,00001h ;8a63 jp c,cret ;8a66 dec hl ;8a69 dec hl ;8a6a jp cret ;8a6b ; =============== F U N C T I O N ======================================= ; ; csv: pop hl ;8a6e push iy ;8a6f push ix ;8a71 ld ix,00000h ;8a73 add ix,sp ;8a77 jp (hl) ;8a79 ; =============== F U N C T I O N ======================================= ; ; cret: ld sp,ix ;8a7a pop ix ;8a7c pop iy ;8a7e ret ;8a80 ; =============== F U N C T I O N ======================================= ; ; indir: jp (hl) ;8a81 ; =============== F U N C T I O N ======================================= ; ; ncsv: pop hl ;8a82 push iy ;8a83 push ix ;8a85 ld ix,00000h ;8a87 add ix,sp ;8a8b ld e,(hl) ;8a8d inc hl ;8a8e ld d,(hl) ;8a8f inc hl ;8a90 ex de,hl ;8a91 add hl,sp ;8a92 ld sp,hl ;8a93 ex de,hl ;8a94 jp (hl) ;8a95 ; =============== F U N C T I O N ======================================= ; ; rcsv: ex (sp),iy ;8a96 push ix ;8a98 ld ix,00000h ;8a9a add ix,sp ;8a9e ld l,(ix+6) ;8aa0 ld h,(ix+7) ;8aa3 ld e,(ix+8) ;8aa6 ld d,(ix+9) ;8aa9 ld c,(ix+00ah) ;8aac ld b,(ix+00bh) ;8aaf jp (iy) ;8ab2 ; =============== D A T A =============================================== ; ; data: ; BLOCK 'data_01bf' (start 0x8ab4 end 0x9cfa) data_01bf_start: defb 000h ;8ab4 defb 000h ;8ab5 array_8ab6: defb 000h ;8ab6 defb 000h ;8ab7 defb 000h ;8ab8 defb 000h ;8ab9 defb 000h ;8aba defb 000h ;8abb defb 000h ;8abc defb 000h ;8abd defb 010h ;8abe defb 010h ;8abf defb 010h ;8ac0 defb 000h ;8ac1 defb 010h ;8ac2 defb 010h ;8ac3 defb 000h ;8ac4 defb 000h ;8ac5 defb 000h ;8ac6 defb 000h ;8ac7 defb 000h ;8ac8 defb 000h ;8ac9 defb 000h ;8aca defb 000h ;8acb defb 000h ;8acc defb 000h ;8acd defb 000h ;8ace defb 000h ;8acf defb 000h ;8ad0 defb 000h ;8ad1 defb 000h ;8ad2 defb 000h ;8ad3 defb 000h ;8ad4 defb 000h ;8ad5 defb 010h ;8ad6 defb 000h ;8ad7 defb 000h ;8ad8 defb 000h ;8ad9 defb 000h ;8ada defb 000h ;8adb defb 000h ;8adc defb 000h ;8add defb 000h ;8ade defb 000h ;8adf defb 000h ;8ae0 defb 000h ;8ae1 defb 000h ;8ae2 defb 000h ;8ae3 defb 000h ;8ae4 defb 000h ;8ae5 defb 00ch ;8ae6 defb 00ch ;8ae7 defb 00ch ;8ae8 defb 00ch ;8ae9 defb 00ch ;8aea defb 00ch ;8aeb defb 00ch ;8aec defb 00ch ;8aed defb 00ch ;8aee defb 00ch ;8aef defb 000h ;8af0 defb 000h ;8af1 defb 000h ;8af2 defb 000h ;8af3 defb 000h ;8af4 defb 000h ;8af5 defb 000h ;8af6 defb 009h ;8af7 defb 009h ;8af8 defb 009h ;8af9 defb 009h ;8afa defb 009h ;8afb defb 009h ;8afc defb 001h ;8afd defb 001h ;8afe defb 001h ;8aff defb 001h ;8b00 defb 001h ;8b01 defb 001h ;8b02 defb 001h ;8b03 defb 001h ;8b04 defb 001h ;8b05 defb 001h ;8b06 defb 001h ;8b07 defb 001h ;8b08 defb 001h ;8b09 defb 001h ;8b0a defb 001h ;8b0b defb 001h ;8b0c defb 001h ;8b0d defb 001h ;8b0e defb 001h ;8b0f defb 001h ;8b10 defb 000h ;8b11 defb 000h ;8b12 defb 000h ;8b13 defb 000h ;8b14 defb 001h ;8b15 defb 000h ;8b16 defb 00ah ;8b17 defb 00ah ;8b18 defb 00ah ;8b19 defb 00ah ;8b1a defb 00ah ;8b1b defb 00ah ;8b1c defb 002h ;8b1d defb 002h ;8b1e defb 002h ;8b1f defb 002h ;8b20 defb 002h ;8b21 defb 002h ;8b22 defb 002h ;8b23 defb 002h ;8b24 defb 002h ;8b25 defb 002h ;8b26 defb 002h ;8b27 defb 002h ;8b28 defb 002h ;8b29 defb 002h ;8b2a defb 002h ;8b2b defb 002h ;8b2c defb 002h ;8b2d defb 002h ;8b2e defb 002h ;8b2f defb 002h ;8b30 defb 000h ;8b31 defb 000h ;8b32 defb 000h ;8b33 defb 000h ;8b34 defb 000h ;8b35 l8b36h: defb 022h ; '"' ;8b36 "\"%d" defb 025h ; '%' ;8b37 defb 064h ; 'd' ;8b38 defb 000h ;8b39 l8b3ah: defb 020h ;8b3a " %s" defb 025h ; '%' ;8b3b defb 073h ; 's' ;8b3c defb 000h ;8b3d l8b3eh: defb 05bh ; '[' ;8b3e "[e :U %d ]\n" defb 065h ; 'e' ;8b3f defb 020h ; ' ' ;8b40 defb 03ah ; ':' ;8b41 defb 055h ; 'U' ;8b42 defb 020h ; ' ' ;8b43 defb 025h ; '%' ;8b44 defb 064h ; 'd' ;8b45 defb 020h ; ' ' ;8b46 defb 05dh ; ']' ;8b47 defb 00ah ; '\n' ;8b48 defb 000h ;8b49 l8b4ah: defb 05bh ; '[' ;8b4a "[e :U " defb 065h ; 'e' ;8b4b defb 020h ; ' ' ;8b4c defb 03ah ; ': ;8b4d defb 055h ; 'U ;8b4e defb 020h ; ' ' ;8b4f defb 000h ;8b50 l8b51h: defb 020h ; ' ' ;8b51 " ]\n" defb 05dh ; ']' ;8b52 defb 00ah ; '\n' ;8b53 defb 000h ;8b54 l8b55h: defb 05bh ; '[' ;8b55 "[\\ " defb 05ch ; '\' ;8b56 defb 020h ; ' ' ;8b57 defb 000h ;8b58 l8b59h: defb 020h ; ' ' ;8b59 " %d\n" defb 025h ; '%' ;8b5a defb 064h ; 'd' ;8b5b defb 00ah ; '\n' ;8b5c defb 000h ;8b5d l8b5eh: defb 02eh ; '.' ;8b5e ".. %d\n" defb 02eh ; '.' ;8b5f defb 020h ; ' ' ;8b60 defb 025h ; '%' ;8b61 defb 064h ; 'd' ;8b62 defb 00ah ; '\n' ;8b63 defb 000h ;8b64 l8b65h: defb 05dh ; ']' ;8b65 "]\n" defb 00ah ; '\n' ;8b66 defb 000h ;8b67 l8b68h: defb 020h ;8b68 " S%d" defb 053h ;8b69 defb 025h ;8b6a defb 064h ;8b6b defb 000h ;8b6c l8b6dh: defb 020h ;8b6d" :%d" defb 03ah ;8b6e defb 025h ;8b6f defb 064h ;8b70 defb 000h ;8b71 l8b72h: defb 020h ;8b72 " ]." defb 05dh ;8b73 defb 00ah ;8b74 defb 000h ;8b75 l8b76h: defb 05bh ;8b76 "[e " defb 065h ;8b77 defb 020h ;8b78 defb 000h ;8b79 l8b7ah: defb 020h ; ' ' ;8b7a " ]\n" defb 05dh ; ']' ;8b7b defb 00ah ; '\n' ;8b7c defb 000h ;8b7d l8b7eh: defb 05bh ; '[' ;8b7e "[v " defb 076h ; 'v' ;8b7f defb 020h ; ' ' ;8b80 defb 000h ;8b81 l8b82h: defb 020h ; ' ' ;8b82 " %c ]\n" defb 025h ; '%' ;8b83 defb 063h ; 'c' ;8b84 defb 020h ; ' ' ;8b85 defb 05dh ; ']' ;8b86 defb 00ah ; '\n' ;8b87 defb 000h ;8b88 l8b89h: defb 05bh [ ;8b89 "[a %d" defb 061h a ;8b8a defb 020h ;8b8b defb 025h % ;8b8c defb 064h d ;8b8d defb 000h ;8b8e l8b8fh: defb 020h ;8b8f " %d" defb 025h % ;8b90 defb 064h d ;8b91 defb 000h ;8b92 l8b93h: defb 020h ;8b93 " ]\n" defb 05dh ] ;8b94 defb 00ah \n ;8b95 defb 000h ;8b96 l8b97h: defb 02eh . ;8b97 ". `" defb 020h ;8b98 defb 060h ` ;8b99 defb 000h ;8b9a l8b9bh: defb 020h ;8b9b " %d" defb 025h % ;8b9c defb 064h d ;8b9d defb 000h ;8b9e l8b9fh: defb 025h % ;8b9f "%ld" defb 06ch l ;8ba0 defb 064h d ;8ba1 defb 000h ;8ba2 l8ba3h: defb 02dh - ;8ba3 "-> %ld " defb 03eh > ;8ba4 defb 020h ;8ba5 defb 025h % ;8ba6 defb 06ch l ;8ba7 defb 064h d ;8ba8 defb 020h ;8ba9 defb 000h ;8baa l8babh: defb 02eh . ;8bab ".%s" defb 025h % ;8bac defb 073h s ;8bad defb 000h ;8bae l8bafh: defb 03ah : ;8baf ":s %d" defb 073h s ;8bb0 defb 020h ;8bb1 defb 025h % ;8bb2 defb 064h d ;8bb3 defb 000h ;8bb4 l8bb5h: defb 025h % ;8bb5 "%d" defb 064h d ;8bb6 defb 000h ;8bb7 l8bb8h: defb 02dh - ;8bb8 "-> " defb 03eh > ;8bb9 defb 020h ;8bba defb 000h ;8bbb l8bbch: defb 02ah * ;8bbc "* # " defb 020h ;8bbd defb 023h # ;8bbe defb 020h ;8bbf defb 000h ;8bc0 l8bc1h: defb 025h % ;8bc1 "%.3s " defb 02eh . ;8bc2 defb 033h 3 ;8bc3 defb 073h s ;8bc4 defb 020h ;8bc5 defb 000h ;8bc6 word_8bc7: defb 01bh ;8bc7 defb 09dh ;8bc8 l8bc9h: defb 0ech . ;8bc9 defb 022h " ;8bca defb 010h . ;8bcb defb 023h # ;8bcc defb 05ch \ ;8bcd defb 023h # ;8bce defb 030h 0 ;8bcf defb 023h # ;8bd0 defb 087h . ;8bd1 defb 023h # ;8bd2 defb 096h . ;8bd3 defb 023h # ;8bd4 defb 0a5h . ;8bd5 defb 023h # ;8bd6 word_8bd7: defb 000h ;8bd7 defb 000h ;8bd8 l8bd9h: defb 066h f ;8bd9 "function or function pointer required" defb 075h u ;8bda defb 06eh n ;8bdb defb 063h c ;8bdc defb 074h t ;8bdd defb 069h i ;8bde defb 06fh o ;8bdf defb 06eh n ;8be0 defb 020h ;8be1 defb 06fh o ;8be2 defb 072h r ;8be3 defb 020h ;8be4 defb 066h f ;8be5 defb 075h u ;8be6 defb 06eh n ;8be7 defb 063h c ;8be8 defb 074h t ;8be9 defb 069h i ;8bea defb 06fh o ;8beb defb 06eh n ;8bec defb 020h ;8bed defb 070h p ;8bee defb 06fh o ;8bef defb 069h i ;8bf0 defb 06eh n ;8bf1 defb 074h t ;8bf2 defb 065h e ;8bf3 defb 072h r ;8bf4 defb 020h ;8bf5 defb 072h r ;8bf6 defb 065h e ;8bf7 defb 071h q ;8bf8 defb 075h u ;8bf9 defb 069h i ;8bfa defb 072h r ;8bfb defb 065h e ;8bfc defb 064h d ;8bfd defb 000h ;8bfe l8bffh: defb 066h f ;8bff "function does not take arguments" defb 075h u ;8c00 defb 06eh n ;8c01 defb 063h c ;8c02 defb 074h t ;8c03 defb 069h i ;8c04 defb 06fh o ;8c05 defb 06eh n ;8c06 defb 020h ;8c07 defb 064h d ;8c08 defb 06fh o ;8c09 defb 065h e ;8c0a defb 073h s ;8c0b defb 020h ;8c0c defb 06eh n ;8c0d defb 06fh o ;8c0e defb 074h t ;8c0f defb 020h ;8c10 defb 074h t ;8c11 defb 061h a ;8c12 defb 06bh k ;8c13 defb 065h e ;8c14 defb 020h ;8c15 defb 061h a ;8c16 defb 072h r ;8c17 defb 067h g ;8c18 defb 075h u ;8c19 defb 06dh m ;8c1a defb 065h e ;8c1b defb 06eh n ;8c1c defb 074h t ;8c1d defb 073h s ;8c1e defb 000h ;8c1f l8c20h: defb 074h t ;8c20 "too many arguments" defb 06fh o ;8c21 defb 06fh o ;8c22 defb 020h ;8c23 defb 06dh m ;8c24 defb 061h a ;8c25 defb 06eh n ;8c26 defb 079h y ;8c27 defb 020h ;8c28 defb 061h a ;8c29 defb 072h r ;8c2a defb 067h g ;8c2b defb 075h u ;8c2c defb 06dh m ;8c2d defb 065h e ;8c2e defb 06eh n ;8c2f defb 074h t ;8c30 defb 073h s ;8c31 defb 000h ;8c32 l8c33h: defb 074h t ;8c33 "too few arguments" defb 06fh o ;8c34 defb 06fh o ;8c35 defb 020h ;8c36 defb 066h f ;8c37 defb 065h e ;8c38 defb 077h w ;8c39 defb 020h ;8c3a defb 061h a ;8c3b defb 072h r ;8c3c defb 067h g ;8c3d defb 075h u ;8c3e defb 06dh m ;8c3f defb 065h e ;8c40 defb 06eh n ;8c41 defb 074h t ;8c42 defb 073h s ;8c43 defb 000h ;8c44 l8c45h: defb 063h c ;8c45 "constant expression required" defb 06fh o ;8c46 defb 06eh n ;8c47 defb 073h s ;8c48 defb 074h t ;8c49 defb 061h a ;8c4a defb 06eh n ;8c4b defb 074h t ;8c4c defb 020h ;8c4d defb 065h e ;8c4e defb 078h x ;8c4f defb 070h p ;8c50 defb 072h r ;8c51 defb 065h e ;8c52 defb 073h s ;8c53 defb 073h s ;8c54 defb 069h i ;8c55 defb 06fh o ;8c56 defb 06eh n ;8c57 defb 020h ;8c58 defb 072h r ;8c59 defb 065h e ;8c5a defb 071h q ;8c5b defb 075h u ;8c5c defb 069h i ;8c5d defb 072h r ;8c5e defb 065h e ;8c5f defb 064h d ;8c60 defb 000h ;8c61 l8c62h: defb 069h i ;8c62 "illegal type for array dimension" defb 06ch l ;8c63 defb 06ch l ;8c64 defb 065h e ;8c65 defb 067h g ;8c66 defb 061h a ;8c67 defb 06ch l ;8c68 defb 020h ;8c69 defb 074h t ;8c6a defb 079h y ;8c6b defb 070h p ;8c6c defb 065h e ;8c6d defb 020h ;8c6e defb 066h f ;8c6f defb 06fh o ;8c70 defb 072h r ;8c71 defb 020h ;8c72 defb 061h a ;8c73 defb 072h r ;8c74 defb 072h r ;8c75 defb 061h a ;8c76 defb 079h y ;8c77 defb 020h ;8c78 defb 064h d ;8c79 defb 069h i ;8c7a defb 06dh m ;8c7b defb 065h e ;8c7c defb 06eh n ;8c7d defb 073h s ;8c7e defb 069h i ;8c7f defb 06fh o ;8c80 defb 06eh n ;8c81 defb 000h ;8c82 l8c83h: defb 075h u ;8c83 "undefined identifier: %s" defb 06eh n ;8c84 defb 064h d ;8c85 defb 065h e ;8c86 defb 066h f ;8c87 defb 069h i ;8c88 defb 06eh n ;8c89 defb 065h e ;8c8a defb 064h d ;8c8b defb 020h ;8c8c defb 069h i ;8c8d defb 064h d ;8c8e defb 065h e ;8c8f defb 06eh n ;8c90 defb 074h t ;8c91 defb 069h i ;8c92 defb 066h f ;8c93 defb 069h i ;8c94 defb 065h e ;8c95 defb 072h r ;8c96 defb 03ah : ;8c97 defb 020h ;8c98 defb 025h % ;8c99 defb 073h s ;8c9a defb 000h ;8c9b l8c9ch: defb 06eh n ;8c9c "not a variable identifier: %s" defb 06fh o ;8c9d defb 074h t ;8c9e defb 020h ;8c9f defb 061h a ;8ca0 defb 020h ;8ca1 defb 076h v ;8ca2 defb 061h a ;8ca3 defb 072h r ;8ca4 defb 069h i ;8ca5 defb 061h a ;8ca6 defb 062h b ;8ca7 defb 06ch l ;8ca8 defb 065h e ;8ca9 defb 020h ;8caa defb 069h i ;8cab defb 064h d ;8cac defb 065h e ;8cad defb 06eh n ;8cae defb 074h t ;8caf defb 069h i ;8cb0 defb 066h f ;8cb1 defb 069h i ;8cb2 defb 065h e ;8cb3 defb 072h r ;8cb4 defb 03ah : ;8cb5 defb 020h ;8cb6 defb 025h % ;8cb7 defb 073h s ;8cb8 defb 000h ;8cb9 l8cbah: defb 029h ) ;8cba ")" defb 000h ;8cbb l8cbch: defb 05dh ] ;8cbc "]" defb 000h ;8cbd l8cbeh: defb 065h e ;8cbe "expression syntax" defb 078h x ;8cbf defb 070h p ;8cc0 defb 072h r ;8cc1 defb 065h e ;8cc2 defb 073h s ;8cc3 defb 073h s ;8cc4 defb 069h i ;8cc5 defb 06fh o ;8cc6 defb 06eh n ;8cc7 defb 020h ;8cc8 defb 073h s ;8cc9 defb 079h y ;8cca defb 06eh n ;8ccb defb 074h t ;8ccc defb 061h a ;8ccd defb 078h x ;8cce defb 000h ;8ccf l8cd0h: defb 069h i ;8cd0 "illegal type for index expression" defb 06ch l ;8cd1 defb 06ch l ;8cd2 defb 065h e ;8cd3 defb 067h g ;8cd4 defb 061h a ;8cd5 defb 06ch l ;8cd6 defb 020h ;8cd7 defb 074h t ;8cd8 defb 079h y ;8cd9 defb 070h p ;8cda defb 065h e ;8cdb defb 020h ;8cdc defb 066h f ;8cdd defb 06fh o ;8cde defb 072h r ;8cdf defb 020h ;8ce0 defb 069h i ;8ce1 defb 06eh n ;8ce2 defb 064h d ;8ce3 defb 065h e ;8ce4 defb 078h x ;8ce5 defb 020h ;8ce6 defb 065h e ;8ce7 defb 078h x ;8ce8 defb 070h p ;8ce9 defb 072h r ;8cea defb 065h e ;8ceb defb 073h s ;8cec defb 073h s ;8ced defb 069h i ;8cee defb 06fh o ;8cef defb 06eh n ;8cf0 defb 000h ;8cf1 l8cf2h: defb 073h s ;8cf2 "struct/union required" defb 074h t ;8cf3 defb 072h r ;8cf4 defb 075h u ;8cf5 defb 063h c ;8cf6 defb 074h t ;8cf7 defb 02fh / ;8cf8 defb 075h u ;8cf9 defb 06eh n ;8cfa defb 069h i ;8cfb defb 06fh o ;8cfc defb 06eh n ;8cfd defb 020h ;8cfe defb 072h r ;8cff defb 065h e ;8d00 defb 071h q ;8d01 defb 075h u ;8d02 defb 069h i ;8d03 defb 072h r ;8d04 defb 065h e ;8d05 defb 064h d ;8d06 defb 000h ;8d07 l8d08h: defb 073h s ;8d08 "struct/union member expected" defb 074h t ;8d09 defb 072h r ;8d0a defb 075h u ;8d0b defb 063h c ;8d0c defb 074h t ;8d0d defb 02fh / ;8d0e defb 075h u ;8d0f defb 06eh n ;8d10 defb 069h i ;8d11 defb 06fh o ;8d12 defb 06eh n ;8d13 defb 020h ;8d14 defb 06dh m ;8d15 defb 065h e ;8d16 defb 06dh m ;8d17 defb 062h b ;8d18 defb 065h e ;8d19 defb 072h r ;8d1a defb 020h ;8d1b defb 065h e ;8d1c defb 078h x ;8d1d defb 070h p ;8d1e defb 065h e ;8d1f defb 063h c ;8d20 defb 074h t ;8d21 defb 065h e ;8d22 defb 064h d ;8d23 defb 000h ;8d24 l8d25h: defb 075h u ;8d25 "undefined struct/union: %s" defb 06eh n ;8d26 defb 064h d ;8d27 defb 065h e ;8d28 defb 066h f ;8d29 defb 069h i ;8d2a defb 06eh n ;8d2b defb 065h e ;8d2c defb 064h d ;8d2d defb 020h ;8d2e defb 073h s ;8d2f defb 074h t ;8d30 defb 072h r ;8d31 defb 075h u ;8d32 defb 063h c ;8d33 defb 074h t ;8d34 defb 02fh / ;8d35 defb 075h u ;8d36 defb 06eh n ;8d37 defb 069h i ;8d38 defb 06fh o ;8d39 defb 06eh n ;8d3a defb 03ah : ;8d3b defb 020h ;8d3c defb 025h % ;8d3d defb 073h s ;8d3e defb 000h . ;8d3f l8d40h: defb 063h c ;8d40 "can't take address of register variable" defb 061h a ;8d41 defb 06eh n ;8d42 defb 027h ' ;8d43 defb 074h t ;8d44 defb 020h ;8d45 defb 074h t ;8d46 defb 061h a ;8d47 defb 06bh k ;8d48 defb 065h e ;8d49 defb 020h ;8d4a defb 061h a ;8d4b defb 064h d ;8d4c defb 064h d ;8d4d defb 072h r ;8d4e defb 065h e ;8d4f defb 073h s ;8d50 defb 073h s ;8d51 defb 020h ;8d52 defb 06fh o ;8d53 defb 066h f ;8d54 defb 020h ;8d55 defb 072h r ;8d56 defb 065h e ;8d57 defb 067h g ;8d58 defb 069h i ;8d59 defb 073h s ;8d5a defb 074h t ;8d5b defb 065h e ;8d5c defb 072h r ;8d5d defb 020h ;8d5e defb 076h v ;8d5f defb 061h a ;8d60 defb 072h r ;8d61 defb 069h i ;8d62 defb 061h a ;8d63 defb 062h b ;8d64 defb 06ch l ;8d65 defb 065h e ;8d66 defb 000h ;8d67 l8d68h: defb 063h c ;8d68 "can't take this address" defb 061h a ;8d69 defb 06eh n ;8d6a defb 027h ' ;8d6b defb 074h t ;8d6c defb 020h ;8d6d defb 074h t ;8d6e defb 061h a ;8d6f defb 06bh k ;8d70 defb 065h e ;8d71 defb 020h ;8d72 defb 074h t ;8d73 defb 068h h ;8d74 defb 069h i ;8d75 defb 073h s ;8d76 defb 020h ;8d77 defb 061h a ;8d78 defb 064h d ;8d79 defb 064h d ;8d7a defb 072h r ;8d7b defb 065h e ;8d7c defb 073h s ;8d7d defb 073h s ;8d7e defb 000h ;8d7f l8d80h: defb 06fh o ;8d80 "only lvalues may be assigned to or modified" defb 06eh n ;8d81 defb 06ch l ;8d82 defb 079h y ;8d83 defb 020h ;8d84 defb 06ch l ;8d85 defb 076h v ;8d86 defb 061h a ;8d87 defb 06ch l ;8d88 defb 075h u ;8d89 defb 065h e ;8d8a defb 073h s ;8d8b defb 020h ;8d8c defb 06dh m ;8d8d defb 061h a ;8d8e defb 079h y ;8d8f defb 020h ;8d90 defb 062h b ;8d91 defb 065h e ;8d92 defb 020h ;8d93 defb 061h a ;8d94 defb 073h s ;8d95 defb 073h s ;8d96 defb 069h i ;8d97 defb 067h g ;8d98 defb 06eh n ;8d99 defb 065h e ;8d9a defb 064h d ;8d9b defb 020h ;8d9c defb 074h t ;8d9d defb 06fh o ;8d9e defb 020h ;8d9f defb 06fh o ;8da0 defb 072h r ;8da1 defb 020h ;8da2 defb 06dh m ;8da3 defb 06fh o ;8da4 defb 064h d ;8da5 defb 069h i ;8da6 defb 066h f ;8da7 defb 069h i ;8da8 defb 065h e ;8da9 defb 064h d ;8daa defb 000h ;8dab l8dach: defb 070h p ;8dac "pointer required" defb 06fh o ;8dad defb 069h i ;8dae defb 06eh n ;8daf defb 074h t ;8db0 defb 065h e ;8db1 defb 072h r ;8db2 defb 020h ;8db3 defb 072h r ;8db4 defb 065h e ;8db5 defb 071h q ;8db6 defb 075h u ;8db7 defb 069h i ;8db8 defb 072h r ;8db9 defb 065h e ;8dba defb 064h d ;8dbb defb 000h ;8dbc l8dbdh: defb 076h v ;8dbd "void function cannot return value" defb 06fh o ;8dbe defb 069h i ;8dbf defb 064h d ;8dc0 defb 020h ;8dc1 defb 066h f ;8dc2 defb 075h u ;8dc3 defb 06eh n ;8dc4 defb 063h c ;8dc5 defb 074h t ;8dc6 defb 069h i ;8dc7 defb 06fh o ;8dc8 defb 06eh n ;8dc9 defb 020h ;8dca defb 063h c ;8dcb defb 061h a ;8dcc defb 06eh n ;8dcd defb 06eh n ;8dce defb 06fh o ;8dcf defb 074h t ;8dd0 defb 020h ;8dd1 defb 072h r ;8dd2 defb 065h e ;8dd3 defb 074h t ;8dd4 defb 075h u ;8dd5 defb 072h r ;8dd6 defb 06eh n ;8dd7 defb 020h ;8dd8 defb 076h v ;8dd9 defb 061h a ;8dda defb 06ch l ;8ddb defb 075h u ;8ddc defb 065h e ;8ddd defb 000h ;8dde l8ddfh: defb 06fh o ;8ddf "operands of %.3s not same pointer type" defb 070h p ;8de0 defb 065h e ;8de1 defb 072h r ;8de2 defb 061h a ;8de3 defb 06eh n ;8de4 defb 064h d ;8de5 defb 073h s ;8de6 defb 020h ;8de7 defb 06fh o ;8de8 defb 066h f ;8de9 defb 020h ;8dea defb 025h % ;8deb defb 02eh . ;8dec defb 033h 3 ;8ded defb 073h s ;8dee defb 020h ;8def defb 06eh n ;8df0 defb 06fh o ;8df1 defb 074h t ;8df2 defb 020h ;8df3 defb 073h s ;8df4 defb 061h a ;8df5 defb 06dh m ;8df6 defb 065h e ;8df7 defb 020h ;8df8 defb 070h p ;8df9 defb 06fh o ;8dfa defb 069h i ;8dfb defb 06eh n ;8dfc defb 074h t ;8dfd defb 065h e ;8dfe defb 072h r ;8dff defb 020h ;8e00 defb 074h t ;8e01 defb 079h y ;8e02 defb 070h p ;8e03 defb 065h e ;8e04 defb 000h ;8e05 l8e06h: defb 069h i ;8e06 "integral type required" defb 06eh n ;8e07 defb 074h t ;8e08 defb 065h e ;8e09 defb 067h g ;8e0a defb 072h r ;8e0b defb 061h a ;8e0c defb 06ch l ;8e0d defb 020h ;8e0e defb 074h t ;8e0f defb 079h y ;8e10 defb 070h p ;8e11 defb 065h e ;8e12 defb 020h ;8e13 defb 072h r ;8e14 defb 065h e ;8e15 defb 071h q ;8e16 defb 075h u ;8e17 defb 069h i ;8e18 defb 072h r ;8e19 defb 065h e ;8e1a defb 064h d ;8e1b defb 000h ;8e1c l8e1dh: defb 069h i ;8e1d "illegal use of void expression" defb 06ch l ;8e1e defb 06ch l ;8e1f defb 065h e ;8e20 defb 067h g ;8e21 defb 061h a ;8e22 defb 06ch l ;8e23 defb 020h ;8e24 defb 075h u ;8e25 defb 073h s ;8e26 defb 065h e ;8e27 defb 020h ;8e28 defb 06fh o ;8e29 defb 066h f ;8e2a defb 020h ;8e2b defb 076h v ;8e2c defb 06fh o ;8e2d defb 069h i ;8e2e defb 064h d ;8e2f defb 020h ;8e30 defb 065h e ;8e31 defb 078h x ;8e32 defb 070h p ;8e33 defb 072h r ;8e34 defb 065h e ;8e35 defb 073h s ;8e36 defb 073h s ;8e37 defb 069h i ;8e38 defb 06fh o ;8e39 defb 06eh n ;8e3a defb 000h ;8e3b l8e3ch: defb 073h s ;8e3c "simple type required for %.3s" defb 069h i ;8e3d defb 06dh m ;8e3e defb 070h p ;8e3f defb 06ch l ;8e40 defb 065h e ;8e41 defb 020h ;8e42 defb 074h t ;8e43 defb 079h y ;8e44 defb 070h p ;8e45 defb 065h e ;8e46 defb 020h ;8e47 defb 072h r ;8e48 defb 065h e ;8e49 defb 071h q ;8e4a defb 075h u ;8e4b defb 069h i ;8e4c defb 072h r ;8e4d defb 065h e ;8e4e defb 064h d ;8e4f defb 020h ;8e50 defb 066h f ;8e51 defb 06fh o ;8e52 defb 072h r ;8e53 defb 020h ;8e54 defb 025h % ;8e55 defb 02eh . ;8e56 defb 033h 3 ;8e57 defb 073h s ;8e58 defb 000h ;8e59 l8e5ah: defb 06fh o ;8e5a "operands of %.3s not same type" defb 070h p ;8e5b defb 065h e ;8e5c defb 072h r ;8e5d defb 061h a ;8e5e defb 06eh n ;8e5f defb 064h d ;8e60 defb 073h s ;8e61 defb 020h ;8e62 defb 06fh o ;8e63 defb 066h f ;8e64 defb 020h ;8e65 defb 025h % ;8e66 defb 02eh . ;8e67 defb 033h 3 ;8e68 defb 073h s ;8e69 defb 020h ;8e6a defb 06eh n ;8e6b defb 06fh o ;8e6c defb 074h t ;8e6d defb 020h ;8e6e defb 073h s ;8e6f defb 061h a ;8e70 defb 06dh m ;8e71 defb 065h e ;8e72 defb 020h ;8e73 defb 074h t ;8e74 defb 079h y ;8e75 defb 070h p ;8e76 defb 065h e ;8e77 defb 000h ;8e78 l8e79h: defb 074h t ;8e79 "type conflict" defb 079h y ;8e7a defb 070h p ;8e7b defb 065h e ;8e7c defb 020h ;8e7d defb 063h c ;8e7e defb 06fh o ;8e7f defb 06eh n ;8e80 defb 066h f ;8e81 defb 06ch l ;8e82 defb 069h i ;8e83 defb 063h c ;8e84 defb 074h t ;8e85 defb 000h ;8e86 l8e87h: defb 06ch l ;8e87 "logical type required" defb 06fh o ;8e88 defb 067h g ;8e89 defb 069h i ;8e8a defb 063h c ;8e8b defb 061h a ;8e8c defb 06ch l ;8e8d defb 020h ;8e8e defb 074h t ;8e8f defb 079h y ;8e90 defb 070h p ;8e91 defb 065h e ;8e92 defb 020h ;8e93 defb 072h r ;8e94 defb 065h e ;8e95 defb 071h q ;8e96 defb 075h u ;8e97 defb 069h i ;8e98 defb 072h r ;8e99 defb 065h e ;8e9a defb 064h d ;8e9b defb 000h ;8e9c l8e9dh: defb 025h % ;8e9d "%s() declared implicit int" defb 073h s ;8e9e defb 028h ( ;8e9f defb 029h ) ;8ea0 defb 020h ;8ea1 defb 064h d ;8ea2 defb 065h e ;8ea3 defb 063h c ;8ea4 defb 06ch l ;8ea5 defb 061h a ;8ea6 defb 072h r ;8ea7 defb 065h e ;8ea8 defb 064h d ;8ea9 defb 020h ;8eaa defb 069h i ;8eab defb 06dh m ;8eac defb 070h p ;8ead defb 06ch l ;8eae defb 069h i ;8eaf defb 063h c ;8eb0 defb 069h i ;8eb1 defb 074h t ;8eb2 defb 020h ;8eb3 defb 069h i ;8eb4 defb 06eh n ;8eb5 defb 074h t ;8eb6 defb 000h ;8eb7 l8eb8h: defb 069h i ;8eb8 "implicit conversion of float to integer" defb 06dh m ;8eb9 defb 070h p ;8eba defb 06ch l ;8ebb defb 069h i ;8ebc defb 063h c ;8ebd defb 069h i ;8ebe defb 074h t ;8ebf defb 020h ;8ec0 defb 063h c ;8ec1 defb 06fh o ;8ec2 defb 06eh n ;8ec3 defb 076h v ;8ec4 defb 065h e ;8ec5 defb 072h r ;8ec6 defb 073h s ;8ec7 defb 069h i ;8ec8 defb 06fh o ;8ec9 defb 06eh n ;8eca defb 020h ;8ecb defb 06fh o ;8ecc defb 066h f ;8ecd defb 020h ;8ece defb 066h f ;8ecf defb 06ch l ;8ed0 defb 06fh o ;8ed1 defb 061h a ;8ed2 defb 074h t ;8ed3 defb 020h ;8ed4 defb 074h t ;8ed5 defb 06fh o ;8ed6 defb 020h ;8ed7 defb 069h i ;8ed8 defb 06eh n ;8ed9 defb 074h t ;8eda defb 065h e ;8edb defb 067h g ;8edc defb 065h e ;8edd defb 072h r ;8ede defb 000h ;8edf l8ee0h: defb 069h i ;8ee0 "illegal conversion of integer to pointer" defb 06ch l ;8ee1 defb 06ch l ;8ee2 defb 065h e ;8ee3 defb 067h g ;8ee4 defb 061h a ;8ee5 defb 06ch l ;8ee6 defb 020h ;8ee7 defb 063h c ;8ee8 defb 06fh o ;8ee9 defb 06eh n ;8eea defb 076h v ;8eeb defb 065h e ;8eec defb 072h r ;8eed defb 073h s ;8eee defb 069h i ;8eef defb 06fh o ;8ef0 defb 06eh n ;8ef1 defb 020h ;8ef2 defb 06fh o ;8ef3 defb 066h f ;8ef4 defb 020h ;8ef5 defb 069h i ;8ef6 defb 06eh n ;8ef7 defb 074h t ;8ef8 defb 065h e ;8ef9 defb 067h g ;8efa defb 065h e ;8efb defb 072h r ;8efc defb 020h ;8efd defb 074h t ;8efe defb 06fh o ;8eff defb 020h ;8f00 defb 070h p ;8f01 defb 06fh o ;8f02 defb 069h i ;8f03 defb 06eh n ;8f04 defb 074h t ;8f05 defb 065h e ;8f06 defb 072h r ;8f07 defb 000h ;8f08 l8f09h: defb 069h i ;8f09 "illegal conversion of pointer to integer" defb 06ch l ;8f0a defb 06ch l ;8f0b defb 065h e ;8f0c defb 067h g ;8f0d defb 061h a ;8f0e defb 06ch l ;8f0f defb 020h ;8f10 defb 063h c ;8f11 defb 06fh o ;8f12 defb 06eh n ;8f13 defb 076h v ;8f14 defb 065h e ;8f15 defb 072h r ;8f16 defb 073h s ;8f17 defb 069h i ;8f18 defb 06fh o ;8f19 defb 06eh n ;8f1a defb 020h ;8f1b defb 06fh o ;8f1c defb 066h f ;8f1d defb 020h ;8f1e defb 070h p ;8f1f defb 06fh o ;8f20 defb 069h i ;8f21 defb 06eh n ;8f22 defb 074h t ;8f23 defb 065h e ;8f24 defb 072h r ;8f25 defb 020h ;8f26 defb 074h t ;8f27 defb 06fh o ;8f28 defb 020h ;8f29 defb 069h i ;8f2a defb 06eh n ;8f2b defb 074h t ;8f2c defb 065h e ;8f2d defb 067h g ;8f2e defb 065h e ;8f2f defb 072h r ;8f30 defb 000h ;8f31 l8f32h: defb 069h i ;8f32 "illegal conversion between pointer types" defb 06ch l ;8f33 defb 06ch l ;8f34 defb 065h e ;8f35 defb 067h g ;8f36 defb 061h a ;8f37 defb 06ch l ;8f38 defb 020h ;8f39 defb 063h c ;8f3a defb 06fh o ;8f3b defb 06eh n ;8f3c defb 076h v ;8f3d defb 065h e ;8f3e defb 072h r ;8f3f defb 073h s ;8f40 defb 069h i ;8f41 defb 06fh o ;8f42 defb 06eh n ;8f43 defb 020h ;8f44 defb 062h b ;8f45 defb 065h e ;8f46 defb 074h t ;8f47 defb 077h w ;8f48 defb 065h e ;8f49 defb 065h e ;8f4a defb 06eh n ;8f4b defb 020h ;8f4c defb 070h p ;8f4d defb 06fh o ;8f4e defb 069h i ;8f4f defb 06eh n ;8f50 defb 074h t ;8f51 defb 065h e ;8f52 defb 072h r ;8f53 defb 020h ;8f54 defb 074h t ;8f55 defb 079h y ;8f56 defb 070h p ;8f57 defb 065h e ;8f58 defb 073h s ;8f59 defb 000h ;8f5a l8f5bh: defb 069h i ;8f5b "illegal conversion" defb 06ch l ;8f5c defb 06ch l ;8f5d defb 065h e ;8f5e defb 067h g ;8f5f defb 061h a ;8f60 defb 06ch l ;8f61 defb 020h ;8f62 defb 063h c ;8f63 defb 06fh o ;8f64 defb 06eh n ;8f65 defb 076h v ;8f66 defb 065h e ;8f67 defb 072h r ;8f68 defb 073h s ;8f69 defb 069h i ;8f6a defb 06fh o ;8f6b defb 06eh n ;8f6c defb 000h ;8f6d l8f6eh: defb 065h e ;8f6e "expression too complex" defb 078h x ;8f6f defb 070h p ;8f70 defb 072h r ;8f71 defb 065h e ;8f72 defb 073h s ;8f73 defb 073h s ;8f74 defb 069h i ;8f75 defb 06fh o ;8f76 defb 06eh n ;8f77 defb 020h ;8f78 defb 074h t ;8f79 defb 06fh o ;8f7a defb 06fh o ;8f7b defb 020h ;8f7c defb 063h c ;8f7d defb 06fh o ;8f7e defb 06dh m ;8f7f defb 070h p ;8f80 defb 06ch l ;8f81 defb 065h e ;8f82 defb 078h x ;8f83 defb 000h ;8f84 l8f85h: defb 000h ;8f85 byte_8f86: defb 000h ;8f86 keywords: defw word_8fffh ;8f87 0 "asm" defw word_9003h ;8f89 1 "auto" defw word_9008h ;8f8b 2 "break" defw word_900eh ;8f8d 3 "case" defw word_9013h ;8f8f 4 "char" defw word_9018h ;8f91 5 "continue" defw word_9021h ;8f93 6 "default" defw word_9029h ;8f95 7 "do" defw word_902ch ;8f97 8 "double" defw word_9033h ;8f99 9 "else" defw word_9038h ;8f9b 10 "@@@@@" defw word_903eh ;8f9d 11 "enum" defw word_9043h ;8f9f 12 "extern" defw word_904ah ;8fa1 13 "float" defw word_9050h ;8fa3 14 "for" defw word_9054h ;8fa5 15 "goto" defw word_9059h ;8fa7 16 "if" defw word_905ch ;8fa9 17 "int" defw word_9060h ;8fab 18 "long" defw word_9065h ;8fad 19 "register" defw word_906eh ;8faf 20 "return" defw word_9075h ;8fb1 21 "short" defw word_907bh ;8fb3 22 "sizeof" defw word_9082h ;8fb5 23 "static" defw word_9089h ;8fb7 24 "struct" defw word_9090h ;8fb9 25 "switch" defw word_9097h ;8fbb 26 "typedef" defw word_909fh ;8fbd 27 "union" defw word_90a5h ;8fbf 28 "unsigned" defw word_90aeh ;8fc1 29 "void" defw word_90b3h ;8fc3 30 "while" l8fc5h: defb 05ah Z ;8fc5 0 ;l305ah defb 030h 0 ;8fc6 ; defb 075h u ;8fc7 1 ;l3075h defb 030h 0 ;8fc8 ; defb 075h u ;8fc9 2 ;l3075h defb 030h 0 ;8fca ; defb 065h e ;8fcb 3 ;l3065h defb 030h 0 ;8fcc ; defb 075h u ;8fcd 4 ;l3075h defb 030h 0 ;8fce ; defb 075h u ;8fcf 5 ;l3075h defb 030h 0 ;8fd0 ; defb 075h u ;8fd1 6 ;l3075h defb 030h 0 ;8fd2 ; defb 065h e ;8fd3 7 ;l3065h defb 030h 0 ;8fd4 ; defb 075h u ;8fd5 8 ;l3075h defb 030h 0 ;8fd6 ; defb 075h u ;8fd7 9 ;l3075h defb 030h 0 ;8fd8 ; defb 065h e ;8fd9 10 ;l3065h defb 030h 0 ;8fda ; defb 05ah Z ;8fdb 11 ;l305ah defb 030h 0 ;8fdc ; defb 065h e ;8fdd 12 ;l3065h defb 030h 0 ;8fde ; defb 075h u ;8fdf 13 ;l3075h defb 030h 0 ;8fe0 ; defb 075h u ;8fe1 14 ;l3075h defb 030h 0 ;8fe2 ; defb 075h u ;8fe3 15 ;l3075h defb 030h 0 ;8fe4 ; defb 065h e ;8fe5 16 ;l3065h defb 030h 0 ;8fe6 ; defb 065h e ;8fe7 17 ;l3065h defb 030h 0 ;8fe8 ; defb 05ah Z ;8fe9 18 ;l305ah defb 030h 0 ;8fea ; defb 075h u ;8feb 19 ;l3075h defb 030h 0 ;8fec ; defb 065h e ;8fed 20 ;l3065h defb 030h 0 ;8fee ; defb 070h p ;8fef 21 ;l3070h defb 030h 0 ;8ff0 ; defb 05ah Z ;8ff1 22 ;l305ah defb 030h 0 ;8ff2 ; defb 065h e ;8ff3 23 ;l3065h defb 030h 0 ;8ff4 ; defb 075h u ;8ff5 24 ;l3075h defb 030h 0 ;8ff6 ; defb 05ah Z ;8ff7 25 ;l305ah defb 030h 0 ;8ff8 ; defb 065h e ;8ff9 26 ;l3065h defb 030h 0 ;8ffa ; defb 065h e ;8ffb 27 ;l3065h defb 030h 0 ;8ffc defb 065h e ;8ffd 28 ;l3065h defb 030h 0 ;8ffe word_8fffh: "asm" ;8fff 0 word_9003h: "auto" ;9003 1 word_9008h: "break" ;9008 2 word_900eh: "case" ;900e 3 word_9013h: "char" ;9013 4 word_9018h: "continue" ;9018 5 word_9021h: "default" ;9021 6 word_9029h: "do" ;9029 7 word_902ch: "double" ;902c 8 word_9033h: "else" ;9033 9 word_9038h: "@@@@@" ;9038 10 word_903eh: "enum" ;903e 11 word_9043h: "extern" ;9043 12 word_904ah: "float" ;904a 13 word_9050h: "for" ;9050 14 word_9054h: "goto" ;9054 15 word_9059h: "if" ;9059 16 word_905ch: "int" ;905c 17 word_9060h: "long" ;9060 18 word_9065h: "register" ;9065 19 word_906eh: "return" ;906e 20 word_9075h: "short" ;9075 21 word_907bh: "sizeof" ;907b 22 word_9082h: "static" ;9082 23 word_9089h: "struct" ;9089 24 word_9090h: "switch" ;9090 25 word_9097h: "typedef" ;9097 26 word_909fh: "union" ;909f 27 word_90a5h: "unsigned" ;90a5 28 word_90aeh: "void" ;90ae 29 word_90b3h: "while" ;90b3 30 l90b9h: defb 07eh ~ ;90b9 "~%s\n" defb 025h % ;90ba defb 073h s ;90bb defb 00ah \n ;90bc defb 000h ;90bd l90beh: defb 061h a ;90be "asm" defb 073h s ;90bf defb 06dh m ;90c0 defb 000h ;90c1 l90c2h: defb 069h i ;90c2 "illegal '#' directive" defb 06ch l ;90c3 defb 06ch l ;90c4 defb 065h e ;90c5 defb 067h g ;90c6 defb 061h a ;90c7 defb 06ch l ;90c8 defb 020h ;90c9 defb 027h ' ;90ca defb 023h # ;90cb defb 027h ' ;90cc defb 020h ;90cd defb 064h d ;90ce defb 069h i ;90cf defb 072h r ;90d0 defb 065h e ;90d1 defb 063h c ;90d2 defb 074h t ;90d3 defb 069h i ;90d4 defb 076h v ;90d5 defb 065h e ;90d6 defb 000h ;90d7 l90d8h: defb 063h ; 'c' ;90d8 "closing quote" defb 06ch ; 'l' ;90d9 defb 06fh ; 'o' ;90da defb 073h ; 's' ;90db defb 069h ; 'i' ;90dc defb 06eh ; 'n' ;90dd defb 067h ; 'g' ;90de defb 020h ; ' ' ;90df defb 071h ; 'q' ;90e0 defb 075h ; 'u' ;90e1 defb 06fh ; 'o' ;90e2 defb 074h ; 't' ;90e3 defb 065h ; 'e' ;90e4 defb 000h ;90e5 l90e6h: defb 063h ; 'c' ;90e6 "char const too long" defb 068h ; 'h' ;90e7 defb 061h ; 'a' ;90e8 defb 072h ; 'r' ;90e9 defb 020h ; ' ' ;90ea defb 063h ; 'c' ;90eb defb 06fh ; 'o' ;90ec defb 06eh ; 'n' ;90ed defb 073h ; 's' ;90ee defb 074h ; 't' ;90ef defb 020h ; ' ' ;90f0 defb 074h ; 't' ;90f1 defb 06fh ; 'o' ;90f2 defb 06fh ; 'o' ;90f3 defb 020h ; ' ' ;90f4 defb 06ch ; 'l' ;90f5 defb 06fh ; 'o' ;90f6 defb 06eh ; 'n' ;90f7 defb 067h ; 'g' ;90f8 defb 000h ;90f9 l90fah: defb 027h ; ''' ;90fa "'.' expected after '..'" defb 02eh ; '.' ;90fb defb 027h ; ''' ;90fc defb 020h ; ' ' ;90fd defb 065h ; 'e' ;90fe defb 078h ; 'x' ;90ff defb 070h ; 'p' ;9100 defb 065h ; 'e' ;9101 defb 063h ; 'c' ;9102 defb 074h ; 't' ;9103 defb 065h ; 'e' ;9104 defb 064h ; 'd' ;9105 defb 020h ; ' ' ;9106 defb 061h ; 'a' ;9107 defb 066h ; 'f' ;9108 defb 074h ; 't' ;9109 defb 065h ; 'e' ;910a defb 072h ; 'r' ;910b defb 020h ; ' ' ;910c defb 027h ; ''' ;910d defb 02eh ; '.' ;910e defb 02eh ; '.' ;910f defb 027h ; ''' ;9110 defb 000h ;9111 l9112h: defb 069h ; 'i' ;9112 "illegal character (0%o)" defb 06ch ; 'l' ;9113 defb 06ch ; 'l' ;9114 defb 065h ; 'e' ;9115 defb 067h ; 'g' ;9116 defb 061h ; 'a' ;9117 defb 06ch ; 'l' ;9118 defb 020h ; ' ' ;9119 defb 063h ; 'c' ;911a defb 068h ; 'h' ;911b defb 061h ; 'a' ;911c defb 072h ; 'r' ;911d defb 061h ; 'a' ;911e defb 063h ; 'c' ;911f defb 074h ; 't' ;9120 defb 065h ; 'e' ;9121 defb 072h ; 'r' ;9122 defb 020h ; ' ' ;9123 defb 028h ; '(' ;9124 defb 030h ; '0' ;9125 defb 025h ; '%' ;9126 defb 06fh ; 'o' ;9127 defb 029h ; ')' ;9128 defb 000h ;9129 l912ah: defb 065h ; 'e' ;912a "exponent expected" defb 078h ; 'x' ;912b defb 070h ; 'p' ;912c defb 06fh ; 'o' ;912d defb 06eh ; 'n' ;912e defb 065h ; 'e' ;912f defb 06eh ; 'n' ;9130 defb 074h ; 't' ;9131 defb 020h ; ' ' ;9132 defb 065h ; 'e' ;9133 defb 078h ; 'x' ;9134 defb 070h ; 'p' ;9135 defb 065h ; 'e' ;9136 defb 063h ; 'c' ;9137 defb 074h ; 't' ;9138 defb 065h ; 'e' ;9139 defb 064h ; 'd' ;913a defb 000h ;913b l913ch: defb 030h ;913c "0" defb 000h ;913d l913eh: defb 068h ; 'h' ;913e "hex digit expected" defb 065h ; 'e' ;913f defb 078h ; 'x' ;9140 defb 020h ; ' ' ;9141 defb 064h ; 'd' ;9142 defb 069h ; 'i' ;9143 defb 067h ; 'g' ;9144 defb 069h ; 'i' ;9145 defb 074h ; 't' ;9146 defb 020h ; ' ' ;9147 defb 065h ; 'e' ;9148 defb 078h ; 'x' ;9149 defb 070h ; 'p' ;914a defb 065h ; 'e' ;914b defb 063h ; 'c' ;914c defb 074h ; 't' ;914d defb 065h ; 'e' ;914e defb 064h ; 'd' ;914f defb 000h ;9150 l9151h: defb 064h ; 'd' ;9151 "digit out of range" defb 069h ; 'i' ;9152 defb 067h ; 'g' ;9153 defb 069h ; 'i' ;9154 defb 074h ; 't' ;9155 defb 020h ; ' ' ;9156 defb 06fh ; 'o' ;9157 defb 075h ; 'u' ;9158 defb 074h ; 't' ;9159 defb 020h ; ' ' ;915a defb 06fh ; 'o' ;915b defb 066h ; 'f' ;915c defb 020h ; ' ' ;915d defb 072h ; 'r' ;915e defb 061h ; 'a' ;915f defb 06eh ; 'n' ;9160 defb 067h ; 'g' ;9161 defb 065h ; 'e' ;9162 defb 000h ;9163 l9164h: defb 045h ; 'E' ;9164 "EOF in #asm" defb 04fh ; 'O' ;9165 defb 046h ; 'F' ;9166 defb 020h ; ' ' ;9167 defb 069h ; 'i' ;9168 defb 06eh ; 'n' ;9169 defb 020h ; ' ' ;916a defb 023h ; '#' ;916b defb 061h ; 'a' ;916c defb 073h ; 's' ;916d defb 06dh ; 'm' ;916e defb 000h ;916f l9170h: defb 023h ; '# ;9170 "#endasm" defb 065h ; 'e' ;9171 defb 06eh ; 'n' ;9172 defb 064h ; 'd' ;9173 defb 061h ; 'a' ;9174 defb 073h ; 's' ;9175 defb 06dh ; 'm' ;9176 defb 000h ;9177 l9178h: defb 03bh ; ';' ;9178 ";; %s\n" defb 03bh ; ';' ;9179 defb 020h ; ' ' ;917a defb 025h ; '%' ;917b defb 073h ; 's' ;917c defb 00ah ; '\n' ;917d defb 000h ;917e l917fh: defb 063h ; 'c' ;917f "closing quote" defb 06ch ; 'l' ;9180 defb 06fh ; 'o' ;9181 defb 073h ; 's' ;9182 defb 069h ; 'i' ;9183 defb 06eh ; 'n' ;9184 defb 067h ; 'g' ;9185 defb 020h ; ' ' ;9186 defb 071h ; 'q' ;9187 defb 075h ; 'u' ;9188 defb 06fh ; 'o' ;9189 defb 074h ; 't' ;918a defb 065h ; 'e' ;918b defb 000h ;918c l918dh: defb 000h ;918d l918eh: defb 025h ; '%' ;918e "%s:" defb 073h ; 's' ;918f defb 03ah ; ':' ;9190 defb 000h ;9191 l9192h: defb 020h ; ' ' ;9192 " %s()\n" defb 025h ; '%' ;9193 defb 073h ; 's' ;9194 defb 028h ; '(' ;9195 defb 029h ; ')' ;9196 defb 00ah ; '\n' ;9197 defb 000h ;9198 l9199h: defb 025h ; '%' ;9199 "%6d:\t%s" defb 036h ; '6' ;919a defb 064h ; 'd' ;919b defb 03ah ; ':' ;919c defb 009h ; '\t' ;919d defb 025h ; '%' ;919e defb 073h ; 's' ;919f defb 000h ;91a0 l91a1h: defb 025h ; '%' ;91a1 "%*s ^ " defb 02ah ; '*' ;91a2 defb 073h ; 's' ;91a3 defb 020h ; ' ' ;91a4 defb 05eh ; '^' ;91a5 defb 020h ; ' ' ;91a6 defb 000h ;91a7 l91a8h: defb 025h ; %' ;91a8 "%*c %s" defb 02ah ; *' ;91a9 defb 063h ; c' ;91aa defb 020h ; ' ;91ab defb 025h ; %' ;91ac defb 073h ; s' ;91ad defb 000h ;91ae l91afh: defb 03bh ; ';' ;91af ";; ;%s: %d: %s" defb 03bh ; ';' ;91b0 defb 020h ; ' ' ;91b1 defb 03bh ; ';' ;91b2 defb 025h ; '%' ;91b3 defb 073h ; 's' ;91b4 defb 03ah ; ':' ;91b5 defb 020h ; ' ' ;91b6 defb 025h ; '%' ;91b7 defb 064h ; 'd' ;91b8 defb 03ah ; ':' ;91b9 defb 020h ; ' ' ;91ba defb 025h ; '%' ;91bb defb 073h ; 's' ;91bc defb 000h ;91bd l91beh: defb 075h ; 'u' ;91be "unexpected EOF" defb 06eh ; 'n' ;91bf defb 065h ; 'e' ;91c0 defb 078h ; 'x' ;91c1 defb 070h ; 'p' ;91c2 defb 065h ; 'e' ;91c3 defb 063h ; 'c' ;91c4 defb 074h ; 't' ;91c5 defb 065h ; 'e' ;91c6 defb 064h ; 'd' ;91c7 defb 020h ; ' ' ;91c8 defb 045h ; 'E' ;91c9 defb 04fh ; 'O' ;91ca defb 046h ; 'F' ;91cb defb 000h ;91cc l91cdh: defb 04fh ; 'O' ;91cd "Out of memory" defb 075h ; 'u' ;91ce defb 074h ; 't' ;91cf defb 020h ; ' ' ;91d0 defb 06fh ; 'o' ;91d1 defb 066h ; 'f' ;91d2 defb 020h ; ' ' ;91d3 defb 06dh ; 'm' ;91d4 defb 065h ; 'e' ;91d5 defb 06dh ; 'm' ;91d6 defb 06fh ; 'o' ;91d7 defb 072h ; 'r' ;91d8 defb 079h ; 'y' ;91d9 defb 000h ;91da word_91db: defb 0ebh ;91db defb 091h ;91dc l91ddh: defb 043h ;91dd "Can't open %s" defb 061h ;91de defb 06eh ;91df defb 027h ;91e0 defb 074h ;91e1 defb 020h ;91e2 defb 06fh ;91e3 defb 070h ;91e4 defb 065h ;91e5 defb 06eh ;91e6 defb 020h ;91e7 defb 025h ;91e8 defb 073h ;91e9 defb 000h ;91ea defb 070h ; 'p' ;91eb "p1.tmp" defb 031h ; '1' ;91ec defb 02eh ; '.' ;91ed defb 074h ; 't' ;91ee defb 06dh ; 'm' ;91ef defb 070h ; 'p' ;91f0 defb 000h ;91f1 l91f2h: defb 061h ;91f2 "a" defb 000h ;91f3 l91f4h: defb 072h ;91f4 "r" defb 000h ;91f5 l91f6h: defb 077h ;91f6 "w" defb 000h ;91f7 l91f8h: defb 028h ;91f8 "(stdin)" defb 073h ;91f9 defb 074h ;91fa defb 064h ;91fb defb 069h ;91fc defb 06eh ;91fd defb 029h ;91fe defb 000h ;91ff l9200h: defb 02eh ;9200 ".crf" defb 063h ;9201 defb 072h ;9202 defb 066h ;9203 defb 000h ;9204 l9205h: defb 02eh ;9205 ".crf" defb 063h ;9206 defb 072h ;9207 defb 066h ;9208 defb 000h ;9209 word_920a: defb 061h a ;920a "a" defb 000h ;920b l920ch: defb 043h ;920c "Can't create xref file %s" defb 061h ;920d defb 06eh ;920e defb 027h ;920f defb 074h ;9210 defb 020h ;9211 defb 063h ;9212 defb 072h ;9213 defb 065h ;9214 defb 061h ;9215 defb 074h ;9216 defb 065h ;9217 defb 020h ;9218 defb 078h ;9219 defb 072h ;921a defb 065h ;921b defb 066h ;921c defb 020h ;921d defb 066h ;921e defb 069h ;921f defb 06ch ;9220 defb 065h ;9221 defb 020h ;9222 defb 025h ;9223 defb 073h ;9224 defb 000h ;9225 l9226h: defb 07eh ;9226 "~%s\n" defb 025h ;9227 defb 073h ;9228 defb 00ah ;9229 defb 000h ;922a word_922b: defb 077h w ;922b defb 000h ;922c l922dh: defb 063h 'c' ;922d "close error (disk space?)" defb 06ch 'l' ;922e defb 06fh 'o' ;922f defb 073h 's' ;9230 defb 065h 'e' ;9231 defb 020h ' ' ;9232 defb 065h 'e' ;9233 defb 072h 'r' ;9234 defb 072h 'r' ;9235 defb 06fh 'o' ;9236 defb 072h 'r' ;9237 defb 020h ' ' ;9238 defb 028h '(' ;9239 defb 064h 'd' ;923a defb 069h 'i' ;923b defb 073h 's' ;923c defb 06bh 'k' ;923d defb 020h ' ' ;923e defb 073h 's' ;923f defb 070h 'p' ;9240 defb 061h 'a' ;9241 defb 063h 'c' ;9242 defb 065h 'e' ;9243 defb 03fh '?' ;9244 defb 029h ')' ;9245 defb 000h ;9246 l9247h: defb 020h ;9247 " (warning)\n" defb 028h ;9248 defb 077h ;9249 defb 061h ;924a defb 072h ;924b defb 06eh ;924c defb 069h ;924d defb 06eh ;924e defb 067h ;924f defb 029h ;9250 defb 00ah ;9251 defb 000h ;9252 l9253h: defb 025h ;9253 "%s expected" defb 073h ;9254 defb 020h ;9255 defb 065h ;9256 defb 078h ;9257 defb 070h ;9258 defb 065h ;9259 defb 063h ;925a defb 074h ;925b defb 065h ;925c defb 064h ;925d defb 000h ;925e l925fh: defb 072h ;925f "r" defb 000h ;9260 l9261h: defb 043h ;9261 "Can't reopen %s" defb 061h ;9262 defb 06eh ;9263 defb 027h ;9264 defb 074h ;9265 defb 020h ;9266 defb 072h ;9267 defb 065h ;9268 defb 06fh ;9269 defb 070h ;926a defb 065h ;926b defb 06eh ;926c defb 020h ;926d defb 025h ;926e defb 073h ;926f defb 000h ;9270 l9271h: defb 000h ;9271 ;1 0 defb 000h ;9272 ;2 defb 000h ;9273 ;3 l9274h: defb 006h ;9274 ;4 l9275h: defb 000h ;9275 ;5 l9276h: defb 000h ;9276 ;6 defb 002h ;9277 ;7 l9278h: defb 007h ;9278 ;8 defb 028h ;9279 ;1 1 defb 000h ;927a ;2 defb 000h ;927b ;3 defb 01eh ;927c ;4 defb 002h ;927d ;5 defb 000h ;927e ;6 defb 002h ;927f ;7 defb 003h ;9280 ; 8 defb 000h ;9281 ;1 2 defb 000h ;9282 ;2 defb 000h ;9283 ;3 defb 01fh ;9284 ;4 defb 000h ;9285 ;5 defb 000h ;9286 ;6 defb 000h ;9287 ;7 defb 000h ;9288 ; 8 defb 000h ;9289 ;1 3 defb 000h ;928a ;2 defb 000h ;928b ;3 defb 002h ;928c ;4 defb 000h ;928d ;5 defb 000h ;928e ;6 defb 000h ;928f ;7 defb 000h ;9290 ; 8 defb 000h ;9291 ;1 4 defb 000h ;9292 ;2 defb 000h ;9293 ;3 defb 01eh ;9294 ;4 defb 002h ;9295 ;5 defb 000h ;9296 ;6 defb 000h ;9297 ;7 defb 000h ;9298 ; 8 defb 000h ;9299 ;1 5 defb 000h ;929a ;2 defb 000h ;929b ;3 defb 01eh ;929c ;4 defb 000h ;929d ;5 defb 000h ;929e ;6 defb 000h ;929f ;7 defb 000h ;92a0 ; 8 defb 000h ;92a1 ;1 6 defb 000h ;92a2 ;2 defb 000h ;92a3 ;3 defb 002h ;92a4 ;4 defb 000h ;92a5 ;5 defb 000h ;92a6 ;6 defb 000h ;92a7 ;7 defb 000h ;92a8 ; 8 defb 02eh ;92a9 ;1 7 defb 000h ;92aa ;2 defb 000h ;92ab ;3 defb 01eh ;92ac ;4 defb 002h ;92ad ;5 defb 000h ;92ae ;6 defb 00ah ;92af ;7 defb 002h ;92b0 ; 8 defb 000h ;92b1 ;1 8 defb 000h ;92b2 ;2 defb 000h ;92b3 ;3 defb 01eh ;92b4 ;4 defb 002h ;92b5 ;5 defb 000h ;92b6 ;6 defb 000h ;92b7 ;7 defb 000h ;92b8 ; 8 defb 02ah ;92b9 ;1 9 defb 055h ;92ba ;2 defb 000h ;92bb ;3 defb 01ch ;92bc ;4 defb 01ch ;92bd ;5 defb 000h ;92be ;6 defb 042h ;92bf ;7 defb 003h ;92c0 ; 8 defb 026h ;92c1 ;1 10 defb 055h ;92c2 ;2 defb 000h ;92c3 ;3 defb 01ch ;92c4 ;4 defb 01ch ;92c5 ;5 defb 000h ;92c6 ;6 defb 022h ;92c7 ;7 defb 004h ;92c8 ; 8 defb 02dh ;92c9 ;1 11 defb 055h ;92ca ;2 defb 000h ;92cb ;3 defb 01ch ;92cc ;4 defb 01ch ;92cd ;5 defb 030h ;92ce ;6 defb 000h ;92cf ;7 defb 001h ;92d0 ; 8 defb 021h ;92d1 ;1 12 defb 000h ;92d2 ;2 defb 000h ;92d3 ;3 defb 01ch ;92d4 ;4 defb 008h ;92d5 ;5 defb 002h ;92d6 ;6 defb 000h ;92d7 ;7 defb 006h ;92d8 ; 8 defb 07eh ;92d9 ;1 13 defb 000h ;92da ;2 defb 000h ;92db ;3 defb 01ch ;92dc ;4 defb 018h ;92dd ;5 defb 020h ;92de ;6 defb 000h ;92df ;7 defb 001h ;92e0 ; 8 defb 000h ;92e1 ;1 14 defb 000h ;92e2 ;2 defb 000h ;92e3 ;3 defb 01ch ;92e4 ;4 defb 008h ;92e5 ;5 defb 000h ;92e6 ;6 defb 000h ;92e7 ;7 defb 000h ;92e8 ; 8 defb 000h ;92e9 ;1 15 defb 000h ;92ea ;2 defb 000h ;92eb ;3 defb 01ch ;92ec ;4 defb 008h ;92ed ;5 defb 000h ;92ee ;6 defb 000h ;92ef ;7 defb 000h ;92f0 ; 8 defb 000h ;92f1 ;1 16 defb 000h ;92f2 ;2 defb 000h ;92f3 ;3 defb 01ch ;92f4 ;4 defb 008h ;92f5 ;5 defb 000h ;92f6 ;6 defb 000h ;92f7 ;7 defb 000h ;92f8 ; 8 defb 000h ;92f9 ;1 17 defb 000h ;92fa ;2 defb 000h ;92fb ;3 defb 01ch ;92fc ;4 defb 008h ;92fd ;5 defb 000h ;92fe ;6 defb 000h ;92ff ;7 defb 000h ;9300 ; 8 defb 023h ;9301 ;1 18 defb 000h ;9302 ;2 defb 000h ;9303 ;3 defb 01ch ;9304 ;4 defb 018h ;9305 ;5 defb 000h ;9306 ;6 defb 003h ;9307 ;7 defb 005h ;9308 ; 8 defb 028h ;9309 ;1 19 defb 029h ;930a ;2 defb 000h ;930b ;3 defb 01ch ;930c ;4 defb 00ah ;930d ;5 defb 000h ;930e ;6 defb 000h ;930f ;7 defb 000h ;9310 ; 8 defb 02ah ;9311 ;1 20 defb 000h ;9312 ;2 defb 000h ;9313 ;3 defb 01ah ;9314 ;4 defb 016h ;9315 ;5 defb 070h ;9316 ;6 defb 000h ;9317 ;7 defb 001h ;9318 ; 8 defb 026h ;9319 ;1 21 defb 000h ;931a ;2 defb 000h ;931b ;3 defb 011h ;931c ;4 defb 016h ;931d ;5 defb 060h ;931e ;6 defb 000h ;931f ;7 defb 001h ;9320 ; 8 defb 02dh ;9321 ;1 22 defb 000h ;9322 ;2 defb 000h ;9323 ;3 defb 018h ;9324 ;4 defb 016h ;9325 ;5 defb 07ch ;9326 ;6 defb 000h ;9327 ;7 defb 001h ;9328 ; 8 defb 02fh ;9329 ;1 23 defb 000h ;932a ;2 defb 000h ;932b ;3 defb 01ah ;932c ;4 defb 012h ;932d ;5 defb 070h ;932e ;6 defb 000h ;932f ;7 defb 001h ;9330 ; 8 defb 025h ;9331 ;1 24 defb 000h ;9332 ;2 defb 000h ;9333 ;3 defb 01ah ;9334 ;4 defb 012h ;9335 ;5 defb 060h ;9336 ;6 defb 000h ;9337 ;7 defb 001h ;9338 ; 8 defb 02bh ;9339 ;1 25 defb 000h ;933a ;2 defb 000h ;933b ;3 defb 018h ;933c ;4 defb 012h ;933d ;5 defb 074h ;933e ;6 defb 000h ;933f ;7 defb 001h ;9340 ; 8 defb 03eh ;9341 ;1 26 defb 03eh ;9342 ;2 defb 000h ;9343 ;3 defb 016h ;9344 ;4 defb 012h ;9345 ;5 defb 060h ;9346 ;6 defb 000h ;9347 ;7 defb 001h ;9348 ; 8 defb 03ch ;9349 ;1 27 defb 03ch ;934a ;2 defb 000h ;934b ;3 defb 016h ;934c ;4 defb 012h ;934d ;5 defb 060h ;934e ;6 defb 000h ;934f ;7 defb 001h ;9350 ; 8 defb 03ch ;9351 ;1 28 defb 000h ;9352 ;2 defb 000h ;9353 ;3 defb 014h ;9354 ;4 defb 012h ;9355 ;5 defb 0f8h ;9356 ;6 defb 010h ;9357 ;7 defb 006h ;9358 ; 8 defb 03eh ;9359 ;1 29 defb 000h ;935a ;2 defb 000h ;935b ;3 defb 014h ;935c ;4 defb 012h ;935d ;5 defb 0f8h ;935e ;6 defb 010h ;935f ;7 defb 006h ;9360 ; 8 defb 03ch ;9361 ;1 30 defb 03dh ;9362 ;2 defb 000h ;9363 ;3 defb 014h ;9364 ;4 defb 012h ;9365 ;5 defb 0f8h ;9366 ;6 defb 010h ;9367 ;7 defb 006h ;9368 ; 8 defb 03eh ;9369 ;1 31 defb 03dh ;936a ;2 defb 000h ;936b ;3 defb 014h ;936c ;4 defb 012h ;936d ;5 defb 0f8h ;936e ;6 defb 010h ;936f ;7 defb 006h ;9370 ; 8 defb 03dh ;9371 ;1 32 defb 03dh ;9372 ;2 defb 000h ;9373 ;3 defb 012h ;9374 ;4 defb 012h ;9375 ;5 defb 0f8h ;9376 ;6 defb 090h ;9377 ;7 defb 006h ;9378 ; 8 defb 021h ;9379 ;1 33 defb 03dh ;937a ;2 defb 000h ;937b ;3 defb 012h ;937c ;4 defb 012h ;937d ;5 defb 0f8h ;937e ;6 defb 090h ;937f ;7 defb 006h ;9380 ; 8 defb 05eh ;9381 ;1 34 defb 000h ;9382 ;2 defb 000h ;9383 ;3 defb 010h ;9384 ;4 defb 012h ;9385 ;5 defb 060h ;9386 ;6 defb 000h ;9387 ;7 defb 001h ;9388 ; 8 defb 07ch ;9389 ;1 35 defb 000h ;938a ;2 defb 000h ;938b ;3 defb 00fh ;938c ;4 defb 012h ;938d ;5 defb 060h ;938e ;6 defb 000h ;938f ;7 defb 001h ;9390 ; 8 defb 026h ;9391 ;1 36 defb 026h ;9392 ;2 defb 000h ;9393 ;3 defb 00eh ;9394 ;4 defb 002h ;9395 ;5 defb 003h ;9396 ;6 defb 000h ;9397 ;7 defb 006h ;9398 ; 8 defb 07ch ;9399 ;1 37 defb 07ch ;939a ;2 defb 000h ;939b ;3 defb 00dh ;939c ;4 defb 002h ;939d ;5 defb 003h ;939e ;6 defb 000h ;939f ;7 defb 006h ;93a0 ; 8 defb 03fh ;93a1 ;1 38 defb 000h ;93a2 ;2 defb 000h ;93a3 ;3 defb 00ch ;93a4 ;4 defb 01ah ;93a5 ;5 defb 002h ;93a6 ;6 defb 000h ;93a7 ;7 defb 002h ;93a8 ; 8 defb 03ah ;93a9 ;1 39 defb 000h ;93aa ;2 defb 000h ;93ab ;3 defb 00ch ;93ac ;4 defb 01ah ;93ad ;5 defb 0f8h ;93ae ;6 defb 012h ;93af ;7 defb 001h ;93b0 ; 8 defb 03dh ;93b1 ;1 40 defb 000h ;93b2 ;2 defb 000h ;93b3 ;3 defb 00ah ;93b4 ;4 defb 00ah ;93b5 ;5 defb 000h ;93b6 ;6 defb 026h ;93b7 ;7 defb 001h ;93b8 ; 8 defb 03dh ;93b9 ;1 41 defb 02bh ;93ba ;2 defb 000h ;93bb ;3 defb 00ah ;93bc ;4 defb 00ah ;93bd ;5 defb 034h ;93be ;6 defb 024h ;93bf ;7 defb 001h ;93c0 ; 8 defb 02bh ;93c1 ;1 42 defb 02bh ;93c2 ;2 defb 000h ;93c3 ;3 defb 000h ;93c4 ;4 defb 00ah ;93c5 ;5 defb 034h ;93c6 ;6 defb 024h ;93c7 ;7 defb 001h ;93c8 ; 8 defb 03dh ;93c9 ;1 43 defb 02dh ;93ca ;2 defb 000h ;93cb ;3 defb 00ah ;93cc ;4 defb 00ah ;93cd ;5 defb 034h ;93ce ;6 defb 024h ;93cf ;7 defb 001h ;93d0 ; 8 defb 02dh ;93d1 ;1 44 defb 02dh ;93d2 ;2 defb 000h ;93d3 ;3 defb 000h ;93d4 ;4 defb 00ah ;93d5 ;5 defb 034h ;93d6 ;6 defb 024h ;93d7 ;7 defb 001h ;93d8 ; 8 defb 03dh ;93d9 ;1 45 defb 02ah ;93da ;2 defb 000h ;93db ;3 defb 00ah ;93dc ;4 defb 00ah ;93dd ;5 defb 030h ;93de ;6 defb 024h ;93df ;7 defb 001h ;93e0 ; 8 defb 03dh ;93e1 ;1 46 defb 02fh ;93e2 ;2 defb 000h ;93e3 ;3 defb 00ah ;93e4 ;4 defb 00ah ;93e5 ;5 defb 030h ;93e6 ;6 defb 024h ;93e7 ;7 defb 001h ;93e8 ; 8 defb 03dh ;93e9 ;1 47 defb 025h ;93ea ;2 defb 000h ;93eb ;3 defb 00ah ;93ec ;4 defb 00ah ;93ed ;5 defb 020h ;93ee ;6 defb 024h ;93ef ;7 defb 001h ;93f0 ; 8 defb 03dh ;93f1 ;1 48 defb 03eh ;93f2 ;2 defb 03eh ;93f3 ;3 defb 00ah ;93f4 ;4 defb 00ah ;93f5 ;5 defb 020h ;93f6 ;6 defb 020h ;93f7 ;7 defb 001h ;93f8 ; 8 defb 03dh ;93f9 ;1 49 defb 03ch ;93fa ;2 defb 03ch ;93fb ;3 defb 00ah ;93fc ;4 defb 00ah ;93fd ;5 defb 020h ;93fe ;6 defb 020h ;93ff ;7 defb 001h ;9400 ; 8 defb 03dh ;9401 ;1 50 defb 026h ;9402 ;2 defb 000h ;9403 ;3 defb 00ah ;9404 ;4 defb 00ah ;9405 ;5 defb 020h ;9406 ;6 defb 024h ;9407 ;7 defb 001h ;9408 ; 8 defb 03dh ;9409 ;1 51 defb 05eh ;940a ;2 defb 000h ;940b ;3 defb 00ah ;940c ;4 defb 00ah ;940d ;5 defb 020h ;940e ;6 defb 024h ;940f ;7 defb 001h ;9410 ; 8 defb 03dh ;9411 ;1 52 defb 07ch ;9412 ;2 defb 000h ;9413 ;3 defb 00ah ;9414 ;4 defb 00ah ;9415 ;5 defb 020h ;9416 ;6 defb 024h ;9417 ;7 defb 001h ;9418 ; 8 defb 02ch ;9419 ;1 53 defb 000h ;941a ;2 defb 000h ;941b ;3 defb 007h ;941c ;4 defb 002h ;941d ;5 defb 000h ;941e ;6 defb 002h ;941f ;7 defb 007h ;9420 ; 8 defb 03bh ;9421 ;1 54 defb 000h ;9422 ;2 defb 000h ;9423 ;3 defb 007h ;9424 ;4 defb 002h ;9425 ;5 defb 000h ;9426 ;6 defb 002h ;9427 ;7 defb 002h ;9428 ; 8 defb 000h ;9429 ;1 55 defb 000h ;942a ;2 defb 000h ;942b ;3 defb 000h ;942c ;4 defb 001h ;942d ;5 defb 000h ;942e ;6 defb 000h ;942f ;7 defb 000h ;9430 ; 8 defb 000h ;9431 ;1 56 defb 000h ;9432 ;2 defb 000h ;9433 ;3 defb 000h ;9434 ;4 defb 011h ;9435 ;5 defb 000h ;9436 ;6 defb 000h ;9437 ;7 defb 000h ;9438 ; 8 defb 000h ;9439 ;1 57 defb 000h ;943a ;2 defb 000h ;943b ;3 defb 000h ;943c ;4 defb 011h ;943d ;5 defb 000h ;943e ;6 defb 000h ;943f ;7 defb 000h ;9440 ; 8 defb 000h ;9441 ;1 58 defb 000h ;9442 ;2 defb 000h ;9443 ;3 defb 000h ;9444 ;4 defb 011h ;9445 ;5 defb 000h ;9446 ;6 defb 000h ;9447 ;7 defb 000h ;9448 ; 8 defb 000h ;9449 ;1 59 defb 000h ;944a ;2 defb 000h ;944b ;3 defb 000h ;944c ;4 defb 011h ;944d ;5 defb 000h ;944e ;6 defb 000h ;944f ;7 defb 000h ;9450 ; 8 defb 02eh ;9451 ;1 60 defb 02eh ;9452 ;2 defb 000h ;9453 ;3 defb 000h ;9454 ;4 defb 000h ;9455 ;5 defb 000h ;9456 ;6 defb 000h ;9457 ;7 defb 000h ;9458 ; 8 defb 029h ;9459 ;1 61 defb 000h ;945a ;2 defb 000h ;945b ;3 defb 000h ;945c ;4 defb 000h ;945d ;5 defb 000h ;945e ;6 defb 002h ;945f ;7 defb 007h ;9460 ; 8 defb 024h ;9461 ;1 62 defb 055h ;9462 ;2 defb 000h ;9463 ;3 defb 000h ;9464 ;4 defb 000h ;9465 ;5 defb 000h ;9466 ;6 defb 002h ;9467 ;7 defb 007h ;9468 ; 8 defb 024h ;9469 ;1 63 defb 000h ;946a ;2 defb 000h ;946b ;3 defb 000h ;946c ;4 defb 002h ;946d ;5 defb 002h ;946e ;6 defb 000h ;946f ;7 defb 007h ;9470 ; 8 defb 02dh ;9471 ;1 64 defb 03eh ;9472 ;2 defb 000h ;9473 ;3 defb 000h ;9474 ;4 defb 012h ;9475 ;5 defb 080h ;9476 ;6 defb 008h ;9477 ;7 defb 002h ;9478 ; 8 defb 040h ;9479 ;1 65 defb 000h ;947a ;2 defb 000h ;947b ;3 defb 000h ;947c ;4 defb 002h ;947d ;5 defb 080h ;947e ;6 defb 004h ;947f ;7 defb 007h ;9480 ; 8 defb 000h ;9481 ;1 66 defb 000h ;9482 ;2 defb 000h ;9483 ;3 defb 000h ;9484 ;4 defb 001h ;9485 ;5 defb 000h ;9486 ;6 defb 000h ;9487 ;7 defb 000h ;9488 ; 8 defb 000h ;9489 ;1 67 defb 000h ;948a ;2 defb 000h ;948b ;3 defb 000h ;948c ;4 defb 011h ;948d ;5 defb 000h ;948e ;6 defb 000h ;948f ;7 defb 000h ;9490 ; 8 l9491h: defb 02dh ;9491 "-> %d `c\n" defb 03eh ;9492 defb 020h ;9493 defb 025h ;9494 defb 064h ;9495 defb 020h ;9496 defb 060h ;9497 defb 063h ;9498 defb 00ah ;9499 defb 000h ;949a l949bh: defb 03ah ;949b ":U ..\n" defb 055h ;949c defb 020h ;949d defb 02eh ;949e defb 02eh ;949f defb 00ah ;94a0 defb 000h ;94a1 l94a2h: defb 02eh ;94a2 "..\n" defb 02eh ;94a3 defb 00ah ;94a4 defb 000h ;94a5 l94a6h: defb 066h ;94a6 "function body" defb 075h ;94a7 defb 06eh ;94a8 defb 063h ;94a9 defb 074h ;94aa defb 069h ;94ab defb 06fh ;94ac defb 06eh ;94ad defb 020h ;94ae defb 062h ;94af defb 06fh ;94b0 defb 064h ;94b1 defb 079h ;94b2 defb 000h ;94b3 l94b4h: defb 069h ;94b4 "illegal initialisation" defb 06ch ;94b5 defb 06ch ;94b6 defb 065h ;94b7 defb 067h ;94b8 defb 061h ;94b9 defb 06ch ;94ba defb 020h ;94bb defb 069h ;94bc defb 06eh ;94bd defb 069h ;94be defb 074h ;94bf defb 069h ;94c0 defb 061h ;94c1 defb 06ch ;94c2 defb 069h ;94c3 defb 073h ;94c4 defb 061h ;94c5 defb 074h ;94c6 defb 069h ;94c7 defb 06fh ;94c8 defb 06eh ;94c9 defb 000h ;94ca l94cbh: defb 02ch ;94cb "," defb 000h ;94cc l94cdh: defb 03bh ;94cd ";" defb 000h ;94ce l94cfh: defb 05bh ;94cf "[i " defb 069h ;94d0 defb 020h ;94d1 defb 000h ;94d2 l94d3h: defb 069h ;94d3 "initialisation syntax" defb 06eh ;94d4 defb 069h ;94d5 defb 074h ;94d6 defb 069h ;94d7 defb 061h ;94d8 defb 06ch ;94d9 defb 069h ;94da defb 073h ;94db defb 061h ;94dc defb 074h ;94dd defb 069h ;94de defb 06fh ;94df defb 06eh ;94e0 defb 020h ;94e1 defb 073h ;94e2 defb 079h ;94e3 defb 06eh ;94e4 defb 074h ;94e5 defb 061h ;94e6 defb 078h ;94e7 defb 000h ;94e8 l94e9h: defb 05dh ;94e9 "]\n" defb 00ah ;94ea defb 000h ;94eb l94ech: defb 07bh ;94ec "{" defb 000h ;94ed l94eeh: defb 07dh ;94ee "}" defb 000h ;94ef l94f0h: defb 07dh ;94f0 "}" defb 000h ;94f1 l94f2h: defb 07dh ;94f2 "}" defb 000h ;94f3 l94f4h: defb 069h ;94f4 "illegal initialisation" defb 06ch ;94f5 defb 06ch ;94f6 defb 065h ;94f7 defb 067h ;94f8 defb 061h ;94f9 defb 06ch ;94fa defb 020h ;94fb defb 069h ;94fc defb 06eh ;94fd defb 069h ;94fe defb 074h ;94ff defb 069h ;9500 defb 061h ;9501 defb 06ch ;9502 defb 069h ;9503 defb 073h ;9504 defb 061h ;9505 defb 074h ;9506 defb 069h ;9507 defb 06fh ;9508 defb 06eh ;9509 defb 000h ;950a l950bh: defb 07bh ;950b "{" defb 000h ;950c l950dh: defb 069h ;950d "implicit return at end of non-void function" defb 06dh ;950e defb 070h ;950f defb 06ch ;9510 defb 069h ;9511 defb 063h ;9512 defb 069h ;9513 defb 074h ;9514 defb 020h ;9515 defb 072h ;9516 defb 065h ;9517 defb 074h ;9518 defb 075h ;9519 defb 072h ;951a defb 06eh ;951b defb 020h ;951c defb 061h ;951d defb 074h ;951e defb 020h ;951f defb 065h ;9520 defb 06eh ;9521 defb 064h ;9522 defb 020h ;9523 defb 06fh ;9524 defb 066h ;9525 defb 020h ;9526 defb 06eh ;9527 defb 06fh ;9528 defb 06eh ;9529 defb 02dh ;952a defb 076h ;952b defb 06fh ;952c defb 069h ;952d defb 064h ;952e defb 020h ;952f defb 066h ;9530 defb 075h ;9531 defb 06eh ;9532 defb 063h ;9533 defb 074h ;9534 defb 069h ;9535 defb 06fh ;9536 defb 06eh ;9537 defb 000h ;9538 l9539h: defb 055h ;9539 "Unreachable code" defb 06eh ;953a defb 072h ;953b defb 065h ;953c defb 061h ;953d defb 063h ;953e defb 068h ;953f defb 061h ;9540 defb 062h ;9541 defb 06ch ;9542 defb 065h ;9543 defb 020h ;9544 defb 063h ;9545 defb 06fh ;9546 defb 064h ;9547 defb 065h ;9548 defb 000h ;9549 l954ah: defb 069h ;954a "inappropriate 'else'" defb 06eh ;954b defb 061h ;954c defb 070h ;954d defb 070h ;954e defb 072h ;954f defb 06fh ;9550 defb 070h ;9551 defb 072h ;9552 defb 069h ;9553 defb 061h ;9554 defb 074h ;9555 defb 065h ;9556 defb 020h ;9557 defb 027h ;9558 defb 065h ;9559 defb 06ch ;955a defb 073h ;955b defb 065h ;955c defb 027h ;955d defb 000h ;955e l955fh: defb 03bh ;955f ";" defb 000h ;9560 l9561h: defb 028h ;9561 "(" defb 000h ;9562 l9563h: defb 073h ;9563 "string" defb 074h ;9564 defb 072h ;9565 defb 069h ;9566 defb 06eh ;9567 defb 067h ;9568 defb 000h ;9569 l956ah: defb 03bh ;956a ";; %s\n" defb 03bh ;956b defb 020h ;956c defb 025h ;956d defb 073h ;956e defb 00ah ;956f defb 000h ;9570 l9571h: defb 029h ;9571 ")" defb 000h ;9572 l9573h: defb 03bh ;9573 ";" defb 000h ;9574 l9575h: defb 028h ;9575 "(" defb 000h ;9576 l9577h: defb 029h ;9577 ")" defb 000h ;9578 l9579h: defb 077h ;9579 "while" defb 068h ;957a defb 069h ;957b defb 06ch ;957c defb 065h ;957d defb 000h ;957e l957fh: defb 028h ;957f "(" defb 000h ;9580 l9581h: defb 029h ;9581 ")" defb 000h ;9582 l9583h: defb 03bh ;9583 ";" defb 000h ;9584 l9585h: defb 028h ;9585 "(" defb 000h ;9586 l9587h: defb 029h ;9587 ")" defb 000h ;9588 l9589h: defb 028h ;9589 "(" defb 000h ;958a l958bh: defb 069h ;958b "illegal type for switch expression" defb 06ch ;958c defb 06ch ;958d defb 065h ;958e defb 067h ;958f defb 061h ;9590 defb 06ch ;9591 defb 020h ;9592 defb 074h ;9593 defb 079h ;9594 defb 070h ;9595 defb 065h ;9596 defb 020h ;9597 defb 066h ;9598 defb 06fh ;9599 defb 072h ;959a defb 020h ;959b defb 073h ;959c defb 077h ;959d defb 069h ;959e defb 074h ;959f defb 063h ;95a0 defb 068h ;95a1 defb 020h ;95a2 defb 065h ;95a3 defb 078h ;95a4 defb 070h ;95a5 defb 072h ;95a6 defb 065h ;95a7 defb 073h ;95a8 defb 073h ;95a9 defb 069h ;95aa defb 06fh ;95ab defb 06eh ;95ac defb 000h ;95ad l95aeh: defb 029h ;95ae ")" defb 000h ;95af l95b0h: defb 028h ;95b0 "(" defb 000h ;95b1 l95b2h: defb 03bh ;95b2 ";" defb 000h ;95b3 l95b4h: defb 03bh ;95b4 ";" defb 000h ;95b5 l95b6h: defb 029h ;95b6 ")" defb 000h ;95b7 l95b8h: defb 069h ;95b8 "inappropriate break/continue" defb 06eh ;95b9 defb 061h ;95ba defb 070h ;95bb defb 070h ;95bc defb 072h ;95bd defb 06fh ;95be defb 070h ;95bf defb 072h ;95c0 defb 069h ;95c1 defb 061h ;95c2 defb 074h ;95c3 defb 065h ;95c4 defb 020h ;95c5 defb 062h ;95c6 defb 072h ;95c7 defb 065h ;95c8 defb 061h ;95c9 defb 06bh ;95ca defb 02fh ;95cb defb 063h ;95cc defb 06fh ;95cd defb 06eh ;95ce defb 074h ;95cf defb 069h ;95d0 defb 06eh ;95d1 defb 075h ;95d2 defb 065h ;95d3 defb 000h ;95d4 l95d5h: defb 03bh ;95d5 ";" defb 000h ;95d6 l95d7h: defb 03ah ;95d7 ":" defb 000h ;95d8 l95d9h: defb 064h ;95d9 "default case redefined" defb 065h ;95da defb 066h ;95db defb 061h ;95dc defb 075h ;95dd defb 06ch ;95de defb 074h ;95df defb 020h ;95e0 defb 063h ;95e1 defb 061h ;95e2 defb 073h ;95e3 defb 065h ;95e4 defb 020h ;95e5 defb 072h ;95e6 defb 065h ;95e7 defb 064h ;95e8 defb 065h ;95e9 defb 066h ;95ea defb 069h ;95eb defb 06eh ;95ec defb 065h ;95ed defb 064h ;95ee defb 000h ;95ef l95f0h: defb 027h ;95f0 "'default' not in switch" defb 064h ;95f1 defb 065h ;95f2 defb 066h ;95f3 defb 061h ;95f4 defb 075h ;95f5 defb 06ch ;95f6 defb 074h ;95f7 defb 027h ;95f8 defb 020h ;95f9 defb 06eh ;95fa defb 06fh ;95fb defb 074h ;95fc defb 020h ;95fd defb 069h ;95fe defb 06eh ;95ff defb 020h ;9600 defb 073h ;9601 defb 077h ;9602 defb 069h ;9603 defb 074h ;9604 defb 063h ;9605 defb 068h ;9606 defb 000h ;9607 l9608h: defb 03ah ;9608 ":" defb 000h ;9609 l960ah: defb 054h ;960a "Too many cases in switch" defb 06fh ;960b defb 06fh ;960c defb 020h ;960d defb 06dh ;960e defb 061h ;960f defb 06eh ;9610 defb 079h ;9611 defb 020h ;9612 defb 063h ;9613 defb 061h ;9614 defb 073h ;9615 defb 065h ;9616 defb 073h ;9617 defb 020h ;9618 defb 069h ;9619 defb 06eh ;961a defb 020h ;961b defb 073h ;961c defb 077h ;961d defb 069h ;961e defb 074h ;961f defb 063h ;9620 defb 068h ;9621 defb 000h ;9622 l9623h: defb 027h ;9623 "'case' not in switch" defb 063h ;9624 defb 061h ;9625 defb 073h ;9626 defb 065h ;9627 defb 027h ;9628 defb 020h ;9629 defb 06eh ;962a defb 06fh ;962b defb 074h ;962c defb 020h ;962d defb 069h ;962e defb 06eh ;962f defb 020h ;9630 defb 073h ;9631 defb 077h ;9632 defb 069h ;9633 defb 074h ;9634 defb 063h ;9635 defb 068h ;9636 defb 000h ;9637 l9638h: defb 03bh ;9638 ";" defb 000h ;9639 l963ah: defb 06eh ;963a "non-void function returns no value" defb 06fh ;963b defb 06eh ;963c defb 02dh ;963d defb 076h ;963e defb 06fh ;963f defb 069h ;9640 defb 064h ;9641 defb 020h ;9642 defb 066h ;9643 defb 075h ;9644 defb 06eh ;9645 defb 063h ;9646 defb 074h ;9647 defb 069h ;9648 defb 06fh ;9649 defb 06eh ;964a defb 020h ;964b defb 072h ;964c defb 065h ;964d defb 074h ;964e defb 075h ;964f defb 072h ;9650 defb 06eh ;9651 defb 073h ;9652 defb 020h ;9653 defb 06eh ;9654 defb 06fh ;9655 defb 020h ;9656 defb 076h ;9657 defb 061h ;9658 defb 06ch ;9659 defb 075h ;965a defb 065h ;965b defb 000h ;965c l965dh: defb 06ch ;965d "label identifier" defb 061h ;965e defb 062h ;965f defb 065h ;9660 defb 06ch ;9661 defb 020h ;9662 defb 069h ;9663 defb 064h ;9664 defb 065h ;9665 defb 06eh ;9666 defb 074h ;9667 defb 069h ;9668 defb 066h ;9669 defb 069h ;966a defb 065h ;966b defb 072h ;966c defb 000h ;966d l966eh: defb 03bh ;966e ";" defb 000h ;966f l9670h: defb 06eh ;9670 "not a label identifier: %s" defb 06fh ;9671 defb 074h ;9672 defb 020h ;9673 defb 061h ;9674 defb 020h ;9675 defb 06ch ;9676 defb 061h ;9677 defb 062h ;9678 defb 065h ;9679 defb 06ch ;967a defb 020h ;967b defb 069h ;967c defb 064h ;967d defb 065h ;967e defb 06eh ;967f defb 074h ;9680 defb 069h ;9681 defb 066h ;9682 defb 069h ;9683 defb 065h ;9684 defb 072h ;9685 defb 03ah ;9686 defb 020h ;9687 defb 025h ;9688 defb 073h ;9689 defb 000h ;968a byte_968b: defb 000h ;968b word_968c: defb 000h ;968c defb 000h ;968d word_968e: defb 000h ;968e defb 000h ;968f l9690h: defb 025h ;9690 "%s %d\n" defb 073h ;9691 defb 020h ;9692 defb 025h ;9693 defb 064h ;9694 defb 00ah ;9695 defb 000h ;9696 l9697h: defb 073h ;9697 "storage class" defb 074h ;9698 defb 06fh ;9699 defb 072h ;969a defb 061h ;969b defb 067h ;969c defb 065h ;969d defb 020h ;969e defb 063h ;969f defb 06ch ;96a0 defb 061h ;96a1 defb 073h ;96a2 defb 073h ;96a3 defb 000h ;96a4 l96a5h: defb 074h ;96a5 "type" defb 079h ;96a6 defb 070h ;96a7 defb 065h ;96a8 defb 000h ;96a9 l96aah: defb 061h ;96aa "arguments" defb 072h ;96ab defb 067h ;96ac defb 075h ;96ad defb 06dh ;96ae defb 065h ;96af defb 06eh ;96b0 defb 074h ;96b1 defb 073h ;96b2 defb 000h ;96b3 l96b4h: defb 06eh ;96b4 "no. of arguments" defb 06fh ;96b5 defb 02eh ;96b6 defb 020h ;96b7 defb 06fh ;96b8 defb 066h ;96b9 defb 020h ;96ba defb 061h ;96bb defb 072h ;96bc defb 067h ;96bd defb 075h ;96be defb 06dh ;96bf defb 065h ;96c0 defb 06eh ;96c1 defb 074h ;96c2 defb 073h ;96c3 defb 000h ;96c4 l96c5h: defb 061h ;96c5 "arguments" defb 072h ;96c6 defb 067h ;96c7 defb 075h ;96c8 defb 06dh ;96c9 defb 065h ;96ca defb 06eh ;96cb defb 074h ;96cc defb 073h ;96cd defb 000h ;96ce l96cfh: defb 025h ;96cf "%s: %s redeclared" defb 073h ;96d0 defb 03ah ;96d1 defb 020h ;96d2 defb 025h ;96d3 defb 073h ;96d4 defb 020h ;96d5 defb 072h ;96d6 defb 065h ;96d7 defb 064h ;96d8 defb 065h ;96d9 defb 063h ;96da defb 06ch ;96db defb 061h ;96dc defb 072h ;96dd defb 065h ;96de defb 064h ;96df defb 000h ;96e0 l96e1h: defb 069h ;96e1 "identifier redefined: %s" defb 064h ;96e2 defb 065h ;96e3 defb 06eh ;96e4 defb 074h ;96e5 defb 069h ;96e6 defb 066h ;96e7 defb 069h ;96e8 defb 065h ;96e9 defb 072h ;96ea defb 020h ;96eb defb 072h ;96ec defb 065h ;96ed defb 064h ;96ee defb 065h ;96ef defb 066h ;96f0 defb 069h ;96f1 defb 06eh ;96f2 defb 065h ;96f3 defb 064h ;96f4 defb 03ah ;96f5 defb 020h ;96f6 defb 025h ;96f7 defb 073h ;96f8 defb 000h ;96f9 l96fah: defb 023h ;96fa "#%s %d\n" defb 025h ;96fb defb 073h ;96fc defb 020h ;96fd defb 025h ;96fe defb 064h ;96ff defb 00ah ;9700 defb 000h ;9701 l9702h: defb 061h ;9702 "argument list conflicts with prototype" defb 072h ;9703 defb 067h ;9704 defb 075h ;9705 defb 06dh ;9706 defb 065h ;9707 defb 06eh ;9708 defb 074h ;9709 defb 020h ;970a defb 06ch ;970b defb 069h ;970c defb 073h ;970d defb 074h ;970e defb 020h ;970f defb 063h ;9710 defb 06fh ;9711 defb 06eh ;9712 defb 066h ;9713 defb 06ch ;9714 defb 069h ;9715 defb 063h ;9716 defb 074h ;9717 defb 073h ;9718 defb 020h ;9719 defb 077h ;971a defb 069h ;971b defb 074h ;971c defb 068h ;971d defb 020h ;971e defb 070h ;971f defb 072h ;9720 defb 06fh ;9721 defb 074h ;9722 defb 06fh ;9723 defb 074h ;9724 defb 079h ;9725 defb 070h ;9726 defb 065h ;9727 defb 000h ;9728 l9729h: defb 06ch ;9729 "label" defb 061h ;972a defb 062h ;972b defb 065h ;972c defb 06ch ;972d defb 000h ;972e l972fh: defb 076h ;972f "variable" defb 061h ;9730 defb 072h ;9731 defb 069h ;9732 defb 061h ;9733 defb 062h ;9734 defb 06ch ;9735 defb 065h ;9736 defb 000h ;9737 l9738h: defb 075h ;9738 "undefined %s: %s" defb 06eh ;9739 defb 064h ;973a defb 065h ;973b defb 066h ;973c defb 069h ;973d defb 06eh ;973e defb 065h ;973f defb 064h ;9740 defb 020h ;9741 defb 025h ;9742 defb 073h ;9743 defb 03ah ;9744 defb 020h ;9745 defb 025h ;9746 defb 073h ;9747 defb 000h ;9748 l9749h: defb 06ch ;9749 "label" defb 061h ;974a defb 062h ;974b defb 065h ;974c defb 06ch ;974d defb 000h ;974e l974fh: defb 073h ;974f "structure" defb 074h ;9750 defb 072h ;9751 defb 075h ;9752 defb 063h ;9753 defb 074h ;9754 defb 075h ;9755 defb 072h ;9756 defb 065h ;9757 defb 000h ;9758 l9759h: defb 075h ;9759 "union" defb 06eh ;975a defb 069h ;975b defb 06fh ;975c defb 06eh ;975d defb 000h ;975e l975fh: defb 06dh ;975f "member" defb 065h ;9760 defb 06dh ;9761 defb 062h ;9762 defb 065h ;9763 defb 072h ;9764 defb 000h ;9765 l9766h: defb 065h ;9766 "enum" defb 06eh ;9767 defb 075h ;9768 defb 06dh ;9769 defb 000h ;976a l976bh: defb 063h ;976b "constant" defb 06fh ;976c defb 06eh ;976d defb 073h ;976e defb 074h ;976f defb 061h ;9770 defb 06eh ;9771 defb 074h ;9772 defb 000h ;9773 l9774h: defb 074h ;9774 "typedef" defb 079h ;9775 defb 070h ;9776 defb 065h ;9777 defb 064h ;9778 defb 065h ;9779 defb 066h ;977a defb 000h ;977b l977ch: defb 076h ;977c "variable definition" defb 061h ;977d defb 072h ;977e defb 069h ;977f defb 061h ;9780 defb 062h ;9781 defb 06ch ;9782 defb 065h ;9783 defb 020h ;9784 defb 064h ;9785 defb 065h ;9786 defb 066h ;9787 defb 069h ;9788 defb 06eh ;9789 defb 069h ;978a defb 074h ;978b defb 069h ;978c defb 06fh ;978d defb 06eh ;978e defb 000h ;978f l9790h: defb 076h ;9790 "variable declaration" defb 061h ;9791 defb 072h ;9792 defb 069h ;9793 defb 061h ;9794 defb 062h ;9795 defb 06ch ;9796 defb 065h ;9797 defb 020h ;9798 defb 064h ;9799 defb 065h ;979a defb 063h ;979b defb 06ch ;979c defb 061h ;979d defb 072h ;979e defb 061h ;979f defb 074h ;97a0 defb 069h ;97a1 defb 06fh ;97a2 defb 06eh ;97a3 defb 000h ;97a4 l97a5h: defb 075h ;97a5 "unused %s: %s" defb 06eh ;97a6 defb 075h ;97a7 defb 073h ;97a8 defb 065h ;97a9 defb 064h ;97aa defb 020h ;97ab defb 025h ;97ac defb 073h ;97ad defb 03ah ;97ae defb 020h ;97af defb 025h ;97b0 defb 073h ;97b1 defb 000h ;97b2 l97b3h: defb 025h ;97b3 defb 073h ;97b4 defb 020h ;97b5 defb 069h ;97b6 defb 073h ;97b7 defb 020h ;97b8 defb 06eh ;97b9 defb 06fh ;97ba defb 074h ;97bb defb 020h ;97bc defb 061h ;97bd defb 020h ;97be defb 06dh ;97bf defb 065h ;97c0 defb 06dh ;97c1 defb 062h ;97c2 defb 065h ;97c3 defb 072h ;97c4 defb 020h ;97c5 defb 06fh ;97c6 defb 066h ;97c7 defb 020h ;97c8 defb 074h ;97c9 defb 068h ;97ca defb 065h ;97cb defb 020h ;97cc defb 073h ;97cd defb 074h ;97ce defb 072h ;97cf defb 075h ;97d0 defb 063h ;97d1 defb 074h ;97d2 defb 02fh ;97d3 defb 075h ;97d4 defb 06eh ;97d5 defb 069h ;97d6 defb 06fh ;97d7 defb 06eh ;97d8 defb 020h ;97d9 defb 025h ;97da defb 073h ;97db defb 000h ;97dc l97ddh: defb 046h ;97dd "F%d" defb 025h ;97de defb 064h ;97df defb 000h ;97e0 l97e1h: defb 05fh ;97e1 "_%s" defb 025h ;97e2 defb 073h ;97e3 defb 000h ;97e4 l97e5h: defb 066h ;97e5 "functions can't return arrays" defb 075h ;97e6 defb 06eh ;97e7 defb 063h ;97e8 defb 074h ;97e9 defb 069h ;97ea defb 06fh ;97eb defb 06eh ;97ec defb 073h ;97ed defb 020h ;97ee defb 063h ;97ef defb 061h ;97f0 defb 06eh ;97f1 defb 027h ;97f2 defb 074h ;97f3 defb 020h ;97f4 defb 072h ;97f5 defb 065h ;97f6 defb 074h ;97f7 defb 075h ;97f8 defb 072h ;97f9 defb 06eh ;97fa defb 020h ;97fb defb 061h ;97fc defb 072h ;97fd defb 072h ;97fe defb 061h ;97ff defb 079h ;9800 defb 073h ;9801 defb 000h ;9802 l9803h: defb 03fh ;9803 "?bcsilxfd?v" defb 062h ;9804 defb 063h ;9805 defb 073h ;9806 defb 069h ;9807 defb 06ch ;9808 defb 078h ;9809 defb 066h ;980a defb 064h ;980b defb 03fh ;980c defb 076h ;980d defb 000h ;980e l980fh: defb 074h ;980f "too much indirection" defb 06fh ;9810 defb 06fh ;9811 defb 020h ;9812 defb 06dh ;9813 defb 075h ;9814 defb 063h ;9815 defb 068h ;9816 defb 020h ;9817 defb 069h ;9818 defb 06eh ;9819 defb 064h ;981a defb 069h ;981b defb 072h ;981c defb 065h ;981d defb 063h ;981e defb 074h ;981f defb 069h ;9820 defb 06fh ;9821 defb 06eh ;9822 defb 000h ;9823 l9824h: defb 06fh ;9824 "only register storage class allowed" defb 06eh ;9825 defb 06ch ;9826 defb 079h ;9827 defb 020h ;9828 defb 072h ;9829 defb 065h ;982a defb 067h ;982b defb 069h ;982c defb 073h ;982d defb 074h ;982e defb 065h ;982f defb 072h ;9830 defb 020h ;9831 defb 073h ;9832 defb 074h ;9833 defb 06fh ;9834 defb 072h ;9835 defb 061h ;9836 defb 067h ;9837 defb 065h ;9838 defb 020h ;9839 defb 063h ;983a defb 06ch ;983b defb 061h ;983c defb 073h ;983d defb 073h ;983e defb 020h ;983f defb 061h ;9840 defb 06ch ;9841 defb 06ch ;9842 defb 06fh ;9843 defb 077h ;9844 defb 065h ;9845 defb 064h ;9846 defb 000h ;9847 l9848h: defb 069h ;9848 "illegal initialisation" defb 06ch ;9849 defb 06ch ;984a defb 065h ;984b defb 067h ;984c defb 061h ;984d defb 06ch ;984e defb 020h ;984f defb 069h ;9850 defb 06eh ;9851 defb 069h ;9852 defb 074h ;9853 defb 069h ;9854 defb 061h ;9855 defb 06ch ;9856 defb 069h ;9857 defb 073h ;9858 defb 061h ;9859 defb 074h ;985a defb 069h ;985b defb 06fh ;985c defb 06eh ;985d defb 000h ;985e l985fh: defb 02ch ;985f "," defb 000h ;9860 l9861h: defb 03bh ;9861 ";" defb 000h ;9862 l9863h: defb 073h ;9863 "storage class illegal" defb 074h ;9864 defb 06fh ;9865 defb 072h ;9866 defb 061h ;9867 defb 067h ;9868 defb 065h ;9869 defb 020h ;986a defb 063h ;986b defb 06ch ;986c defb 061h ;986d defb 073h ;986e defb 073h ;986f defb 020h ;9870 defb 069h ;9871 defb 06ch ;9872 defb 06ch ;9873 defb 065h ;9874 defb 067h ;9875 defb 061h ;9876 defb 06ch ;9877 defb 000h ;9878 l9879h: defb 062h ;9879 "bad storage class" defb 061h ;987a defb 064h ;987b defb 020h ;987c defb 073h ;987d defb 074h ;987e defb 06fh ;987f defb 072h ;9880 defb 061h ;9881 defb 067h ;9882 defb 065h ;9883 defb 020h ;9884 defb 063h ;9885 defb 06ch ;9886 defb 061h ;9887 defb 073h ;9888 defb 073h ;9889 defb 000h ;988a l988bh: defb 069h ;988b "inconsistent storage class" defb 06eh ;988c defb 063h ;988d defb 06fh ;988e defb 06eh ;988f defb 073h ;9890 defb 069h ;9891 defb 073h ;9892 defb 074h ;9893 defb 065h ;9894 defb 06eh ;9895 defb 074h ;9896 defb 020h ;9897 defb 073h ;9898 defb 074h ;9899 defb 06fh ;989a defb 072h ;989b defb 061h ;989c defb 067h ;989d defb 065h ;989e defb 020h ;989f defb 063h ;98a0 defb 06ch ;98a1 defb 061h ;98a2 defb 073h ;98a3 defb 073h ;98a4 defb 000h ;98a5 l98a6h: defb 069h ;98a6 "inconsistent type" defb 06eh ;98a7 defb 063h ;98a8 defb 06fh ;98a9 defb 06eh ;98aa defb 073h ;98ab defb 069h ;98ac defb 073h ;98ad defb 074h ;98ae defb 065h ;98af defb 06eh ;98b0 defb 074h ;98b1 defb 020h ;98b2 defb 074h ;98b3 defb 079h ;98b4 defb 070h ;98b5 defb 065h ;98b6 defb 000h ;98b7 l98b8h: defb 063h ;98b8 "can't be register" defb 061h ;98b9 defb 06eh ;98ba defb 027h ;98bb defb 074h ;98bc defb 020h ;98bd defb 062h ;98be defb 065h ;98bf defb 020h ;98c0 defb 072h ;98c1 defb 065h ;98c2 defb 067h ;98c3 defb 069h ;98c4 defb 073h ;98c5 defb 074h ;98c6 defb 065h ;98c7 defb 072h ;98c8 defb 000h ;98c9 l98cah: defb 063h ;98ca "can't be long" defb 061h ;98cb defb 06eh ;98cc defb 027h ;98cd defb 074h ;98ce defb 020h ;98cf defb 062h ;98d0 defb 065h ;98d1 defb 020h ;98d2 defb 06ch ;98d3 defb 06fh ;98d4 defb 06eh ;98d5 defb 067h ;98d6 defb 000h ;98d7 l98d8h: defb 063h ;98d8 defb 061h ;98d9 defb 06eh ;98da defb 027h ;98db defb 074h ;98dc defb 020h ;98dd defb 062h ;98de defb 065h ;98df defb 020h ;98e0 defb 073h ;98e1 defb 068h ;98e2 defb 06fh ;98e3 defb 072h ;98e4 defb 074h ;98e5 defb 000h ;98e6 l98e7h: defb 063h ;98e7 defb 061h ;98e8 defb 06eh ;98e9 defb 027h ;98ea defb 074h ;98eb defb 020h ;98ec defb 062h ;98ed defb 065h ;98ee defb 020h ;98ef defb 075h ;98f0 defb 06eh ;98f1 defb 073h ;98f2 defb 069h ;98f3 defb 067h ;98f4 defb 06eh ;98f5 defb 065h ;98f6 defb 064h ;98f7 defb 000h ;98f8 l98f9h: defb 073h ;98f9 defb 074h ;98fa defb 072h ;98fb defb 075h ;98fc defb 063h ;98fd defb 074h ;98fe defb 02fh ;98ff defb 075h ;9900 defb 06eh ;9901 defb 069h ;9902 defb 06fh ;9903 defb 06eh ;9904 defb 020h ;9905 defb 074h ;9906 defb 061h ;9907 defb 067h ;9908 defb 020h ;9909 defb 06fh ;990a defb 072h ;990b defb 020h ;990c defb 027h ;990d defb 07bh ;990e defb 027h ;990f defb 000h ;9910 l9911h: defb 073h ;9911 defb 074h ;9912 defb 072h ;9913 defb 075h ;9914 defb 063h ;9915 defb 074h ;9916 defb 02fh ;9917 defb 075h ;9918 defb 06eh ;9919 defb 069h ;991a defb 06fh ;991b defb 06eh ;991c defb 020h ;991d defb 072h ;991e defb 065h ;991f defb 064h ;9920 defb 065h ;9921 defb 066h ;9922 defb 069h ;9923 defb 06eh ;9924 defb 065h ;9925 defb 064h ;9926 defb 03ah ;9927 defb 020h ;9928 defb 025h ;9929 defb 073h ;992a defb 000h ;992b l992ch: defb 06dh ;992c defb 065h ;992d defb 06dh ;992e defb 062h ;992f defb 065h ;9930 defb 072h ;9931 defb 073h ;9932 defb 020h ;9933 defb 063h ;9934 defb 061h ;9935 defb 06eh ;9936 defb 06eh ;9937 defb 06fh ;9938 defb 074h ;9939 defb 020h ;993a defb 062h ;993b defb 065h ;993c defb 020h ;993d defb 066h ;993e defb 075h ;993f defb 06eh ;9940 defb 063h ;9941 defb 074h ;9942 defb 069h ;9943 defb 06fh ;9944 defb 06eh ;9945 defb 073h ;9946 defb 000h ;9947 l9948h: defb 062h ;9948 defb 061h ;9949 defb 064h ;994a defb 020h ;994b defb 062h ;994c defb 069h ;994d defb 074h ;994e defb 066h ;994f defb 069h ;9950 defb 065h ;9951 defb 06ch ;9952 defb 064h ;9953 defb 020h ;9954 defb 074h ;9955 defb 079h ;9956 defb 070h ;9957 defb 065h ;9958 defb 000h ;9959 l995ah: defb 069h ;995a defb 06eh ;995b defb 074h ;995c defb 065h ;995d defb 067h ;995e defb 065h ;995f defb 072h ;9960 defb 020h ;9961 defb 063h ;9962 defb 06fh ;9963 defb 06eh ;9964 defb 073h ;9965 defb 074h ;9966 defb 061h ;9967 defb 06eh ;9968 defb 074h ;9969 defb 020h ;996a defb 065h ;996b defb 078h ;996c defb 070h ;996d defb 065h ;996e defb 063h ;996f defb 074h ;9970 defb 065h ;9971 defb 064h ;9972 defb 000h ;9973 l9974h: defb 03bh ;9974 defb 000h ;9975 l9976h: defb 075h ;9976 defb 06eh ;9977 defb 064h ;9978 defb 065h ;9979 defb 066h ;997a defb 069h ;997b defb 06eh ;997c defb 065h ;997d defb 064h ;997e defb 020h ;997f defb 065h ;9980 defb 06eh ;9981 defb 075h ;9982 defb 06dh ;9983 defb 020h ;9984 defb 074h ;9985 defb 061h ;9986 defb 067h ;9987 defb 03ah ;9988 defb 020h ;9989 defb 025h ;998a defb 073h ;998b defb 000h ;998c l998dh: defb 065h ;998d defb 06eh ;998e defb 075h ;998f defb 06dh ;9990 defb 020h ;9991 defb 074h ;9992 defb 061h ;9993 defb 067h ;9994 defb 020h ;9995 defb 06fh ;9996 defb 072h ;9997 defb 020h ;9998 defb 07bh ;9999 defb 000h ;999a l999bh: defb 05bh ;999b defb 063h ;999c defb 020h ;999d defb 000h ;999e l999fh: defb 069h ;999f defb 064h ;99a0 defb 065h ;99a1 defb 06eh ;99a2 defb 074h ;99a3 defb 069h ;99a4 defb 066h ;99a5 defb 069h ;99a6 defb 065h ;99a7 defb 072h ;99a8 defb 000h ;99a9 l99aah: defb 069h ;99aa defb 06eh ;99ab defb 074h ;99ac defb 065h ;99ad defb 067h ;99ae defb 065h ;99af defb 072h ;99b0 defb 020h ;99b1 defb 065h ;99b2 defb 078h ;99b3 defb 070h ;99b4 defb 072h ;99b5 defb 065h ;99b6 defb 073h ;99b7 defb 073h ;99b8 defb 069h ;99b9 defb 06fh ;99ba defb 06eh ;99bb defb 020h ;99bc defb 072h ;99bd defb 065h ;99be defb 071h ;99bf defb 075h ;99c0 defb 069h ;99c1 defb 072h ;99c2 defb 065h ;99c3 defb 064h ;99c4 defb 000h ;99c5 l99c6h: defb 02eh ;99c6 defb 02eh ;99c7 defb 020h ;99c8 defb 05dh ;99c9 defb 00ah ;99ca defb 000h ;99cb l99cch: defb 07dh ;99cc defb 000h ;99cd l99ceh: defb 063h ;99ce defb 061h ;99cf defb 06eh ;99d0 defb 027h ;99d1 defb 074h ;99d2 defb 020h ;99d3 defb 069h ;99d4 defb 06eh ;99d5 defb 069h ;99d6 defb 074h ;99d7 defb 069h ;99d8 defb 061h ;99d9 defb 06ch ;99da defb 069h ;99db defb 073h ;99dc defb 065h ;99dd defb 020h ;99de defb 061h ;99df defb 075h ;99e0 defb 074h ;99e1 defb 06fh ;99e2 defb 020h ;99e3 defb 061h ;99e4 defb 067h ;99e5 defb 067h ;99e6 defb 072h ;99e7 defb 065h ;99e8 defb 067h ;99e9 defb 061h ;99ea defb 074h ;99eb defb 065h ;99ec defb 073h ;99ed defb 000h ;99ee l99efh: defb 07dh ;99ef defb 000h ;99f0 l99f1h: defb 074h ;99f1 defb 079h ;99f2 defb 070h ;99f3 defb 065h ;99f4 defb 020h ;99f5 defb 073h ;99f6 defb 070h ;99f7 defb 065h ;99f8 defb 063h ;99f9 defb 069h ;99fa defb 066h ;99fb defb 069h ;99fc defb 065h ;99fd defb 072h ;99fe defb 020h ;99ff defb 072h ;9a00 defb 065h ;9a01 defb 071h ;9a02 defb 064h ;9a03 defb 02eh ;9a04 defb 020h ;9a05 defb 066h ;9a06 defb 06fh ;9a07 defb 072h ;9a08 defb 020h ;9a09 defb 070h ;9a0a defb 072h ;9a0b defb 06fh ;9a0c defb 074h ;9a0d defb 06fh ;9a0e defb 020h ;9a0f defb 061h ;9a10 defb 072h ;9a11 defb 067h ;9a12 defb 000h ;9a13 l9a14h: defb 063h ;9a14 defb 061h ;9a15 defb 06eh ;9a16 defb 027h ;9a17 defb 074h ;9a18 defb 020h ;9a19 defb 06dh ;9a1a defb 069h ;9a1b defb 078h ;9a1c defb 020h ;9a1d defb 070h ;9a1e defb 072h ;9a1f defb 06fh ;9a20 defb 074h ;9a21 defb 06fh ;9a22 defb 020h ;9a23 defb 061h ;9a24 defb 06eh ;9a25 defb 064h ;9a26 defb 020h ;9a27 defb 06eh ;9a28 defb 06fh ;9a29 defb 06eh ;9a2a defb 02dh ;9a2b defb 070h ;9a2c defb 072h ;9a2d defb 06fh ;9a2e defb 074h ;9a2f defb 06fh ;9a30 defb 020h ;9a31 defb 061h ;9a32 defb 072h ;9a33 defb 067h ;9a34 defb 073h ;9a35 defb 000h ;9a36 l9a37h: defb 062h ;9a37 defb 061h ;9a38 defb 064h ;9a39 defb 020h ;9a3a defb 073h ;9a3b defb 074h ;9a3c defb 06fh ;9a3d defb 072h ;9a3e defb 061h ;9a3f defb 067h ;9a40 defb 065h ;9a41 defb 020h ;9a42 defb 063h ;9a43 defb 06ch ;9a44 defb 061h ;9a45 defb 073h ;9a46 defb 073h ;9a47 defb 000h ;9a48 l9a49h: defb 061h ;9a49 defb 072h ;9a4a defb 067h ;9a4b defb 075h ;9a4c defb 06dh ;9a4d defb 065h ;9a4e defb 06eh ;9a4f defb 074h ;9a50 defb 020h ;9a51 defb 072h ;9a52 defb 065h ;9a53 defb 064h ;9a54 defb 065h ;9a55 defb 063h ;9a56 defb 06ch ;9a57 defb 061h ;9a58 defb 072h ;9a59 defb 065h ;9a5a defb 064h ;9a5b defb 03ah ;9a5c defb 020h ;9a5d defb 025h ;9a5e defb 073h ;9a5f defb 000h ;9a60 l9a61h: defb 063h ;9a61 defb 061h ;9a62 defb 06eh ;9a63 defb 027h ;9a64 defb 074h ;9a65 defb 020h ;9a66 defb 069h ;9a67 defb 06eh ;9a68 defb 069h ;9a69 defb 074h ;9a6a defb 069h ;9a6b defb 061h ;9a6c defb 06ch ;9a6d defb 069h ;9a6e defb 07ah ;9a6f defb 065h ;9a70 defb 020h ;9a71 defb 061h ;9a72 defb 072h ;9a73 defb 067h ;9a74 defb 000h ;9a75 l9a76h: defb 02ch ;9a76 defb 000h ;9a77 l9a78h: defb 029h ;9a78 defb 000h ;9a79 l9a7ah: defb 06eh ;9a7a defb 06fh ;9a7b defb 020h ;9a7c defb 069h ;9a7d defb 064h ;9a7e defb 065h ;9a7f defb 06eh ;9a80 defb 074h ;9a81 defb 069h ;9a82 defb 066h ;9a83 defb 069h ;9a84 defb 065h ;9a85 defb 072h ;9a86 defb 020h ;9a87 defb 069h ;9a88 defb 06eh ;9a89 defb 020h ;9a8a defb 064h ;9a8b defb 065h ;9a8c defb 063h ;9a8d defb 06ch ;9a8e defb 061h ;9a8f defb 072h ;9a90 defb 061h ;9a91 defb 074h ;9a92 defb 069h ;9a93 defb 06fh ;9a94 defb 06eh ;9a95 defb 000h ;9a96 l9a97h: defb 064h ;9a97 defb 065h ;9a98 defb 063h ;9a99 defb 06ch ;9a9a defb 061h ;9a9b defb 072h ;9a9c defb 061h ;9a9d defb 074h ;9a9e defb 06fh ;9a9f defb 072h ;9aa0 defb 020h ;9aa1 defb 074h ;9aa2 defb 06fh ;9aa3 defb 06fh ;9aa4 defb 020h ;9aa5 defb 063h ;9aa6 defb 06fh ;9aa7 defb 06dh ;9aa8 defb 070h ;9aa9 defb 06ch ;9aaa defb 065h ;9aab defb 078h ;9aac defb 000h ;9aad l9aaeh: defb 06fh ;9aae defb 06eh ;9aaf defb 06ch ;9ab0 defb 079h ;9ab1 defb 020h ;9ab2 defb 066h ;9ab3 defb 075h ;9ab4 defb 06eh ;9ab5 defb 063h ;9ab6 defb 074h ;9ab7 defb 069h ;9ab8 defb 06fh ;9ab9 defb 06eh ;9aba defb 073h ;9abb defb 020h ;9abc defb 06dh ;9abd defb 061h ;9abe defb 079h ;9abf defb 020h ;9ac0 defb 062h ;9ac1 defb 065h ;9ac2 defb 020h ;9ac3 defb 076h ;9ac4 defb 06fh ;9ac5 defb 069h ;9ac6 defb 064h ;9ac7 defb 000h ;9ac8 l9ac9h: defb 063h ;9ac9 defb 061h ;9aca defb 06eh ;9acb defb 027h ;9acc defb 074h ;9acd defb 020h ;9ace defb 068h ;9acf defb 061h ;9ad0 defb 076h ;9ad1 defb 065h ;9ad2 defb 020h ;9ad3 defb 061h ;9ad4 defb 072h ;9ad5 defb 072h ;9ad6 defb 061h ;9ad7 defb 079h ;9ad8 defb 020h ;9ad9 defb 06fh ;9ada defb 066h ;9adb defb 020h ;9adc defb 066h ;9add defb 075h ;9ade defb 06eh ;9adf defb 063h ;9ae0 defb 074h ;9ae1 defb 069h ;9ae2 defb 06fh ;9ae3 defb 06eh ;9ae4 defb 073h ;9ae5 defb 000h ;9ae6 l9ae7h: defb 075h ;9ae7 defb 06eh ;9ae8 defb 064h ;9ae9 defb 065h ;9aea defb 066h ;9aeb defb 069h ;9aec defb 06eh ;9aed defb 065h ;9aee defb 064h ;9aef defb 020h ;9af0 defb 073h ;9af1 defb 074h ;9af2 defb 072h ;9af3 defb 075h ;9af4 defb 063h ;9af5 defb 074h ;9af6 defb 02fh ;9af7 defb 075h ;9af8 defb 06eh ;9af9 defb 069h ;9afa defb 06fh ;9afb defb 06eh ;9afc defb 03ah ;9afd defb 020h ;9afe defb 025h ;9aff defb 073h ;9b00 defb 000h ;9b01 l9b02h: defb 061h ;9b02 defb 072h ;9b03 defb 067h ;9b04 defb 075h ;9b05 defb 06dh ;9b06 defb 065h ;9b07 defb 06eh ;9b08 defb 074h ;9b09 defb 020h ;9b0a defb 072h ;9b0b defb 065h ;9b0c defb 064h ;9b0d defb 065h ;9b0e defb 063h ;9b0f defb 06ch ;9b10 defb 061h ;9b11 defb 072h ;9b12 defb 065h ;9b13 defb 064h ;9b14 defb 03ah ;9b15 defb 020h ;9b16 defb 025h ;9b17 defb 073h ;9b18 defb 000h ;9b19 l9b1ah: defb 06eh ;9b1a defb 06fh ;9b1b defb 074h ;9b1c defb 020h ;9b1d defb 061h ;9b1e defb 06eh ;9b1f defb 020h ;9b20 defb 061h ;9b21 defb 072h ;9b22 defb 067h ;9b23 defb 075h ;9b24 defb 06dh ;9b25 defb 065h ;9b26 defb 06eh ;9b27 defb 074h ;9b28 defb 03ah ;9b29 defb 020h ;9b2a defb 025h ;9b2b defb 073h ;9b2c defb 000h ;9b2d l9b2eh: defb 066h ;9b2e defb 06ch ;9b2f defb 06fh ;9b30 defb 061h ;9b31 defb 074h ;9b32 defb 020h ;9b33 defb 070h ;9b34 defb 061h ;9b35 defb 072h ;9b36 defb 061h ;9b37 defb 06dh ;9b38 defb 020h ;9b39 defb 063h ;9b3a defb 06fh ;9b3b defb 065h ;9b3c defb 072h ;9b3d defb 063h ;9b3e defb 065h ;9b3f defb 064h ;9b40 defb 020h ;9b41 defb 074h ;9b42 defb 06fh ;9b43 defb 020h ;9b44 defb 064h ;9b45 defb 06fh ;9b46 defb 075h ;9b47 defb 062h ;9b48 defb 06ch ;9b49 defb 065h ;9b4a defb 000h ;9b4b l9b4ch: defb 029h ;9b4c defb 000h ;9b4d l9b4eh: defb 063h ;9b4e defb 061h ;9b4f defb 06eh ;9b50 defb 027h ;9b51 defb 074h ;9b52 defb 020h ;9b53 defb 068h ;9b54 defb 061h ;9b55 defb 076h ;9b56 defb 065h ;9b57 defb 020h ;9b58 defb 061h ;9b59 defb 072h ;9b5a defb 072h ;9b5b defb 061h ;9b5c defb 079h ;9b5d defb 020h ;9b5e defb 06fh ;9b5f defb 066h ;9b60 defb 020h ;9b61 defb 066h ;9b62 defb 075h ;9b63 defb 06eh ;9b64 defb 063h ;9b65 defb 074h ;9b66 defb 069h ;9b67 defb 06fh ;9b68 defb 06eh ;9b69 defb 073h ;9b6a defb 000h ;9b6b l9b6ch: defb 066h ;9b6c defb 075h ;9b6d defb 06eh ;9b6e defb 063h ;9b6f defb 074h ;9b70 defb 069h ;9b71 defb 06fh ;9b72 defb 06eh ;9b73 defb 073h ;9b74 defb 020h ;9b75 defb 063h ;9b76 defb 061h ;9b77 defb 06eh ;9b78 defb 027h ;9b79 defb 074h ;9b7a defb 020h ;9b7b defb 072h ;9b7c defb 065h ;9b7d defb 074h ;9b7e defb 075h ;9b7f defb 072h ;9b80 defb 06eh ;9b81 defb 020h ;9b82 defb 066h ;9b83 defb 075h ;9b84 defb 06eh ;9b85 defb 063h ;9b86 defb 074h ;9b87 defb 069h ;9b88 defb 06fh ;9b89 defb 06eh ;9b8a defb 073h ;9b8b defb 000h ;9b8c l9b8dh: defb 029h ;9b8d defb 000h ;9b8e l9b8fh: defb 064h ;9b8f defb 069h ;9b90 defb 06dh ;9b91 defb 065h ;9b92 defb 06eh ;9b93 defb 073h ;9b94 defb 069h ;9b95 defb 06fh ;9b96 defb 06eh ;9b97 defb 020h ;9b98 defb 072h ;9b99 defb 065h ;9b9a defb 071h ;9b9b defb 075h ;9b9c defb 069h ;9b9d defb 072h ;9b9e defb 065h ;9b9f defb 064h ;9ba0 defb 000h ;9ba1 l9ba2h: defb 05dh ;9ba2 defb 000h ;9ba3 l9ba4h: defb 053h ;9ba4 defb 025h ;9ba5 defb 064h ;9ba6 defb 000h ;9ba7 l9ba8h: defb 030h ;9ba8 defb 031h ;9ba9 defb 032h ;9baa defb 033h ;9bab defb 034h ;9bac defb 035h ;9bad defb 036h ;9bae defb 037h ;9baf defb 038h ;9bb0 defb 039h ;9bb1 defb 041h ;9bb2 defb 042h ;9bb3 defb 043h ;9bb4 defb 044h ;9bb5 defb 045h ;9bb6 defb 046h ;9bb7 defb 000h ;9bb8 __iob: defb 0ach ;9bb9 defb 0a2h ;9bba defb 000h ;9bbb defb 000h ;9bbc defb 0ach ;9bbd defb 0a2h ;9bbe defb 009h ;9bbf defb 000h ;9bc0 __iob+8: defb 000h ;9bc1 defb 000h ;9bc2 defb 000h ;9bc3 defb 000h ;9bc4 defb 000h ;9bc5 defb 000h ;9bc6 defb 006h ;9bc7 defb 001h ;9bc8 l9bc9h: defb 000h ;9bc9 defb 000h ;9bca defb 000h ;9bcb defb 000h ;9bcc defb 000h ;9bcd defb 000h ;9bce defb 006h ;9bcf defb 002h ;9bd0 defb 000h ;9bd1 defb 000h ;9bd2 defb 000h ;9bd3 defb 000h ;9bd4 defb 000h ;9bd5 defb 000h ;9bd6 defb 000h ;9bd7 defb 000h ;9bd8 defb 000h ;9bd9 defb 000h ;9bda defb 000h ;9bdb defb 000h ;9bdc defb 000h ;9bdd defb 000h ;9bde defb 000h ;9bdf defb 000h ;9be0 __fcb: defb 000h ;9be1 defb 009h ;9be2 defb 020h ;9be3 defb 020h ;9be4 defb 020h ;9be5 defb 020h ;9be6 defb 000h ;9be7 defb 000h ;9be8 defb 000h ;9be9 defb 020h ;9bea defb 020h ;9beb defb 020h ;9bec defb 000h ;9bed defb 000h ;9bee defb 000h ;9bef defb 000h ;9bf0 defb 000h ;9bf1 defb 000h ;9bf2 defb 000h ;9bf3 defb 000h ;9bf4 defb 000h ;9bf5 defb 000h ;9bf6 defb 000h ;9bf7 defb 000h ;9bf8 defb 000h ;9bf9 defb 000h ;9bfa defb 000h ;9bfb defb 000h ;9bfc defb 000h ;9bfd defb 000h ;9bfe defb 000h ;9bff defb 000h ;9c00 defb 000h ;9c01 defb 000h ;9c02 defb 000h ;9c03 defb 000h ;9c04 l9c05h: defb 004h ;9c05 defb 000h ;9c06 defb 000h ;9c07 defb 000h ;9c08 defb 000h ;9c09 defb 000h ;9c0a defb 009h ;9c0b defb 020h ;9c0c defb 020h ;9c0d defb 020h ;9c0e defb 020h ;9c0f defb 000h ;9c10 defb 000h ;9c11 defb 000h ;9c12 defb 020h ;9c13 defb 020h ;9c14 defb 020h ;9c15 defb 000h ;9c16 defb 000h ;9c17 defb 000h ;9c18 defb 000h ;9c19 defb 000h ;9c1a defb 000h ;9c1b defb 000h ;9c1c defb 000h ;9c1d defb 000h ;9c1e defb 000h ;9c1f defb 000h ;9c20 defb 000h ;9c21 defb 000h ;9c22 defb 000h ;9c23 defb 000h ;9c24 defb 000h ;9c25 defb 000h ;9c26 defb 000h ;9c27 defb 000h ;9c28 defb 000h ;9c29 defb 000h ;9c2a defb 000h ;9c2b defb 000h ;9c2c defb 000h ;9c2d defb 004h ;9c2e defb 000h ;9c2f defb 000h ;9c30 defb 000h ;9c31 defb 000h ;9c32 defb 000h ;9c33 defb 009h ;9c34 defb 020h ;9c35 defb 020h ;9c36 defb 020h ;9c37 defb 020h ;9c38 defb 000h ;9c39 defb 000h ;9c3a defb 000h ;9c3b defb 020h ;9c3c defb 020h ;9c3d defb 020h ;9c3e defb 000h ;9c3f defb 000h ;9c40 defb 000h ;9c41 defb 000h ;9c42 defb 000h ;9c43 defb 000h ;9c44 defb 000h ;9c45 defb 000h ;9c46 defb 000h ;9c47 defb 000h ;9c48 defb 000h ;9c49 defb 000h ;9c4a defb 000h ;9c4b defb 000h ;9c4c defb 000h ;9c4d defb 000h ;9c4e defb 000h ;9c4f defb 000h ;9c50 defb 000h ;9c51 defb 000h ;9c52 defb 000h ;9c53 defb 000h ;9c54 defb 000h ;9c55 defb 000h ;9c56 defb 004h ;9c57 defb 000h ;9c58 defb 000h ;9c59 defb 000h ;9c5a defb 000h ;9c5b defb 000h ;9c5c defb 000h ;9c5d defb 000h ;9c5e defb 000h ;9c5f defb 000h ;9c60 defb 000h ;9c61 defb 000h ;9c62 defb 000h ;9c63 defb 000h ;9c64 defb 000h ;9c65 defb 000h ;9c66 defb 000h ;9c67 defb 000h ;9c68 defb 000h ;9c69 defb 000h ;9c6a defb 000h ;9c6b defb 000h ;9c6c defb 000h ;9c6d defb 000h ;9c6e defb 000h ;9c6f defb 000h ;9c70 defb 000h ;9c71 defb 000h ;9c72 defb 000h ;9c73 defb 000h ;9c74 defb 000h ;9c75 defb 000h ;9c76 defb 000h ;9c77 defb 000h ;9c78 defb 000h ;9c79 defb 000h ;9c7a defb 000h ;9c7b defb 000h ;9c7c defb 000h ;9c7d defb 000h ;9c7e defb 000h ;9c7f defb 000h ;9c80 defb 000h ;9c81 defb 000h ;9c82 defb 000h ;9c83 defb 000h ;9c84 defb 000h ;9c85 defb 000h ;9c86 defb 000h ;9c87 defb 000h ;9c88 defb 000h ;9c89 defb 000h ;9c8a defb 000h ;9c8b defb 000h ;9c8c defb 000h ;9c8d defb 000h ;9c8e defb 000h ;9c8f defb 000h ;9c90 defb 000h ;9c91 defb 000h ;9c92 defb 000h ;9c93 defb 000h ;9c94 defb 000h ;9c95 defb 000h ;9c96 defb 000h ;9c97 defb 000h ;9c98 defb 000h ;9c99 defb 000h ;9c9a defb 000h ;9c9b defb 000h ;9c9c defb 000h ;9c9d defb 000h ;9c9e defb 000h ;9c9f defb 000h ;9ca0 defb 000h ;9ca1 defb 000h ;9ca2 defb 000h ;9ca3 defb 000h ;9ca4 defb 000h ;9ca5 defb 000h ;9ca6 defb 000h ;9ca7 defb 000h ;9ca8 defb 000h ;9ca9 defb 000h ;9caa defb 000h ;9cab defb 000h ;9cac defb 000h ;9cad l9caeh: defb 000h ;9cae __Lbss: word_9caf: defb 000h ;9caf defb 000h ;9cb0 array_9cb1: defb 000h ;9cb1 defb 000h ;9cb2 defb 000h ;9cb3 defb 000h ;9cb4 defb 000h ;9cb5 defb 000h ;9cb6 defb 000h ;9cb7 defb 000h ;9cb8 defb 000h ;9cb9 defb 000h ;9cba defb 000h ;9cbb defb 000h ;9cbc defb 000h ;9cbd defb 000h ;9cbe defb 000h ;9cbf defb 000h ;9cc0 defb 000h ;9cc1 defb 000h ;9cc2 defb 000h ;9cc3 defb 000h ;9cc4 defb 000h ;9cc5 defb 000h ;9cc6 defb 000h ;9cc7 defb 000h ;9cc8 defb 000h ;9cc9 defb 000h ;9cca defb 000h ;9ccb defb 000h ;9ccc defb 000h ;9ccd defb 000h ;9cce defb 000h ;9ccf defb 000h ;9cd0 defb 000h ;9cd1 defb 000h ;9cd2 defb 000h ;9cd3 defb 000h ;9cd4 defb 000h ;9cd5 defb 000h ;9cd6 defb 000h ;9cd7 defb 000h ;9cd8 defb 000h ;9cd9 defb 000h ;9cda defb 000h ;9cdb defb 000h ;9cdc defb 000h ;9cdd defb 000h ;9cde defb 000h ;9cdf defb 000h ;9ce0 defb 000h ;9ce1 defb 000h ;9ce2 defb 000h ;9ce3 defb 000h ;9ce4 defb 000h ;9ce5 defb 000h ;9ce6 defb 000h ;9ce7 defb 000h ;9ce8 defb 000h ;9ce9 defb 000h ;9cea defb 000h ;9ceb defb 000h ;9cec defb 000h ;9ced defb 000h ;9cee defb 000h ;9cef defb 000h ;9cf0 word_9cf1: defb 000h ;9cf1 defb 000h ;9cf2 l9cf3h: defb 000h ;9cf3 defb 000h ;9cf4 defb 000h ;9cf5 defb 000h ;9cf6 defb 000h ;9cf7 defb 000h ;9cf8 defb 000h ;9cf9 data_01bf_end: nop ;9cfa nop ;9cfb nop ;9cfc nop ;9cfd nop ;9cfe nop ;9cff