corecode

c$$$  APPENDIX G
c$$$  DESICCANT PROGRAM LISTING
c$$$
c$$$  A iisting of the computer code DESICCANT is given in this
c$$$  Appendix. Various modeis for the performance of siiica ge1 beds
c$$$  can be tested through choice of appropriate control parameters.
c$$$  Modeis 1 and 2 can be obtained by setting SSR = O with appropri-
c$$$  ate vaiues for NW and Le. Mode] 3 can be obtained by setting SSR
c$$$  equal to unity and NUDSEN equal to zero. Resuits for Model 4 can
c$$$  be obtained by setting both SSR and NUDSEN equa} to unity. If it

corecode

#include <mchck.h>

struct exception_frame {
        /* saved by CPU */
        uint32_t r0, r1, r2, r3, r12, lr, ret, xpsr;
};

struct extended_exception_frame {
        /* saved by scheduler entry */
        uint32_t r4, r5, r6, r7, r8, r9, r10, r11;

corecode

corecode

<?xml version="1.0" encoding="UTF-8"?>
<export version="D">
  <design>
    <source>/home/corecode/sternlabs/current-monitor-2x-isol/current-monitor-2x-isol.sch</source>
    <date>Fri 13 Nov 2015 01:09:52 PM CET</date>
    <tool>Eeschema (2015-11-08 BZR 6304, Git a237546)-product</tool>
    <sheet number="1" name="/" tstamps="/">
      <title_block>
        <title>2x Isolated Current Monitor</title>
        <company>sternlabs</company>

corecode

#!/bin/sh

wd=$(pwd)
while [ -z "$GOPATH" ]
do
    if [ -e "$wd"/.go-root ]
    then
        export GOPATH="$wd"
        break
    fi

corecode

#include <mchck.h>

volatile static uint16_t srcbuf;
static uint16_t dstbuf[5];

enum dma_status {
        DMA_STATUS_HALF,
        DMA_STATUS_FULL,
        DMA_STATUS_ERROR,
};

corecode

#include <mchck.h>

static uint16_t src;
static uint16_t dst[200];


static uint32_t dma_used_chan;

struct dma_ctx {
        dma_ct_t cb;

corecode

/*
 * This program source code file is part of KiCad, a free EDA CAD application.
 *
 * Copyright (C) 2012 CERN
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2
 * of the License, or (at your option) any later version.
 *

corecode

;;; -*- lexical-binding: t; -*-

(defun kicad-pcb-modify (testp modfn)
  (interactive)
  (save-excursion
    (goto-char (point-min))
    (let* ((source (read (current-buffer)))
           (mod (kicad-pcb-modify-sexp source testp modfn)))
      (erase-buffer)
      (kicad-pcb-print mod (current-buffer)))))

corecode

#include <memory>
#include <list>
#include <string>
#include <iostream>

namespace sexp {
    struct pos {
        unsigned line, col;
    };