Subversion Repositories pentevo

Rev

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

Rev 1026 Rev 1027
Line 1... Line 1...
1 
 
 1 
 
2 
; LAST UPDATE: 08.10.2022 savelij
 2 
; LAST UPDATE: 09.10.2022 savelij
3 
 
 3 
 
4 
                TITLE "virtual.a80"
 4 
                TITLE "virtual.a80"
5 
 
 5 
 
6 
                DB 0xFF                         ; DCU
 6 
                DB 0xFF                         ; DCU
7 
 
 7 
 
Line 389... Line 389...
389 
 
 389 
 
390 
.L5             LD A,(PORT_3F)
 390 
.L5             LD A,(PORT_3F)
391 
                AND A
 391 
                AND A
392 
                JR NZ,.L1
 392 
                JR NZ,.L1
393 
                LD A,%00100100
 393 
                LD A,%00100100
394 
                JR .INDEX
 394 
                JR .L6
395 
 
 395 
 
396 
.L3             LD A,(.INDEX)
 396 
.L3             LD A,(.INDEX)
397 
                XOR %00000100
 397 
                XOR %00000100
398 
                JR .L4
 398 
                JR .L4
399 
 
 399 
 
400 
.L1             LD A,0x24
 400 
.L1             LD A,0x24
401 
.INDEX          EQU $-1
 401 
.INDEX          EQU $-1
402 
.L4             XOR %00000010
 402 
.L4             XOR %00000010
403 
                LD (.INDEX),A
 403 
.L6             LD (.INDEX),A
404 
.L2             LD (RD_1F),A
 404 
.L2             LD (RD_1F),A
405 
                LD (REG_A),A
 405 
                LD (REG_A),A
406 
                RET
 406 
                RET
407 
 
 407 
 
408 
; чтение порта 0x3F
 408 
; чтение порта 0x3F