FB 190    -FB 190                    C:PS5596ST.S5D                    LAE=154  
                                                                       
Netzwerk 1
Name :HANT.PCS
Bez  :UBDB      E/A/D/B/T/Z: B
Bez  :RSET      E/A/D/B/T/Z: E  BI/BY/W/D: BI
Bez  :EROR      E/A/D/B/T/Z: A  BI/BY/W/D: BI
Bez  :RFLM      E/A/D/B/T/Z: A  BI/BY/W/D: BI
Bez  :PADR      E/A/D/B/T/Z: D  KM/KH/KY/KC/KF/KT/KZ/KG: KF
Bez  :BAUD      E/A/D/B/T/Z: D  KM/KH/KY/KC/KF/KT/KZ/KG: KF
Bez  :INIT      E/A/D/B/T/Z: B
Bez  :COFF      E/A/D/B/T/Z: B
Bez  :WDHA      E/A/D/B/T/Z: D  KM/KH/KY/KC/KF/KT/KZ/KG: KF
 
     :B   =UBDB                                  AUSGABE UEBERGABE-DB
     :LW  =PADR                                  BASISADRESSE
     :T   -MW 239                                (RELATIVADR.) NACH MW250
     :I        1
     :T   -MW 241
     :I        1
     :T   -MW 243
     :I        1
     :T   -MW 245
     :U   =RFLM
     :SPB =M001
     :B   -MW 241
     :L   PY   0                                 KARTE BEREIT ?
     :T   MB 255
     :UN  M  255.7
     :BEB                                        WENN NICHT BEREIT
     :S   =RFLM                                  RFLM AUF 1 SETZEN
     :B   =INIT                                  MASCHINENSPEZ. VORBESETZUNGEN
     :B   =UBDB                                  SICHERHEITSHALBER !
     :L   KH 0000
     :T   DW   3
     :LW  =BAUD                                  --- START DURCH MELDEN EINER
     :I        1                                 BAUDRATE (KF 0..+3)
     :LW  =WDHA                                  UND ANZAHL DER ZUSAETZLICHEN
     :SLW      4                                 WIEDERHOLAUFFORDERUNGEN
     :OW                                         (KF 0..+15) !!
     :T   MW 254                                 DER KARTE PCS 810 MELDEN !
     :B   -MW 239                                BASISADRESSE PCS310
     :T   PY   0
     :BEA                                        ->-> AUSGANG 1. ZYKLUS ->->->
M001 :L   KH 0000
     :T   -MW 247
     :B   -MW 241                                ADR. BEF.-KANAL STATUS
     :L   PY   0
     :T   MB 255
     :UN  M  255.7
     :BEB                                        WENN NICHT !
M003 :B   -MW 245                                --  STATUS -> MW255 ---
     :L   PY   0                                 +OFFSET DATENKANAL STATUS
     :T   MB 255
     :UN  M  255.5                               WENN = 1, WEITERE SUBPAKETE !
     :SPB =M002                                  SONST STARTBEFEHL / FEHLERBEH.
     :B   -MW 243
     :L   PY   0                                 -- ABSOLUTADRESSE (STARTADR.)
     :T   MB 248                                 DIESES SUBPAKETES -> MW252 ---
     :B   -MW 243
     :L   PY   0                                 -- BEFEHL UND LAENGE -> MW252
     :T   MB 249
     :L   -MW 248                                BEFEHL IN 253.7..4,
M008 :L   KH 000F                                WIEDERHOLFAKTOR IN 253.3..0
     :UW                                         FAKTOR AUSMASKIEREN
     :L   KH 0000
     :!=F
     :SPB =M003                                  DO WHILE > 0,
     :UN  M  249.4                               WEND: NAECHSTES SUBPAKET
     :SPB =M004                                  SPRUNG FUER ALLE SCHREIB-
     :B   -MW 247                                DR -> IN 252 STEHT DW-NR.
     :L   DW   0
     :T   MW 254                                 DUMMY WORT
     :L   MB 254                                 HIGHBYTE SENDEN (H-WORD 254)
     :B   -MW 243                                ADR. PCS810 KARTE +2
     :T   PY   0                                 (DATENKANAL)
     :L   MB 255                                 LOWBYTE  MB 255 (L-WORD 254)
     :B   -MW 243                                ADR. PCS810 KARTE +2
     :T   PY   0                                 (DATENKANAL)
     :SPA =M005                                  UND ZUM ZEIGERINKREMENT
M004 :B   -MW 243                                -- SCHREIBOPERATIONEN ---
     :L   PY   0                                 1. BYTE AUS PCS 810 -> MB254
     :T   MB 254                                 (ZWISCHENSPEICHER FUER UND/ODE>
     :B   -MW 243
     :L   PY   0
     :T   MB 255                                 2. BYTE -> MW255
     :L   MW 254                                 DATEN (2 BYTE)
     :U   M  249.5                               SPRUNG WENN EINFACHE SCHREIB-
     :SPB =M006
     :B   -MW 247                                ENTSPRICHT  B MB252
     :L   DW   0                                 LADE DW. NR X
     :UN  M  249.6                               SPRUNG WENN "ODER" VERLANGT !
     :SPB =M007
     :UW
     :SPA =M006                                  WEITER ZUM ZURUECKSCHREIBEN
M007 :OW
M006 :B   -MW 247                                ENTSPRICHT  B MB252
     :T   DW   0                                 UND ERGEBNIS IN DB SCHREIBEN
M005 :L   MB 248                                 NAECHSTES DW
     :I        1                                 DW +1
     :T   MB 248
     :L   MB 249                                 SCHLEIFENZAEHLER
     :D        1                                 N-SCHLEIFEN  -1
     :T   MB 249
     :SPA =M008
M002 :L   DW   3                                 -- FEHLERABFRAGE ----
     :L   KH 0000
     :OW
     :SPN =M009
     :U   =RSET                                  FUER RESET BEI LAUFENDER
     :SPB =M010                                  KOMMUNIKATION
     :L   KB 0                                   MIT 00 -> BEF.-KANAL NAECHSTES
     :B   -MW 239                                PAKET SENDEN (STARTEN)
     :T   PY   0
     :RB  =EROR                                  FEHLERMELDER AUS !
     :BEA                                        ->-> NORMALER AUSGANG ->->->->>
M009 :S   =EROR                                  FEHLERMELDER EIN !
     :B   =COFF                                  BEI ERROR NACH COFF !
     :UN  =RSET                                  --- RESET VERLANGT ? ----
     :BEB                                        WENN NICHT,           ->->->->>
M010 :L   KB 10                                  10H = RESETBEFEHL FUER PCS310
     :B   -MW 239                                LOEST BEI ANGESCHLOSSENEM
     :T   PY   0                                 PCS AUCH DORT RESET AUS.
     :RB  =RFLM                                  FLAG FUER ERSTEN DURCHLAUF
     :RB  =RSET                                  RESETSIGNAL ZU 0 SETZEN
     :BE
	 