Return to asci.asm CVS log

Up to [Isaki's NoNo m68k/m88k emulator] / nono / exp

Annotation of nono/exp/asci.asm, revision 1.1.1.1

1.1       root        1: ;
                      2: ; nono
                      3: ; Copyright (C) 2025 nono project
                      4: ; Licensed under nono-license.txt
                      5: ;
                      6: 
                      7: ; ASCI の入出力をテストする。
                      8: ;
                      9: ; % z80-asm asci.asm 100:asci.z80
                     10: ; % perl ../util/runcom/z80tocom.pl asci.z80
                     11: 
                     12: CNTLA  equ     0
                     13: CNTLB  equ     2
                     14: STAT   equ     4
                     15: TDR    equ     6
                     16: RDR    equ     8
                     17: 
                     18:        org     0100H
                     19: START:
                     20:        LD      A,08H   ; 9600bps
                     21:        LD      C,CNTLB
                     22:        CALL    ASCI_OUT
                     23: 
                     24:        LD      A,7CH   ; RE|TE|CKA1D|EFR|DATA8
                     25:        LD      C,CNTLA
                     26:        CALL    ASCI_OUT
                     27: LOOP:
                     28:        LD      C,STAT
                     29:        CALL    ASCI_IN_F
                     30:        JP      P,LOOP  ; loop unless RDRF
                     31:        ; Get Received char
                     32:        LD      C,RDR
                     33:        CALL    ASCI_IN
                     34:        LD      E,A
                     35:        ; PUTC でホストに出力
                     36:        LD      C,02H
                     37:        CALL    0005H
                     38:        ; エコーバック
                     39:        LD      A,E
                     40:        LD      C,TDR
                     41:        CALL    ASCI_OUT
                     42: 
                     43:        JR      LOOP
                     44: 
                     45: ; OUT0 (C),A をする (その際 CHANNEL を見る)
                     46: ; IN:  A = 出力データ
                     47: ;      C = I/O アドレス(の CH0 側)
                     48: ; OUT: -
                     49: ; USE: -
                     50: ASCI_OUT:
                     51:        PUSH    BC
                     52:        PUSH    AF
                     53:        LD      A,(CHANNEL)
                     54:        ADD     A,C
                     55:        LD      C,A
                     56:        LD      B,00H
                     57:        POP     AF
                     58:        defb    0EDH, 79H       ; OUT (C),A
                     59:        POP     BC
                     60:        RET
                     61: 
                     62: ; IN0 A,(C) をする (その際 CHANNEL を見る)
                     63: ; IN:  C = I/O アドレス(の CH0 側)
                     64: ; OUT: A = 入力データ
                     65: ; USE: F は不定
                     66: ASCI_IN:
                     67:        PUSH    BC
                     68:        LD      A,(CHANNEL)
                     69:        ADD     A,C
                     70:        LD      C,A
                     71:        LD      B,00H
                     72:        defb    0EDH, 78H       ; IN A,(C)
                     73:        POP     BC
                     74:        RET
                     75: 
                     76: ; IN0 F,(C) をする (その際 CHANNEL を見る)
                     77: ; IN:  C = I/O アドレス(の CH0 側)
                     78: ; OUT: F = 入力データ
                     79: ; USE: A
                     80: ASCI_IN_F:
                     81:        PUSH    BC
                     82:        LD      A,(CHANNEL)
                     83:        ADD     A,C
                     84:        LD      C,A
                     85:        LD      B,00H
                     86:        defb    0EDH,70H        ; IN F,(C)
                     87:        POP     BC
                     88:        RET
                     89: 
                     90: CHANNEL:
                     91:        defb    01H             ; 使用するチャンネル
                     92: 
                     93: ; vi:set ts=8:

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.