0¥XambrasSÓÓÓVIDEOTEX.A PN VIDEOTEXT; ORG 00100HMFREE: EQU 01800HANZS: EQU 50ZANF: EQU 00E00HPDR: EQU 050HPFL: EQU 052HPIIC: EQU 056H;BEGIN: JMP ANF JMP PGET JMP DISP JMP STAT JMP CTON JMP CTOFF JMP PSEIT; JMP INIT JMP RUFE JMP READ JMP SENDICADR: DB 022H;ANF: CALL INIT CALL CTON LD HL,LOGO CALL SENDMAIN: LD SP,000B0H LD HL,R11 CALL SEND LD HL,EVSS CALL SEND RST 020H DB 2,12,13,13 DB 13,' ' DB 'Z 1013 - ' DB 'Videotext' DB ' 1.1' DB 13,' ' DB '*********' DB '*********' DB '******' DB 13,13,13 DB ' S ... ' DB 'Lesen ein' DB 'er Seite' DB 13,13 DB ' U ... ' DB 'Lesen ein' DB 'er Unter' DB 'seite' DB 13,13 DB ' L ... ' DB 'Laden von' DB ' 50 Seite' DB 'n' DB 13,13 DB ' l ... ' DB 'Laden von' DB ' Seiten ' DB 'maskiert' DB 13,13 DB ' D ... ' DB 'Druck aus' DB ' Seitensp' DB 'eicher' DB 13,13 DB ' T ... ' DB 'Wandeln ' DB 'in Textfi' DB 'le' DB 13,13 DB ' B ... ' DB 'Bildschir' DB 'manzeige' DB 13,13 DB ' V ... ' DB 'Druckvari' DB 'anten' DB 13,13 DB 08DHTAST: RST 020H DB 2 DB 13,13 DB ' Wahl' DB ': >_<',8 DB 088HNKPL: LD HL,00300HWKEYP: RST 020H DB 4 OR A JRNZ KEYPR-# DEC HL LD A,H OR L JRNZ WKEYP-# LD HL,RZ1 CALL SEND LD HL,SPACE LD DE,32 CALL RTXT LD HL,SPACE LD DE,0EC00H LD B,32WK3: LD A,M CMP 32 CAC VTSTZ LD (DE),A INC HL INC DE DJNZ WK3-# JR NKPL-#KEYPR: CMP 3 JRNZ DM2-# RST 020H DB 2,08CH RST 038HDM2: PUSH AF RST 020H DB 0 RST 020H DB 2 DB '<',13,08DH POP AF LD HL,TAST PUSH HL CMP 'S' JPZ SEITE CMP 'L' JPZ LMEM CMP 'l' JPZ LMEM CMP 'D' JPZ DMEM CMP 'B' JPZ TVGET CMP 'T' JPZ ASCII CMP 'U' JPZ USEIT CMP 'V' JPZ DVAR POP HL JMP MAIN;ASCII: LD HL,MFREE LD B,ANZSASCL1: CALL MKASC DJNZ ASCL1-# LD HL,MFREE LD B,ANZSASCL2: CALL MKET DJNZ ASCL2-# RETMKASC: LD D,24MKZEA: LD E,40MKSPA: LD A,M CMP 32 CAC VTSTZ LD M,A INC HL DEC E JRNZ MKSPA-# DEC D JRNZ MKZEA-# RETVTSTZ: LD A,32 RETMKET: PUSH BC LD B,24 LD DE,40MKEL: LD M,01EH ADD HL,DE DJNZ MKEL-# POP BC RETSEITE: CALL ENTSRUSS: LD HL,MFREE CALL PGET LD HL,MFREE CALL DISP RST 020H DB 2 DB 'Drucken' DB 0A0H CALL ASK CAZ PSEIT RETUSEIT: CALL ENTS CALL ENTU JR RUSS-#ENTU: RST 020H DB 2 DB 'Sub' DB 'seite: -' DB 088H LD HL,SIDE+6 LD B,1US2: CALL ORDN JRC US2-# LD M,A INC HL ADD 030H RST 020H DB 0 DJNZ US2-# RST 020H DB 2,08DH CALL CUS RETENTS: CALL SNORM RST 020H DB 2 DB 'Seite:' DB ' ---' DB 8,8,088H LD HL,SIDE LD B,3LS2: CALL ORDN JRC LS2-# LD M,A INC HL ADD 030H RST 020H DB 0 DJNZ LS2-# RST 020H DB 2 DB ' ' DB 0A0H CALL CSI RETORDN: RST 020H DB 1 CMP '0' RC SUB 030H CMP 10 CCF RETSNORM: LD HL,SIDE LD B,7CLRP: LD M,0 INC HL DJNZ CLRP-# JR RHOLD-#CUS: LD HL,SIDE+3 LD B,4CUS2: LD A,M OR 010H LD M,A INC HL DJNZ CUS2-#CSI: LD HL,SIDE LD B,3CSI2: LD A,M OR 010H LD M,A INC HL DJNZ CSI2-#RHOLD: LD A,(SIDE) OR 8 LD (SIDE),A RET DMEM: CALL VFS RST 020H DB 2,13,13 DB 'D f}r Dr' DB 'uck / T ' DB 'f}r TV' DB 08DH LD HL,(02BH) LD (SPACE+4),HL LD B,68JZH: LD A,8 RST 020H DB 0 DJNZ JZH-#DML: RST 020H DB 1 CMP 3 JRZ GOMM-# CMP 13 JRZ SMPR-# CMP 'D' JRZ SMPR-# CMP 'T' JRZ SMTV-# CMP 8 CAZ CUL CMP 9 CAZ CUR JR DML-#GOMM: LD HL,(SPACE+4) LD (02BH),HL RETSMPR: CALL DSFOU JRNC DML-# PUSH HL CALL PSEIT POP HL JR SMP2-#SMTV: CALL DSFOU JRNC DML-#SMP2: CALL DIHL JR DML-#DIHL: CALL CUR RETDSFOU: LD HL,(02BH) LD DE,MFREE LD C,ANZS LD (SPACE+2),HLSMPL: LD (SPACE),DE LD HL,8 ADD HL,DE EX DE,HL LD HL,(SPACE+2) LD A,(DE) CMP M JRNZ NSPG-# INC DE INC HL LD A,(DE) CMP M JRNZ NSPG-# INC DE INC HL LD A,(DE) CMP M JRNZ NSPG-# LD HL,(SPACE) SCF RETNSPG: LD DE,(SPACE) LD HL,960 ADD HL,DE EX DE,HL DEC C RZ JR SMPL-#CUL: PUSH AF RST 020H DB 2 DB 8,8,8,088H POP AF RETCUR: PUSH AF RST 020H DB 2 DB 9,9,9,089H POP AF RETVFS: RST 020H DB 2,13 DB 'verf}gba' DB 're Seite' DB 'n:' DB 08DH LD HL,MFREE LD B,ANZSVFSL: CALL ZNR LD DE,960 ADD HL,DE DJNZ VFSL-# RETZNR: PUSH HL PUSH BC LD DE,8 ADD HL,DE LD B,3ZNRL: LD A,M RST 020H DB 0 INC HL DJNZ ZNRL-# RST 020H DB 14 POP BC POP HL RETLMEM: PUSH AF CALL SNORM POP AF PUSH AF CMP 'l' CAZ MASK CALL RHOLD RST 020H DB 2 DB 'Lade ' DB 'Seite ' DB '01 ...' DB 8,8,8,8,8 DB 0B1H POP AF LD B,ANZS LD C,0 LD HL,MFREELML: PUSH AF PUSH BC CMP 'L' JRZ CLPG-# CALL PGETLML2: POP BC CALL COUNT POP AF DJNZ LML-# RETCLPG: CALL LPGET JR LML2-#MASK: RST 020H DB 2 DB 'Maske:' DB 0A0H RST 020H DB 16 LD DE,(016H) LD B,7 LD HL,SIDEMAL: PUSH HL RST 020H DB 3 LD A,L POP HL LD M,A INC HL DJNZ MAL-# RETCOUNT: INC C PUSH BC XOR A INC CTCAD: INC A DAA DEC C JRNZ TCAD-# PUSH AF RST 020H DB 2,8,088H POP AF RST 020H DB 6 POP BC RETLPGET: PUSH HL LD HL,R11 CALL SEND LD HL,SSUCH CALL SENDFPW1: CALL ARRIV JRNZ FPW1-# LD HL,SREAD CALL SEND POP HL LD DE,40 CALL RTXT PUSH HL LD HL,RARR CALL SENDFPW2: LD HL,ARRD CALL SEND CALL RR11 CMP '#' JRZ FPW2-# CALL CTOFF LD HL,SRE2 CALL SEND POP HL LD DE,920 CALL RTXT CALL CTON RETPGET: PUSH HL LD HL,R11 CALL SEND LD HL,SSUCH CALL SEND POP HLPW1: CALL ARRIV JRNZ PW1-# PUSH HL CALL W100 CALL CTOFF LD HL,SREAD CALL SEND POP HL LD DE,960 CALL RTXT CALL CTON RETARRIV: PUSH HL RST 020H DB 4 CMP 3 JPZ MAIN LD HL,DARR CALL SEND CALL RR11 POP HL BIT 5,A RETTVGET: NOPDISP: PUSH HL LD HL,TVD CALL SEND POP HL RETSTAT: LD HL,R11B CALL SENDRR11: LD HL,SPACE LD DE,1 CALL RTXT LD HL,SPACE LD A,M RETWSEC1: LD B,10WSL: CALL W100 DJNZ WSL-# RETW100: LD HL,01DFDHPAU1: DEC HL LD A,H OR L JRNZ PAU1-# RETCTON: PUSH HL LD HL,CON CALL SEND POP HL RETCTOFF: PUSH HL LD HL,COFF CALL SEND POP HL RET;; Grundroutinen f}r; IIC-Steuerung;RUFE: LD D,0RNXT: LD A,D CALL START CALL SBYTE CAZ IDENT CALL STOP INC D LD A,D OR A JRNZ RNXT-# RETRTXT: PUSH HL LD HL,R11R CALL SEND POP HLREAD: CALL START LD A,(ICADR) INC A CALL SBYTE JPNZ NOIC PUSH BC LD B,D LD C,ERLP: LD D,1 DEC BC LD A,B OR A JRNZ RLP2-# LD D,CRLP2: CALL RBYTE LD M,A INC HL LD A,B OR C JRNZ RLP-# POP BC CALL STOP RETSEND: CALL START LD A,(ICADR) CALL SBYTE JPNZ NOIC PUSH BC LD B,MSLP: INC HL LD A,M CALL SBYTE JPNZ ERROR DJNZ SLP-# POP BC CALL STOP RETRBYTE: PUSH BC LD A,2 OUT PIIC LD B,8RLOOP: SET 0,A OUT PIIC IN PIIC BIT 3,A SCF JRZ RHI-# CCFRHI: RL C RES 0,A OUT PIIC DJNZ RLOOP-# XOR A CMP D JRNZ REND-# LD A,2REND: OUT PIIC SET 0,A OUT PIIC RES 0,A OUT PIIC SET 1,A OUT PIIC LD A,C POP BC RETSBYTE: PUSH BC LD B,8 LD C,A XOR ASLOOP: SET 1,A RLC C JRC SHI-# RES 1,ASHI: OUT PIIC SET 0,A OUT PIIC RES 0,A OUT PIIC DJNZ SLOOP-# POP BC SET 1,A OUT PIIC SET 0,A OUT PIIC IN PIIC CPL BIT 3,A CPL RES 0,A OUT PIIC RETSTART: PUSH AF LD A,1 OUT PIIC XOR A OUT PIIC POP AF RETSTOP: PUSH AF XOR A OUT PIIC OR 1 OUT PIIC OR 3 OUT PIIC POP AF RETINIT: LD A,0FFH OUT PIIC OUT PIIC+1 LD A,0FCH OUT PIIC+1 CALL STOP RETPRHL: PUSH AFPR2: LD A,M OR A JRZ PRE-# CMP 32 JRNC PR3-# LD A,32PR3: RST 020H DB 0 INC HL JR PR2-#PRE: POP AF RETERROR: RST 020H DB 2 DB 13 DB 'Fehler.' DB 08DH CALL STOP RST 038HNOIC: LD A,(ICADR) LD D,A CALL IDM RST 020H DB 2 DB 'nicht.' DB 08DH CALL STOP RST 038HIDENT: CALL IDM RST 020H DB 2,8 DB '.',08DH RETIDM: CALL NAME RST 020H DB 2 DB ' meldet' DB ' sich' DB 0A0H RETNAME: RST 020H DB 2 DB 'IC' DB 0A0H LD A,D RST 020H DB 6 RET;; Grundroutinen f}r; Druckerausgabe;DVAR: LD B,0 RST 020H DB 2 DB 'Vollgraf' DB 'ik ' DB 0A0H CALL ASK JRZ DRVG-# LD B,1DRVG: RST 020H DB 2 DB 'alle Zei' DB 'chen' DB 0A0H CALL ASK LD A,B JRNZ DRCD-# OR 2DRCD: LD (DROPT),A RETASK: RST 020H DB 2 DB ' (J)/N :' DB 0A0H RST 020H DB 1 CMP 'J' JRZ MAY-# CMP 'j' JRZ MAY-# LD A,'N'MAY: PUSH AF RST 020H DB 0 RST 020H DB 2,08DH POP AF RETPSEIT: PUSH HL LD HL,PENT LD B,3 CALL PGIVE POP HL LD B,24NXZ: PUSH BC CALL PZEIL POP BC RST 020H DB 4 CMP 3 RZ DJNZ NXZ-# CALL LFPR JR LFPR-#PZEIL: LD A,(DROPT) BIT 0,A JRNZ PZNZ-# PUSH HL LD HL,CVGA LD B,5 CALL PGIVE POP HLPZNZ: XOR A LD (STRG),A LD (HFA),A LD A,7 LD (VFA),A LD B,40PLOP: LD A,M CALL VGRA INC HL DJNZ PLOP-# LD A,13 CALL POUTLFPR: LD A,10 CALL POUT RETVGRA: PUSH HL PUSH DE PUSH BC LD HL,STRG CMP 8 CAC SASC CMP 16 JRC SLE-# CMP 018H CAC SGRA CMP 24 CAZ CONC CMP 28 CAZ BBKG CMP 29 CAZ FBKG CMP 30 CAZ SHLD CMP 31 CAZ RHLD CMP 32 JRNC NUG-#SLE: LD A,32NUG: BIT 1,M CANZ TRANS LD (LAST),A LD B,A LD A,(DROPT) BIT 1,A JRNZ TOS-# BIT 2,M JRNZ NTOS-# LD A,(VFA) AND 00FH LD C,A LD A,(HFA) AND 00FH CMP C JRNZ TOS-#NTOS: LD B,32TOS: LD A,(DROPT) BIT 0,A JRNZ PNZ2-# LD HL,ZANF LD D,0 LD E,B SLA E RL D SLA E RL D SLA E RL D ADD HL,DE LD B,8 CALL PGIVEPPOP: POP BC POP DE POP HL RETPNZ2: LD A,B CALL POUT JR PPOP-#TRANS: LD B,A LD A,(DROPT) BIT 0,A JRNZ TSPC-# LD A,B CMP 040H JRNC GR40-# ADD 080H RETGR40: CMP 060H RC CMP 080H RNC SUB 060H RETTSPC: LD A,32 RETSHLD: SET 0,M RETRHLD: RES 0,M RETSASC: RES 1,M RES 2,M LD (VFA),A RETSGRA: SET 1,M RES 2,M LD (VFA),A BIT 0,M RZ LD A,(LAST) RETBBKG: XOR A LD (HFA),A RETFBKG: LD A,(VFA) LD (HFA),A RETCONC: SET 2,M RETPGIVE: LD A,M CALL POUT INC HL DJNZ PGIVE-# RETPOUT: PUSH AF OUT PDRPRL: IN PFL BIT 0,A JRNZ PRL-# POP AF RETPENT: DB 27,'3',24CVGA: DB 27,'*',5 DA 320VFA: DB 0HFA: DB 0LAST: DB 0STRG: DB 0DROPT: DB 0R11: DB 2,0,0R11B: DB 2,0,3R11R: DB 1,11CON: DB 2,1,4COFF: DB 2,1,36UHR: DB 4,8,0,0,32RZ1: DB 4,8,0,0,8SSUCH: DB 9,2,0SIDE: DB 8,0,0USM: DB 0,0,0,0EVSS: DB 9,2,0 DB 019H,010H,015H DB 010H,011H,0,0SREAD: DB 4,8,0 DB 0,0SRE2: DB 4,8,0 DB 1,0DARR: DB 4,8,0 DB 25,9RARR: DB 7,8,0 DB 0,7 DB '###'ARRD: DB 4,8,0 DB 0,8SZ25: DB 4,8,0 DB 25,0TVD: DB 5,4TVDS: DB 0TVDM: DB 0AAH,0AAH DB 7LOGO: DB 11,8,0 DB 0,0 DB 3,'*Z-VT*';SPACE: DB 0 END; ENDKopf f}r Endfassung: PN VIDEOTEXT; ORG 00100HMFREE: EQU 01800HANZS: EQU 50ZANF: EQU 00E00HPDR: EQU 050HHardware-Anschlu~:Pin 0: SCL outPin 1: SDA outPin 2: SCL inPin 3: SDA inerste Meldungen des SAA 5243(022H) am 16.9.93 !ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ