zurück : inhalt 
* Nu * mtra_dat
* daten zu "SV0"

 nolist
.m    setnum  1
.n    setnum  16
.t    setstr  {''}

* group of pseudo messages used as some persistent memory space
MEMSG macro   A B
      local   d h m n s
      noexpand
d     setnum  [.m]+[b]
h     maclab
s     setnum  *-e
n     setnum  [s]+42
s     setstr  { [s]}
n     setstr  { [n]}
s     setstr  {*[.m]* auf SYSV_L(330) + [.right(s,4)]  bis  [.right(n,4)] * }
n     setnum  [.len(s)]+1
      expand
m[.m] dc.b    0,[n],'[s]',10
      noexpand
.m    setnum  [.m]+1
      ifnum   [.m] < [d] GOTO h
      ENDM

* system messages
ERMSG macro   A
      local   l m n s t
      noexpand
h     maclab
m     setstr  {0[.m]}
m     setstr  {[.right(m,2)]}
s     setstr  { ½ [A]}
n     setnum  [.len(s)]
l     setnum  [n]+5
      ifnum   [.instr(s,.t)] = 0 GOTO qte
l     setnum  [l]-1
qte   maclab
      ifnum   [l]&1 = 0 GOTO mlen
l     setnum  [l]+1
s     setstr  {[s] }
mlen  maclab
      expand
m[m]  dc.b    0,[l],'{[m]}[s]',10
      noexpand
.m    setnum  [.m]+1
      ENDM
 [.code]list
      section MTT
*
* minerva/ibm#2 compliant (as much as possible) character translation
dlqtra DC.W   $4AFB,dqchr-*,dqtrs-*
dqchr  dc.b   000,001,002,003,004,005,006,007     ; 000 : " => ge?ndert 11/95 =>      - form feed
* 166 ¦ csF  null mit strich                    - "0" & "/"
* 168 ¨ csH  16 linien/zeile                    - lf to 16 lines
* 179 ³ csS  schmal                             - narrow chars.
* 181 µ csU                                -  character
* f?r ibm-zeichen #2, epson-betrieb               ; QL minerva-zeichensatz
* QL minerva and ibm#2, epson mode
       dc.b   132,185,186,187,148,188,191,129     ; 128 : "??,f????"
       dc.b   192,193,194,139,197,200,201,202     ; 136 : "^?S<????"
       dc.b   203,204,206,217,141,146,209,207     ; 144 : "?????.--"
       dc.b   199,163,151,182,225,218,205,196     ; 152 : "~?s>???Y"
       dc.b   142,161,143,144,153,165,237,154     ; 160 : " ¡¢£¤¥¦§"
       dc.b   128,179,195,171,224,235,233,253     ; 168 : "¨©ª«¬­®¯"
       dc.b   230,227,232,179,180,195,021,196     ; 176 : "°±²³´µ¶·"
       dc.b   174,175,248,246,000,000,000,000     ; 184 : "¸¹º»¼½¾¿"
       dc.b   192,193,194,195,196,197,232,226     ; 192 : "ÀÁÂÃÄÅÆÇ"
       dc.b   006,003,004,005,239,000,236,234     ; 200 : "ÈÉÊËÌÍÎÏ"
       dc.b   239,000,191,228,000,089,169,170     ; 208 : "ÐÑÒÓÔÕÖ×"
       dc.b   217,241,218,240,243,000,242,247     ; 216 : "ØÙÚÛÜÝÞß"
       dc.b   000,219,226,120,100,238,230,121     ; 224 : "àáâãäåæç"
       dc.b   075,105,124,075,172,171,238,099     ; 232 : "èéêëìíîï"
       dc.b   000,000,112,229,231,121,251,247     ; 240 : "ðñòóôõö÷"
       dc.b   120,249,250,244,252,245,176,177     ; 248 : "øùúûüýþÿ"
*   '.' markiert ibm-graphikzeichen f?r tastatureingabe umgesetzt
dqtrs  dc.b   11              ; code: char: tra   : keybd
       dc.b   188,060,008,045 ; 188 : "¼" : "<.-"
       dc.b   189,062,008,045 ; 189 : "½" : ">.-"
       dc.b   190,173,008,094 ; 190 : "¾" : "­.^"
       dc.b   191,033,008,118 ; 191 : "¿" : "!.v"
       dc.b   212,079,008,249 ; 212 : "Ô" : "O.ù" : s¾      (kringel mit punkt)
       dc.b   221,061,008,047 ; 221 : "Ý" : "=./" : sa¿     (=/=)
       dc.b   224,239,008,095 ; 224 : "à" : "ï._" : sh.lock (kiste)
       dc.b   241,061,008,062 ; 241 : "ñ" : "=.>" : cF3
       dc.b   205,250,008,118 ; 205 : "Í" : "ú.v" : sa½     (delta falsch rum)
       dc.b   209,179,008,085 ; 209 : "Ñ" : "³.U" : a¾      (antenne)
       dc.b   240,179,008,117 ; 240 : "ð" : "³.u" : F3      (psi)
* reserved space to possibly carry up to 256 translations
       dcb.b 1024-*+dqtrs,0   ; platz f?r den rest der 256 zeichen
e ; ptrs to the system messages
errmsg dc.w   $4AFB
       dc.w   m01-e,m02-e,m03-e,m04-e,m05-e,m06-e,m07-e,m08-e
       dc.w   m09-e,m10-e,m11-e,m12-e,m13-e,m14-e,m15-e,m16-e
       dc.w   m17-e,m18-e,m19-e,m20-e,m21-e,m22-e,m23-e,m24-e
       dc.w   m25-e,m26-e,m27-e,m28-e,m29-e,m30-e,m31-e,m32-e
       dc.w   m33-e,m34-e,m35-e,m36-e,m37-e,m38-e,m39-e,m40-e
       dc.w   m41-e,m42-e,m43-e,m44-e,m45-e,m46-e,m47-e,m48-e
       dc.w   m49-e
* system messages, texts may be altered freely
.m     setnum 1
       ermsg  {Hoppala}
       ermsg  {Der Job ist faul.}
       ermsg  {Peng! Alles weg.}
       ermsg  {Ha! Daneben!}
       ermsg  {Satt..}
       ermsg  {Macht das Tor auf..}
       ermsg  {Wo denn ? Wie denn ?}
       ermsg  {Bitte FRISCH und NEU !}
       ermsg  {Besetzt !}
       ermsg  {Nichts mehr da.}
       ermsg  {nu reicht''s}
       ermsg  {G¬xlY·²,szf.. ?}
       ermsg  {..einige sind gleicher ?}
       ermsg  {Ohne Format.}
       ermsg  {Ich fre?''es nicht.}
       ermsg  {Aua!!}
       ermsg  {Geht nich..}
       ermsg  {Astronomie ?}
       ermsg  {Mir neu.}
       ermsg  {Schreibt nicht.}
       ermsg  {Sprechen lernen !}
       ermsg  {Hier:}
       ermsg  { H?ppchen }
       ERMSG  { SICHTGER T   GLOTZE  / SIMPEL ... }
m25    dc.b   0,$38,'  MEIQL 3.02 MVG',10,'  .hpr''92 Berlin',10
       dc.b   '47 System-Meldungen  ',10
.m     setnum 26
       ermsg  {Auch nicht, WHEN ...}
       ermsg  {Hab'' mich verlaufen ...}
* do not alter the date related names, else at least ABACUS will get confused
m49    dc.w   m29e-m28
m28    dc.b   'SunMonTueWedThuFriSat  ',10
m29    dc.b   'JanFebMarAprMayJunJulAugSepOctNovDec ',10
m29e ; end of required system messages
.m     setnum 30
* 16 multi purpose pseudo messages (e.g. for data storage)
       memsg  .m 16
       ermsg  {Offsetangaben zu TRA xxxxxx,Systemmeldungen}
       ermsg  {*** ENDE ***}
       ermsg  {ERR_MS#3.02 .hpr[.date]}
       dc.l   0
* » eof »
 

  oben : zurück : inhalt