* 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 »