Rev 112 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 112 | Rev 158 | ||
|---|---|---|---|
| Line 1... | Line 1... | ||
| 1 | 1 | ||
| 2 | ;LAST UPDATE: 10.06.2013 savelij |
2 | ;LAST UPDATE: 28.05.2021 savelij |
| 3 | 3 | ||
| 4 | include ../../../pentevo/rom/macros.a80 |
4 | include ../../../pentevo/rom/macros.a80 |
| 5 | include ports_ngs.a80 |
5 | include ports_ngs.a80 |
| - | 6 | include vers.a80 |
|
| 6 | 7 | ||
| 7 | DDMMYY EQU "10.06.2013" |
8 | DDMMYY EQU "28.05.20121" |
| 8 | 9 | ||
| 9 | DD EQU 30 ;ЧИСЛО |
10 | DD EQU 28 ;ЧИСЛО |
| 10 | MM EQU 1 ;МЕСЯЦ |
11 | MM EQU 5 ;МЕСЯЦ |
| 11 | YY EQU 11 ;ГОД |
12 | YY EQU 21 ;ГОД |
| 12 | DATA EQU DD|MM<<5|YY<<9|0X8000 ;ЗАКОДИРОВАННАЯ ДАТА |
13 | DATA EQU DD|MM<<5|YY<<9|0X8000 ;ЗАКОДИРОВАННАЯ ДАТА |
| 13 | 14 | ||
| 14 | SM_LDT EQU 0X54 |
15 | SM_LDT EQU 0X54 |
| 15 | ADR_PROGR EQU 0X5800 |
16 | ADR_PROGR EQU 0X5800 |
| 16 | 17 | ||
| Line 59... | Line 60... | ||
| 59 | ;+10 : КОЛИЧЕСТВО |
60 | ;+10 : КОЛИЧЕСТВО |
| 60 | ;+11 : ПУНКТОВ МЕНЮ |
61 | ;+11 : ПУНКТОВ МЕНЮ |
| 61 | ;+12 "C" | ТЕКУЩИЙ |
62 | ;+12 "C" | ТЕКУЩИЙ |
| 62 | ;+13 "B" | ПУНКТ МЕНЮ |
63 | ;+13 "B" | ПУНКТ МЕНЮ |
| 63 | 64 | ||
| 64 | ORG 0X6000 |
65 | ORG 0x8000 |
| 65 | START_ DI |
66 | START_ DI |
| 66 | LD A,0X10 |
67 | LD A,0X10 |
| 67 | LD BC,0X7FFD |
68 | LD BC,0X7FFD |
| 68 | OUT (C),A ;ВКЛЮЧИЛИ СТРАНИЦУ 0 |
69 | OUT (C),A ;ВКЛЮЧИЛИ СТРАНИЦУ 0 |
| 69 | CALL INITLOADER |
70 | CALL INITLOADER |
| Line 167... | Line 168... | ||
| 167 | AND A |
168 | AND A |
| 168 | JR NZ,RVN1 |
169 | JR NZ,RVN1 |
| 169 | DEC HL |
170 | DEC HL |
| 170 | EX DE,HL |
171 | EX DE,HL |
| 171 | LD A,IXL |
172 | LD A,IXL |
| - | 173 | CP '2' |
|
| - | 174 | CALL Z,COPY_VERS |
|
| 172 | CP "8" |
175 | CP "8" |
| 173 | JR C,RVN2 |
176 | JR C,RVN2 |
| 174 | LD HL,TEXT_VERSUS |
177 | LD HL,TEXT_VERSUS |
| 175 | JP NEXT |
178 | JP NEXT |
| 176 | 179 | ||
| - | 180 | COPY_VERS PUSH AF |
|
| - | 181 | PUSH DE |
|
| - | 182 | EXX |
|
| - | 183 | POP DE |
|
| - | 184 | LD HL,MAINROM_VERS |
|
| - | 185 | .L2 LD A,(HL) |
|
| - | 186 | AND A |
|
| - | 187 | JR Z,.L1 |
|
| - | 188 | LDI |
|
| - | 189 | JR .L2 |
|
| - | 190 | ||
| - | 191 | .L1 PUSH DE |
|
| - | 192 | EXX |
|
| - | 193 | POP DE |
|
| - | 194 | POP AF |
|
| - | 195 | RET |
|
| - | 196 | ||
| 177 | NGSNOTFOUND LD IX,ERROR_UPDATE |
197 | NGSNOTFOUND LD IX,ERROR_UPDATE |
| 178 | CALL WINW |
198 | CALL WINW |
| 179 | LD HL,TXT_NONGS |
199 | LD HL,TXT_NONGS |
| 180 | CALL NEXT |
200 | CALL NEXT |
| 181 | CALL KEYS |
201 | CALL KEYS |
| Line 379... | Line 399... | ||
| 379 | DJNZ $-2 |
399 | DJNZ $-2 |
| 380 | POP HL |
400 | POP HL |
| 381 | POP BC |
401 | POP BC |
| 382 | RET |
402 | RET |
| 383 | 403 | ||
| - | 404 | READ_NGS_VERS EXX |
|
| - | 405 | LD HL,BUFRD |
|
| - | 406 | LD DE,0x138 |
|
| - | 407 | LD B,8 |
|
| - | 408 | LD A,B |
|
| - | 409 | CALL SD ; LEN LOW |
|
| - | 410 | LD A,0X15 |
|
| - | 411 | CALL SC |
|
| - | 412 | EI |
|
| - | 413 | HALT |
|
| - | 414 | DI |
|
| - | 415 | XOR A |
|
| - | 416 | CALL SD ; LEN HIGH |
|
| - | 417 | CALL WD |
|
| - | 418 | LD A,E |
|
| - | 419 | CALL SD ; ADR LOW |
|
| - | 420 | CALL WD |
|
| - | 421 | LD A,D |
|
| - | 422 | CALL SD ; ADR HIGH |
|
| - | 423 | .L1 CALL WN |
|
| - | 424 | CALL GD |
|
| - | 425 | LD (HL),A |
|
| - | 426 | INC HL |
|
| - | 427 | INC DE |
|
| - | 428 | DJNZ .L1 |
|
| - | 429 | .L2 DEC HL |
|
| - | 430 | LD A,'!' |
|
| - | 431 | CP (HL) |
|
| - | 432 | JR NC,.L2 |
|
| - | 433 | INC HL |
|
| - | 434 | LD (HL),0 |
|
| - | 435 | EXX |
|
| - | 436 | RET |
|
| - | 437 | ||
| - | 438 | MAINROM_VERS DB "ver " |
|
| - | 439 | BUFRD DUPL 0x18 |
|
| - | 440 | ||
| 384 | FINDNGS LD A,0X80 |
441 | FINDNGS LD A,0X80 |
| 385 | OUT (GSCTR),A |
442 | OUT (GSCTR),A |
| 386 | 443 | ||
| 387 | ;DS 3:LD A,0X55:OUT (GSDAT),A |
444 | ;DS 3:LD A,0X55:OUT (GSDAT),A |
| 388 | ;OUT (GSCOM),A:CALL WC:LD A,0XAA |
445 | ;OUT (GSCOM),A:CALL WC:LD A,0XAA |
| Line 434... | Line 491... | ||
| 434 | RET |
491 | RET |
| 435 | 492 | ||
| 436 | INITLOADER CALL FINDNGS |
493 | INITLOADER CALL FINDNGS |
| 437 | AND A |
494 | AND A |
| 438 | RET NZ |
495 | RET NZ |
| - | 496 | CALL READ_NGS_VERS |
|
| 439 | LD BC,GSDAT |
497 | LD BC,GSDAT |
| 440 | LD HL,0X5800 |
498 | LD HL,0X5800 |
| 441 | LD DE,MINILDE-MINILD |
499 | LD DE,MINILDE-MINILD |
| 442 | OUT (C),E |
500 | OUT (C),E |
| 443 | LD A,0X14 |
501 | LD A,0X14 |
| Line 481... | Line 539... | ||
| 481 | HALT |
539 | HALT |
| 482 | DI |
540 | DI |
| 483 | XOR A |
541 | XOR A |
| 484 | RET |
542 | RET |
| 485 | 543 | ||
| - | 544 | SC OUT (GSCOM),A |
|
| - | 545 | RET |
|
| - | 546 | ||
| - | 547 | SD OUT (GSDAT),A |
|
| - | 548 | RET |
|
| - | 549 | ||
| - | 550 | GD IN A,(GSDAT) |
|
| - | 551 | RET |
|
| - | 552 | ||
| 486 | WC IN A,(GSCOM) |
553 | WC IN A,(GSCOM) |
| 487 | RRA |
554 | RRCA |
| 488 | JR C,$-3 |
555 | JR C,WC |
| 489 | RET |
556 | RET |
| 490 | 557 | ||
| 491 | WD IN A,(GSCOM) |
558 | WD IN A,(GSCOM) |
| 492 | RLA |
559 | RLCA |
| 493 | JR C,$-3 |
560 | JR C,WD |
| 494 | RET |
561 | RET |
| 495 | 562 | ||
| 496 | WN IN A,(GSCOM) |
563 | WN IN A,(GSCOM) |
| 497 | RLA |
564 | RLCA |
| 498 | JR NC,$-3 |
565 | JR NC,WN |
| 499 | RET |
566 | RET |
| 500 | 567 | ||
| 501 | MINISTR |
568 | MINISTR |
| 502 | PHASE ADR_PROGR |
569 | PHASE ADR_PROGR |
| 503 | MINILD DI |
570 | MINILD DI |