CLEAR=JMS I 43 SET=JMS I 44 REFRSH=JMS I 45 RF=2 CL=40 TG=100 RW=20 TR=1000 MUX=4 WE=10 FQ=200 CS=400 DI=1 FE=2000 *40 RAMLIC, 0 RABIC, 0 ERRMPT, 0 SRCLR SRSET *1000 RAMSTR, LINE TDC /OLD OR NEW(O OR N) 4317 4314 4304 4240 4317 4322 4240 4316 4305 327 LINE RTCHAR CHECK 317 JMP RAMALT MOSTGO /EINLESEN VON SETBACK M UND N (ZEILEN U. SPALTEN) /EINLESEN VON DELAY (LOW A. HIGH) /EINLESEN VOM BITMUSTER UND AUSDRUCK RAMNEU, TAD RAMTRN CIA IAC DCA RAMTRN TAD RAMTRM CIA IAC DCA RAMTRM RAMBIT, LINE /BITMUSTER: TDC 4302 4311 4324 4315 4325 4323 4324 4305 322 LINE RAMIN, CLA /EINLESEN DES BITMUSTERS TAD RABIP DCA RABIC TAD RAMMN4 DCA RAMCTN TAD RAMMN4 DCA RAMCTM RAMRED, RCHAR TAD RMN260 DCA I RABIC TAD I RABIC TAD RN260 TCHAR ISZ RABIC ISZ RAMCTN JMP RAMRED LINE TAD RAMMN4 DCA RAMCTN ISZ RAMCTM JMP RAMRED LINE LINE JMP RAMALT PAGE /INITALISIERUNG UND UEBERSCHRIFT RAMALT, TLS CLA IAC DCA RAMFLG TAD RABIP DCA RABIC TAD RAMN16 DCA RAMCTR TAD RAMLIP DCA RAMLIC DCA I RAMLIC ISZ RAMLIC ISZ RAMCTR JMP .-3 CLA DCA RAMFEC DCA RAMFEC+1 DCA RAMSTA DCA ERRMPT IAC DCA SPALTE DCA SPALTE+1 CDF 20 TAD NM256 DCA I ERRMPT ISZ ERRMPT JMP .-3 CDF 0 LINE /UEBERSCHRIFT TDC 4322 4301 4315 4240 4316 4322 4272 240 RTCHAR /WRITE COMMENT CHECK 212 /END OF COMMENT SKP JMP .-4 LINE JMS SURE RCHAR CHECK 331 JMP RAMAIN JMP RAMSTR RMN260, -260 RN260, 260 RAMN16, -20 RAMCTR, 0 SPALTE, 0;0 NM256, 256 PAGE /INITALISIERUNG DER STEUERSIGNALE RAMAIN, CLA TAD RAMMN4 DCA RAMCTN TAD RAMMN4 DCA RAMCTM TAD RAMLIP DCA RAMLIC TAD RAMN16 DCA LPCNT TAD RABIP DCA RABIC /INITIALISIERUNG DES CLOCK ENABLE REGISTERS CLA CMA CLZE CLA TAD BUFFER CIA CLAB CLA TAD ENABLE /ENABLE REAL TIME CLOCK CLOE SET CS FQ CL RW WE MUX RF CLEAR CL TG FQ FE TR SET CL JMS RAMCOR /ADRESSEN BERECHNEN RAMSTA, 0 /ZWISCHENSPEICHER EINSCHREIBEN RAMZSP, CLEAR TR CLA TAD I RAMLIC /ADRESSEN EINSCHREIBEN 6516 CMA 6515 CLA NOP CLEAR DI TAD I RABIC 6505 ISZ RAMLIC ISZ RABIC NOP CLEAR CS CLEAR WE SET CS SET WE SET TR ISZ LPCNT JMP RAMZSP /HARDWARE TEST 6504 SMA /ZWISCHENSPEICER VOLL MOSTGO CLA NOP /EINSCHREIBEN IN DAS 4KRAM CLEAR CL RW MUX CLEAR CS SET CL SET TG NOP 6504 SMA /16 BIT INS 4KRAM EINGELESEN? JMP .-2 NOP /AUSLESEN AUS DEM 4KRAM CLEAR TG CL SET RW CL SET FQ CLEAR FQ SET FE JMP I .+1 NEXTPA LPCNT, 0 ENABLE, 5600 BUFFER, 3720 PAGE /FEHLERERKENNUNG: VERGLEICH ZWISCHEN EINGELESENEM UND /AUSGELESENEM BITMUSTER NEXTPA, SET TG RAMFIN, 6504 /F EINLESEN AND M2000 SNA CLA JMP RAMOKY /KEIN FEHLER 6514 CMA JMS GETZS ROW COLUMN CLA CLL TAD COLUMN RTL RTL RTL TAD ROW DCA ERRMPT ISZ RAMFEC SKP ISZ RAMFEC+1 TAD NUM253 CDF 20 DCA I ERRMPT CDF 0 6504 SPA CLA JMP TSTEND SET FQ CLEAR FQ JMP RAMFIN RAMOKY, NOP 6504 SMA CLA JMP RAMFIN JMP TSTEND NUM253, 253 ROW, 0 COLUMN, 0 PAGE /4KRAM GETESTET TSTEND, SET FQ CLEAR FQ CLEAR FE CLA TAD RAMSTA IAC NOP SZA CLA JMP RAMAIN JMP I .+1 FEHLIS PAGE /AUSDRUCK DER FEHLER UND FEHLERHAFTEN ADRESSEN FEHLIS, LINE TDC /FEHLERANZAHL 4306 4305 4310 4314 4305 4322 4301 4316 4332 4301 4310 4314 240 CIF 10 JMS DEZOUT /AUSDRUCK DEZIMAL FEHLERANZAHL RAMFEC STELE4 LINE JMS FELPLO JMP RAMSTR M2000, 2000 RAMFEC, 0;0 STELE4, 7 /STELLENANZAHL FEHLERANZAHL PAGE PAGE /SUBROUTINE ZUR BERECHNUNG DER ADRESSEN /1.ARG: STAND DER LETZTEN BERECHNETEN ADRESSE RAMCOR, 0 CAM TAD I RAMCOR DCA RAMOLD TAD RAMFLG SZA CLA /FALL1: WENN AC=/0;DANN 1.DURCHGANG JMP RAMIAC NOP TAD RAMOLD AND RM77 TAD RAMN77 /FALL2:WENN AC=0;DANN 63 ZEILEN SNA CLA JMP RAMNEW NOP TAD RAMOLD BSW TAD RAMMN3 /ALTES M-4 BEIBEHALTEN BSW TAD RAMTRN /VERSCHIEBUNG VON N JMP RAMIAC RAMNEW, NOP TAD RAMOLD BSW TAD RAMTRM /VERSCHIEBUNG VON M BSW AND RM7700 /N=0 RAMIAC, NOP MQL TAD RAMLIP DCA RAMLIC RAMHGN, MQA RAMHG, NOP DCA I RAMLIC TAD I RAMLIC IAC ISZ RAMLIC ISZ RAMCTN JMP RAMHG NOP CLA TAD RAMMN4 DCA RAMCTN DCA RAMFLG MQA BSW IAC BSW MQL ISZ RAMCTM JMP RAMHGN NOP CLA TAD RAMMN4 DCA RAMCTM CMA TAD RAMLIC DCA RAMLIC NOP TAD I RAMLIC DCA I RAMCOR ISZ RAMCOR TAD RAMLIP DCA RAMLIC JMP I RAMCOR RAMOLD, 0 RAMFLG, 0 RM77, 77 RAMN77, -77 RAMMN3, -3 RAMMN4, -4 RAMTRN, 0 RAMTRM, 0 RM7700, 7700 RAMLIP, RAMLIS RAMLIS, ZBLOCK 20 RAMCTN, 0 RAMCTM, 0 RABIP, RABILI RABILI, ZBLOCK 20 FELZAL, 0 PAGE /SUBROUTINE REFRESH /SUBROUTINE LOESCHEN D. CONTROLSIGNALS SRCLR, 0 CLA TAD I SRCLR 6506 ISZ SRCLR CLA NOP JMP I SRCLR /SUBROUTINE SETZEN D. CONTROLSIGNALS SRSET, 0 CLA TAD I SRSET 6505 ISZ SRSET CLA NOP JMP I SRSET SURE, 0 /ARE YOU SURE TDC 4301 4322 4305 4240 4331 4317 4325 4240 4323 4325 4322 305 JMP I SURE PAGE /AUSDRUCKROUTINE FUER 4096 BIT /64 SPALTEN X 64 ZEILEN /GESAMTES FELD 2 /KEINE FEHLER AUSDRUCK: ".", FEHLER AUSDRUCK: "+" FELPLO, 0 CLA DCA SETFOR LINE JMS SPACE8 TDC /COLUMN 4303 4317 4314 4325 4315 316 LINE JMS SPACE8 TDC 261 JMS SPACE8 TDC 4261 260 JMS SPACE8 TDC 4262 260 JMS SPACE8 TDC 4263 260 JMS SPACE8 TDC 4264 260 JMS SPACE8 TDC 4265 260 JMS SPACE8 TDC 4266 260 LINE JMS SPACE8 TDC 336 TAD MNUM6 DCA ARRCTR ARROW, JMS PRTARR CLA TAD MNUM1 DCA SETFOR ISZ ARRCTR JMP ARROW LINE TDC 4322 4317 4327 240 CLA DCA ERRMPT ROWNEW, TAD MNUM64 DCA CTR64 LINE CIF 10 JMS DEZOUT SPALTE STELLE TDC 4240 240 ROWAG, CDF 20 TAD I ERRMPT CDF 0 DCA PRTDOT TDC PRTDOT, 0 MOSTSR ISZ ERRMPT SKP JMP END ISZ CTR64 JMP ROWAG ISZ SPALTE JMP ROWNEW END, JMP I FELPLO SPACE8, 0 MOSTSR CLA TAD MNUM8 TAD SETFOR DCA SPCCTR TDC 240 ISZ SPCCTR JMP .-3 JMP I SPACE8 PRTARR, 0 JMS SPACE8 TDC 336 JMP I PRTARR MNUM8, -10 MNUM6, -6 SPCCTR, 0 ARRCTR, 0 SETFOR, 0 MNUM1, -1 STELLE, 7 MNUM64, -100 CTR64, 0 PAGE /GET NUMBER IN AC /JMS GETZS /ZEILENADRESS /SPALTENADRESS GETZS, 0 DCA GETTEM TAD I GETZS DCA GETP1 ISZ GETZS TAD I GETZS DCA GETP2 ISZ GETZS SWAB TAD GETTEM LSR 6 DCA I GETP1 ACL BSW DCA I GETP2 JMP I GETZS GETTEM, 0 GETP1, 0 GETP2, 0 FIELD 1 *1000 ENTF=JMS I 7 DEZOUT, 0 SWAB CLA RDF TAD CHFIED DCA EXIT1 IAC DCA 56 DCA 55 TAD I DEZOUT DCA DEZP1 ISZ DEZOUT TAD I DEZOUT DCA DEZTEM TAD I DEZTEM DCA 57 ISZ DEZOUT DCA 60 CAM DAD DEZP1, 0 CDF 10 SWP DST 45 CLA TAD (27 DCA 44 ENTF FNOR FOUT FEXT EXIT1, 0 JMP I DEZOUT DEZTEM, 0 CHFIED, CDF CIF 0