.DEFINITIONS;1;
FILE      DDS2313.pas;1;
PROGRAM   ADAC;1;
TYPE      TIPAddr, ARRAY;1;
          BYTE, =0|4, 0|0, 0|0, 0|0, $00001;1;
TYPE      TMACAddr, ARRAY;1;
          BYTE, =0|6, 0|0, 0|0, 0|0, $00001;1;
TYPE      tParity, ENUM;1;
          2, parNone, parEven, parOdd, $00001;1;
TYPE      tDataBits, ENUM;1;
          3, DataBit5, DataBit6, DataBit7, DataBit8, $00001;1;
TYPE      tStopBits, ENUM;1;
          1, StopBit1, StopBit2, $00001;1;
VAR       _RXINP, BYTE, RAM, $00060;43;
VAR       _RXOUTP, BYTE, RAM, $00061;43;
VAR       _RXCOUNT, BYTE, RAM, $00062;43;
VAR       _RXBUFF, ARRAY, RAM, $00063;43;
          BYTE, =0|16, 0|0, 0|0, 0|0, $00001;43;
VAR       _TXINP, BYTE, RAM, $00073;44;
VAR       _TXOUTP, BYTE, RAM, $00074;44;
VAR       _TXCOUNT, BYTE, RAM, $00075;44;
VAR       _TXBUFF, ARRAY, RAM, $00076;44;
          BYTE, =0|16, 0|0, 0|0, 0|0, $00001;44;
VAR       SysTickTime, BYTE, RAM, $00086;1;
IMPLEMENT ADAC;50;
CONST     DDRBinit, BYTE, IMM, 63;57;
CONST     PortBinit, BYTE, IMM, 239;58;
CONST     DDRCinit, BYTE, IMM, 12;60;
CONST     PortCinit, BYTE, IMM, 255;61;
CONST     DDRDinit, BYTE, IMM, 4;63;
CONST     PortDinit, BYTE, IMM, 252;64;
CONST     LEDOutPort, BYTE, IMM, 50;66;
CONST     DDSOutPort, BYTE, IMM, 56;67;
CONST     b_SCLK, BYTE, IMM, 0;69;
CONST     b_SDATA, BYTE, IMM, 1;70;
CONST     b_FSYNC, BYTE, IMM, 2;71;
CONST     b_LOADPOT, BYTE, IMM, 3;72;
CONST     b_STROBE, BYTE, IMM, 4;73;
CONST     b_SerAux, BYTE, IMM, 5;74;
CONST     Vers1Str, STRING, 13, ROM, $;78;
CONST     Vers2Str, STRING, 16, ROM, $;79;
CONST     StopStr, STRING, 5, ROM, $;81;
CONST     high, BOOLEAN, IMM, 255;83;
CONST     low, BOOLEAN, IMM, 0;84;
VAR       EEPatchArray, ARRAY, EEPROM, $00000;92;
          BYTE, =0|13, 0|0, 0|0, 0|0, $00000;92;
VAR       i, BYTE, RAM, $00007;100;
VAR       k, BYTE, RAM, $00008;101;
VAR       m, BYTE, RAM, $00009;102;
VAR       b_LEDaux, BIT8, RAM, $320002;107;
VAR       SweepStarted, BOOLEAN, RAM, $00087;109;
VAR       DDSfrequ, LONGINT, RAM, $00088;110;
VAR       AktuelleFrequenz, LONGINT, RAM, $0008C;111;
VAR       FrequFak, LONGINT, RAM, $00090;111;
VAR       BurstCount, BYTE, RAM, $00094;112;
VAR       SweepOnce, BOOLEAN, RAM, $00095;113;
VAR       BurstPrime, BOOLEAN, RAM, $00096;114;
VAR       Modified, BOOLEAN, RAM, $00097;114;
VAR       aBool, BOOLEAN, RAM, $00098;115;
VAR       MemoryNum, BYTE, RAM, $00099;116;
VAR       SweepUpper, LONGINT, RAM, $0009A;118;
VAR       EditArray, ARRAY, RAM, $0009E;121;
          BYTE, =0|16, 0|0, 0|0, 0|0, $00001;121;
VAR       Edit1, BYTE, RAM, $0009E;122;
VAR       Frequenz, LONGINT, RAM, $0009E;124;
VAR       SweepRange, BYTE, RAM, $000A6;126;
VAR       SweepTime, BYTE, RAM, $000A7;127;
VAR       BurstMode, BYTE, RAM, $000A8;128;
VAR       Wave, BYTE, RAM, $000A9;129;
VAR       AttnStep, BYTE, RAM, $000AA;131;
VAR       SaveArray, ARRAY, RAM, $000AE;133;
          BYTE, =0|16, 0|0, 0|0, 0|0, $00001;133;
VAR       Save1, BYTE, RAM, $000AE;134;
VAR       EditString, STRING, 17, RAM, $000BE;136;
VAR       EditString1, CHAR, RAM, $000BF;137;
VAR       SaveEditString, STRING, 17, RAM, $000CF;138;
VAR       LevelStr, STRING, 8, RAM, $000E0;139;
VAR       FreqStr, STRING, 9, RAM, $000E8;140;
VAR       BurstTimer, SYSTIMER8, RAM, $000F1;141;
CONST     EditArrayLen, BYTE, IMM, 13;146;
PROC      PatchCopyFromEE;157;
COMMENT   procedure PatchCopyFromEE;;157;
FRAMEUSED 2;160;
LOCALV    myPatchAdr, WORD, $00000;160;
END_FUNC  PatchCopyFromEE;165;
PROC      BurstGen;169;
COMMENT   procedure BurstGen;;169;
END_FUNC  BurstGen;191;
PROC      SerCRLF;198;
COMMENT   procedure SerCRLF;;198;
END_FUNC  SerCRLF;202;
PROC      serprompt;204;
COMMENT   procedure serprompt(ok:boolean);;204;
FRAMEUSED 1;205;
LOCALV    ok, BOOLEAN, $00000;205;
END_FUNC  serprompt;214;
PROC      ParseCmd;219;
COMMENT   procedure ParseCmd;;219;
FRAMEUSED 89;229;
LOCALV    InpStr, STRING 64, $00019;229;
LOCALV    ParamStr, STRING 16, $00009;229;
LOCALV    Param, LONGINT, $00005;229;
LOCALV    ParamByte, BYTE, $00004;229;
LOCALV    ParamDez, BYTE, $00003;229;
LOCALV    Request, BOOLEAN, $00002;229;
LOCALV    CmdChar1, CHAR, $00001;229;
LOCALV    CmdChar2, CHAR, $00000;229;
END_FUNC  ParseCmd;291;
PROC      initall;297;
COMMENT   procedure initall;;297;
END_FUNC  initall;319;
PROC      $_Main;323;
STACKSTA  242;334;
STACKSIZ  128;334;
FRAMESTA  370;334;
FRAMESIZ  256;334;
PROCID    0;334;
PROCLOC   -1;334;
TASKLOC   -1;334;
END_PROG  ADAC;334;
.CODESTART
RESET $000000
STARTCODE $000026
FILE DDS2313.PAS
FUNC PATCHCOPYFROMEE, $0009D, $000028
ENTRY  $000026
LINE 161, $000028, 294
LINE 162, $00003E, 305
FRAME     2
FRAME     3
BRANCH   3, $00005C, $000060
BRANCH   20, $00005E, $0000AC
LINE 163, $000060, 331
LINE 164, $00009C, 364
BRANCH   3, $0000A8, $0000AC
BRANCH   20, $0000AA, $000050
FRAME     0
LINE 165, $0000AE, 380
BRANCH   19, $0000AE, $000000
ENDFUNC 165, $0000AE
FUNC BURSTGEN, $000A9, $0000B0
ENTRY  $0000B0
LINE 172, $0000B0, 388
BRANCH   4, $0000BE, $0000C2
BRANCH   20, $0000C0, $000128
LINE 173, $0000C2, 402
BRANCH   4, $0000D0, $0000D4
BRANCH   20, $0000D2, $000106
LINE 174, $0000D4, 416
LINE 175, $0000DA, 419
LINE 176, $0000E4, 423
BRANCH   4, $0000F2, $0000F6
BRANCH   20, $0000F4, $000106
LINE 179, $0000F6, 437
LINE 180, $000100, 441
LINE 183, $000106, 450
BRANCH   4, $000114, $000118
BRANCH   20, $000116, $000128
LINE 184, $000118, 464
BRANCH   4, $00011E, $000122
BRANCH   20, $000120, $000128
LINE 187, $000122, 473
LINE 191, $000128, 487
BRANCH   19, $000128, $000000
ENDFUNC 191, $000128
FUNC SERCRLF, $000C6, $00012A
ENTRY  $00012A
LINE 200, $00012A, 495
FRAME     0
LINE 201, $00012E, 499
FRAME     0
LINE 202, $000132, 505
BRANCH   19, $000132, $000000
ENDFUNC 202, $000132
FUNC SERPROMPT, $000CC, $000134
ENTRY  $000134
LINE 206, $000134, 513
BRANCH   4, $000138, $00013C
BRANCH   20, $00013A, $000142
LINE 207, $00013C, 522
FRAME     0
BRANCH   20, $000140, $000146
LINE 209, $000142, 531
FRAME     0
LINE 211, $000146, 537
FRAME     0
LINE 212, $00014A, 541
BRANCH   17, $00014A, $00012A
LINE 213, $00014C, 544
LINE 214, $000152, 549
BRANCH   19, $000152, $000000
ENDFUNC 214, $000152
FUNC PARSECMD, $000DB, $00015C
ENTRY  $000154
LINE 230, $00015C, 561
FRAME     2
FRAME     0
LINE 231, $0001AC, 607
FRAME     3
FRAME     0
LINE 232, $0001E0, 636
BRANCH   4, $0001F0, $0001F4
BRANCH   20, $0001F2, $000204
LINE 233, $0001F4, 652
FRAME     1
FRAME     0
BRANCH   17, $0001FC, $000134
LINE 234, $000202, 663
BRANCH   20, $000202, $00045A
LINE 237, $000204, 669
LINE 238, $00021C, 682
LINE 239, $00023E, 701
LINE 240, $000248, 707
LINE 241, $000252, 713
FRAME     3
FRAME     0
LINE 242, $000298, 751
LINE 243, $0002B0, 764
LINE 244, $0002B4, 767
BRANCH   4, $0002C2, $0002C6
BRANCH   20, $0002C4, $00032A
LINE 245, $0002C6, 782
FRAME     3
FRAME     0
LINE 246, $00030C, 820
LINE 248, $00032A, 839
LINE 249, $000342, 852
LINE 250, $00034E, 859
LINE 252, $000354, 862
BRANCH   4, $000358, $00035C
BRANCH   20, $00035A, $00036C
LINE 253, $00035C, 871
FRAME     1
FRAME     0
BRANCH   17, $000364, $000134
BRANCH   20, $00036A, $000442
LINE 255, $00036C, 887
LINE 256, $00036E, 889
BRANCH   3, $000370, $000374
BRANCH   20, $000372, $0003DE
LINE 257, $000374, 898
LINE 258, $0003BC, 931
BRANCH   20, $0003DC, $000442
LINE 260, $0003DE, 944
BRANCH   3, $0003E0, $0003E4
BRANCH   20, $0003E2, $0003EC
LINE 261, $0003E4, 953
BRANCH   20, $0003EA, $000442
LINE 263, $0003EC, 960
BRANCH   3, $0003EE, $0003F2
BRANCH   20, $0003F0, $0003FA
LINE 264, $0003F2, 969
BRANCH   20, $0003F8, $000442
LINE 266, $0003FA, 976
BRANCH   3, $0003FC, $000400
BRANCH   20, $0003FE, $000408
LINE 267, $000400, 985
BRANCH   20, $000406, $000442
LINE 269, $000408, 992
BRANCH   3, $00040A, $00040E
BRANCH   20, $00040C, $000426
LINE 270, $00040E, 1001
LINE 271, $000414, 1004
LINE 274, $00041A, 1007
FRAME     0
LINE 275, $00041E, 1011
FRAME     0
LINE 277, $000422, 1015
BRANCH   17, $000422, $00012A
BRANCH   20, $000424, $000442
LINE 279, $000426, 1022
BRANCH   3, $000428, $00042C
BRANCH   20, $00042A, $000434
LINE 280, $00042C, 1031
BRANCH   20, $000432, $000442
LINE 283, $000434, 1039
FRAME     1
FRAME     0
BRANCH   17, $00043C, $000134
LINE 287, $000442, 1054
BRANCH   4, $000448, $00044C
BRANCH   20, $00044A, $00045A
LINE 288, $00044C, 1063
FRAME     1
FRAME     0
BRANCH   17, $000454, $000134
LINE 291, $00045A, 1079
BRANCH   19, $00045A, $000000
ENDFUNC 291, $00045A
FUNC INITALL, $00129, $00045C
ENTRY  $00045C
LINE 300, $00045C, 1087
LINE 301, $000460, 1090
LINE 302, $000464, 1093
LINE 303, $000468, 1096
LINE 304, $00046C, 1099
LINE 305, $000470, 1102
LINE 307, $000474, 1105
LINE 310, $00047A, 1109
LINE 311, $000480, 1112
BRANCH   17, $000484, $000026
LINE 313, $00048A, 1119
LINE 314, $000490, 1122
LINE 315, $000496, 1126
LINE 316, $00049C, 1129
LINE 317, $0004A2, 1132
LINE 319, $0004C2, 1143
BRANCH   19, $0004C2, $000000
ENDFUNC 319, $0004C2
FUNC $_MAIN, $00143, $0004C4
ENTRY  $0004C4
LINE 324, $0004C4, 1159
BRANCH   17, $0004C4, $00045C
LINE 326, $0004C6, 1164
BRANCH   4, $0004CA, $0004CE
BRANCH   20, $0004CC, $0004D8
LINE 327, $0004CE, 1173
BRANCH   17, $0004D2, $000154
LINE 331, $0004D8, 1183
BRANCH   17, $0004D8, $0000B0
LINE 333, $0004DA, 1187
BRANCH   20, $0004DA, $0004C6
LINE 334, $0004DC, 1194
LINE 334, $0004DE, 1196
BRANCH   20, $0004DE, $0004DC
ENDFUNC 334, $0004DE
.ROMEND   $001FFF
.ROMCONST $0009FA
.SECTION CODE_STA, $000000, $0009FA, $000000
.SECTION ROMC, $0009FA, $000000, $0009FA
.SECTION VECTTAB, $000000, $000026, $0009FA
ENDCODE