002
10.03.2015, 22:38 Uhr
holm
|
Nein, ich denke da kippt nix:
| Quellcode: |
title 18.12.1984 Konvertierung BAMOS <-> CP/M
.Z80
; Dieses Programm erhebt nicht den Anspruch auf Schoenheit!
; Jeder, der dieses Programm verbessern moechte, darf dies mit Freuden.
; Manfred Krzikalla
FCLOSE EQU 16
FDELETE EQU 19
FWRITE EQU 21
FMAKE EQU 22
SETDMA EQU 26
FOPEN EQU 15
FREAD EQU 20
EALEN EQU 9
EAADR EQU 7
GELADE EQU 29
CR EQU 0dh
LF EQU 0ah
START:: LD SP,SPBER
LD DE,N0
LD C,9
CALL 5
LD IX,(13H) ; E/A-TABELLE 1
LD A,(IX+GELADE)
OR A
JR Z,SP00
LD DE,N1
LD C,9
CALL 5
JP 0
N1:: defb CR,LF,"Kassette B: muss entladen sein!$"
SP00:: LD A,31H ; RESERVIEREN EIN
CALL KMB
LD A,21H
CALL KMB
CALL 0BH ; warten auf Ende des Rueckspulens
LD DE,N1A
LD C,9
CALL 5
LD DE,PUF
LD C,10
CALL 5
ld c,2
ld e,lf
call 5
LD A,(PUF+2)
AND 11011111B ; zu Grossbuchstaben wandeln
CP 'E'
JP Z,SP01 ; EINGABE BAMOS -> CP/M
CP 'A'
JR NZ,SP00
JP SP11 ; AUSGABE CP/M -> BAMOS
...
|
| Quellcode: |
;**********************************************************************
;**********************************************************************
;
;
;
; Bearbeiter / Stand / Bemerkung
;-------------------/-----------/--------------------------------------
; / /
; Krzikalla, M. /27.10.1985 / folgendes wurde bearbeitet
; HUB Berlin / /
; Sektion Mathematik/ / Tastatur K7632/02, K7634/04 und K7636/06
; Bereich IV / / an ATS, ATD oder PIO;
; / / im Interruptbetrieb oder im Polling
; / / Tastatur K7637
; / /
; / / Bildschirm 24*80 / 16*64 / 12*40 Zeichen
; / / (zur Laufzeit umschaltbar)
; / / - ADM31/ADM3A-kompatibel
; / / - SCP-kompatibel
; / / - SCP- und ADM31-kompatibel
; / /
; / / Locher-Leser ueber ADA K6022
; / / Locher-Leser ueber ALB
; / /
; / / Drucker SD1156/ASCII ueber ADA K6022
; / / Drucker SD1152/1157 ueber ATS K7028.10
; / / Drucker SD1152/1157-SIO zweibahnig
; / / Drucker SD1152/CENTRONICS ueber ATD
; / / Drucker SD1152/PIO ueber ATD
; / / Drucker EPSON FX-80/RX-80 ueber ATD
; / /
; / / KMB K5221 ueber AKB 5022
; / / geblockte Bedienung unter Verwendung
; / / der ROBOTRON-Routine vom 1.1.1981
; / /
; / / 8"-Floppy ueber AFS K5121
; / / 5"-Floppy ueber AMF K5120/K5122 mit K2521
; / / 5"-Floppy ueber AMF K5120/K5122 mit K2526
; / / 5"-Floppy ueber AMF K5126
; / /
; / / CP/M-RAM mit 4x16k RAM
; / / CP/M-RAM mit 1x64k OPS 3526.10
; / / CP/M-RAM mit 1x64k OPS 3527
; / / CP/M-RAM mit 1x64k OPS des ZWG
; / / CP/M-RAM mit 1x64k Test-RAM des IfR
; / /
; / / sim. Disk im Hauptspeicher
; / / sim. Disk im Hintergr. mit K3526.10
; / / sim. Disk im Hintergr. mit K3527
; / / sim. Disk im Hintergr. mit OPS64/ZWG
; / / sim. Disk im Hintergr. mit Test-RAM des KEAW
; / / sim. Disk im Hintergr. mit OSS des A5120/30
; / / sim. Disk im Hintergr. mit 256k des A5120.16
|
..mal sehen wie ich das ding an den Haaren aus dem Sumpf gezogen bekomme, evtl. ein Atmel Ding
auf einer Universalplatine das $irgendwas als DMA in den Speicher schreibt, schaunmermal..
Gruß,
Holm
--
float R,y=1.5,x,r,A,P,B;int u,h=80,n=80,s;main(c,v)int c;char **v;
{s=(c>1?(h=atoi(v[1])):h)*h/2;for(R=6./h;s%h||(y-=R,x=-2),s;4<(P=B*B)+
(r=A*A)|++u==n&&putchar(*(((--s%h)?(u<n?--u%6:6):7)+"World! \n"))&&
(A=B=P=u=r=0,x+=R/2))A=B*2*A+y,B=P+x-r;}
Dieser Beitrag wurde am 10.03.2015 um 22:41 Uhr von holm editiert. |
