Subversion Repositories pentevo

Rev

Rev 1031 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1031 Rev 1120
Line 1... Line 1...
1 
 
 1 
 
2 
; LAST UPDATE: 23.10.2022 savelij
 2 
; LAST UPDATE: 12.02.2024 savelij
3 
 
 3 
 
4 
        TITLE "addons.a80 ROM_RST82"
 4 
        TITLE "addons.a80 ROM_RST82"
5 
 
 5 
 
6 
DRV_VAR         EQU 0x4000
 6 
DRV_VAR         EQU 0x4000
7 
 
 7 
 
Line 315... Line 315...
315 
                DW Y_OFFSET + 16 + (X_OFFSET + 5 +  6 ) * 0x100 ; FF
 315 
                DW Y_OFFSET + 16 + (X_OFFSET + 5 +  6 ) * 0x100 ; FF
316 
                DW Y_OFFSET + 17 + (X_OFFSET + 5 +  6 ) * 0x100 ; 7F
 316 
                DW Y_OFFSET + 17 + (X_OFFSET + 5 +  6 ) * 0x100 ; 7F
317 
                DW Y_OFFSET + 18 + (X_OFFSET + 5 +  6 ) * 0x100 ; 5F
 317 
                DW Y_OFFSET + 18 + (X_OFFSET + 5 +  6 ) * 0x100 ; 5F
318 
                DW Y_OFFSET + 19 + (X_OFFSET + 5 +  6 ) * 0x100 ; 3F
 318 
                DW Y_OFFSET + 19 + (X_OFFSET + 5 +  6 ) * 0x100 ; 3F
319 
                DW Y_OFFSET + 20 + (X_OFFSET + 5 +  6 ) * 0x100 ; 1F
 319 
                DW Y_OFFSET + 20 + (X_OFFSET + 5 +  6 ) * 0x100 ; 1F
320 
                DW Y_OFFSET + 21 + (X_OFFSET + 5 +  1 ) * 0x100 ; ADR BREAK
 320 
                DW Y_OFFSET + 21 + (X_OFFSET + 5 +  2 ) * 0x100 ; ADR BREAK
- 
 
 321 
                DW Y_OFFSET + 22 + (X_OFFSET + 5 +  2 ) * 0x100 ; TURBO CURRENT
321 
 
 322 
 
322 
PRT_PORTREGS    LD A,MAGIC_COLOR
 323 
PRT_PORTREGS    LD A,MAGIC_COLOR
323 
                LD (TXT_COLOR),A
 324 
                LD (TXT_COLOR),A
324 
                LD IX,COORDINAT_REGS
 325 
                LD IX,COORDINAT_REGS
325 
                LD HL,(NMI_SAVE_SP)
 326 
                LD HL,(NMI_SAVE_SP)
Line 414... Line 415...
414 
                CALL PRINT_REG
 415 
                CALL PRINT_REG
415 
                LD BC,BREAK_HIGH
 416 
                LD BC,BREAK_HIGH
416 
                IN H,(C)
 417 
                IN H,(C)
417 
                LD B,HIGH (BREAK_LOW)
 418 
                LD B,HIGH (BREAK_LOW)
418 
                IN L,(C)
 419 
                IN L,(C)
419 
                JP PRINT_REGS
 420 
                CALL PRINT_REGS
- 
 
 421 
                LD BC,5
- 
 
 422 
                LD A,(N_77)
- 
 
 423 
                BIT 3,A
- 
 
 424 
                LD HL,TXT_FREQ
- 
 
 425 
                JR NZ,.L1
- 
 
 426 
                ADD HL,BC
- 
 
 427 
                LD A,(N_EFF7)
- 
 
 428 
                BIT 4,A
- 
 
 429 
                JR Z,.L1
- 
 
 430 
                ADD HL,BC
- 
 
 431 
.L1             LD E,(IX)
- 
 
 432 
                INC IX
- 
 
 433 
                LD D,(IX)
- 
 
 434 
                INC IX
- 
 
 435 
                JP PRTT_MSG
420 
 
 436 
 
421 
PRINT_1NUM      LD E,(IX)
 437 
PRINT_1NUM      LD E,(IX)
422 
                INC IX
 438 
                INC IX
423 
                LD D,(IX)
 439 
                LD D,(IX)
424 
                INC IX
 440 
                INC IX
425 
                JP PRTT_A_
 441 
                JP PRTT_A_
426 
 
 442 
 
427 
; установка режимов
 443 
; установка режимов
428 
SET_MODE        LD A,(RREG_A)
 444 
SET_MODE        LD A,(RREG_A)
429 
ISET_MODE       AND A
 445 
ISET_MODE       AND A
430 
                JR Z,SET_MODE4
 446 
                JR Z,SET_MODE4                  ; если 0 то получение режима
431 
                LD E,A
 447 
                LD E,A
432 
                LD (TEK_MODES),A                ; сохранили устанавливаемые режимы
 448 
                LD (TEK_MODES),A                ; сохранили устанавливаемые режимы
433 
                AND A                           ; если 0 то получение режима
 - 
 
434 
                JR Z,SET_MODE4;2
 - 
 
435 
                BIT 3,A
 449 
                AND %00000111
436 
                JR Z,.L4
 450 
                JR Z,.L4
437 
; установка номера экрана
 451 
; установка номера экрана
438 
                AND %00000111
 - 
 
439 
                LD D,A
 452 
                LD D,A
440 
                LD A,(B_PORT77)
 453 
                LD A,(B_PORT77)
441 
                AND %11111000
 454 
                AND %11111000
442 
                OR D
 455 
                OR D
443 
                LD (B_PORT77),A                 ; установили видео режим в порту xx77
 456 
                LD (B_PORT77),A                 ; установили видео режим в порту xx77
Line 445... Line 458...
445 
                RRCA
 458 
                RRCA
446 
                RRCA
 459 
                RRCA
447 
                RRCA
 460 
                RRCA
448 
                RRCA
 461 
                RRCA
449 
                LD E,A                          ; сейчас биты 1-0 содержат турбо режим
 462 
                LD E,A                          ; сейчас биты 1-0 содержат турбо режим
450 
                RRCA
 - 
 
451 
                RRCA
 - 
 
452 
                AND 3                           ; взяли биты турборежима
 463 
                AND 3                           ; взяли биты турборежима
453 
                JR Z,.L3                        ; если 0 то режим турбо не меняем
 464 
                JR Z,.L3                        ; если 0 то режим турбо не меняем
454 
; смена турборежима
 465 
; смена турборежима
455 
                EXX
 466 
                EXX
456 
                DEC A                           ; 1
 467 
                DEC A                           ; 1
Line 468... Line 479...
468 
                AND %11110111
 479 
                AND %11110111
469 
                OR H
 480 
                OR H
470 
                LD (B_PORT77),A                 ; установили турбо режим для порта xx77
 481 
                LD (B_PORT77),A                 ; установили турбо режим для порта xx77
471 
                EXX
 482 
                EXX
472 
.L3             LD A,E
 483 
.L3             LD A,E
- 
 
 484 
                RRCA
- 
 
 485 
                RRCA
473 
                AND 3                           ; выделили биты режима памяти
 486 
                AND 3                           ; выделили биты режима памяти
474 
                JR Z,SET_MODE4                  ; если 0 то режим памяти не меняем
 487 
                JR Z,SET_MODE4                  ; если 0 то режим памяти не меняем
475 
; смена режима памяти
 488 
; смена режима памяти
476 
                DEC A
 489 
                DEC A
477 
                LD HL,0x0000                    ; память 1024К
 490 
                LD HL,0x0000                    ; память 1024К