Subversion Repositories NedoOS

Rev

Rev 447 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log

Rev 447 Rev 555
Line 339... Line 339...
339
        ld b,h
339
        ld b,h
340
        ld c,l
340
        ld c,l
341
        ld hl,(putchar_ldir_hl) ;локальное начало строки
341
        ld hl,(putchar_ldir_hl) ;локальное начало строки
342
        ldir
342
        ldir
343
purchar_nextpgtabaddr=$+1
343
purchar_nextpgtabaddr=$+1
344
        ld a,(0)
344
        ld a,(0) ;ok
345
        SETPG32KHIGH
345
        SETPG32KHIGH
346
        ld de,0xc000
346
        ld de,0xc000
347
;hl=остаток строки
347
;hl=остаток строки
348
         pop bc ;-остаток ширины
348
         pop bc ;-остаток ширины
349
        xor a
349
        xor a
Line 400... Line 400...
400
        ld hl,(getfrommem_ldir_hl) ;локальное начало строки
400
        ld hl,(getfrommem_ldir_hl) ;локальное начало строки
401
        ex de,hl
401
        ex de,hl
402
        ldir
402
        ldir
403
        ex de,hl
403
        ex de,hl
404
getfrommem_nextpgtabaddr=$+1
404
getfrommem_nextpgtabaddr=$+1
405
        ld a,(0)
405
        ld a,(0) ;ok
406
        SETPG32KHIGH
406
        SETPG32KHIGH
407
        ld de,0xc000
407
        ld de,0xc000
408
;hl=остаток строки
408
;hl=остаток строки
409
         pop bc ;-остаток ширины
409
         pop bc ;-остаток ширины
410
        xor a
410
        xor a