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.

84 lines
3.7 KiB

  1. PAL20X10 PAL DESIGN SPECIFICATION
  2. VPs BIRKNER/UDI 7/29/81
  3. RAM CONTROL
  4. MMI SUNNYVALE, CALIFORNIA
  5. CK /DICNTO /DTCNT1 /DTCNT2 /CHAR1 /CHAR2 /CHAR3 /CHAR4 /CHARS /READY /LF GND
  6. /OC /H255 /CHARO /INCSCR /CLRLIN /SWAPC /WE /HBLANK /SWAP /CURSO /WRITE VCC
  7. WRITE : =READY* /DTCNT2* /DTCNT1 * /DTCNTO*/H255 >SET WHEN DTCNT=0
  8. *CHARS *CHAR4 *CHAR3 *CHAR2 *CHARI *CHARO 2& CHAR=63
  9. + WRITE*/DTCNT2*/H255 sHOLD AT 0,1,2,3
  10. :+:WRITE* DTCNT2*/DTCNT1*/H255 sHOLD AT 4,5
  11. + CLRLIN* /DTCNT2* /DTCNT1* /DTCNTO SET AT DTCNT=0
  12. SWAP := WRITE* /DTCNT2*/DTCNT1*DTCNTO ;SWAP AT DTCNT=1
  13. + WRITE* DTCNT2*/DTCNT1* /DTCNTO SWAP BACK AT 4
  14. SWAPC:= WRITE* /DTCNT2*/DTCNT1*DTCNTO* /CLRLIN ;SWAP AT DICNT=1
  15. + WRITE* DTCNT2* /DTCNT1*/DTCNTO* /CLRLIN sSWAP BACK AT 4
  16. :+:CHARS*CHAR4* /CHAR3*LF TEST CONDITION
  17. WE := WRITE* /DTCNT2*DTCNT1*DTCNTO | *ENABLE WRITE
  18. INCSCR := WRITE*DTCNT2*/DTCNTL*DTCNTO*/CLRLIN*/H255*LF §;DETECT LINEFEED
  19. + WRITE* CHAR5S*/CHAR4*CHAR3*CHAR2*CHARI *CHARO sCURS=47, LAST
  20. * /CLRLIN*/H255 . :VISIBLE CHAR ON
  21. * DICNT2* /DTCNT1*DTCNTO - gLINE. DTCNT=5 | |
  22. :+:CHAR5*CHAR4* /CHAR3*LF | TEST CONDITION
  23. H255 § :=_CHAR5*CHAR4*CHAR3*CHAR2*CHARL *CHARO | ;END OF LINE
  24. *DTCNT2*DTCNT1* /DTCNTO : s DTCNT=6
  25. CLRLIN := INCSCR ;SET ON LINE END
  26. + CLRLIN*CHARS *CHAR4 *CHAR3 *CHAR2*CHARI*CHARO :HOLD THIS WRITE
  27. 2+:CLRLIN*/CHARS | sHOLD, CHAR=0-31
  28. + CLRLIN*/CHAR4 sHOLD, CHAR=32-47
  29. HBLANK := CHARS*CHAR4 *CHAR=48-63
  30. + CHARS*CHAR4 : EXTEND
  31. :+: CHARS *CHAR4* /CHAR3* /CHAR2*/CHAR1* /CHARO*/DTCNT2 ;CANCEL 48-48.5
  32. + CHAR5*CHAR4* /CHAR3* /CHAR2* /CHARL*/CHARO*/DTCNT1 ;CANCEL 48.5-48.75
  33. CHARO := SWAPC*CURSO SWAP WITH CURS
  34. + /SWAPC*CHARO > HOLD
  35. 2+: /SWAPC*DTCNTO*DTCNT1*DTCNT2 2 INC
  36. CURSO := SWAPC*/INCSCR*CHARO SWAP WITH CHAR
  37. + /SWAPC* /INCSCR*CURSO > HOLD
  38. :+: /SWAPC* /INCSCR*WRITE* /CLRLIN*DTCNT2*DTCNT1L*/DTCNTO ;INC
  39. FUNCTION TABLE
  40. CK DTCNT2 DTCNT1 DTCNTO CHARS CHAR4 CHAR3 CHAR2 CHAR] CHARO READY
  41. LF /OC #8255 INCSCR CLRLIN SWAPC /WE HBLANK SWAP CURSO WRITE
  42. ; Ic H
  43. ; R N L Ss B Cc W
  44. ; E H Cc RW L S U R
  45. ; A f/ 28 LA /SAWR I
  46. ; Cc DITCNT CHAR D4LoO5cCHIPWNAS Tf
  47. > K 210 543210 ¥y FC 5 RN C E K P O E_— COMMENTS
  48. C LLL HALXX X X H Lb X¥ H X H X X X X X_ SET INCSCR,SWAPC
  49. C HHL #HHLXX X X H LX H BH H X X X L X _ CLRLIN=H,CURS=L
  50. C LLL #HHLXX X X H LL #H A HX X X L A SET WRITE |
  51. C “LH LLLXxX X X X L&BLoL X¥ X X¥ L # . INCSCS,CLRLIN=L
  52. C HHL LLXXxxX X LX LLLoLo x X X X L _ SWAP CURSO,CHARO
  53. C HBL #HLXX X X H L X H X H X X X X X_~ SET INCSCR,CWAPC
  54. C HHL #HALXX X X H BL X¥ H H BH X X X L X_ CLRLIN=H
  55. C LLL HHLXX X X H LL #H #H H X X X X #_. SET WRITE SIGNAL
  56. C LLH XXxXxXxxX X LX Lb xX X X X X X X HF HOLD WRITE
  57. C LHL XXXxXxX X L X¥ L LX X X H X X X H_ HOLD WRITE
  58. C LHH xXXXxXxX X LX LLB X X¥ X L X X X 4 ENABLE WRITE
  59. C ALL XXXXX X L X L b&b xX X X H X X X 4H _ HOLD WRITE
  60. C HLH XXXXX X L X LB xX X X X X X X HF HOLD WRITE
  61. C HHL XXXXX X L X LL X¥ X L X X X X L_ CLEAR WRITE SIGNAL
  62. C HHH XXXXXH L X LL LX L X X X X L_ CHARO=H, INCSCR=L
  63. C LLL XXX¥XH L X LLL X Bb xX X X X LL. HOLD
  64. C LLH xXXXXXH L X LLL xX Lb xX X X X L_ HOLD
  65. C LHL XXXXXH LX LLL XxX LG xX X X X L_ HOLD
  66. C LAH xXXXXX H L X LL&L xX Lb xX X X X L- HOLD
  67. C HLL XXXXXH Lb X LL&L xXx Bb X X X X L_ HOLD
  68. C HLA XXXXXH L X LLL xX Bb xX X X X L- HOLD
  69. C HHL HHHHHH Lb X L AHLxX LX X X X X_ END OF LINE
  70. C HHH #HHLXXL L LLL &Looe xX X X X X ~~ CLEAR CLRLIN & H255
  71. C LLL HHAXXL H LL LLbo ox 8 X X L_. SET HBLANK
  72. C HHH HHLXXH LL L&GLL iG X 8H X L L_ SET CURSO LO ra
  73. C LLL HHLLLA H GL LGbL6L Gb XxX A X L X ~ SBLANK=L
  74. C -LHH #HHLXXH LL L&Lnoeon xX X L L L_ HOLD
  75. C HHL HHEXX H L HL LHL S#H xX X LL L_ SET INCSCR
  76. C XXX HHLXXL LL L&boL.hsaAaxX ¥ X X¥ L L_ SET CLRLIN
  77. C LLL LLxXxxXL L L LLL HR xX X X¥ X L #_ HOLD CLRLIN,SET WRITE
  78. C LLL LLExxxXL L LLL GH X¥ X X X L L_ CLR WRITE,HOLD CLRLIN
  79. C LLL HALXXL L L LLL L xX X X X L #H_ CLEAR CLRLIN
  80. C LLH XXXXXL L LLLLoL. aH xX X #& L &F_ SET SWAP & SWAPC