Addi-Data ADDINUM PA 200 Technical Description page 26

Functions of the board
; TASM
; Writes digital outputs of a PA200 board
; Used compiler: TASM version 1.0 mode SMALL
Basic_Address_PA200 = 390h
DOSSEG
.MODEL SMALL
.STACK 100h
.DATA
.CODE
MOV AX,@DATA
MOV DS,AX
; Example 1 :
; Reading occurs when 8 bits have been written 4 times
MOV DX,Basic_Address_PA200
MOV AX,0AA55h
PUSH AX
OUT DX,AL
MOV AL,AH
INC DX
OUT DX,AL
POP AX
INC DX
OUT DX,AL
MOV AL,AH
INC DX
OUT DX,AL
MOV AH,4CH
INT 21H
END
' TURBO BASIC
' Writes digital outputs of a PA200 board
' Used compiler: TURBO BASIC version 1.00
Basic_AddressPA200% = &H390
' Writing value &H0AA on Less Significant Byte
' Writing value &H055 on Most Significant Byte
' Writing value &H0AA on Less Significant Byte
' Writing value &H055 on Most Significant Byte
' LSW
out Basic_AddressPA200%, &H0AA
out Basic_AddressPA200% + 1, &H055
MSW
out Basic_AddressPA200% + 2, &H0AA
out Basic_AddressPA200% + 3, &H055
26
; Basic address of PA200 board
; Initializes data segment
; Bit 0 of value "AL"
; on digital output number 1
; Bit 7 of value "AL"
; on digital output number 16
; Bit 0 of value "AL"
; on digital output number 17
; Bit 7 of value "AL"
; on digital output number 32
; Back to DOS
' Basic address of PA200 board
'
' 16 Bit LSW
'
' 16 Bit MSW
' Bit 0 of value &H0AA on
' digital output number 1
' Bit 7 of value &H055 on
' digital output number 16
' Bit 0 of value &H0AA on
' digital output number 17
' Bit 7 of value &H055 on
' digital output number 32
PA 200