home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / geos / programming / source / geoFontID.lnx / geoFontDraft (.txt) next >
Encoding:
GEOS ConVerT  |  1999-06-16  |  3.6 KB  |  147 lines
  1. GEOfONTdRAFT
  2. prg FORMATTED geos FILE v1.0
  3. wRITE iMAGE v2.1
  4. GEOwRITE    v2.1
  5. @GEOfONTdRAFT ROUTINES
  6. .IF pASS1
  7. .INCLUDEGEOSmAC
  8. .ENDIF
  9. @__________________________________
  10. DRAFT:JSRINITDISK;IN id
  11. JSRsTARTascii
  12. JSRI_fILLrAM
  13. .WORD80, $5000
  14. .BYTE32
  15. LDX#0;COUNTER
  16. LDY#5;SPACER
  17. DTITLE:LDADDTITLE,X
  18. CMP#0
  19. BEQMOVEOVER
  20. STAGRBUFF,Y
  21. JMPDTITLE
  22. MOVEOVER:LDY#35
  23. LDX#0
  24. PDATE:LDADDDATE,X
  25. CMP#0
  26. BEQGETDATE
  27. STAGRBUFF,Y
  28. JMPPDATE
  29. GETDATE:mOVEbMONTH, NUMBER
  30. JSRDATEASCII
  31. lOADb"GRBUFF,Y", #47
  32. mOVEbDAY, NUMBER
  33. JSRDATEASCII
  34. lOADb"GRBUFF,Y", #47
  35. mOVEbYEAR, NUMBER
  36. JSRDATEASCII
  37. JSRDPRINT
  38. JSRPBLANKLINE
  39. LDX#0
  40. LDY#21
  41. DDISK:LDADDDISK,X
  42. CMP#0
  43. BEQEDNAME
  44. STAGRBUFF,Y
  45. JMPDDISK
  46. EDNAME:LDX#0
  47. DNAME:LDADISKnAME,X
  48. CMP#0
  49. BEQNAMEDONE
  50. STAGRBUFF,Y
  51. JMPDNAME
  52. NAMEDONE:JSRDPRINT
  53. JSRPBLANKLINE
  54. LDX#0
  55. LDY#18
  56. DCOL:LDADDCOLS,X
  57. CMP#0
  58. BEQCOLSDONE
  59. STAGRBUFF,Y
  60. JMPDCOL
  61. COLSDONE:JSRDPRINT
  62. JSRPBLANKLINE
  63. JMPMAINLOOP
  64. DENTRY:LDX#0
  65. LDY#18
  66. RENTRY:LDAFONTnAME,X
  67. CMP#0
  68. BEQDIDSPACE
  69. STAGRBUFF,Y
  70. JMPRENTRY
  71. DIDSPACE:LDX#0
  72. LDY#39
  73. DIDGET:mOVEbIDnO, NUMBER
  74. JSRDECASCII
  75. JSRDPRINT
  76. JMPSECTENDCK
  77. @;__________________________________
  78. DECASCII:LDX#0
  79. STXPLACEfLAG
  80. HERE:LDANUMBER
  81. CMP#100
  82. BCCHUN
  83. SUB#100
  84. STANUMBER
  85. INX
  86. JMPHERE
  87. HUN:TXA
  88. ADD#48
  89. CMP#48
  90. BEQNOZERO
  91. STAGRBUFF,Y
  92. lOADbPLACEfLAG, #1
  93. NOZERO:INY
  94. LDX#0
  95. THERE:LDANUMBER
  96. CMP#10
  97. BCCTEN
  98. SUB#10
  99. STANUMBER
  100. INX
  101. JMPTHERE
  102. TEN:TXA
  103. ADD#48
  104. CMP#48
  105. BEQPLACECHECK
  106. AROUND:STAGRBUFF,Y
  107. OMIT:INY
  108. LDANUMBER
  109. ADD#48
  110. STAGRBUFF,Y
  111. @__________________________________
  112. DATEASCII:LDX#0
  113. 1$:LDANUMBER
  114. CMP#10
  115. BCC2$
  116. SUB#10
  117. STANUMBER
  118. BRA1$
  119. 2$:TXA
  120. ADD#48
  121. CMP#48
  122. BEQ4$
  123. 3$:STAGRBUFF,Y
  124. 4$:LDANUMBER
  125. ADD#48
  126. STAGRBUFF,Y
  127. @__________________________________
  128. PLACECHECK:LDAPLACEfLAG
  129. CMP#1
  130. BNEOMIT
  131. JMPAROUND
  132. @__________________________________
  133. PBLANKLINE:lOADwR0, #BLANKLINE
  134. JSRpRINTascii
  135. @__________________________________
  136. DPRINT:lOADb"GRBUFF,Y", #13
  137. lOADb"GRBUFF,Y", #0
  138. lOADwR0, #GRBUFF
  139. JSRpRINTascii
  140. JSRI_fILLrAM       
  141. .WORD80, $5000
  142. .BYTE32
  143. JSRCHKCANCL
  144. @__________________________________
  145. @time  date   pAGE--page   
  146. draft
  147.