?login_element?

Subversion Repositories NedoOS

Rev

Rev 1120 | Rev 1219 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. INali8
  2.         get
  3.         next
  4.         ld c,a
  5.         ld b,0
  6. INal_bc
  7.         call IN_bc_to_bc
  8.         ld a,c
  9.         ld (_AL),a
  10.        _Loop_
  11. INaldx
  12.         ld bc,(_DX)
  13.         jr INal_bc
  14.  
  15. INaxi8
  16.         get
  17.         next
  18.         ld c,a
  19.         ld b,0
  20. INax_bc
  21.         call IN_bc_to_bc
  22.         ld (_AL),bc
  23.        _Loop_
  24. INaxdx
  25.         ld bc,(_DX)
  26.         jr INax_bc
  27.  
  28. OUTi8al
  29.         get
  30.         next
  31.         ld c,a
  32.         ld b,0
  33.         ld hl,(_AL)
  34.         call OUTbc_l
  35.         _LoopC
  36. OUTi8ax
  37.         get
  38.         next
  39.         ld c,a
  40.         ld b,0
  41.         ld hl,(_AX)
  42.         call OUTbc_hl
  43.         _LoopC
  44. OUTdxal
  45.         ld bc,(_DX)
  46.         ld hl,(_AL)
  47.         call OUTbc_l
  48.         _LoopC
  49. OUTdxax
  50.         ld bc,(_DX)
  51.         ld hl,(_AX)
  52.         call OUTbc_hl
  53.         _LoopC
  54.  
  55. OUTbc_hl
  56.         ret
  57. OUTbc_l
  58.         ret
  59.  
  60. IN_bc_to_bc
  61.         ld hl,0x03da
  62.         or a
  63.         sbc hl,bc
  64.         jr z,IN_03da
  65.         ld hl,0x0040
  66.         or a
  67.         sbc hl,bc
  68.         jr nz,IN_skip
  69. ;in al,0x40          ; Read timer counter 0
  70.         ld bc,(timer)
  71.        ;srl b
  72.        ;rr c
  73.        ;srl b
  74.        ;rr c
  75.        ld b,c
  76.        ld a,r
  77.        add a,c
  78.        ld c,a
  79.        ;ld bc,0xffff
  80.         ret
  81. IN_skip
  82.         ld bc,0xffff
  83.         ret
  84.  
  85. ;0x03da - порт видеоконтроллера. проверяется на равенство 8 - во время КСИ? (pixeltown)
  86. IN_03da
  87.         ld a,r
  88.         and 8
  89.         ld c,a
  90.         ld b,0
  91.         ret
  92.