/ Outlet 21 / outlet-21.mgt / getvarJ

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 17 70 47 45 54 56 41 52 | 09 4c 44 09 48 4c 2c 28 |.pGETVAR|.LD.HL,(|
|00000010| 32 33 36 32 37 29 0d 17 | a2 09 4c 44 09 42 43 2c |23627)..|..LD.BC,|
|00000020| 28 32 33 36 34 31 29 0d | 17 d4 09 49 4e 43 09 42 |(23641).|...INC.B|
|00000030| 0d 18 06 09 09 09 3b 20 | 20 20 20 0d 18 38 45 4e |......; |   ..8EN|
|00000040| 44 56 41 52 09 50 55 53 | 48 09 41 46 0d 18 6a 09 |DVAR.PUS|H.AF..j.|
|00000050| 4c 44 09 41 2c 48 09 3b | 20 20 20 20 0d 18 9c 09 |LD.A,H.;|    ....|
|00000060| 43 50 09 42 0d 18 ce 09 | 4a 52 09 4e 43 2c 45 52 |CP.B....|JR.NC,ER|
|00000070| 52 0d 19 00 09 09 09 3b | 20 20 20 20 20 20 20 20 |R......;|        |
|00000080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000090| 20 0d 19 32 43 48 45 43 | 4b 56 09 50 4f 50 09 41 | ..2CHEC|KV.POP.A|
|000000a0| 46 0d 19 64 09 43 50 09 | 28 48 4c 29 0d 19 96 09 |F..d.CP.|(HL)....|
|000000b0| 52 45 54 09 5a 09 3b 20 | 52 45 4d 20 52 45 54 55 |RET.Z.; |REM RETU|
|000000c0| 52 4e 20 49 46 20 56 41 | 52 49 41 42 4c 45 20 46 |RN IF VA|RIABLE F|
|000000d0| 4f 55 4e 44 20 20 20 20 | 20 20 20 0d 19 c8 09 09 |OUND    |   .....|
|000000e0| 09 3b 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.;      |        |
|000000f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 0d 19 fa 09 |        |    ....|
|00000100| 42 49 54 09 35 2c 28 48 | 4c 29 09 3b 20 52 45 4d |BIT.5,(H|L).; REM|
|00000110| 20 54 45 53 54 20 46 4f | 52 20 4e 55 4d 45 52 49 | TEST FO|R NUMERI|
|00000120| 43 20 56 41 52 49 41 42 | 4c 45 20 20 20 20 20 20 |C VARIAB|LE      |
|00000130| 0d 1a 2c 09 4a 52 09 4e | 5a 2c 42 49 54 5f 36 0d |..,.JR.N|Z,BIT_6.|
|00000140| 1a 5e 09 49 4e 43 09 48 | 4c 09 3b 20 52 45 4d 20 |.^.INC.H|L.; REM |
|00000150| 4d 55 53 54 20 42 45 20 | 41 24 2c 20 41 24 28 29 |MUST BE |A$, A$()|
|00000160| 20 4f 52 20 41 28 29 20 | 53 4f 20 20 20 20 20 0d | OR A() |SO     .|
|00000170| 1a 90 09 4c 44 09 45 2c | 28 48 4c 29 09 3b 20 52 |...LD.E,|(HL).; R|
|00000180| 45 4d 20 47 45 54 20 4c | 45 4e 20 46 52 4f 4d 20 |EM GET L|EN FROM |
|00000190| 46 4f 4c 4c 4f 57 49 4e | 47 20 32 20 42 59 54 45 |FOLLOWIN|G 2 BYTE|
|000001a0| 53 20 0d 1a c2 09 49 4e | 43 09 48 4c 0d 1a f4 09 |S ....IN|C.HL....|
|000001b0| 4c 44 09 44 2c 28 48 4c | 29 0d 1b 26 09 41 44 44 |LD.D,(HL|)..&.ADD|
|000001c0| 09 48 4c 2c 44 45 0d 1b | 58 09 49 4e 43 09 48 4c |.HL,DE..|X.INC.HL|
|000001d0| 0d 1b 8a 09 4a 52 09 45 | 4e 44 56 41 52 0d 1b bc |....JR.E|NDVAR...|
|000001e0| 09 09 09 3b 20 20 20 20 | 20 20 20 20 20 20 20 20 |...;    |        |
|000001f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 0d 1b ee |        |     ...|
|00000200| 42 49 54 5f 36 09 42 49 | 54 09 36 2c 28 48 4c 29 |BIT_6.BI|T.6,(HL)|
|00000210| 0d 1c 20 09 4a 52 09 4e | 5a 2c 42 49 54 5f 37 0d |.. .JR.N|Z,BIT_7.|
|00000220| 1c 52 4d 55 4c 54 49 09 | 49 4e 43 09 48 4c 09 3b |.RMULTI.|INC.HL.;|
|00000230| 20 52 45 4d 20 4d 55 4c | 54 49 2d 4c 45 54 54 45 | REM MUL|TI-LETTE|
|00000240| 52 20 4e 55 4d 45 52 49 | 43 20 56 41 52 49 41 42 |R NUMERI|C VARIAB|
|00000250| 4c 45 20 20 0d 1c 84 09 | 4c 44 09 44 2c 28 48 4c |LE  ....|LD.D,(HL|
|00000260| 29 0d 1c b6 09 42 49 54 | 09 37 2c 44 09 3b 20 52 |)....BIT|.7,D.; R|
|00000270| 45 4d 20 54 45 53 54 20 | 46 4f 52 20 4c 41 53 54 |EM TEST |FOR LAST|
|00000280| 20 4c 45 54 54 45 52 20 | 4f 46 20 56 41 52 20 20 | LETTER |OF VAR  |
|00000290| 20 20 0d 1c e8 09 4a 52 | 09 5a 2c 4d 55 4c 54 49 |  ....JR|.Z,MULTI|
|000002a0| 0d 1d 1a 09 09 09 3b 20 | 20 20 20 20 20 20 20 20 |......; |        |
|000002b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000002c0| 0d 1d 4c 4e 55 4d 4c 45 | 4e 09 4c 44 09 44 45 2c |..LNUMLE|N.LD.DE,|
|000002d0| 36 0d 1d 7e 09 41 44 44 | 09 48 4c 2c 44 45 0d 1d |6..~.ADD|.HL,DE..|
|000002e0| b0 09 4a 52 09 45 4e 44 | 56 41 52 0d 1d e2 09 09 |..JR.END|VAR.....|
|000002f0| 09 3b 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.;      |        |
|00000300| 20 20 20 20 20 20 20 20 | 20 20 20 0d 1e 14 42 49 |        |   ...BI|
|00000310| 54 5f 37 09 42 49 54 09 | 37 2c 28 48 4c 29 09 3b |T_7.BIT.|7,(HL).;|
|00000320| 20 52 45 4d 20 54 45 53 | 54 20 46 4f 52 20 46 4f | REM TES|T FOR FO|
|00000330| 52 20 4e 45 58 54 20 56 | 41 52 49 41 42 4c 45 20 |R NEXT V|ARIABLE |
|00000340| 20 20 20 20 0d 1e 46 09 | 4a 52 09 5a 2c 4e 55 4d |    ..F.|JR.Z,NUM|
|00000350| 4c 45 4e 09 3b 20 4e 4f | 54 20 46 4f 52 4e 45 58 |LEN.; NO|T FORNEX|
|00000360| 54 20 2d 20 4a 55 53 54 | 20 41 44 44 20 4e 4f 52 |T - JUST| ADD NOR|
|00000370| 4d 41 4c 20 4c 45 4e 20 | 20 0d 1e 78 09 4c 44 09 |MAL LEN | ..x.LD.|
|00000380| 44 45 2c 31 39 09 3b 20 | 52 45 4d 20 46 4f 52 20 |DE,19.; |REM FOR |
|00000390| 4e 45 58 54 20 53 4f 20 | 41 44 44 20 4c 45 4e 20 |NEXT SO |ADD LEN |
|000003a0| 4f 46 20 31 39 20 20 20 | 20 20 20 0d 1e aa 09 41 |OF 19   |   ....A|
|000003b0| 44 44 09 48 4c 2c 44 45 | 0d 1e dc 09 4a 52 09 45 |DD.HL,DE|....JR.E|
|000003c0| 4e 44 56 41 52 0d 1f 0e | 09 09 09 3b 20 20 20 20 |NDVAR...|...;    |
|000003d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000003e0| 20 20 20 20 20 0d 1f 40 | 45 52 52 09 50 4f 50 09 |     ..@|ERR.POP.|
|000003f0| 41 46 0d 1f 72 09 4c 44 | 09 48 4c 2c 45 58 49 54 |AF..r.LD|.HL,EXIT|
|00000400| 0d 1f a4 09 50 55 53 48 | 09 48 4c 0d 1f d6 45 58 |....PUSH|.HL...EX|
|00000410| 49 54 09 52 53 54 09 38 | 0d 20 08 09 44 45 46 42 |IT.RST.8|. ..DEFB|
|00000420| 09 31 09 3b 52 45 4d 20 | 20 46 4f 52 43 45 20 22 |.1.;REM | FORCE "|
|00000430| 56 41 52 49 41 42 4c 45 | 20 4e 4f 54 20 46 4f 55 |VARIABLE| NOT FOU|
|00000440| 4e 44 22 20 20 20 20 20 | 0d 20 3a 09 52 45 54 0d |ND"     |. :.RET.|
|00000450| ff                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+