.DEFINITIONS;1;
FILE      ADA-C.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;45;
VAR       _RXOUTP, BYTE, RAM, $00061;45;
VAR       _RXCOUNT, BYTE, RAM, $00062;45;
VAR       _RXBUFF, ARRAY, RAM, $00063;45;
          BYTE, =0|16, 0|0, 0|0, 0|0, $00001;45;
VAR       _TXINP, BYTE, RAM, $00073;46;
VAR       _TXOUTP, BYTE, RAM, $00074;46;
VAR       _TXCOUNT, BYTE, RAM, $00075;46;
VAR       _TXBUFF, ARRAY, RAM, $00076;46;
          BYTE, =0|16, 0|0, 0|0, 0|0, $00001;46;
VAR       SysTickTime, BYTE, RAM, $00086;1;
VAR       _ADCBUFF, ARRAY, RAM, $00087;52;
          WORD, =0|1, 0|0, 0|0, 0|0, $00001;52;
VAR       _TWI_TO, BYTE, RAM, $00095;58;
VAR       TWI_DevLock, DEVICELOCK, RAM, $00096;1;
IMPLEMENT ADAC;58;
CONST     SweepFak, ARRAY, ROM, $00001;63;
          WORD, =0|16, 0|0, 0|0, 0|0, $00002;63;
CONST     DDRBinit, BYTE, IMM, 63;67;
CONST     PortBinit, BYTE, IMM, 239;68;
CONST     DDRCinit, BYTE, IMM, 12;70;
CONST     PortCinit, BYTE, IMM, 255;71;
CONST     DDRDinit, BYTE, IMM, 4;73;
CONST     PortDinit, BYTE, IMM, 252;74;
CONST     LEDOutPort, BYTE, IMM, 50;76;
CONST     DDSOutPort, BYTE, IMM, 56;77;
CONST     b_SCLK, BYTE, IMM, 0;79;
CONST     b_SDATA, BYTE, IMM, 1;80;
CONST     b_FSYNC, BYTE, IMM, 2;81;
CONST     b_LOADPOT, BYTE, IMM, 3;82;
CONST     b_STROBE, BYTE, IMM, 4;83;
CONST     b_SerAux, BYTE, IMM, 5;84;
CONST     Vers1Str, STRING, 13, ROM, $;88;
CONST     Vers2Str, STRING, 16, ROM, $;89;
CONST     StopStr, STRING, 5, ROM, $;91;
CONST     high, BOOLEAN, IMM, 255;93;
CONST     low, BOOLEAN, IMM, 0;94;
VAR       EEPatchArray, ARRAY, EEPROM, $00000;103;
          BYTE, =0|13, 0|0, 0|0, 0|0, $00000;103;
VAR       i, BYTE, RAM, $00007;111;
VAR       k, BYTE, RAM, $00008;112;
VAR       m, BYTE, RAM, $00009;113;
VAR       b_LEDaux, BIT8, RAM, $320002;118;
VAR       SweepStarted, BOOLEAN, RAM, $00097;120;
VAR       DDSfrequ, LONGINT, RAM, $00098;121;
VAR       AktuelleFrequenz, LONGINT, RAM, $0009C;122;
VAR       FrequFak, LONGINT, RAM, $000A0;122;
VAR       BurstCount, BYTE, RAM, $000A4;123;
VAR       SweepOnce, BOOLEAN, RAM, $000A5;124;
VAR       BurstPrime, BOOLEAN, RAM, $000A6;125;
VAR       Modified, BOOLEAN, RAM, $000A7;125;
VAR       aBool, BOOLEAN, RAM, $000A8;126;
VAR       MemoryNum, BYTE, RAM, $000A9;127;
VAR       SweepUpper, LONGINT, RAM, $000AA;129;
VAR       EditArray, ARRAY, RAM, $000AE;132;
          BYTE, =0|16, 0|0, 0|0, 0|0, $00001;132;
VAR       Edit1, BYTE, RAM, $000AE;133;
VAR       Frequenz, LONGINT, RAM, $000AE;135;
VAR       SweepRange, BYTE, RAM, $000B6;137;
VAR       SweepTime, BYTE, RAM, $000B7;138;
VAR       BurstMode, BYTE, RAM, $000B8;139;
VAR       Wave, BYTE, RAM, $000B9;140;
VAR       AttnStep, BYTE, RAM, $000BA;142;
VAR       SaveArray, ARRAY, RAM, $000BE;144;
          BYTE, =0|16, 0|0, 0|0, 0|0, $00001;144;
VAR       Save1, BYTE, RAM, $000BE;145;
VAR       EditString, STRING, 17, RAM, $000CE;147;
VAR       EditString1, CHAR, RAM, $000CF;148;
VAR       SaveEditString, STRING, 17, RAM, $000DF;149;
VAR       LevelStr, STRING, 8, RAM, $000F0;150;
VAR       FreqStr, STRING, 9, RAM, $000F8;151;
VAR       BurstTimer, SYSTIMER8, RAM, $00101;152;
CONST     EditArrayLen, BYTE, IMM, 13;157;
PROC      PatchCopyFromEE;168;
COMMENT   procedure PatchCopyFromEE;;168;
FRAMEUSED 2;171;
LOCALV    myPatchAdr, WORD, $00000;171;
END_FUNC  PatchCopyFromEE;176;
PROC      SerCRLF;186;
COMMENT   procedure SerCRLF;;186;
END_FUNC  SerCRLF;190;
PROC      serprompt;192;
COMMENT   procedure serprompt(ok:boolean);;192;
FRAMEUSED 1;193;
LOCALV    ok, BOOLEAN, $00000;193;
END_FUNC  serprompt;202;
PROC      BurstGen;205;
COMMENT   procedure BurstGen;;205;
END_FUNC  BurstGen;227;
PROC      SerOutFreq;229;
COMMENT   procedure SerOutFreq(myfreq: Longint);;229;
FRAMEUSED 6;233;
LOCALV    myfreq, LONGINT, $00002;233;
LOCALV    lastdigit, CHAR, $00001;233;
LOCALV    l, BYTE, $00000;233;
END_FUNC  SerOutFreq;242;
PROC      SetSweepUpper;244;
COMMENT   procedure SetSweepUpper;;244;
END_FUNC  SetSweepUpper;250;
PROC      SweepGen;252;
COMMENT   procedure SweepGen;;252;
END_FUNC  SweepGen;297;
PROC      ParseCmd;299;
COMMENT   procedure ParseCmd;;299;
FRAMEUSED 89;309;
LOCALV    InpStr, STRING 64, $00019;309;
LOCALV    ParamStr, STRING 16, $00009;309;
LOCALV    Param, LONGINT, $00005;309;
LOCALV    ParamByte, BYTE, $00004;309;
LOCALV    ParamDez, BYTE, $00003;309;
LOCALV    Request, BOOLEAN, $00002;309;
LOCALV    CmdChar1, CHAR, $00001;309;
LOCALV    CmdChar2, CHAR, $00000;309;
END_FUNC  ParseCmd;399;
PROC      initall;405;
COMMENT   procedure initall;;405;
END_FUNC  initall;427;
PROC      $_Main;431;
STACKSTA  258;442;
STACKSIZ  128;442;
FRAMESTA  386;442;
FRAMESIZ  256;442;
PROCID    0;442;
PROCLOC   -1;442;
TASKLOC   -1;442;
END_PROG  ADAC;442;
.CODESTART
RESET $000000
STARTCODE $000026
FILE ADA-C.PAS
FUNC PATCHCOPYFROMEE, $000A8, $000028
ENTRY  $000026
LINE 172, $000028, 307
LINE 173, $00003E, 318
FRAME     2
FRAME     3
BRANCH   3, $00005C, $000060
BRANCH   20, $00005E, $0000AC
LINE 174, $000060, 344
LINE 175, $00009C, 377
BRANCH   3, $0000A8, $0000AC
BRANCH   20, $0000AA, $000050
FRAME     0
LINE 176, $0000AE, 393
BRANCH   19, $0000AE, $000000
ENDFUNC 176, $0000AE
FUNC SERCRLF, $000BA, $0000B0
ENTRY  $0000B0
LINE 188, $0000B0, 401
FRAME     0
LINE 189, $0000B4, 405
FRAME     0
LINE 190, $0000B8, 411
BRANCH   19, $0000B8, $000000
ENDFUNC 190, $0000B8
FUNC SERPROMPT, $000C0, $0000BA
ENTRY  $0000BA
LINE 194, $0000BA, 419
BRANCH   4, $0000BE, $0000C2
BRANCH   20, $0000C0, $0000C8
LINE 195, $0000C2, 428
FRAME     0
BRANCH   20, $0000C6, $0000CC
LINE 197, $0000C8, 437
FRAME     0
LINE 199, $0000CC, 443
FRAME     0
LINE 200, $0000D0, 447
BRANCH   17, $0000D0, $0000B0
LINE 201, $0000D2, 450
LINE 202, $0000D8, 455
BRANCH   19, $0000D8, $000000
ENDFUNC 202, $0000D8
FUNC BURSTGEN, $000CD, $0000DA
ENTRY  $0000DA
LINE 208, $0000DA, 463
BRANCH   4, $0000E8, $0000EC
BRANCH   20, $0000EA, $000152
LINE 209, $0000EC, 477
BRANCH   4, $0000FA, $0000FE
BRANCH   20, $0000FC, $000130
LINE 210, $0000FE, 491
LINE 211, $000104, 494
LINE 212, $00010E, 498
BRANCH   4, $00011C, $000120
BRANCH   20, $00011E, $000130
LINE 215, $000120, 512
LINE 216, $00012A, 516
LINE 219, $000130, 525
BRANCH   4, $00013E, $000142
BRANCH   20, $000140, $000152
LINE 220, $000142, 539
BRANCH   4, $000148, $00014C
BRANCH   20, $00014A, $000152
LINE 223, $00014C, 548
LINE 227, $000152, 562
BRANCH   19, $000152, $000000
ENDFUNC 227, $000152
FUNC SEROUTFREQ, $000E5, $000156
ENTRY  $000154
LINE 234, $000156, 571
FRAME     3
FRAME     7
FRAME     10
FRAME     3
FRAME     0
LINE 235, $0001AE, 621
LINE 236, $0001B6, 626
LINE 237, $0001D0, 640
LINE 238, $0001D8, 645
LINE 239, $0001EE, 658
FRAME     2
FRAME     0
LINE 240, $000208, 674
FRAME     0
LINE 241, $00020C, 678
FRAME     0
LINE 242, $000210, 684
BRANCH   19, $000210, $000000
ENDFUNC 242, $000210
FUNC SETSWEEPUPPER, $000F4, $000212
ENTRY  $000212
LINE 247, $000212, 692
LINE 248, $00023E, 710
LINE 249, $00027C, 730
LINE 250, $000282, 735
BRANCH   19, $000282, $000000
ENDFUNC 250, $000282
FUNC SWEEPGEN, $000FC, $000284
ENTRY  $000284
LINE 255, $000284, 743
BRANCH   4, $000292, $000296
BRANCH   20, $000294, $0003EC
LINE 257, $000296, 757
BRANCH   4, $00029E, $0002A2
BRANCH   20, $0002A0, $0002B0
LINE 258, $0002A2, 767
LINE 261, $0002AA, 770
LINE 263, $0002B0, 776
BRANCH   4, $0002BE, $0002C2
BRANCH   20, $0002C0, $0003EA
LINE 264, $0002C2, 790
LINE 265, $0002CA, 793
LINE 267, $00030A, 818
BRANCH   4, $00035A, $00035E
BRANCH   20, $00035C, $0003EA
LINE 268, $00035E, 859
LINE 269, $000364, 862
LINE 270, $000384, 871
BRANCH   4, $00038A, $00038E
BRANCH   20, $00038C, $0003EA
LINE 271, $00038E, 880
LINE 272, $000394, 883
FRAME     2
FRAME     0
LINE 273, $0003B4, 903
BRANCH   17, $0003B4, $0000B0
LINE 274, $0003B6, 906
FRAME     1
FRAME     0
BRANCH   17, $0003BE, $0000BA
LINE 275, $0003C4, 917
LINE 276, $0003CA, 920
BRANCH   20, $0003EA, $00041C
LINE 291, $0003EC, 943
LINE 292, $00040C, 952
BRANCH   4, $000412, $000416
BRANCH   20, $000414, $00041C
LINE 293, $000416, 961
LINE 297, $00041C, 971
BRANCH   19, $00041C, $000000
ENDFUNC 297, $00041C
FUNC PARSECMD, $0012B, $000426
ENTRY  $00041E
LINE 310, $000426, 983
FRAME     2
FRAME     0
LINE 311, $000476, 1029
FRAME     3
FRAME     0
LINE 312, $0004AA, 1058
BRANCH   4, $0004BA, $0004BE
BRANCH   20, $0004BC, $0004CE
LINE 313, $0004BE, 1074
FRAME     1
FRAME     0
BRANCH   17, $0004C6, $0000BA
LINE 314, $0004CC, 1085
BRANCH   20, $0004CC, $00089E
LINE 317, $0004CE, 1091
LINE 318, $0004E6, 1104
LINE 319, $000508, 1123
LINE 320, $000512, 1129
LINE 321, $00051C, 1135
FRAME     3
FRAME     0
LINE 322, $000562, 1173
LINE 323, $00057A, 1186
LINE 324, $00057E, 1189
BRANCH   4, $00058C, $000590
BRANCH   20, $00058E, $0005F4
LINE 325, $000590, 1204
FRAME     3
FRAME     0
LINE 326, $0005D6, 1242
LINE 328, $0005F4, 1261
LINE 329, $00060C, 1274
LINE 330, $000618, 1281
LINE 332, $00061E, 1284
BRANCH   4, $000622, $000626
BRANCH   20, $000624, $000768
LINE 333, $000626, 1293
LINE 334, $000628, 1295
BRANCH   3, $00062A, $00062E
BRANCH   20, $00062C, $000672
LINE 335, $00062E, 1304
BRANCH   4, $00063A, $00063E
BRANCH   20, $00063C, $000662
LINE 336, $00063E, 1318
FRAME     2
FRAME     0
LINE 337, $00065E, 1338
BRANCH   17, $00065E, $0000B0
BRANCH   20, $000660, $000670
LINE 339, $000662, 1346
FRAME     1
FRAME     0
BRANCH   17, $00066A, $0000BA
BRANCH   20, $000670, $000766
LINE 342, $000672, 1363
BRANCH   3, $000674, $000678
BRANCH   20, $000676, $00069E
LINE 343, $000678, 1372
FRAME     4
FRAME     0
BRANCH   17, $000694, $000154
LINE 344, $00069A, 1389
BRANCH   17, $00069A, $0000B0
BRANCH   20, $00069C, $000766
LINE 346, $00069E, 1396
BRANCH   3, $0006A0, $0006A4
BRANCH   20, $0006A2, $0006D8
LINE 347, $0006A4, 1405
FRAME     2
FRAME     3
FRAME     6
FRAME     2
FRAME     0
LINE 348, $0006D4, 1434
BRANCH   17, $0006D4, $0000B0
BRANCH   20, $0006D6, $000766
LINE 350, $0006D8, 1441
BRANCH   3, $0006DA, $0006DE
BRANCH   20, $0006DC, $000712
LINE 351, $0006DE, 1450
FRAME     2
FRAME     3
FRAME     6
FRAME     2
FRAME     0
LINE 352, $00070E, 1479
BRANCH   17, $00070E, $0000B0
BRANCH   20, $000710, $000766
LINE 354, $000712, 1486
BRANCH   3, $000714, $000718
BRANCH   20, $000716, $00071A
BRANCH   20, $000718, $000720
BRANCH   3, $00071C, $000720
BRANCH   20, $00071E, $000758
LINE 355, $000720, 1504
FRAME     2
FRAME     4
FRAME     7
FRAME     2
FRAME     0
LINE 356, $000754, 1536
BRANCH   17, $000754, $0000B0
BRANCH   20, $000756, $000766
LINE 359, $000758, 1544
FRAME     1
FRAME     0
BRANCH   17, $000760, $0000BA
BRANCH   20, $000766, $000886
LINE 362, $000768, 1562
LINE 363, $00076A, 1564
BRANCH   3, $00076C, $000770
BRANCH   20, $00076E, $0007DC
LINE 364, $000770, 1573
LINE 365, $0007B8, 1606
LINE 366, $0007D8, 1615
BRANCH   17, $0007D8, $000212
BRANCH   20, $0007DA, $000886
LINE 368, $0007DC, 1622
BRANCH   3, $0007DE, $0007E2
BRANCH   20, $0007E0, $0007EA
LINE 369, $0007E2, 1631
BRANCH   20, $0007E8, $000886
LINE 371, $0007EA, 1638
BRANCH   3, $0007EC, $0007F0
BRANCH   20, $0007EE, $0007F8
LINE 372, $0007F0, 1647
BRANCH   20, $0007F6, $000886
LINE 374, $0007F8, 1654
BRANCH   3, $0007FA, $0007FE
BRANCH   20, $0007FC, $000806
LINE 375, $0007FE, 1663
BRANCH   20, $000804, $000886
LINE 377, $000806, 1670
BRANCH   3, $000808, $00080C
BRANCH   20, $00080A, $00086A
LINE 378, $00080C, 1679
LINE 379, $000812, 1682
LINE 380, $000818, 1685
BRANCH   17, $000818, $000212
LINE 381, $00081A, 1688
FRAME     4
FRAME     0
BRANCH   17, $000836, $000154
LINE 382, $00083C, 1705
FRAME     0
LINE 383, $000840, 1709
FRAME     0
LINE 384, $000844, 1713
FRAME     4
FRAME     0
BRANCH   17, $000860, $000154
LINE 385, $000866, 1730
BRANCH   17, $000866, $0000B0
BRANCH   20, $000868, $000886
LINE 387, $00086A, 1737
BRANCH   3, $00086C, $000870
BRANCH   20, $00086E, $000878
LINE 388, $000870, 1746
BRANCH   20, $000876, $000886
LINE 391, $000878, 1754
FRAME     1
FRAME     0
BRANCH   17, $000880, $0000BA
LINE 395, $000886, 1769
BRANCH   4, $00088C, $000890
BRANCH   20, $00088E, $00089E
LINE 396, $000890, 1778
FRAME     1
FRAME     0
BRANCH   17, $000898, $0000BA
LINE 399, $00089E, 1794
BRANCH   19, $00089E, $000000
ENDFUNC 399, $00089E
FUNC INITALL, $00195, $0008A0
ENTRY  $0008A0
LINE 408, $0008A0, 1802
LINE 409, $0008A4, 1805
LINE 410, $0008A8, 1808
LINE 411, $0008AC, 1811
LINE 412, $0008B0, 1814
LINE 413, $0008B4, 1817
LINE 415, $0008B8, 1820
LINE 418, $0008BE, 1824
LINE 419, $0008C4, 1827
BRANCH   17, $0008C8, $000026
LINE 421, $0008CE, 1834
LINE 422, $0008D4, 1837
LINE 423, $0008DA, 1841
LINE 424, $0008E0, 1844
LINE 425, $0008E6, 1847
LINE 427, $000906, 1858
BRANCH   19, $000906, $000000
ENDFUNC 427, $000906
FUNC $_MAIN, $001AF, $000908
ENTRY  $000908
LINE 432, $000908, 1874
BRANCH   17, $000908, $0008A0
LINE 434, $00090A, 1879
BRANCH   4, $00090E, $000912
BRANCH   20, $000910, $00091C
LINE 435, $000912, 1888
BRANCH   17, $000916, $00041E
LINE 438, $00091C, 1898
BRANCH   17, $00091C, $000284
LINE 439, $00091E, 1901
BRANCH   17, $00091E, $0000DA
LINE 441, $000920, 1905
BRANCH   20, $000920, $00090A
LINE 442, $000922, 1912
LINE 442, $000924, 1914
BRANCH   20, $000924, $000922
ENDFUNC 442, $000924
SYM ADAC.VERS1STR, $0015F2
SYM ADAC.STOPSTR, $0015FF
SYM ADAC.SWEEPFAK, $001604
.ROMEND   $001FFF
.ROMCONST $0015F2
.SECTION CODE_STA, $000000, $0015F2, $000000
.SECTION ROMC, $0015F2, $000032, $0015F2
.SECTION VECTTAB, $000000, $000026, $001624
ENDCODE