Skip to content
Snippets Groups Projects
Commit a880fc98 authored by Peter Gerwinski's avatar Peter Gerwinski
Browse files

Vortragsfolien und Beispiele 31.5.2021

parent f615b21a
No related branches found
No related tags found
No related merge requests found
;name Cat Can
;author A. Kirchner, F. Uy, minor changes by P. Gerwinski
;assert 1
;
; Your basic two sweep methodical bomber.
; Fires SPL 0 and JMP -1 at every eight
; addresses, then erases the core with
; DAT bombs.
start mov trap2, < bomb
mov trap1, < bomb
sub # 6, bomb
jmn start, bomb ; trap loop
set mov # -5, bomb
kill mov bomb, @ bomb
djn kill, bomb ; kill loop
reset jmp set
bomb dat # -8
trap1 spl 0
trap2 jmp -1
end start
;name Chamaeleon
;version 7.8b (19.9.1991, modifiziert am 12. und 17.11.2012)
;author Peter Gerwinski
;assert 1
step equ 97
pos dat #42, #-20
melden mov hallo, ctrl ; Gefangener Gegner meldet sich
cntdwn sub #1, ctr ; Runtime-Fallen-Fini
falle spl cntdwn
mov fnum, <hallo
jmn falle, ctr
fnum dat #0, #(cntdwn - hallo) ; echtes Fini
ctrl djn ctrl, test ; Haupt-Task überwachen
spl piranh
fini mov fnum, <hallo
ctr jmp fini, #MAXPROCESSES
hallo jmp (fini - ctrl), #(selbst + 20 - hallo) ; Klingel für gefangenen Gegner
muni2 jmp 1
muni jmp @42, #(melden - pos) ; Munition
piranh mov #9, muni ; Piranhas, Version 2.4
ploop mov @muni, <ppos
pziel mov pmuni, (ppos - 20)
sub #73, pziel
djn ploop, muni
ppos spl @0, #833
add #653, ppos
jmz piranh, muni
pmuni dat #0, #0
start spl ctrl ; Überwachungs-Task aktivieren
loop mov #12, test ; Watchdog zurücksetzen
cmp @pos, <pos ; Gegner mit großer Schrittweite suchen
jmp feuer
sub #step, pos
cmp @pos, <pos
jmp feuer
sub #step, pos
cmp @pos, <pos
jmp feuer
sub #step, pos
jmp loop
feuer mov pos, psave
add #step, pos
such mov #11, test ; Watchdog
jmn gefu, <pos ; Gegner mit Schrittweite 1 suchen
jmn gefu, <pos
jmn gefu, <pos
jmn gefu, <pos
jmz such, <pos
gefu cmp pos, spos ; Erkenne dich selbst!
jmn drauf, 1
mov psave, pos
sub #step, pos
djn loop, selbst
mov hallo, ctrl ; Bei Langeweile: fini
jmp fini
drauf mov #13, test ; Gegner mit jmp-Bomben eindecken
mov muni, @pos
sub pos, @pos ; Sprung in die Falle
mov muni2, <pos
mov muni2, <pos
mov muni2, <pos
mov muni2, <pos
mov muni2, <pos
mov muni2, <pos
mov psave, pos
sub #step, pos
djn loop, genug
jmp fini ; Zu viel zu Bombardieren: fini und Piranhas
spos dat #42, #(selbst - pos)
psave dat #0, #0
test dat #0, #2
genug dat #0, #10
selbst dat #0, #37
end start
;redcode
;name fini
;version (8.1990)
;author Bodo Mller
;assert 1
;+--------------------------------------------------------------------------+
;| FINI ( = Endstufe von PARALYSE) Version 1.0 by B.M. Aug. '90 |
;+--------------------------------------------------------------------------+
NUM DAT #-2
START MOV NUM, <POS
LOOP JMP START
POS DAT #-3
END START
File added
File added
File moved
% pgslides.sty - LaTeX Settings for Lecture Slides
% Copyright (C) 2012, 2013 Peter Gerwinski
%
% This document is free software: you can redistribute it and/or
% modify it either under the terms of the Creative Commons
% Attribution-ShareAlike 3.0 License, or under the terms of the
% GNU General Public License as published by the Free Software
% Foundation, either version 3 of the License, or (at your option)
% any later version.
%
% This document is distributed in the hope that it will be useful,
% but WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
% GNU General Public License for more details.
%
% You should have received a copy of the GNU General Public License
% along with this document. If not, see <http://www.gnu.org/licenses/>.
%
% You should have received a copy of the Creative Commons
% Attribution-ShareAlike 3.0 Unported License along with this
% document. If not, see <http://creativecommons.org/licenses/>.
\usepackage{amsfonts}
\usepackage[british,german]{babel} % Yes, really "german" and not "ngerman".
\usepackage[utf8]{luainputenc} % Without this, umlauts are broken. Weird.
\usepackage{microtype}
\usepackage[T1]{fontenc}
\usepackage{times}
\usepackage{helvet}
\renewcommand*\familydefault{\sfdefault}
\usepackage{graphicx}
\usepackage{pstricks}
\hypersetup{colorlinks,allcolors=blue}
%% @@@ Not necessary for slides. Why???
%% Repair kerning: Automatically insert "\kern{-0.15em}" between "//" % (in URLs).
%\directlua{
% local glyph = node.id ("glyph")
% local function my_kerning (head)
% for t in node.traverse (head) do
% if t.id == glyph and t.char == 47 then
% if t.next
% and t.next.next
% and t.next.next.id == glyph
% and t.next.next.char == 47 then
% local k = node.new ("kern")
% k.kern = tex.sp ("-0.15em")
% k.next = t.next
% k.prev = t
% t.next.prev = k
% t.next = k
% end
% end
% end
% node.kerning (head)
% end
% luatexbase.add_to_callback ("kerning", my_kerning, "URL kerning")
%}
\usetheme{default}
\usefonttheme{structurebold}
\setbeamertemplate{navigation symbols}{}
\setbeamersize{text margin left = 0.3cm, text margin right = 0.2cm}
\setbeamertemplate{itemize item}{$\bullet$}
\setbeamertemplate{itemize subitem}{--}
\setbeamerfont{itemize/enumerate subbody}{size=\normalsize}
\setbeamerfont{itemize/enumerate subsubbody}{size=\normalsize}
\setbeamercolor{footline}{fg=gray}
\newcommand{\sep}{~$\cdot$~}
\newif\ifminimalistic
\minimalistictrue
\institute[Hochschule Bochum\sep CVH]{%
\makebox(0,0.005)[tl]{\includegraphics[scale=0.72]{logo-hochschule-bochum-cvh-text-v2.pdf}}\hfill
\makebox(0,0)[tr]{\includegraphics[scale=0.5]{logo-hochschule-bochum.pdf}}%
}
\setbeamertemplate{headline}{%
\leavevmode
\hbox to \textwidth{%
\ifminimalistic
\strut\hfill
\else
\rule{0pt}{5.7pt}%
\hspace*{8.55pt}\insertinstitute\hspace*{5.7pt}%
\raisebox{-30pt}{\rule{0pt}{1pt}}%
\fi
}%
\vskip0pt%
}
\iffalse
\setbeamertemplate{footline}{}
\else
\setbeamertemplate{footline}{%
\leavevmode
\hbox to \textwidth{%
\usebeamercolor{footline}%
\usebeamerfont{footline}%
\ifminimalistic
\strut\hfill
\else
\,\insertshorttitle\sep
\insertshortauthor\sep
\insertshortinstitute\sep
\insertshortdate\hfill
\fi
\insertframenumber/\inserttotalframenumber
%Folie\,\insertframenumber\sep Seite\,\insertpagenumber\,
}%
\vskip0pt%
}
\fi
\newcommand{\maketitleframe}{%
\ifminimalistic
\begin{frame}[t,plain]
\insertinstitute
\par\vfill
\begin{center}
{\LARGE\color{structure}\inserttitle\par}\bigskip\bigskip
{\large \insertauthor\par}\bigskip\medskip
\insertdate
\end{center}
\end{frame}
\else
\begin{frame}
\vfill
\begin{center}
{\LARGE\color{structure}\inserttitle\par}\bigskip\bigskip
{\large \insertauthor\par}\bigskip\medskip
\insertdate
\end{center}
\vfill
\end{frame}
\fi
}
\definecolor{medgreen}{rgb}{0.0,0.5,0.0}
\definecolor{darkgreen}{rgb}{0.0,0.3,0.0}
\definecolor{lightred}{rgb}{1.0,0.7,0.7}
\definecolor{medred}{rgb}{0.5,0.0,0.0}
\definecolor{bored}{rgb}{0.89,0.0,0.098}
\definecolor{lightgray}{rgb}{0.85,0.85,0.85}
\definecolor{orange}{rgb}{1.0,0.5,0.0}
\definecolor{darkgray}{rgb}{0.4,0.4,0.4}
\newenvironment{experts}{\color{darkgray}}{}
\usepackage{listings}
\lstset{basicstyle=\color{structure},
language=C,
captionpos=b,
gobble=4,
columns=fullflexible,
aboveskip=0pt,
belowskip=0pt,
moredelim=**[is][\color{structure}]{¡}{¿},
moredelim=**[is][\only<2->{\color{structure}}]{²}{¿},
moredelim=**[is][\only<3->{\color{structure}}]{³}{¿},
moredelim=**[is][\only<4->{\color{structure}}]{°}{¿},
moredelim=**[is][\only<5->{\color{structure}}]{¤}{¿},
moredelim=**[is][\only<6->{\color{structure}}]{¢}{¿},
moredelim=**[is][\only<7->{\color{structure}}]{æ}{¿},
moredelim=**[is][\only<8->{\color{structure}}]{ø}{¿}}
\lstdefinestyle{terminal}{basicstyle=\ttfamily\color{darkgreen},
language={},
columns=fixed,
moredelim=**[is][\color{red}]{¡}{¿},
moredelim=**[is][\color{blendedblue}]{°}{¿},
moredelim=**[is][\sffamily\it\lstset{columns=fullflexible}]{²}{¿}}
\lstdefinestyle{cmd}{basicstyle=\ttfamily\color{red},
language={},
gobble=2,
columns=fixed,
moredelim=**[is][\color{darkgreen}]{¡}{¿},
moredelim=**[is][\color{structure}]{°}{¿},
moredelim=**[is][\sffamily\it\lstset{columns=fullflexible}]{²}{¿}}
\lstdefinestyle{shy}{basicstyle=\color{lightgray}}
\setcounter{topnumber}{3}
\renewcommand\topfraction{0.7}
\setcounter{bottomnumber}{3}
\renewcommand\bottomfraction{0.7}
\setcounter{totalnumber}{5}
\renewcommand\textfraction{0.1}
\renewcommand\floatpagefraction{0.9}
\setlength{\unitlength}{1cm}
\newcommand{\protectfile}[1]{#1}
\urlstyle{sf}
\newcommand{\file}[1]{{\color{structure}\protectfile{#1}}}
\newcommand{\textarrow}{{\boldmath $\longrightarrow$}}
\newcommand{\arrowitem}{\item[\textarrow]}
\newcommand{\newterm}[1]{\emph{\color{darkgreen}#1}}
\newcommand{\BIGskip}{\vspace{1cm}}
\newcommand{\shy}{\color{lightgray}}
\newcommand{\hot}{\color{red}}
\newcommand{\shyhot}{\color{lightred}}
\newcommand{\sectionnonumber}[1]{\section{#1}\addtocounter{section}{-1}}
\def\showsectionnonumber{\hbox{\Large\color{structure}\bf
\vtop{\secname}\par}\bigskip}
\newcommand{\nosectionnonumber}[1]{\gdef\nosectionnonumbername{#1}}
\def\shownosectionnonumber{\hbox{\Large\color{structure}\bf
\vtop{\nosectionnonumbername}\par}\bigskip}
\def\showsection{\hbox{\Large\color{structure}\bf
\vtop{\hbox{\arabic{section}}}\kern1em%
\vtop{\secname}\par}\bigskip}
\newcommand{\subsectionnonumber}[1]{\subsection{#1}\addtocounter{subsection}{-1}}
\def\showsubsectionnonumber{{\large\color{structure}\bf\subsecname\par}\bigskip}
\def\showsubsection{\hbox{\large\color{structure}\bf
\vtop{\hbox{\arabic{section}.\arabic{subsection}}}\kern1em%
\vtop{\subsecname}\par}\bigskip}
\newcommand{\subsubsectionnonumber}[1]{\subsubsection{#1}\addtocounter{subsubsection}{-1}}
\def\showsubsubsectionnonumber{{\normalsize\color{structure}\bf\subsubsecname\par}\bigskip}
\def\showsubsubsection{\hbox{\normalsize\color{structure}\bf
\vtop{\hbox{\arabic{section}.\arabic{subsection}.\arabic{subsubsection}}}\kern1em%
\vtop{\subsubsecname}\par}\bigskip}
;name Piranhas
;version 2.4b (25.4.1991, modifiziert am 8.11.2012)
;author Peter Gerwinski
;assert 1
ptr dat #0
start mov #9, ptr
loop mov @ptr, <pos
ziel mov muni, -20
sub #257, ziel
djn loop, ptr
pos spl @0, #833
add #653, pos
jmz start, ptr
muni dat #0
end start
File added
This diff is collapsed.
...@@ -34,6 +34,18 @@ Projektideen: ...@@ -34,6 +34,18 @@ Projektideen:
- Es gibt einen Streaming-Server OwnCast, der Bild und Ton übertragen kann - Es gibt einen Streaming-Server OwnCast, der Bild und Ton übertragen kann
und außerdem eine Chat-Funktion hat. --> mit Mumble-Chat zusammenbringen und außerdem eine Chat-Funktion hat. --> mit Mumble-Chat zusammenbringen
Rechnertechnik-Projekte:
o Entfernungsmessung per Schallgeschwindigkeit
o Mechanischer Rechner mit Murmeln
o DMX-Protokoll in Arduino implementieren
o Taschenrechner mit 5-Bit-Dualzahlen - Grundrechenarten
Ausgabe per 7-Segment-Anzeige
o Arduino als VU-Meter
o Soft-serielle Schnittstelle per TCP/IP übertragen
o Core War
- Minecraft
Allgemeine Projektideen: Allgemeine Projektideen:
Smiley = bereits abgeschlossen oder fast abgeschlossen Smiley = bereits abgeschlossen oder fast abgeschlossen
...@@ -48,7 +60,7 @@ Allgemeine Projektideen: ...@@ -48,7 +60,7 @@ Allgemeine Projektideen:
:o dynamische Kamera-Positionierung für PULT :o dynamische Kamera-Positionierung für PULT
o Mumsi die Anzeige der Telefonnummer abgewöhnen o Mumsi die Anzeige der Telefonnummer abgewöhnen
o Telefon-Wahl aus Mumble heraus o Telefon-Wahl aus Mumble heraus
- Mumble-Chat mit BBB-Chat verbinden o Mumble-Chat mit BBB-Chat verbinden --> mkorostovskiy
- cvh-bot mit BBB-Umfragen verbinden - cvh-bot mit BBB-Umfragen verbinden
* noVNC in BBB einbauen * noVNC in BBB einbauen
* yesVNC in BBB einbauen * yesVNC in BBB einbauen
...@@ -73,4 +85,4 @@ Allgemeine Projektideen: ...@@ -73,4 +85,4 @@ Allgemeine Projektideen:
Bsp-Instanz aus Bochum (von dem dortigen Hackspace): https://virtuallab.das-labor.org/ Bsp-Instanz aus Bochum (von dem dortigen Hackspace): https://virtuallab.das-labor.org/
Doku dazu: https://howto.rc3.world/workadventure.en.html Doku dazu: https://howto.rc3.world/workadventure.en.html
* 3d-Scan aus einem Film heraus * 3d-Scan aus einem Film heraus
- BBB: Standard-Umfrage: Ja/Nein/Enthaltung ;) BBB: Standard-Umfrage: Ja/Nein/Enthaltung
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment