??PLD????:PALASM 4

1
????????????????

• ??????????????
• ??180??
• ??????????
• ??PLD????PALASM 4
• ??BASIC ????

2
???????????????
3
????????????
4
??PALASM 4??????

• CHIP gg PAL22V10 ????
• CLK SA0 SA1 SA2 SA3 SA4 SA5 SA6 SA7 SA8 SA9 GND
• AEN IOW L9 L10 L11 L12 L13 L14 L15 H80 H200 VCC 
• EQUATIONS 
• H80/SA9/SA8SA7/SA6/SA5/SA4/SA3/SA2/SA1/S
  A0/IOW
• H200SA9/SA8/SA7/IOW 20027F
• L9SA0
• L10SA1
• L11SA2
• L12SA3
• L13SA4
• L14SA5
• L15SA6

5
??????

• 2 1 8 4 2 1
  8 4 2 1
• L15 L14
  L13 L12 L11 L10 L9
• SA9 SA8 SA7 SA6 SA5 SA4 SA3 SA2 SA1 SA0
  
• 1 0 0 0 0 0
  0 0 0 0
• 1 0 0 1 1 1
  1 1 1 1

6
??80 PORT?????????
L8L1
GAL22V10
74273
H80
???
D Latch
SA90
SD70
IOW
80H
AEN
H80 /SA9/SA8SA7/SA6/SA5/SA4
/SA3/SA2/SA1/SA0/IOW
7
??????????
L15L9
GAL22V10
CK
????D Latch
H200
SA97
SA60
IOW
AEN
20027FH
????
H200SA9/SA8/SA7/IOW/AEN
8
????? GAL22V10 D-Latch
L9 SA0 L10SA1 L11SA2 L12SA3 L13SA4
L14SA5 L15SA6
9
????????(POST)??

• ??L1L8?????(Error Code)????,??L1L8?????

??BASIC ????
?F1?L1L8???? ?F2?L9L15???? ?ESC???????
10
???F1?L1L8??????
11
????F2?L9L15????

• (10?1????,?????)

(1) (2)

240
201
220
202
210
204
208
208
204
210
220
202
201
240
12
????F2?L9L15????
(3)
(4)
260
203

230
206
218
20C
20C
218
206
230
203
260
200
200
13
????F2?L9L15????
(5) (6)
201

240

260
203
270
207
278
20F
21F
27C
27E
23F
27F
27F
14
????F2?L9L15????
(7) (8)


208
241
214
222
222
214
241
208
15
????F2?L9L15????

• (9) (10)

201
240

202
220
204
210
208
208
210
204
220
202
240
201
220
202
210
204
208
208
204
210
202
220
201
240
16
?????BASIC ????-1
DIM PORT(7) PORT(1) H201 ?F2???? PORT(2)
H202 PORT(3) H204 PORT(4) H208 PORT(5)
H210 PORT(6) H220 PORT(7) H240
17
?????BASIC ????-2

• CLS ?????
• LOCATE 1, 1 PRINT "Hit ltF1gt to test 80H I/O"
• LOCATE 2, 1 PRINT "Hit ltF2gt to test LED9-15"
• LOCATE 3, 1 PRINT "Hit ltESCgt to quit"
• LOCATE 4, 1 PRINT "Please hit a key -----gt"
• LOCATE 1, 61 PRINT "Now Time" TIME
• OUT H80, 0 ???L1L8
• OUT H200, 0 ???L9L15

18
?????BASIC ????-3

• WHILE KCODE ltgt CHR(27)?ESC??
•  
• KCODE RIGHT(INKEY, 1)???
• LOCATE 1, 70 PRINT TIME
• IF KCODE GOTO OTHER??
• SELECT CASE ASC(KCODE)???

19
?????BASIC ????-4

• CASE 59 ??F1??
• FOR i 0 TO 7
• OUT H80, 2 i
  ?????
• LOCATE 1, 70
  PRINT TIME
• SLEEP 1 ???1?
• NEXT i
• OUT H80, 0 ???L1L8

20
?????BASIC ????-5

• CASE 60 ??F2??
• FOR i 1 TO 7 ?7???
• OUT PORT(i), 1 ?H200????
• 
  ??????
• LOCATE 1, 70 PRINT TIME
• SLEEP 1 ???1?
• NEXT i
• OUT H200, 0 ????????
• END SELECT
• OTHER
• WEND
• END