You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
83 lines
3.7 KiB
83 lines
3.7 KiB
PAL20X10 PAL DESIGN SPECIFICATION
|
|
VPs BIRKNER/UDI 7/29/81
|
|
RAM CONTROL
|
|
MMI SUNNYVALE, CALIFORNIA
|
|
CK /DICNTO /DTCNT1 /DTCNT2 /CHAR1 /CHAR2 /CHAR3 /CHAR4 /CHARS /READY /LF GND
|
|
/OC /H255 /CHARO /INCSCR /CLRLIN /SWAPC /WE /HBLANK /SWAP /CURSO /WRITE VCC
|
|
WRITE : =READY* /DTCNT2* /DTCNT1 * /DTCNTO*/H255 >SET WHEN DTCNT=0
|
|
*CHARS *CHAR4 *CHAR3 *CHAR2 *CHARI *CHARO 2& CHAR=63
|
|
+ WRITE*/DTCNT2*/H255 sHOLD AT 0,1,2,3
|
|
:+:WRITE* DTCNT2*/DTCNT1*/H255 sHOLD AT 4,5
|
|
+ CLRLIN* /DTCNT2* /DTCNT1* /DTCNTO SET AT DTCNT=0
|
|
SWAP := WRITE* /DTCNT2*/DTCNT1*DTCNTO ;SWAP AT DTCNT=1
|
|
+ WRITE* DTCNT2*/DTCNT1* /DTCNTO SWAP BACK AT 4
|
|
SWAPC:= WRITE* /DTCNT2*/DTCNT1*DTCNTO* /CLRLIN ;SWAP AT DICNT=1
|
|
+ WRITE* DTCNT2* /DTCNT1*/DTCNTO* /CLRLIN sSWAP BACK AT 4
|
|
:+:CHARS*CHAR4* /CHAR3*LF TEST CONDITION
|
|
WE := WRITE* /DTCNT2*DTCNT1*DTCNTO | *ENABLE WRITE
|
|
INCSCR := WRITE*DTCNT2*/DTCNTL*DTCNTO*/CLRLIN*/H255*LF §;DETECT LINEFEED
|
|
+ WRITE* CHAR5S*/CHAR4*CHAR3*CHAR2*CHARI *CHARO sCURS=47, LAST
|
|
* /CLRLIN*/H255 . :VISIBLE CHAR ON
|
|
* DICNT2* /DTCNT1*DTCNTO - gLINE. DTCNT=5 | |
|
|
:+:CHAR5*CHAR4* /CHAR3*LF | TEST CONDITION
|
|
H255 § :=_CHAR5*CHAR4*CHAR3*CHAR2*CHARL *CHARO | ;END OF LINE
|
|
*DTCNT2*DTCNT1* /DTCNTO : s DTCNT=6
|
|
CLRLIN := INCSCR ;SET ON LINE END
|
|
+ CLRLIN*CHARS *CHAR4 *CHAR3 *CHAR2*CHARI*CHARO :HOLD THIS WRITE
|
|
2+:CLRLIN*/CHARS | sHOLD, CHAR=0-31
|
|
+ CLRLIN*/CHAR4 sHOLD, CHAR=32-47
|
|
HBLANK := CHARS*CHAR4 *CHAR=48-63
|
|
+ CHARS*CHAR4 : EXTEND
|
|
:+: CHARS *CHAR4* /CHAR3* /CHAR2*/CHAR1* /CHARO*/DTCNT2 ;CANCEL 48-48.5
|
|
+ CHAR5*CHAR4* /CHAR3* /CHAR2* /CHARL*/CHARO*/DTCNT1 ;CANCEL 48.5-48.75
|
|
CHARO := SWAPC*CURSO SWAP WITH CURS
|
|
+ /SWAPC*CHARO > HOLD
|
|
2+: /SWAPC*DTCNTO*DTCNT1*DTCNT2 2 INC
|
|
CURSO := SWAPC*/INCSCR*CHARO SWAP WITH CHAR
|
|
+ /SWAPC* /INCSCR*CURSO > HOLD
|
|
:+: /SWAPC* /INCSCR*WRITE* /CLRLIN*DTCNT2*DTCNT1L*/DTCNTO ;INC
|
|
|
|
FUNCTION TABLE
|
|
CK DTCNT2 DTCNT1 DTCNTO CHARS CHAR4 CHAR3 CHAR2 CHAR] CHARO READY
|
|
LF /OC #8255 INCSCR CLRLIN SWAPC /WE HBLANK SWAP CURSO WRITE
|
|
; Ic H
|
|
; R N L Ss B Cc W
|
|
; E H Cc RW L S U R
|
|
; A f/ 28 LA /SAWR I
|
|
; Cc DITCNT CHAR D4LoO5cCHIPWNAS Tf
|
|
> K 210 543210 ¥y FC 5 RN C E K P O E_— COMMENTS
|
|
|
|
C LLL HALXX X X H Lb X¥ H X H X X X X X_ SET INCSCR,SWAPC
|
|
C HHL #HHLXX X X H LX H BH H X X X L X _ CLRLIN=H,CURS=L
|
|
C LLL #HHLXX X X H LL #H A HX X X L A SET WRITE |
|
|
C “LH LLLXxX X X X L&BLoL X¥ X X¥ L # . INCSCS,CLRLIN=L
|
|
C HHL LLXXxxX X LX LLLoLo x X X X L _ SWAP CURSO,CHARO
|
|
C HBL #HLXX X X H L X H X H X X X X X_~ SET INCSCR,CWAPC
|
|
C HHL #HALXX X X H BL X¥ H H BH X X X L X_ CLRLIN=H
|
|
C LLL HHLXX X X H LL #H #H H X X X X #_. SET WRITE SIGNAL
|
|
C LLH XXxXxXxxX X LX Lb xX X X X X X X HF HOLD WRITE
|
|
C LHL XXXxXxX X L X¥ L LX X X H X X X H_ HOLD WRITE
|
|
C LHH xXXXxXxX X LX LLB X X¥ X L X X X 4 ENABLE WRITE
|
|
C ALL XXXXX X L X L b&b xX X X H X X X 4H _ HOLD WRITE
|
|
C HLH XXXXX X L X LB xX X X X X X X HF HOLD WRITE
|
|
C HHL XXXXX X L X LL X¥ X L X X X X L_ CLEAR WRITE SIGNAL
|
|
C HHH XXXXXH L X LL LX L X X X X L_ CHARO=H, INCSCR=L
|
|
C LLL XXX¥XH L X LLL X Bb xX X X X LL. HOLD
|
|
C LLH xXXXXXH L X LLL xX Lb xX X X X L_ HOLD
|
|
C LHL XXXXXH LX LLL XxX LG xX X X X L_ HOLD
|
|
C LAH xXXXXX H L X LL&L xX Lb xX X X X L- HOLD
|
|
C HLL XXXXXH Lb X LL&L xXx Bb X X X X L_ HOLD
|
|
C HLA XXXXXH L X LLL xX Bb xX X X X L- HOLD
|
|
C HHL HHHHHH Lb X L AHLxX LX X X X X_ END OF LINE
|
|
C HHH #HHLXXL L LLL &Looe xX X X X X ~~ CLEAR CLRLIN & H255
|
|
C LLL HHAXXL H LL LLbo ox 8 X X L_. SET HBLANK
|
|
C HHH HHLXXH LL L&GLL iG X 8H X L L_ SET CURSO LO ra
|
|
C LLL HHLLLA H GL LGbL6L Gb XxX A X L X ~ SBLANK=L
|
|
C -LHH #HHLXXH LL L&Lnoeon xX X L L L_ HOLD
|
|
C HHL HHEXX H L HL LHL S#H xX X LL L_ SET INCSCR
|
|
C XXX HHLXXL LL L&boL.hsaAaxX ¥ X X¥ L L_ SET CLRLIN
|
|
C LLL LLxXxxXL L L LLL HR xX X X¥ X L #_ HOLD CLRLIN,SET WRITE
|
|
C LLL LLExxxXL L LLL GH X¥ X X X L L_ CLR WRITE,HOLD CLRLIN
|
|
C LLL HALXXL L L LLL L xX X X X L #H_ CLEAR CLRLIN
|
|
C LLH XXXXXL L LLLLoL. aH xX X #& L &F_ SET SWAP & SWAPC
|
|
|